home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / rlcldr.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  22 lines
  1. 0 'RLCLDR.BA by Neil Wick v1.1
  2. 1 CLS:DEFINTY-Z:PRINT:PRINTCHR$(27)"pRelocating Machine Language Loader/Saver"TAB(8)"by Neil Wick  71056,613"TAB(40)CHR$(27)"q";
  3. 2 PRINT"1 L Load machine language from .DO file 2 S Save machine language to .DO file   3 M Menu"
  4. 3 ONINSTR("  1Ll2Ss3Mm",INPUT$(1))/3GOTO4,11,20:BEEP:GOTO3
  5. 4 CLS:PRINT:FORY=-1617TO-1408STEP11:IF(PEEK(Y)AND192)=192THENFORZ=3TO8:PRINTCHR$(PEEK(Y+Z));:NEXT:PRINT"  ";
  6. 5 NEXT:PRINT:PRINT:INPUT"File to load ";F$:IFF$=""THENRUNELSEOPENF$FORINPUTAS1:INPUT"Start address";T
  7. 6 IFT<HIMEMTHENBEEP:BEEP:PRINT"Memory not clear":ENDELSEINPUT#1,E,X:E=T+E:FORB=TTOE
  8. 7 A$=INPUT$(2,1):IFA$<"0"THEN7ELSEIFA$>"@"THENF=1:A$=RIGHT$(A$,1)+INPUT$(1,1)
  9. 8 GOSUB10:IFF=0THENPOKEB,A:C=C+AELSEH=A:A$=INPUT$(2,1):GOSUB10:A=256*H+A:C=C+A:POKEB,T+A-65536AND255:B=B+1:POKEB,(T+A)/256:F=0
  10. 9 NEXT:INPUT#1,A,A:BEEP:IFC<>ATHENBEEP:BEEP:PRINT"Checksum error.  "F$" file is bad.":ENDELSEPRINT"Done":SAVEMF$,T,E,T+X
  11. 10 A=16*(ASC(A$)-48)+ASC(RIGHT$(A$,1))-48:RETURN
  12. 11 CLS:PRINT:INPUT"File to save to";F$:IFF$=""THENRUNELSEPRINT:PRINTCHR$(27)"p First copy:"TAB(20)"Second copy:";
  13. 12 PRINTTAB(40)CHR$(27)"q";:PRINT"Top:"TAB(20)"Top:":PRINT"End:":PRINT"Exe:":PRINT@165,;:INPUTT
  14. 13 PRINT@205,;:INPUTE:X1=T:PRINT@245,;:INPUTX1:PRINT@246,X1:PRINT@185,;:INPUTT2:OF=T-T2:OPENF$FOROUTPUTAS1:PRINT#1,E-T;X1-T:L=1
  15. 14 FORX=TTOE:B=PEEK(X):B2=PEEK(X-OF):IFB=B2THENPRINT#1,CHR$(48+B\16)CHR$(48+(BMOD16));:L=L+2:C=C+B:GOTO18
  16. 15 X=X+1:B=256*PEEK(X)+B:B2=256*PEEK(X-OF)+B2
  17. 16 IFB-B2=OFTHENB=B-T:PRINT#1,"@"CHR$(48+B\4096)CHR$(48+(BAND3840)\256)CHR$(48+(BAND240)\16)CHR$(48+(BAND15));:L=L+6:C=C+B:GOTO18
  18. 17 BEEP:BEEP:PRINT:PRINT:PRINT"Data at"T"&"T2"are not the same  program.  Press <ENTER>.":LINEINPUTA$:KILLF$+".DO":RUN
  19. 18 IFL>127THENL=0:PRINT#1,
  20. 19 NEXTX:PRINT#1,:PRINT#1,C
  21. 20 BEEP:MENU
  22.