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 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 [YES, THAT'S "R25"] REM REMTO REINSTALL: REM BLOAD KERMIT387 REM EXEC APP387.INSTALL 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:IFT0GOTO3000 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:IFT10GOTO690" 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 TO PAUSE]" 117?"? GIVE OPTIONS AT ANY POINT" 118?"" 119?"SET ? GIVE 'SET' OPTIONS" 120?"" 121?"SHOW ALL SHOWS ALL PRESENTLY 'SET'" 122?"" 123?" 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?"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?" 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?" C" 184?"" 185?"KERMIT-65>" 186?"" 187?" RECEIVE [DOWNLOADS FILE NAMED 'FOO']" 188?"" 189?" CONNECT" 190?"" 191?"% +++ATH0 [HAYES HANGUP]" 192?"" 193?" 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?" 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