[comp.binaries.apple2] Kermit 3.87 1 of 2 APP387.1

beh@bass.bu.edu (Bruce E. Howells) (01/31/91)

REMFIRST LINE OF APP387.1-- KEEP REM LINES
REMSAVE AS "APP387.1" [AS RECEIVED, WITHOUT REMOVING UUCP HEADERS]
REM811 LINES,35159 BYTES '90 OCT 17
REM***WARNING APP387.2 IS DELETED BY INSTALL
REM
REMTHIS FILE REQUIRES ONLY <RETURNS> AFTER EACH LINE (THE FORM IS 8D HEX)
REMAND DOS 3.3 TEXT BYTES(HIGH BIT ON)
REMMANY SYSTEMS WILL ADD A SPACE BEFORE THE CARRIAGE RETURN.
REMYOU MUST REMOVE THE SPACE BEFORE IT WILL WORK.
REMALSO FIX THE LINE AT THE VERY END OF PART 2 IF NECESSARY.
REM
REM
REM
REM
REM
REMCOPY DOWNLOADS 'APP387.1' AND 'APP387.2' TO MASTER DISK
REMBOOT THE DISK THEN:
REM EXEC APP387.1,R25<RETURN>       [YES, THAT'S "R25"]
REM
REMTO REINSTALL:
REM BLOAD KERMIT387<RETURN>
REM EXEC APP387.INSTALL<RETURN>
REMRemember:fix size of bin save
REM pgm must fit between 4096 & lomem
REM test is made at 131 for correct load of kermit
REM test is made at 141 for lomem token & 3 the first digit of lomem
REMKEEP REM LINES
REM
CLOSE
NEW
75 IF PEEK(-8192)=32 THEN GOTO 100:REMINTEGER?
95 END
100 ? "SORRY, STOPPING HERE"
110 ? "APPLESOFT REQUIRED"
120 POKE-21837,0:CALL-23830:REMEXEC FLAG OFF AND CLOSE
130 END
RUN
TEXT:SPEED=100
?"  (ALL THOSE ']' PROMPTS ARE NORMAL)"
?"":SPEED=255
NEW
75 IF PEEK(48896)=76 OR PEEK(978)><157 GOTO 100:REMPRODOS OR MOVED DOS?
95 END
100 D$=CHR$(4):G$=CHR$(7):M$=CHR$(13)
110 F$="T":FE$=D$+"EXEC "+F$:FD$="DELETE "+F$
120 EE$=G$+"SORRY, STOPPING HERE"+M$+M$+G$
130 ? D$;"OPEN ";F$:? D$;"WRITE ";F$:? "CLOSE"
140 IF PEEK(978)=190 THEN ? FD$
150 ? "END":? D$;"CLOSE ";F$
160 ? EE$;"NORMAL DOS 3.3 REQUIRED":? FE$:END
RUN
CLOSE
CALL-151
0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8
0310:18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41
0320:68 18 90 F0 88 D0 E9 68 AA 68 A8 68 60 00 00 00
0330:68 A8 68 A6 DF 9A 48 98 48 60 00
3D0G
FP
10D$=CHR$(4):G$=CHR$(7):M$=CHR$(13):Q$=CHR$(34):VN$="387":V$="APP"+VN$+"."
20KR$="KERMIT"+VN$:C0$="INSTALL":C1$="SS":C2$="SV":C3$="MM":C4$="AC":FS=65
23C5$="CC":C6$="GS":C7$="CP":C8$="CT":CF$="INIT":H$="KERMIT.":CH$="HELP"
30EE$=G$+M$+"SORRY, STOPPING HERE"+M$+G$:C9$="AE"
110ONERRGOTO1000
112TL=3:FORT=2TOTL:T$(T)=STR$(T):NEXTT:T=2:E=0
115L$(0)="HOWDY--"
117L$(1)=""
119L$(2)="GONNA MAKE YOU A DOS KERMIT OF YOUR OWN"
121L$(3)="BUT FIRST,"
123L$(4)="GONNA CHECK TO SEE IF WE'VE GOT ALL THE"
125L$(5)="FILE NAMES SPELLED AS EXPECTED.  AND,"
127L$(6)="IF THERE'S ENOUGH SPACE ON THIS DISK."
130TEXT:NORMAL:HOME
135FORV=0TO6:FORH=40TO1STEP-3:VTABV+1:INVERSE:?SPC(40):?:VTABV+1:NORMAL
137?LEFT$(L$(V),41-H):NEXT:NEXT
140?D$;"VERIFY ";V$;T
150T=T+1:IFT<TLGOTO140
300CALL768:SC=PEEK(64)+PEEK(65)*256
305IFSC<FSTHENE=E+1:E$(E)="NOT ENOUGH FREE SPACE ON THIS DISK"
350IFE>0GOTO3000
400?"LOOKIN GOOD":?:?"GO DO SOMETHING INTERESTING"
410?"FOR A FEW  MINUTES":?:?"WILL 'BEEP' WHEN YOU'RE NEEDED":?
420POKE216,0:FORI=1TO2000:NEXTI:END
1000IFPEEK(222)><6GOTO9000
1010E=E+1:E$(E)="CAN'T FIND "+V$+T$(T):T=T+1:IFT<TLTHENRESUME
1020GOTO300
3000?EE$:?" PROBLEMS TO FIX:":?
3010POKE216,0:FORI=1TOE:?E$(I):NEXTI
4000POKE-21837,0:?D$;"CLOSE":END
8000REMLAST LINES OF CFIG'S (FOLLOWING)
8010?"3D0G"
8020?EX$
8085?"END"
8090?CL$
8095END
8500REMASSIGN STRINGS FOR CFIG'S (FOLLOWING)
8550CV$=V$+C$:O$=D$+"OPEN"+CV$:W$=D$+"WRITE"+CV$:CL$=D$+"CLOSE"+CV$
8555EX$="EXEC"+V$+C0$+",R1"
8595RETURN
9000 REMONERR ERROR ROUTINE
9005CALL816
9010PE=PEEK(222):POKE216,0:?EE$
9020?"IF CONFUSED, ASK FOR HELP":?"-- YOU GOT DOS ERROR #";PE
9999POKE-21837,0:?D$;"CLOSE":END:REMEXEC OFF AND CLOSE
RUN
CLOSE
DEL40,7999
50ONERRGOTO9000
99GOSUB8500:?O$:?W$
REMSTART OF CFIG'S
98C$=C1$
103?"REM1ST LINE OF ";V$;C1$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:09 7F"
118?"100C:FD 8B"
119?"1020:4C ED 7F 4C 69 81 4C EE 80 4C FF 80 4C 1A 81 4C 31 81"
120?"7F00:00 00 00 00 00 00 00 00 00 D3 D3 C3 A0 D6 B1 AE B1 B5"
121?"7F12:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
122?"7F22:A0 CC CF D7 00 3C AD A0 C2 C1 C4 A0 C3 CF CD A0 C3 CD"
123?"7F34:C4 00 68 AA 6C 04 7F 8A 48 AD 89 C0 10 F4 29 08"
124?"7F44:D0 52 2C 0B 10 10 2B 70 26 AD 07 7F F0 0C AD 06 7F"
125?"7F55:D0 1F A9 13 8D 06 7F D0 0F AD 06 7F F0 13 A9 00"
126?"7F65:8D 07 7F 8D 06 7F A9 11 20 4F 10 8D 88 C0 4C DE 7F"
127?"7F76:AD 02 7F CD 03 7F F0 14 EE 03 7F CD 03 7F F0 0C"
128?"7F86:AE 03 7F BD FD 8A 8D 88 C0 4C DE 7F 20 E3 7F 4C DE 7F"
129?"7F98:AD 88 C0 AE 01 7F 9D FD 81 2C 0B 10 10 26 29 7F"
130?"7FA8:C9 11 D0 0E A9 BF 2D 0B 10 8D 0B 10 20 E9 7F 4C DE 7F"
131?"7FBA:C9 13 D0 0E A9 40 0D 0B 10 8D 0B 10 20 E9 7F 4C DE 7F"
132?"7FCC:EE 01 7F D0 0D AE A0 7F E8 E0 8A D0 02 A2 81 8E A0 7F"
133?"7FDE:68 AA A5 45 40 A9 01 8D 8A C0 60 A9 05 D0 F8 78"
134?"7FEE:AD 05 7F D0 25 AD FE 03 8D 04 7F AD FF 03 8D 05 7F"
135?"7FFF:A9 7F CD 0A 10 F0 04 90 09 B0 0E A9 00 CD 09 10"
136?"800F:B0 07 A2 13 A0 7F 20 82 81 AD 08 10 F0 0C 58 60"
137?"801F:A9 60 8D E9 7F 8D E3 7F D0 09 AD C0 FB F0 F1 C9 E0"
138?"8030:D0 5B AD E2 7F 8D DE 7F A9 3D 8D FE 03 A9 7F 8D FF 03"
139?"8042:A2 00 BD 38 7F 9D 36 7F E8 E0 03 D0 F5 A2 00 2C 11 C0"
140?"8054:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
141?"8065:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
142?"8075:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
143?"8087:3C 81 C0 4C 97 80 A9 3B 8D FE 03 A9 7F 8D FF 03"
144?"8097:A9 00 8D 00 7F 8D 01 7F 8D 02 7F 8D 03 7F A9 81"
145?"80A7:8D A0 7F 8D 05 81 AE 07 10 8E 08 10 18 A9 89 6D 07 10"
146?"80B9:8D 3E 7F 8D 54 81 18 A9 88 6D 07 10 8D 8D 7F 8D 99 7F"
147?"80CB:8D 71 7F 8D 61 81 8D 27 81 A9 8A 18 6D 07 10 8D E6 7F"
148?"80DD:A9 05 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0 58"
149?"80ED:60 78 AD 00 7F CD 01 7F D0 06 AD A0 7F CD 05 81"
150?"80FD:58 60 78 AE 00 7F BD FD 81 EE 00 7F D0 0D AC 05 81"
151?"810E:C8 C0 8A D0 02 A0 81 8C 05 81 58 60 78 AE 02 7F"
152?"811E:9D FD 8A EC 03 7F D0 06 8D 88 C0 20 E9 7F EE 02 7F"
153?"812F:58 60 78 AD 05 7F F0 1A AD 04 7F 8D FE 03 AD 05 7F"
154?"8140:8D FF 03 A9 00 8D 05 7F AE 07 10 9D 89 C0 9D 8A C0"
155?"8151:60 AA AD 89 C0 29 10 F0 0E 8A 29 7F 20 4F 10 8D 88 C0"
156?"8163:20 E9 7F A9 01 60 F0 C6 C9 0C F0 69 C9 0B F0 54"
157?"8173:C9 91 F0 14 C9 93 F0 30 20 DA FD A2 27 A0 7F 20 43 10"
158?"8185:20 49 10 A9 00 60 78 20 52 81 F0 0C A9 00 8D 07 7F"
159?"8196:8D 06 7F A9 01 58 60 A9 00 8D 07 7F 58 AD 06 7F"
160?"81A6:D0 FB A9 01 60 78 20 52 81 F0 0A A9 01 8D 06 7F"
161?"81B6:8D 07 7F 58 60 A9 01 8D 07 7F 58 AD 06 7F F0 FB"
162?"81C6:60 AE 07 10 78 BD 8B C0 29 F0 0D 03 10 9D 8B C0"
163?"81D6:58 60 78 AC 07 10 B9 8A C0 09 0C 99 8A C0 A9 E9"
164?"81E6:8D 08 7F AD 0E 10 20 40 10 CE 08 7F D0 F5 A9 05"
165?"81F6:99 8A C0 58 A9 01 60"
RUN
DEL 100,7999
98C$=C2$
103?"REM1ST LINE OF ";V$;C2$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:05 7F"
118?"100C:99 82"
119?"1020:4C 53 7F 4C 42 80 4C 9D 7F 4C FD 7F 4C 07 80 4C 33 80"
120?"7F00:00 00 00 00 00 CD C9 C3 D2 CF D4 C5 CB A0 D3 D6 AD"
121?"7F11:B6 B2 B2 A0 D6 B1 AE B8 00 AA AA AA AA AA C5 D2 D2 CF"
122?"7F23:D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5"
123?"7F35:D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF"
124?"7F47:D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 A9 7F CD 0A 10"
125?"7F58:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 1A"
126?"7F69:A0 7F 20 43 10 20 49 10 AD 08 10 D0 26 A9 00 8D 00 7F"
127?"7F7B:8D 01 7F 8D 02 7F 8D 03 7F AE 07 10 A9 0B 8D 08 10"
128?"7F8C:9D 89 C0 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0"
129?"7F9C:60 AE 07 10 BD 89 C0 29 08 F0 4F BD 88 C0 AC 00 7F"
130?"7FAD:99 99 80 EE 00 7F 2C 0B 10 10 3E B9 99 80 29 7F"
131?"7FBD:C9 11 D0 26 AD 0B 10 29 BF 8D 0B 10 CE 00 7F AC 03 7F"
132?"7FCF:CC 02 7F F0 22 BD 89 C0 29 10 F0 F9 B9 99 81 9D 88 C0"
133?"7FE1:EE 03 7F 4C CC 7F C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10"
134?"7FF3:CE 00 7F AD 00 7F CD 01 7F 60 AE 01 7F BD 99 80"
135?"8003:EE 01 7F 60 48 AE 07 10 BD 89 C0 29 10 F0 1B 2C 0B 10"
136?"8015:10 0F 50 0D AC 02 7F 68 99 99 81 EE 02 7F 4C A0 7F"
137?"8026:68 9D 88 C0 4C A0 7F 20 A0 7F 4C 0B 80 A9 00 8D 08 10"
138?"8038:AE 07 10 9D 89 C0 9D 8A C0 60 F0 12 C9 0C F0 2E"
139?"8048:C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00 60 AE 0B 10"
140?"805A:10 F8 29 7F 20 4F 10 20 07 80 A9 01 60 AE 07 10"
141?"806A:BD 8B C0 29 F0 0D 03 10 9D 8B C0 60 AC 07 10 B9 8A C0"
142?"807C:48 09 0C 99 8A C0 A9 E9 8D 04 7F AD 0E 10 20 40 10"
143?"808D:CE 04 7F D0 F5 68 99 8A C0 A9 01 60"
RUN
DEL 100,7999
98C$=C3$
103?"REM1ST LINE OF ";V$;C3$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:07 7F"
118?"100C:F9 83"
119?"1020:4C 9E 7F 4C A4 81 4C 05 81 4C 65 81 4C 6F 81 4C 9B 81"
120?"7F00:00 00 00 00 00 00 00 C8 C1 D9 C5 D3 A0 CD C9 C3"
121?"7F10:D2 CF A0 CD CF C4 C5 CD A0 D6 B1 AE B8 00 C3 CF CD"
122?"7F21:A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1 D3 CD A0 D4 CF CF A0"
123?"7F33:CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 CE D5 CD"
124?"7F44:C2 C5 D2 A0 D4 CF A0 C4 C9 C1 CC BA 00 C1 D7 C1"
125?"7F54:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE C1 CE"
126?"7F66:D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 00 C3 CF CE"
127?"7F76:CE C5 C3 D4 C5 C4 AE 00 D4 C8 C5 D2 C5 A0 D7 C9 CC"
128?"7F87:CC A0 C2 C5 A0 C1 A0 B3 B5 A0 D3 C5 C3 A0 C4 C5 CC C1"
129?"7F99:D9 00 A9 01 60 A9 7F CD 0A 10 F0 04 90 0B B0 13"
130?"7FA9:A9 00 CD 09 10 F0 0C B0 0A A2 1E A0 7F 20 43 10"
131?"7FB9:20 49 10 AE 07 10 BD 87 C0 BD 86 C0 29 04 F0 D2"
132?"7FC9:8A 4A 4A 4A 4A 8D 06 7F A2 7E A0 7F 20 43 10 20 49 10"
133?"7FDB:A5 36 48 A5 37 48 AD 06 7F 20 95 FE A9 91 20 ED FD"
134?"7FEC:A9 8D 20 ED FD A9 9A 20 ED FD A9 14 8D 01 7F A9 7D"
135?"7FFD:8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5 CE 01 7F"
136?"800E:D0 EB 68 85 37 68 85 36 A9 8D AE 07 10 9D 85 C0"
137?"801E:A9 03 9D 87 C0 A9 11 9D 87 C0 A9 14 8D 01 7F A9 7D"
138?"802F:8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5 CE 01 7F"
139?"8040:D0 EB A2 41 A0 7F 20 43 10 20 0C FD 20 ED FD 29 7F"
140?"8051:C9 30 30 5F C9 3A 10 5B 29 0F D0 02 A9 0A 8D 01 7F"
141?"8062:A9 0D AE 07 10 9D 85 C0 A9 3D 8D 00 7F AD 0E 10"
142?"8072:20 40 10 CE 00 7F D0 F5 A9 8D AE 07 10 9D 85 C0"
143?"8082:A9 27 8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5"
144?"8092:CE 01 7F D0 CB A9 06 8D 01 7F A9 64 8D 00 7F AD 0E 10"
145?"80A4:20 40 10 CE 00 7F D0 F5 CE 01 7F D0 EB 4C 49 80"
146?"80B4:C9 0D D0 91 20 49 10 A2 51 A0 7F 20 43 10 AE 07 10"
147?"80C5:2C 00 C0 10 0E 20 0C FD A9 00 AE 07 10 9D 85 C0"
148?"80D5:A9 00 60 BD 87 C0 BD 86 C0 29 04 D0 E3 A9 8F 9D 85 C0"
149?"80E7:20 49 10 A2 73 A0 7F 20 43 10 20 49 10 A9 00 8D 02 7F"
150?"80F9:8D 03 7F 8D 04 7F 8D 05 7F A9 01 60 AE 07 10 BD 86 C0"
151?"810B:29 01 F0 4F BD 87 C0 AC 02 7F 99 F9 81 EE 02 7F"
152?"811B:2C 0B 10 10 3E B9 F9 81 29 7F C9 11 D0 26 AD 0B 10"
153?"812C:29 BF 8D 0B 10 CE 02 7F AC 05 7F CC 04 7F F0 22"
154?"813C:BD 86 C0 29 02 F0 F9 B9 F9 82 9D 87 C0 EE 05 7F"
155?"814C:4C 34 81 C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 02 7F"
156?"815E:AD 02 7F CD 03 7F 60 AE 03 7F BD F9 81 EE 03 7F"
157?"816E:60 48 AE 07 10 BD 86 C0 29 02 F0 1B 2C 0B 10 10 0F"
158?"817F:50 0D AC 04 7F 68 99 F9 82 EE 04 7F 4C 08 81 68"
159?"818F:9D 87 C0 4C 08 81 20 08 81 4C 73 81 A9 00 AE 07 10"
160?"81A0:9D 85 C0 60 F0 23 C9 0C F0 28 C9 0B F0 0A C9 91"
161?"81B0:F0 07 C9 93 F0 03 A9 00 60 AE 0B 10 10 F8 29 7F"
162?"81C0:20 4F 10 20 6F 81 A9 01 60 AE 07 10 9D 85 C0 A9 01"
163?"81D1:60 AC 07 10 AE 06 7F BD F8 07 09 60 99 86 C0 A9 E9"
164?"81E2:8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5 BD F8 07"
165?"81F3:29 9F 99 86 C0 60"
RUN
DEL 100,7999
98C$=C4$
103?"REM1ST LINE OF ";V$;C4$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:08 7F"
118?"100C:0B 83"
119?"1020:4C 86 7F 4C BB 80 4C 28 80 4C 88 80 4C 92 80 4C BA 80"
120?"7F00:00 00 00 00 00 00 00 01 C1 D0 D0 CC C5 A0 C3 CF CD"
121?"7F11:CD A0 C3 C1 D2 C4 A0 D6 B1 AE B9 00 AA AA AA AA AA C5"
122?"7F23:D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4"
123?"7F35:C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF"
124?"7F47:A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 C1 D7 C1"
125?"7F59:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE AE A8"
126?"7F6B:C1 CE D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 A9 00"
127?"7F7B:C3 CF CE CE C5 C3 D4 C5 C4 AE 00 A9 7F CD 0A 10"
128?"7F8B:F0 04 90 0B B0 16 A9 00 CD 09 10 F0 0F B0 0D A2 1D"
129?"7F9C:A0 7F 20 43 10 20 49 10 4C D0 03 A9 08 8D FE 03"
130?"7FAC:A9 81 8D FF 03 AD 07 10 4A 4A 4A 4A 8D 05 7F AE 07 10"
131?"7FBE:A9 03 9D 8E C0 A9 15 9D 8E C0 AE 07 10 BD 8F C0"
132?"7FCE:BD 8E C0 29 04 D0 0B A9 15 8D 06 7F 9D 8E C0 A9 01"
133?"7FDF:60 A2 56 A0 7F 20 43 10 AE 07 10 AC 05 7F A9 15"
134?"7FEF:8D 06 7F 9D 8E C0 2C 00 C0 10 06 20 0C FD A9 00"
135?"7FFF:60 BD 8F C0 BD 8E C0 29 04 D0 EB 20 49 10 A2 7B"
136?"800F:A0 7F 20 43 10 20 49 10 A9 00 8D 01 7F 8D 02 7F"
137?"801F:8D 03 7F 8D 04 7F A9 01 60 AE 07 10 BD 8E C0 29 01"
138?"8030:F0 4F BD 8F C0 AC 01 7F 99 0B 81 EE 01 7F 2C 0B 10"
139?"8041:10 3E B9 0B 81 29 7F C9 11 D0 26 AD 0B 10 29 BF"
140?"8051:8D 0B 10 CE 01 7F AC 04 7F CC 03 7F F0 22 BD 8E C0"
141?"8062:29 10 F0 F9 B9 0B 82 9D 8F C0 EE 04 7F 4C 57 80"
142?"8072:C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 01 7F AD 01 7F"
143?"8084:CD 02 7F 60 AE 02 7F BD 0B 81 EE 02 7F 60 48 AE 07 10"
144?"8096:BD 8E C0 29 02 F0 17 2C 0B 10 10 0D 50 0B AC 03 7F"
145?"80A7:68 99 0B 82 EE 03 7F 60 68 9D 8F C0 60 20 2B 80"
146?"80B7:4C 96 80 60 F0 1E C9 0C F0 20 C9 0B F0 0A C9 91"
147?"80C7:F0 07 C9 93 F0 03 A9 00 60 29 7F 20 4F 10 20 92 80"
148?"80D8:A9 01 60 AE 07 10 A9 01 60 AC 07 10 AD 06 7F 09 60"
149?"80E9:99 8E C0 A9 E9 8D 07 7F AD 0E 10 20 40 10 CE 07 7F"
150?"80FA:D0 F5 AD 06 7F 29 9F AC 07 10 99 8E C0 60 A5 45"
151?"810A:40"
RUN
DEL 100,7999
98C$=C5$
103?"REM1ST LINE OF ";V$;C5$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:0A 7F"
118?"100C:D8 8B"
119?"1020:4C 1F 80 4C 66 81 4C 0B 81 4C 1C 81 4C 37 81 4C 48 81"
120?"7F00:00 00 00 00 00 00 00 00 00 00 C3 C3 D3 A0 B7 B7"
121?"7F10:B1 B0 A0 D6 B1 AE B1 B2 00 C3 CF CD A0 D2 CF D5 D4 C9"
122?"7F22:CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0"
123?"7F34:CC CF D7 00 C3 C3 D3 A0 B7 B7 B1 B0 A0 D5 CE C1"
124?"7F44:C2 CC C5 A0 D4 CF A0 D3 C5 D4 A0 C2 C1 D5 C4 00"
125?"7F54:3C AD AD A0 C9 D3 A0 D5 CE CB CE CF D7 CE A0 C3"
126?"7F64:CF CD A0 C3 C1 D2 C4 A0 C3 CF CD CD C1 CE C4 00"
127?"7F74:8A 48 AD 80 C0 10 49 29 01 D0 52 2C 0B 10 10 29"
128?"7F84:70 43 AD 07 7F F0 0D AD 06 7F D0 1D A9 13 8D 06 7F"
129?"7F95:4C A4 7F AD 06 7F F0 10 A9 00 8D 06 7F A9 11 20 4F 10"
130?"7FA7:8D 81 C0 4C 14 80 AD 02 7F CD 03 7F F0 14 AE 03 7F"
131?"7FB8:BD D8 8A 8D 81 C0 EE 03 7F 4C 14 80 68 AA 6C 04 7F"
132?"7FC9:A9 95 8D 80 C0 4C 14 80 AD 81 C0 AE 01 7F 9D D8 81"
133?"7FDA:2C 0B 10 10 23 29 7F C9 11 D0 0E A9 BF 2D 0B 10"
134?"7FEA:8D 0B 10 20 19 80 4C 14 80 C9 13 D0 0B A9 40 0D 0B 10"
135?"7FFC:8D 0B 10 4C 14 80 EE 01 7F D0 0D AE D9 7F E8 E0 8A"
136?"800D:D0 02 A2 81 8E D9 7F 68 AA A5 45 40 A9 B5 8D 80 C0"
137?"801E:60 78 AD 05 7F D0 28 AD FE 03 8D 04 7F AD FF 03"
138?"802E:8D 05 7F A9 7F CD 0A 10 F0 04 90 09 B0 11 A9 00"
139?"803E:CD 09 10 B0 0A A2 19 A0 7F 20 43 10 20 49 10 AD 08 10"
140?"8050:F0 03 4C 09 81 AD C0 FB C9 E0 F0 09 C9 00 D0 5B"
141?"8060:AD BF FB D0 56 AD 18 80 8D 14 80 A9 EA 8D C4 7F"
142?"8070:8D C5 7F A9 76 8D FE 03 A9 7F 8D FF 03 A2 00 2C 11 C0"
143?"8082:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
144?"8093:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
145?"80A3:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
146?"80B5:3C 81 C0 4C C5 80 A9 74 8D FE 03 A9 7F 8D FF 03"
147?"80C5:A9 00 8D 00 7F 8D 01 7F 8D 02 7F 8D 03 7F A9 81"
148?"80D5:8D D9 7F 8D 22 81 AE 07 10 8E 08 10 18 A9 80 6D 07 10"
149?"80E7:8D 77 7F 8D 1C 80 8D CC 7F 18 A9 81 6D 07 10 8D BC 7F"
150?"80F9:8D D2 7F 8D A8 7F A9 03 9D 80 C0 A9 95 9D 80 C0"
151?"8109:58 60 78 AD 00 7F CD 01 7F D0 06 AD D9 7F CD 22 81"
152?"811A:58 60 78 AE 00 7F BD D8 81 EE 00 7F D0 0D AC 22 81"
153?"812B:C8 C0 8A D0 02 A0 81 8C 22 81 58 60 48 78 20 19 80"
154?"813C:68 AE 02 7F 9D D8 8A EE 02 7F 58 60 78 AD 05 7F"
155?"814C:F0 17 AD 04 7F 8D FE 03 AD 05 7F 8D FF 03 A9 00"
156?"815C:8D 05 7F AE 07 10 9D 80 C0 60 F0 1D C9 0C F0 45"
157?"816C:C9 0B F0 18 C9 91 F0 1B C9 93 F0 29 20 DA FD A2 54"
158?"817D:A0 7F 20 43 10 20 49 10 A9 00 60 A2 38 A0 7F 4C 7F 81"
159?"818F:78 20 19 80 A9 00 8D 07 7F 58 AD 06 7F D0 FB A9 01"
160?"81A0:60 78 20 19 80 A9 01 8D 07 7F 58 AD 06 7F F0 FB"
161?"81B0:60 78 AC 07 10 A9 60 99 80 C0 99 81 C0 58 A9 E9"
162?"81C0:8D 09 7F AD 0E 10 20 40 10 CE 09 7F D0 F5 A9 B5"
163?"81D0:78 99 80 C0 58 A9 01 60"
RUN
DEL 100,7999
98C$=C6$
103?"REM1ST LINE OF ";V$;C6$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:00 7F"
118?"100C:AB 81"
119?"1020:4C 10 80 4C 69 81 4C C5 80 4C 0F 81 4C 13 81 4C 3F 81"
120?"7F00:AF AF C7 D3 A0 D3 C5 D2 C9 C1 CC A0 D0 CF D2 D4 A0 D6"
121?"7F12:B1 AE B6 00 AA AA AA AA AA C5 D2 D2 CF D2 AA AA"
122?"7F22:AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1"
123?"7F34:D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF D7 A0 C9"
124?"7F46:CE A0 CD C5 CD CF D2 D9 00 BC AD A0 D3 D4 C1 D4 D5 D3"
125?"7F58:A0 C5 D2 D2 CF D2 A0 CF CE A0 C3 CF CD A0 C3 C1 CC CC"
126?"7F6A:A0 C6 D2 CF CD A0 AD A0 00 00 01 46 20 44 01 30 44"
127?"7F7B:01 30 50 01 42 45 01 43 44 01 4C 44 01 45 44 01 4D 44"
128?"7F8D:01 41 44 01 5A 00 01 54 01 53 01 51 01 5A 00 00"
129?"7F9D:03 00 00 00 00 00 00 00 E0 00 F0 18 20 41 F9 A2 4F"
130?"7FAE:A0 7F 20 43 10 68 AA 68 A8 48 8A 48 98 20 41 F9"
131?"7FBE:4C 49 10 60 78 A9 03 8D 9D 7F A9 00 8D 9E 7F 20 F5 7F"
132?"7FD0:AD A3 7F 29 7F 8D A3 7F AD A1 7F 09 04 29 DF 2C 0B 10"
133?"7FE2:10 04 09 20 29 FB 8D A1 7F A9 01 8D 9E 7F 20 F5 7F"
134?"7FF3:58 60 8B 7A A2 7F A9 9D 20 00 C0 AD A0 7F 0D 9F 7F"
135?"8004:F0 09 AD A0 7F AE 9F 7F 4C A9 7F 60 A9 7F CD 0A 10"
136?"8015:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 16"
137?"8026:A0 7F 20 43 10 20 49 10 AD 08 10 D0 8E AD 07 10"
138?"8036:4A 4A 4A 4A 09 C0 8D 68 80 8D 74 80 8D 7A 80 8D 80 80"
139?"8048:8D 86 80 8D CF 80 8D E0 80 8D 3B 81 8D 29 81 8D FD 7F"
140?"805A:8D 5F 80 AD 12 C0 8D FC 7F 20 C2 7F AD 0D C0 8D 73 80"
141?"806C:AC 07 10 AE 74 80 20 00 C0 20 A5 7F AD 0E C0 8D DF 80"
142?"807E:AD 0F C0 8D 3A 81 AD 10 C0 8D CE 80 8D 28 81 A9 01"
143?"808F:20 33 81 AD 03 10 C9 09 90 0A 48 A9 31 20 33 81"
144?"809F:68 38 E9 0A 18 69 30 20 33 81 A9 42 20 33 81 9C 73 7F"
145?"80B1:AE 73 7F BD 74 7F F0 09 20 33 81 EE 73 7F 4C B1 80"
146?"80C2:A9 01 60 AE CF 80 AC 07 10 A9 01 20 00 C0 B0 06"
147?"80D2:20 A5 7F A9 00 60 AE E0 80 AC 07 10 20 00 C0 20 A5 7F"
148?"80E4:8D 9C 7F AC 0B 10 10 20 29 7F C9 11 D0 0B A9 BF"
149?"80F4:2D 0B 10 8D 0B 10 4C D5 80 C9 13 D0 0B A9 40 0D 0B 10"
150?"8106:8D 0B 10 4C D5 80 A9 01 60 AD 9C 7F 60 48 2C 0B 10"
151?"8117:50 06 20 C5 80 4C 14 81 AE 29 81 AC 07 10 A9 00"
152?"8127:20 00 C0 B0 06 20 A5 7F 4C 1F 81 68 AE 3B 81 AC 07 10"
153?"8139:20 00 C0 4C A5 7F A9 00 8D 08 10 A9 01 60 78 A9 03"
154?"814A:8D 9D 7F A9 0A 8D 9E 7F 20 F5 7F AD A1 7F 09 80"
155?"815A:8D A1 7F A9 0B 8D 9E 7F 20 F5 7F 58 A9 01 60 F0 DC"
156?"816B:C9 0C F0 22 C9 0B F0 16 C9 91 F0 07 C9 93 F0 03"
157?"817B:A9 00 60 29 7F 20 4F 10 20 13 81 A9 01 60 A9 00"
158?"818B:8D 08 10 A9 01 60 20 C2 7F 9C 73 7F AE 73 7F BD 93 7F"
159?"819D:F0 09 20 33 81 EE 73 7F 4C 97 81 A9 01 60"
RUN
DEL 100,7999
98C$=C7$
103?"REM1ST LINE OF ";V$;C7$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:05 7F"
118?"100C:3F 83"
119?"1020:4C 78 7F 4C 7F 80 4C E8 7F 4C 43 80 4C 4D 80 4C 79 80"
120?"7F00:00 00 00 00 00 CD CF D5 CE D4 C1 C9 CE A0 C8 C1 D2"
121?"7F11:C4 D7 C1 D2 C5 A0 C3 D0 D3 A0 D6 B1 AE B4 00 AA AA AA"
122?"7F23:AA AA C5 D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2"
123?"7F35:CF D5 D4 C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0"
124?"7F47:D4 CF CF A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00"
125?"7F59:A9 27 20 68 7F AD FB C0 29 C1 C9 C1 D0 F7 60 48"
126?"7F69:A9 80 8D FE C0 68 8D FB C0 A9 00 8D FE C0 60 A9 7F"
127?"7F7A:CD 0A 10 F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C"
128?"7F8A:B0 0A A2 20 A0 7F 20 43 10 20 49 10 AD 08 10 D0 4C"
129?"7F9B:A9 00 8D 00 7F 8D 01 7F 8D 02 7F 8D 03 7F AD 07 10"
130?"7FAC:4A 4A 4A 4A 29 0F 09 C0 20 FC 80 A9 80 8D FE C0"
131?"7FBC:A9 4E 8D FA C0 AD 03 10 C9 0A 30 03 38 B0 01 18"
132?"7FCC:A9 35 29 F0 0D 03 10 E9 00 8D FA C0 A9 00 8D FE C0"
133?"7FDD:A9 27 20 68 7F A9 01 8D 08 10 60 AD FB C0 29 C2"
134?"7FED:C9 C2 D0 4B AD FA C0 AC 00 7F 99 3F 81 EE 00 7F"
135?"7FFD:2C 0B 10 10 3A B9 3F 81 29 7F C9 11 D0 22 AD 0B 10"
136?"800E:29 BF 8D 0B 10 CE 00 7F AC 03 7F CC 02 7F F0 1E"
137?"801E:20 59 7F B9 3F 82 8D FA C0 EE 03 7F 4C 16 80 C9 13"
138?"802F:D0 0B A9 40 0D 0B 10 8D 0B 10 CE 00 7F AD 00 7F"
139?"803F:CD 01 7F 60 AE 01 7F BD 3F 81 EE 01 7F 60 48 A9 27"
140?"8050:20 68 7F AD FB C0 29 C1 C9 C1 D0 17 2C 0B 10 10 0D"
141?"8061:50 0B AC 02 7F 68 99 3F 82 EE 02 7F 60 68 8D FA C0"
142?"8072:60 20 E8 7F 4C 4E 80 A9 00 8D 08 10 60 F0 12 C9 0C"
143?"8083:F0 4D C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00"
144?"8093:60 AE 0B 10 10 F8 29 7F 20 4F 10 20 4D 80 A9 01"
145?"80A3:60 A9 80 8D FE C0 A9 4E 8D FA C0 AD 03 10 C9 0A"
146?"80B3:30 03 38 B0 01 18 A9 35 29 F0 0D 03 10 E9 00 8D FA C0"
147?"80C5:A9 00 8D FE C0 A9 27 20 68 7F A9 C1 60 A9 80 8D FE C0"
148?"80D7:AD FB C0 48 A9 08 8D FB C0 A9 E9 8D 04 7F AD 0E 10"
149?"80E8:20 40 10 CE 04 7F D0 F5 68 8D FB C0 A9 00 8D FE C0"
150?"80F9:A9 01 60 8D EA 7F 8D 60 7F 8D 6D 7F 8D 71 7F 8D 76 7F"
151?"810B:8D BB 7F 8D C0 7F 8D D7 7F 8D DC 7F 8D F3 7F 8D 26 80"
152?"811D:8D 55 80 8D 71 80 8D A8 80 8D AD 80 8D C4 80 8D C9 80"
153?"812F:8D D6 80 8D D9 80 8D DF 80 8D F3 80 8D F8 80 60"
RUN
DEL 100,7999
98C$=C8$
103?"REM1ST LINE OF ";V$;C8$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:18 7F"
118?"100C:FB 8B"
119?"1020:4C CF 7F 4C 06 83 4C 27 82 4C 44 82 4C 62 82 4C B8 82"
120?"7F00:89 10 03 D2 C1 D7 00 00 00 00 00 00 00 00 00 00"
121?"7F10:00 00 00 00 00 00 02 08 C3 C1 D4 A0 D6 B1 AE B2"
122?"7F20:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
123?"7F30:A0 CC CF D7 8D 00 3C AD A0 C2 C1 C4 A0 C3 CF CD"
124?"7F40:A0 C3 CD C4 8D 00 C4 C9 C1 CC AF D8 BA 00 D7 C1 C9"
125?"7F51:D4 C9 CE C7 8D 00 C3 CF CE CE C5 C3 D4 87 8D 00"
126?"7F61:8D C8 D5 CE C7 A0 D5 D0 8D 00 68 AA 6C 0A 7F 8A"
127?"7F71:48 AD 8F C0 2C 16 7F F0 F1 2C 17 7F F0 EC 29 40"
128?"7F81:F0 04 A9 FF D0 03 AD 8B C0 AE 07 7F 9D FB 83 48"
129?"7F91:AD 0F 7F 8D 8D C0 68 2C 0B 10 10 1B 29 7F C9 11"
130?"7FA1:D0 07 A9 BF 2D 0B 10 B0 09 C9 13 D0 0A A9 40 0D 0B 10"
131?"7FB3:8D 0B 10 B0 12 EE 07 7F D0 0D AE 8F 7F E8 E0 8A"
132?"7FC3:D0 02 A2 83 8E 8F 7F 68 AA A5 45 40 78 AD 0B 7F"
133?"7FD3:D0 21 AD FE 03 8D 0A 7F AD FF 03 8D 0B 7F A9 7F"
134?"7FE3:CD 0A 10 90 07 D0 0E AD 09 10 F0 09 A2 21 20 1D 83"
135?"7FF4:A9 00 58 60 AD C0 FB F0 04 C9 E0 D0 5B AD CE 7F"
136?"8004:8D CA 7F A9 72 8D FE 03 A9 7F 8D FF 03 A2 00 BD 6D 7F"
137?"8016:9D 6B 7F E8 E0 03 D0 F5 A2 00 2C 11 C0 30 02 A2 08"
138?"8027:2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0 DA AD 16 C0"
139?"8038:0A A0 01 B9 FE FF 8D 09 C0 99 FE FF 8D 08 C0 99 FE FF"
140?"804A:88 10 EE 90 03 8D 09 C0 FA 3C 81 C0 3C 81 C0 4C 66 80"
141?"805C:A9 70 8D FE 03 A9 7F 8D FF 03 A9 00 8D 06 7F 8D 07 7F"
142?"806E:8D 08 7F 8D 09 7F A9 83 8D 8F 7F 8D 4D 82 AE 07 10"
143?"807F:8A 4A 4A 4A 4A 8D 10 7F 18 8A 69 8F 8D 73 7F 8D 6F 82"
144?"8091:8D F4 82 8A 69 8E 8D B4 82 8D 01 83 8A 69 8B 8D 88 7F"
145?"80A3:8A 69 8D 8D 95 7F 8D FD 81 8A 69 80 8D D8 81 8A"
146?"80B3:69 8D 8D DF 81 8D E6 81 8A 69 8C 8D 02 82 8D 82 81"
147?"80C4:A9 00 9D 82 C0 9D 80 C0 8D 15 7F A9 06 9D 83 C0"
148?"80D4:20 E9 83 A9 0C 9D 8C C0 A2 46 20 1D 83 A9 A0 A2 00"
149?"80E5:8E 11 7F 20 ED FD 20 46 10 09 80 AE 11 7F 9D 00 02"
150?"80F6:E8 C9 88 D0 07 CA F0 ED CA 4C E5 80 C9 8D F0 13"
151?"8106:C9 A0 B0 06 20 B8 82 A9 00 60 E0 50 D0 D1 CA A9 87"
152?"8117:D0 CC 20 49 10 AD 00 02 C9 F8 F0 04 C9 D8 D0 07"
153?"8127:A9 FF 8D 15 7F D0 51 AE 10 7F A9 88 9D 78 04 A9 81"
154?"8138:9D F8 04 8A 09 C0 8D B7 81 AE 07 10 A9 18 9D 8D C0"
155?"8149:A9 02 9D 82 C0 A9 A3 9D 81 C0 20 8A 81 A9 D4 20 95 81"
156?"815B:A9 BB 20 95 81 A2 00 BD 00 02 C9 8D F0 0E 8E 11 7F"
157?"816C:20 95 81 AE 11 7F E8 E0 50 D0 EB 20 8A 81 A2 4E"
158?"817C:20 1D 83 A9 05 8D 8C C0 A9 01 8D 13 7F 60 A9 00"
159?"818C:20 A8 FC 20 A8 FC 4C A8 FC 09 80 C9 AA D0 02 A9 BA"
160?"819D:C9 BB D0 02 A9 AA 8D 78 07 AE B7 81 8E F8 07 AC 07 10"
161?"81AF:8C F8 06 2C FF CF AD 00 FF C9 38 D0 06 AD 78 07"
162?"81BF:20 0A CC 2C FF CF 60 AD 13 7F 30 49 AD 15 7F D0 15"
163?"81D0:AD 03 10 C9 08 B0 07 AD 80 C0 29 20 90 0C AD 8D C0"
164?"81E1:29 04 B0 05 AD 8D C0 29 08 F0 29 AD 13 7F F0 23"
165?"81F1:A9 00 8D 13 7F 8D 12 7F AD 0F 7F 8D 8D C0 A9 06"
166?"8201:8D 8C C0 8E 11 7F 20 96 83 A2 57 20 1D 83 AE 11 7F"
167?"8212:A9 00 60 AD 13 7F D0 FA A9 19 20 A8 FC CE 12 7F"
168?"8222:D0 F0 4C B8 82 20 C6 81 F0 04 A9 00 F0 13 20 6D 82"
169?"8233:78 AD 06 7F CD 07 7F D0 06 AD 8F 7F CD 4D 82 58"
170?"8243:60 20 6D 82 78 AE 06 7F BD FB 83 EE 06 7F D0 0D"
171?"8253:AC 4D 82 C8 C0 8A D0 02 A0 83 8C 4D 82 58 60 78"
172?"8263:AE 08 7F 9D FB 8A EE 08 7F 58 78 AD 8F C0 29 10"
173?"8273:F0 41 2C 0B 10 10 28 70 3A AD 0D 7F F0 0C AD 0C 7F"
174?"8284:D0 1C A9 13 8D 0C 7F D0 0F AD 0C 7F F0 10 A9 00"
175?"8294:8D 0D 7F 8D 0C 7F A9 11 20 4F 10 4C B3 82 AD 08 7F"
176?"82A5:CD 09 7F F0 0C AE 09 7F BD FB 8A EE 09 7F 8D 8E C0"
177?"82B6:58 60 78 AD 0B 7F F0 2E AD 0A 7F 8D FE 03 AD 0B 7F"
178?"82C7:8D FF 03 A9 00 8D 0B 7F AE 07 10 9D 82 C0 A9 0C"
179?"82D7:9D 8C C0 A9 18 9D 8D C0 8D 0F 7F A9 A1 9D 81 C0"
180?"82E7:A2 61 20 1D 83 A9 01 8D 13 7F 60 AA AD 8F C0 29 10"
181?"82F8:F0 0B 8A 29 7F 20 4F 10 8D 8E C0 A9 01 60 F0 B0"
182?"8308:C9 0C F0 68 C9 0B F0 57 C9 91 F0 11 C9 93 F0 30"
183?"8318:20 DA FD A2 36 A0 7F 20 43 10 A9 00 60 78 20 F2 82"
184?"8329:F0 0C A9 00 8D 0D 7F 8D 0C 7F A9 01 58 60 A9 00"
185?"8339:8D 0D 7F 58 20 6D 82 AD 0C 7F D0 F8 A9 01 60 78"
186?"8349:20 F2 82 F0 0A A9 01 8D 0C 7F 8D 0D 7F 58 60 A9 01"
187?"835A:8D 0D 7F 58 20 6D 82 AD 0C 7F F0 F8 60 AD 0B 7F"
188?"836A:F0 05 78 20 96 83 58 A9 01 60 78 AC 07 10 A9 02"
189?"837A:99 8C C0 A9 E9 8D 0E 7F AD 0E 10 20 40 10 CE 0E 7F"
190?"838B:D0 F5 A9 06 99 8C C0 58 A9 01 60 A9 08 CD 03 10"
191?"839B:B0 03 8D 03 10 AE 07 10 A9 A1 9D 81 C0 AD 15 7F"
192?"83AB:D0 10 AD 03 10 C9 08 B0 0D A9 00 9D 8F C0 A9 11"
193?"83BB:D0 10 A9 05 D0 07 A9 21 9D 81 C0 A9 0A 9D 8F C0"
194?"83CB:A9 18 9D 8D C0 8D 0F 7F AD 03 10 0A 0A 0A 0A 6D 03 10"
195?"83DD:49 FF 69 89 9D 8B C0 A9 03 9D 8A C0 A9 65 AE 03 10"
196?"83EE:E0 04 D0 02 A9 2D AE 07 10 9D 89 C0 60"
RUN
DEL 100,7999
98C$=C9$
103?"REM1ST LINE OF ";V$;C9$;"--KEEP REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:00 7F"
118?"100C:21 81"
119?"1020:4C 48 7F 4C 7F 7F 4C A6 7F 4C CC 7F 4C E4 7F 4C FA 7F"
120?"7F00:C1 C3 C5 A0 AE B2 B1 00 8D D9 CF D5 A0 CD D5 D3 D4 A0"
121?"7F12:C3 CF CE CE C5 C3 D4 A0 D4 CF A0 C9 CE C9 D4 C9 C1 CC"
122?"7F24:C9 DA C5 8D 87 C3 CF CD CD A0 C3 C1 D2 C4 A0 C2 C5"
123?"7F35:C6 CF D2 C5 A0 D9 CF D5 A0 D3 C5 D4 A0 C2 C1 D5 C4"
124?"7F46:8D 00 2C FF CF 20 1A 80 AD 07 10 6A 6A 6A 6A 29 0F"
125?"7F57:09 C0 8D 19 80 8D 11 80 8D 15 80 29 0F AA A9 02"
126?"7F67:9D 78 07 8D 1D 80 8D 1E 80 60 A9 15 20 00 C3 20 58 FC"
127?"7F79:20 13 80 A9 01 60 AA 29 80 D0 18 8A C9 0B D0 1A"
128?"7F89:AD 15 80 29 C0 C9 C0 F0 DF A2 08 A0 7F 20 43 10"
129?"7F99:A9 00 60 8A 20 E4 7F A9 01 60 A9 00 60 2C FF CF"
130?"7FA9:20 17 80 AD 01 CE 29 02 F0 0C AC 1D 80 AD 00 CE"
131?"7FB9:99 21 80 EE 1D 80 AD 1D 80 CD 1E 80 8D FF CF 20 1A 80"
132?"7FCB:60 20 A6 7F AC 1E 80 B9 21 80 09 80 C9 87 D0 05"
133?"7FDB:20 FB 7F A9 02 EE 1E 80 60 8D 1F 80 20 A6 7F AD 1F 80"
134?"7FED:20 0F 80 20 A6 7F 8D FF CF 20 1A 80 60 60 A2 64"
135?"7FFD:A0 55 2C 30 C0 88 D0 FA 20 A6 7F CA D0 F2 20 A6 7F"
136?"800E:60 4C 2C C2 60 4C 32 00 60 4C 4B C2 4C AF C3 00"
137?"801E:00 00 08"
138?"8121:00"
RUN
DEL 100,8084
98C$=CF$
103?"REM1ST LINE OF ";V$;CF$;"--KEEP REM LINES"
114?"CLOSE"
115?"DEL 120,800"
160?"160D$=CHR$(4):G$=CHR$(7):GOSUB710:GOSUB720"
170?"170?:INPUT";Q$;"SWAP BS & DEL KEYS ? (Y/N)";Q$;";R$"
180?"180GOSUB660:IFWGOTO170"
190?"190IFRTHENGOSUB730:?";Q$;"SET SWAP ON";Q$;":GOSUB720"
200?"200?:INPUT";Q$;"FLOW CONTROL ? (Y/N)";Q$;";R$"
210?"210GOSUB660:IFWGOTO200"
220?"220IFRTHENGOSUB730:?";Q$;"SET FLOW XON";Q$;":GOSUB720"
230?"230A$(1)=";Q$;"VT52";Q$;":A$(2)=";Q$;"VT100";Q$
240?"240A$(3)=";Q$;"NONE";Q$;":A$(4)=";Q$;"MONITOR";Q$
250?"250?:?:?";Q$;"TYPE OF TERMINAL EMULATION";Q$
260?"260?";Q$;"1 ";Q$;";A$(1)"
270?"270?";Q$;"2 ";Q$;";A$(2)"
280?"280?";Q$;"3 ";Q$;";A$(3)"
290?"290?";Q$;"4 ";Q$;";A$(4)";":?"
300?"300GOSUB690:GOSUB730:?";Q$;"SET TERMINAL ";Q$;";A$(S):GOSUB720"
340?"340A$(4)=";Q$;"TEXT";Q$;":A$(3)=";Q$;"INTEGER";Q$
341?"341A$(1)=";Q$;"APPLESOFT";Q$;":A$(2)=";Q$;"BINARY";Q$
342?"342?:?:?";Q$;"TYPE OF FILE TRANSFER";Q$
343?"343?";Q$;"1 ";Q$;";A$(1)"
344?"344?";Q$;"2 ";Q$;";A$(2)"
345?"345?";Q$;"3 ";Q$;";A$(3)"
346?"346?";Q$;"4 ";Q$;";A$(4)";":?"
348?"348GOSUB690:GOSUB730:?";Q$;"SET FILE-TYPE ";Q$;";A$(S):GOSUB720"
360?"360IFPEEK(64435)=6THENR=1:GOSUB750:GOTO400:REMIIE/C"
370?"370?:INPUT";Q$;"KEYBOARD LOWER CASE ? (Y/N)";Q$;";R$"
376?"376GOSUB660:IFWGOTO370"
380?"380GOSUB750"
390?"390?:INPUT";Q$;"DISPLAY LOWER CASE ? (Y/N)";Q$;";R$"
395?"395GOSUB660:IFWGOTO390"
400?"400IFRTHENGOSUB730:?";Q$;"SET DISPLAY 2E-40";Q$;":GOSUB720"
410?"410?:INPUT";Q$;"80 COLUMN DISPLAY ? (Y/N)";Q$;";R$"
415?"415GOSUB660:IFWGOTO410"
420?"420IFR=0GOTO460"
430?"430D3=3:?:INPUT";Q$;"IN SLOT 3 ? (Y/N)";Q$;";R$"
435?"435GOSUB660:IFWGOTO430"
440?"440IFRGOTO455"
450?"450GOSUB690:D3=S"
455?"455GOSUB730:?";Q$;"SET DISPLAY 80-COL ";Q$;";D3:GOSUB720"
460?"460?:INPUT";Q$;"MODEM IN SLOT 2? (Y/N)";Q$;";R$:GOSUB660:IFWGOTO460"
470?"470IFRTHENM=2:GOTO485"
480?"480GOSUB690:M=S"
485?"485GOSUB730:?";Q$;"SET SLOT ";Q$;";M:GOSUB720"
486?"486?:INPUT";Q$;"PRINTER IN SLOT 1? (Y/N)";Q$;";R$:GOSUB660:IFWGOTO486"
487?"487IFRTHENM=1:GOTO489"
488?"488GOSUB690:M=S"
489?"489GOSUB730:?";Q$;"SET PRINTER SLOT ";Q$;";M:GOSUB720"
490?"490A$(1)=";Q$;"300";Q$;":A$(2)=";Q$;"600";Q$
491?"491A$(3)=";Q$;"1200";Q$;":A$(4)=";Q$;"2400";Q$
492?"492A$(5)=";Q$;"4800";Q$;":A$(6)=";Q$;"9600";Q$
493?"493A$(7)=";Q$;"19200";Q$
494?"494?:?";Q$;" IS MODEM BAUD:";Q$;":?";Q$;"1 ";Q$;";A$(1)"
495?"495?";Q$;"2 ";Q$;";A$(2)"
496?"496?";Q$;"3 ";Q$;";A$(3)"
497?"497?";Q$;"4 ";Q$;";A$(4)"
498?"498?";Q$;"5 ";Q$;";A$(5)"
499?"499?";Q$;"6 ";Q$;";A$(6)"
500?"500?";Q$;"7 ";Q$;";A$(7)";":GOSUB690"
510?"510GOSUB730:?";Q$;"SET BAUD ";Q$;";A$(S):GOSUB720"
520?"520?:INPUT";Q$;"CHANGE SOMETHING ? (Y/N)";Q$;";R$"
525?"525GOSUB660:IFWGOTO520"
530?"530IFRGOTO160"
540?"540POKE814,0"
600?"600POKE216,0"
640?"640?";Q$;"START KERMIT WITH 'BRUN ";KR$"'";Q$
645?"645?";Q$;"THEN TYPE 'HELP'";Q$
651?"651END"
660?"660IFR$=";Q$;"Y";Q$;"ORR$=";Q$;"Y";Q$;"THENR=1:W=0:RETURN"
670?"670IFR$=";Q$;"N";Q$;"ORR$=";Q$;"N";Q$;"THENR=0:W=0:RETURN"
680?"680W=1:RETURN"
690?"690?:INPUT";Q$;"WHICH ?(1,2,3 ...)";Q$;";S:IFS<1ORS>10GOTO690"
700?"700RETURN"
710?"710?D$;";Q$;"OPEN KERMIT.INIT";Q$;":?D$;";Q$;"DELETE KERMIT.INIT";Q$
713?"713?D$;";Q$;"OPEN KERMIT.INIT";Q$;":?D$;";Q$;"WRITE KERMIT.INIT";Q$
716?"716RETURN"
720?"720?D$;";Q$;"CLOSE KERMIT.INIT";Q$;":RETURN"
730?"730?D$;";Q$;"APPEND KERMIT.INIT";Q$;":?D$;";Q$;"WRITE KERMIT.INIT";Q$
740?"740RETURN"
750?"750IFRTHENGOSUB730:?";Q$;"SET KEYBOARD 2E";Q$;":GOSUB720"
760?"760RETURN"
770?"RUN"
RUN
DEL 100,8085
98C$=CH$:V$=H$
116?"    [USE <CNTL-S> TO PAUSE]"
117?"?         GIVE OPTIONS AT ANY POINT"
118?""
119?"SET ?     GIVE 'SET' OPTIONS"
120?""
121?"SHOW ALL  SHOWS ALL PRESENTLY 'SET'"
122?""
123?"<ESC>     COMPLETES COMMAND"
124?""
125?"STATUS    LAST FILE TRANSFER INFO"
126?""
127?"-->	  [II+ ONLY] SHIFT"
128?""
129?""
130?"---IN/OUT"
131?""
132?"FROM KERMIT-65> YOU CAN TALK TO OS & MODEM AS FOLLOWS:"
133?""
134?"EXIT       [TO DOS/PRODOS]"
135?""
136?"CALL4096   [TO KERMIT-65]"
137?""
138?"BRUN KERMIT386 [SOMETIMES-TO KERMIT-65]"
139?""
140?"CONNECT    [TO MODEM]"
141?""
142?"<CNTL-@>C  [TO KERMIT-65]"
143?""
144?""
145?"---UP/DOWN LOAD SEQUENCE"
146?""
147?"[PROMPT YOU SEE]"
148?""
149?".  [WHAT YOU TYPE]"
150?""
151?"KERMIT-65>"
152?""
153?"   CONNECT"
154?""
155?"NO PROMPT"
156?""
157?"   ATD555-1234 [HAYES DIAL]"
158?""
159?"%     [MAINFRAME PROMPT-USE LOWER CASE]"
160?""
161?"   LOGIN"
162?""
163?"   PASSWORD"
164?""
165?"   KERMIT R [HOST DEPENDENT]"
166?""
167?"   <CNTL-@>C"
168?""
169?"KERMIT-65>"
170?""
171?"   SEND FOO [UPLOAD FILE NAMED 'FOO']"
172?""
173?"KERMIT-65>"
174?""
175?"   CATALOG"
176?""
177?"KERMIT-65>"
178?""
179?"   CONNECT"
180?""
181?"%  KERMIT S FOO [HOST DEPENDENT]"
182?""
183?"   <CNTL-@>C"
184?""
185?"KERMIT-65>"
186?""
187?"   RECEIVE [DOWNLOADS FILE NAMED 'FOO']"
188?""
189?"   CONNECT"
190?""
191?"%  +++ATH0 [HAYES HANGUP]"
192?""
193?"   <CNTL-@>C"
194?""
195?"KERMIT-65>"
196?""
197?""
198?"---LOG TO DISK"
199?""
200?"KERMIT-65>"
201?""
202?"   LOG FOO [OPEN LOG: 'FOO']"
203?""
204?"   CONNECT"
205?""
206?"%  CAT FOO [MAINFRAME PRINTS 'FOO']"
207?""
208?"   <CNTL-@>C"
209?""
210?"KERMIT-65> [LOG ENDS]"
211?""
212?"   CONNECT"
213?""
214?"%  ..."
RUN
REMCFIG.INSTALL
DEL 100,8499
98C$=C0$
103?"REM1ST LINE OF ";V$;C0$"--KEEP REM STATEMENTS"
120?"CLOSE"
121?"IF PEEK(-8192)=32 THEN ? ";Q$;"STOPPING";Q$
122?"IF PEEK(-8192)=32 THEN ? ";Q$;"APPLESOFT REQUIRED";Q$
123?"IF PEEK(-8192)=32 THEN POKE-21837,0"
124?"IF PEEK(-8192)=32 THEN CALL-23830"
125?"IF PEEK(-8192)=32 THEN END"
131?"POKE814,0:IFPEEK(4096)=76ANDPEEK(4160)=76THENPOKE814,234"
132?"IFPEEK(814)=0THEN?CHR$(7);";Q$;"STOPPING";Q$;":?"
133?"IFPEEK(814)=0THEN?";Q$;"BLOAD ";KR$;"'";Q$
134?"IFPEEK(814)=0THEN?";Q$;"BEFORE EXEC'ING PROGRAM";Q$;":POKE-21837,0:END"
141?"POKE814,0:IFPEEK(2053)=164ANDPEEK(2054)=51THENPOKE814,234:RUN"
142?"CALL-151"
143?"0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E"
144?"0316:0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 68 AA 68 A8 68"
145?"032C:60 00 00 00 68 A8 68 A6 DF 9A 48 98 48 60 00"
146?"3D0G:REMONERR FIX"
147?"CALL768:SC=PEEK(64)+PEEK(65)*256"
148?"IFSC<100THEN?CHR$(4);";Q$;"DELETE ";V$;"2";Q$
151?"FP"
152?"150LOMEM:33800
160?"160D$=CHR$(4):G$=CHR$(7):IFPEEK(48896)><76ANDPEEK(978)=157GOTO200"
170?"170?D$;";Q$;"OPEN T";Q$;":?D$;";Q$;"WRITE T";Q$
180?"180?";Q$;"END";Q$;":?D$;";Q$;"CLOSE";Q$;":?G$;";Q$;"GET DOS3.3";Q$;":?"
190?"190?D$;";Q$;"EXEC T";Q$;":END"
200?"200POKE216,0:POKE-21837,0:?D$;";Q$;"CLOSE";Q$
210?"210IFPEEK(814)=234THENPOKE814,0:GOTO570"
220?"220?G$"
235?"235?";Q$;"1 SUPER SERIAL OR //C SERIAL PORT";Q$
240?"240?";Q$;"2 MICROTEK SV-622";Q$
250?"250?";Q$;"3 MICROMODEM II";Q$
251?"251?";Q$;"4 APPLE";Q$
252?"252?";Q$;"5 CCS 7710";Q$
253?"253?";Q$;"6 GS SERIAL PORT";Q$
254?"254?";Q$;"7 CPS";Q$
255?"255?";Q$;"8 APPLE CAT";Q$
256?"256?";Q$;"9 ACE DUAL";Q$
257?"257?";Q$;"[UNSURE, TRY 1]";Q$
260?"260S$=";Q$;C1$;Q$;":GOSUB690:IFS=2THENS$=";Q$;C2$;Q$
270?"270IFS=3THENS$=";Q$;C3$;Q$
273?"273IFS=4THENS$=";Q$;C4$;Q$
276?"276IFS=5THENS$=";Q$;C5$;Q$
277?"277IFS=6THENS$=";Q$;C6$;Q$
278?"278IFS=7THENS$=";Q$;C7$;Q$
279?"279IFS=8THENS$=";Q$;C8$;Q$
280?"280IFS=9THENS$=";Q$;C9$;Q$
281?"281XS$=";Q$;V$;Q$;"+S$"
290?"290ONERRGOTO310"
300?"300?D$;";Q$;"VERIFY";Q$;";XS$:GOTO330"
310?"310CALL816:?G$:?";Q$;"INSERT DISK WITH ";Q$;";XS$;";Q$
320?"320INPUT";Q$;"PRESS RETURN";Q$;";I$:RESUME"
330?"330POKE216,0:?D$;";Q$;"EXEC";Q$;";XS$:END"
570?"570ONERRGOTO590"
580?"580?D$;";Q$;"BSAVE";KR$;",A$1000,L$73FB";Q$;":GOTO710"
590?"590CALL816:?G$:INPUT";Q$;"DISK FULL--FIX, PRESS RETURN";Q$;";I$:RESUME"
690?"690?:INPUT";Q$;"WHICH ? (1,2,3 ... )";Q$;";S:IFS<1ORS>10GOTO690"
700?"700RETURN"
710?"710?D$;";Q$;"EXEC";V$;CF$;Q$
1000?"RUN"
1010?CL$
1020END
RUN
CLOSE
FP
EXEC APP387.2,R25
END
REMEND PART 1 OF 2,SAVE TO APPLE DISK NOW AS:APP387.1