home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / VORTEX (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.0 KB  |  133 lines
  1. 0 REM   Q-LINK DISK # 18 - WDS2
  2. 5 PRINT"[147] WAIT...
  3. 10 [151]55,0:[151]56,62:[151]51,0:[151]52,62:[156]:CK[178]0:[129]I[178]15936[164]16383
  4. 20 [135]A:[151]I,A:CK[178]CK[170]A:[130]
  5. 30 [141]1300
  6. 40 [134]X(127),Y(127):[129]I[178]1[164]8:[135]J,X,Y:X(J)[178]X:Y(J)[178]Y:X(J[171]16)[178]X:Y(J[171]16)[178]Y:[130]
  7. 50 SH[178]3:T1[178]54277:T2[178]54278:T3[178]54272:T4[178]54273:T5[178]54276:HT[178]1
  8. 60 V[178]53248:[151]V[170]21,255:[151]V[170]39,7:[151]V[170]29,255:S0[178]1:S1[178]5:S2[178].8:S3[178]1:S4[178]4
  9. 70 [153][199](142)"LOAD":[151]53280,0:[151]53281,0:[141]1000:[141]1100
  10. 80 [151]2040,255:[151]2041,252:[151]2042,251:[151]54296,15
  11. 90 X[178]160:Y[178]140:AX[178]160:AY[178]0:IX[178][171](S1)[173]2[170][187](1)[172]S1:IY[178].5[170][187](1)[172]S2:CO[178]2
  12. 100 [151]V,X:[151]V[170]1,Y
  13. 110 J[178][194](56320):X[178]X[170]X(J):Y[178]Y[170]Y(J)
  14. 120 [139]X[179]60[167]X[178]X[170]5
  15. 125 [139]X[177]255[167]X[178]X[171]5
  16. 130 [139]Y[179]80[167]Y[178]Y[170]5
  17. 135 [139]Y[177]215[167]Y[178]Y[171]5
  18. 140 [139]J[179]117[167]200
  19. 150 [139]X[177]AX[171]2[175]X[179]AX[170]12[175]AY[177]Y[170]3[175]AY[179]Y[170]10[167]400
  20. 160 [137]300
  21. 170 [137]100
  22. 200 [151]T5,128
  23. 210 [151]2040,253
  24. 220 [151]T1,9:[151]T2,2:[151]T4,30:[151]T3,30:[151]T5,129
  25. 230 [139]AX[177]X[171]25[175]AX[179]X[170]30[175]AY[177]Y[171]10[175]AY[179]Y[170]8[167]500
  26. 240 [151]2040,255
  27. 250 [137]150
  28. 300 [151]V[170]2,AX:[151]V[170]3,AY
  29. 310 AX[178]AX[170]IX:AY[178]AY[170]IY
  30. 320 [139]AX[179]34[176]AX[177]240[167]IX[178][171]IX
  31. 330 [139]AY[179]240[167]350
  32. 340 AI[178]AI[170]1:S1[178]S1[170].4:S2[178]S2[170].4:[141]360:[139]AI[177]9[167]T6[178]0:[137]1400
  33. 350 [137]170
  34. 360 AY[178]0:AX[178]50[170][181]([187](1)[172]150)
  35. 370 [139]AX[179]100[167]IX[178]S1[173]2[170][187](1)[172]S1:[137]390
  36. 380 IX[178][171](S1)[173]2[170][187](1)[172]S1
  37. 390 IY[178].5[170][187](1)[172]S2:[141]1100:[142]
  38. 400 [151]T5,0:[151]T1,13:[151]T2,2:[151]T3,4:[151]T4,4:[151]T5,129
  39. 410 [151]V[170]23,1:[129]I[178]1[164]20:[151]53281,1:[151]2040,249:[151]V[170]39,[187](1)[172]15
  40. 420 [129]O[178]1[164]100:[130]:[151]53281,0:[129]O[178]1[164]100:[130]:[130]
  41. 430 SH[178]SH[171]1:[141]1100:[129]I[178]1[164]1000:[130]:[151]V,0:[151]V[170]1,0:[151]V[170]2,0
  42. 440 [151]V[170]3,0:[141]360:X[178]160:Y[178]140:[151]2040,255:[151]V[170]39,7:HT[178]1
  43. 450 [139]SH[179]1[167]T6[178]1:[137]1400
  44. 460 [151]V[170]23,0
  45. 470 [137]100
  46. 500 [151]2040,254:[151]V[170]40,1
  47. 510 [151]T5,128
  48. 520 [151]T1,9:[151]T2,2:[151]T3,5:[151]T4,5:[151]T5,129
  49. 530 HT[178]HT[170]1:[139]HT[177]S4[167]HT[178]1:[137]550
  50. 540 [151]V[170]40,CO:[151]2040,255:[137]250
  51. 550 [151]V[170]23,254:[151]V[170]29,255
  52. 560 [151]2041,249:[151]V[170]40,9
  53. 570 [151]T5,0:[151]T3,1:[151]T4,1:[151]T1,9:[151]T2,8
  54. 580 [151]T5,129
  55. 590 [129]O[178]AY[164]0[169][171]1:[151]V[170]2,AX:[151]V[170]3,O:[130]:[141]360
  56. 600 [151]2041,250[170][181]([187](1)[172]2):CO[178][187](1)[172]7:[151]V[170]40,CO:[151]V[170]23,0
  57. 610 SC[178]SC[170]25:[141]1100
  58. 620 S3[178]S3[170]1:[139]S3[177]5[167]S3[178]1:[151]V,0:[151]V[170]1,0:[151]V[170]2,0:[151]V[170]3,0:[137]1200
  59. 630 [137]540
  60. 1000 [151]53265,[194](53265)[175]239
  61. 1020 [129]I[178]1[164]50:X[178]1024[170]([187](1)[172]40)[170]40[172]([187](1)[172]23):[151]X,46:[151]X[170]54272,1:[130]
  62. 1040 [153]"CLRSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  63. 1050 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  64. 1060 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  65. 1070 [153]"TOTOTOTOTOANDANDANDANDANDPOSPOSPOSPOSPOSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWPOSPOSPOSPOSPOSANDANDANDANDANDTOTOTOTOTO";
  66. 1080 [153]"TAB(TAB(TAB(TAB(TAB(USRUSRUSRUSRUSRFREFREFREFREFRENEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITFREFREFREFREFREUSRUSRUSRUSRUSRTAB(TAB(TAB(TAB(TAB("
  67. 1090 [151]53265,[194](53265)[176]16
  68. 1100 [153]" DEF(null) SCORE";SC;"CMDDEF (null) SHIPS";SH;"CMD ";
  69. 1110 [153]"DEF(null) ALIENS";AI;"CMDDEF (null)";
  70. 1120 [142]
  71. 1200 S1$[178]"":S2$[178]S1$
  72. 1210 [129]I[178]1[164]12:[153]""S1$;"                                        "
  73. 1220 [153]""S2$;"                                        ";
  74. 1230 S1$[178][200](S1$,[195](S1$)[171]1):S2$[178]S2$[170]""
  75. 1240 [130]:S0[178]S0[170]1
  76. 1250 [151]53280,1:[151]53281,1:[153]"LOADWAITSTOPATTACK WAVE HAS BEEN DESTROYED"
  77. 1255 [153]""[166]14)"BONUS ";(S0[171]1)[172]100:SC[178]SC[170](S0[171]1)[172]100
  78. 1260 [153]"ATTACK WAVE #";S0;"ON RADAR,CLOSING FAST:"
  79. 1270 S1[178]S1[170].8:S2[178]S2[170].6:S4[178]S4[170]1:[139]S4[177]10[167]S4[178]10
  80. 1280 [151]T5,0:[151]T1,128:[151]T2,128:[151]T5,33:[129]I[178]1[164]25
  81. 1290 [129]O[178]10[164]50[169]5:[151]T3,O:[151]T4,O[170]I[172]2:[130]:[130]:[151]T5,0:[137]70
  82. 1300 [129]I[178]54272[164]54296:[151]I,0:[130]:[151]53269,0
  83. 1310 [151]53281,9:[151]53280,10:[153]"LOADSYS"[166]14)"(null)HE (null)(null)(null)(null)VAL(null)"
  84. 1312 [153]" DEF(null)OU HAVE THREE SHIPS - (null)SE JOYSTICK IN
  85. 1314 PRINT" PORT TWO TO MOVE SHIP - FIRE BUTTON TO
  86. 1316 [153]" FIRE.(null)OU MUST GET UP CLOSE AND HIT THE
  87. 1318 PRINT" ALIEN SHIP MID-CENTER. [194]UT WATCH IT,
  88. 1320 [153]" IF YOU GET TO CLOSE YOU WILL EXPLODE.
  89. 1322 PRINT" [201]F TEN ALIEN SHIPS GET BY YOU AND GO
  90. 1324 [153]" TO THE BOTTOM OF THE SCREEN, THE GAME
  91. 1326 PRINT" IS OVER. [212]HE PLAY IS SLOW AT THE FIRST
  92. 1328 [153]" FEW ROUNDS BUT GETS FASTER.
  93. 1385 PRINT"         [208]RESS <[211][208][193][195][197]> TO PLAY"
  94. 1390 GETA$:IFA$<>" "THEN1390
  95. 1395 RETURN
  96. 1400 POKEV+21,0:POKEV,0:POKEV+1,0:POKEV+2,0:POKEV+3,0
  97. 1410 POKE53280,7:POKE53281,9
  98. 1420 PRINT"[147][150]"
  99. 1430 IFT6=1THENPRINT"       YOU BLEW UP YOUR LAST SHIP !":GOTO1450
  100. 1440 PRINT"  THE ALIENS HAVE OVER RUN THE GALAXY !"
  101. 1450 PRINT"               GAME  OVER"
  102. 1460 PRINT"            FINAL SCORE : ";SC
  103. 1470 FORI=1TO7000:NEXT:RUN
  104. 15936 DATA 2,2,1,64,0,98,35,60,156,12,195,2,30,145,141,101
  105. 15952 DATA 162,83,64,0,33,157,221,21,149,85,181,221,85,85,149,85
  106. 15968 DATA 17,157,221,21,192,0,65,227,73,35,166,41,14,89,2,241
  107. 15984 DATA 48,252,30,8,0,64,16,16,49,32,8,8,0,0,0,0
  108. 16000 DATA 0,24,0,0,126,0,3,255,192,4,195,32,8,126,16,16
  109. 16016 DATA 0,8,63,255,252,64,0,2,139,255,209,130,36,65,178,24
  110. 16032 DATA 77,130,36,65,146,66,73,130,153,65,67,0,194,63,255,252
  111. 16048 DATA 15,24,224,0,0,0,0,0,0,0,0,0,0,0,0,255
  112. 16064 DATA 0,0,0,1,195,128,6,36,96,24,36,24,96,195,6,115
  113. 16080 DATA 129,206,255,219,255,113,255,14,1,129,128,6,36,96,24,195
  114. 16096 DATA 24,103,255,230,248,0,31,128,129,1,148,153,41,128,0,1
  115. 16112 DATA 127,255,254,63,255,254,0,0,0,0,0,0,0,0,0,0
  116. 16128 DATA 0,0,0,0,0,0,3,195,192,12,195,48,49,66,140,66
  117. 16144 DATA 129,66,252,153,62,131,60,193,127,255,254,3,165,192,0,255
  118. 16160 DATA 0,0,60,0,0,0,0,0,0,0,0,0,0,0,0,0
  119. 16176 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128
  120. 16192 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  121. 16208 DATA 24,0,0,36,0,0,66,0,0,129,0,1,0,128,2,0
  122. 16224 DATA 64,4,0,32,8,0,16,16,24,8,48,60,12,120,102,30
  123. 16240 DATA 247,129,239,127,255,254,15,0,240,1,231,128,0,126,0,0
  124. 16256 DATA 0,0,0,0,0,0,0,0,0,0,36,0,0,66,0,0
  125. 16272 DATA 0,0,0,66,0,0,36,0,0,0,0,0,0,0,0,0
  126. 16288 DATA 0,0,0,0,8,0,16,16,24,8,48,60,12,120,102,30
  127. 16304 DATA 247,129,239,127,255,254,15,0,240,1,231,128,0,126,0,0
  128. 16320 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  129. 16336 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  130. 16352 DATA 0,0,0,0,8,0,16,16,24,8,48,60,12,120,102,30
  131. 16368 DATA 247,129,239,127,255,254,15,0,240,1,231,128,0,126,0,0
  132. 17000 DATA122,-4,-4,126,0,-4,118,4,-4,123,-4,0,119,4,0,121,-4,4,125,0,4,117,4,4
  133.