[comp.binaries.apple2] Kermit v3.84 [terminal emulator and file transfer prog] part 1/3

nakada@husc8.HARVARD.EDU (Paul Nakada) (08/08/88)

Comments:     Originally-From: Ted Medin <MEDIN-T@SHARK.NOSC.MIL>
Subject:      kermit-65 3.84 part 1 of 3

------- part 1 of 3 ------- ker384.1
REM FIRST LINE OF KER384.1-- DO NOT REMOVE THESE REM LINES
REM SAVE AS "KER384.1" [AS RECEIVED, WITHOUT REMOVING UUCP HEADERS]
REM 27632 BYTES        *** INSTRUCTIONS ***     WARNING KER384.2 IS DELETED
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 KER384.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 'KER384.1' AND 'KER384.2' TO NEW DISK
REM PUT NEW DISK IN DRIVE 1 AND TYPE:  PR#6<RETURN>
REM TYPE:  EXEC KER384.1,R25<RETURN>       [YES, THAT'S "R25"]
REM
REM TO REINSTALL TYPE:  BLOAD KERMIT384<RETURN>
REM         THEN TYPE:  EXEC KER384.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$="384":V$="KER"+VN$+"."
20KR$="KERMIT"+VN$:C0$="INSTALL":C1$="SS":C2$="SV":C3$="MM":C4$="AC":FS=65
23C5$="CC":C6$="GS":C7$="CP":CF$="INIT"
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:08 7B"
118?"100C:E6 7F"
119?"1020:4C EB 7B 4C 5B 7D 4C DE 7C 4C E7 7C 4C 0F 7D 4C 26 7D"
120?"7B00:00 00 00 00 00 00 00 00 D3 D5 D0 C5 D2 A0 D3 C5 D2"
121?"7B11:C9 C1 CC A0 D6 B1 AE B1 B2 00 C3 CF CD A0 D2 D4"
122?"7B21:CE A0 C1 D3 CD A0 D4 CF CF A0 CC CF D7 00 3C AD A0 C2"
123?"7B33:C1 C4 A0 C3 CF CD A0 C3 CD C4 00 68 AA 6C 04 7B"
124?"7B43:8A 48 AD 89 C0 10 F4 29 08 D0 4D 2C 0B 10 10 2C"
125?"7B53:70 27 AD 07 7B F0 0D AD 06 7B D0 20 A9 13 8D 06 7B"
126?"7B64:4C 76 7B AD 06 7B F0 13 A9 00 8D 07 7B 8D 06 7B"
127?"7B74:A9 11 20 4F 10 8D 88 C0 4C E6 7B AD 02 7B CD 03 7B"
128?"7B85:F0 5F EE 03 7B CD 03 7B F0 57 AE 03 7B BD E6 7E"
129?"7B95:8D 88 C0 4C E6 7B AD 88 C0 AE 01 7B 9D E6 7D EE 01 7B"
130?"7BA7:2C 0B 10 10 3A BD E6 7D 29 7F C9 11 D0 0E A9 BF"
131?"7BB7:2D 0B 10 8D 0B 10 CE 01 7B 4C E6 7B C9 13 D0 0E"
132?"7BC7:A9 40 0D 0B 10 8D 0B 10 CE 01 7B 4C E6 7B AD 07 7B"
133?"7BD8:D0 0C 8A 18 69 80 CD 00 7B D0 03 EE 07 7B 68 AA"
134?"7BE8:A5 45 40 78 AD 04 7B D0 2C AD 05 7B D0 27 AD FE 03"
135?"7BF9:8D 04 7B AD FF 03 8D 05 7B A9 7B CD 0A 10 F0 04"
136?"7C09:90 0B B0 10 A9 00 CD 09 10 F0 09 B0 07 A2 1B A0 7B"
137?"7C1A:20 74 7D AD 08 10 F0 02 58 60 AD C0 FB F0 04 C9 E0"
138?"7C2B:D0 5B AD EA 7B 8D E6 7B A9 45 8D FE 03 A9 7B 8D FF 03"
139?"7C3D:A2 00 BD 40 7B 9D 3E 7B E8 E0 03 D0 F5 A2 00 2C 11 C0"
140?"7C4F:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
141?"7C60:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
142?"7C70:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
143?"7C82:3C 81 C0 4C 92 7C A9 43 8D FE 03 A9 7B 8D FF 03"
144?"7C92:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B AE 07 10"
145?"7CA3:8E 08 10 18 AD DA 7C 6D 07 10 8D 46 7B 8D 49 7D"
146?"7CB3:18 AD DC 7C 6D 07 10 8D 96 7B 8D 9C 7B 8D 7A 7B"
147?"7CC3:8D 56 7D A9 05 9D 89 C0 9D 8A C0 A9 18 29 F0 0D 03 10"
148?"7CD5:9D 8B C0 58 60 89 C0 88 C0 78 AD 00 7B CD 01 7B"
149?"7CE5:58 60 78 AE 00 7B BD E6 7D EE 00 7B AC 06 7B F0 17"
150?"7CF6:E8 E8 E8 EC 01 7B D0 0F 48 20 47 7D F0 05 A9 00"
151?"7D06:8D 06 7B 8D 07 7B 68 58 60 78 AE 02 7B 9D E6 7E"
152?"7D16:EC 03 7B D0 06 AE 07 10 9D 88 C0 EE 02 7B 58 60"
153?"7D26:78 AD 05 7B F0 1A AD 04 7B 8D FE 03 AD 05 7B 8D FF 03"
154?"7D38:A9 00 8D 05 7B AE 07 10 9D 89 C0 9D 8A C0 60 AA"
155?"7D48:AD 89 C0 29 10 F0 0B 8A 29 7F 20 4F 10 8D 88 C0"
156?"7D58:A9 01 60 F0 1D C9 0C F0 69 C9 0B F0 54 C9 91 F0 14"
157?"7D69:C9 93 F0 30 20 DA FD A2 2F A0 7B 20 43 10 20 49 10"
158?"7D7A:A9 00 60 78 20 47 7D F0 0C A9 00 8D 07 7B 8D 06 7B"
159?"7D8B:A9 01 58 60 A9 00 8D 07 7B 58 AD 06 7B D0 FB A9 01"
160?"7D9C:60 78 20 47 7D F0 0A A9 01 8D 06 7B 8D 07 7B 58"
161?"7DAC:60 A9 01 8D 07 7B 58 AD 06 7B F0 FB 60 AE 07 10"
162?"7DBC:78 BD 8B C0 29 F0 0D 03 10 9D 8B C0 58 60 78 AC 07 10"
163?"7DCE:A9 0C 99 8A C0 A9 DC 20 40 10 A9 CE 20 40 10 A9 05"
164?"7DDF: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:04 7B"
118?"100C:92 7E"
119?"1020:4C 52 7B 4C 41 7C 4C 9C 7B 4C FC 7B 4C 06 7C 4C 32 7C"
120?"7B00:00 00 00 00 CD C9 C3 D2 CF D4 C5 CB A0 D3 D6 AD"
121?"7B10:B6 B2 B2 A0 D6 B1 AE B6 00 AA AA AA AA AA C5 D2 D2 CF"
122?"7B22:D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5"
123?"7B34:D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF"
124?"7B46:D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 A9 7B CD 0A 10"
125?"7B57:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 19"
126?"7B68:A0 7B 20 43 10 20 49 10 AD 08 10 D0 26 A9 00 8D 00 7B"
127?"7B7A:8D 01 7B 8D 02 7B 8D 03 7B AE 07 10 A9 0B 8D 08 10"
128?"7B8B:9D 89 C0 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0"
129?"7B9B:60 AE 07 10 BD 89 C0 29 08 F0 4F BD 88 C0 AC 00 7B"
130?"7BAC:99 92 7C EE 00 7B 2C 0B 10 10 3E B9 92 7C 29 7F"
131?"7BBC:C9 11 D0 26 AD 0B 10 29 BF 8D 0B 10 CE 00 7B AC 03 7B"
132?"7BCE:CC 02 7B F0 22 BD 89 C0 29 10 F0 F9 B9 92 7D 9D 88 C0"
133?"7BE0:EE 03 7B 4C CB 7B C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10"
134?"7BF2:CE 00 7B AD 00 7B CD 01 7B 60 AE 01 7B BD 92 7C"
135?"7C02:EE 01 7B 60 48 AE 07 10 BD 89 C0 29 10 F0 1B 2C 0B 10"
136?"7C14:10 0F 50 0D AC 02 7B 68 99 92 7D EE 02 7B 4C 9F 7B"
137?"7C25:68 9D 88 C0 4C 9F 7B 20 9F 7B 4C 0A 7C A9 00 8D 08 10"
138?"7C37:AE 07 10 9D 89 C0 9D 8A C0 60 F0 12 C9 0C F0 2E"
139?"7C47:C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00 60 AE 0B 10"
140?"7C59:10 F8 29 7F 20 4F 10 20 06 7C A9 01 60 AE 07 10"
141?"7C69:BD 8B C0 29 F0 0D 03 10 9D 8B C0 60 AC 07 10 B9 8A C0"
142?"7C7B:48 A9 0C 99 8A C0 A9 DC 20 40 10 A9 CE 20 40 10"
143?"7C8B: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:06 7B"
118?"100C:DA 7F"
119?"1020:4C B6 7B 4C 85 7D 4C E6 7C 4C 46 7D 4C 50 7D 4C 7C 7D"
120?"7B00:00 00 00 00 00 00 C8 C1 D9 C5 D3 A0 CD C9 C3 D2 CF A0"
121?"7B12:CD CF C4 C5 CD A0 D6 B1 AE B6 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 CE D5 CD"
125?"7B59:C2 C5 D2 A0 D4 CF A0 C4 C9 C1 CC BA 00 C1 D7 C1"
126?"7B69:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE AE A8"
127?"7B7B:C1 CE D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 A9 00"
128?"7B8B:C3 CF CE CE C5 C3 D4 C5 C4 AE 00 D4 C8 C5 D2 C5 A0"
129?"7B9C:D7 C9 CC CC A0 C2 C5 A0 C1 A0 B3 B5 A0 D3 C5 C3 A0 C4"
130?"7BAE:C5 CC C1 D9 00 A9 01 60 A9 7B CD 0A 10 F0 04 90 0B"
131?"7BBF:B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 1D A0 7B 20 43 10"
132?"7BD1:20 49 10 AE 07 10 BD 87 C0 BD 86 C0 29 04 F0 D2"
133?"7BE1:8A 4A 4A 4A 4A 8D 05 7B A2 96 A0 7B 20 43 10 20 49 10"
134?"7BF3:A5 36 48 A5 37 48 AD 05 7B 20 95 FE A9 91 20 ED FD"
135?"7C04:A9 8D 20 ED FD A9 9A 20 ED FD A9 14 8D 00 7B A9 DC"
136?"7C15:20 40 10 CE 00 7B D0 F6 68 85 37 68 85 36 A9 8D"
137?"7C25:AE 07 10 9D 85 C0 A9 03 9D 87 C0 A9 11 9D 87 C0"
138?"7C35:A9 14 8D 00 7B A9 DC 20 40 10 CE 00 7B D0 F6 A2 56"
139?"7C46:A0 7B 20 43 10 20 0C FD 20 ED FD 29 7F C9 30 30 3E"
140?"7C57:C9 3A 10 3A 29 0F D0 02 A9 0A 8D 00 7B A9 0D AE 07 10"
141?"7C69:9D 85 C0 A9 9A 20 40 10 A9 8D AE 07 10 9D 85 C0"
142?"7C79:A9 7B 20 40 10 CE 00 7B D0 E1 A9 06 8D 00 7B A9 C6"
143?"7C8A:20 40 10 CE 00 7B D0 F6 4C 4B 7C C9 0D D0 B2 20 49 10"
144?"7C9C:A2 66 A0 7B 20 43 10 AE 07 10 2C 00 C0 10 0E 20 0C FD"
145?"7CAE:A9 00 AE 07 10 9D 85 C0 A9 00 60 BD 87 C0 BD 86 C0"
146?"7CBF:29 04 D0 E3 A9 8F 9D 85 C0 20 49 10 A2 8B A0 7B"
147?"7CCF:20 43 10 20 49 10 A9 00 8D 01 7B 8D 02 7B 8D 03 7B"
148?"7CE0:8D 04 7B A9 01 60 AE 07 10 BD 86 C0 29 01 F0 4F"
149?"7CF0:BD 87 C0 AC 01 7B 99 DA 7D EE 01 7B 2C 0B 10 10 3E"
150?"7D01:B9 DA 7D 29 7F C9 11 D0 26 AD 0B 10 29 BF 8D 0B 10"
151?"7D12:CE 01 7B AC 04 7B CC 03 7B F0 22 BD 86 C0 29 02"
152?"7D22:F0 F9 B9 DA 7E 9D 87 C0 EE 04 7B 4C 15 7D C9 13"
153?"7D32:D0 0B A9 40 0D 0B 10 8D 0B 10 CE 01 7B AD 01 7B"
154?"7D42:CD 02 7B 60 AE 02 7B BD DA 7D EE 02 7B 60 48 AE 07 10"
155?"7D54:BD 86 C0 29 02 F0 1B 2C 0B 10 10 0F 50 0D AC 03 7B"
156?"7D65:68 99 DA 7E EE 03 7B 4C E9 7C 68 9D 87 C0 4C E9 7C"
157?"7D76:20 E9 7C 4C 54 7D A9 00 AE 07 10 9D 85 C0 60 F0 23"
158?"7D87:C9 0C F0 28 C9 0B F0 0A C9 91 F0 07 C9 93 F0 03"
159?"7D97:A9 00 60 AE 0B 10 10 F8 29 7F 20 4F 10 20 50 7D"
160?"7DA7:A9 01 60 AE 07 10 9D 85 C0 A9 01 60 AC 07 10 AE 05 7B"
161?"7DB9:BD F8 07 09 60 99 86 C0 A9 DC 20 40 10 A9 CE 20 40 10"
162?"7DCB:AE 05 7B BD F8 07 29 9F AC 07 10 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:07 7B"
118?"100C:04 7F"
119?"1020:4C 85 7B 4C BA 7C 4C 27 7C 4C 87 7C 4C 91 7C 4C B9 7C"
120?"7B00:00 00 00 00 00 00 00 C1 D0 D0 CC C5 A0 C3 CF CD"
121?"7B10:CD A0 C3 C1 D2 C4 A0 D6 B1 AE B7 00 AA AA AA AA AA C5"
122?"7B22:D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4"
123?"7B34:C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF"
124?"7B46:A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 C1 D7 C1"
125?"7B58:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE AE A8"
126?"7B6A:C1 CE D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 A9 00"
127?"7B7A:C3 CF CE CE C5 C3 D4 C5 C4 AE 00 A9 7B CD 0A 10"
128?"7B8A:F0 04 90 0B B0 16 A9 00 CD 09 10 F0 0F B0 0D A2 1C"
129?"7B9B:A0 7B 20 43 10 20 49 10 4C D0 03 A9 01 8D FE 03"
130?"7BAB:A9 7D 8D FF 03 AD 07 10 4A 4A 4A 4A 8D 05 7B AE 07 10"
131?"7BBD:A9 03 9D 8E C0 A9 15 9D 8E C0 AE 07 10 BD 8F C0"
132?"7BCD:BD 8E C0 29 04 D0 0B A9 15 8D 06 7B 9D 8E C0 A9 01"
133?"7BDE:60 A2 55 A0 7B 20 43 10 AE 07 10 AC 05 7B A9 15"
134?"7BEE:8D 06 7B 9D 8E C0 2C 00 C0 10 06 20 0C FD A9 00"
135?"7BFE:60 BD 8F C0 BD 8E C0 29 04 D0 EB 20 49 10 A2 7A"
136?"7C0E:A0 7B 20 43 10 20 49 10 A9 00 8D 01 7B 8D 02 7B"
137?"7C1E:8D 03 7B 8D 04 7B A9 01 60 AE 07 10 BD 8E C0 29 01"
138?"7C2F:F0 4F BD 8F C0 AC 01 7B 99 04 7D EE 01 7B 2C 0B 10"
139?"7C40:10 3E B9 04 7D 29 7F C9 11 D0 26 AD 0B 10 29 BF"
140?"7C50:8D 0B 10 CE 01 7B AC 04 7B CC 03 7B F0 22 BD 8E C0"
141?"7C61:29 10 F0 F9 B9 04 7E 9D 8F C0 EE 04 7B 4C 56 7C"
142?"7C71:C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 01 7B AD 01 7B"
143?"7C83:CD 02 7B 60 AE 02 7B BD 04 7D EE 02 7B 60 48 AE 07 10"
144?"7C95:BD 8E C0 29 02 F0 17 2C 0B 10 10 0D 50 0B AC 03 7B"
145?"7CA6:68 99 04 7E EE 03 7B 60 68 9D 8F C0 60 20 2A 7C"
146?"7CB6:4C 95 7C 60 F0 1E C9 0C F0 20 C9 0B F0 0A C9 91"
147?"7CC6:F0 07 C9 93 F0 03 A9 00 60 29 7F 20 4F 10 20 91 7C"
148?"7CD7:A9 01 60 AE 07 10 A9 01 60 AC 07 10 AD 06 7B 09 60"
149?"7CE8:99 8E C0 A9 DC 20 40 10 A9 CE 20 40 10 AD 06 7B"
150?"7CF8:29 9F AC 07 10 99 8E C0 60 A5 45 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:09 7B"
118?"100C:E9 7F"
119?"1020:4C 2F 7C 4C 7D 7D 4C 1A 7D 4C 23 7D 4C 46 7D 4C 57 7D"
120?"7B00:00 00 00 00 00 00 00 00 00 C3 C3 D3 A0 B7 B7 B1 B0 A0"
121?"7B12:D6 B1 AE B1 B0 00 C3 CF CD A0 D2 CF D5 D4 C9 CE C5 D3"
122?"7B24:A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF D7"
123?"7B36:00 C3 C3 D3 A0 B7 B7 B1 B0 A0 D5 CE C1 C2 CC C5"
124?"7B46:A0 D4 CF A0 D3 C5 D4 A0 C2 C1 D5 C4 00 3C AD AD A0"
125?"7B57:C9 D3 A0 D5 CE CB CE CF D7 CE A0 C3 CF CD A0 C3 C1 D2"
126?"7B69:C4 A0 C3 CF CD CD C1 CE C4 00 8A 48 AD 80 C0 10 49"
127?"7B7A:29 01 D0 52 2C 0B 10 10 29 70 43 AD 07 7B F0 0D"
128?"7B8A:AD 06 7B D0 1D A9 13 8D 06 7B 4C A3 7B AD 06 7B"
129?"7B9A:F0 10 A9 00 8D 06 7B A9 11 20 4F 10 8D 81 C0 4C 24 7C"
130?"7BAC:AD 02 7B CD 03 7B F0 14 AE 03 7B BD E9 7E 8D 81 C0"
131?"7BBD:EE 03 7B 4C 24 7C 68 AA 6C 04 7B A9 95 8D 80 C0"
132?"7BCD:4C 24 7C AD 81 C0 AE 01 7B 9D E9 7D EE 01 7B 2C 0B 10"
133?"7BDF:10 43 BD E9 7D 29 7F C9 11 D0 11 A9 BF 2D 0B 10"
134?"7BEF:8D 0B 10 CE 01 7B 20 29 7C 4C 24 7C C9 13 D0 0E"
135?"7BFF:A9 40 0D 0B 10 8D 0B 10 CE 01 7B 4C 24 7C AD 07 7B"
136?"7C10:D0 12 8A 18 69 07 CD 00 7B D0 09 20 29 7C 8D 07 7B"
137?"7C21:EE 08 7B 68 AA A5 45 40 A9 B5 8D 80 C0 60 78 AD 04 7B"
138?"7C33:D0 2F AD 05 7B D0 2A AD FE 03 8D 04 7B AD FF 03"
139?"7C43:8D 05 7B A9 7B CD 0A 10 F0 04 90 0B B0 13 A9 00"
140?"7C53:CD 09 10 F0 0C B0 0A A2 18 A0 7B 20 43 10 20 49 10"
141?"7C64:AD 08 10 F0 03 4C 18 7D AD C0 FB C9 E0 F0 09 C9 00"
142?"7C75:D0 5B AD BF FB D0 56 AD 28 7C 8D 24 7C A9 EA 8D C3 7B"
143?"7C87:8D C4 7B A9 75 8D FE 03 A9 7B 8D FF 03 A2 00 2C 11 C0"
144?"7C99:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
145?"7CAA:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
146?"7CBA:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
147?"7CCC:3C 81 C0 4C DC 7C A9 73 8D FE 03 A9 7B 8D FF 03"
148?"7CDC:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B AE 07 10"
149?"7CED:8E 08 10 18 A9 80 6D 07 10 8D 76 7B 8D 2C 7C 8D CB 7B"
150?"7CFF:18 A9 81 6D 07 10 8D BB 7B 8D D1 7B 8D A7 7B A9 03"
151?"7D10:9D 80 C0 A9 95 9D 80 C0 58 60 78 AD 00 7B CD 01 7B"
152?"7D21:58 60 78 AE 00 7B BD E9 7D EE 00 7B AC 06 7B F0 12"
153?"7D32:E8 E8 E8 EC 01 7B D0 0A 48 A9 00 8D 07 7B 20 29 7C"
154?"7D43:68 58 60 48 78 20 29 7C 68 AE 02 7B 9D E9 7E EE 02 7B"
155?"7D55:58 60 78 AD 04 7B D0 05 AD 05 7B F0 1A AD 04 7B"
156?"7D65:8D FE 03 AD 05 7B 8D FF 03 A9 00 8D 04 7B 8D 05 7B"
157?"7D76:AE 07 10 9D 80 C0 60 F0 1D C9 0C F0 45 C9 0B F0 18"
158?"7D87:C9 91 F0 1B C9 93 F0 29 20 DA FD A2 53 A0 7B 20 43 10"
159?"7D99:20 49 10 A9 00 60 A2 37 A0 7B 4C 96 7D 78 20 29 7C"
160?"7DAA:A9 00 8D 07 7B 58 AD 06 7B D0 FB A9 01 60 78 20 29 7C"
161?"7DBC:A9 01 8D 07 7B 58 AD 06 7B F0 FB 60 78 AC 07 10"
162?"7DCC:A9 60 99 80 C0 99 81 C0 58 A9 DC 20 40 10 A9 CE"
163?"7DDC:20 40 10 A9 B5 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:04 7B"
118?"100C:38 7F"
119?"1020:4C 77 7B 4C 7E 7C 4C E7 7B 4C 42 7C 4C 4C 7C 4C 78 7C"
120?"7B00:00 00 00 00 CD CF D5 CE D4 C1 C9 CE A0 C8 C1 D2"
121?"7B10:C4 D7 C1 D2 C5 A0 C3 D0 D3 A0 D6 B1 AE B2 00 AA AA AA"
122?"7B22:AA AA C5 D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2"
123?"7B34:CF D5 D4 C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0"
124?"7B46:D4 CF CF A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00"
125?"7B58:A9 27 20 67 7B AD FB C0 29 C1 C9 C1 D0 F7 60 48"
126?"7B68:A9 80 8D FE C0 68 8D FB C0 A9 00 8D FE C0 60 A9 7B"
127?"7B79:CD 0A 10 F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C"
128?"7B89:B0 0A A2 1F A0 7B 20 43 10 20 49 10 AD 08 10 D0 4C"
129?"7B9A:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B AD 07 10"
130?"7BAB:4A 4A 4A 4A 29 0F 09 C0 20 F5 7C A9 80 8D FE C0"
131?"7BBB:A9 4E 8D FA C0 AD 03 10 C9 0A 30 03 38 B0 01 18"
132?"7BCB:A9 35 29 F0 0D 03 10 E9 00 8D FA C0 A9 00 8D FE C0"
133?"7BDC:A9 27 20 67 7B A9 01 8D 08 10 60 AD FB C0 29 C2"
134?"7BEC:C9 C2 D0 4B AD FA C0 AC 00 7B 99 38 7D EE 00 7B"
135?"7BFC:2C 0B 10 10 3A B9 38 7D 29 7F C9 11 D0 22 AD 0B 10"
136?"7C0D:29 BF 8D 0B 10 CE 00 7B AC 03 7B CC 02 7B F0 1E"
137?"7C1D:20 58 7B B9 38 7E 8D FA C0 EE 03 7B 4C 15 7C C9 13"
138?"7C2E:D0 0B A9 40 0D 0B 10 8D 0B 10 CE 00 7B AD 00 7B"
139?"7C3E:CD 01 7B 60 AE 01 7B BD 38 7D EE 01 7B 60 48 A9 27"
140?"7C4F:20 67 7B AD FB C0 29 C1 C9 C1 D0 17 2C 0B 10 10 0D"
141?"7C60:50 0B AC 02 7B 68 99 38 7E EE 02 7B 60 68 8D FA C0"
142?"7C71:60 20 E7 7B 4C 4D 7C A9 00 8D 08 10 60 F0 12 C9 0C"
143?"7C82:F0 4D C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00"
144?"7C92:60 AE 0B 10 10 F8 29 7F 20 4F 10 20 4C 7C A9 01"
145?"7CA2:60 A9 80 8D FE C0 A9 4E 8D FA C0 AD 03 10 C9 0A"
146?"7CB2:30 03 38 B0 01 18 A9 35 29 F0 0D 03 10 E9 00 8D FA C0"
147?"7CC4:A9 00 8D FE C0 A9 27 20 67 7B A9 C1 60 A9 80 8D FE C0"
148?"7CD6:AD FB C0 48 A9 08 8D FB C0 A9 DC 20 40 10 A9 CE"
149?"7CE6:20 40 10 68 8D FB C0 A9 00 8D FE C0 A9 01 60 8D E9 7B"
150?"7CF8:8D 5F 7B 8D 6C 7B 8D 70 7B 8D 75 7B 8D BA 7B 8D BF 7B"
151?"7D0A:8D D6 7B 8D DB 7B 8D F2 7B 8D 25 7C 8D 54 7C 8D 70 7C"
152?"7D1C:8D A7 7C 8D AC 7C 8D C3 7C 8D C8 7C 8D D5 7C 8D D8 7C"
153?"7D2E:8D DE 7C 8D EC 7C 8D F1 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
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"
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"
573?"573?D$;";Q$;"DELETE";V$;"2";Q$
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 KER384.2,R25
END
REMEND PART 1 OF 2,SAVE TO APPLE DISK NOW AS:KER384.1

-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
 Paul Nakada '89  #8-)                          nakada@husc4.harvard.edu
 Harvard College                                     nakada@husc4.bitnet
 Cambridge, MA       {ihnp4!think, seismo, rutgers}!harvard!husc4!nakada
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_