0 '"UC2MIX.100" -- Loader to create UC2MIX.CO, short M/L program which runs in the Alt LCD buffer to convert all UC text files to a mixed format.
1 'Phil Wheeler -- 71266,125 [8/2/87]
2 GOSUB99
3 B=64704
6 CLS:PRINT"        Creating UC2MIX.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"UC2MIX",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=209:D=0:RETURN
100 DATA38F81DCD3142CD3A1FCD22422170FDCD9157CD4446D7CA51FD2185F6E52B23CDE80F77FE2ECAE9FCB7C2DBFC116CFD0604CD6934D13E0ACDAB5ACA
101 DATA382A223FFDCDE35A06017EFE1ACAC0FCFE2ECA39FDFE3FCA39FDFE3ACA39FDFE21CA39FDFE5BD23BFDFE41DA3BFDF578FE01C230FDF10600C33BFD
102 DATA381A19F1C620770600C33BFD060123C3FFFC2182FDCD9157CD62762154FDCD9157CD2F5FC3975750726573732053706163652042617220746F2045
103 DATA2A250D786974002E444F0046696C6520746F2050726F636573733F200046696C65206E6F7420466F756E642100
104 DATA00