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 >
Commodore BASIC  |  2023-02-26  |  877b  |  24 lines

  1. 10 lw=peek(186):dimp$(150):print"":poke53280,0:poke53281,0:gosub460
  2. 160 n=10
  3. 170 print"[147][159] tc praesentiert   [146][158]";:print"  ";left$(p$(0),9);"":print:ifn<10thenn=10
  4. 200 ifn>145thenn=145
  5. 210 forj=(n-9)ton:ifj<=xthenprintj;"- ";p$(j)
  6. 220 ifj>xthenprint"kein weiterer eintrag!":j=n
  7. 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]
  8. 290 z$[178]"":[161]z$:[139]z$[178]""[167]290
  9. 300 [139]z$[178][199](133)[175]n[179]x[167]n[178]n[170]10:[137]170
  10. 310 [139]z$[178][199](134)[175](n[171]10)[177]0[167]n[178]n[171]10:[137]170
  11. 320 [139]z$[178]"e"[167][153]"neustart mit 'run'!":[128]
  12. 330 [139]z$[178][199](135)[167]u[178]13:[137]360
  13. 340 [139]z$[178][199](136)[167]u[178]131:[137]360
  14. 350 [137]290
  15. 360 [153]"program #";:[133]s$:s[178][197](s$):[139]s[179]1[176]s[177]x[167]160
  16. 390 [139][195](p$(s))[177]12[167]p$(s)[178][200](p$(s),12)[170]"*
  17. 400 print"[147][144]load"+chr$(34)+p$(s)+chr$(34)+",8";:poke631,19:poke632,u:poke198,2:end
  18. 420 open15,lw,15:input#15,aa,bb$,cc,dd:ifaa<>0thenclose2:close15:return
  19. 450 return
  20. 460 open2,lw,2,"- menue -,s,r":gosub420:ifaa<>0thenprint"[147]":end
  21. 470 x=0
  22. 480 input#2,p$(x):ifst<>64thenx=x+1:goto480
  23. 500 close2:close15:return
  24.