0 'txtstr
1 'Copyright (c) 1988 by Stanley Wong -- May not be distributed beyond CIS without my permission CIS 70346,1267
2 GOSUB99
3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99
6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
40 SAVEM"TXTSTR",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
99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=380:D=0:RETURN
100 DATA386E1A2ADEFA22N70121J90122DEFA2A12FB22N90121LD012212FB21000022E7F6C3EE5D32DFF6F5CDEC65F1DA0165FE7FCA1861FE20DAPC00F53A
101 DATA38E217NC01FE01CAM8003ANB01FE01CAKB00F1C38A603E0032NB01F1CDME01FE42CAS800FE59CASD00FE44CALD013E0AC305603E0032NC01F1CDME
102 DATA38431C01FE43DAP700CAT200FE44CAT700FE53CAV800FE58CAVD00FE52CAV300FE45CATC00FE59CAG7013E0AC30560FE07CA1861FE14CAH601FE19
103 DATA387E15CAI501FE0BCAR800FE11CAS000C30560F53E0132NB01F1C9F53E0132NC01F1C93E0CC305603E15C305603E1AC305603E12C305603E14CD05
104 DATA384F12603A88F7FE00C2UE003E0AC305603E11C305603E17C305603E11C305603E02CD05603E12C305603E0CCD05603E12CD05603E15C305603E0C
105 DATA387C11CD05603E06CD05603E15C305603E11CD05603E0CCD05603E18CD05603E15C30560F3C5D521000039EB0114002100003909F921I100E301F0
106 DATA2DD4155F08CAL70109E3EBF9D1C1FBC9E52AN70122DEFA2AN9012212FBE1C39757FE61D8FE7BD0D620C9000000000000
107 DATA00