home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
gra1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
36 lines
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]"