1 'B3OF9.100 - Creates B3OF9.CO
10 CLS:CLEAR50,61788:X=99:AA=61788
11 DEFINTI-N:H$="0123456789ABCDEF"
12 PRINT@59,"Data line"
13 PRINT@99,"File address"
14 READA$:X=X+1:PRINT@72,X
15 B$=MID$(A$,1,2):GOSUB25:N=K
16 IFK=0THENSAVEM"B3OF9",61788,62611,61824:END
17 B$=MID$(A$,3,2):GOSUB25:L=K
18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0
19 FORI=1TON
20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25
21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K
22 NEXTI
23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
24 GOTO14
25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28
26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28
27 K=(K1-1)*16+K2-1:RETURN
28 BEEP:PRINT@165,"Non HEX Character in DATA":END
100 DATA 38EE1A3EBFD3B1DBE0E680C270722100F32231F3E1C921DB082220FB2120FB1122FB0606C342252199F12220FB21ADF12222FB21B8F12224FB21B1
101 DATA 38981DF12226FBC9F13E243234F3AF3235F33E243236F33E01C3DD14F1C3594DF12135F3C3CD17F12135F3CDC7183A34F34F3A36F3B9DAD1F1CDE0
102 DATA 380B17F1DA9414AF4F06003C3236F32100F3097EC38A4ECD38F3D82A31F3360D23360A2336007D3234F3AFCD6276AFC9A83901283BC86F52D7144F
103 DATA 387427F7514223DE49AEE977294274920004A0EE9064BC97213F95777D3AB86522FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
104 DATA 38FC03FFFFFFFF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
105 DATA 38D42B000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
106 DATA 38EC13FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000000000000000000000000000
107 DATA 38E41B00000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
108 DATA 389328FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB2100F21101F2060070CD42250637CD4225CD5CF1D8DBB3E608CA4A
109 DATA 38B91EF32E00DBB3E608CA4AF32CC257F3DBB3E608C262F32100F2F306000400CA38F3DBB3E608CA6FF3702CCA38F3C383F3060004CA98F3DBB3E6
110 DATA 38A82008C285F3702CCA38F3C36DF3FB2DEB2100F2E52C2C2C7EE177D5CD01F4D1FE52CAE0F3FE94C238F31100F3EB2231F3EB2CCD01F4FE94C811
111 DATA 387F1C38F4131A13FEFFCA38F3B9C2C6F31AE52A31F3772C2231F3E1C3BCF33A30F3B7C238F32100F27B1FE67F471A4F7E71121D2C05C2EFF37C32
112 DATA 380D1630F3C39BF30603E5545D1C0E081ABEDA10F4626B1C0DC209F43601E105C203F4E506097E3DCA26F436002C05C21FF4E12CAF060807B62C05
113 DATA 38A212C230F44FC93430613231347036253764394942194458460D474C491C4A434C134E5250075146531654C1569158D05A852DC420A824A22F8A
114 DATA 28580B2B2A25942A21316033303524380941184548430C48034B424D124F06528155C05790598421FF5490
115 DATA 000000