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 >
Commodore BASIC  |  2023-02-26  |  992b  |  41 lines
  1. 10 lw=peek(186):dimp$(150)
  2. 20 print"":poke53280,0:poke53281,0:gosub460
  3. 160 n=10
  4. 170 print"[147][159] tc praesentiert   [146][158]";
  5. 180 print"  ";left$(p$(0),9);"":print
  6. 190 ifn<10thenn=10
  7. 200 ifn>145thenn=145
  8. 210 forj=(n-9)ton:ifj<=xthenprintj;"- ";p$(j)
  9. 220 ifj>xthenprint"kein weiterer eintrag!":j=n
  10. 230 next
  11. 240 print"---> [157][157][157][157][157]     [159]f1[146] weiter    [146]";
  12. 250 print"    [159]f3[146] zurueck  [146]"
  13. 260 print"     [159]e[146][158]nde         [146]";
  14. 270 print"    [159]f5[146][158] laden    [146]"
  15. 280 print"     [159]f7[146] laden + starten [146]"
  16. 290 z$="":getz$:ifz$=""then290
  17. 300 ifz$=chr$(133)andn<xthenn=n+10:goto170
  18. 310 ifz$=chr$(134)and(n-10)>0thenn=n-10:goto170
  19. 320 ifz$="e"thenprint"neustart mit 'run'!":end
  20. 330 ifz$=chr$(135)thenu=13:goto360
  21. 340 ifz$=chr$(136)thenu=131:goto360
  22. 350 goto290
  23. 360 print"program #";
  24. 370 inputs$:s=val(s$)
  25. 380 ifs<1ors>xthen160
  26. 390 iflen(p$(s))>12thenp$(s)=left$(p$(s),12)+"*"
  27. 400 print"[147][144]load"+chr$(34)+p$(s)+chr$(34)+",8";
  28. 410 poke631,19:poke632,u:poke198,2:end
  29. 420 open15,lw,15
  30. 430 input#15,aa,bb$,cc,dd
  31. 440 ifaa<>0thenclose2:close15:return
  32. 450 return
  33. 460 open2,lw,2,"- menue -,s,r":gosub420:ifaa<>0thenprint"[147]":end
  34. 470 x=0
  35. 480 input#2,p$(x)
  36. 490 ifst<>64thenx=x+1:goto480
  37. 500 close2:close15:return
  38. 540 getau$:ifau$<>"j"andau$<>"n"then540
  39. 550 ifau$="n"thenx=x-1
  40. 560 return
  41.