' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF LL}BBL]72µ- i ư&( Rp ߼ P  LLʬLo 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  $= '*.&  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0;1-30-+6/< 6/$2$ 6/+0*,)E8B ;4H8  `X !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ĵµ`ڿ8.ڿ.ۿ`êLHIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜ}u`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL\YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 q ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ Šč,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p 멠RP1Q ɿ, PTL˵B̵C8pBZ\ \BIR Z-^ Jp\IZLL- ( F 0Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / FD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `HD٤DFFhiHLGh `, ŵBѵ`, ѵB8` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`L漌ĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ``HH ᥠ ᥠ hh``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` d£Ġz# u` ; "CATPT2" ;EXIT ^1 OPTION ; "CATPT2"   $P ASL),Y  SLOT  ; PLCURS ALT CURSOR,Y HTAB (BASL),Y SLOT ALT ALT #$4 >0 #$0 ALT ^0 ;  0 BEEPVAL2 >0 #!10 ^1 BEEPVAL2     #$1 $FCA8 $C030  <1 BEEPVAL2  #$8 BEEPVAL2 ; ^0 HTAB SAVH VT SAVY RESTZP     $45   ; ;  HTAB #" " (B #$87 >0 #$80 BEEPVAL >1 ^0 #$8A OUTJMP >1 OUTJMP $0000 BUFFIT ^1 PLCURS ; BEEPVAL >0 #!10 ^1 BEEPVAL     #$1 $FCA8 $C030  <1 BEEPVAL  #$8 BEEPVAL ; ^ #$C0 NLC #$E0 NLC #$20 NLC CHROUT OUTDAT,Y CLICK >0 $C030  #$7 WAIT  $C030 ^0 DUPLEX >1 OUTIT #$9B OUTJMP #$81 OUTJMP #$88 >0 CURSOUT ^0 #$8D >0 CURSOUT ^0 CATSTAT,Y #%00010000 >5 >1 ^5 ECHO TEMPCHR CHRIN TEMPCHR #$0 CHRIN CHROUT OUTDAT,Y >1 TEMPCHR #$0 >1 POWER >1 CASE NLC ; UPPER NOW INCASE #$2 NLC #$1 ILC INCASE NLC ILC CHRIN #$9B >2 #$81 >2 #$88 >0 CURSOUT ^0 #$8D >0 CURSOUT ^0 #$87 >0 #$80 BEEPVAL2 >5 ^0 #$8A >2 >5 ^2 CASE INJMP #$E0 INJMP  #$20 INJMP $0000 BUFFIT ^5 NORMAL  ; FORGET STACK CR ^8 $C010 GETCHR #!27 >7 #!13 >0 BEEP1 <8 <8 ^7 INIT ; ^1 #$0 HANGVAL ^0 CATSTAT,Y #%00001000 >5 XMTRAM XMTBYT,Y ^2 INDAT,Y #%10000000 0000 >7 >1 ; REM HUNGUP ^7 HANGMAX >7 >0 ^7 HANGVAL HANGVAL HANGMAX >7 >0 ^7 CR INVERSE PRINT " "CAT-CONNECTION: CARRIER LOST." NORMAL CR PRINT , "PRESS TO EXIT, RTN TO GO TO TERM." INCASE NW1 #$0 >1 ^3 CTRL1 >0 #"/" >1 ^0 CTRL2 >0 #$DC >1 ^0 CTRL3 >0 #"]" >1 ^0 CTRL4 >0 #$DB >1 ^0 CTRL5 >1 #$DF ^1 TEMPCHR+1 ^6 SWBYT,Y #%0010TAB ; SLOT POWER >6 $C000 >1 #$0 ^1 $C010 #!155 >2 #$FF POWER #$0 >1 ^2 CASE >3 SHIFT >2 $C063 >3 #$1 INCASE >3 ^2 SHIFT >3 INCASE INCASE #$3 NW1 #$0  ; ; CATPT4 ; OUTPR     SLOT TONBYT,Y #%00010000 >0 CLOCK ^0 #%00000100 BSRBYT,Y #$0 BSRBYT,Y #%00000101 COM,Y #%00000110 COM,Y CATSTAT,Y SAVEZP ; SAVH HTAB SAVY VT V      z"DON'T MESS WITH IT!"-::(4)"PR#0"71000Y:"RUNNING CAT-CONNECTION.."c1500:"PRESS TO CONTINUE..";A$:A$" "1005:(4)"RUN HELLO"20:"TERMINAL PROGRAM...."#1000$1500 %:"PRINTERS";M"* MUCH, MUCH MORE"4R:"LEAVE EMAIL TO"CW"WILLIAM"V\"THE KRACKER"xa"ON THE REALM OF THE ROGUES"f"(415) 941-1990 FOR NEWER VERSIONS"k1000p:"THESE DOCS AND ALL ON THIS DISK ARE"u"WRITTEN BY WILLIAM THE KRACKER"* FULL FILE CAPTURE COMMANDS"0*"* FILE SEND"E/"* FILE EDITOR"l4"* CAT-FUR MODE (1200 BAUD XFER)"9"* AE LIKE 1200 BAUD LINES">"* REMOTE ACCESS"C"* REMOTE MESSAGE KEEPER W/REMOTE PSWD."H"* FULL TIME FEATURES FOR RECORD OF CALLOWN' MENU,"9w"AGAIN, USE THE ARROW KEYS TO MOVE, AND"h|"SPACE TO SELECT, PRESS ESCAPE TO RETURN""THE '/' ACTS AS A SHIFT KEY FOR THOSE""WITH LOWER CASE (ONCE=SHIFT, TWICE=LOCK)";1000 :"FEATURES TO LOOK FORWARDS TO:"%:"O"TIME CONSTANTLY."!T1000;Y:"D) TERMINAL MODE"i^:"AFTER THE MODEM CONNECTS IF IN AUTO-"c"DIAL MODE, THE COMPUTER WILL BEEP"h"MADLY TO INFORM YOU THAT IT HAS"m"CONNECTED. IN TERMINAL MODE, " r"WILL GET YOU A 'PULL-DDETECT - CONNECTS TWO MODEMS"L1"SAVE NUMBERS - SAVES LIST OF #S TO DISK"6"CHANGE OPTIONS - CHANGES VARIOUS OPTIONSWHICH ARE SELF-EXPLANATORY";1000@:"FEATURES:"E"NOT MENTIONED ABOVE:"J:"BUILT IN CLOCK... AUTO-MATICALLY KEEPS"SELECT YOUR OPTION FROM"D"THE ARROW KEYS, AND SPACE TO SELECT."j"PRESS SPACE TO ABORT FUNCTIONS"t1000:"THE FOLLOWING FUNCTIONS TO THIS:"":"DIAL - DIALS PREFIX THEN NUMBER"'"AUTO-DIAL - QUICKLY RE-DIALS AS ABOVE","AUTO-"# AND $ FOR THE TWO SPECIAL TONES"S", OR ; OR : FOR DELAY OF 1/2 OR 1 OR 2 "w"@ PAUSE FOR SECOND DIAL TONE"1000:"C) MENU OPTIONS":"PRESS RETURN TO SWITCH TO AND FROM THE" "DIRECTORY AND MAIN MENU.""FROM THE MENU, IX' WITH PREFIX SLOT)"j"NOTE: SIMPLE COMMANDS AS SUCH ARE ALWAYSLISTED ON SCREEN FOR EASY REFERENCE."t1000:"B) DIAL COMMANDS":"IN YOUR 'NUMBER' AND 'PREFIX' SPACE""THE FOLLOWING CAN BE USED:":"0-9 = THE DIGITS 0-9"$ ERASE,";6 " TO END, AND RETURN TO TRUNCATE."b "TO CHANGE THE THE 'NUMBER', 'PREFIX'" "OR 'CALLING' THEN PRESS SPACE AGAIN" "ANOTHER SPACE RETURNS TO THE NUMBER SLOT"; "('NUMBER' & 'CALLING' GO WITH NUMBER""SLOT, AND 'PREFIX SLOT. THIS IS USED FOR"@ "SPECIAL LONG-DISTANCE SERVICES"o "PLACE CURSOR OVER 'LOCAL' IF THE NUMBER" "TO BE DIALED DOES NOT REQUIRE A LONG-" "DISTANCE SERVICE." "PRESS TO EDIT AN AREA" "USE THE ARROWS TO MOVE, CTRL-X TO THE NUMBER FROM THE LIST"? n"THERE ARE 3 SLOTS OF NUMBERS."l s"ONCE THE NUMBER IS SELECTED, THE FULL" x"NAME WILL BE PRINTED IN THE 'CALLING'" }"AREA, AND THE NUMBER IN THE 'NUMBER'" "AREA. THEN, PRESS SPACE TO SWITCH TO" "THE PREFTHE NUMBER DIRECTORY WILL BE"9 F"LOADED INTO MEMORY"d K"THE NUMBER FILE IS CALLED 'NUMBERS'" P"DO NOT DELETE THIS FILE" U"YOU WILL THEN BE PUT INTO THE DIRECTORY" Z1000 d:"NOW, FROM THE MENU, USE THE TWO ARROW" i"KEYS TO SELECT SLOT (DEF=0):";:A$:A(A$). &:(4)"PR#"AJ (:"A) GETTING STARTED"{ -:" FIRST OFF, INSTALL YOUR APPLE CAT IN" 2"YOU APPLE, AND BOOT THE CAT CONNECTION" 7"(TM) DISK. THE TITLE PAGE WILL BE" <"DISPLAYED WHILE LOADING..." A"THEN  35 :1"THE CAT CONNECTION IS A"<B13UB$" ---- -------- "A$" USER-FRIENDLY ":A120:10:A:A$:11:A:B$:A2011:10:A:A$:11:A:B$:20:"TERMINAL PROGRAM...."#1000$1500 %:"PRINTER    ALM OF THE ROGUES"( d"(415) 941-1990"; i:"HAVE FUN,"N n"-=- WTK -=-"X x1000x :"RUNNING CAT-CONNECTION" (4)"RUN HELLO" :"PRESS SPACE TO CONTINUE "; A$:A$" "1005 PUTER"-" APPLE CAT II, 212 OPTIONAL" 2" DISK DRIVE, 2ND OPTIONAL"= 7" LOWER CASE CHIP, OPTIONAL"W <" PRINTER, OPTIONAL"c A:1000 F:"NEWER VERSIONS OF THE PROGRAM WILL BE" K"AVAILABLE...." P:"LEAVE EMAIL TO ME," U"WILLIAM" Z"THE KRACKER" _:"ON THE BBS, THE RE ::"T H E"%" C A T"K" C O N N E C T I O N"z:"... IS A TERMINAL PROGRAM WRITTEN FOR""THE APPLE II COMPUTERS"#:"REQUIREMENTS:"%(" APPLE II,II+,IIE COMPUTER"-" APPLE CAT II, 212 OPTIONAL" 2    (4)"OPEN RUNCAT"0(4)"WRITE RUNCAT":"FP"J"NOMONIOC"a"BLOAD CC,A$2000"q#"BLOAD CP"("BLOAD CR"-"CALL 8192"2(4)"CLOSE RUNCAT"(A$,A,1): B13:2 :V:A:(A$,A1,1)@ B130:F _ (16384)160Z1:e VTS..":1000V3:A$"WRITTEN BY WILLIAM THE KRACKER":1000V4:A$"THANKS TO:":1000V6:A$"THE SYNDICATE":1000A$"DR. KRAKO":1000A1:40:" ":1500:8 dA3911:1:A:"- ":1500:d iA222:A:1:"!":A1:1:" ":1500:p nZ090 :"RUNNING CAT-CONNECTION..." (4)"RUN HELLO" :VV1:V:2:(A$,1,1) A2(A$):B13: V:A::(A$,A1,1);::OPLE FROM THE..":1000H <A$"REALM OF THE ROGUES (415-941-1990)":1000q FVV1:A$"THIS IS VERSION 2.6":1000 KA$"MANY NEW VERSIONS WILL COME OUT":1000 LA$"PRESS SPACE TO EXIT":1000 ZA139:22:A:" -":1500: _A2111:A:40:"!": A$"THE APPLE BANDIT":1000: #A$"VTOC VIKING":1000b %A$"BIG BROTHER (WEST COAST)":1000} (A$"THE BURNOUT":1000 -A$"THE BLACK KNIGHT":1000 2A$"THE DATA GENERAL":1000 3A$"THE GHOST IN THE MACHINE":1000 7VV1:A$"& LOTS OF PEg1" MODIFY THIS AND DIE ;140E::u V1:A$"THE CAT CONNECTION CREDITS..":1000V3:A$"WRITTEN BY WILLIAM THE KRACKER":1000V4:A$"THANKS TO:":1000V6:A$"THE SYNDICATE":1000A$"DR. KRAKO":1000ժժժժժժժժժժժժժժժժժռժċLjĈĈĈĈĈĈĈĈĈxqň~fff66ff666fffתժժĈLjĈĈĈĈĈĈĈx?|GcsňժתժժժժժժժժժժժժժՈĈĻ@ݻƈĈĈݻݻݻݻݻעfĈĈĈĈĈĈĈĈĈԻ|q|GݻƈĈĈĪՠĈĈĈժĈĈժժվժժժժժުղժժժժժժՈĈĈĈݻݻݺĈƈĈĈܻݻݻݻݻϪժժժժժժժժժժժժժժժժժժ菬ĈĈĨݻݻݻ݋`ƈĈĈݫݻݻݻݪժժժժժժժժժժժժժժʩժՊ~6ՈĈĈĈݻĈĺĈƈĈĈܻݻfժժժժ寕Ӫ՞ժժժժժժժժժժՈĈĈĈݻĈĺĈƈĈĈܻݻ0תժʩ꫶ĈĈĈĈĈƈĈƈܻx|GcsݻժժժժժժժժժժժժժժժպժժժՈĈĈĈĈĈĈĈƈĈ?ܻ|yG<~cgݻfժժժժժժժժժժժժժժժժբܸĈĈݻ@ňĈĈĈݻݻݻݻ݈昌fLjĈĈĈĈĈĈĈĈ݈Ĉݻ?~yqyGňĈĈĈѪՊĈĈĨժňĈĈժժժժժժժתժժժժժժբĈĈĈĨݻݻ݋ĈĈĈĈݻݻݻݻ݈ڪժժժժժժժժժժժժժժժժժ܎ĈĈݻݻݻݻĈ 60ĈĈĈջݻݻݻ݈ժժժժժժժժժժժժժժժժՊ~բĈĈĈĈĈĈ݈ĈĈĈĈݛ݈ժժժժժ֪ժժժժժʩժժժժժբĈĈĈĈĈĈ݈ĈĈĈĈ݋݈憎תժժꪟۈ߈ǯĈĈĈĈĈĈĈĈxg|GAcxňժժժժժժժժժժժժժժժժժժբĈĈĈĈĈĈĈĈĈňݻ|xGc?pň<ժժߪժժժժժժժժժժժժժժՈċĈĻݻݻݻݻƈĈĈݻݻݻݻݻע>ĈĈĈĈĈĈĈĈϋĈԻ?~sqyGݻƈĈĈĪբĈĈĈժĈĈz #?    @Դ  Ӡ à! Р !à"ӠҠ Ϡ Ӡ Ϡ @Գ&@Բ) Ӡ%Ԡ@Ԡ* @Ю*LOCIB OLOCIB LOCIB+1 OLOCIB+1 LOCIB+1 #$FE ^0 (LOCIB),Y #$8D >0  #!176 <0 ^0   LOCIB >0 LOCIB+1 ^0 LOCIB LOCIB+1 #$60 >0 AS ^0 AS1 ^1 LOCIB+1 OLOCIB+1 (LOCIB),Y #$8D >1 VAR1 COUTS VAR1  #!80 >1 <0 ^1 VAR1 VAR1 #$3 VTAB #$0 HTAB PRINT ) "<- -> MOVES, RETURN SELECTS LOCATION" ^0 GETCHR #$8 >0 #$15 >1 #!13 <0  ; ^0 ON TERM1 ; AS #$60 LOCIB+1 OLOCIB+1 #$0 LOCIB OLOCIB AS1 #!200 #$0 VTAB HTAB ^0 #" " COUTS  <0 #$0 VTAB HTAB PRINT  "AT:" LOCIB+1 $FDDA LOCIB $FDDA CR #$0 ^0 RTS1 DCR #$8D COUTP ; ONBUFF AS LOCIB TLOCIB LOCIB+1 TLOCIB+1 #$FF BUFFON TERM1 OFFBUFF #!2 VTAB #!22 HTAB PRINT  "BUFFER OFF (Y/N):" GETCHR #'Y' >0 MEN2 ^0 BEEP2 #$0 BUFFRINT LOC  LOC+1 LOC1+1 LOC #$1  #$1 >0 LOC1+1  ^0 (LOC),Y LOC1 >0 LOC1+1 ^0 LOC1+1  LOC1  (LOC),Y   LP5  RTS1 (LOC),Y TX TY COUTP TX TY LP5 ; SETIRQ #IRQOUT IRQ /IRQOUT IRQ+1  ; ; IRQOUT    CLOCK SLOT TONBYT,Y #%00010000 RESTOR #%00000100 BSRBYT,Y #$0 BSRBYT,Y COUNT RESTOR COUNT RESTOR    $45  ;  ; DP#"0" TEN COUTSC TEN #$0 COUTSC UNDIG #$0 COUTSC ; ; INTERRUPTS ; SLOTINITSLOTRW SLOT HANG1  HANG1 SLOT  #$0 SHBYT,Y #%10000001 SQUBYT,Y #$0 BSRBYT,Y #$1F XMTBYT,Y XMTRAM   DECPR PRINT  ":" MINUTES DECPR PRINT  " " SECONDS DECPR ; DECPR #"0" S1 #!100 S2  S1 S2 #!100 HUND+1 #"0" S3 #!10 S4  S3 S4 #$BA TEN+1 UNDIG+1 HUND #$0 DCR RECERR SAVEPR  SAVEPR #$0 RECERR #$4C ERROR #ERR ERROR+1 /ERR ERROR+2 #$FF ONERR DCR DPRINT ) "BSAVE PARAMS,A$9000,L$80,D1,S6,V254" DCR ; RECERR >0 RTS ^0 ; ; PRTIME HOURS CERR HTAB DCR DPRINT , "BSAVE NUMBERS,A$4000,L$1200,D1,S6,V254" DCR RECERR RTS  RTS BEEP ; ; ERR #$FF RECERR  ; LOADPR #$0 RECERR ; ALREADY SET UP DCR DPRINT  "BLOAD PARAMS,A$9000" ; CTRL-D #; ; ; SAVE AS CATPT3 ; ---- -- ------ ; LOADIT #$4C ERROR #ERR ERROR+1 /ERR ERROR+2 #$FF ONERR #$0 RECERR DCR Q1 DPRINT  "BLOAD NUMBERS" ; REM CTRL-D DCR RECERR SAVEIT  SAVEIT #$0 RE            INFO"$ A$"2"ĺ(4)"RUN CREDITS"H A$"3"ĺ(4)"RUN INSTRUCTIONS"d A$"4"ĺ(4)"RUN HELP" A$"5"ĺ(4)"RUN CHANGE SPEED" 15510016304,0:16297,0:16299,0:49234,0:"LOADING NUMBER DIRECTORY..." (4)"EXEC RUNCAT" ( d:% i"1> GENERAL INFO"7 n"2> CREDITS"N s"3> INSTRUCTIONS"e x"4> HELP WANTED!" y"5> ADJUST TOUCH-TONE SPEED" {"6> RUN CAT-CONNECTION" }8:1:"YOUR CHOICE < >";:14:A$  (A$)0(A$)6125 A$"1"ĺ(4)"RUN  :::2 "LOADING THE CAT CONNECTION..."c8:"PRESS FOR OPTIONS AND UTILITIES."(4)"BLOAD CATPIC,A$4000"(16384)15510016304,0:16297,0:16299,0:49234,0:"LOADING NUMBER DIRECTORY..." (4)"EXEC RUNCAT"  RSOR 4, ! (A1)" #$D PRVALUE PRINT  "KEYCLICK (0=OFF) (00)" CR #$E PRVALUE PRINT  "CLOCKTICK (0=OFF)(00)" #$F PRVALUE PRINT "HOUR" CR #$10 PRVALUE PRINT "MINUTE" CR #$11 PRVALUE PRINT " PRINT  "CASE, 0=UPPER (00)" CR #$9 PRVALUE PRINT  "CURSOR 1, < (BC)" CR #$A PRVALUE PRINT  "CURSOR 2, ! (A1)" CR #$B PRVALUE PRINT  "CURSOR 3, > (BE)" CR #$C PRVALUE PRINT  "CU#$4 PRVALUE PRINT  "MAX BUSY SIGNALS (02)" CR #$5 PRVALUE PRINT  "CARRIER ON WAIT (02)" CR #$6 PRVALUE PRINT  "HANGUP DELAY (80)" CR #$7 PRVALUE PRINT  "NUMBER OF BEEPS (10)" CR #$8 PRVALUE#$0 HTAB VTAB PRINT * "<- -> MOVES, SPACE EDITS, RTN RETURNS" #$1 PRVALUE PRINT  "MAX 2ND DT WAIT (FF)" CR #$2 PRVALUE PRINT  "MAX D.T. WAIT (10)" CR #$3 PRVALUE PRINT  "MAX CAR. WAIT (20)" CR  VTAB ^0 SECONDS SECONDS #!60 >0  ^0 #$0 SECONDS MINUTES MINUTES #!60 >0  ^0 #$0 MINUTES HOURS HOURS #!24 >0  ^0 #$0 HOURS  ; PARAMS #$0 TOP TIMEON HOME CLOCK MSEC1 >0 #!33 MSEC1 MSEC ^0 MSEC >0  ^0 MSEC  #!29 MSEC CLICK1 >0 $C030 #$3 $FCA8 $C030 ^0 TIMEON >0 VT  HTAB  $35  TEMPORAL  $35  HTAB T 00 LCHR A0 POWER 00 HANGVAL 00 TRY 00 CARON 00 CNTST 0000 BUSYCNT 00 AUTO 00 VAL1 00 VAL2 00 SAVH 00 SAVY 00 INCASE 00 BUSY 15 SMALL 0A MSEC 00 MSEC1 00 ; ;0100000 >3  VAL1  #$10 VAL1 CARFOUND <2 ^3 VAL2 <2 DT1 CARFOUND#$0 POWER TOP HOME TERMSET2 TERM.5 ; ; RECERR 00 PRINTON 00 CHROUT 00 CHRIN 00 ; ; ; ALT 00 LHT 00 LVYT,Y XMTRAM TERMSET  #$0 VAL1 VAL2 ^2 #!22 VTAB #!30 HTAB VAL1 $FDDA #"-" COUTSC VAL2 $FDDA $C000 #" " >0 OPTION ^0 RNDH #%00011111 #%00000001 $FCA8 ^0 SWBYT,Y #%0 COUTSC VAL2 $FDDA $C000 #" " >0 OPTION ^0 RNDL #%00011111 #%00000001 $FCA8 ^0 SWBYT,Y #%00100000 >3 VAL1  #$10 VAL1 CARFOUND <2 ^3 VAL2 <2 #$65 RECBYT,Y #$11 XMTB#!22 VTAB #$0 TIMEON HTAB PRINT  "SEARCHING FOR CARRIER..." SLOT DT1 #$64 RECBYT,Y #$10 XMTBYT,Y XMTRAM #$0 VAL1 VAL2 $C010 TERMSET  ^2 #!22 VTAB #!30 HTAB VAL1 $FDDA #"+"TX6+1 #$10 ^1 #$10 ^0 $C030  $FCA8  <0  <1 TY6 #$0 TX6 #$0  ; BEEP2 TY7+1 #$15 ^0 RNDH RNDL #%00000111 $FCA8 $C030 RNDH RNDL  <0 TY7 #$0  ; AUTOCAR CR DPRINT "PR#1" DCR $AA53 INJMP+1 OUTJMP+1 $AA54 INJMP+2 OUTJMP+2 DPRINT "PR#0" DCR  ; ; OFFPR #$0 PRINTON #COUTSC INJMP+1 OUTJMP+1 /COUTSC INJMP+2 OUTJMP+2  ; ; BEEP1 TY6+1  BUFFON ^0 LOCIB TLOCIB LOCIB+1 TLOCIB+1 TY71 #$0  ; TLOCIB 0000 ; PRINTER #$2 VTAB #!29 HTAB PRINT "PRINTER:" PRINTON >0 PRINT  "OFF" OFFPR ^0 #$FF PRINTON PRINT  "ON " DTY71+1 #$0   #$88 >1  #" " (LOCIB),Y LOCIB >0 LOCIB+1 LOCIB+1 #$5F >0 LOCIB ; ^1 (LOCIB),Y LOCIB >0 LOCIB+1 LOCIB+1 #$A0 >0 CR PRINT  "BUFFER FULL" BEEP1 CR #$0 LOCIB OLOCIB  VAR1 >1 LOCIB+1 ^1 LOCIB LOCIB+1 #$A0 >3 ^2 OLOCIB LOCIB OLOCIB+1 LOCIB+1 ^3 AS1 ; BUFFON 00 ; BUFFIT BUFFON >0  ^0 TLOCIB LOCIB TLOCIB+1 LOCIB+1 #":" >1 #$40 <2 ^1 #"@" >1 #$0 VAR1 VAR2 STDLY $C000 #" " >0 #$FF STATUS  ^0 #$1 COUNTM #!1 ; 1 TIME REVERSE POLARITY >0 VAR1 VAR1 #$40 ; LONGER THAN LONGEST RING >1 STDLY >5 ^1 #"#" >1 #!10 TONE >5 ^1 #"*" >1 #!11 TONE >5 ^1 #"," >1 #$10 ^2 $C000 #" " >3 #$FF STATUS  ^3 #$80 WAIT  <2 ^1 #";" >1 #$20 <2 ^1 HANGUP  ^0 GETCAR ; REM TERMINAL HANGUP  DIALSET #$0 LP1 (POINTER),Y #$3F TY1 COUTS TY1 HTAB $C000 #" " >0 #$FF STATUS  ^0 (POINTER),Y #"0" >1 #":" >1  #"0" TONE   ^0 $C000 #" " >1   ^1 #$8 COUNTM #$1 DIAL1A   DIAL1B GTPRE #!9 HTAB #$3 VTAB DIALSET STATUS >0 HANGUP  ^0 GTNUM #!9 HTAB #$4 VTAB DIALSET STATUS >0 ; ; CATPT2 ; DIAL0 HTAB PRINT "<- DIAL" DIAL $C010 #$0 AUTO DIAL1 DIAL1A DIAL1B  DIAL1 SLOTINIT SETUP SETIRQ ; PICK UP PHONE, GET DIAL TONE ; DO PREFIX NOW MAXWAIT1 VAR1  DIAL1A VAR1 >0           OM BASIC TYPE 'BRUN CR'" CR PRINT  "GO INTO BASIC? (Y/N):" GETCHR #'Y' >0 TERM1 ^0 SETIRQ $9200    ; NOGO ; "CATPT4" 4" P; "CATPT4"    ; NOGO ; "CATPT4" ETCHR #'Y' >0 #'N' >1 BEEP <0 ^1 INIT ^0 #$0 TIMEON TOP $C010 $3D0 ; ; "CATPT4" B VTAB PRINT ! "REMOTE OPTION FROM NOVATION." CR PRINT ! "WILL HANG UP PRESENT CALLER." CR PRINT  "FRDCR CR  #$0 TOP #!24 BOTTOM PRINT "SPACE:" ^0 GETCHR #' ' <0 MEN2 ; ; EXIT HOME ^0 #!15 VTAB #$0 HTAB PRINT  "LEAVE, WHY?" BEEP1 CR PRINT  "REALLY?(SNIF,SNIF) (Y/N):" G "DISK COMMAND" CR #!39 VAR2 #DOSCMD POINTER /DOSCMD POINTER+1 #$0 INPUT1  #$0 TOP #!15 BOTTOM #$0 VTAB HTAB DCR #$84 COUTP DPRINT  28 5DOSCMD " " RL1 8B CTRL2 8C CTRL3 89 CTRL4 8F CTRL5 95 ; ; DUPLEX FF ECHO 00 TIMEON 00 BEEPVAL 00 BEEPVAL2 00 ; ; DISKER #$0 HTAB VTAB #!200 #" " ^0 COUTN  <0 #$0 HTAB VTAB PRINT VAL1 VTAB #$0 HTAB #" " COUTS ; RESET JMP+1  JMP+2  JMP+1  JMP+1 RESET0 JMP+1 RESET0 #JMP RESVEC $3F6 $3F9 /JMP RESVEC+1 $3F7 $3FA #$A5 RESVEC+2  ; JMP $0000 ; CT #$1 VALUES,Y ED ^1 VAL1 VALUES,Y  #$1 VALUES,Y ED ; ; PRVALUE  VTAB #$1 HTAB   VALUES,Y  $FDDA PRINT  "="   COUTS PRINT  " - "  DECPR #$10 HTAB  ERSIT VAL1 #$1 HTAB VALUES,Y $FDDA PRINT  "=" VAL1 VALUES,Y COUTS PRINT  " : " VAL1 VALUES,Y DECPR PRINT  " " $C010 GETCHR #$15 >0 #$8 >1 #!13 ED PARAMS ^0 VAL1 VALUES,Y  GETCHR #$15 >0 #$8 >1 #' ' >2 #!13 GETMOD1 INIT ^0 ERSIT VAL1 VAL1 #$15 GETMOD1 #$1 VAL1 GETMOD1 ^1 ERSIT VAL1 GETMOD1 #$14 VAL1 GETMOD1 ^2 HTAB PRINT  "#" ED SECOND" CR #$12 PRVALUE PRINT  "RINGS TO ANSWER" #$13 PRVALUE PRINT  "SHIFTKEY (0=BUT(2))" #$14 PRVALUE PRINT  "SLOT X $10" $C010 GETMOD #$1 VAL1 GETMOD1 VAL1 VTAB #$0 HTAB #">" #$3F COUTSCHTAB VTAB $C010 #$0 HTAB VTAB #!200 ^8 #" " COUTS  <8 TERM1 ^0 VAL1 VAL1 #$4 >9 #$0 VAL1 ^9 OPT1 ^1 VAL1 >9 #$3 VAL1 ^9 OPT1 ; ^2 VAL1 >3 #$1 VTAB VAL1 VAL2 #$0 HTAB #" " COUTN VAL1 VTAB #$0 HTAB #">" #$3F COUTN ^5 GETCHR #$15 >0 #$8 >1 #' ' >2 #'2' >7 #$1 MENUMB TERM1 ^7 #!27 <5 #$0 TOP POWER INT  " SWITCH DUPLEX" CR PRINT  " ECHO ON/OFF" CR PRINT  " PRINTER ON/OFF" CR PRINT  " EXIT TERMINAL" CR PRINT  "# 1-3 FOR MENUS" #!20 HTAB PRINT "-- TIME:" PRTIME #$0 VAL1 VAL2 OPT1 VAL2 #$0 TIMEON POWER TERM1 SAVY #$6 >0 #$6 SAVY ^0 $C010 #$5 TOP #$0 HTAB VTAB ^0 #!200 ^0 #" " COUTN  <0 MENUMB MEN1 #$1 MEN1 MEN2 MEN1 #$0 HTAB VTAB PR#$80 SQUBYT,Y #%00000111 CON,Y #$22 SPDBYT,Y #%00000110 COM,Y #$0 DEVBYT,Y OFFPR ; ; INIT MODEM ; TERM0 #$11 XMTBYT,Y XMTRAM #$65 RECBYT,Y #$0 POWER ; TERM.5 RESET IRQDEF TERMSET TERM1 MSET TERM0 TERMSET2#$0 TOP HOME #$0 HTAB VTAB PRINT % "CAT: TERM. PRESS ESC FOR OPTIONS"  IRQDEF #OUTPR IRQ /OUTPR IRQ+1  TERMSET #$1 SAVY #$0 SAVH SLOT BSRBYT,Y  #%00000010 SHBYT,Y VTAB #$0 HTAB PRINT "TRIES:" TRY DECPR PRINT  " " TRY $C000 #" " >1 AUTOD1 ^1 OPTION ; BEEP #$70 ^0 #$0F WAIT $C030  <0  ; ; * TERMINAL#$0 TIMEON TERMSET2 TER0 ^2 ; AUTOD $C010 #$FF AUTO #$2 TRY HTAB PRINT  "<- FAST RE-DIAL" AUTOD1 DIAL1 DIAL1A >0 DIAL1B ^0 #!22 VTAB #$0 HTAB PRINT * "DIALING AGAIN... " TEMPORAL #!21 0 #" " >1  <3 BEEPS ^3 BEEP1 $C000 #" " >1  <3 ^1 TERMINAL ; FIX.  ^5 SLOT #$7E RECBYT,Y #!195 $FCA8 #!20 VTAB #$0 HTAB PRINT  " " ^6 #!22 VTAB <>2 ^7 SLOT #$61 RECBYT,Y #!195 $FCA8 SWBYT,Y #%00010000 >5 #!20 VTAB #$0 HTAB PRINT "CARRIER:" CARON $FDDA CARON CARON CARONLEN >6  $C010 AUTO >1 BEEPS ^3 BEEP $C00AR BUSY ^4 BUSYCNT #!25 HTAB BUSYCNT  $FDDA  MAXBUSY >1 AUTO ; IF AUTO DIAL NOT ON >1  ^1 #!17 HTAB #!22 VTAB VAR1  $FDDA  COUNT >9 <0 ^9 #!29 COUNT VAR1 >7 #$60 >9 AUTO >9  ^9 #!32 HTAB CNTST+1 $FDDA >1 ^2 #!30 HTAB #" " COUTS CNTST+1  #$30 CNTST #$0 CNTST+1  BUSY >3 SMALL >4 >1 ^3 #$FF BUSYCNT ; IF RING THEN CLECNTST #$0 CNTST+1 BUSYCNT ^0 SLOT $C000 #" " >1  ^1 SLOT #$0 BSRBYT,Y #$7E RECBYT,Y SWBYT,Y #%00010000 >2 #!30 HTAB #"*" COUTS CNTST >9 #$30 CNTST CNTST+1 CNTST+1 OT ACBYT,Y #$1 >0 BEEP ^0 RESTZP     $45   ; ; GETCAR #!22 VTAB #$0 HTAB PRINT  "AWAITING CARRIER:" MAXWAIT2 VAR1 #!29 COUNT SETIRQ #$0 CARON SLOT BSRBYT,Y  #$30 Q /RING IRQ+1  ; ; SAVEZP #$0 SVZP1 $0,X $1000,X  SVZP1  ; RESTZP #$0 RSZP1 $1000,X $0,X  RSZP1  RING     SAVEZP SLOT #%00000100 BSRBYT,Y #$0 BSRBYT,Y CLOCK SL^0 #$0 VAR1 VAR2 VAR2 MAXWAIT STDLY #$FF STATUS  ^1 ; ; ^5 (POINTER),Y TY1 COUTS TY1  #!30 >0 LP1 ^0 #$0 STATUS  ; TONE TONE1   ; IRQRNG #RING IR   #$1 $FCA8 $C030  <1 BEEPVAL  #$8 BEEPVAL ; ^0 BEEPVAL2 >0 #!10 ^1 BEEPVAL2     #$1 $FCA8 $C030  <1 BEEPVAL2  #$8 BEEPVAL2 ; ^0 HTAB SAVH VT MP #$81 OUTJMP #$88 >0 CURSOUT ^0 #$8D >0 CURSOUT ^0 #$87 >0 #$80 BEEPVAL >1 ^0 #$8A OUTJMP >1 OUTJMP $0000 BUFFIT ^1 PLCURS ; BEEPVAL >0 #!10 ^1 BEEPVAL  E NLC ; UPPER NOW INCASE #$2 NLC #$1 ILC INCASE NLC ILC #$C0 NLC #$E0 NLC #$20 NLC CHROUT OUTDAT,Y CLICK >0 $C030  #$7 WAIT  $C030 ^0 DUPLEX >1 OUTIT #$9B OUTJINJMP #$E0 INJMP  #$20  INJMP $FDF0 BUFFIT ^5 SLOT CATSTAT,Y #%00010000 FORE >1 FORE ECHO TEMPCHR CHRIN TEMPCHR #$0 CHRIN CHROUT OUTDAT,Y >1 TEMPCHR #$0 >1 POWER >1 CAS5 XMTRAM XMTBYT,Y ^2 INDAT,Y #%10000000 CHRIN #$9B INTHG #$81 INTHG #$88 >0 CURSOUT ^0 #$8D >0 CURSOUT ^0 #$87 >0 #$80 BEEPVAL2 >5 ^0 #$8A INTHG >5 INTHG CASE CR PRINT , "PRESS TO EXIT, RTN TO GO TO TERM." NORMAL  ; FORGET STACK CR ^8 $C010 GETCHR #!27 >7 #!13 >0 BEEP1 <8 <8 ^7 INIT ; ^1 #$0 HANGVAL ^0 CATSTAT,Y #%00001000 >>1 #$DF ^1 TEMPCHR+1 ^6 SWBYT,Y #%00100000 >7 >1 ; REM HUNGUP ^7 HANGMAX >7 >0 ^7 HANGVAL HANGVAL HANGMAX >7 >0 ^7 CR INVERSE PRINT " "CAT-CONNECTION: CARRIER LOST." NORMAL T0 DIAL1 DIAL1A >0 INIT ^0 #!10 VTAB #$7 HTAB DIALSET STATUS >0 INIT ^0 GETCAR INIT ; "CATPT3" DC >1 ^0 CTRL3 >0 #"]" >1 ^0 CTRL4 >0 #$DB >1 ^0 CTRL5  ; ; MANDIAL HOME #$0 AUTO $C010 #!10 VTAB #$0 HTAB PRINT "NUMBER:" PRINT  1E +OLNUM "(415) 941-1990 - THE REALM !!!" #OLNUM POINTER /OLNUM POINTER+1 #!10 VTAB #!36 HTAB #!29 INPUMEN2 ^1 #$2 >1 BUFFON >0 ONBUFF ^0 OFFBUFF ^1 OPT2 ; ; CURSOUT HTAB #" " (BASL),Y  SLOT  ; PLCURS ALT CURSOR,Y HTAB (BASL),Y SLOT ALT ALT #$4 >0 #$0 ALT ^0 #!200 ^8 #" " COUTS  <8 TERM1 ^0 VAL1 VAL1 #$4 >9 #$0 VAL1 ^9 OPT2 ^1 VAL1 >9 #$3 VAL1 ^9 OPT2 ; ^2 VAL1 >1 ; * JSR REMOTE MEN2 ^1 #$1 >1 DISKER OUTN VAL1 VTAB #$0 HTAB #">" #$3F COUTN ^5 GETCHR #$15 >0 #$8 >1 #' ' >2 #'1' >7 #$0 MENUMB TERM1 ^7 #!27 <5 #$0 TOP POWER HTAB VTAB $C010 #$0 HTAB VTAB " CR PRINT  " TURN ON/OFF BUFFER" CR PRINT  " LOAD/SAVE BUFFER" CR PRINT  "# 1-3 FOR MENU" #!20 HTAB PRINT "-- TIME:" PRTIME #$0 VAL1 VAL2 OPT2 VAL2 VTAB VAL1 VAL2 #$0 HTAB #" " C(Y/N):" $C010 GETCHR #'Y' ENDCON1 #$3 VTAB #!20 HTAB PRINT  "STILL ON-LINE" OPT1 ENDCON1 SLOT #$0 COM,Y POWER INIT MEN2 #$0 HTAB VTAB PRINT  "GIVE REMOTE" CR PRINT  " DISK COMMANDF" ^1 OPT1 ; ^4 #$1 VTAB #!30 HTAB PRINT "ECHO :" ECHO >0 #$0 ECHO PRINT  "OFF" >1 ^0 #$FF ECHO PRINT  "ON " ^1 OPT1 ; ENDCON #$3 VTAB #!20 HTAB PRINT  "HANGUP >0 >4 ^0 #$2 >0 PRINTER OPT1 ^0 #$3 >0 ENDCON ^0 OPT1 ^3 #$0 VTAB #!30 HTAB PRINT "DUPLEX:" DUPLEX >0 #$0 DUPLEX PRINT  "ON " >1 ^0 #$FF DUPLEX PRINT  "OF@             #!10 VTAB #$7 HTAB DIALSET STATUS >0 INIT ^0 GETCAR INIT ; "CATPT3" $C010 #!10 VTAB #$0 HTAB PRINT "NUMBER:" PRINT  1E +OLNUM "123456789012345678901234567890" #OLNUM POINTER /OLNUM POINTER+1 #!10 VTAB #!36 HTAB #!29 INPUT0 DIAL1 DIAL1A >0 INIT ^0 SAVY RESTZP     $45   ; CURSOUT HTAB #" " (BASL),Y  SLOT  ; PLCURS ALT CURSOR,Y HTAB (BASL),Y SLOT ALT ALT #$4 >0 #$0 ALT ^0 ; ; MANDIAL HOME #$0 AUTO ժժժժժժժժժժժժժժժժբܸĈĈݻ@ňĈĈĈݻݻݻݻ݈昌LjĈĈĈĈĈĈĈĈ݈Ĉݻ?~yqyGňĈĈĈѪՊĈĈĨժňĈĈժժժժժժժOתժժժժժժժժբĈĈĈĨݻݻ݋Ĉ怑ĈĈĈݻݻݻݻ݈怑ڪժժժժժժժժժժժժժժժժժ܎ĈĈݻݻݻݻĈ 60ĈĈĈջݻݻݻ݈ժժժժժժժժժժժժժժժժժߪբĈĈĈĈĈĈ݈ĈĈĈĈݛ݈ժժժժժ֪wժժժժժʩժժժժժբĈĈĈĈĈĈ݈Ĉ怑ĈĈĈ݋݈~f~~>>f>>>>><>~<תժժꪟۈ߈ǯĈĈĈĈĈĈĈĈxg|GAcxňժժժժժժժժժժժժժժժժժժբĈĈĈĈĈĈĈĈĈňݻ|xGc?pňժժߪժժժժժժժժժժժժժժՈċĈĻݻݻݻݻĀĈĈĈݻݻݻݻݻעĀĈĈĈĈĈĈĈĈϋĈԻ?~sqyGݻĀĈĈĈĪբĈĈĈժĈĈժժժժժժժժժժժժժժժժժՈĈĈĈݻݻݺĈĀĈĈĈܻݻժժժժժժժժժԪժժժժժժժĈĈĈݻݻݻ݈ĀfĈĈĈݻݻݻݻתݻժժժժժժժժժժժժժժժժժϪՈĈĈĈܻĈĺĈĀĈĈĈܻ~cG?ݻժժժժժ̪իժժժժժժժժժժժՈĈĈĈݻĈĺĈĀĈĈĈܻݻff~ffffffnתժժĈĈĈĈĈĀĈƈܻxO|yqݻĀ<ժժժժժժժժժժժժժժժʫתժժՈĈĈĈĈĈĈĈĀĈĈοܻ|GcݻժժժժժժժժժժժժժժժժժժժբĈĈݻݻݻݻňĈĈĈݻݻݻݻ݈Ĉ߈ĈĈĈĈĈĈĈӣLjĈݻ?~gq?xGňĈĈĈѪՊĈĈĨժňĈĈյ SETUP $BF3 WAIT $FCA8 HANGUP $8FE COUNTM $D21 WAIT100 $919 IRQ $3FE SWBYT $C080 XMTBYT $C08D BSRBYT $C083 RECBYT $C089 TONBYT $C081 ACBYT $C08D CATSTAT $C08F INDAT $C08B OUTDAT $C08E SQUBFF $1100 COUTN $FDED VTABZ $FBC1 COUTS $FBF0 COUTP $A97D INVERSE $FE80 NORMAL $FE84 PRHEX $FDE3 TOP $22 BOTTOM $23 LEFT $24 WIDTH $21 SLOT $2F1 HOME $FC58 TEXT $C051 TONE1 $E40 $50 OLOCIB $52 XMTRAM $1B BASL $28 BASH $29 RNDL $4E RNDH $4F RESVEC $3F2 ; BE CAREFUL NOT TO USE ANY ; BASIC, DOS, OR ASSM Z.P.LOCS VT $25 HTAB $24 COUTSC $FDF0 PRJMP $36 TOPRT $C102 PRBU$CE POINTER $FE XOVER $FD PLEV $0 NLEV $1 CROSS $2 VAR1 $3 PLACE $4 TX $5 TY $6 VAR2 $7 TZ $8 TX1 $9 TY1 $A STATUS $B COL $C COUNT $11 MENUMB $12 LOCIB '* WILLIAM THE KRACKER'S * * THE CAT-CONNECTION * * (K) 1984 BY W.T.K. *  $1200  $4000  ; #GOOF JMP+1 /GOOF JMP+2 START LOADIT LOADPR GOOF $C054 $C051 INIT0 ; ; BASIC ROUTINES ; LOC $D6 LOC1             ÍЍĠЬĠì̠͠ŠŠŠΠ٠Ӡ˭ԠӠŠǠŠ˧ӠˡĠϮ̠ժתժժժժժժժժժժժժժՈĈĻ@ݻĀĈĈĈݻݻݻݻݻעĀĈĈĈĈĈĈĈĈĈԻ|q|GݻĀĈĈĈĪՠĈĈĈժĈĈժժվժժժժժުժժղժժժժժժՈĈĈĈݻݻݺĈĀĈĈĈܻݻݻݻݻϪժժժժժժժժժժժժժժժժժժ菬ĈĈĨݻݻݻ݋Ā`ĈĈĈݫݻݻݻݪĀժժժժժժժժժժժժժժʩժժՈĈĈĈݻĈĺĈĀĈĈĈܻݻժժժժ寕Ӫ՞ժժժժժժժժժժՈĈĈĈݻĈĺĈĀĈĈĈܻݻ~~ff~`v`תժʩ꫶ĈĈĈĈĈĀĈĈƈܻx|GcsݻժժժժժժժժժժժժժժժպժժժՈĈĈĈĈĈĈĈĀĈĈ?ܻ|yG<~cgݻN ^5 #' ' ENUM PLACE NORMAL FNLOC PRINT  "<" MAIN ; ^0 NORMAL FNLOC PRINT  " " NLEV OV ; OFF TOP ENUM OV #!14 NLEV COL OV1 ENUM OV1 #$2 COL ENUM ; ^1 NORMAL #$8 ; LEFT ARROW >0 #$15 ; RIGHT ARROW >1 #!27 >5 FNLOC FNLEV1 FNLEV2 FNLEV1 NLEV      DATA+1 POINTER DATA+2  COL POINTER+1  FNLEV2 #$9 INPUT MAIN ^5 #!13 >5 OPTIOVTAB ; ; MAIN #$6 VTAB #$0 HTAB NORMAL PRINT - "<-> SCAN,ESC EDIT,SPC SWITCH,RTN=OPTIONS" PLACE ENUM #$1 >3 EPRE ^3 EVAL0 ; ENUM NORMAL UNUM UCALL INVERSE FNLOC PRINT  "<" GETCHR 6789012345678901234567890"  ; SETAR NORMAL #$10 VTAB FNLOC PRINT  "<" FPLOC PRINT  "<" MAIN FNLOC COL     COL COL #!9 HTAB NLEV  #$8 VTAB FPLOC #!39 HTAB PLEV  #$8 VTAB #$9 HTAB DATA+1 POINTER DATA+2  #$A COL COL POINTER+1 NLEV      >2 POINTER+1 ^2 #$0 ^0 #$1F >1 (POINTER),Y PRSTAT3,X  <0 ^1 PRINT +PRSTAT3 "12345DATA+2  #$4 COL COL POINTER+1 NLEV      >2 POINTER+1 ^2 #$0 ^0 #$1F >1 (POINTER),Y PRSTAT2,X  <0 ^1 PRINT +PRSTAT2 "123456789012345678901234567890"  UCALL #$5 PLEV      >4 POINTER+1 ^4 #$0 ^0 #$1F >1 (POINTER),Y PRSTAT1,X  <0 ^1 PRINT +PRSTAT1 "123456789012345678901234567890"  UNUM #$9 HTAB #$4 VTAB DATA+1 POINTER R #!40 <2 #$7 VTAB #$0 HTAB INVERSE PRINT - "NUMBER 1 !NUMBER 2 !NUMBER 3 !PREFIX 1 !" NORMAL UPRE UNUM UCALL SETAR ; ; UPRE #$3 VTAB #$9 HTAB DATA+1 POINTER DATA+2  #$10 POINTER+1 NTER),Y PRDATA+1,Y  #$9 <1 XOVER HTAB PRINT PRDATA "012345678" ; ONLY TEMP VAR1 VAR1 VTAB POINTER  #$10 POINTER #$F0 <0 #$0 POINTER POINTER+1  #$1 POINTER+1 XOVER  #!10 XOVE TOP CLEAR NORMAL HOME #$0 TIMEON PRINT  " PREFIX:" CR PRINT  " NUMBER:" CR PRINT  " CALLING:" DATA+1 POINTER DATA+2 POINTER+1 #$0 XOVER ^2 #!8 VTAB VAR1 ^0 #$0 ^1 (POI8 WIDTH #$0 TOP #$18 BOTTOM HOME INVERSE #$0 HTAB VTAB PRINT - "*** WILLIAM THE KRACKER PRESENTS ***" PRINT - "*** THE CAT----======----CONNECTION ***" PRINT - "*** (K) 1984 CRACK_EM_UP SOFTWARE ***" #$3MSEC ; CLOCK #$0 NLEV PLEV COL PLACE TEXT INIT RESET SLOTINIT $FE84 $FE93 $FE89 ; INIT SYSTEM ; DO A RESET #$0 TIMEON SLOT #$0 BSRBYT,Y IRQRNG #$4 COM,Y  CR INIT1 #$0 LEFT #$2LOC1+1 ^0 LOC1+1  LOC1  (LOC),Y   ^1  >2 (LOC),Y TX TY $32 ; DO INVERSE COUTS TX TY <1 ^2 ; CR #$8D COUTSC ; INIT0 IRQRNG #$0 HOURS MINUTES SECONDS  LOC LOC+1  ; GETCHR #$0 $C010 ^0 RNDL >1 RNDH ^1 $C000 <0 #%01111111  ; PRINT LOC ; LOW BYTE  LOC+1 LOC1+1 LOC #$1  #$1 >0 LOC1+1  ^0 (LOC),Y LOC1 >0 S $9007 CASE $9008 CURSOR $9009 ; 9,A,B,C CLICK $900D CLICK1 $900E HOURS $900F MINUTES $9010 SECONDS $9011 RINGMAX $9012 SHIFT $9013 SLOTRW $9014 ; DATA $4000 ; VTAB VT LOC LOC+1 VTABZYT $C081 SHBYT $C082 CON $C08A COM $C08C SPDBYT $C08B DEVBYT $C08F ONERR $D8 ERROR $A6F5 ; VALUES $9000 MAXWAIT $9001 MAXWAIT1 $9002 MAXWAIT2 $9003 MAXBUSY $9004 CARONLEN $9005 HANGMAX $9006 BEEPT  "LEAVE CAT-CONNECTION" ; TEMPORAL #$0 VAR1 #$8 VTAB #!22 HTAB SEL HTAB #" " COUTS VAR1  #$8 VTAB #!21 HTAB #"<" #$3F COUTS GETCHR #$8 >0 #$15 >1 #' ' >2 #!13 SEL CR PRINT  "AUTO-DIAL THE NUMBER" CR PRINT  " TYPE IN A # TO DIAL" CR PRINT  " CARRIER AUTO-SEARCH" CR PRINT  " SAVE NUMBERS" CR PRINT  " CHANGE PARAMETERS" CR PRINT  " SAVE PARAMETERS" CR PRINVAR1 ^0 VAR1 VTAB #!39 HTAB #" " COUTS VAR1 VAR1 #$6 <0 #$6 VTAB #$0 HTAB NORMAL PRINT - "<- -> MOVES, SPACE SELECTS, RTN RETURNS " #$8 VTAB #$0 HTAB PRINT  " DIAL THE NUMBER"  ; TEMPORAL#$7 VTAB #$0 HTAB PRINT  "---> IT'S " PRTIME PRINT  " O'CLOCK <---"  ; OPTION IRQRNG SLOTINIT #$FF TIMEON #$4 COM,Y IRQRNG #$6 TOP NORMAL UPRE UNUM HOME #$3 TOP #$3 INE TX TY #!39 HTAB VT  #$1 VT VTAB  TX TY  ; ERASE #" " TY COUTS TY HTAB >0 BACKLINE ^0 #$0 >1  HTAB #" " (POINTER),Y TY COUTS TY HTAB <0 ^1 ;OUTS TY  <1 ^2 >0  INPUT1 ^0 (POINTER),Y TY COUTS TY HTAB >4 BACKLINE ^4 HTAB INPUT1 ^3 VAR2 >0 INPUT1 ^0 (POINTER),Y TY COUTS TY  INPUT1 ; BACKL #$18 >5 ERASE INPUT1 ^5 #%10000000 #$A0 <4 VAR2 INPUT1 (POINTER),Y TY COUTS TY  ; ALREADY HTAB +1 INPUT1 ^0 (POINTER),Y COUTS ^0 ^1 #" " VAR2 <0 (POINTER),Y TY CCATES, ESC SAVES, CTRL-X BEG." TX1 VTAB TZ HTAB TY1 INPUT0 VAR2 #" " (POINTER),Y INPUT1 (POINTER),Y #$3F TY COUTS TY HTAB >4 BACKLINE ^4 GETCHR #!27 >0 #!13 >1 #$8 >2 #$15 >3 #$10 POINTER+1 PLEV      >4 POINTER+1 ^4 DATA+1 POINTER  ^9 #!30 INPUT MAIN ; ; ; INPUT TY1 VT TX1 HTAB TZ NORMAL #$6 VTAB #$0 HTAB PRINT - "RETURN TRUN>9 GTNUM DATA+2  #$4 COL COL POINTER+1 NLEV      >4 POINTER+1 ^4 DATA+1 POINTER  ^9 #!30 INPUT #!39 HTAB #" " COUTS MAIN ; ^0 GTPRE >9 GTPRE DATA+2 SELECT BACKLINE VAR1 >0 #$1 >1 ; DATA+2  #$A COL COL POINTER+1 NLEV      >4 POINTER+1 ^4 DATA+1 POINTER #!30 INPUT #!39 HTAB #" " COUTS MAIN ; ^1 GTNUM  #!13 >5 OPTION ^5 #' ' EVAL #$0 PLACE NORMAL VAR1  #$3 VTAB #!39 HTAB PRINT  " " MAIN ^0 VAR1 EVAL #$2 VAR1 EVAL ^1 VAR1 VAR1 #$3 EVAL #$0 VAR1 EVAL ; EPRE EVAL0 #$0 VAR1 #$4 VT EVAL NORMAL VT  #$1 VTAB #!39 HTAB PRINT  " " INVERSE VAR1  #$3 VTAB #!39 HTAB PRINT  "<" GETCHR #$8 >0 #$15 >1 #!27 >5 SELECT ^5 NORMAL FPLOC PRINT  "<" MAIN ; ^0 NORMAL FPLOC PRINT  " " INVERSE PLEV EPRE #!14 PLEV EPRE ^1 NORMAL FPLOC PRINT  " " INVERSE PLEV PLEV #!15 >5 EPRE ^5 #$0 PLEV T ARROW #$15 >1 #!27 >5 FPLOC FPLEV1 FPLEV2 FPLEV1 PLEV      DATA+1 POINTER DATA+2  #$3 POINTER+1  FPLEV2 #$9 INPUT MAIN ^5 #!13 >5 OPTION ^5 #' ' EPRE PLACEFNLOC PRINT  " " NLEV NLEV #!15 OV2 ENUM OV2 #$0 NLEV COL COL #$3 OV3 ENUM OV3 #$0 COL ENUM ; EPRE NORMAL UPRE INVERSE INVERSE FPLOC PRINT  "<" GETCHR #$8 >0 ; LEFR INIT1 #$0 LEFT #$28 WIDTH #$0 TOP #$18 BOTTOM HOME INVERSE #$0 HTAB VTAB PRINT - "*** WILLIAM THE KRACKER PRESENTS ***" PRINT - "*** THE CAT----======----CONNECTION ***" PRINT - "*** (K) 1984 CHOURS MINUTES SECONDS MSEC ; CLOCK #$0 NLEV PLEV COL PLACE TEXT INIT RESET SLOTINIT $FE84 $FE93 $FE89 ROM1 ROM2 ; DO A RESET #$0 TIMEON SLOT #$0 BSRBYT,Y IRQRNG #$4 COM,Y  CC1+1  ^0 (LOC),Y LOC1 >0 LOC1+1 ^0 LOC1+1  LOC1  (LOC),Y   ^1  >2 (LOC),Y TX TY $32 COUTS TX TY <1 ^2 ; CR #$8D COUTSC ; INIT0 IRQRNG #$0 00 ; VTAB VT LOC LOC+1 VTABZ LOC LOC+1  ; GETCHR #$0 $C010 ^0 RNDL >1 RNDH ^1 $C000 <0 #%01111111  ; PRINT LOC ; LOW BYTE  LOC+1 LOC1+1 LOC #$1  #$1 >0 LO MAXBUSY $9004 CARONLEN $9005 HANGMAX $9006 BEEPS $9007 CASE $9008 CURSOR $9009 CLICK $900D CLICK1 $900E HOURS $900F MINUTES $9010 SECONDS $9011 RINGMAX $9012 SHIFT $9013 SLOTRW $9014 ; DATA $40 CATSTAT $C08F INDAT $C08B OUTDAT $C08E SQUBYT $C081 SHBYT $C082 CON $C08A COM $C08C SPDBYT $C08B DEVBYT $C08F ONERR $D8 ERROR $A6F5 ; VALUES $9000 MAXWAIT $9001 MAXWAIT1 $9002 MAXWAIT2 $9003 $2F1 HOME $FC58 TEXT $C051 TONE1 $E40 SETUP $BF3 WAIT $FCA8 HANGUP $8FE COUNTM $D21 WAIT100 $919 IRQ $3FE SWBYT $C080 XMTBYT $C08D BSRBYT $C083 RECBYT $C089 TONBYT $C081 ACBYT $C08D COUTS $FBF0 COUTP $A97D INVERSE $FE80 NORMAL $FE84 PRHEX $FDE3 RBANK1 $C088 RBANK2 $C080 ROM1 $C08A ROM2 $C082 WBANK1 $C089 WBANK2 $C081 TOP $22 BOTTOM $23 LEFT $24 WIDTH $21 SLOT $12 LOCIB $50 OLOCIB $52 XMTRAM $1B BASL $28 BASH $29 RNDL $4E RNDH $4F RESVEC $3F2 VT $25 HTAB $24 COUTSC $FDF0 PRJMP $36 TOPRT $C102 PRBUFF $1100 COUTN $FDED VTABZ $FBC1 $D6 LOC1 $CE POINTER $FE XOVER $FD PLEV $0 NLEV $1 CROSS $2 VAR1 $3 PLACE $4 TX $5 TY $6 VAR2 $7 TZ $8 TX1 $9 TY1 $A STATUS $B COL $C COUNT $11 MENUMB '* WILLIAM THE KRACKER'S * * THE CAT-CONNECTION * * (K) 1984 BY W.T.K. *  $1200  $4000  ; #GOOF JMP+1 /GOOF JMP+2 START LOADIT LOADPR GOOF $C054 $C051 ROM1 ROM2 INIT0 ; ; BASIC ROUTINES ; LOC                ; "CATPT2" P1 ^0 #$0 STATUS  ; RING     SLOT #%00010000 XMTBYT,Y #$0 XMTBYT,Y BEEP       ; "CATPT2" !25 HTAB PRINT  "SAVE (Y/N):" GETCHR #'N' >2 #'Y' >0 BEEP <0 ^2 OPTION ^0 SAVEPR INIT ^1 #$7 >0 EXIT ^1 OPTION ; "CATPT2" 00 XMTBYT,Y #$0 XMTBYT,Y BEEP     #$4 >1 ^0 #!12 VTAB #!25 HTAB PRINT  "SAVE (Y/N):" GETCHR #'Y' >0 #'N' >4 BEEP <0 ^4 OPTION ^0 SAVEIT INIT ^1 #$5 >1 PARAMS ^1 #$6 >1 ^0 #!14 VTAB #INIT1 ^1 VAR1 VAR1 #$8 SEL #$0 VAR1 SEL ^0 VAR1 SEL #$7 VAR1 SEL ^2 VAR1 >1 DIAL0 OPTION ^1 #$1 >1 AUTOD ^1 #$2 >1 MANDIAL ^1 #$3 >1 AUTOCAR ^1 VAL #$0 VAR1 EVAL ; SELECT BACKLINE VAR1 >0 #$1 >1 ; DATA+2  #$A COL COL POINTER+1 NLEV      >4 POINTER+1 ^4 DATA+1 POINTER #!30 INPUT #!39 HTAB #" " COUT #!27 >5 SELECT ^5 #!13 >5 OPTION ^5 #' ' EVAL #$0 PLACE NORMAL VAR1  #$3 VTAB #!39 HTAB PRINT  " " MAIN ^0 VAR1 EVAL #$2 VAR1 EVAL ^1 VAR1 VAR1 #$3 EEPRE ^5 #$0 PLEV EPRE EVAL0 #$0 VAR1 #$4 VT EVAL NORMAL VT  #$1 VTAB #!39 HTAB PRINT  " " INVERSE VAR1  #$3 VTAB #!39 HTAB PRINT  "<" GETCHR #$8 >0 #$15 >1^5 #' ' EPRE PLACE NORMAL FPLOC PRINT  "<" MAIN ; ^0 NORMAL FPLOC PRINT  " " INVERSE PLEV EPRE #!14 PLEV EPRE ^1 NORMAL FPLOC PRINT  " " INVERSE PLEV PLEV #!15 >5 " GETCHR #$8 >0 ; LEFT ARROW #$15 >1 #!27 >5 FPLOC FPLEV1 FPLEV2 FPLEV1 PLEV      DATA+1 POINTER DATA+2  #$3 POINTER+1  FPLEV2 #$9 INPUT MAIN ^5 #!13 >5 OPTION ENUM ; ^1 NORMAL FNLOC PRINT  " " NLEV NLEV #!15 OV2 ENUM OV2 #$0 NLEV COL COL #$3 OV3 ENUM OV3 #$0 COL ENUM ; EPRE NORMAL UPRE INVERSE INVERSE FPLOC PRINT  "< ^5 #!13 >5 OPTION ^5 #' ' ENUM PLACE NORMAL FNLOC PRINT  "<" MAIN ; ^0 NORMAL FNLOC PRINT  " " NLEV OV ; OFF TOP ENUM OV #!14 NLEV COL OV1 ENUM OV1 #$2 COL NLOC PRINT  "<" GETCHR #$8 ; LEFT ARROW >0 #$15 ; RIGHT ARROW >1 #!27 >5 FNLOC FNLEV1 FNLEV2 FNLEV1 NLEV      DATA+1 POINTER DATA+2  COL POINTER+1  FNLEV2 #$9 INPUT MAIN!39 HTAB PLEV  #$8 VTAB ; ; MAIN #$6 VTAB #$0 HTAB NORMAL PRINT - "<-> SCAN,ESC EDIT,SPC SWITCH,RTN=OPTIONS" PLACE ENUM #$1 >3 EPRE ^3 EVAL0 ; ENUM NORMAL UNUM UCALL INVERSE F PRINT +PRSTAT3 "123456789012345678901234567890"  ; SETAR NORMAL #$10 VTAB FNLOC PRINT  "<" FPLOC PRINT  "<" MAIN FNLOC COL     COL COL #!9 HTAB NLEV  #$8 VTAB FPLOC #1234567890"  UCALL #$5 VTAB #$9 HTAB DATA+1 POINTER DATA+2  #$A COL COL POINTER+1 NLEV      >2 POINTER+1 ^2 #$0 ^0 #$1F >1 (POINTER),Y PRSTAT3,X  <0 ^1VTAB DATA+1 POINTER DATA+2  #$4 COL COL POINTER+1 NLEV      >2 POINTER+1 ^2 #$0 ^0 #$1F >1 (POINTER),Y PRSTAT2,X  <0 ^1 PRINT +PRSTAT2 "12345678901234567890ATA+2  #$10 POINTER+1 PLEV      >4 POINTER+1 ^4 #$0 ^0 #$1F >1 (POINTER),Y PRSTAT1,X  <0 ^1 PRINT +PRSTAT1 "123456789012345678901234567890"  UNUM #$9 HTAB #$4 +1 XOVER  #!10 XOVER #!40 <2 #$7 VTAB #$0 HTAB INVERSE PRINT - "NUMBER 1 !NUMBER 2 !NUMBER 3 !PREFIX 1 !" NORMAL UPRE UNUM UCALL SETAR ; ; UPRE #$3 VTAB #$9 HTAB DATA+1 POINTER D ^0 #$0 ^1 (POINTER),Y PRDATA+1,Y  #$9 <1 XOVER HTAB PRINT PRDATA "012345678" ; ONLY TEMP VAR1 VAR1 VTAB POINTER  #$10 POINTER #$F0 <0 #$0 POINTER POINTER+1  #$1 POINTERRACK_EM_UP SOFTWARE ***" #$3 TOP CLEAR NORMAL HOME #$0 TIMEON PRINT  " PREFIX:" CR PRINT  " NUMBER:" CR PRINT  " CALLING:" DATA+1 POINTER DATA+2 POINTER+1 #$0 XOVER ^2 #!8 VTAB VAR1Ӡ 3(ŠԭΠ 3(˩РŠ" X- 3 غ p 3 Һ p 3 Ǻ  $ 3  iѩii (д $ @.QT ,$ $LuL@%ք ֤`NO)`hhׅϥ֠iqօΐϥHH֪ֆ%2 LY`L d) Q T- q% - X p$(!"# X $  3(͠ŠҠ              >1 ^0 #!14 VTAB #!25 HTAB PRINT  "SAVE (Y/N):" GETCHR #'N' >2 #'Y' >0 BEEP <0 ^2 OPTION ^0 SAVEPR INIT ^1 #$7 >0 EXIT ^1 OPTION ; "CATPT2" 0 EXIT ^1 OPTION #$3 >1 AUTOCAR ^1 #$4 >1 ^0 #!12 VTAB #!25 HTAB PRINT  "SAVE (Y/N):" GETCHR #'Y' >0 #'N' >4 BEEP <0 ^4 OPTION ^0 SAVEIT INIT ^1 #$5 >1 PARAMS ^1 #$6 1 #' ' >2 #!13 SEL INIT1 ^1 VAR1 VAR1 #$8 SEL #$0 VAR1 SEL ^0 VAR1 SEL #$7 VAR1 SEL ^2 VAR1 >1 DIAL0 OPTION ^1 #$1 >1 AUTOD ^1 #$2 >1 MANDIAL ^1 SAVE PARAMETERS" CR PRINT  "LEAVE CAT-CONNECTION" ; TEMPORAL #$0 VAR1 #$8 VTAB #!22 HTAB SEL HTAB #" " COUTS VAR1  #$8 VTAB #!21 HTAB #"<" #$3F COUTS GETCHR #$8 >0 #$15 >T  " DIAL THE NUMBER" CR PRINT  "AUTO-DIAL THE NUMBER" CR PRINT  " TYPE IN A # TO DIAL" CR PRINT  " CARRIER AUTO-SEARCH" CR PRINT  " SAVE NUMBERS" CR PRINT  " CHANGE PARAMETERS" CR PRINT  " HOME #$3 TOP #$3 VAR1 ^0 VAR1 VTAB #!39 HTAB #" " COUTS VAR1 VAR1 #$6 <0 #$6 VTAB #$0 HTAB NORMAL PRINT - "<- -> MOVES, SPACE SELECTS, RTN RETURNS " #$8 VTAB #$0 HTAB PRINTY HTAB <0 ^1 ; ; TEMPORAL#$7 VTAB #$0 HTAB PRINT  "---> IT'S " PRTIME PRINT  " O'CLOCK <---"  ; OPTION IRQRNG SLOTINIT #$FF TIMEON #$4 COM,Y IRQRNG #$6 TOP NORMAL UPRE UNUMS TY  INPUT1 ; BACKLINE TX TY #!39 HTAB VT  #$1 VT VTAB  TX TY  ; ERASE #" " TY COUTS TY HTAB >0 BACKLINE ^0 #$0 >1  HTAB #" " (POINTER),Y TY COUTS <0 (POINTER),Y TY COUTS TY  <1 ^2 >0  INPUT1 ^0 (POINTER),Y TY COUTS TY HTAB >4 BACKLINE ^4 HTAB INPUT1 ^3 VAR2 >0 INPUT1 ^0 (POINTER),Y TY COUT>1 #$8 >2 #$15 >3 #$18 >5 ERASE INPUT1 ^5 #%10000000 #$A0 <4 VAR2 INPUT1 (POINTER),Y TY COUTS TY  ; ALREADY HTAB +1 INPUT1 ^0 (POINTER),Y COUTS ^0 ^1 #" " VAR2 HTAB PRINT - "RETURN TRUNCATES, ESC SAVES, CTRL-X BEG." TX1 VTAB TZ HTAB TY1 INPUT0 VAR2 #" " (POINTER),Y INPUT1 (POINTER),Y #$3F TY COUTS TY HTAB >4 BACKLINE ^4 GETCHR #!27 >0 #!13 GTPRE >9 GTPRE DATA+2  #$10 POINTER+1 PLEV      >4 POINTER+1 ^4 DATA+1 POINTER  ^9 #!30 INPUT MAIN ; ; ; INPUT TY1 VT TX1 HTAB TZ NORMAL #$6 VTAB #$0 S MAIN ; ^1 GTNUM >9 GTNUM DATA+2  #$4 COL COL POINTER+1 NLEV      >4 POINTER+1 ^4 DATA+1 POINTER  ^9 #!30 INPUT #!39 HTAB #" " COUTS MAIN ; ^0 $)? :H Q1L% "U)$ ,$ ȩ L% ])])])L"])])L"])LO" -LO" 7'L &L &L"H$(h`Q) $(Q)Q)Q)` X\), $ 3Һ 3Š͠ԅ# L  $ 3 РٯΩ, Y $ 3 ̠έL xU)L$  3 Š p 3ˠ p 3ΠίƠ p 3įŠ p 3Ҡթ$ 3ź !%])^)^) ])^)$ ])  ]) $)? :H Q2L% "U)$ ,$ ȩ L% ])])])L ])])L ])L! 'L L!L $ 3غ-- 3ΠL!- 3L  $ 3Ϡ-- 3L!- 3ΠL(eU) T-  X-U)`)`),"$ ȩ LO"$  3Ƞ p 3 Ϡί p 3Ҡί p 3Ԡ p 3Ҡө$ 3ź !%])^)^) ])^)$$ 3Ԡŭ    $ 3%Ǡή Q $ 3ӺW) =% 3W)ɠLxL}p 0`-  L " X$  3 ԺͮӠàҠ`.``)_)x"Z)H0Y)Z)hb)c)L7[)[)$[)H h\)`$ H hLLa )S $ 3ҺX) X)X)Rx,\)  ɠ (ɠL`~  $ 3  L`,\)W) LG `x @X`1```xHH  f))  &hhEX@ $ 3ǠҺ %X)X0Y)Z)[)ɠ`~)0$ Y)0Y)Z)Z)`\)` $Z) L7$ ɠ8` ! `  $  E  `  $  E  ` a `)? $ɠ `ɰ ɺ 8 Lɣ Lɪ Lɬɠ ` ɻ Lɺ@L8ɠ ` !  @Lө `  ! LȩLL L}LL#LM(2 $ 3 ŠٯΩ Y N LQL} b$LL)2 $ 3 ŠٯΩ N Y LL} $L8L5.L}$ 3,\)  )` q% %``$ 3̠Š p 3ϭ̠Š p 3ŠΠϠ p 3Ҡϭ p 3Š p 3Š p 3Š p 3Šԭ Q $$ i $)? L LH'$%8% h` $ $ $L9` $ 3 ԧӠ !% 3 ϧˠ`  q%- " 9  X" '$  $ 3(ӬŠӬΠӠ  L} L$i m` ,L} % $  $ 3(ΠӬàӬ̭ؠǮ $ )? $  - />X )L ɠǑ L ` LLȱ $ $L LwLw% %8 '$ 3 i '$ 3 18L L} л i '$ 3L}LЍL g.i e e  m ,'$ L} Lie e  m` ,'$e ` ,L} L} Ь [ 3L} [ 30L 0L L [ 3L L L 9 q 3 I^& q L mi` ,L} L} Ь q 3L} q 3 Lw q 3 e   L 3`   [ 3 q 3L} e e i $iL'$iL $ 3(άàԬàȬνӥ LwL   [ 3 Ii& [ L m 3(ҠҠҠؠ 9  L@  $i  nL] 3` $ ie e   L 3`  $i e   L `H)h`)`  + ŭԺǠЍLb8`) ) ѹ)n + APPLE-CAT:RING..) _ + APPLE-CAT:AWAIT CARRIER() ,  + APPLE-CAT:NO CARRIER 3` + APPLE-CAT:CONNECTED L !!! ! ! ! ! ! -JJJi ,0-i-$_)%`) &hhEX@)`hhׅϥ֠iqօΐϥHH֪ֆ%2 LY`L d) Q T- q% - X p$(!"# X $  3(͠ŠҠӀP)ɛ%Ɂ!Ɉ #ɍ #ɇ-L;0ɊL;08 8')L0-P)P)O)L0qU)0la)a)L0i O) 0H h0-0/ɛ%Ɂ!Ɉ #ɍ #ɇ-L0ɊL0 8' #- -JJJi ,0-8--a)L/a)a)a)LL/͈-LL/͉-LL/͊-LL/͋-LL/͌-ߍ^0) L/L/V)V)L/ p 3ԭκҠԮ p 3'ӠþϠԬΠϠϠϠͮ x p,   (L/LV))H & pX"# 3ź  LO" X $ 3 Ŭٿ ( p 3ٿƬƩٯΩ Y N L8.L-",LxHH) f) _)$`)% U)0z0,ɛ U)LL/+ ,c!])iL,])8L,H $hH 3hH 3h =%$`]) $Lh-h-H-H---I`L$ ȩ $  3 ˠ p'- x"# $ & } %( p - 3 p - 3ӠϠҠ - 3٠Ԩ - 3 Ԡؠ,])]) $)?  , L E-])])̩])Lc, E-])м])Lc,$ 3])$ 3]) 3]) =% 3,   оL) p - 3ŬҠ p - 3Ҡé p - 3Ҡ p - 3Ҡũ p - 3Ҡ - 3ˠƩ p - 3ˠƩ - 3 p - 3ӬŠӬΠӠ - 3ؠĠԠԠƩ p - 3ؠĮԮԠ p - 3ؠҮԠ p - 3ؠ٠Ӡ p - 3ҠΠԠ p - 3Р٠ p - 3ҠƠӠ]) ^) ɠL}O)  ) x])i]) L(^)иLx(U)" X L  e)!e)d)d)0`d)id) 0 0-%H$H5H Qh5h$h <`<```"- X$  3% &`N)600700`.(0(0 `K(OEN) 0ON` -$ 3ǠҠҮd])^), X $]) ^) ɠL}N)  ) ])i])kL(^)йe X])^) $ȘePQPQ`LS&L_&QSPReQPQɠRPSQL_&7'`H'P'Q'hHɈhPP6QQ_.PhPP%QQɠ p 3 Ҡ ( p7'P'Q'` $ 3ҺN) 3L(N) 3Π & %ң &S600T700 %ң}L%`L} S&P'Q'7'L%  $ 3ҠƠٯΩ YLO" 2(7'L% `QSPRȩ $ $ 3ԺQ P pPɍ PL& $ 3$ӬΠӠ  3 `PRQSQPɍӬ̤ıӶֲ &M)L$` =% 3 =% 3L=%8did_%8 ih%m%ɰ L {%`xX`%`HH f))hhE@hhׅϥ֠iqօΐϥHH֪ֆ $$ y  L $ E L aLL$ةM) & %Ġ &M)0`M)$ & %'ŠӬ̤ıӶֲ &M)0`LM)`M) & %ĠӬ &M)0`M)L$ & %$ŠժժժժԪժժժժժժުժժժժժՈĈĈĈݻݻݺĈƈĈĈܻݻժժժժժժժժϪժժժժժժՈĈĈĈժݻݪծĈƈĈĈݻݻݻݻݻժժժժժժժժժժժժժժժ֪ՊՈĈĈĈĈĈĈĈƈĈѣLjݻ|?~Gc?pݻfժժժժժժժժժժժժժժΪժՊՈĈĈĈݻĈĺĈƈĈĈܻݻnתժժժѢĈĈĈĈĈĈĈĈďĈԻݻ昼תժvժĈĈĈĈĈƈĈܻ|?|GAc?xݻժժժժժժժժժժժժժժժժժժժբĈĈݻݻݻݻĈ`~ĈĈĈݻݻݻݻՈժߪժժժժժժժժժժժժժբĈĈݻqGňfĈĈĈݻݻݻݻ݈<ժժժժժժժժժժժղժժժժժբĈĈĈĈժժժ݈ĈĈĈĈ݋ǟ݈0ժժӪժժժժժڪժժժժժժբ܈ĈĈĨݻݻ݋ĈĈĈĈݻݻݻݻ݈ժժժժժժժժժժժժժժժ̪ժբĈĈĈĈĈĈĈĈĈ䉎ݻ||G<~cgňfժժժժժժժժժժժժժժժՊffբĈĈĈĈĈĈ݈ĈĈĈĈݛ݈f ժժժժժժժժժժժժժժժժժժռժċLjĈĈĈĈĈĈĈĈĈxqň涆תժժĈLjĈĈĈĈĈĈĈx?|Gcsň!!!!!!!""" " " " " """""""""     `  L `H)h`)`  + ŭԺǠЍLb8`) ) ѹ)n + APPLE-CAT:RING..) _ + APPLE-CAT:AWAIT CARRIER() ,  + APPLE-CAT:NO CARRIER 3` + APPLE-CAT:CONNECTED Ll HH`` a0 L/ 0 LP L` n n n `      `       `       `)@)@ ` ` ` `` ! @XlzzlX@((^&&===&^^& ȹȹȹee)Hee)h}) ũt`0`8`hh ];!]   L    { L `HX)h`x`` )b   (  0C)    LZ 8  LZ 0LZ P     8 `R ~  `L ) ! `PɍpH hH L hH  hɫH h) ! hɪ ɣ 80 H h @L4   h L4 + DIALING COMPLETED L `h + DIALING ABORTED`оŠ̠ ŠҠ ŠҠ źоԾƠĠԠŠ ԠӠΠŠ ҠϠ PɍL H hL H h L X + TO ABORT DIALING:hhE@ `   X + ľ̠ Ҿŭ̠Ԡ þԠ ſ D R  L L ` L !L 3 j8ɍPL P` X + ӠϠ ԾȠŠ Px` `hh X L7 X HH``xd"``)) Hh`Ĭ) `HH)ժժժժժժժժժժժժժժժՈĈĈĈݻݻݺĈƈĈĈܻݻժժժժժժժժժժժժժժժժժĈĈĈݻݻݻ݈f>ƈĈĈݻݻݻݻתݻժժժժժժժժժժժժժժժժՊ~ՈĈĈĈܻĈĺĈƈĈĈܻ~cG?ݻժժժժժ̪իժժժժժժժժժժժՈĈĈĈݻĈĺĈƈĈĈܻݻf昆憞憆תժժĈĈĈĈĈƈƈܻxO|yqݻ<<ժժժժժժժժժժժժժժժʫתժժՈĈĈĈĈĈĈĈƈĈοܻ|GcݻժժժժժժժժժժժժժժժժժժժբĈĈݻݻݻݻňfĈĈĈݻݻݻݻ݈Ĉ߈ĈĈĈĈĈĈĈӣLjĈݻ?~gq?xGň~ĈĈĈѪՊĈĈĨժňĈĈժժժߪժժժժժժժժժժժLjĈĈĨݻݻ݋ĈĈĈĈ݋݈ӪժժժժժժժժժժժժժժժĈĈԻݻݻݻĈĈĈĈݻתݻݻתջ݈ժժժժժժժժժժժժժժժժՊfբĈĈĈĈĈĈ݈ĈĈĈݛ~gGc?p?݈<ժժժժժպժժժժժժժժժժժժբĈĈĈĈĈĈ݈ĈĈĈĈ݋݈f昆涆תժժުύňĈĈĈĈĈĈňĈx|q?xňժժժժժժժժժժժժժժժͪժժĈĈĈĈĈĈĈĈĈΣĈݻňժժժժժժժժժժժժժժժժժժժՈĈĻݻݻݻݻf<ƈĈĈݻݻݻݻݻע ĈĈĈĈĈĈĈĈĈԻ?~OqyGݻƈĈĈܻݻݻݻݻĈĈժժժէժժުժߪժժժժժժժĈĈĈݻݻݺĈƈĈĈܻݻժުժժժժժժժժժժժժժժĈĈĈݻݻݻňƈĈĈݻݻתջתջݻժժժժժժժժժժժժժժժԪՊf6ՈĈĈĈܻĈĺĈƈĈňݻ~OG<~cg?ݻfժժժժժժժժժժժժժժժժժՈĈĈĈݻĈĺĈƈĈĈܻǟݻv漆澘תժժתîĈĈĈĈĈĈĈĈϓňԻxqݻתժժ􈑢ĈċĈĈĈĈƈĈܻݻ<ժժժժժժժժժժժժժժժժժժժբĈĈݻݻݻݻĈ 60ĈĈĈݻݻݻݻ݈xԪժԪժժժժժժժժժժժժժLjĈݻ~qyGňĈĈĈݻݻݻݻ݈ժժժʫժժתժժժժӪժժժժժňĈĈĈݻݻ݈ĈĈĈĈ݋݈ժժժժժժժժߞժժժժժժժĈĈĺݻݻݻĈ~ĈĈĈݻݻתݻݻ݈ժժժժժժժժժժժժժժժӪՊf~fբĈĈĈĈժĈĈՈĈĈ듢ݛ~G<~cg?݈fժժժժժժժժժժժժժժӪժժբĈĈĈĈĈĈ݈ĈĈĈĈݛ݈~תժժժLjĈĈĈĈĈĈĈĈĈňתϪժĈĈĈĈĈĈĈĈĈĈݻ|GcňժժժժժժժժժժժժժժժժժժժՈĈĺݻݻݻݻ`ƈĈĈۻݻݻݻݻժժժժժժժժժժժժժժՈĈԻ?~Cq|Gݻ<ƈĈĈݻݻݻݻݻע