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