home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 November / 1988-11.d64 / quolerus (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  62 lines
  1. 10 rem copyright 1988 compute! publications, inc.  all rights reserved
  2. 20 print"[147][154]           copyright 1988":print"      compute! publications, inc."
  3. 30 print"         all rights reserved"
  4. 50 ifl=0thenl=1:load"quolerus.spr",8,1
  5. 60 ifl=1thenl=2:load"quolerus.ml",8,1
  6. 70 poke52,32:poke56,32:clr:goto460
  7. 80 sh=3:en=0:wa=2:le=0:ns=1:sc=0:sl=1
  8. 90 fori=53047to53052:pokei,48:next
  9. 100 poke53280,0:poke53281,0:goto250
  10. 110 v=53248
  11. 120 pokev,250:pokev+1,200:pokev+39,1:poke2040,199
  12. 130 pokev+4,65:pokev+5,150:pokev+41,5:pokev+23,4:pokev+29,4
  13. 140 print"";sh
  14. 150 sys 49152
  15. 160 z=peek(53278):z=peek(53279)
  16. 170 sc$=""
  17. 180 fori=53047to53052:rem cf37-cf3c
  18. 190 sc$=sc$+chr$(peek(i))
  19. 200 next
  20. 210 sc=val(sc$):ifsc>=10000*nsthensh=sh+1:ns=ns+1
  21. 220 ifpeek(53007)=16thengoto250
  22. 230 sh=sh-1:ifsh=0then460
  23. 240 goto110
  24. 250 le=le+1:poke53031,0:poke53058,0:rem cf27, cf42
  25. 260 ifle>10thensl=sl+1:le=8:goto320
  26. 270 ifle>7thensl=3:goto290
  27. 280 ifle>4thensl=2
  28. 290 onslgoto300,310,320
  29. 300 wa=2:en=le+2:goto330
  30. 310 wa=4:en=le-1:goto330
  31. 320 wa=6:en=le-4
  32. 330 fori=ento3step-1
  33. 340 poke53031,peek(53031)or2^i:rem cf27
  34. 350 next
  35. 360 poke53022,wa:ifen>=5thenpoke53058,2^en
  36. 370 x=1039:y=55311:c=1:k=0
  37. 380 fors=1to25
  38. 390 fori=0towa+1
  39. 400 pokex+i,224:pokey+i,c
  40. 410 next
  41. 420 x=x+40:y=y+40
  42. 430 k=k+1:ifk>=3thenk=0:c=c+1:ifc>15thenc=1
  43. 440 next
  44. 450 goto110
  45. 460 poke53280,0:poke53281,0:print"[147]";
  46. 470 print"[159]    [169] [223][146]   [146]  [146] [169] [223][146] [169][146]   [169] [223][146]   [223][146]  [146]  [146] [169] [223][146]"
  47. 480 print"     [146]  [146]   [146]  [146]  [146]  [146]  [146]    [146]    [146]  [146]  [146]  [146]  [146]"
  48. 490 print"     [146]  [146]   [146]  [146]  [146]  [146]  [146]     [146]    [146][169]  [146]  [146] [223] [223][146]"
  49. 500 print"     [146][223] [146]   [146]  [146]  [146]  [146]  [146]    [146]    [146][223][223][146]  [146]  [146]    [146]"
  50. 510 print"    [223] [146][223][223][146] [223] [146][169] [223] [146][169] [223] [146][169] [223] [146][169]  [146] [223] [223] [146][169] [223] [146][169]"
  51. 520 fors=1to2500:next
  52. 530 print"quolerus is based on"
  53. 540 print"yar's revenge"
  54. 550 print"copyright 1981 atari corp."
  55. 560 print"with permission from"
  56. 570 print"atari corporation."
  57. 580 print"score:";sc$
  58. 590 print"press trigger to begin"
  59. 600 ifpeek(56320)=111thenprint"[147]":run80
  60. 610 sys 52016
  61. 620 fors=1to50:next:goto600
  62.