home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 22 / Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_B.d64 / menue (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  46 lines

  1. 1 poke45,peek(174):poke46,peek(175):clr
  2. 20 poke53280,0:poke53281,0:print"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  3. 30 print"[194][155]         h a u p t m e n u e          [146][194]";
  4. 40 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":x=28:y=73
  5. 50 printspc(4)"1     [154]musik + geraeusche":a1$="musik + geraeusche"
  6. 60 printspc(4)"2     [154]rahmen - muster":a2$="rahmen - muster"
  7. 70 printspc(4)"3     [154]eignerzeichen":a3$="eignerzeichen"
  8. 80 printspc(4)"4     [154]farbdemos":a4$="farbdemos"
  9. 90 printspc(4)"5     [154]bewegungen":a5$="bewegungen"
  10. 100 printspc(4)"6     [154]routinen":a6$="routinen"
  11. 110 printspc(4)"7     [154]menue-teile":a7$="menue-teile"
  12. 111 printspc(4)"8     [154]sammlung rechenaufgaben":a8$="sammlung rechenaufgaben"
  13. 112 printspc(4)"9     [154]sammlung textaufgaben":a9$="sammlung textaufgaben"
  14. 120 v=53248:pokev+21,4:poke2042,13:forn=0to62:readq:poke832+n,q:next:pokev+41,7
  15. 130 pokev+4,x:pokev+5,y
  16. 140 data255,252,0,0,2,0,0,1,0,0,0,128,0,0,64,0,0,32,0,0,16,136,145,40,144,145
  17. 150 data36,160,145,34,192,241,225,160,145,34,144,145,36,138,149,40,0,0,16,0,0
  18. 160 data32,0,0,64,0,0,128,0,1,0,0,2,0,255,252,0
  19. 170 gete$:ife$=""then170
  20. 180 ife$=chr$(17)theny=y+17:goto220
  21. 190 ife$=chr$(145)theny=y-17:goto240
  22. 200 ife$=chr$(13)then260
  23. 210 goto170
  24. 220 ify>209theny=73
  25. 230 goto130
  26. 240 ify<73theny=209
  27. 250 goto130
  28. 260 ify=73andpeek(1188)=49thenpokev+21,0:a$="b1":goto330
  29. 270 ify=90andpeek(1268)=50thenpokev+21,0:a$="b2":goto330
  30. 280 ify=107andpeek(1348)=51thenpokev+21,0:a$="b3":goto330
  31. 290 ify=124andpeek(1428)=52thenpokev+21,0:a$="b4":goto330
  32. 300 ify=141andpeek(1508)=53thenpokev+21,0:a$="b5":goto330
  33. 310 ify=158andpeek(1588)=54thenpokev+21,0:a$="b6":goto330
  34. 320 ify=175andpeek(1668)=55thenpokev+21,0:a$="b7":goto330
  35. 321 ify=192andpeek(1748)=56thenpokev+21,0:a$="b8":goto330
  36. 322 ify=209andpeek(1828)=57thenpokev+21,0:a$="b9":goto330
  37. 330 pokev+21,0
  38. 20000 poke53280,14:poke53281,6:poke646,6
  39. 20010 print"[147]"
  40. 20030 print"poke 636,13:poke 198,7"
  41. 20040 print"load";chr$(34);a$;chr$(34);",8,1"
  42. 20051 print"run"
  43. 20052 poke631,19:poke632,13:poke633,13:poke634,13
  44. 20053 poke635,13:poke636,13:poke637,13
  45. 20054 poke198,7
  46.