0 '"TXT-OV.100" -- This loader creates TXT-OV.CO, a program which hooks into TEXT in ROM to give you overwrite and "nowrap" capability.
1 'Translated from James Yi's T200 version.  Runs in ALT-LCD buffer. Phil Wheeler -- 71266,125 [11/21/87]
2 GOSUB99
3 B=64704
6 CLS:PRINT"        Creating TXT-OV.CO";:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@88,"Line";:PRINT@128,"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"TXT-OV",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@205,"Bad character";:END
60 IFM<N*2+5THEN70
61 IFL<>RTHENBEEP:PRINT@205,"Checksum fail";END
62 READY:M=1:GOSUB50:IFK=0THEN40
63 S=S+1:PRINT@110,S;:PRINT@150,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=274:D=0:RETURN
100 DATA387C1B21CDFC2252F621225ECD7C5AAFC42942CD535DCD3A1F21B1FDCDB12721155ECDB127CD3E46D7A7CA9757CD0622E52ADEFA22CFFD2125FD22
101 DATA38B11CDEFA2A12FB22D1FD2114FD2212FB21000022E7F63A99FFE601C3715FE52ACFFD22DEFA2AD1FD2212FBE1C39757F3C5D521000039EB3E1433
102 DATA38D0213DC22FFD2147FDE301F05F08CA41FD09E3EBF9D1C1FBC932DFF6F5CDEC65F1DA0165FE7FCA1861FE20DA0560673AE0F6FE1B7CC275FDFE31
103 DATA389423CA71FDFE32C275FDAF32B0FDC9F5CD8F62CD9B6ACDF96AF1CD89FDDAA360C39B60EB473AB0FDB778CA97632A62FBDF78CA97631AFE0D78C2
104 DATA33CE11ABFD131A1BFE0A78CA9763EB77E7F1C9003C53484946542D454E54455220666F7220576F726420577261703E0D0A0000000000
105 DATA00