1 'UPC.100 - Creates UPC.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"UPC",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 38451C08C285F3702CCA38F3C36DF3FB7DFE3BDA38F32198F32272F32100F32231F32103F2FE1BC2B8F32C2C2C2C2CE57E2C0603BEDAC2F37E2C05
111 DATA 38D71CC2BDF3570610E1E5C5B71F5FAF0604C507074F7E2CE52133F30D92DAE7F30C34C3DEF383FAEDF30C3479E1C105C2D3F35F2133F37E3600C1
112 DATA 38951AE105CA38F3FE07CA10F4DA0BF41414157AC3CBF3EB7D218AF40609BECA41F42305F217F43A30F3B7C238F3213AF21100F2061D1A4F7E7112
113 DATA 38E11A2D1C05C22FF47A3230F3C3ABF32A31F3702C2231F3210400197DFE38C2AEF32100F3E50E00CD7EF407814F2101F3E5CD7EF4E1D1D60ADA38
114 DATA 286F0FF3C268F41AF630122C1C3E0B93C270F412C906067E814F2C2C05C280F4C981122103180930455490
115 DATA 000000