REM FIRST LINE OF APP386.1-- DO NOT REMOVE THESE REM LINES REM SAVE AS "APP386.1" [AS RECEIVED, WITHOUT REMOVING UUCP HEADERS] REM 782 LINES,35948 BYTES '89 OCT 19-->WARNING APP386.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 APP386.2 INTO A WORD PROCESSOR AND LOOK. REM FIX THE LINE AT THE VERY END OF PART 2 IF NECESSARY. REM THIS FILE REQUIRES ONLY AFTER EACH LINE (THE FORM IS 8D HEX) REM AND DOS 3.3 TEXT BYTES(HIGH BIT ON) THANKS SCOTT HUTINGER 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 THEN TYPE: INIT HELLO REM REPLACE NEW DISK WITH 'DOS3.3 SYSTEM MASTER' THEN TYPE: BRUN FID REM COPY DOWNLOADS 'APP386.1' AND 'APP386.2' TO NEW DISK REM PUT NEW DISK IN DRIVE 1 AND TYPE: PR#6 REM TYPE: EXEC APP386.1,R25 [YES, THAT'S "R25"] REM REM TO REINSTALL TYPE: BLOAD KERMIT386 REM THEN TYPE: EXEC APP386.INSTALL 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$="386":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, 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:IFT0GOTO3000 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: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 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$;"8 APPLE CAT";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?"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 APP386.2,R25 END REMEND PART 1 OF 2,SAVE TO APPLE DISK NOW AS:APP386.1