home *** CD-ROM | disk | FTP | other *** search
- 4 POKE53280,0:POKE53281,0:POKE808,234
- 5 PRINT"[147]":GOSUB9000
- 10 INPUT"[159][198]ILENAME OF [194][193][211][201][195] PROGRAM";N$:IFN$=""THEN3000
- 20 INPUT"[206]UMBER OF [205][204] MODULES";N
- 22 N=INT(N):IFN<1ORN>5THENPRINT"[205]OD[204]INK WORKS ONLY FOR 1-5 MODULES!":GOTO20
- 30 FORI=1TON:INPUT"[205]ODULE NAME";N$(I):IFN$(I)=""THEN3000
- 35 NEXT:N$(N+1)=N$:PRINT"[147][158] [205]OD[204]INK 1.0 [194]Y [205][193][204][193][203][193][201] "
- 36 PRINT"[198]ILENAME",,"[194]YTES","[204]OCATION"
- 37 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][157][148][163][153]"
- 40 BA=16384:NA=16411:BP=16620:BF=16643:B=BF:OPEN15,8,15
- 50 FORF=1TON+1
- 60 OPEN1,8,8,N$(F):INPUT#15,A,B$,C$,D$:IFA<20THEN65
- 61 IFA<>62THEN2000
- 62 PRINT"[195]OULD NOT FIND "N$(F)"!":GOTO3000
- 65 GET#1,A$,B$:CLOSE1:SA(F)=ASC(A$+CHR$(0))+ASC( +CHR$(0))*256
- 70 L=LEN(N$(F)):POKE780,L:POKE781,60:POKE782,3:FORI=1TOL
- 80 POKE827+I,ASC(MID$(N$(F),I)):NEXT
- 90 SYS65469
- 100 POKE780,13:POKE781,8:POKE782,0
- 110 SYS65466
- 120 POKE780,0:POKE781,B-INT(B/256)*256:POKE782,B/256
- 130 SYS65493
- 140 C=PEEK(781)+PEEK(782)*256
- 150 L(F)=C-B:B=C
- 160 PRINT" "N$(F)TAB(20)L(F),SA(F):B=B+1
- 170 NEXT
- 180 PRINT:EA=B
- 190 A=L(N+1):POKEBP,A-INT(A/256)*256:POKEBP+1,A/256
- 200 POKEBP+2,N
- 210 FORI=1TON:A=L(I):B=SA(I)
- 220 POKEBP+2*I+1,A-INT(A/256)*256:POKEBP+2*I+2,A/256
- 230 POKEBP+2*I+11,B-INT(B/256)*256:POKEBP+2*I+12,B/256
- 240 NEXT
- 250 PRINT"[204]ENGTH OF OBJECT FILE ="EA-BA" BYTES."
- 260 N$= N$,15)+"2":PRINT"[207]BJECT FILENAME "N$;:FORI=1TOLEN(N$)+2
- 262 PRINT"[157]";:NEXT:N$="":INPUTN$:IFN$=""THEN3000
- 264 PRINT"[197]NTER THE MESSAGE THAT IS TO BE PRINTED"
- 265 PRINT"WHEN THE OBJECT FILE IS [204][201][211][212]ED (UP TO"
- 266 PRINT"10 CHARACTERS) MODLINK[157][157][157][157][157][157][157][157][157]";:INPUTME$
- 267 ME$=LEFT$(ME$,10):ME$=ME$+LEFT$(" ",10-LEN(ME$))
- 268 FORI=1TO10:POKENA-1+I,ASC(MID$(ME$,I)):NEXT
- 269 PRINT"[[215]ORKING...][159]"
- 270 PRINT#15,"S0:"+N$
- 272 POKE251,BF-INT(BF/256)*256:POKE252,BF/256:POKE253,EA-INT(EA/256)*256
- 274 POKE254,EA/256:SYS49152
- 280 OPEN1,8,8,N$+",P,W":INPUT#15,A,B$,C$,D$:IFA>19THEN2000
- 290 PRINT#1,CHR$(1)CHR$(8);
- 300 POKE251,BA-INT( /256)*256:POKE252,BA/256:POKE253,EA-INT(EA/256)*256
- 310 POKE254,EA/256:CMD1,"";:SYS49155
- 320 PRINT#1,"";:CLOSE1:PRINT"[147][196]ONE!":GOTO3000
- 2000 PRINT"[196]ISK ERROR!!! "CHR$(ASC(B$)+128)MID$(B$,2)" ON"VAL(C$)"[157],"VAL(D$);
- 2010 PRINT"[157]."
- 3000 CLOSE1:CLOSE15
- 3010 PRINT"[209]UIT ([217]/[206])?"
- 3020 GETA$:IFA$="Y"THENSYS64738
- 3030 IFA$<>"N"THEN3020
- 3040 RUN
- 9000 SP$="":FORI=1TO40:SP$=SP$+" ":NEXT
- 9010 PRINT"[153]"SP$"[159] [205]OD[204]INKER "SP$
- 9020 PRINT"[158] [194]Y [210]OBERT [193]. [211]TOERRLE"
- 9030 PRINT"[153] [214]ERSION 1.0":PRINT"[159] 10/8/88"
- 9040 PRINT" <[208]RESS ANY KEY TO CONT UE>";
- 9050 GETA$:IFA$=""THEN9050
- 9060 PRINT"[147][158] [205]OD[204]INK 1.0 [194]Y [205][193][204][193][203][193][201] "
- 9070 PRINT"[212]HIS UTILITY COMBINES A [194][193][211][201][195] PROGRAM"
- 9080 PRINT"WITH UP TO FIVE [205][204] MODULES, ENCODES"
- 9090 PRINT"THEM, AND WRITES THEM TO DISK AS A"
- 9100 PRINT"SINGLE FILE. [215]HEN THAT FILE IS LOADED"
- 9110 PRINT"AND RUN, THE [205][204] MODULES ARE MOVED TO"
- 9120 PRINT"THEIR CORRECT PLACES AND CONTROL IS"
- 9130 PRINT"PASSED TO THE [194][193][211][201][195] PROGRAM. [212]HIS"
- 9140 PRINT"ELIMINATES THE NEED FOR A [194][193][211][201][195] PROGRAM"
- 9150 PRINT"TO LOAD IN EACH OF ITS [205][204] MODULES AND"
- 9160 PRINT"ALSO ADDS SOME SECURITY TO THE DE."
- 9170 RETURN
-
(.txt)