1 'FLCHK.100 Creates a M100/102 version of James Yi's FLCHK.200 (6/19/88)
2 'Returns the checksum and file length of BA, CO or DO files and saves the
3 'results to CHKSUM.DO, you must enter the files extension.
10 CLEAR50:GOSUB29
11 PRINT@41,"Input END address?";:PRINT@121,"ENTER alone to put it just below HIMEM"
12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29
14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address";
15 GOSUB24:IFO=0THENPOKEA,K:A=A+1:GOTO15
16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256
17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15
18 SAVEM"CHKSUM",B,C,D
19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23
20 IFU>16THENU=U-16:O=1ELSEO=0
21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23
22 K=(U-1)*16+V-1:RETURN
23 BEEP:PRINT@165,"Bad Hex character":END
24 IFM<N*2+5THEN28
25 IFL<>RTHENBEEP:PRINT@165,"Checksum failed":END
26 READY:M=1:GOSUB19:IFK=0THEN18
27 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB19:M=5:L=K:GOSUB19:L=K*256+L:R=0
28 M=M+2:GOSUB19:R=R+K:RETURN
29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=554:D=0:RETURN
100 DATA385C18CD3A1FCD462121H902010800CD666321VF01CDA211CD3E46D7C8DAM000CDFA21CD0B4CCDAF20CAG3007EF5D5CDM301444DD1F132I902FEC0
101 DATA383917CAO300FEA0CAL700ED7CB5CAV000131313131A13B7CAK0001BCDP300C3KA00131313131313C3O300E5D7DAM100AF32I90277EBE1D5CDEB08
102 DATA38661AE1362CD5CDEC08EBC1C50823E5EBCDPE01C1D13E8532IA0278B1CAV000CDP300C3O8000B3AI902FEC01A13C2R40021IA02FE0DCAU700D5C5
103 DATA38F519F5B7FCL70135CCLD01F1C1D1C54721I00278B7C1C8C5470E01FE0ADAT1002B0E0AFE64DAT1000E642B3491D2T1008147357EFE0ADAR600D6
104 DATA38B5140A772B34C3T9001AFE0AC0130B3685C92185F6E5CDFA21160019363A2311E8FB0606CD6934362F23EB21GF02CDA21121H802237EB73E30FA
105 DATA385A14I101CAH2017E23C630E712137E3CC2HD01EB360D23360AC108C5444D03C521I202CD0622CD2D6BC1CD6D6BD1D2L00121B160CD9157C3G300
106 DATA38A31D41CD6934C3G300111E1EC3TB0111C81EC3TB017ECDE35AFEA0CAP901FEB0CAS101FEF0CAS101FEC0CAOB01E5EBCDF405D17D935F7C9A571B
107 DATA38E717C3PE013E1A11FFFFBE2313C2P001C3PE0123235E2356EBE5CDSD014C656E6774683A2000CDD439CDSD01204279746500E17D3DB43E73C444
108 DATA3812204B3A3AF6FE17D03E20E7C3S101E3CDT301E3C97E23B7C8E7C3T301F5D5CD5C7642CD76764BCD577605C2U101D1CDV401F1C3VB01DBBAF620
109 DATA33E00DD3BAC93E0930C90D0A46696C6520746F20636865636B0043686B53756D203D20000000000000000000FF43484B53554D000000
110 DATA00