0 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
1 'RESEQ.100 adapted for the Model 100 by Phil Wheeler
2 'Originally written for the Model 200 by James Yi
3 'First run this program to create RENUM.CO
4 'Next load the program to be renumbered into BASIC.
5 'Then execute "CALL HIMEM,A,B" were A=increments and B=starting line number.
10 CLEAR50:GOSUB29
11 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
12 Y="":PRINT@153,SPACE$(30);:PRINT@153,;: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"RENUM",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=396:D=0:RETURN
30 DATA387F1222O001444DB7C86F260022O201AF32O4016F2B22O5012A7CF6EB21050009DAJ100ED7CB5CAJ600EB2AO20109444DD2HA001E05C35D042A7C
31 DATA384317F6EB3AO4013C32O401FE03CAK7012AO5012425FALE0023444DEBCD6D6B1E07DA5D04CD9F6BEBCD7676ED7CB5CAJ6001313ED229FFB13131A
32 DATA38F51713B7CALE0021N601BE23CAOE003435C2N800FE3AC2MF001AFE91C2MF00131BEB237EFE20CAP0002BD7DAQ000EBC3MF0022O7012BCDEC08EB
33 DATA38FD1622O9012AO001444D2A7CF6EBED7CB56B1E08CACB045D1313EDD5EB2AO901DFD1CAT9001313CDMF012AO20109444DC3R4006069CDD4393E0D
34 DATA386414E701060021E8FB0D237EFE20CAU70022OB01C52AO7010DD7DAV6002AO5010979B7F2G70108050922O501D13AO4013DCAJ7012AAEFB0922AE
35 DATA38E919FB2AO701D5DAI601CD6D6BC3IF0179EEFF4F0403CD9F6BC1EB2AOB01CDDD2E2AO701D7DAJA01EBFE2CCAOF00C3MF002A7CF6EB2AO001444D
36 DATA384D13ED7CB5CA4621D513137912137812132AO20109444DCDMF01E1732372C3L0011A13B7C2MF01C9888CCD958B89A5A693000000000000000000
37 DATA0500000000000000
38 DATA00