home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 29 / Commodore_Disc_29_19xx_-_de.d64 / demo-menue (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  36 lines
  1. 10 rem demo-menue
  2. 20 rem by alex
  3. 30 print"[147][153]               [196]emo-[205]enue               [146]":poke53272,23
  4. 32 poke53280,0:poke53281,0
  5. 40 print"[145]       (c) 1989 by [193]lexander [203]lar       [146]"
  6. 50 print"[151][215]elches [196]emo darf geladen werden ?"
  7. 60 printtab(10)" ([153]1). [158][194]efehl : 4.6"
  8. 61 printtab(10)" ([153]2). [158]  ''   : 4.7"
  9. 62 printtab(10)" ([153]3). [158]  ''   : 4.8"
  10. 63 printtab(10)" ([153]4). [158]  ''   : 4.9"
  11. 64 printtab(10)" ([153]5). [158]  ''   : 4.10"
  12. 65 printtab(10)" ([153]6). [158]  ''   : 4.14"
  13. 66 printtab(10)" ([153]7). [158]  ''   : 4.15"
  14. 80 print"[151]([196]as [196]emo-[205]enue sieht relativ aufge-"
  15. 90 print"[152]reaumt aus,weil ich mich auf die um-"
  16. 100 print"[155]fangreichsten [194]efehle beschreankt habe.)"
  17. 110 geta
  18. 120 onagoto200,300,400,500,600,700,800
  19. 130 goto110
  20. 200 gosub1000
  21. 210 print"befehl 4.6 wird geladen...":load"order 4.6",8:run
  22. 300 gosub1000
  23. 310 print"befehl 4.7 wird geladen...":load"order 4.7",8:run
  24. 400 gosub1000
  25. 410 print"befehl 4.8 wird geladen...":load"order 4.8",8:run
  26. 500 gosub1000
  27. 510 print"befehl 4.9 wird geladen...":load"order 4.9",8:run
  28. 600 gosub1000
  29. 610 print"befehl 4.10 wird geladen...":load"order 4.10",8:run
  30. 700 gosub1000
  31. 710 print"befehl 4.14 wird geladen...":load"order 4.14",8:run
  32. 800 gosub1000
  33. 810 print"befehl 4.15 wird geladen...":load"order 4.15",8:run
  34. 1000 rem unterprogramm
  35. 1010 print"[147]":poke53272,21:poke53280,14:poke53281,6:return
  36.