0 REM ********************************* 1 REM ** MENUEAUSWAHLPROGRAMM ** 2 REM ** 'GRA1' ** 3 REM ** ** 4 REM **-----------------------------** 5 REM ** DR.H.DOMES ** 6 REM ** JOSEF MARX STR. 13 ** 7 REM ** A 8043 GRAZ/AUSTRIA ** 8 REM ** UPDATE 2/90: BL, GERMANY ** 9 REM ********************************* 10 POKE53280,0:POKE53281,0:PRINT"[147][155]":POKE198,0 50 READ AN 100 DIMMU$(AN):DI$(0)="[145][145][145]":DI$(1)="":DI$(2)="[145]":PO$(1)="" 200 FORI=0TOAN:READMU$(I):NEXT 499 REM-------------------------------- 500 IB=0:IE=AN 520 GOSUB1000:IFI=7THEN(null)255:PRINT"":SYS42115 599 REM--------OVERLAY PSEUDODIREKT---- 600 IFMU$(I-1)="[150] ENDE [155]"THENPRINT"[147]":END 610 PRINT"[147][144]CLR:L[207]";CHR$(34);MU$(I-1);CHR$(34);",8":PRINT"R[213]" 620 POKE631,19:FORI=0TO2:POKE632+I,13:NEXT:POKE198,4:END 900 :END 999 REM-------------------------------- 1000 PRINT"[147]- LADEPROGRAMM -";PO$(1) 1200 FORI=IBTOIE:PRINTMU$(I):PRINT:NEXT 1250 PRINT"";PO$(1):I=IB:PRINT""MU$(I) 1500 GETW$:IFW$<>"[145]"ANDW$<>""ANDW$<>CHR$(13)THEN1500 1520 LI=I 1540 IFW$=CHR$(13)THENI=I-IB+1:RETURN 1550 IFW$=""THENI=I+1:ZI=1:IFI>IETHENI=IE:ZI=2 1560 IFW$="[145]"THENI=I-1:ZI=0:IFI