home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_A.d64 / menue (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  49 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]schriften  * teil 1":a1$="schriften * teil 1"
  6. 60 printspc(4)"2     [154]schriften  * teil 2":a2$="schriften * teil 2"
  7. 70 printspc(4)"3     [154]schriften  * teil 3":a3$="schriften * teil 3"
  8. 80 printspc(4)"4     [154]bilder     * teil 1":a4$="bilder * teil 1"
  9. 90 printspc(4)"5     [154]bilder     * teil 2":a5$="bilder * teil 2"
  10. 100 printspc(4)"6     [154]bilder     * teil 3":a6$="bilder * teil 3"
  11. 110 printspc(4)"7     [154]bilder     * teil 4":a7$="bilder * teil 4"
  12. 111 printspc(4)"8     [154]bilder     * teil 5":a8$="bilder * teil 5"
  13. 112 printspc(4)"9     [154]bilder     * teil 6":a9$="bilder * teil 6"
  14. 113 rem    print""
  15. 114 printtab(3)"mit cursor '^' crsr (links) waehlen"
  16. 115 printtab(3)"mit  return [146] programm laden.[145]"
  17. 120 v=53248:pokev+21,4:poke2042,13:forn=0to62:readq:poke832+n,q:next:pokev+41,7
  18. 130 pokev+4,x:pokev+5,y
  19. 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
  20. 150 data36,160,145,34,192,241,225,160,145,34,144,145,36,138,149,40,0,0,16,0,0
  21. 160 data32,0,0,64,0,0,128,0,1,0,0,2,0,255,252,0
  22. 170 gete$:ife$=""then170
  23. 180 ife$=chr$(17)theny=y+17:goto220
  24. 190 ife$=chr$(145)theny=y-17:goto240
  25. 200 ife$=chr$(13)then260
  26. 210 goto170
  27. 220 ify>209theny=73
  28. 230 goto130
  29. 240 ify<73theny=209
  30. 250 goto130
  31. 260 ify=73andpeek(1188)=49thenpokev+21,0:a$="b1":goto330
  32. 270 ify=90andpeek(1268)=50thenpokev+21,0:a$="b2":goto330
  33. 280 ify=107andpeek(1348)=51thenpokev+21,0:a$="b3":goto330
  34. 290 ify=124andpeek(1428)=52thenpokev+21,0:a$="b4":goto330
  35. 300 ify=141andpeek(1508)=53thenpokev+21,0:a$="b5":goto330
  36. 310 ify=158andpeek(1588)=54thenpokev+21,0:a$="b6":goto330
  37. 320 ify=175andpeek(1668)=55thenpokev+21,0:a$="b7":goto330
  38. 321 ify=192andpeek(1748)=56thenpokev+21,0:a$="b8":goto330
  39. 322 ify=209andpeek(1828)=57thenpokev+21,0:a$="b9":goto330
  40. 330 pokev+21,0
  41. 20000 poke53280,14:poke53281,6:poke646,6
  42. 20010 print"[147]"
  43. 20030 print"poke 636,13:poke 198,7"
  44. 20040 print"load";chr$(34);a$;chr$(34);",8,1"
  45. 20051 print"run"
  46. 20052 poke631,19:poke632,13:poke633,13:poke634,13
  47. 20053 poke635,13:poke636,13:poke637,13
  48. 20054 poke198,7
  49.