Path: utzoo!attcan!uunet!lll-winken!ames!ncar!husc6!husc4!nakada
From: nakada@husc4.HARVARD.EDU (Paul Nakada)
Newsgroups: comp.binaries.apple2
Subject: kermit v3.85 [file transfer and term emulator] all ][s part 1/4
Message-ID: <997@husc6.harvard.edu>
Date: 16 Jan 89 14:51:53 GMT
Sender: news@husc6.harvard.edu
Reply-To: nakada@husc4.UUCP (Paul Nakada)
Organization: Harvard University Science Center, Cambridge MA
Lines: 698

here's part 1 of 4..  make sure to exec these files under dos 3.3


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

 __
|     Paul Nakada  '89   #8-)  |                                          
      North House              |                nakada@husc4.HARVARD.EDU  
      Harvard College          |       seismo>!harvard!husc4!nakada.UUCP  
      Cambridge, MA  02138     |     rutgers/   nakada@husc4.BITNET       
      617/498-6255 || 6264     |                                         __|