L :::::::::::::::+: CAT-ANSWER :@: VER.:2.8 :U:::::::::::::::j: WRITTEN BY: :: DIE KATZE ::::::::::::::::: PROG. FROM :: THE NDC... : :::::::::::::::Zgi hj: L ogZLfթghZ [ \ ] ^ Le 21503o 7792y 51,0 61020 (253)1(254)2(255)370 2::63000:2:P$"THE APPLE-CAT ANSWERING SERVICE":63010:P$"WRITTEN BY:DIE KATZE":63010+ 35:P$"VERSION 2.8":63010:P$""7 461000Y 5D$"LOCKCAT-ANSWER.OBJ1:V2.8"| <D$"BLOADCAT-ANSWER.OBJ2:V2.8" F38140,2:CO,2128:HK,0 PST10:ST1:20 ZCA0:MO0:TP0:AN0 dTI20:51,0:CO,2128 n132 xD$"OPEN"F$",L50":D$"READ"F$",R0"% CA:MO:TP:AN. 140D D$"WRITE"F$",R0"X CA:MO:TP:AN D$"CLOSE":TP$"ON ":TPTP$"OFF" P$" ":63020:5:1:"CALLS:"CA;15);"MODEM:"MO;30);"TAPE:";TP$:10:60000 (253)1(254)2(255)3Ĺ253,0:254,0:255,0:AN0 16368,0:* 8:1:AN0B "[1] CHANGE CLOCK"[ "[2] READ MESSAGES"{ "[3] CONFIGURE CAT-ANSWER" "[4] ENTER/LOAD WELCOME MESSAGE" "[5] THE APPLE-CAT ANSWERING SERVICE" "[6] RESET APPLE-CAT ANSWERING SERVICE" 22:"ENTER [?]";:8:63060* K1K9170J K280,310,460,580,1040,940S 170 :11:"ENTER THE CURRENT TIME [6,43,20,PM] :":":";H,M,S,T$ H1H12280 M0M60S0S60280 (T$)2280 T$"PM"HH12 T$"AM"H12H0NH:290:HR,N#NM:290:MI,N6 NS:290:SE,NA!:170t"255,N:N((255)10)16:NN((((255)),1))z#6::CO,30128;340@D$"OPEN"F$",L50":D$"READ"F$",R0"JCA:MO:TP:ANT"CALLERS:"CA:"MODEMS :"MO:^600004hCA0Ģ12:"YOU HAVENT HAD ANY CALLERS!!!":420@rA1CAU|D$"READ"F$",R"Aj63080:T$P$:P$"CALL #"A" :";:15:T$;:28:P$D$"CLOSE"P$"[ HIT ANY KEY TO CONTINUE ]":63010:63060CO,2128:X(0):170K:12:"TAPE RECORDER O)N, F)OFF [O/F] :";:63060:K$"O"K$"F"460QgA0:B0:D0:530xK$"O"TP1K$"F"TP0D$"OPEN"F$",L50":D$"READ"F$",R0"A:B:C:D:CTPD$"WRITE"F$",R0"60000&A:B:C:D0D$"CLOSE":A0:B0:C0:D0:X(0)%:90tD:12:"E)NTER, L)OAD WELCOME MESSAGE [E/L]:";:63060:K$"E"K$"L"580zNXK$"E"750b730lD$"OPEN ANSWER.WELCOME"vD$"READ ANSWER.WELCOME"LA1L:L$(A):D$"CLOSE"60000B:12:P$"[SAYING WELCOME MESSAGE..]":63010:63030::12sP$"[HIT ANY KEY TO CONTINUE]":63010:63060:12:"IS THIS SATISFACTORY [Y/N] :";:63060:K$"Y"K$"N"700K$"Y"170750:12:"NO WELCOME FILE ON DISK....":A12000::60000160q:"PLEASE ENTER A MAXIMUM OF 10 LINES..":"ENTER /H)ELP,/EX)IT,/E)EDIT LINE ABOVE"yX0XX1 X1X1"["X"]:";:"";L$(X):(L$(X))0780 (L$(X),1,1)"/"(L$(X))3830*SA$L$(X):381314X10890>L$(X)"/E"XX1:780HL$(X)"/H"ĺ":> /H THIS LISTING":":> /L LIST ALL ENTERED LINES":":> /EX EXIT AND SAVE FILE":":> /E EDIT THE LINE ABOVE":":> /A ABORT ENTER WELOCOME MESSAGE":780RL$(X)"/L"ė:A1X1:"<"A">:"L$(A)::780\L$(X)"/A"ė:X(0):170,fL$(X)"/EX"7706pXX1Uz:12:"SAVING MESSAGE..."D$"OPEN ANSWER.WELCOME":D$"WRITE ANSWER.WELCOME"XA1X:L$(A):D$"CLOSE":LX:680:12:"VERIFY [?]";:9:63060:K$"Y"K$"N"940 K$"N"1704D$"OPEN"F$",L50":D$"READ"F$",R0"LA,B,C,D:D$"CLOSE"^D$"DELETE"F$D$"OPEN"F$",L50":D$"WRITE"F$",R0""0":"0":C:"0"D$"CLOSE":100253,3:254,2:255,1::D$"BRUNCAT-ANSWER.OBJ1:V2.8"1045_:`(222)255Ĺ255,(37):24::37,(255):63050:ij:12:P$"[DOS ERR #"((222))"]":63010kP$"[ HIT ANY KEY TO CONTINUE ]"::63010:63060lX(0):160H:12:"YOU ARE MISSING ONE OF THESE FILES.."$M" :> CAT-ANSWER.OBJ1:V2.8":" :> CAT-ANSWER.OBJ2:V2.8"/R64098r\T$"12:00:00":TI$T$" AM":D$(4):F$"ANSWER.TEXT"(27):SL2]CO1625516SL:HK1625416SL:XB1624316SL^ST21503_HRST22:MIHR1:SEMI1`:1:39)" ":4:39)" ":39)" "&V122:V:1:" ";:40:" "::23:39)" ";:Z34,6:33,38:32,1:35,22:x"36,((40(P$))2):P$:,5:1:37)" ":5:63010:6A1L:630507EX08(16384)155Ĺ16368,0:EX10::SA$L$(A):38131::@ST13HX(0) ISJ255,(37):254,(36):63040:24:14:TI$;:37,(255):36,(254):sT63050:(16384)12863060YK$:K(K$)]^SA$"":63040_N(HR):63076:N12NN12`N0N12a63078:SA$N$:N(MI):63076:63078:SA$SA$"."N$-bSA$SA$".."(TI$,10,1)"."(TI$,11,1)3chd255,N:X((255)16):NX10:NN((255)(X16))nefN0N$"OH":g:S1N:N$::hP$"":A$""iP$P$A$:A$:(A$)1363081mONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELF,THIRTEEN,FOURTEEN,FIVTEEN,SIXTEEN,SEVENTEEN,EIGHTTEEN,NINETEEN,TWENTY,TWENTYONE,TWENTYTWO,TWENTYTHREE,TWENTYFOUR,TWENTYFIVE,TWENTYSIX,TWENTYSEVEN,TWENTYEIGHT TWENTYNINE,THIRTY,THIRTYONE,THIRTYTWO,THIRTYTHREE,THIRTYFOUR,THIRTYFIVE,THIRTYSIX,THIRTYSEVEN,THIRTYEIGHT,THIRTYNINE,FOURTY,FOURTYONE,FOURTYTWO,FOURTYTHREE,FOURTYFOUR,FOURTYFIVE,FOURTYSIX,FOURTYSEVEN,FOURTYEIGHT,FOURTYNINE  FIVETTY,FIVETTY ONE,FIVETTY TWO,FIVETTY THREE,FIVETTY FOUR,FIVETTY FIVE,FIVETTY SIX,FIVETTY SEVEN,FIVETTY EIGHT,FIVETTY NINE,SIXTY+NE,SIXTYEIGHT,FIVETTY NINE,SIXTYPSF SVL