home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
auswahlmenue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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