home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / HUSSEIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.9 KB  |  132 lines
  1. 10 REM BULLEYES-T.BRANTNER
  2. 11 REM ** ADAPTED FOR DESERT SHEILD **
  3. 12 REM ** SITUATION. HOPE SOME OF   **
  4. 13 REM ** YOU HAVE A 64 OVER THERE! **
  5. 14 REM ** BE BACK SAFELY SOON!      **
  6. 15 REM -------------------------------
  7. 17 PRINT"[147]DEDICATED TO ALL THE FIGHTING MEN":PRINT"AND WOMEN IN THE DESERT SHEILD"
  8. 18 PRINT"CONFLICT. KILL THE BASTARD!":FORTD=1TO6000:NEXT
  9. 20 POKE53280,0:POKE53281,0:PRINTCHR$(8)CHR$(142)"[147]"
  10. 30 FORA=832TO1022:READZ:POKEA,Z:NEXT
  11. 40 FORA=49152TO49259:READZ:POKEA,Z:NEXT
  12. 50 DIMSE%(13,18),QT(3,14),SC(1)
  13. 60 FORA=0TO13:FORZ=0TO18:READSE%(A,Z):NEXT:NEXT
  14. 70 FORA=0TO3:FORZ=0TO3:READQT(A,Z):QT(A,4+Z)=QT(A,Z)*2:QT(A,8+Z)=QT(A,Z)*3
  15. 80 NEXT:QT(A,12)=25:QT(A,13)=50:NEXT
  16. 90 TC=646:SP=2040:V=53248:S1=54272:J2=56320:A=RND(-TI)
  17. 100 POKEV+16,0:POKEV+28,7:POKEV+37,11:POKEV+38,12
  18. 110 SC(0)=301:SC(1)=301
  19. 120 PL=0:POKEV+21,0:POKE53265,11:GOSUB420:POKE53265,27
  20. 130 DN=2:CS=SC(PL):POKEV+1,0:POKEV+3,0:POKEV+5,0:POKEV+21,7
  21. 140 CY=4:IFPLTHENCX=3:GOSUB400:PRINT"   ":PRINTTAB(CX)"   "
  22. 150 POKETC,6+PL*7:CX=3+PL*31:GOSUB400:PRINT"[161][194][187][157][157][157][188][194][162]"
  23. 160 GOSUB270:CY=13-DN:CX=3+PL*31:A=PV:GOSUB390:CS=CS-PV
  24. 170 CY=15:IFCS<0THENCX=2+PL*31:GOSUB400:PRINT"BROKE":GOTO210
  25. 180 CX=3+PL*31:A=CS:GOSUB390:IFCS=0THEN230
  26. 190 DN=DN-1:IFDN>-1THEN160
  27. 200 SC(PL)=CS
  28. 210 FORA=1TO1500:NEXT:PL=PL+1:IFPL<2THEN130
  29. 220 GOTO120
  30. 230 CY=23:CX=11:GOSUB400:POKETC,(PEEK(TC)AND7)+1
  31. 240 PRINT"WINNER: PLAYER "MID$("ONETWO",1+PL*3,3)
  32. 250 PRINTTAB(8)"PRESS FIRE TO PLAY AGAIN";:IFPEEK(J2)AND16THEN230
  33. 260 GOTO110
  34. 270 POKESP+DN,13:POKEV+39+DN,6+PL*7
  35. 280 POKE2,173:POKE3,141:POKE4,RND(1)*2:POKE5,RND(1)*2:POKE6,DN
  36. 290 SYS49152:XP=PEEK(2):YP=PEEK(3)
  37. 300 GOSUB410:POKES1+5,153:POKES1+4,16:POKES1+4,17
  38. 310 FORA=0TO23:POKESP+DN,13+A/11:POKEV+1+DN*2,YP-A:POKES1+1,140-A
  39. 320 FORZ=1TO10:NEXT:NEXT
  40. 330 GOSUB410:POKES1+5,3:POKES1+1,10:POKES1+4,16:POKES1+4,17:YP=YP-23
  41. 340 PV=0:X%=(XP-98)/4:Y%=(YP-85)/4
  42. 350 IFX%<0ORX%>37ORY%<0ORY%>27THENRETURN
  43. 360 A=0:IFX%>18THENA=1:X%=37-X%
  44. 370 IFY%>13THENA=A+2:Y%=27-Y%
  45. 380 Z=SE%(Y%,X%):PV=QT(A,Z):RETURN
  46. 390 GOSUB400:PRINT""RIGHT$(" "+STR$(A),3):RETURN
  47. 400 POKE214,CY-1:PRINT:PRINTTAB(CX);:RETURN
  48. 410 FORA=S1TOS1+23:POKEA,0:NEXT:POKES1+24,15:RETURN
  49. 420 GOSUB880:GOTO640:PRINT"[147]       [188] [146][208][165] [146] [161] [146]   [146] [203] [146][183]   [146][183] [167][146][170][161] [146][183]"
  50. 430 PRINT"        [129] [146][183][161] [146] [161] [146]   [146]  [183][208][161][190] [146][183] [183][208][161] [146][183]"
  51. 440 PRINT"       [158][188][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190] [162][162][146][190][162][162][146][190][162][162][146][190]"
  52. 450 PRINT"       [155][182]          [175][175][175][175]          [146][181]"
  53. 460 PRINT"       [182]      [172][162][146]   12   [155][162][187]      [146][181]"
  54. 470 PRINT"       [182]    [172][146][190]1  [158][162][162][162][162][162][162]  8[155][188][187]    [146][181]"
  55. 480 PRINT"       [182]   [146][190]   [153][162][162][146][187]    [172][153][162][146][162]   [155][188]   [146][181]"
  56. 490 PRINT" [182][184][184][184][184][184][194]  [146][190]  [158][162][153][162][146][162] [188][146]    [190] [146][162][153][162][158][146][162]  [155][188]  [194][146][184][184][184][184][184][181]"
  57. 500 PRINT" [182] ONE [155][194] [146][190]5 [158][190][146][190][162]  [162][158][146][172][162][162][187][162]  [162][158][146][188][188][146] 4[155][161] [194][146] TWO [155][181]"
  58. 510 PRINT" [182][198][198][198][198][198][194][172][146]  [158][161][146][165]  [188][172][190][146][161]  [161][188][146][187][190]  [158][167][161]  [155] [194][146][198][198][198][198][198][181]"
  59. 520 PRINT" [182]     [194][146][190]  [158][170][146]  [172][172][146] [187] [146]   [172][146] [158][187][146][187]  [180][146]  [155][161][194][146]     [181]"
  60. 530 PRINT" [182]     [194][146]  [153][161][165] [188][146][172][162]  [188][190][188][190]  [162][187][190] [167][153][146][161]  [155][194][146]     [181]"
  61. 540 PRINT " [182]     [194][146]11[153][161][165]  [161]   [146][161][161][146][161][161]   [146][161]  [167][153][146][161]9 [155][194][146]     [181]"
  62. 550 PRINT" [182]     [194][146]  [153][161][165] [172][146][188][162][146]  [172][187][172][187]  [162][146][190][187] [167][153][146][161]  [155][194][146]     [181]"
  63. 560 PRINT" [182][197][197][197][197][197][194][146][187]  [158][170][146]  [188][188][146] [190] [146]   [188][146] [158][190][146][190]  [180][146]  [155][172][194][146][197][197][197][197][197][181]"
  64. 570 PRINT" [182]     [194][188][146]  [158][161][146][165]  [172][188][187][146][161]  [161][172][146][190][187]  [158][167][161]  [155][190][194][146]     [181]"
  65. 580 PRINT" [182][185][185][185][185][185][194] [146][187]2 [158][187][146][187][162]  [146][162][158][188][162][162][146][190][162]  [146][162][158][172][172][146] 7[155][172] [194][146][185][185][185][185][185][181]"
  66. 590 PRINT"       [182]  [146][187]  [158][162][153][146][162][162] [172][146]    [187] [162][153][146][162][158][162][146]  [155][172]  [146][181]"
  67. 600 PRINT"       [182]   [146][187]   [153][162][146][162][190]    [188][153][162][162][146]   [155][172]   [146][181]"
  68. 610 PRINT"       [182]    [188][146][187]6  [158][162][162][162][162][162][162][146]  3[155][172][190]    [146][181]"
  69. 620 PRINT"       [182]      [188][146][162]   10   [155][162][190]      [146][181]"
  70. 630 PRINT"       [182]          [183][183][183][183]          [146][181]"
  71. 640 CY=10:CX=3:A=SC(0):GOSUB390:CX=34:A=SC(1):GOTO390
  72. 650 DATA0,48,0,0,48,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,236,0,0,116
  73. 660 DATA0,0,236,0,0,116,0,0,252,0,3,187,0,14,186,192,58,186,176,58,186
  74. 670 DATA176,58,186,176,14,254,192,3,51,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0,0
  75. 680 DATA 0,0,0,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,116,0,3,187,0,14
  76. 690 DATA186,192,58,186,176,10,254,128,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0
  77. 700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,48,0,0,48,0,0
  78. 710 DATA184,0,63,255,240,0,184,0,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0,0,0
  79. 720 DATA0,0,0,0,0,0,0,0,0,0,0,0,165,6,10,168,165,2,153,0,208,165,3,153,1
  80. 730 DATA208,173,0,220,170,41,16,208,1,96,138,74,74,41,3,168,136,192,2,144
  81. 740 DATA2,164,4,24,165,2,121,106,192,201,91,176,7,152,73,1,168,76,55,192
  82. 750 DATA133,2,132,4,138,41,3,168,136,192,2,144,2,164,5,24,165,3,121,106
  83. 760 DATA192,201,97,144,4,201,230,144,7,152,73,1,168,76,91,192,133,3,132,5
  84. 770 DATA162,8,160,0,200,208,253,202,208,250,76,0,192,1,255,14,14,14,14,14
  85. 780 DATA14,14,14,14,14,14,14,14,4,4,4,4,4,4,14,14,14,14,14,14,14,14,14,14
  86. 790 DATA14,5,5,0,0,0,0,0,0,14,14,14,14,14,14,14,14,14,5,5,1,1,1,0,0,0,0,0
  87. 800 DATA14,14,14,14,14,14,14,5,5,1,1,1,1,1,0,0,0,0,0,14,14,14,14,14,6,6,1
  88. 810 DATA1,1,1,1,1,1,1,0,0,0,0,14,14,14,14,6,6,2,1,1,1,1,1,1,1,1,0,0,0,0
  89. 820 DATA14,14,14,6,6,2,2,2,2,1,1,1,1,9,9,9,8,8,8,14,14,6,2,2,2,2,2,2,2,1
  90. 830 DATA9,9,9,1,1,0,0,0,14,14,6,2,2,2,2,2,2,2,2,9,1,1,1,1,0,0,0,14,6,2,2
  91. 840 DATA2,2,2,2,2,10,10,2,2,1,1,1,1,0,0,14,6,2,2,2,2,2,2,10,10,2,2,2,2,1
  92. 850 DATA1,1,0,0,7,3,3,3,3,3,2,2,10,2,2,2,2,2,2,2,1,1,0,7,3,3,3,3,3,3,11,3
  93. 860 DATA3,3,2,2,2,2,2,2,12,12,7,3,3,3,3,3,3,11,3,3,3,3,3,3,3,3,12,12,13
  94. 870 DATA12,1,5,11,12,8,4,9,10,6,2,11,10,3,7,9
  95. 880 REM ** KILL HUSSEIN SCREEN **
  96. 5885 PRINT"[147]       [158][161][129][176][195][195][195][150][195] KILL HUSSEI";
  97. 5890 PRINT"N c[129]ccc[174][158][146][161]              [188][162][162]";
  98. 5895 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]  ";
  99. 5900 PRINT"            [155][182]          [175][175]";
  100. 5905 PRINT"[175][175]          [146][181]            ";
  101. 5910 PRINT"  [182]      [172][162][146]   12   [155][162][187]    ";
  102. 5915 PRINT"  [146][181]              [182]    [172][146][190]1";
  103. 5920 PRINT"   [155][175]f[175]f[175][175] 8[155][188][187]    [146][181]       ";
  104. 5925 PRINT"       [182]   [146][190]   [185]fd      [191]";
  105. 5930 PRINT"   [188]   [146][181]        [182][184][184][184][184][184]b  ";
  106. 5935 PRINT"[146][190]   [151][191][146]          [155][191]   [188]  b[146][184][184]";
  107. 5940 PRINT"[184][184][184][181]  [182] ONE [155]b [146][190]5  [151][191][146]  [175][185][162][162]";
  108. 5945 PRINT"[152][162][185][185][175]  [165]  4[155][161] b[146] TWO [155][181]  [182]fff";
  109. 5950 PRINT"ffb[172][146]    [151][165][172][172][146][183][183] [187][152][172][146] [183][183][187][146][167]    ";
  110. 5955 PRINT" [155] b[146]fffff[181]  [182]     b[146][190]    [151][191] ";
  111. 5960 PRINT" [172][172][187][151]h[152] [172][187][152][187] [146][186][191]    [155][161]b[146]     [181] ";
  112. 5965 PRINT" [182]     b[146]     [151][161]  [183]edg[155] [152]de  ";
  113. 5970 PRINT" [161][146]     [155]b[146]     [181]  [182]     b[146]11";
  114. 5975 PRINT"   [151][191]   [175] l[155]r[152] [175]   [191][146]   9 [155]b[146]  ";
  115. 5980 PRINT"   [181]  [182]     b[146]     [151][182]  n [146][184][183]";
  116. 5985 PRINT"[152][183][184] m  [146][181]     [155]b[146]     [181]  [182]eee";
  117. 5990 PRINT"eeb[146][187]    [151][167] [167][172][146]      [152][187][165] [146][165]   ";
  118. 5995 PRINT" [155][172]b[146]eeeee[181]  [182]     b[188][146]     [151][187]";
  119. 6000 PRINT" [146]  ff[152]ff [146]  [172][146]     [155][190]b[146]     [181] ";
  120. 6005 PRINT" [182][185][185][185][185][185]b [146][187]2    [151][187]     [152]   [172]";
  121. 6010 PRINT"[146]    7[155][172] b[146][185][185][185][185][185][181]        [182]  ";
  122. 6015 PRINT"[146][187]      [151][163]edc[152]de[163][146]     [155][172]  [146][181]  ";
  123. 6020 PRINT"            [182]   [146][187]   [184] [188][151][187] ";
  124. 6025 PRINT" [152] [172][155][190] [183][184][146] [172]   [146][181]            ";
  125. 6030 PRINT"  [182]    [188][146][187]6          3[155][172][190]  ";
  126. 6035 PRINT"  [146][181]              [182]      [188]";
  127. 6040 PRINT"[146][162]   10   [155][162][190]      [146][181]       ";
  128. 6045 PRINT"       [182]          [183][183][183][183]   ";
  129. 6050 PRINT"       [146][181]"
  130. 6055 RETURN
  131. 6682 
  132.