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