home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8612.d64
/
auswahlmenue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
496b
|
23 lines
10 A=1
15 PRINT"[147]"
20 FORI=1TO6
30 READM$(I)
40 PRINTTAB(10)M$(I)
50 NEXT
60 GOSUB100
70 PRINT"[147]SIE WAEHLTEN PUNKT"A
80 END:REM HIER KOENNTE DANN VERZWEIGUNG ERFOLGEN
90 DATAPUNKT 1,PUNKT 2,PUNKT 3,PUNKT 4,PUNKT 5,PUNKT 6
100 REM *******************************
105 REM HIER BEGINNT DIE AUSWAHLROUTINE
110 POKE214,A+4:POKE211,10:SYS58640:PRINT""M$(A)
120 GETX$:IFX$=""THEN120
130 IFX$=CHR$(13)THENRETURN
140 IFX$=""THEN180
150 POKE214,A+4:POKE211,10:SYS58640:PRINTM$(A)
160 A=A-1:IFA<1THENA=1
170 GOTO110
180 POKE214,A+4:POKE211,10:SYS58640:PRINTM$(A)
190 A=A+1:IFA>6THENA=6
200 GOTO110