home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / vertint (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  45 lines
  1. 10 ifa=0thena=1:load"skycha*",8,1
  2. 20 ifa=1thena=2:load"ship-*",8,1
  3. 30 ifa=2thena=3:load"skyscr*",8,1
  4. 40 ifa=3thena=4:load"skybak*",8,1
  5. 50 ifa=4thena=5:load"2vertint",8,1
  6. 60 poke53272,(peek(53272)and240)or2
  7. 70 poke53270,peek(53270)or16
  8. 80 poke53280,0:poke53281,0
  9. 90 sys49152
  10. 100 poke649,1:poke650,128:poke53276,3
  11. 110 poke53286,1:poke53285,11
  12. 120 poke53287,15:poke53288,15:poke53289,15
  13. 130 a=0:ti$="000000"
  14. 140 poke53269,3:poke2041,59:poke53251,0
  15. 150 poke53249,220:poke2040,61
  16. 160 poke53248,128:p=128:poke53278,0
  17. 170 geta$:c%=rnd(1)*5+3:poke53288,c%
  18. 180 ifa$=","thenp=p-6:a=0:poke53248,p:poke2040,60:ifp<35thenp=35
  19. 190 ifa$="."thenp=p+6:a=0:poke53248,p:poke2040,62:ifp>247thenp=247
  20. 200 ifa$=""thena=a+1:ifa=3thena=0:poke2040,61
  21. 210 ifr=0thenx=0:r=1:gosub360
  22. 220 x=x+15
  23. 240 ifx>250thenr=0:x=0:poke53269,1
  24. 250 poke53269,3:poke53251,x:ifv<>0theny=(y-v)and255:poke53250,y
  25. 260 ifpeek(53278)=3thensc=sc+10:gosub400:r=0
  26. 270 ifti$<"000100"then170
  27. 280 sys 51200
  28. 290 poke53272,21
  29. 300 poke53270,200
  30. 310 print"you scored"sc"points"
  31. 320 print"do you want to play again? (y/n)
  32. 321 [151]53251,180:[151]2040,61
  33. 322 [129]q[178]220[164]150[169][171]1:[151]53249,q:[130]:[129]q[178]p[164]100[169][171]1:[151]53248,q:[130]
  34. 330 [161]a$:[139]a$[178]"y"[167] [138]
  35. 340 [139]a$[178]"n"[167] [151]53269,0:[153]"loadcont";:[151]53280,14:[151]53281,6:[128]
  36. 350 [137]330
  37. 360 y[178][181]([187](1)[172]181[170]50):[151]53269,1:[151]53251,x:[151]53250,y
  38. 370 [151]53269,3:[139]y[173]8[178][181](y[173]8)[167]v[178]8:[142]
  39. 380 [139]y[173]5[178][181](y[173]7)[167]v[178][171]8:[142]
  40. 390 v[178]0:[142]
  41. 400 [151]2040,61:[151]53269,1:[129]g[178]1[164]16:[151]53267,([194](53287)[170]1)[175]15
  42. 410 [151]53286,([194](53286)[170]1)[175]15
  43. 420 [151]53285,([194](53285)[170]1)[175]15
  44. 430 [130]:[151]53278,0:[142]
  45.