home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 42 / 64er_Magazin_Sonderheft_42_19xx_Markt__Technik_de_Side_A.d64 / blockbusters (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  935 b   |  31 lines
  1. 100 rem *******************************
  2. 105 rem *                             *
  3. 110 rem *        blockbusters         *
  4. 115 rem *                             *
  5. 120 rem * (c)1987 by michael stickler *
  6. 125 rem *                             *
  7. 130 rem *   elsa-braendstroemstr.30   *
  8. 135 rem *                             *
  9. 140 rem *    6500 mainz-gonsenheim    *
  10. 145 rem *                             *
  11. 150 rem *      tel.:06131/688986      *
  12. 155 rem *                             *
  13. 160 rem *******************************
  14. 165 :
  15. 170 :
  16. 175 :
  17. 200 a=a+1
  18. 210 if a=1 then load "teil 1",8,1
  19. 220 if a=2 then sys 12288
  20. 230 if a=2 then load "teil 2",8,1
  21. 240 :
  22. 250 print"[147][156] do you want to change speed of ball? n[157]";
  23. 255 gosub300:if a$="n" then sys 12288
  24. 260 ifa$<>"y"then 250
  25. 265 print"[156] normal speed of ball? 15[157][157]";:gosub300:poke14117,w:poke 16928,w
  26. 270 print"[156] after reaching top? 10[157][157]";:gosub300:poke16098,w
  27. 275 print"[156] after 's' has been caught? 20[157][157]";:gosub300:poke17065,w
  28. 290 sys 12288
  29. 295 :
  30. 300 poke204,0:open 1,0:input#1,a$:close 1:print:w=val(a$):return
  31.