0 'CLUB 100 Library, Modem 415-939-1246
10 'Basic program to build: TRON
11 CLS:CLEAR300,62616:X=99:AA=62616
12 DEFINTI-N:H$="0123456789ABCDEF"
13 PRINT@59,"Data line"
14 PRINT@99,"File address"
15 READA$:X=X+1:PRINT@72,X
16 B$=MID$(A$,1,2):GOSUB810:N=K
17 IFK=0GOTO800
18 B$=MID$(A$,3,2):GOSUB810:L=K
19 B$=MID$(A$,5,2):GOSUB810:L=K*256+L:L1=0
20 FORI=1TON:J=I*2+5
21 B$=MID$(A$,J,2):GOSUB810:POKEAA,K
22 PRINT@112,AA:L1=L1+K:AA=AA+1
23 NEXTI
24 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
25 GOTO15
100 DATA 38E81F3C54524F4E2052454D4F5645443EFFFF000021B6F42200F621FFF536C3C9F3F5C5D5E5DBBAE6FED3BA3EFFD3B9DBE8E602C21DF5DBBAF601
101 DATA 38A027D3BA3EFBD3B9DBE847FEEFC2E6F43EFF32A8F4C31DF578FEBFC2F3F4AF32A8F4C31DF5DBBAF601D3BA3EFED3B9DBE8FEFDC21DF53EC932FF
102 DATA 38B31DF5060E2198F47ECDE2F52305C20EF5CD2942C34EF53AA8F4FE00CA4EF51101002A7AF619D235F5CD54F5C34EF5217AF601A6F40ABEC247F5
103 DATA 386A1A23030ABECA4EF5CD54F5EBCD68F5E1D1C1F1FBC9217AF601A6F47E025F23037E0257C930303030301163F501F0D83E2F3C09DA70F5011027
104 DATA 38B6110912130118FC3E2F3C09DA80F501E803091213019CFF3E2F3C09DA90F501640009121301F6FF3E2F3C09DAA0F5010A000912133E308512C3
105 DATA 38D722B2F53E5BCDE2F5160006052162F52305CAD8F57AFE01CAD1F57EFE30CABEF516017ECDE2F5C3BEF57ECDE2F53E5DCDE2F5C94FF5C5D5E5CD
106 DATA 07BC044C43E1D1C1F1C9
107 DATA 000000
800 SAVEM"TRON",62616,62958,62634
810 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO840
820 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO840
830 K=(K1-1)*16+K2-1:RETURN
840 BEEP:PRINT@165,"Non HEX Character in DATA"
850 END