Data "3"
Karte:
Data "1;2;2;44"
Data "1;3;3;12  19  43"
Data "1;4;4;5;13  14  46  30"
Data "1;5;6;45  43"
Data "1;8;49"
Data "2;1;8;2;12  7;43  45  30"
Data "2;5;6;45  46"
Data "3;1;3;11  32  44"
Data "3;11  48"
Data "3;33  65"
Data "3;79  5;14"

1 2 2 44    2    Room 2    ROAD. Walk on the road.
1 3 3 12 19 43    3    Room 3    ENTER, DOOR, GATE.
Synonyms (12, 19, 43)        BUILD/HOUSE, INWARD/INSIDE/IN, EAST/E.    The command ENTER must have been recognized by the game as token 3 or 12/19. ENTER led to room 3.  
1 4 4 5 13 14 46 30    4    Room 4    UPSTR (Upstream).    
1 5 6 45 43    5    Room 6    DOWNS (Downstream).    
1 8 49    8    Room 49    BACK, RETURN, RETREAT.

SUB Load_Picture RNR%
   Local FNAM$
select case RNR%
Case 46,47,48,54,56,58,63
FNAM$= "asset/DEADEND.bmp"
Case 42,43,45
FNAM$= "asset/2exits.bmp"
Case 44,49 TO 53,55
FNAM$= "asset/3exits.bmp"
Case 25
FNAM$= "asset/A23.bmp"
Case ELSE
FNAM$= "asset/A":'if RNR%<10 then FNAM$=FNAM$+"0"
FNAM$=FNAM$+STR$(RNR%,2,0,"0")+".bmp"
end select
Load bmp FNAM$,0,0
end sub

Dim Linebuff$(20),IVNT$(10),DIRS$(10),LBIDX=1:LBINR=1
CONST TEXT_START_ROW = 25 ' Line-Index (not Pixel)
CONST DISPLAY_ROWS = 5
CLS:Font 7

Sub WriteLN (IS)
Linebuff$(LBINR)=IS:INC LBINR
end SUB
SUB Load_Picture RNR%
   Local FNAM$
   select case RNR%
       Case 46,47,48,54,56,58,63
           FNAM$= "asset/DEADEND.bmp"
       Case 42,43,45
           FNAM$= "asset/2exits.bmp"
       Case 44,49 TO 53,55
           FNAM$= "asset/3exits.bmp"
       Case 25
           FNAM$= "asset/A23.bmp"
       Case ELSE
           FNAM$= "asset/A":'if RNR%<10 then FNAM$=FNAM$+"0"
           FNAM$=FNAM$+STR$(RNR%,2,0,"0")+".bmp"
   end select
   Load image FNAM$,0,0
end sub

FUNCTION INP$()
   LOCAL K$
   INP$="":PRINT @(0,232);string$(48," ");
   PRINT @(0,232);">_";
   DO
   DO
       K$=INKEY$:Pause 10
       IF ASC(K$)<>0 THEN EXIT DO
   LOOP
     K$=UCASE$(K$)
     SELECT CASE ASC(K$)
       CASE 8,127 'BACKSPACE/DEL
           IF LEN(INP$) THEN INP$=LEFT$(INP$,LEN(INP$)-1)
       CASE 32 to 90
       if  LEN(INP$)< 50 then  INP$=INP$+K$
       CASE 10
           EXIT FUNCTION
       CASE 128 'CURSOR UP
           LBIDX=LBIDX-(LBIDX> 1):DisplayLines(LBIDX, Linebuff$())
       CASE 129 'CURSOR DOWN
           LBIDX=LBIDX+(LBIDX<15):DisplayLines(LBIDX, Linebuff$())
   END SELECT
   
   PRINT @(0,232);">";INP$;"_ ";
   LOOP
   COLOR RGB(WHITE),0
END FUNCTION

SUB DisplayLines(StartIndex AS INTEGER, Buffer$())
   LOCAL I AS INTEGER
   LOCAL ScreenRow AS INTEGER
   LOCAL Y_PIXEL AS INTEGER
       COLOR RGB(GREEN),0
      FOR I = 0 TO DISPLAY_ROWS - 1
       ScreenRow = TEXT_START_ROW + I
          ' Berechne die Y-Pixel-Koordinate: (Reihenindex - 1) * 8
          Y_PIXEL = (ScreenRow - 1) * 8
          ' Löschen der alten Zeile (Spalte 1 bis 42)
       PRINT @(0, Y_PIXEL); SPACE$(53);
          ' Zeige die entschlüsselte Zeile aus dem Puffer
       PRINT @(0, Y_PIXEL);Buffer$(StartIndex + I);
   NEXT I
   COLOR RGB(WHITE),0
END SUB
sub CLR_LINEBUFF
local ff%
   For ff%=1 to 20:Linebuff$(ff%) ="":next
end sub