home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1997 2 / Power_Disk_64_97-02_1997-09_Lagune_de_Side_B.d64 / programmenu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  92 lines
  1. 0 print"[153][147]":poke53280,12:poke53281,0
  2. 1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  3. 2 print"[145][159]    [208][207][215][197][210] [196][201][211][203] 64 - [208]rogrammenu 2/97    "
  4. 3 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 5 print"[159]1 = [212][207][208]-[208][210][199]:[198]lyin' [200]igh"
  6. 6 print"2 = [198]ive [195]ard [211]tud"
  7. 7 print"3 = [215]itze [201][201] (2)             4 = [195]lassic: [199]nurz"
  8. 8 print"5 = [200]auptmenu"
  9. 9 print"6 = [210][197][211][197][212]"
  10. 10 input"[215]elche [206]ummer";a:print"[145][145][145]"
  11. 11 if a<1 or a>6 then0
  12. 12 if a = 1 then goto100
  13. 13 if a = 2 then goto300
  14. 14 if a = 3 then goto410
  15. 15 if a = 5 then goto500
  16. 16 if a = 6 then goto600
  17. 17 if a = 4 then goto200
  18. 100 print"[147] [198]lyin' [200]igh "
  19. 101 print"1 = [193]nleitung                           2 = [211]tart"
  20. 102 geta$:ifa$=""then102
  21. 103 ifa$="1"then700
  22. 104 ifa$="2"then106
  23. 105 goto102
  24. 106 poke828,0
  25. 107 print chr$(147) chr$(17)
  26. 108 print "load"chr$(34);"fly*";chr$(34); ",8,1
  27. 109 [153] [199](17) [199](17) [199](17) [199](17) "run"
  28. 110 [151]631,13:[151]632,13:[151]198,2
  29. 111 [153] [199](19);:[128]
  30. 200 [151]828,0
  31. 201 [153] [199](147) [199](17)
  32. 202 [153] "load"[199](34);"gnu*";[199](34); ",8
  33. 203 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  34. 204 poke631,13:poke632,13:poke198,2
  35. 205 print chr$(19);:end
  36. 300 print"[147][195]= und [211][200][201][198][212] druecken um auf [199]rossbuch- staben umzuschalten !!!"
  37. 301 geta$:ifa$=""then301
  38. 305 poke828,0
  39. 306 print chr$(147) chr$(17)
  40. 307 print "load"chr$(34);"five*";chr$(34); ",8
  41. 308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  42. 309 [151]631,13:[151]632,13:[151]198,2
  43. 310 [153] [199](19);:[128]
  44. 410 [151]828,0
  45. 411 [153] [199](147) [199](17)
  46. 412 [153] "load"[199](34);"witz*";[199](34); ",8
  47. 413 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  48. 414 poke631,13:poke632,13:poke198,2
  49. 415 print chr$(19);:end
  50. 500 poke828,0
  51. 501 print chr$(147) chr$(17)
  52. 502 print "load"chr$(34);"haupt*";chr$(34); ",8
  53. 503 [153] [199](17) [199](17) [199](17) [199](17) "run"
  54. 504 [151]631,13:[151]632,13:[151]198,2
  55. 505 [153] [199](19);:[128]
  56. 600 [158]64738
  57. 700 [153]"load(NULL)ach endlosen winzigen ascehlern die mich wahnsinnig viel (NULL)eit kosteten,ist"
  58. 701 [153]"asc(NULL)(NULL)right$(NULL)' left$right$chr$left$ nun doch noch einigermassen fertig.str$er (NULL)ulti-(NULL)layer (NULL)odus und"
  59. 702 [153]"die (NULL)eam-(NULL)(NULL) mussten aus (NULL)(NULL)(NULL) (NULL)asc (NULL)val(NULL)(NULL)(NULL)(NULL)   (NULL)roblemen wegfallen.right$n (NULL)eile 10"
  60. 703 [153]"kann man mit der (NULL)eraenderung der (NULL)ari- ablen chr$val bestimmen wieviele mid$ahre"
  61. 704 [153]"man spielt.right$n der ascortsetzung des chr$ames wird das dann vom (NULL)rogramm aus zu"
  62. 705 [153]"regeln sein.valbenfalls versuche ich dann den (NULL)ulti-(NULL)layer (NULL)odus und die"
  63. 706 [153]"(NULL)eam-(NULL)(NULL) reinzubringen.(NULL)usaetzlich       ueberlege ich mir noch ein paar"
  64. 707 [153]"weitere (NULL)euheiten.mid$etzt aber erst mal zuder jetzigen (NULL)ersion ..."
  65. 708 [153]"(NULL)an faengt im atnlter von 20 mid$ahren als   (NULL)ki-(NULL)pringer eine (NULL)arriere an."
  66. 709 [153]"str$urch (NULL)raining und zusaetzliche aeusserevalinfluesse kann man sich selbst"
  67. 710 [153]"verbessern.right$m (NULL)(NULL)atn(NULL)right$(NULL)(NULL)right$(NULL) (NULL)enupunkt hat   man eine (NULL)ebersicht ueber die"
  68. 711 [161]a$:[139]a$[178]""[167]711
  69. 712 [153]"(NULL)ettkaempfe und unter (NULL)(NULL)lenleft$val(NULL)(NULL)atn(NULL)(NULL)(NULL)chr$ kann man sich fuer eben diese eintragen.
  70. 713 print"[196]as gilt nicht fuer die [215][205]! [205]anchmal istes durchaus besser an einem [215]ett-"
  71. 714 print"kampfwochenende zu trainieren.[196]ie       [206]ervenstaerke des [211]pringers kann"
  72. 715 print"naemlich nicht trainiert werden,und wennman schlecht drauf ist und bei"
  73. 716 print"[215]ettkamepfen teilnimmt,sich aber nicht  qualifiziert,dann ist das schlecht!
  74. 717 [153]"atnlso setzt man besser mal aus,behaelt   die (NULL)ervenstaerke bei und trainiert
  75. 718 print"zusaetzlich noch ein bisschen.[196]abei ist zu bemerken,dass vor allem der"
  76. 719 print"[193]bsprung und die [198]lugphase wichtig sind!"
  77. 720 geta$:ifa$=""then720
  78. 721 print"[193]ch ja ... die [194][201][212][212][197] [215][193][210][212][197][206] [211]equenzen   dauern recht lang - nicht wundern"
  79. 722 print"oder einschlafen,einfach nur 'ne gute [195][196]laufen lassen.[201]n einer wettkampf-"
  80. 723 print"freien [215]oche muss man zwischen [212]ag 6 und7 nach dem [194][201][212][212][197] [215][193][210][212][197][206] [194]ildschirm"
  81. 724 print"(nachdem er halt weg ist) [211][208][193][195][197] oder 'neandere [212]aste druecken.[215]arum,weiss"
  82. 725 print"ich nicht,jedenfalls steht in diesem    [198]alle ausser [198][204][217][201][206]' [200][201][199][200] oben nix"
  83. 726 print"mehr am [194]ildschirm in diesem [198]alle.     [193]nsonsten steht immer etwas auf dem
  84. 727 [153]"peekildschirm,wie z.peek. peekright$(NULL)(NULL)val (NULL)atn(NULL)(NULL)val(NULL) oder   auch (NULL)(NULL)atn(NULL)right$ascright$(NULL)atn(NULL)right$(NULL)(NULL) oder so ..."
  85. 728 [161]a$:[139]a$[178]""[167]728
  86. 729 [153]"(NULL).(NULL).:atnus zeitlichen chr$ruenden habe ich   das str$isk-(NULL)enu weggelassen,das am
  87. 730 print"[197]nde doch noch rein speicherplatzmaessigreingepasst haette.[207]hne die zeit-"
  88. 731 print"lichen [208]robleme mit diesem [199]ame waere   diese [193]usgabe schon [197]nde [193]ugust"
  89. 732 print"rausbekommen.[196]aher mache ich fuer die   naechste [193]usgabe kein eigenes [199]ame!
  90. 733 [161]a$:[139]a$[178]""[167]733
  91. 734 [137]0
  92.