home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / GUNSHIP2.D64 / 6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-07-01  |  2.2 KB  |  58 lines
  1. 1 SYS30006:POKE52,19:POKE56,19:CLR
  2. 2 GOSUB19000:GOSUB900:GOSUB14000:F=33024
  3. 3 PRINT "[147][151]LOAD ";CHR$(34);"G2";CHR$(34);",8,1RUN"
  4. 4 POKE631,13:POKE632,13:POKE198,2
  5. 5 PRINT "";:NEW
  6. 10 POKEA0,FNLB(F*KP):POKEA1,F:POKEA2,FNLB(T*KP):POKEA3,T:POKEA4,FNLB(L*KP)
  7. 11 POKEA5,L:SYSM6:RETURN
  8. 900 RESTORE:OD=21464:DT=OD-64
  9. 905 FORI=0TO4:READF$:IFI=PEEK(862)THENMP$=F$
  10. 906 NEXTI:DATATN,SE,CA,ME,WE
  11. 910 FORI=DTTODT+63:READZ:POKEI,Z:NEXTI
  12. 920 DATA 76,62,76,90,90,62,194,178,178,178,194,194,0,11,15,1
  13. 921 DATA 1,19,19,16,87,82,0,19, 19,20,82,17,0,16,0,0
  14. 922 DATA 0,13,7,8,2,10,1,12, 4,9,6,5,3,11,0,0
  15. 923 DATA 7,7,10,10,10,10,7,10, 7,7,10,10,7,10,0,0
  16. 930 MS=144*KP:POKEOD+35,PEEK(MS+156)
  17. 931 Z=PEEK(860):A=MS+Z*12:FORI=0TO11:POKEOD+8+I,PEEK(A+I):NEXTI
  18. 932 Z=PEEK(861):A=MS+Z*12:FORI=0TO11:POKEOD+20+I,PEEK(A+I):NEXTI
  19. 940 A=PEEK(862)*3+PEEK(832)-3
  20. 945 IFA>0THENFORJ=1TOA:FORI=DT+17TODT+26:READZ:POKEI,Z:NEXTI:NEXTJ
  21. 949 RETURN
  22. 960 DATA 19,16,16,86,17,0,16, 16,19,82
  23. 961 DATA 19,16,16,86,17,0,16, 16,19,82
  24. 962 DATA 19,19,16,86,82,0,19, 16,19,82
  25. 965 DATA 19,0,16,86,17,0,19, 19,19,82
  26. 966 DATA 19,19,16,86,82,0,19, 19,19,82
  27. 967 DATA 19,19,16,87,82,0,20, 19,20,82
  28. 970 DATA 19,19,16,86,82,0,19, 19,19,17
  29. 971 DATA 19,19,16,86,82,0,19, 19,19,82
  30. 972 DATA 19,19,16,87,82,0,19, 19,20,82
  31. 975 DATA 19,19,16,86,82,0,19, 19,19,82
  32. 976 DATA 19,19,16,87,82,0,19, 19,20,82
  33. 977 DATA 20,20,17,87,82,0,20, 19,85,82
  34. 9000 GOSUB19520:POKEA0,0:POKEA4,213:POKEA5,255:SYSKER
  35. 9001 IF(ST AND191)<>0THEN9000
  36. 9002 RETURN
  37. 14000 F=168:T=200:L=8:GOSUB10:Z=201*KP+48:FORI=0TO7:POKEZ+I+48,PEEK(Z+I):NEXTI
  38. 14005 F$="CP":GOSUB9000:SYS30033:F=156:T=64:L=4:GOSUB10:F=176.25:T=208.25:L=15
  39. 14013 GOSUB10:T=240.25:GOSUB10:F=152:T=124:L=2+8/KP:GOSUB10
  40. 14014 F=154+8/KP:T=238+8/KP:L=1.875:GOSUB10:F=160:T=96:L=16.25:GOSUB10
  41. 14018 POKEA0,0:POKEA2,0:POKEA3,240:POKEA4,63:POKEA5,0:SYSSB
  42. 14021 F$="CH":GOSUB9000:GOSUB14100:F=145:T=227:L=1:GOSUB10:L=2.5:IFPEEK(944)THENL=3
  43. 14022 F=148:T=81:GOSUB10:F=147:T=226:L=1:GOSUB10
  44. 14023 F$="W3."+MP$:IFMP$="TN"THENF$="W3.WE":POKEOD+20,0
  45. 14024 GOSUB9000:F=146:T=6790/KP:L=1:GOSUB10:F$="M1":GOSUB9000
  46. 14025 F$="M2":GOSUB9000:F$="M3":GOSUB9000:F$="M4":GOSUB9000:F$="M5":GOSUB9000
  47. 14026 F$="M6":GOSUB9000:F$="M7":GOSUB9000:F$="M8":GOSUB9000
  48. 14090 F$="M."+MP$:IFMP$<>"TN"THENF$=F$+MID$(STR$(4-PEEK(828+4)),2)
  49. 14095 GOTO9000
  50. 14100 F=192:T=223.25:L=.375:GOTO10
  51. 19000 DEFFNLB(X)=(X-32768)AND255
  52. 19002 SB=32809:MV=32838:BM=32871:KE=32910:S6=32797:M6=32788
  53. 19003 A0=165:A1=A0+1:A2=A1+1:A3=A2+1:A4=A3+1:A5=A4+1:A6=A5+1:KP=256:KK=KP*KP
  54. 19004 RETURN
  55. 19520 FORI=0TOLEN(F$)-1:POKE1006+I,ASC(MID$(F$,I+1,1)):NEXT
  56. 19526 POKEA0,0:POKEA1,8:POKEA2,1:POKEA4,186:POKEA5,255:SYSKE
  57. 19528 POKEA0,LEN(F$):POKEA1,238:POKEA2,3:POKEA4,189:POKEA5,255:SYSKE:RETURN
  58.