1 'VIEW80.100 by Don Hergert, loader added by Robert Benson
10 CLS:CLEAR50,61311:X=99:AA=61311
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"VIEW80",61311,62949,61311: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 388A1BCD22F42162F922BDF421EFF57E6F2600EB21EEF57E6F26001922BBF42ABDF4EB2102001922B9F421E6F522B7F42ABDF47E6F2600EB21C000
101 DATA 38EC1ECD76F47CB5C21BF0CDFFF2CD72F32AB9F4EB2ABDF4D5EB210A0019D1CD8EF47CB5CA04F02ABDF4EB210200197E6F2600EB210001CD49F4EB
102 DATA 383E1B2ABDF4D5EB210100197E6F2600D11922B5F4C338F02AB9F47E6F2600EB2AB7F47E6F2600CD8EF47CB5C2BFEF2ABDF4EB210B001922BDF42A
103 DATA 38E71CBDF4EB218BFACD8EF47CB5C258F2C39BEF2AB5F422B7F421010022B3F421310022B1F4CD3142CD16F321020022AFF421A6FFE52100007DE1
104 DATA 38F71C772AB7F47E6F260022ADF42AADF4EB212000CD8EF47CB5CA90F02AB9F4EB2103001922B9F4CD72F32AB7F422ABF4C3BEF121000022ABF42A
105 DATA 38FE1FADF4EB210D00CD8EF47CB5CAAEF021200022ADF4C37EF32AB9F4EB2ABBF4D5EB21F000D5EB2ABBF4EB424B08EB210200CD5DF4D119D1EBCD
106 DATA 383D2076F47CB5CAD9F0CD0BF32AAFF4EB213D00EBCD76F47CB5C2F2F12AADF4EB210900CD8EF47CB5CA11F12AB9F4EB211800CD5DF4EB211800CD
107 DATA 382A1D49F4EB2118001922B9F42AADF4EB217E00EBCD76F47CB5CA27F1217E0022ADF42AADF4EB211A00CD8EF47CB5CA42F1217F0022ADF4CD65F2
108 DATA 380222C3F2F1CD72F32AADF4EB212100CD76F47CB5C260F0CD65F22AB7F422ABF42AADF4EB212D00CD8EF47CB5C2BEF12AABF4EB2AB7F4EB424B08
109 DATA 38EE1DEB210300CD49F4EB2AB9F419EB210100EB424B08EB2ABBF4D5EB21F000D5EB2ABBF4EB424B08EB210200CD5DF4D119D1EBCD76F47CB5CABB
110 DATA 385A1FF12AB9F47CB5CABBF1CD0BF3C360F02AABF47E6F2600EB212100CD76F47CB5C26CF12AABF47E6F2600EB212D00CD8EF47CB5C26CF12AABF4
111 DATA 382A1EEB2101001922ABF4C3BEF121A6FF7E6F260022ABF42AABF47CB5C207F2C3F2F12AABF4EB212E00CD8EF47CB5C238F02AABF4EB213F00CD8E
112 DATA 388320F47CB5C258F22AABF4EB213B00CD8EF47CB5CA40F221C000E52ABDF4D17BCD40592AADF4EB217F00CD76F47CB5CA58F22AA9F422B7F4C34A
113 DATA 386B1CF021AAFFE52100007DE177CD975721C6F422A7F42AA7F4EB2AADF4D5EB212000EB424B08EB210300CD49F4D1197E6F260022ABF42AA7F4EB
114 DATA 38531C2101001922A7F421010022A5F42AAFF422A3F42AA5F4EB2AABF4CD6FF47CB5CABEF22AB9F4E52AA3F45DE155CD4C742AA3F4EB2101001922
115 DATA 383224A3F42AA5F4EB2AABF4CD76F47CB5CAE6F22AA5F4EB2AA5F41922A5F4C3A2F221000022ABF4CDFFF22AA7F4EB21C9F4CD76F47CB5C26BF2C9
116 DATA 38201B2AB9F4EB2101001922B9F4C92AAFF4EB2106001922AFF421F000EB2ABBF4EB424B08EB210200CD5DF422B9F42AAFF4EB213D00CD76F47CB5
117 DATA 38EF1FCA51F32AB3F4EB21E6F57E6F2600EBCD76F47CB5CA51F3C3A0F32AAFF4EB213900CD76F47CB5CA71F32AB3F4EB2101001922B3F42AB7F422
118 DATA 382221A9F4C92AB7F4EB2101001922B7F4C92AB9F4EB21EE00EBCD76F47CB5CA94F321EF0022B9F4CD65F2CD72F3CD0BF3C360F02AADF422A1F421
119 DATA 382B1F2D0022ADF4CD65F22AB9F4EB21030019EB2ABBF4D5EB21F000D5EB2ABBF4EB424B08EB210200CD5DF4D119D1CD76F47CB5C2ACF32AB1F4EB
120 DATA 38E81D213A00CD8EF47CB5CAF0F321300022B1F42AB1F422ADF4CD65F22AA1F422ADF42AAFF4EB213800CD76F47CB5CA1FF421010022B3F42AB1F4
121 DATA 38CB16EB2101001922B1F4C30BF321A1F41123003600231B7AB3C228F421C0F422C1F421000022C3F42123F9EB2125F91922BFF4C9444D2100003E
122 DATA 38C81D1029EB29EBD258F4093DC250F4C97CB5C8EB424B1100001308D266F41B09EBC97CA2677DA36FC97CEE80677AEE80BCC283F47BBDDA8AF421
123 DATA 38950E0000C921FFFFC97CBAC29CF47DBBC29CF421FFFFC9210000C900000000000000000000000000000000000000000000000000000000000000
124 DATA 380E02000000000000000400000017000300030A1B0A10371A1904130A151A0201000E110000110E150E15040E04100C000404040010001804030E
125 DATA 384403110E121F1019151211150A06041F1715090E1508011D031F151F02150E000A00100A00040A110A0A0A110A0401150208151E1E051E1F150A
126 DATA 382B040E110A1F110E1F15111F05010E11191F041F111F1108100F1F041B1F10101F061F1F011F1F111F1F09060E111E1F0916121509011F011F10
127 DATA 38BD031F0F100F1F0C1F1B041B031C031915131F110003041800111F0201021010100102000C121E1F120C0C12120C121F0C1A141E0902242A1C1F
128 DATA 384F04021C001D00201D001F0814001F001E041E1E021C0C120C3E120C0C123C1E020410161A021F021E101E0E100E1E081E120C1226281E1A1612
129 DATA 0FD600041B11001B00111B04150A15040E15
130 DATA 000000