home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
txtdmp.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
32 lines
1 'TXTDMP.100 by Ron Bean 8/86, Relocatable Loader based on BASBLD.BA
2 'TXTDMP.CO will Save/Load .DO files to/from tape in one continuous block.
5 CLS:PRINT@42,"Enter end address":PRINT@82,"<ENTER> for current HIMEM (";HIMEM;")":Y=0:INPUTY:IFY=0THENB=HIMEM-528ELSEB=Y-528
10 CLEAR265,B
15 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=527:D=0:B=HIMEM
20 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
25 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO25
30 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
35 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO25
40 SAVEM"TXTDMP",B,C,D:MENU
50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
51 IFU>16THENU=U-16:O=1ELSEO=0
52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
53 K=(U-1)*16+V-1:RETURN
55 BEEP:PRINT@165,"Bad character";:END
60 IFM<N*2+5THEN70
61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
62 READY:M=1:GOSUB50:IFK=0THEN40
63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0
70 M=M+2:GOSUB50:R=R+K:RETURN
100 DATA386F1A3EFF32T90132U20121U301CD9157CDCB12CDE90FCD444BFE4CCAL700FE53CAM301C3975721VE01CD9157CD44461185F62193FCCDK2003644
101 DATA38E61523364F233600CD0F22C90E061AB7C2KC003E201BCDE90F7723130DC2K400C9CDI400D2OA00E5D521G802CD9157CDCB12CDE90FCD444BD1E1
102 DATA383F1AFE59CAO000EB01ND00C5CDBE1FCD0F223E1ABECAOA0023C3O200E521D467CD9157CD44461185F62193FC1AB7C2Q2001193FCCDK200CDA814
103 DATA380F1BCD856F110A0021T901CD13243AT901FEFFCASE00FE9CCATE00FED3CATE00FED0CATE00C3Q500CDAA1421TA011193FC0E061ABECAUF002105
104 DATA38061727CD915721TA010606CDE01BC3Q50013230DC2T9003AU201FEFFCAG60121EA03CD9157C3OA0021FE26CD915721TA010606CDE01B2AU00144
105 DATA38891A4DE1E5CD6D6BD2I701CD2942C39757C1C52162F97EFEFFCAKF01235E2356E56069DFD2K7012AU00119EBE1E5722B73E111090019C3IC01CD
106 DATA387118A814CD856F2AU001EBE1CD1324CDAA14C39757CDI400DAN701CD2942EB01N401C5CDBE1FC39757E51100003E1ABECAO6011323C3ND01EB22
107 DATA38F318U001213567CD9157CD44461185F621TA011AB7C2Q1011193FCCDK200CDA814CD466F110A0021T901CDS701CD1A53CD466F2AU001EBE1CDS7
108 DATA38641401CDAA14C397570E007ECDC114231B7AB3C2S90179CDC114C9FF0000000000000000FF43617373657474653A3C4C3E6F6164206F72203C53
109 DATA17A6073E6176653A0046696C656E616D653A00417070656E643F
110 DATA00