home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 53
/
Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64
/
menue
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
992b
|
41 lines
10 lw=peek(186):dimp$(150)
20 print"":poke53280,0:poke53281,0:gosub460
160 n=10
170 print"[147][159] tc praesentiert [146][158]";
180 print" ";left$(p$(0),9);"":print
190 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
240 print"---> [157][157][157][157][157] [159]f1[146] weiter [146]";
250 print" [159]f3[146] zurueck [146]"
260 print" [159]e[146][158]nde [146]";
270 print" [159]f5[146][158] laden [146]"
280 print" [159]f7[146] laden + starten [146]"
290 z$="":getz$:ifz$=""then290
300 ifz$=chr$(133)andn<xthenn=n+10:goto170
310 ifz$=chr$(134)and(n-10)>0thenn=n-10:goto170
320 ifz$="e"thenprint"neustart mit 'run'!":end
330 ifz$=chr$(135)thenu=13:goto360
340 ifz$=chr$(136)thenu=131:goto360
350 goto290
360 print"program #";
370 inputs$:s=val(s$)
380 ifs<1ors>xthen160
390 iflen(p$(s))>12thenp$(s)=left$(p$(s),12)+"*"
400 print"[147][144]load"+chr$(34)+p$(s)+chr$(34)+",8";
410 poke631,19:poke632,u:poke198,2:end
420 open15,lw,15
430 input#15,aa,bb$,cc,dd
440 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)
490 ifst<>64thenx=x+1:goto480
500 close2:close15:return
540 getau$:ifau$<>"j"andau$<>"n"then540
550 ifau$="n"thenx=x-1
560 return