1 'SPELL2.BA/CO by Fred Edelkamp, loader by Robert Benson
10 CLS:CLEAR50,57200:X=99:AA=57200
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"SPELL2",57200,59537,58716: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 385E1DCD83E42118FF7E6F2600EB215700CDFBE47CB5C289DFC354E42159F37E6F2600EB21E500CDFBE47CB5CACBDF215AF37E6F2600EB215E00CD
101 DATA 38F81EFBE47CB5CACBDF2149F47E6F2600EB21C300CDFBE47CB5CACBDF21BAF9222DE5C3DEDFCD2242CDD0E44E6F20466C6F70707900C354E42A2D
102 DATA 388619E5EB21020019222BE52164FE2229E52A2DE57E6F2600EB21C000CDE3E47CB5C282E02A2BE5EB21010019222BE5CD19E32A2BE5EB2A2DE5D5
103 DATA 386C18EB21090019D1CDFBE47CB5CA4FE02A2DE5EB210200197E6F2600EB210001CDAAE4EB2A2DE5D5EB210100197E6F2600D1192227E5C39FE02A
104 DATA 3876192BE57E6F2600EB2A29E57E6F2600CDFBE47CB5C202E02A2BE57E6F2600EB21200019EB2A29E57E6F2600CDFBE47CB5C202E02A2DE5EB210B
105 DATA 382E1B0019222DE52A2DE5EB218BFACDFBE47CB5C254E4C3DEDF2100002225E5CDEAE3217DE52229E52136E5222BE5217FE57E6F2600EB214400CD
106 DATA 383F1DFBE47CB5CADAE02182E57E6F2600EB215400CDFBE47CB5C2DDE0C343E42A2BE5E52A29E57E6F26007DE177CDB4E32A29E5EB211F00192229
107 DATA 386D19E52A29E5EB2185E8CDE3E47CB5C2DDE02A2DE5EB21030019E52153007DE1772A2DE5EB21040019E52155007DE1772A2DE5EB21050019E521
108 DATA 38AA1453007DE1772A2DE5EB21060019E52150007DE1772A2DE5EB21070019E52145007DE1772A2DE5EB21080019E52143007DE177CD3142218000
109 DATA 38A119CDD6E4CDD0E4436865636B696E6720444943542D00C3B9E22A27E5EB210100192229E52A29E57E6F2600EB2A2BE57E6F2600CDFBE47CB5C2
110 DATA 38EA1AA8E32A29E57E6F2600EB212C00CDFBE47CB5C225E32A29E57E6F2600EB2A2BE57E6F2600EBCDE3E47CB5C2F9E12A2BE57E6F2600EB210D00
111 DATA 384C20CDFBE47CB5C2F9E12A29E57E6F2600EB212C00CDFBE47CB5C25CE3CD19E3C3E0E12A2BE57E6F2600EB210D00CDFBE47CB5CA12E2CDB1E3C3
112 DATA 38172018E2CDB4E3C3F9E12A27E57E6F2600EB2A2BE57E6F2600CDFBE47CB5C232E2C35CE3CDB4E3C380E1215DE57E6F2600EB21FF00CDFBE47CB5
113 DATA 38A318C2A5E2215EEA222DE52A2DE5EB210100EB424B08222DE52A2DE57E6F2600EB210A00CDFBE47CB5C275E2C351E22A27E5EB210100197E6F26
114 DATA 38531C00EB2A2DE5D5EB210200197E6F2600D1EBCDE3E47CB5CAA5E2CDD0E32101002223E5C338E22A23E57CB5CAB6E22100002223E5C3F9E1C332
115 DATA 388E1BE22A27E57E6F2600EB211A00CDFBE47CB5CAD2E2CD2942C380E42A27E57E6F2600EB2A2BE57E6F2600CDFBE47CB5C238E22A27E57E6F2600
116 DATA 38A418EB21D5E4197E6F26002225E5218E00CDD6E42A27E57E6F2600EB212000EB424B087DE7CDDAE3C338E22A29E5EB210100192229E5C92A2BE5
117 DATA 38141F7E6F2600EB210D00CDFBE47CB5CA5CE3CD19E32153E5E52A29E5EB2A27E5EB424B087DE177E52A27E5D17BCD50E5CDB1E3C3B9E22A2BE5EB
118 DATA 386919210100EB424B08222BE52A2BE57E6F2600EB210A00CDFBE47CB5CAA5E3CDB4E3210D00E52A29E5D17BCD616BCD19E32A29E5E5210A007DE1
119 DATA 38D52077CD19E32A29E52227E5C3B9E2C35CE3CD19E3CDB4E3C38BE1CDB4E32A2BE5EB21010019222BE52A2BE5EB215FEAEBCDE3E47CB5C2D0E3C9
120 DATA 382D1C215DE57E6F26002225E52A25E5EB219F00EBCDE3E47CB5C254E42158E5E5215C007DE1772159E5E521E5007DE177215AE5E52A25E57DE177
121 DATA 38F319215BE5E52100007DE177210300E52158E5D17BCD59F3215AE57E6F2600EB210100EBCDE3E47CB5C243E4215FE5E5210A007DE1772160E522
122 DATA 38EE172BE5C9CD2242CDD0E44469736B204572726F7200CD2242CD2942CDD0E4507265737320616E79206B657920746F2072657475726E20746F20
123 DATA 386D146D656E7500CDCB12CD97572123E51111003600231B7AB3C289E42130E52231E52100002233E52123F9EB2125F919222FE5C9444D2100003E
124 DATA 380D1C1029EB29EBD2B9E4093DC2B1E4C97CB5C8EB424B1100001308D2C7E41B09EBC9E1CD585A23E9EB212800CDBEE463242CC37C427CEE80677A
125 DATA 381F16EE80BCC2F0E47BBDDAF7E4210000C921FFFFC97CBAC209E57DBBC209E521FFFFC9210000C900000000000000000000000000000000000000
126 DATA 38B50200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006000E01CD9F6BC9
127 DATA 38F920000000002173E7CD9DE5CD2942210BE8CD9157CDCB12E7FE59CA7FE5FE79CA7FE52148E8C3D8E5CDF9E521D3E7CD9157CDE9E62164E8CD91
128 DATA 38571F57CD6FE621F0E7CD9157C3E3E5E5CD3142CD2242CD3A1FCD2942E1CD9157CD3E462185F6E52B23CDE80F77FE2ECAC4E5B7C2B6E51150E706
129 DATA 38C81E04CD6934D13E0ACDAB5AC2F2E52187E7E5CD6942E1CD9157CD6E42CD70DF2154E7CD9157CDCB12C39757CDE35A224CE7C92A4CE72B237EFE
130 DATA 38BC211AC8FE7BF23DE6FE61F219E6FE5BF23DE6FE41FA3DE6C62077237EFE1AC224E6CD58E6C9FE2DCA19E6FE27CA19E6FE7BFA43E63E643231F9
131 DATA 387D21362CC3FDE5CD61E6C3FDE5FE61F219E6FE5BF233E6FE41FA33E6C62077C319E63E2CCD616BDA69E6C9010100CD9F6B2BC9219FE7C3D8E5AF
132 DATA 384924324BE72A4CE7E5CDDAE6224EE7E1EB482A4EE7E5CDDAE6224EE7E178B7CA9FE6C5D5E5CDC9E6E1D1C1DCACE6C37EE63E643231F93A4BE7B7
133 DATA 388A1CC26FE6C9C5E51185F6CD4225D1EB0CCDE82E1185F6C104CD6C34413EFF324BE7C9EB050D1ABEC0130537C8AF230DC2CCE6C906007EFE1AC8
134 DATA 3858222304C8FE2CC2DCE6C92A4CE7CD09E7B7C8EB482A4EE7CD09E7B7C222E73E643231F9EBCDDAE6C3ECE6E5CDDAE6224EE7E178FE02C0D5C501
135 DATA 387F1C0200CD9F6BC1D1C309E7D5C5E579B8C245E71ABEC245E72305130DC22AE7E1C1C5480600CD9F6B224EE7C346E7E1C1D1C3F3E60000000000
136 DATA 3897102E444F005370656C6C322E434F2031362041505220383720462E4564656C6B616D700052414D2066696C6520746F2070726F636573730052
137 DATA 384F13414D2066696C6520776173206E6F7420666F756E642E004D656D6F72792077617320696E61646571756174652E0D0A506C65617365207265
138 DATA 38F0136D6F7665206578636573732066696C65732E00576F7264206C69737420686173206265656E20636F6D70696C65642E00576F7264206C6973
139 DATA 38A8127420686173206265656E20736F727465642E00496E736572742044696374696F6E617279206469736B20696E206472697665212020200D0A
140 DATA 388F12446F20796F7520686176652061206261636B2D75703F20004261636B2D75702066696C6520616E642074727920616761696E2E004475706C
141 DATA 2A630F696361746520776F7264732068617665206265656E2073747269707065642E001E547F44010000CEE3F0
142 DATA 000000