Path: wuarchive!wugate!uunet!lll-winken!csd4.milw.wisc.edu!uxc!uxc.cso.uiuc.edu!ux1.cso.uiuc.edu!uxa.cso.uiuc.edu!krb20699
From: krb20699@uxa.cso.uiuc.edu
Newsgroups: comp.binaries.apple2
Subject: Kermit 3.85 (Part 1 of 4)
Message-ID: <231800034@uxa.cso.uiuc.edu>
Date: 28 May 89 11:38:00 GMT
Lines: 698
Nf-ID: #N:uxa.cso.uiuc.edu:231800034:000:31118
Nf-From: uxa.cso.uiuc.edu!krb20699    May 28 06:38:00 1989


     This is part 1 of 2 of the program portion of Kermit 3.85.  The last two
parts are docs and miscellaneous, I believe.  Rename the first two program files
as "APP385.1" and "APP385.2".  This is very important.  Just EXEC the program
TXT files, and the rest is academic.
     BE SURE TO EXEC THE FIRST TWO PROGRAM TXT FILES UNDER DOS 3.3!!!

						     Ken.
						krb20699@uxa.cso.uiuc.edu
=================================== Cut Here ===================================
REM FIRST LINE OF APP385.1-- DO NOT REMOVE THESE REM LINES
REM SAVE AS "APP385.1" [AS RECEIVED, WITHOUT REMOVING UUCP HEADERS]
REM 689 LINES,30640 BYTES '88 SEPT 13-->WARNING APP385.2 IS DELETED BY INSTALL
REM GLEN BREDON'S EXECUTIONER WAS USED TO COMPRESS CODE IN PART 2
REM IT ONLY WORKS IF THERE IS A LINE WITH ONLY A CARRIAGE RETURN ON IT
REM AT THE END OF THE COMPRESSED CODE.  MANY SYSTEMS WILL ADD A SPACE
REM BEFORE THE CARRIAGE RETURN.  YOU MUST REMOVE THE SPACE BEFORE IT WILL
REM WORK.  SO, LOAD APP385.2 INTO A WORD PROCESSOR AND LOOK.
REM FIX THE LINE AT THE VERY END OF PART 2 IF NECESSARY.
REM
REM TURN ON APPLE WITH 'DOS3.3 SYSTEM MASTER' DISK IN DRIVE 1
REM REPLACE 'SYSTEM MASTER' DISK WITH BLANK DISK
REM TYPE:  FP<RETURN>   THEN TYPE:  INIT HELLO<RETURN>
REM REPLACE NEW DISK WITH 'DOS3.3 SYSTEM MASTER' THEN TYPE: BRUN FID<RETURN>
REM COPY DOWNLOADS 'APP385.1' AND 'APP385.2' TO NEW DISK
REM PUT NEW DISK IN DRIVE 1 AND TYPE:  PR#6<RETURN>
REM TYPE:  EXEC APP385.1,R25<RETURN>       [YES, THAT'S "R25"]
REM
REM TO REINSTALL TYPE:  BLOAD KERMIT385<RETURN>
REM         THEN TYPE:  EXEC APP385.INSTALL<RETURN>
REM Things to remember: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
REM DO NOT REMOVE THESE REM LINES
REM
CLOSE
NEW
75 IF PEEK(-8192)=32 THEN GOTO 100:REM TEST FOR INTEGER
95 END
100 PRINT "SORRY, GOTTA STOP HERE"
110 PRINT "APPLESOFT BASIC REQUIRED"
120 POKE-21837,0:CALL-23830:REM TURN OFF EXEC FLAG AND CLOSE
130 END
RUN
TEXT:SPEED=100:PRINT"             PROGRAM STARTING         "
PRINT"  (ALL THOSE ']' PROMPTS ARE NORMAL)"
PRINT"                                      ":SPEED=255
NEW
75 IF PEEK(48896)=76 OR PEEK(978)><157 GOTO 100:REM TEST PRODOS 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, GOTTA STOP HERE"+M$+M$+G$
130 PRINT D$;"OPEN ";F$:PRINT D$;"WRITE ";F$:PRINT "CLOSE"
140 IF PEEK(978)=190 THEN PRINT FD$
150 PRINT "END":PRINT D$;"CLOSE ";F$
160 PRINT EE$;"NORMAL DOS 3.3 REQUIRED":PRINT 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$="385":V$="APP"+VN$+"."
20KR$="KERMIT"+VN$:C0$="INSTALL":C1$="SS":C2$="SV":C3$="MM":C4$="AC":FS=65
23C5$="CC":C6$="GS":C7$="CP":CF$="INIT":H$="KERMIT.":CH$="HELP"
30EE$=G$+M$+"SORRY, GOTTA STOP HERE"+M$+G$
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 SOMETHIN 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$:?"THESE ARE THE PROBLEMS TO FIX:":?
3010POKE216,0:FORI=1TOE:?E$(I):NEXTI
4000POKE-21837,0:?D$;"CLOSE":END
8000REM LAST LINES OF CFIG GENERATORS (FOLLOWING)
8010?"3D0G"
8020?EX$
8085?"END"
8090?CL$
8095END
8500REM ASSIGN STRINGS FOR CFIG GENERATORS (FOLLOWING)
8550CV$=V$+C$:O$=D$+"OPEN"+CV$:W$=D$+"WRITE"+CV$:CL$=D$+"CLOSE"+CV$
8555EX$="EXEC"+V$+C0$+",R1"
8595RETURN
9000 REM ONERR ERROR ROUTINE
9005CALL816
9010PE=PEEK(222):POKE216,0:?EE$
9020?"IF CONFUSED, ASK FOR HELP":?"--NOTE YOU GOT ERROR #";PE
9999POKE-21837,0:?D$;"CLOSE":END:REM TURN OFF EXEC AND CLOSE
RUN
CLOSE
DEL40,7999
50ONERRGOTO9000
99GOSUB8500:?O$:?W$
REM START OF CFIG GENERATORS
98C$=C1$
103?"REM 1ST LINE OF ";V$;C1$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:09 7B"
118?"100C:FD 87"
119?"1020:4C ED 7B 4C 69 7D 4C EE 7C 4C FF 7C 4C 1A 7D 4C 31 7D"
120?"7B00:00 00 00 00 00 00 00 00 00 D3 D3 C3 A0 D6 B1 AE B1 B4"
121?"7B12:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
122?"7B22:A0 CC CF D7 00 3C AD A0 C2 C1 C4 A0 C3 CF CD A0 C3 CD"
123?"7B34:C4 00 68 AA 6C 04 7B 8A 48 AD 89 C0 10 F4 29 08"
124?"7B44:D0 52 2C 0B 10 10 2B 70 26 AD 07 7B F0 0C AD 06 7B"
125?"7B55:D0 1F A9 13 8D 06 7B D0 0F AD 06 7B F0 13 A9 00"
126?"7B65:8D 07 7B 8D 06 7B A9 11 20 4F 10 8D 88 C0 4C DE 7B"
127?"7B76:AD 02 7B CD 03 7B F0 14 EE 03 7B CD 03 7B F0 0C"
128?"7B86:AE 03 7B BD FD 86 8D 88 C0 4C DE 7B 20 E3 7B 4C DE 7B"
129?"7B98:AD 88 C0 AE 01 7B 9D FD 7D 2C 0B 10 10 26 29 7F"
130?"7BA8:C9 11 D0 0E A9 BF 2D 0B 10 8D 0B 10 20 E9 7B 4C DE 7B"
131?"7BBA:C9 13 D0 0E A9 40 0D 0B 10 8D 0B 10 20 E9 7B 4C DE 7B"
132?"7BCC:EE 01 7B D0 0D AE A0 7B E8 E0 86 D0 02 A2 7D 8E A0 7B"
133?"7BDE:68 AA A5 45 40 A9 01 8D 8A C0 60 A9 05 D0 F8 78"
134?"7BEE:AD 05 7B D0 25 AD FE 03 8D 04 7B AD FF 03 8D 05 7B"
135?"7BFF:A9 7B CD 0A 10 F0 04 90 09 B0 0E A9 00 CD 09 10"
136?"7C0F:B0 07 A2 13 A0 7B 20 82 7D AD 08 10 F0 0C 58 60"
137?"7C1F:A9 60 8D E9 7B 8D E3 7B D0 09 AD C0 FB F0 F1 C9 E0"
138?"7C30:D0 5B AD E2 7B 8D DE 7B A9 3D 8D FE 03 A9 7B 8D FF 03"
139?"7C42:A2 00 BD 38 7B 9D 36 7B E8 E0 03 D0 F5 A2 00 2C 11 C0"
140?"7C54:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
141?"7C65:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
142?"7C75:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
143?"7C87:3C 81 C0 4C 97 7C A9 3B 8D FE 03 A9 7B 8D FF 03"
144?"7C97:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B A9 7D"
145?"7CA7:8D A0 7B 8D 05 7D AE 07 10 8E 08 10 18 A9 89 6D 07 10"
146?"7CB9:8D 3E 7B 8D 54 7D 18 A9 88 6D 07 10 8D 8D 7B 8D 99 7B"
147?"7CCB:8D 71 7B 8D 61 7D 8D 27 7D A9 8A 18 6D 07 10 8D E6 7B"
148?"7CDD:A9 05 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0 58"
149?"7CED:60 78 AD 00 7B CD 01 7B D0 06 AD A0 7B CD 05 7D"
150?"7CFD:58 60 78 AE 00 7B BD FD 7D EE 00 7B D0 0D AC 05 7D"
151?"7D0E:C8 C0 86 D0 02 A0 7D 8C 05 7D 58 60 78 AE 02 7B"
152?"7D1E:9D FD 86 EC 03 7B D0 06 8D 88 C0 20 E9 7B EE 02 7B"
153?"7D2F:58 60 78 AD 05 7B F0 1A AD 04 7B 8D FE 03 AD 05 7B"
154?"7D40:8D FF 03 A9 00 8D 05 7B AE 07 10 9D 89 C0 9D 8A C0"
155?"7D51:60 AA AD 89 C0 29 10 F0 0E 8A 29 7F 20 4F 10 8D 88 C0"
156?"7D63:20 E9 7B A9 01 60 F0 C6 C9 0C F0 69 C9 0B F0 54"
157?"7D73:C9 91 F0 14 C9 93 F0 30 20 DA FD A2 27 A0 7B 20 43 10"
158?"7D85:20 49 10 A9 00 60 78 20 52 7D F0 0C A9 00 8D 07 7B"
159?"7D96:8D 06 7B A9 01 58 60 A9 00 8D 07 7B 58 AD 06 7B"
160?"7DA6:D0 FB A9 01 60 78 20 52 7D F0 0A A9 01 8D 06 7B"
161?"7DB6:8D 07 7B 58 60 A9 01 8D 07 7B 58 AD 06 7B F0 FB"
162?"7DC6:60 AE 07 10 78 BD 8B C0 29 F0 0D 03 10 9D 8B C0"
163?"7DD6:58 60 78 AC 07 10 B9 8A C0 09 0C 99 8A C0 A9 E9"
164?"7DE6:8D 08 7B AD 0E 10 20 40 10 CE 08 7B D0 F5 A9 05"
165?"7DF6:99 8A C0 58 A9 01 60"
RUN
DEL 100,7999
98C$=C2$
103?"REM 1ST LINE OF ";V$;C2$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:05 7B"
118?"100C:99 7E"
119?"1020:4C 53 7B 4C 42 7C 4C 9D 7B 4C FD 7B 4C 07 7C 4C 33 7C"
120?"7B00:00 00 00 00 00 CD C9 C3 D2 CF D4 C5 CB A0 D3 D6 AD"
121?"7B11:B6 B2 B2 A0 D6 B1 AE B7 00 AA AA AA AA AA C5 D2 D2 CF"
122?"7B23:D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5"
123?"7B35:D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF"
124?"7B47:D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 A9 7B CD 0A 10"
125?"7B58:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 1A"
126?"7B69:A0 7B 20 43 10 20 49 10 AD 08 10 D0 26 A9 00 8D 00 7B"
127?"7B7B:8D 01 7B 8D 02 7B 8D 03 7B AE 07 10 A9 0B 8D 08 10"
128?"7B8C:9D 89 C0 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0"
129?"7B9C:60 AE 07 10 BD 89 C0 29 08 F0 4F BD 88 C0 AC 00 7B"
130?"7BAD:99 99 7C EE 00 7B 2C 0B 10 10 3E B9 99 7C 29 7F"
131?"7BBD:C9 11 D0 26 AD 0B 10 29 BF 8D 0B 10 CE 00 7B AC 03 7B"
132?"7BCF:CC 02 7B F0 22 BD 89 C0 29 10 F0 F9 B9 99 7D 9D 88 C0"
133?"7BE1:EE 03 7B 4C CC 7B C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10"
134?"7BF3:CE 00 7B AD 00 7B CD 01 7B 60 AE 01 7B BD 99 7C"
135?"7C03:EE 01 7B 60 48 AE 07 10 BD 89 C0 29 10 F0 1B 2C 0B 10"
136?"7C15:10 0F 50 0D AC 02 7B 68 99 99 7D EE 02 7B 4C A0 7B"
137?"7C26:68 9D 88 C0 4C A0 7B 20 A0 7B 4C 0B 7C A9 00 8D 08 10"
138?"7C38:AE 07 10 9D 89 C0 9D 8A C0 60 F0 12 C9 0C F0 2E"
139?"7C48:C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00 60 AE 0B 10"
140?"7C5A:10 F8 29 7F 20 4F 10 20 07 7C A9 01 60 AE 07 10"
141?"7C6A:BD 8B C0 29 F0 0D 03 10 9D 8B C0 60 AC 07 10 B9 8A C0"
142?"7C7C:48 09 0C 99 8A C0 A9 E9 8D 04 7B AD 0E 10 20 40 10"
143?"7C8D:CE 04 7B D0 F5 68 99 8A C0 A9 01 60"
RUN
DEL 100,7999
98C$=C3$
103?"REM 1ST LINE OF ";V$;C3$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:07 7B"
118?"100C:F9 7F"
119?"1020:4C 9E 7B 4C A4 7D 4C 05 7D 4C 65 7D 4C 6F 7D 4C 9B 7D"
120?"7B00:00 00 00 00 00 00 00 C8 C1 D9 C5 D3 A0 CD C9 C3"
121?"7B10:D2 CF A0 CD CF C4 C5 CD A0 D6 B1 AE B7 00 C3 CF CD"
122?"7B21:A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1 D3 CD A0 D4 CF CF A0"
123?"7B33:CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 CE D5 CD"
124?"7B44:C2 C5 D2 A0 D4 CF A0 C4 C9 C1 CC BA 00 C1 D7 C1"
125?"7B54:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE C1 CE"
126?"7B66:D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 00 C3 CF CE"
127?"7B76:CE C5 C3 D4 C5 C4 AE 00 D4 C8 C5 D2 C5 A0 D7 C9 CC"
128?"7B87:CC A0 C2 C5 A0 C1 A0 B3 B5 A0 D3 C5 C3 A0 C4 C5 CC C1"
129?"7B99:D9 00 A9 01 60 A9 7B CD 0A 10 F0 04 90 0B B0 13"
130?"7BA9:A9 00 CD 09 10 F0 0C B0 0A A2 1E A0 7B 20 43 10"
131?"7BB9:20 49 10 AE 07 10 BD 87 C0 BD 86 C0 29 04 F0 D2"
132?"7BC9:8A 4A 4A 4A 4A 8D 06 7B A2 7E A0 7B 20 43 10 20 49 10"
133?"7BDB:A5 36 48 A5 37 48 AD 06 7B 20 95 FE A9 91 20 ED FD"
134?"7BEC:A9 8D 20 ED FD A9 9A 20 ED FD A9 14 8D 01 7B A9 7D"
135?"7BFD:8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5 CE 01 7B"
136?"7C0E:D0 EB 68 85 37 68 85 36 A9 8D AE 07 10 9D 85 C0"
137?"7C1E:A9 03 9D 87 C0 A9 11 9D 87 C0 A9 14 8D 01 7B A9 7D"
138?"7C2F:8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5 CE 01 7B"
139?"7C40:D0 EB A2 41 A0 7B 20 43 10 20 0C FD 20 ED FD 29 7F"
140?"7C51:C9 30 30 5F C9 3A 10 5B 29 0F D0 02 A9 0A 8D 01 7B"
141?"7C62:A9 0D AE 07 10 9D 85 C0 A9 3D 8D 00 7B AD 0E 10"
142?"7C72:20 40 10 CE 00 7B D0 F5 A9 8D AE 07 10 9D 85 C0"
143?"7C82:A9 27 8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5"
144?"7C92:CE 01 7B D0 CB A9 06 8D 01 7B A9 64 8D 00 7B AD 0E 10"
145?"7CA4:20 40 10 CE 00 7B D0 F5 CE 01 7B D0 EB 4C 49 7C"
146?"7CB4:C9 0D D0 91 20 49 10 A2 51 A0 7B 20 43 10 AE 07 10"
147?"7CC5:2C 00 C0 10 0E 20 0C FD A9 00 AE 07 10 9D 85 C0"
148?"7CD5:A9 00 60 BD 87 C0 BD 86 C0 29 04 D0 E3 A9 8F 9D 85 C0"
149?"7CE7:20 49 10 A2 73 A0 7B 20 43 10 20 49 10 A9 00 8D 02 7B"
150?"7CF9:8D 03 7B 8D 04 7B 8D 05 7B A9 01 60 AE 07 10 BD 86 C0"
151?"7D0B:29 01 F0 4F BD 87 C0 AC 02 7B 99 F9 7D EE 02 7B"
152?"7D1B:2C 0B 10 10 3E B9 F9 7D 29 7F C9 11 D0 26 AD 0B 10"
153?"7D2C:29 BF 8D 0B 10 CE 02 7B AC 05 7B CC 04 7B F0 22"
154?"7D3C:BD 86 C0 29 02 F0 F9 B9 F9 7E 9D 87 C0 EE 05 7B"
155?"7D4C:4C 34 7D C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 02 7B"
156?"7D5E:AD 02 7B CD 03 7B 60 AE 03 7B BD F9 7D EE 03 7B"
157?"7D6E:60 48 AE 07 10 BD 86 C0 29 02 F0 1B 2C 0B 10 10 0F"
158?"7D7F:50 0D AC 04 7B 68 99 F9 7E EE 04 7B 4C 08 7D 68"
159?"7D8F:9D 87 C0 4C 08 7D 20 08 7D 4C 73 7D A9 00 AE 07 10"
160?"7DA0:9D 85 C0 60 F0 23 C9 0C F0 28 C9 0B F0 0A C9 91"
161?"7DB0:F0 07 C9 93 F0 03 A9 00 60 AE 0B 10 10 F8 29 7F"
162?"7DC0:20 4F 10 20 6F 7D A9 01 60 AE 07 10 9D 85 C0 A9 01"
163?"7DD1:60 AC 07 10 AE 06 7B BD F8 07 09 60 99 86 C0 A9 E9"
164?"7DE2:8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5 BD F8 07"
165?"7DF3:29 9F 99 86 C0 60"
RUN
DEL 100,7999
98C$=C4$
103?"REM 1ST LINE OF ";V$;C4$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:08 7B"
118?"100C:0B 7F"
119?"1020:4C 86 7B 4C BB 7C 4C 28 7C 4C 88 7C 4C 92 7C 4C BA 7C"
120?"7B00:00 00 00 00 00 00 00 01 C1 D0 D0 CC C5 A0 C3 CF CD"
121?"7B11:CD A0 C3 C1 D2 C4 A0 D6 B1 AE B8 00 AA AA AA AA AA C5"
122?"7B23:D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4"
123?"7B35:C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF"
124?"7B47:A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 C1 D7 C1"
125?"7B59:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE AE A8"
126?"7B6B:C1 CE D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 A9 00"
127?"7B7B:C3 CF CE CE C5 C3 D4 C5 C4 AE 00 A9 7B CD 0A 10"
128?"7B8B:F0 04 90 0B B0 16 A9 00 CD 09 10 F0 0F B0 0D A2 1D"
129?"7B9C:A0 7B 20 43 10 20 49 10 4C D0 03 A9 08 8D FE 03"
130?"7BAC:A9 7D 8D FF 03 AD 07 10 4A 4A 4A 4A 8D 05 7B AE 07 10"
131?"7BBE:A9 03 9D 8E C0 A9 15 9D 8E C0 AE 07 10 BD 8F C0"
132?"7BCE:BD 8E C0 29 04 D0 0B A9 15 8D 06 7B 9D 8E C0 A9 01"
133?"7BDF:60 A2 56 A0 7B 20 43 10 AE 07 10 AC 05 7B A9 15"
134?"7BEF:8D 06 7B 9D 8E C0 2C 00 C0 10 06 20 0C FD A9 00"
135?"7BFF:60 BD 8F C0 BD 8E C0 29 04 D0 EB 20 49 10 A2 7B"
136?"7C0F:A0 7B 20 43 10 20 49 10 A9 00 8D 01 7B 8D 02 7B"
137?"7C1F:8D 03 7B 8D 04 7B A9 01 60 AE 07 10 BD 8E C0 29 01"
138?"7C30:F0 4F BD 8F C0 AC 01 7B 99 0B 7D EE 01 7B 2C 0B 10"
139?"7C41:10 3E B9 0B 7D 29 7F C9 11 D0 26 AD 0B 10 29 BF"
140?"7C51:8D 0B 10 CE 01 7B AC 04 7B CC 03 7B F0 22 BD 8E C0"
141?"7C62:29 10 F0 F9 B9 0B 7E 9D 8F C0 EE 04 7B 4C 57 7C"
142?"7C72:C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 01 7B AD 01 7B"
143?"7C84:CD 02 7B 60 AE 02 7B BD 0B 7D EE 02 7B 60 48 AE 07 10"
144?"7C96:BD 8E C0 29 02 F0 17 2C 0B 10 10 0D 50 0B AC 03 7B"
145?"7CA7:68 99 0B 7E EE 03 7B 60 68 9D 8F C0 60 20 2B 7C"
146?"7CB7:4C 96 7C 60 F0 1E C9 0C F0 20 C9 0B F0 0A C9 91"
147?"7CC7:F0 07 C9 93 F0 03 A9 00 60 29 7F 20 4F 10 20 92 7C"
148?"7CD8:A9 01 60 AE 07 10 A9 01 60 AC 07 10 AD 06 7B 09 60"
149?"7CE9:99 8E C0 A9 E9 8D 07 7B AD 0E 10 20 40 10 CE 07 7B"
150?"7CFA:D0 F5 AD 06 7B 29 9F AC 07 10 99 8E C0 60 A5 45"
151?"7D0A:40"
RUN
DEL 100,7999
98C$=C5$
103?"REM 1ST LINE OF ";V$;C5$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:0A 7B"
118?"100C:D8 87"
119?"1020:4C 1F 7C 4C 66 7D 4C 0B 7D 4C 1C 7D 4C 37 7D 4C 48 7D"
120?"7B00:00 00 00 00 00 00 00 00 00 00 C3 C3 D3 A0 B7 B7"
121?"7B10:B1 B0 A0 D6 B1 AE B1 B1 00 C3 CF CD A0 D2 CF D5 D4 C9"
122?"7B22:CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0"
123?"7B34:CC CF D7 00 C3 C3 D3 A0 B7 B7 B1 B0 A0 D5 CE C1"
124?"7B44:C2 CC C5 A0 D4 CF A0 D3 C5 D4 A0 C2 C1 D5 C4 00"
125?"7B54:3C AD AD A0 C9 D3 A0 D5 CE CB CE CF D7 CE A0 C3"
126?"7B64:CF CD A0 C3 C1 D2 C4 A0 C3 CF CD CD C1 CE C4 00"
127?"7B74:8A 48 AD 80 C0 10 49 29 01 D0 52 2C 0B 10 10 29"
128?"7B84:70 43 AD 07 7B F0 0D AD 06 7B D0 1D A9 13 8D 06 7B"
129?"7B95:4C A4 7B AD 06 7B F0 10 A9 00 8D 06 7B A9 11 20 4F 10"
130?"7BA7:8D 81 C0 4C 14 7C AD 02 7B CD 03 7B F0 14 AE 03 7B"
131?"7BB8:BD D8 86 8D 81 C0 EE 03 7B 4C 14 7C 68 AA 6C 04 7B"
132?"7BC9:A9 95 8D 80 C0 4C 14 7C AD 81 C0 AE 01 7B 9D D8 7D"
133?"7BDA:2C 0B 10 10 23 29 7F C9 11 D0 0E A9 BF 2D 0B 10"
134?"7BEA:8D 0B 10 20 19 7C 4C 14 7C C9 13 D0 0B A9 40 0D 0B 10"
135?"7BFC:8D 0B 10 4C 14 7C EE 01 7B D0 0D AE D9 7B E8 E0 86"
136?"7C0D:D0 02 A2 7D 8E D9 7B 68 AA A5 45 40 A9 B5 8D 80 C0"
137?"7C1E:60 78 AD 05 7B D0 28 AD FE 03 8D 04 7B AD FF 03"
138?"7C2E:8D 05 7B A9 7B CD 0A 10 F0 04 90 09 B0 11 A9 00"
139?"7C3E:CD 09 10 B0 0A A2 19 A0 7B 20 43 10 20 49 10 AD 08 10"
140?"7C50:F0 03 4C 09 7D AD C0 FB C9 E0 F0 09 C9 00 D0 5B"
141?"7C60:AD BF FB D0 56 AD 18 7C 8D 14 7C A9 EA 8D C4 7B"
142?"7C70:8D C5 7B A9 76 8D FE 03 A9 7B 8D FF 03 A2 00 2C 11 C0"
143?"7C82:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
144?"7C93:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
145?"7CA3:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
146?"7CB5:3C 81 C0 4C C5 7C A9 74 8D FE 03 A9 7B 8D FF 03"
147?"7CC5:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B A9 7D"
148?"7CD5:8D D9 7B 8D 22 7D AE 07 10 8E 08 10 18 A9 80 6D 07 10"
149?"7CE7:8D 77 7B 8D 1C 7C 8D CC 7B 18 A9 81 6D 07 10 8D BC 7B"
150?"7CF9:8D D2 7B 8D A8 7B A9 03 9D 80 C0 A9 95 9D 80 C0"
151?"7D09:58 60 78 AD 00 7B CD 01 7B D0 06 AD D9 7B CD 22 7D"
152?"7D1A:58 60 78 AE 00 7B BD D8 7D EE 00 7B D0 0D AC 22 7D"
153?"7D2B:C8 C0 86 D0 02 A0 7D 8C 22 7D 58 60 48 78 20 19 7C"
154?"7D3C:68 AE 02 7B 9D D8 86 EE 02 7B 58 60 78 AD 05 7B"
155?"7D4C:F0 17 AD 04 7B 8D FE 03 AD 05 7B 8D FF 03 A9 00"
156?"7D5C:8D 05 7B AE 07 10 9D 80 C0 60 F0 1D C9 0C F0 45"
157?"7D6C:C9 0B F0 18 C9 91 F0 1B C9 93 F0 29 20 DA FD A2 54"
158?"7D7D:A0 7B 20 43 10 20 49 10 A9 00 60 A2 38 A0 7B 4C 7F 7D"
159?"7D8F:78 20 19 7C A9 00 8D 07 7B 58 AD 06 7B D0 FB A9 01"
160?"7DA0:60 78 20 19 7C A9 01 8D 07 7B 58 AD 06 7B F0 FB"
161?"7DB0:60 78 AC 07 10 A9 60 99 80 C0 99 81 C0 58 A9 E9"
162?"7DC0:8D 09 7B AD 0E 10 20 40 10 CE 09 7B D0 F5 A9 B5"
163?"7DD0:78 99 80 C0 58 A9 01 60"
RUN
DEL 100,7999
98C$=C6$
103?"REM 1ST LINE OF ";V$;C6$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:00 7B"
118?"100C:70 7D"
119?"1020:4C F7 7B 4C 2E 7D 4C AC 7C 4C F6 7C 4C FA 7C 4C 26 7D"
120?"7B00:AF AF C7 D3 A0 D3 C5 D2 C9 C1 CC A0 D0 CF D2 D4 A0 D6"
121?"7B12:B1 AE B3 00 AA AA AA AA AA C5 D2 D2 CF D2 AA AA"
122?"7B22:AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1"
123?"7B34:D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF D7 A0 C9"
124?"7B46:CE A0 CD C5 CD CF D2 D9 00 BC AD A0 D3 D4 C1 D4 D5 D3"
125?"7B58:A0 C5 D2 D2 CF D2 A0 CF CE A0 C3 CF CD A0 C3 C1 CC CC"
126?"7B6A:A0 C6 D2 CF CD A0 AD A0 00 00 01 46 20 44 01 30 44"
127?"7B7B:01 30 50 01 42 45 01 43 44 01 58 44 01 4C 44 01 45 44"
128?"7B8D:01 4D 44 01 41 44 01 5A 00 01 54 01 53 01 51 01 5A 00"
129?"7B9F:00 03 00 00 00 00 00 00 00 E0 00 F0 18 20 DA FD"
130?"7BAF:A2 4F A0 7B 20 43 10 68 AA 68 A8 48 8A 48 98 20 41 F9"
131?"7BC1:4C 49 10 60 78 A9 03 8D A0 7B A9 00 8D A1 7B 20 ED 7B"
132?"7BD3:AD A6 7B 29 7F 8D A6 7B AD A4 7B 29 FB 8D A4 7B"
133?"7BE3:A9 01 8D A1 7B 20 ED 7B 58 60 8B 7A A2 7B A9 A0"
134?"7BF3:20 00 C0 60 A9 7B CD 0A 10 F0 04 90 0B B0 13 A9 00"
135?"7C04:CD 09 10 F0 0C B0 0A A2 16 A0 7B 20 43 10 20 49 10"
136?"7C15:AD 08 10 D0 AA AD 07 10 4A 4A 4A 4A 09 C0 8D 4F 7C"
137?"7C26:8D 5B 7C 8D 61 7C 8D 67 7C 8D 6D 7C 8D B6 7C 8D C7 7C"
138?"7C38:8D 22 7D 8D 10 7D 8D F5 7B 8D 46 7C AD 12 C0 8D F4 7B"
139?"7C4A:20 C5 7B AD 0D C0 8D 5A 7C AC 07 10 AE 5B 7C 20 00 C0"
140?"7C5C:20 A8 7B AD 0E C0 8D C6 7C AD 0F C0 8D 21 7D AD 10 C0"
141?"7C6E:8D B5 7C 8D 0F 7D A9 01 20 1A 7D AD 03 10 C9 09"
142?"7C7E:90 0A 48 A9 31 20 1A 7D 68 38 E9 0A 18 69 30 20 1A 7D"
143?"7C90:A9 42 20 1A 7D 9C 73 7B AE 73 7B BD 74 7B F0 09"
144?"7CA0:20 1A 7D EE 73 7B 4C 98 7C A9 01 60 AE B6 7C AC 07 10"
145?"7CB2:A9 01 20 00 C0 B0 06 20 A8 7B A9 00 60 AE C7 7C"
146?"7CC2:AC 07 10 20 00 C0 20 A8 7B 8D 9F 7B AC 0B 10 10 20"
147?"7CD3:29 7F C9 11 D0 0B A9 BF 2D 0B 10 8D 0B 10 4C BC 7C"
148?"7CE4:C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 4C BC 7C A9 01"
149?"7CF5:60 AD 9F 7B 60 48 2C 0B 10 50 06 20 AC 7C 4C FB 7C"
150?"7D06:AE 10 7D AC 07 10 A9 00 20 00 C0 B0 06 20 A8 7B"
151?"7D16:4C 06 7D 68 AE 22 7D AC 07 10 20 00 C0 4C A8 7B"
152?"7D26:A9 00 8D 08 10 A9 01 60 F0 12 C9 0C F0 22 C9 0B"
153?"7D36:F0 16 C9 91 F0 07 C9 93 F0 03 A9 00 60 29 7F 20 4F 10"
154?"7D48:20 FA 7C A9 01 60 A9 00 8D 08 10 A9 01 60 20 C5 7B"
155?"7D59:9C 73 7B AE 73 7B BD 96 7B F0 09 20 1A 7D EE 73 7B"
156?"7D6A:4C 5C 7D A9 01 60"
RUN
DEL 100,7999
98C$=C7$
103?"REM 1ST LINE OF ";V$;C7$;"--DO NOT REMOVE THESE REM LINES"
114?"CLOSE"
116?"CALL -151"
117?"1005:05 7B"
118?"100C:3F 7F"
119?"1020:4C 78 7B 4C 7F 7C 4C E8 7B 4C 43 7C 4C 4D 7C 4C 79 7C"
120?"7B00:00 00 00 00 00 CD CF D5 CE D4 C1 C9 CE A0 C8 C1 D2"
121?"7B11:C4 D7 C1 D2 C5 A0 C3 D0 D3 A0 D6 B1 AE B3 00 AA AA AA"
122?"7B23:AA AA C5 D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2"
123?"7B35:CF D5 D4 C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0"
124?"7B47:D4 CF CF A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00"
125?"7B59:A9 27 20 68 7B AD FB C0 29 C1 C9 C1 D0 F7 60 48"
126?"7B69:A9 80 8D FE C0 68 8D FB C0 A9 00 8D FE C0 60 A9 7B"
127?"7B7A:CD 0A 10 F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C"
128?"7B8A:B0 0A A2 20 A0 7B 20 43 10 20 49 10 AD 08 10 D0 4C"
129?"7B9B:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B AD 07 10"
130?"7BAC:4A 4A 4A 4A 29 0F 09 C0 20 FC 7C A9 80 8D FE C0"
131?"7BBC:A9 4E 8D FA C0 AD 03 10 C9 0A 30 03 38 B0 01 18"
132?"7BCC:A9 35 29 F0 0D 03 10 E9 00 8D FA C0 A9 00 8D FE C0"
133?"7BDD:A9 27 20 68 7B A9 01 8D 08 10 60 AD FB C0 29 C2"
134?"7BED:C9 C2 D0 4B AD FA C0 AC 00 7B 99 3F 7D EE 00 7B"
135?"7BFD:2C 0B 10 10 3A B9 3F 7D 29 7F C9 11 D0 22 AD 0B 10"
136?"7C0E:29 BF 8D 0B 10 CE 00 7B AC 03 7B CC 02 7B F0 1E"
137?"7C1E:20 59 7B B9 3F 7E 8D FA C0 EE 03 7B 4C 16 7C C9 13"
138?"7C2F:D0 0B A9 40 0D 0B 10 8D 0B 10 CE 00 7B AD 00 7B"
139?"7C3F:CD 01 7B 60 AE 01 7B BD 3F 7D EE 01 7B 60 48 A9 27"
140?"7C50:20 68 7B AD FB C0 29 C1 C9 C1 D0 17 2C 0B 10 10 0D"
141?"7C61:50 0B AC 02 7B 68 99 3F 7E EE 02 7B 60 68 8D FA C0"
142?"7C72:60 20 E8 7B 4C 4E 7C A9 00 8D 08 10 60 F0 12 C9 0C"
143?"7C83:F0 4D C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00"
144?"7C93:60 AE 0B 10 10 F8 29 7F 20 4F 10 20 4D 7C A9 01"
145?"7CA3:60 A9 80 8D FE C0 A9 4E 8D FA C0 AD 03 10 C9 0A"
146?"7CB3:30 03 38 B0 01 18 A9 35 29 F0 0D 03 10 E9 00 8D FA C0"
147?"7CC5:A9 00 8D FE C0 A9 27 20 68 7B A9 C1 60 A9 80 8D FE C0"
148?"7CD7:AD FB C0 48 A9 08 8D FB C0 A9 E9 8D 04 7B AD 0E 10"
149?"7CE8:20 40 10 CE 04 7B D0 F5 68 8D FB C0 A9 00 8D FE C0"
150?"7CF9:A9 01 60 8D EA 7B 8D 60 7B 8D 6D 7B 8D 71 7B 8D 76 7B"
151?"7D0B:8D BB 7B 8D C0 7B 8D D7 7B 8D DC 7B 8D F3 7B 8D 26 7C"
152?"7D1D:8D 55 7C 8D 71 7C 8D A8 7C 8D AD 7C 8D C4 7C 8D C9 7C"
153?"7D2F:8D D6 7C 8D D9 7C 8D DF 7C 8D F3 7C 8D F8 7C 60"
RUN
DEL 100,8084
98C$=CF$
103?"REM 1ST LINE OF ";V$;CF$;"--DO NOT REMOVE THESE 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"
610?"610?";Q$;"REBOOT TO START KERMIT.";Q$
640?"640?";Q$;"START 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 KERMIT385 [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
REM CFIG.INSTALL
DEL 100,8499
98C$=C0$
103?"REM1ST LINE OF ";V$;C0$"--DO NOT REMOVE THESE REM STATEMENTS"
120?"CLOSE"
121?"IF PEEK(-8192)=32 THEN PRINT ";Q$;"STOPPING";Q$
122?"IF PEEK(-8192)=32 THEN PRINT ";Q$;"APPLESOFT BASIC 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:33000
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$;"[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$
280?"280XS$=";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$6E00";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 APP385.2,R25
END
REMEND PART 1 OF 2,SAVE TO APPLE DISK NOW AS:APP385.1