home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 56
/
Tiger_Disk_056_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
menue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
877b
|
24 lines
10 lw=peek(186):dimp$(150):print"":poke53280,0:poke53281,0:gosub460
160 n=10
170 print"[147][159] tc praesentiert [146][158]";:print" ";left$(p$(0),9);"":print:ifn<10thenn=10
200 ifn>145thenn=145
210 forj=(n-9)ton:ifj<=xthenprintj;"- ";p$(j)
220 ifj>xthenprint"kein weiterer eintrag!":j=n
230 next:print"---> [157][157][157][157][157] [159]f1[146] weiter [146]";:print" [159]f3[146] zurueck [146]":print" [159]e[146][158]nde [146]";:print" [159]f5[146][158] laden [146]":print" [159]f7[146] laden + starten [146]
290 z$[178]"":[161]z$:[139]z$[178]""[167]290
300 [139]z$[178][199](133)[175]n[179]x[167]n[178]n[170]10:[137]170
310 [139]z$[178][199](134)[175](n[171]10)[177]0[167]n[178]n[171]10:[137]170
320 [139]z$[178]"e"[167][153]"neustart mit 'run'!":[128]
330 [139]z$[178][199](135)[167]u[178]13:[137]360
340 [139]z$[178][199](136)[167]u[178]131:[137]360
350 [137]290
360 [153]"program #";:[133]s$:s[178][197](s$):[139]s[179]1[176]s[177]x[167]160
390 [139][195](p$(s))[177]12[167]p$(s)[178][200](p$(s),12)[170]"*
400 print"[147][144]load"+chr$(34)+p$(s)+chr$(34)+",8";:poke631,19:poke632,u:poke198,2:end
420 open15,lw,15:input#15,aa,bb$,cc,dd:ifaa<>0thenclose2:close15:return
450 return
460 open2,lw,2,"- menue -,s,r":gosub420:ifaa<>0thenprint"[147]":end
470 x=0
480 input#2,p$(x):ifst<>64thenx=x+1:goto480
500 close2:close15:return