home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / NUROMACER-EDIT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.6 KB  |  166 lines

  1. 10 DIM IN(59),N$(59)
  2. 20 FORA=0TO59
  3. 30 READD$:N$(A)=D$:READD:IN(A)=D:NEXTA
  4. 40 POKE53280,0:POKE53281,0:
  5. 50 REM
  6. 60 REM           DISCLAIMER
  7. 70 REM
  8. 80 PRINT"[147][158]NOTE: THE AUTHOR TAKES NO RESPONSIBILITYFOR DAMAGE DONE TO";
  9. 90 PRINT" THE USERS SOFTWARE,  THROUGH THE USE OF OR FAILIER TO FOLLOW ";
  10. 100 PRINT"INSTRUCTIONS CONTAINED IN THIS PROGRAM.":FORA=1TO8000:NEXT
  11. 110 REM
  12. 120 REM       INTRODUCTION SCREEN
  13. 130 REM
  14. 140 PRINT"[147]           [153]NEUROMANCER EDITOR[158]"
  15. 150 PRINT" BECAUSE NEUROMANCER SAVES GAMES IN PRO-GRESS ONTO GAME DISK ONE";
  16. 160 PRINT", WE MUST COPY  [159]SECTOR[156] 0[158] OF [159]TRACK [156]18[158] TO A FRESH DISK."
  17. 170 PRINT"THIS DISK WILL THEN BE RECOGNIZED BY THE";
  18. 180 PRINT"PROGRAM AND GAMES WILL BE SAVED TO THIS DISK ENABLILING US ";
  19. 190 PRINT"TO MODIFY THE SAVED  GAME IN SAFETY."
  20. 200 PRINT" YOU MUST THEN SAVE A GAME ONTO THE NEW DISK. WE WILL ";
  21. 210 PRINT"THEN BE SET TO CONTINUE."
  22. 220 REM
  23. 230 REM        MAKE A DISK ???
  24. 240 REM
  25. 250 PRINT"       MAKE A SAVED GAME DISK[146] Y/N?"
  26. 260 GETA$:IFA$=""GOTO260
  27. 270 IFA$="Y"THENT=18:S=0:J=0:GOSUB470:GOTO250
  28. 280 IFA$<>"N"THENGOTO260
  29. 290 REM
  30. 300 REM     HAVE YOU SAVED A GAME ??
  31. 310 REM
  32. 320 PRINT"[147]  HAVE YOU SAVED A GAME TO THE NEW SAVED         GAME DISK??? Y/N"
  33. 330 GETA$:IFA$=""GOTO330
  34. 340 IFA$="N"THENPRINT"[147] DO SO NOW!!!":FORA=1TO4000:NEXTA:SYS64768
  35. 341 INPUT"[147] MODIFY WHICH GAME ?? 1-4";A
  36. 342 IFA<1ORA>4THENGOTO341
  37. 343 IFA=1THENT=4:S1=8:S2=9
  38. 344 IFA=2THENT=4:S1=17:S2=18
  39. 345 IFA=3THENT=5:S1=5:S2=6
  40. 346 IFA=4THENT=5:S1=14:S2=15
  41. 350 REM
  42. 360 REM     GAMES SAVED, GET READY
  43. 370 REM
  44. 380 PRINT"[147]    PLACE SAVED GAME DISK IN DRIVE":FORA=1TO6000:NEXT
  45. 390 PRINT"      PRESS ANY KEY TO CONTINUE":POKE198,0:WAIT198,1
  46. 391 GOTO920
  47. 440 REM
  48. 450 REM     SAVED GAME DISK FIX MENU
  49. 460 REM
  50. 470 PRINT"[147] PLACE WRITE PROTECT ON AND THEN INSERT"
  51. 471 PRINT"           GAME DISK SIDE 1[146]"
  52. 472 PRINT"       PRESS RETURN TO CONTINUE"
  53. 480 GETA$:IFA$<>CHR$(13)THENGOTO480
  54. 490 GOSUB560
  55. 500 PRINT"      INSERT NEW DISK AND PRESS RETURN[146]"
  56. 510 GETA$:IFA$<>CHR$(13)THENGOTO510
  57. 520 GOSUB690
  58. 530 REM
  59. 540 REM       READ BLOCK ROUTINE
  60. 550 REM
  61. 560 OPEN15,8,15:PRINT#15,"IO"
  62. 570 INPUT#15,EN$,EM$,ET$,ES$
  63. 580 IFEN$<>"00"GOTO750
  64. 590 OPEN2,8,2,"#"
  65. 600 PRINT#15,"U1";2;0;T;S
  66. 610 INPUT#15,EN$,EM$,ET$,ES$
  67. 620 IFEN$<>"00"GOTO740
  68. 630 IFJ>0THENRETURN
  69. 640 CLOSE2:CLOSE15:RETURN
  70. 660 REM
  71. 670 REM      WRITE BLOCK ROUNTINE
  72. 680 REM
  73. 690 OPEN15,8,15:PRINT#15,"IO"
  74. 700 OPEN2,8,2,"#"
  75. 710 PRINT#15,"U2";2;0;T;S
  76. 720 INPUT#15,EN$,EM$,ET$,ES$
  77. 730 IFJ>0THENRETURN
  78. 740 CLOSE2:IFEN$<>"00"THENCLOSE15:GOTO1220
  79. 750 CLOSE15:IFEN$<>"00"THENGOTO1220
  80. 760 IFJ<>0THENRETURN
  81. 770 GOTO320
  82. 780 REM
  83. 790 REM  TO CHANGE VERS.# OF SOFTWARE,
  84. 800 REM  CHANGE THE 6 IN LINE 4500 TO
  85. 810 REM  THE VERSION YOU DESIRE.
  86. 820 REM
  87. 830 REM THE FIRST THREE #'S IN THE CHR$
  88. 840 REM STATEMENTS IN LINE 4504 ARE FOR
  89. 850 REM  THE CREADIT CHIPS AMOUNT. THE
  90. 860 REM  NEXT 3 ARE FOR BANK ACCOUNT.
  91. 870 REM
  92. 880 REM
  93. 890 REM      ADD SOFTWARE ROUTINE
  94. 900 REM   ALL SOFTWARE IS VERSION 6.0
  95. 910 REM
  96. 920 J=2:S=S2:PRINT"[147]  FILLING YOUR DECK"
  97. 921 GOSUB560
  98. 930 PRINT#15,"B-P";2;130
  99. 940 FORA=0TO31
  100. 950 N=IN(A):PRINTN$(A)
  101. 960 PRINT#2,CHR$(N);CHR$(6);CHR$(0);CHR$(0);
  102. 970 FORB=1TO500:NEXTB
  103. 980 NEXT
  104. 990 REM
  105. 1000 REM    CHIP AND BANK AMOUNTS
  106. 1010 REM
  107. 1011 PRINT"[147]FILLING YOUR WALLET":FORA=1TO1000:NEXTA
  108. 1020 PRINT#15,"B-P";2;60
  109. 1030 J=3:PRINT#2,CHR$(255);CHR$(255);CHR$(0);CHR$(255);CHR$(255);CHR$(100);
  110. 1040 REM
  111. 1050 REM       WRITE SECTOR BACK
  112. 1060 REM
  113. 1070 GOSUB710
  114. 1080 REM
  115. 1090 REM       ITEM + SKILL INPUT
  116. 1100 REM
  117. 1110 J=4:S=S1:GOSUB600
  118. 1120 PRINT#15,"B-P";2;130;
  119. 1130 PRINT"[147]  FILLING YOUR HEAD "
  120. 1140 FORA=32TO59
  121. 1150 N=IN(A):PRINTN$(A)
  122. 1160 PRINT#2,CHR$(N);CHR$(6);CHR$(0);CHR$(0);
  123. 1170 FORB=1TO500:NEXTB
  124. 1180 NEXT
  125. 1190 GOSUB710
  126. 1200 CLOSE2:CLOSE15
  127. 1201 PRINT"[147]MODIFY ANOTHER GAME? Y/N"
  128. 1202 GETA$:IFA$=""THENGOTO1202
  129. 1203 IFA$="Y"GOTO341
  130. 1204 IFA$<>"N"THENGOTO1202
  131. 1205 PRINT"[147]DON'T LOAD SAVED GAME AT OPENING SCREEN.WAIT UNTIL YOU ARE INTO";
  132. 1206 PRINT" THE GAME BEFORE LOADING A SAVED GAME."
  133. 1207 PRINT"LIST THIS PROG. FOR MORE INFO":END
  134. 1220 REM
  135. 1230 REM       DRIVE ERROR ROUTINE
  136. 1240 REM
  137. 1250 PRINT"[147]PLEASE CHECK DISK AND DRIVE":PRINT:PRINT"PRESS RETURN TO CONTINUE"
  138. 1260 GETA$:IFA$<>CHR$(13)THENGOTO1260
  139. 1270 IFJ=0THENGOTO250
  140. 1280 IFJ=1THENGOTO380
  141. 1290 IFJ=2THENGOTO930
  142. 1300 IFJ=3THENGOTO1020
  143. 1310 IFJ=4THENGOTO1110
  144. 1320 REM
  145. 1330 REM  SOFTWARE AND #'S 0-31 ITEMS
  146. 1340 REM
  147. 1350 DATAMIMIC,00,JAMMIES,01,THUNDERHEAD,02,VACCINE,03,BLAMMO,04,DOORSTOP,05
  148. 1360 DATADECODER,06,SEQUENCER,07,ARMORALL,08,KGB,09,COMLINKS,10,BLOWTORCH,11
  149. 1370 DATAPROBE,12,DRILL,13,HAMMER,14,PYTHON,15,ACID,16,INJECTOR,17,DEPTHCHARGE
  150. 1380 DATA18,CONCRETE,19,EASYRIDER,20,LOGICBOMB,21,CYBERSPACE,22,SLOW,23
  151. 1390 DATABATTLECHESS,24,SCOUT,25,HEMLOCK,26,CYBEREYES,83
  152. 1400 DATATHUNDERHEAD,02,THUNDERHEAD,02,ARMORALL,08,ARMORALL,08
  153. 1410 REM
  154. 1420 REM  SKILLS AND EQUIP 0-24 ITEMS
  155. 1430 REM
  156. 1440 DATAKUANG ELEVEN,28,CYBERSPACE VII,46,BARGINING,67,COPTALK,68
  157. 1450 DATASOFTWARE ANALYSIS,69,DEBUG,70,HARDWARE REPAIR,71,ICE BREAKING,72
  158. 1460 DATAEVASION,73,CRYPTOLOGY,74,JAPANESE,75,LOGIC,76,PSYCHOLOGY,77
  159. 1470 DATAPHENOMENOLOGY,78,PHILOSOPHY,79,SOPHISTRY,80,ZEN,81,MUSICIANSHIP,82
  160. 1480 DATAGUEST PASS,86,HOLY JOYSTICK,89,CAVIAR,94,PAWN TICKET,95,SECURITY PASS
  161. 1490 DATA96,GAS MASK,101,SAKE,103,ZION TICKET,97,FREESIDE TICKET,98
  162. 1491 DATACHIBA TICKET,100
  163. 1500 REM
  164. 1600 REM HINT:TO GET A ROM CONSTRUCT GO INTO CYBERSPACE WHERE YOU USE THE
  165. 1601 REM SECURITY PASS: RIDEM COWBOY!
  166.