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                 **
8 REM **   AUSTRIA                   **
9 REM *********************************
10 POKE53280,0:POKE53281,0:PRINT"[147][156]":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 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<IBTHENI=IB:ZI=2
1600 PRINT"[145]"MU$(LI):PRINTDI$(ZI)""MU$(I)
1700 GOTO1500
1701 REM================================
5000 DATA 3
5010 DATA CAD2001,TESTDEMO,STATISTIK,"[159] ENDE [156]"