home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / GUNSHIP2.D64 / b (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-07-01  |  4.1 KB  |  119 lines
  1. 0 POKE56333,127:POKE792,193:POKE52,26:POKE56,26:CLR
  2. 1 GOSUB112
  3. 2 CB=828:EN=81*KP:SV=63*KP:OD=21464:GOTO12
  4. 3 ZV=PEEK(SV+FNLB(V)):IFV<KPTHENRETURN
  5. 4 ZV=ZV+KP*PEEK(SV+V-KP+1):RETURN
  6. 5 GOSUB8:SYSM6:RETURN
  7. 6 GOSUB8:SYSSB:RETURN
  8. 7 GOSUB8:SYSMV:RETURN
  9. 8 POKEA0,FNLB(F*KP):POKEA1,F:POKEA2,FNLB(T*KP):POKEA3,T:POKEA4,FNLB(L*KP)
  10. 9 POKEA5,L:RETURN
  11. 10 T$=MID$(STR$(Z),2):IFZ<10THENT$="0"+T$
  12. 11 RETURN
  13. 12 POKE53281,1:POKE53280,1:PRINTCHR$(14):POKE53265,27
  14. 13 V=130:GOSUB3:IFZV=128THEN79
  15. 14 IFZV=1THENXX=1
  16. 15 PRINT"[147][144]       [205][201][211][211][201][207][206] [210][197][211][213][204][212] [211][213][205][205][193][210][217]:"
  17. 16 Z=PEEK(CB+58):FORI=0TO7:READT$:IFI=ZTHENA$=T$
  18. 17 NEXTI:PRINT"       "A$" ";
  19. 18 DATA "[211][199][212]","[215][207]1","2[204][212]","1[204][212]","[195][208][212]","[205][193][202]","[204][212][195]","[195][207][204]"
  20. 19 FORI=CB+38TOCB+57:Z=PEEK(I):IFZTHENPRINTCHR$(Z);:NEXTI
  21. 20 PRINT:V=106+KP:GOSUB3:ZV=INT(ZV/3):X=INT(ZV/60):Y=ZV-60*X
  22. 21 Z=X:GOSUB10:A$=T$:Z=Y:GOSUB10:A$=A$+":"+T$
  23. 22 PRINT"[144]     -----[150][197]LAPSED [212]IME "A$"[144]-----"
  24. 23 D=99999:V=94+KP:GOSUB3:X=ZV:V=96+KP:GOSUB3:Y=ZV:RT=0
  25. 24 FORI=6TO121:A=EN+I:IFPEEK(A+512)=0THEN26
  26. 25 Z=ABS(X-PEEK(A)*KP)+ABS(Y-PEEK(A+128)*KP):IFZ<DTHEND=Z:C=I
  27. 26 NEXTI
  28. 27 V=116+KP:GOSUB3:DG=0:FORI=0TO13:DG=DG-(FNRG(ZV)AND1):ZV=ZV/2:NEXTI
  29. 28 V=130:GOSUB3:FORI=1TO4:READT$:IFI=ZVTHENA$=T$
  30. 29 NEXTI:T$="":IFPEEK(SV+5)THENT$=" INTO A HILL."
  31. 30 PRINT"     * [155][217]OU[144] "A$;T$
  32. 31 DATA "[195][210][193][211][200][197][196]!",LANDED PERFECTLY.,LANDED HARD.,LANDED VERY HARD.
  33. 32 ZZ=PEEK(EN+512+C):Z=0:IFZZAND32THENZ=1
  34. 33 IF(ZZAND63)=54THENIFD<1280THENZ=2
  35. 34 FORI=0TO2:READT$:IFI=ZTHENA$=T$
  36. 35 NEXTI:PRINT"     * [155][217]OU ARE[144] "A$
  37. 36 DATA BEHIND ENEMY LINES.,BEHIND FRIENDLY LINES.,AT A FRIENDLY BASE.
  38. 37 V=112+KP:GOSUB3:F=ZV:V=114+KP:GOSUB3:F=F+ZV
  39. 38 V=77:GOSUB3:D=ZV:V=116+KP:GOSUB3:ZV=FNRG(ZV)
  40. 39 Z=0:IFDTHENZ=1:IFD>3THENZ=2
  41. 40 IFZVAND13THENZ=2
  42. 41 IF(ZVAND12)=12OR(F=0)THENZ=3
  43. 42 IF(D>3)AND((ZVAND12)=12)THENZ=4
  44. 43 IFXXTHENZ=4:RT=1
  45. 44 FORI=0TO4:READT$:IFZ=ITHENA$=T$
  46. 45 NEXTI:PRINT"     * [155][212]HE CRAFT IS[144] "A$
  47. 46 DATA UNDAMAGED.,LIGHTLY DAMAGED.,BADLY DAMAGED.,UNFLYABLE.,A TOTAL WRECK.
  48. 47 Z=PEEK(28739)AND3:FORI=0TO3:READT$:IFI=ZTHENA$=T$
  49. 48 NEXTI:PRINT"     * "A$" COMPLETE."
  50. 49 DATA "[206]EITHER MISSION[155] IS","[208]RIMARY MISSION[155] IS","[211]ECONDARY MISSION[155] IS"
  51. 50 DATA "[194]OTH MISSIONS[155] ARE"
  52. 51 Z=0:IFD>2THENZ=1:IFD>4THENV=106:GOSUB3:IFZVAND32THENZ=2
  53. 52 IFDG>11THENZ=2
  54. 53 V=130:GOSUB3:IFZV=1THENZ=3
  55. 54 FORI=0TO3:READT$:IFI=ZTHENA$=T$
  56. 55 NEXTI:PRINT"     [144]* [155][217]OU ARE[144] "A$:IFZ=3THENRT=1
  57. 56 DATA HEALTHY.,SLIGHTLY WOUNDED.,SERIOUSLY WOUNDED.,DEAD.
  58. 57 IF(RT)AND(PEEK(CB+58)<2)THEN91
  59. 58 FORI=0TO5:POKE848+I+I,PEEK(OD+I):NEXTI
  60. 59 FORI=1TO9:READV:GOSUB74:NEXTI
  61. 60 FORI=52TO58:READV:GOSUB74:NEXTI
  62. 61 POKE948,PEEK(28739):POKE949,0
  63. 62 F=200:T=208:L=8:GOSUB5
  64. 63 F=227:T=145:L=1:GOSUB5
  65. 64 F=6790/KP:T=146:L=1:GOSUB5
  66. 65 F=81:T=148:L=3:GOSUB5
  67. 66 F=226:T=147:L=1:GOSUB5:IFXXTHEN71
  68. 67 F=216:T=26:L=4:GOSUB7:POKE53265,0
  69. 68 F$="1":GOSUB88:F=96:T=176:L=12:GOSUB5:F=216:T=188:L=4:GOSUB7
  70. 69 F$="2":GOSUB88:F=96:T=160:L=12:GOSUB5:F=216:T=172:L=4:GOSUB7
  71. 70 F=26:T=216:L=4:GOSUB7
  72. 71 POKE53265,27:PRINT "LOAD ";CHR$(34);"E";CHR$(34);",8"CHR$(13)"RUN:"
  73. 72 PRINT "[145][145][145][145][145][145][145][145]";
  74. 73 POKE631,13:POKE632,13:POKE198,2:NEW
  75. 74 ZV=PEEK(SV+FNLB(V)):IFV<KPTHEN76
  76. 75 ZV=ZV+KP*PEEK(SV+V-KP+1)
  77. 76 POKE828+I+I,FNLB(ZV):POKE829+I+I,ZV/KP:RETURN
  78. 77 DATA 124,127,368,370,75,76,57,79,80
  79. 78 DATA 350,352,372,77,362,131,130
  80. 79 PRINTCHR$(8)CHR$(14)"[144][147]      [212]URN DISK OVER AND INSERT IT"
  81. 80 PRINT"           [198]RONTSIDE FACE "CHR$(34)"[213][208]"CHR$(34)
  82. 81 PRINT"         PRESS [194][213][212][212][207][206] WHEN READY"
  83. 82 IFPEEK(56320)AND16THEN82
  84. 83 OPEN15,8,15,"I0:":OPEN2,8,2,"#1":PRINT#15,"U1";2;0;18;0
  85. 84 PRINT#15,"B-P";2;163:GET#2,I$:CLOSE2:CLOSE15:IFI$<>"1"THEN79
  86. 85 POKE53280,6:POKE53281,6
  87. 86 PRINT"[147]LOAD"CHR$(34)":*"CHR$(34)",8,1";
  88. 87 POKE631,13:POKE198,1:NEW
  89. 88 RR=255:GOSUB115:POKE56333,127:POKE808,237
  90. 89 POKEA0,0:POKEA4,213:POKEA5,255:SYSKE:IF(ST AND191)<>0THEN88
  91. 90 POKE792,193:RETURN
  92. 91 PRINT"       [154][215]OULD YOU LIKE TO [144][212][210][217]"
  93. 92 PRINT"       [154]THE SAME MISSION [144][193][199][193][201][206] ?":A=0:K=216*256+18*40+14
  94. 93 PRINT:PRINT,"    => [206]O":PRINT:PRINT,"    => [217]ES"
  95. 94 Z=PEEK(56320):IF(ZAND3)<>3THENA=15*(ZAND1)
  96. 95 FORI=0TO1:POKEK+I,-(A<>0):POKEK+I+80,-(A=0):NEXTI
  97. 96 FORI=3TO5:POKEK+I,A:POKEK+I+80,15-A:NEXTI:IF(ZAND16)=0THEN99
  98. 97 IF(ZAND3)<>3THENFORI=0TO150:NEXTI
  99. 98 GOTO94
  100. 99 ZZ=PEEK(828+34):IF(A=0)THENPRINT"[145][145][145][145][145][145]":F=1/KP:T=218:L=2:GOSUB6:GOTO58
  101. 100 F=226:T=68:L=1:GOSUB5
  102. 101 PRINT"[147]":FORI=6TO121:A=EN+I:Z=PEEK(A+384):POKEA+384,ZAND7
  103. 102 Z=PEEK(A+512):POKEA+512,ZAND239:IFZTHEN107
  104. 103 POKEA+512,PEEK(A+KP)AND239
  105. 104 X=PEEK(A):Y=PEEK(A+128)
  106. 105 J=INT((Y+8)/16)*16+INT((X+8)/16):POKEA+KP,J
  107. 106 X=68*KP+J:POKEX,PEEK(X)OR(2^(PEEK(A+384)AND7)):Z=PEEK(A+512)
  108. 107 IF(ZAND224)OR(ZZ=0)THENPOKEA+512,ZOR16
  109. 108 NEXTI:F=68:T=226:L=1:GOSUB5:POKECB+120,PEEK(CB+120)AND4
  110. 109 PRINT "[147]LOAD ";CHR$(34);"G2";CHR$(34);",8"CHR$(13)"RUN:"
  111. 110 POKE631,13:POKE632,13:POKE198,2
  112. 111 PRINT "";:NEW
  113. 112 DEFFNLB(X)=(X-32768)AND255:DEFFNRG(X)=X+65536*(X>32767)
  114. 113 SB=32809:MV=32838:KE=32910:M6=32788
  115. 114 A0=165:A1=A0+1:A2=A1+1:A3=A2+1:A4=A3+1:A5=A4+1:A6=A5+1:KP=256:RETURN
  116. 115 FORI=0TOLEN(F$)-1:POKE1006+I,ASC(MID$(F$,I+1,1)):NEXT
  117. 116 POKEA0,0:POKEA1,8:POKEA2,RR:POKEA4,186:POKEA5,255:SYSKE
  118. 117 POKEA0,LEN(F$):POKEA1,238:POKEA2,3:POKEA4,189:POKEA5,255:SYSKE:RETURN
  119.