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