to the modem. & ! & ! Trap ^C, look up my KB number + system name & 1030 MY.KB% = ASCII(MID(V$, 2%, 1%))/2% & \ SYSTEM.NAME$ = CVT$$(RIGHT(V$, 3%), 4%) & 2000 PRINT CLEAR$ & \ PRINT SYSTEM.NAME$; " CALL V1.0 "; TIME$(0%); " "; DATE$(0%) & \ PRINT & \ IF MY.KB% < 0% & THEN & PRINT "?CALL can't run from a detached terminal!" & \ GOTO 32000 & 2010 V$ = SYS(FIP$ + CHR$(10%) + STRING$(20%, 0%) & + "KB" + CHR$(KB%) + CHR$(255%)) & \ V$ = SYS(FIP$ + CHR$(-21%) + CHR$(255%)) & ! & ! Assign KB kb%, drop privileges & 2020 PRINT & \ PRINT "Phone Directory:" & \ PRINT & 2030 READ PHONE$ & \ GOTO 2040 IF PHONE$ = "EOL" & \ X% = X% + 1% & \ PRINT USING "##) ", X%; & \ PRINT PHONE$ & \ PRINT & \ GOTO 2030 & 2040 PRINT & \ INPUT "Call who <1>"; C% & \ C% = 1% IF C% = 0% & 2060 IF (C% > X%) OR (C% < 1%) & THEN & PRINT & \ PRINT "Answer 1 to"; X%; "please. Try again:" & \ PRINT & \ GOTO 2040 & 2070 RESTORE & \ READ PHONE$ FOR X% = 1% TO C% & \ X% = INSTR(1%, PHONE$, TAB.CHR$) & \ PHONE$ = LEFT(PHONE$, X% - 1%) IF X% <> 0% & \ PHONE$ = CVT$$(PHONE$, 2%) & 2080 X% = INSTR(1%, PHONE$, "-") & \ IF X% <> 0% & THEN & PHONE$ = LEFT(PHONE$, X% - 1%) + RIGHT(PHONE$, X% + 1%) & \ GOTO 2080 & 2100 C$ = "ATD" + PHONE$ + CR$ & 4000 V$ = SYS(FIP$ + CHR$(-21%) + CHR$(0%)) & \ V$ = SYS(FIP$ + CHR$(-9%) + CHR$(KB%) + CHR$(-1%)) & \ V$ = SYS(FIP$ + CHR$(-4%) + CHR$(MY.KB%) + C$) & \ V$ = SYS(CHR$(8%) + CHR$(0%) + CHR$(KB%)) & ! & ! Gain privileges, bump up DTR, force "dail phone number" string & ! in type ahead, and load core common with null + kb% & 4010 PRINT CLEAR$ & \ PRINT "CTRL/P Switch from on-line mode to command mode." & \ PRINT "+++ Attention modem." & \ PRINT "ATH0 Modem: Hang up the phone." & \ PRINT & \ PRINT & \ PRINT 'Commands (enter to the prompt "Conn>"):' & \ PRINT & \ PRINT " Switch from command mode to on-line mode." & \ PRINT "TR FROM Type from my system to the remote "; & \ PRINT "system." & \ PRINT "TR TO Record next activity in ." & \ PRINT "CLOSE Stop recording." & \ PRINT "EXIT Exit on-line session and hang up." & \ PRINT & \ PRINT "Working..." & \ PRINT & 4020 CHAIN CONNEC$ 31000 & 4030 V$ = SYS(FIP$ + CHR$(-21%)) & \ PRINT "?Can't chain to "; CONNEC$; "." & \ GOTO 32000 & 8000 PRINT & \ RESUME 8400 IF ERR = 8% AND ERL = 2010% & \ RESUME 32000 IF ERR = 28% & \ RESUME 4030 IF ERL = 4020% & \ ON ERROR GOTO 0% & 8400 PRINT "Sorry... The line is busy. Try again later." & \ GOTO 32000 & 8990 ! phone number (with -'s) comment & 9000 DATA "1-800-555-1212 DCS" 9010 DATA "1-800-555-1212 Tele-Mail (Toll Free)" 9020 DATA " 1-555-1212 Tele-Mail" 9030 DATA "1-800-555-1212 DEC's electronic store" & 9990 DATA "EOL" & 32000 V$ = SYS(FIP$ + CHR$(11%) + STRING$(20%, 0%) & + "KB" + CHR$(KB%) + CHR$(255%)) & \ V$ = SYS(FIP$ + CHR$(-9%) + CHR$(KB%) + CHR$(1%)) & ! & ! Deassign KB kb%, hang up KB kb% & 32767 END CALL BAS[.050001]CALL .BAS[.050001]   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>