' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@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@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ 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˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵ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 ~(` i d ֠z# u` 782" TO ENABLE INTERRUPTS+ R**782 CLI> \** RTS x f 169,1,141,11,3,173,208,192,165,69,64,0,120,96,88,96 pA768783:X:A,X:A z780: TURN OFF INTERRUPTS 1022,0:1023,3: POINT TO INTERRUPT HANDLER A1625616SLOT: PIA STA 779- ** LDA PIA ;CLEAR PIAX ** LDA $45 ;RESTORE ACCUMULATOR{ ** RTI ;THEN RETURN **779 BYTE 00 ;BASIC FLAG ***;USE "CALL 780" TO DISABLE INTERRUPTS 4**780 SEI >** RTS  H**;USE "CALL\9 BASIC INTERRUPT ROUTINE BY WILLIAM P. GOODWILL::"WHAT SLOT IS THE TIMEMASTER IN? ";SLOT:SLOT1SLOT72000**LOAD 3 SMALL ASSY LANGUAGE ROUTINES****;COME HERE UPON INTERRUPT**768 LDA #01 ;SET FLAG FOR BASIC **    CARD?","APPLIED ENGINEERING","MOUNTAIN HARDWARE","THUNDERWARE","APPLE COMPUTER",A,5\o"."OUSTON","AUSTIN","DALLAS","SAN ANTONIO",B,5  "WHO DESIGNED THE APPLE II?","STEVE JOBS","ARNOLD PALMER","STEVE WOZNIAK","PETER WEIGLIN",C,6  "WHICH CHIP IS IN THE APPLE II?","68000","8088","Z-80","6502",D,10S "WHO MAKES THE BEST APPLE CLOCK 4" SECONDS!":S T.8TLĺ"THAT'S RIGHT!":"IT TOOK YOU "(T256)4" SECONDS.":b TTLTTL "OKAY, THAT'S THE RIGHT ANSWER.":" BUT YOU MIGHT MOVE A LITTLE FASTER.":"IT TOOK YOU "(T256)4" SECONDS.":+  "WHAT IS THE CAPITAL OF TEXAS?","HJUDGE ANSWER- A$W$3200: CORRECT ANSWERd T.4TLĺ"SORRY...DON'T BE IN SUCH A RUSH!":3040 "NO, THAT'S WRONG!":"THE ANSWER SHOULD BE '"W$"'.": "THE ANSWER SHOULD BE '"W$"'.": T.4TLĺ"GREAT!":"AND YOU GOT IT IN ONLY "(T256)L1024: TIME LIMIT $> WAIT UP TO 5 SECONDS FOR ANSWERX T0:771:RESET TIMERp (16384)1282050 P(16336)(16336)(16336) 774: SAVE CURRENT COUNT T(782)256(783):TTL2010 A$""::TIMED OUT A$:A$: UP!!!"B$:I13000::600 d3000:JUDGE ANSWER@ nI15000:H x60c PRESENT NEXT QUESTIONk : A$:A$"."ĺ"THAT'S ALL, FOLKS!!!":777:I15000::: NQ". "A$:I14:A$:" "(I192)". "A$: W$:CORRECT ANSWER TL:TLT] TIME LIMIT QUIZ:D$(4):D$"BLOAD BIN.MILLISEC"V768:SET UP INTERRUPTS~((784)0ĺ"TIMEMASTER NOT FOUND":2B$(7):NQ0<NQNQ1F1000:PRESENT NEXT QUESTIONP2000:WAIT UP TO 5 SECONDS FOR ANSWER ZA$""ĺB$"...TIMES   3)" SECONDS" EE11600# EE+ 20ER":A$ x771:RESET COUNTE "PRESS SPACEBAR TO STOP TIMER":A$g 774:SAVE COUNT IN 780...783 MS0:A780783:MSMSB(A): REMEMBER TIMEMASTER REALLY INTERRUPTS AT 1024 HZ CMS1024:S(C):MS(CS)1000 S"."((MS)"00",, MILLISECOND STOPWATCH$:8(768)76Č777K((768)76ī70f2MILLISECOND STOPWATCH<D$(4):D$"BLOAD BIN.MILLISEC"F768:SET UP INTERRUPTSP(784)0ĺ"TIMEMASTER NOT FOUND":ZB256d n"PRESS SPACEBAR TO START TIM  T FOUND": PB256 Z< d774:SAVE COUNT IN 780...783_ nMS0:A780783:MSMSB(A): xREMEMBER TIMEMASTER REALLY INTERRUPTS AT 1024 HZ CMS1024:S(C):MS(CS)1000 1:1 S"."((MS)"00",3)" SECONDS" 100 MILLISECONDS:CALL 777 WILL TURN OFF INTERRUPTS(768)76Č777:IF MEM 768 HAS A 76 IN IT THEN BIN.MILLISEC IS ALREADY IN MEMORY((768)76602D$(4):D$"BLOAD BIN.MILLISEC"<768:SET UP INTERRUPTS F(784)0ĺ"TIMEMASTER NOLLlLzLxnj ɲ  x` H/x X``EHHhh@x`dCLOCK UTILITY:n(4)"BLOAD BIN.CLK.UTILITY":785`x"SLOT = "(235):"MODE = "(236)237,1:768:ONCE PER SECOND777:S(239)(238)256(237)65536(236)16777216S;S45140771LILLLLx`njϢ ɲ   x٠) `x)/xxX`x``HhE@  󺠠čΠ፠占占占占占򠠠ߍ占򠠠Ҡ۠ȮϮ占򠇇򠠠Рҍᬠ򠱲䍠򠌍򠠠䮮򠌍㍠⍠፠ʍ򠠠   Ю򮠠Р򮠠묠纠묠Ь묠堤č笠̠󮍍Р뮠̠򯯠宠堨̠Ġ魍ݭʮ򍱮󠭭뮠ĠʮƬŠʮƬ̤ij렭쮍宬򠲠ᠯ宠ׯ򮮮Ӡ򠯯۠ȮϮ堨鮮  pplewriter//e with the TIMEMASTER disk in Drive #1"]26:"and press to Continue."n23:38:" "23:36,39:Y$Y$" "680s AWIIe; patch ABORTED":600::::::1D580=N:::WX FUNNY TYPING SOUND rbN1(A$):(A$,N,1);l640: CLICKING NOISEvN:ZZ(49200)(49200)(49200):M130:M:N0200:N: USER NOTES 320:12:"Replace A"LOCK OBJ.APWRT][F"#::,160&12:A$"Your AppleWriter//e, 128k version will now read the Timemaster][ H.O. clock-card":600011:A$"(with switch 2 open) & store the date in the WPL d$ string.":600:660(:::A$"Will not verify a14,160:20915,164:20916,228:20917,160:20918,211m20919,244:20920,242:20921,233:20922,238:20923,23121004,15:21005,45(20365)176Ĺ20365,182: RECONNECT HELP SCREEN"UNLOCK OBJ.APWRT][F""BSAVE OBJ.APWRT][F,A$2300,L$30D3"48:11566,9620894,212:20895,233:20896,237:20897,229:20898,237:20899,225:20900,243:20901,244:20902,229:20902,229:20903,242:20904,175220905,175:20906,160:20907,196:20908,225:20909,244:20910,229:20911,160:20912,244:20913,239:209,196:11543,162:p11544,0:11545,189:11546,3:11547,2:11548,157:11549,64:11550,24:11551,232:11552,201:11553,160:11554,208:11555,245 11556,169:11557,0:11558,157:11559,64:11560,24:11561,232:11562,224:11563,64:11564,208:11565,2T CHECK VALIDITY 3^:::"Here goes........."9hZr"BLOAD OBJ.APWRT][F,A$2300q|(15063)100570(17771)153570(17811)117570 DO IT! 11535,169:11536,186:11537,32:11538,11:11539,196:11540,32:11541,8:11542:: 650 TEXT a14:16:A$"Please put your BACKUP copy of AWIIe in Drive #1.":600o650:650x"650,20:12:A$"Then press to continue. Anything else to abort.":600623:38:" "@23:36,39:Z$JZ$" "590 ";:(14);:22);" Copyright Tuckerman Moss ";22);:(15);:" ";t " ";:(14);70);:(15);:" "; " ";:(14);:29);"November 1984";28);:(15);:" "; " ";:(14);70);:(15);:" ";(15);:" ";78);" ";8000 160:250$ TOP TITLE ? (15);:" ";78);" ";l " ";:(14);70);:(15);:" "; " ";:(14);:16);"Timemaster ][ H.O. for Applewriter //e";16);:(15);:" "; " ";:(14);70);:(15);:" ";G " K VERSION AND YOU, 9WILL LOSE THE ABILITYG :TO UPDATE 1.1 VERSIONd ;FILES. INSTEAD THE DATE <WILL BE PLACED IN THE =$D STRING VARIABLE IN >THE FORM MM/DD/YY WHEN ?YOU DO A [Q]J. d SETUP n:: xD$(4):D$;"PR#3" ORINDA, CA *0 * *O *********************** j 2THIS PROGRAM MODIFIES 3THE DOS 3.3 VERSION OF 4APPLEWRITER//E SO THAT 5IT CAN READ THE TIME- 6MASTER ][ H.O. CARD. IT 7WILL ONLY WORK WITH THE 8128WRITER IIe *+ * 128K VERSION *H * ....... *e * * * VERSION 1.0 * * ....... * * * * COPYRIGHT 1984 BY * * TUCKERMAN MOSS * *  & ***********************C * *` * TIMEMASTER CLOCK *}* ** FOR ** ** DOS 3.3 ** * * APPLE   785) x"SLOT = "(235):"MODE = "(236)M 237,X:768: ONCE PER SECOND 777:S(239)(238)256(237)65536(236)16777216 S SZ140 771 0"ENTER ONE OF THE FOLLOWING "D"0 = 1024 HZ "U"1 = 1 HZ "g#"2 = 1 MIN "w("3 = 1 HR"2"0, 1, 2, OR 3 ";X7<"ENTER THE NUMBER YOU WANT TO STOP AT";ZdTEST CLOCK UTILITIES n(4)"BLOAD BIN.CLK.UTILITY":  M"WHAT SLOT IS THE TIMEMASTER IN? ";SLOT:SLOT0SLOT7ĺ(7):30f2768,88:769,96:768vdSLOT:SLOTn":.";A$x0:0}10A$(16384)12810016368,0768,120:7681002: REHOOK DOS ``4 ϶$ Ġmٵ޴ʈL7D  k   `,H  h_Ƚcg  ` !*-7ʎ/8ʎ8:6))?4)?4;)?;B)?B`      ` X.4.EQ*-1-P.BASE * - P.LEN.EQ*-P.BEGIN .EP * - .DA#0ENDOFPATCHES END.EQ*1-P.BASE& TAX(0 LOOPLDA$202,YGETCHARFROMSTRING3: START.EQ*-2-P.BASE$202FORDATEORDATE+TIMED *$20BFORTIMEONLYN STA$B4DE,X$B4E7-LENGTHX X.3.EQ*-1-P.BASEb FNPNTR.EQ*-2-P.BASEl DEXv DEY BPLLOOP EXITJMP$B037ON! SLOT2.EQ*-1-P.BASE$CNBYTE JSR$C408READTIMETO$200! SLOT3.EQ*-1-P.BASE$CNBYTE LDY#8LENGTHOFSTRING-1= LENMI1.EQ*-1-P.BASE8FORDATE,5FORTIME,14FORBOTH TYA CLC! ADC$B5D9POINTERTOCATALOG X.2.EQ*-^ P.BASE.EQ$B6CF-*h .PH$B6CF r P.BEGIN| * - DATE.A.FILE/ LDA$C4FFTIMEMASTERIIWITHSW3,SW4OFF?! SLOT1.EQ*-1-P.BASE$CNBYTE CMP#$03 BNEEXIT...NO,DONOTDATE$ LDA#":"SELECTTIMEMASTERMODE JSR$C40BMODESELECTIA#29-9SUBTRACTLENGTHOFSTRING * - .DA#3,$AC34-DOS.AC JSRDATE.A.FILE X.1.EQ*-1" * -, .DA#1,$B203-DOS.B2-6 LEN30.DA#30-9SUBTRACTLENGTHOFSTRING)@ *9FORDATE,6FORTIME,15FORBOTHJ * -T .DA#P.LEN,$B6CF-DOS.B63 *- *EFFECTS:1.SHORTENSEFFECTIVEFILENAME) *2.DATE,TIME,ORBOTHMAYBEADDED- *3.APPLIESDATE/TIMETOALLFILESWHICH' *HAVEBEENWRITTENTO,ATTHETIME *THEFILEISCLOSED. * - PATCHES .DA#1,$A783-DOS.A7- LEN29.D - PUTBYTE STA$F(FILLEDIN) PATCH.EQ*-2 INCPATCH ( BNE.12 INCPATCH+1 < .1RTSF * -P *PATCHESTODOS3.3Z *TOPROVIDEFILEDATINGd *n *REQUIRE:TIMEMASTERIIx *SW3ANDSW4OFF *48KRAM *UNMODIFIEDDOS3.BYTEOFTHEPATCHINGCODEt JSRPUTBYTE~ .3DEXCOUNTTHEBYTE! BNE.2...MOREINTHISPATCH BEQ.1...THISPATCHENDED .4RTS * - GETBYTE INCPNTR BNE.1 INCPNTR+1 .1LDA$F(FILLEDIN) PNTR.EQ*-2 RTS *HES-1  STAPNTR LDA/PATCHES-1 STAPNTR+1+$ .1JSRGETBYTEGETLENGTHOFTHISPATCH. BEQ.4...NOMOREPATCHES8 TAXLENGTHINX-REGB JSRGETBYTE$L STAPATCHADDRESSTOBEPATCHEDV JSRGETBYTE` STAPATCH+11j .2JSRGETBYTENEXTAX.1 *AND#$3F 4ORA2 >STAX.1HTXA RLDAX.2 \AND#$3F fORA2 pSTAX.2zTXA LDAX.3 AND#$3F ORA2 STAX.3TXA LDAX.4 AND#$3F ORA2 STAX.4 .1RTS* -INSTALL.PATCHESLDA#PATCLDXL vDEXL-1STXLENMI1 LDA#30SEC SBCLSTALEN30TAXDEXSTXLEN29 LDA#231SEC SBCLSTAFNPNTR"*---ADJUSTFORDOSPOSITION-(LDADOS.IMAGE+$236$B6,$76,OR$36 AND#$C0 STA2 LD.2RTS* -T.TBL.HS00.01.01.02S.TBL.HS00.06.0B.01(B.TBL.DA/DOS.IMAGE,/DOS.IMAGE+$100(.DA/DOS.IMAGE+$200,/DOS.IMAGE+$300* -&ADJUST.PATCHES0LDASLOTCX:STASLOT1DSTASLOT2NSTASLOT3 XLDASbSTASTART lBUFADR,Y,STA(0),Y 6LDX#3 @.1STX2JLDAT.TBL,XTLDY#IOB.TRACK^STA(0),YhINYrLDAS.TBL,X|STA(0),YLDAB.TBL,XLDY#IOB.BUFADR+1STA(0),YJSRGETIOB JSRRWTS BCS.2 LDX2DEX BPL.1  -READ.DOS.IMAGELDA#$01READOPCODE.HS2C...SKIP2WRITE.DOS.IMAGELDA#$02WRITEOPCODEPHAJSRGETIOB STY0 STA1LDY#IOB.OPCODEPLASTA(0),YLDY#IOB.VOLUME LDA#0STA(0),Y"LDY#IOB.OS.B2.EQ$B200-DOS.IMAGE-$300* - PATCH.DOS LDA#0STAERRORJSRREAD.DOS.IMAGE (BCS.12JSRADJUST.PATCHES<JSRINSTALL.PATCHESFJSRWRITE.DOS.IMAGE PBCC.2Z.1LDY#IOB.ERRORdLDA(0),YnSTAERROR x.2RTS*~IOB.VOLUME.EQ3IOB.TRACK.EQ4IOB.SECTOR.EQ5IOB.BUFADR.EQ8IOB.OPCODE.EQ12IOB.ERROR.EQ13* -DOS.IMAGE.EQ$1400DOS.B6.EQ$B600-DOS.IMAGE#DOS.A7.EQ$A700-DOS.IMAGE-$100#DOS.AC.EQ$AC00-DOS.IMAGE-$200#Dk .LIF*SAVES.DOSDATER7.TI76,TIMEMASTERIIDOSDATER .APRIL24,1984.* -.OR$1200.TFB.DOSDATER$* -.SLOTCX.EQ$3008L.EQ$301BS.EQ$302LERROR.EQ$303V* -`RWTS.EQ$3D9jGETIOB.EQ$3E3t* -     #0":A$:SES p?SLOT0:I17:ADDR124096I256: $CS00w(ADDR)8(ADDR1)120(ADDR254)178SLOTI:I7:SLOT0ıAP(ADDR255)PA124096128SLOT16: $C080+SLOT*16$CAPA1:PBPA2. D$(4):D$"IN#4":A$:D$"IN(Q$):Q13ı4Q27Ģ22:"INSTALLATION ABORTED":B800:660c HANDLE LEFT AND RIGHT EDGESu*Q$"L"H1:4Q$"R"H0:>Q8Q21ĺ(7):HH870REE(E1)(Q8)(ECL)(Q21):ESSE\fSS(S1)(Q8)(SCL)(Q21):EC$,S,L);::(C$,E1,CLE) 18:1:"--------------------------------":" "("FILENAME......................",30L);(C$,S,L):"--------------------------------" 8:1:H0ĺ" L "::" R "::16:E7 H1Ğ:" L "::" R ":16:S7 Q$::Q":" L SELECT LEFT EDGE":" R SELECT RIGHT EDGE":"<-- MOVE SELECTED EDGE LEFT" "--> MOVE SELECTED EDGE RIGHT":"ESC ABORT THE INSTALLATION":"RETURN INSTALL SELECTED FORMAT" H1:S1:ECL LES1 15:8:(C$,1,S1);::( XCONFIGURATOR8 bC$"W MO/DD/YY HH:MI:SS":CL(C$) l:"YOU MAY SELECT ANY PART OF THE DATE-TIME":2:"STRING FOR STAMPING YOUR FILENAMES WITH":"WITH THE APPLIED ENGINEERING FILE-DATER":Z v:"KEY FUNCTION":"--- ------------------------A27ĺ"ABORTED":- 4608:E(771):E300H "DOS DATER INSTALLED"f "ANOTHER DISK (Y/N)? "; A$:A$"Y"ĺ::150 A$"N"200 :: "REBOOT DISK TO USE DOS DATER" ,E16ĺ"WRITE PROTECTED":320 6"I/O ERROR" @150:"DOS DATER REQUIRES ";::" TIMEMASTER ";::" MODE":[ dD$(4):D$"BLOAD B.DOS DATER"s nCNSLOT192:768,CN x600:769,L:770,S: "INSERT DISK TO BE MODIFIED.":"PRESS WHEN READY, TO ABORT" A$:A(A$):A27A32160  LAST MOD 7/29/84 F COPYRIGHT (C) 1983 APPLIED ENGINEERINGP4608X:(1000:SLOT0ĺ"NO TIMEMASTER II H.O. FOUND":2"YOUR ";::" TIMEMASTER II H.O. ";::" IS IN SLOT "SLOT:FAP1ĺ"APPLECLOCK MODE (SW 2 ON)"8 ZAP3ĺ    Ӡxnj:K 8Kɲ 8K 8Kxhh```ɍhh` |P_@`?`?`?`?`?@P_| |@@ @@|  $ `ӠJS4 JS8$JS<(J ,J$0J(4J,8J0(J",J&0J*4J.8J2HJ*#LJ*'PJ*+TJ*/XJ*3\J*7`J*;dJ*?hJ#J+" J+&J+*J+.J+2J+6 J+:$J+>(J",J&0J*4J.8J2HJ+#LJ+'PJ++TJ+/XJ*4J.8J2HJ(#LJ('PJ(+TJ(/XJ(3\J(7`J(;dJ(?hJ#J)" J)&J)*J).J)2J)6 J):$J)>(J",J&0J*4J.8J2HJ)#LJ)'PJ)+TJ)/XJ)3\J)7`J);dJ)?hJ#J*" J*&J***)TJ*-XJ*1\J*5`J*9dJ*=hJ!J+ J+$J+(J+,J+0J+4 J+8$J+<(J ,J$0J(4J,8J0(J",J&0J J)$J)(J),J)0J)4 J)8$J)<(J ,J$0J(4J,8J0HJ#LJ'PJ+TJ/XJ3\J7`J;dJ?hJ#`J( J($J((J(,J(0J(4 J(8$J(<(J ,J$0J(4J,8J0(J",J&0J*4J.8J2HJ#LJ'PJ+TJ/XJ3\J7`J;dJ?hJ#J" J&J*J.J2J6 J:$J>(J 1176J" J&J*J.J2J6 J:$J>(J",J&0J*4J.8J2HJ#LJ'PJ+TJ/XJ3\J7`J;dJ?hJ#J" J&J*J.J2J6 J:$J>(J",J&0J*4J.8J2H0`<@@@@@@@8@@@@@@CGLAysF8x<ct<cf;gs&8`0@ @@@@@@`@@@@@@;V|CM$ CB0N900:P@||||||8||||||$;"BLOAD@`?`? `?`?`?8 `? )::51 128:AH107nBt Cp78P>CP>p=p8||||||`||||||T$"PKAS0x0 `? 8p )30500"ASIO":6:30500067m@`?`? `?`?`?8 `? :"OKIDATR":CL4:$"MOUNb0800NG GX":Cx?v0Gwqw|<p=~pgos` `? p8 f3fx ~ CL11:3M2eCM$ "SUPER @`?`? `?`?`?8 `? PT$"GE @NTERFACECB15,1dc08`| @34308,3 qcH88` >` HFap@ `? ` c439,234@852,137:4103,24PL1:15@`?`? `?`?`? 8 `? 415500007:344243M$"NECtc08`p,$^PT$ 3c `08 c`L @Fa `? p8 PL13:@||||||8||||||+RPM4CT 0,20200,@`?`? `?`?`?@8 `? :(ZK8)?||||||`||||||CB15,1CG(|G808@ 5500:CM@3c `08LAaL @Fa  `? 8p &C;@8PT18100r1):&DEX":PTH@@@@@@9@@@@@@56) %xx@`SL1:SL00,25508@88p511N,0@3c|o08LAaL}OFa @@@@@@`@@@@@@296#F7@P_P_@P_P_P_@@@P_@@8#4: 04GT$" 511N,0pP_P_@P_P_P_:@@@P_@@4LET":G0@A @@P_@@@`@@@@@@0!1 "@+LpI |? 3:14003c l08LAaLA L1Fa @@P_@@@`@@@@@@B                             ҍҠɠ͠Ϡ͠ˠɩƠΠ͠ŠŠϠōƠΠҤԠɺ͠ĠҠ̠Π  ԠϠԠˠΠΠ͢ԠˠΠΠԠˠŢԍŠРàĤԬ  ԠŠŠӺ̠ź͠ĠĠĺŠɬĺԠɺŠРԍƠˠԩΠԠӭàŠĢԠҠԠŠˠԠˠŠԠԠԠӠŠҠ΢ԍ͠͠ŠҠР͠ŠȲ͠ŠҠɠРϠР  LȠӠ𠥠ϠӺ𠋀箊ŠȠƠʠӠˠϠ̠Ӻ𠐀砤ҩɠР̠ŠҠԤàΘŠ̠ɠР̠ӮӠ𮒠ՠ̠蠠ӮŠϠ̠Ҡ蠌Šʠ栠Ϧ箐Π蠠ӠŠϠ纠͠𠠠蠉Šʠ̠ϊ蠠ӠŠϠ䌗vԌv wf8WxҐu7dd dOvgWWWWإ@D#MC2$h#MCȠЮࠢƠɠ栠Ơ̠͠Ϡՠ΀ēҠ砠Ю蠠ʠƠɠ𠠠ȠϠՠҠΕċ砠۠ȹɠwJwMhdMhduDhuDhPIHPIH c8 c8 c8 c866ooooo U vehhhh66666uuuuuuԌv wf8Wxu7dd dvvv'h 2v4'44 Ԙإ@D#MC2$h؜WJWJʚXjԱNe:WJWJ౶WJWJWJиseXseXseXWJWJexrvFWJWJPرuZԱuZԱNe:WJWJWGtWGtNe:WJWJkzjzWGhFWGhFܳRHМRH+d+d+dJwJPIHPIHj*hܲEkIHܩȉWHܡ,gZWGtWGtWGtsjsjsjsjvxdvxdvxdrvFrvFrvFj*hܲEkIHܩȉWHܡ,gZzzzpرuZԱuZԲOW{c)c)pرexexexWJWJc)c)őґߑ,9FYis˒Ւߒ  *18Eexexexc)c)c)c)ˉhhˉhhˉhh1uz1uzseXseXShShexrvFc)c)𱬝uZԱuZԱNe:Ne:WGtzNe:Ne:@?IiA  `3 y j mɍ4 ma mmɍ䩮a j)}j L cbh`(  ) 7?O_o *0+ %,& 1-.'/!$"#;a[N$\c(O&_O:c^O$acCb/CR_.N R`OU>a[&RcN@Yc^O[UHc'aN RO:c^O[cAN_)_N6cc>^&[a9b^>a[b[44[W['W[W['W[W[W[[cN_Q44b*RcbNC[[cE_5N.[ Rb[&Rc$R_6aPNW[$cNZBPPKPHOP&a[&a[a[P VCSVG#V@[Vى::A '[W[WW[[W,PCRcB]O6YKY:U[Aa[[@UR9cR:RN:RY_OcHR[b9[b5[cO)Y_>\aQb,_b*Rc&a[aNQ9\)RaP;cN@Ycb. RO:cb. Ra;NR]O(T!W[T;TC[]c _ddɏ\\\Rc\.Ձd(cBc#Ή=RCRb?R-VG.)#&[+):P#(#UU=UU_)^#P.PPW[PP5PIP5cZ;NCQX.\HX(\(W_W[[@_\)RӓW[W[W[W[W[W[[W[[aӃ[Q΁WR[ccTc(τc(ϔc;T$cT'[T9TIT.TIT$RT QTW[T RBb"D;'S*K7a7_(υ!!!;RNPCR[Χ;Rcώ5ώ?ώ)RRRϓ;%YCT.?[)QbYb6bbz` {` u{`_\ "|)"hh _\`\`\ "|)@\`\ "|) \8 `_\ "|)h h _\`\`_\ "|)Lz_\`_\`ȱ)`].! : 3mmX!ȌX^_N `m^ cy^[ |X ][Lx[]`[ȱɠY yɠZ^Y[ y^Zʈ z`ȱ0ȱeeLeyh`ʈ)`Ȉ)` i@h`) j]N m= j)ύjLYx j) jm)8 rLYxj)jj)jLp] uxX ,|`X ~x`[[h)mɰ ɺ=[5j)0.) SLxJm mH}0ʽH}ʽH}Lxm }ȹ}j)`L=ym,;?fg`ahi]ƭj)LphbcLaɍ Lpa j)jLpa) eLYxaɺ ɰm)ma) mmmLp j jLYx j jLYxLYxLYxmLYx j @jLYx j) jk] dxjL5vbcHddj)] vɘbchLbcaHda) vj jmLpj)L-wj)LMwa)ej j vmLpj)L#w؊Lwj)@]]a 8 ېih]ɾ ]>ɍ: vLw]fg dx]Í֍ǠӠɠōԨ]68v79`Lt" X]t L68v79L+i,-$?ui tQ tH t? t6 t- t$ t؊؊ኍA ׊)` 䊩]oprqteny jsovtp`Ӡ֠͠                      41267,41278,41304,41406,41427,41448,41463,41465,41473,41676,42855,42879,44474,44554,44628,44632,48851,48918,48953,48981,48983,48987,49053,49059,49061,0  47622,48548,0%dPREPARE DOS 3.3 FOR INTERRUPTS5nA:A0200Fx(A)69110k"THIS DOS IS ALREADY PATCHED":zII2:120A:A0300(A)70200"THIS DOS IS ALREADY PATCHED":,6A:A0ĹA,70:310@A:A0ĹA,44:320J K$(I): I112:MO$(I):= I03:J16:FMT(I,J)::C `1:(9)"80N":E$(27):E$"B"E$"E"E$"L010"::0:1002:R,NOVEMBER,DECEMBER< 1,3,6,9,12,14:W MO/DD/YY HH:MI:SSc16,1,4,17,7,9:MO/DD HH:MI:SS.WYY 1,4,7,10,13,15:WW MO/DD/YY HH:MI:SS AM 1,3,6,9,12,14:W MO/DD/YY HH:MI:SS LOAD DATA INTO ARRAYS WK$(6),MO$(12),FMT(3,6) I06:W(SW 2 ON)":VER0Q$Q$" VER "VER$kTAP3Q$"TIMEMASTER II MODE (SW 2 OFF)":VER0Q$Q$" VER "VER$u^Q$:h------------------- SUN,MON,TUES,WEDNES,THURS,FRI,SATURJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBE2AP(ADDR255):VER(ADDR250):VER255VER0]PA124096128SLOT16: $C080+SLOT*16q$CAPA1:PBPA2.VER(VER16)(VER16(VER16))10:VER$(VER)8B-------------------@ EXPLAIN MODE ON SCREEN$JAP1Q$"APPLECLOCK MODE H0H12:960 H12HH123 T$(H)T$AP$Q 13:(BL$,20(T$)2);T$W p -------------------  TIMEMASTER II FINDER SLOT0:I17:ADDR124096I256: $CS00 (ADDR)8(ADDR1)120(ADDR254)178SLOTI:I7:SLOT0ı$,FMT(AP,2),2)):M$MO$(M)# \ODNDC fY((A$,FMT(AP,4),2))1900b pDT$M$" "(OD)", "(Y) z11:(BL$,20(DT$)2);DT$ H((A$,FMT(AP,5),2)) T$(A$,FMT(AP,6),6):":MI:SS" AP2AP$(A$,21,3):960 AP$" AM":H11AP$" PM"  DISPLAY CLOCK NICELY` %ND((A$,FMT(AP,3),2)):NDOD900:SKIP UPDATING FIRST TWO LINES *AP2W((A$,FMT(AP,1),1)):W$WK$(W):840 4W$(A$,2):I06:W$(WK$(I),2)W$WK$(I):I6 > H9:(BL$,20((W$)3)2);W$"DAY " RM((AD THE CLOCK> b:22:4:" PRESS ANY KEY TO END PROGRAM ":J lD$(4)h vD$"PR#"SLOT:D$"IN#"SLOT ":";A$: IN S-C MODE SELECTS TIMEMASTER FORMAT PRINTED CHAR IGNORED BY OTHER MODES D$"PR#0":D$"IN#0"  -----------------------H.O. ";::" IS IN SLOT "SLOT:B Z1600:EXPLAIN MODE ON SCREENc d3000:LOAD DATA INTO ARRAYS nBL$" " x600:READ CLOCK 800:DISPLAY CLOCK (16384)128120: 16368,0 23: W-------------------- XREA  DATE & TIME DISPLAY7 FOR TIMEMASTER II H.O.cCOPYRIGHT (C) 1983 APPLIED ENGINEERING(WRITTEN BY BOB SANDER-CEDERLOF2----------------------<:F1000:SLOT0ĺ"NO TIMEMASTER II H.O. FOUND": P"YOUR ";::" TIMEMASTER II      A$"P"A$"a"A$"p"12208X0:A$"P"A$"p"X1>W-------------------`1:(9)"80N":E$(27):E$"B"E$"E"E$"L010"::0:1002:(SW 2 ON)":VER0Q$Q$" VER "VER$k`AP3Q$"TIMEMASTER II MODE (SW 2 OFF)":VER0Q$Q$" VER "VER$ujQ$:t-------------------GET AM/PMQ$"ENTER AM/PM: ":V(37)1V:30(Q$):Q$;:"";A$:A$""1220A$(A$,1):A$"A"$"ENTER "Q$" ("(LL)"-"(UL)"): "TV:30(QQ$):QQ$;:"";A$:A$""1030sX((A$)):XLLXUL1030XXX(X100)100$XT(XX10):XUXX10XT.8-------------------L EXPLAIN MODE ON SCREEN$VAP1Q$"APPLECLOCK MODE 7:SLOT0ıDAP(ADDR255):VER(ADDR250):VER255VER0oPA124096128SLOT16: $C080+SLOT*16CAPA1:PBPA2VER(VER16)(VER16(VER16))10:VER$(VER)-------------------QUERY FOR VALUEV(37)1)QQ:LL0:UL59:1000:V(3)XT:V(2)XU51200:H12H0E X1HH12c*XH:1050:V(5)XT:V(4)XUi4>------------------- TIMEMASTER II FINDERSLOT0:I17:ADDR124096I256: $CS00(ADDR)8(ADDR1)120(ADDR254)178SLOTI:IY":UL31:1000:V(8)XT:V(7)XU:DXaQ$"YEAR":LL1984:UL2083:1000:V(12)XT:V(11)XU:YX1984wM0MM12:YY1WY(Y4)MD(M)D:V(6)W(W7)7:" DAY OF WEEK: "DN$(V(6))"DAY"Q$"HOUR":LL1:UL12:1000:HX! Q$"MINUTE"-C MODE SELECTS TIMEMASTER FORMATP D$"PR#0":D$"IN#0":5:"THE TIME IS: "A$h (16384)128630:v 16368,0|  ----------------------- GET CLOCK SETTINGS 8:958 Q$"MONTH":LL1:UL12:1000:V(10)XT:V(9)XU:MX3"Q$"DA &PB,I16:HOLD + DIGIT! 0I[ :PB,47:CA,0:PA,0:CA,4:RESTORE NORMAL PIA SETTINGSa D{ N-------------------- XREAD THE CLOCK b:22:4:" PRESS ANY KEY TO CONTINUE ": lD$(4) vD$"PR#"SLOT:D$"IN#"SLOT! ":";A$:IN SV(I);:: D$"PR#0" 7 --------------------F SET CLOCKb PB,16: HOLD THE CLOCK CA,0:PA,15:CA,4:A(3-0) OUTPUT I012 PB,I16:HOLD + DIGIT PA,V(I)8(I5):VALUE AND SET 24 HOUR MODE PB,I80:HOLD+DIGIT+WRITE 600:READ CLOCK! :1703 D$"-STARTUP"9 S --------------------b SET CLOCK 22::6:" PRESS TO SET CLOCK ";::A$:A$:A$(13)Ģ19:14:"CLOCK NOT SET": AP3VER1.2480 D$"PR#"SLOT "!";:I1201:z PV(12),MD(11),DN$(6):I011:MD(I)::I06:DN$(I):: 3,6,1,4,6,2,5,0,3,5,1,4,SUN,MON,TUES,WEDNES,THURS,FRI,SATUR Z1100:EXPLAIN MODE ON SCREEN d600:READ CLOCK n(16384)27Ā:ESC TO END x700:GET NEW SETTING 400:SET CLOCK % SET TIMEMASTER II H.O. SEPT 86QCOPYRIGHT (C) 1986 APPLIED ENGINEERINGuWRITTEN BY BOB SANDER-CEDERLOF(----------------------2:<900:SLOT0ĺ"NO TIMEMASTER II FOUND": F"YOUR ";::" TIMEMASTER II ";::"IS IN SLOT "SLOT:     MU((T$,HX4,1))(PARTS#D$"IN#"SLOT:D$"PR#"SLOT/":";T$GD$"IN#0":D$"PR#0"mHX12:ASSUMING TIMEMASTER FORMATAP1HX7:APPLECLOCK FORMATAP2HX13:AM/PM FORMATHU((T$,HX,2))HU0HU12 HU12HUHU12MT((T$,HX3,1))I256:$CS00D(ADDR)8(ADDR1)120(ADDR254)178SLOTI:I7J]$AP(ADDR255).SLOT0ĺ"TIMEMASTER II NOT IN COMPUTER."::8"YOUR TIMEMASTER II IS IN SLOT "SLOT:I1600::----------------------READ THE TIME AND PARSE +H"WORK YOUR APPLE MUST HAVE AN 'ECHO' "YR"SPEECH SYNTHESIZER AND A TIMEMASTER II"l\"TIME CLOCK."tf:"HIT RETURN WHEN READY"Z$---------------------- TIMEMASTER SLOT FINDERSLOT0I17 ADDR124096ȲONLY DISPLAY ON SCREEN+HU":"MT;MU;" "BE$"T":ONLY SPEAKRH$;MT$;MU$i E$"O":SPEECH OFFo----------------------- EXPLANATION*:4"THIS PROGRAM WILL SAY THE TIME ONCE A ">"MINUTE. IN ORDER FOR THIS PROGRAM TO"$"SEVENTEEN", lMT1MU8MU$"EIGHTTEEN"K vMT1MU9MU$"NINE TEEN"c MT2MT$"TWENTY "{ MT3MT$"THIRTY " MT4MT$"FORTY " MT5MT$"FIFTY " 5 E$"B": BOTH SPEAK AND DISPLAY ON SCREEN "THE TIME IS "E$"O":MU$"EIGHT"' MT1MU9MU$"NINE"@ MT1MU0MU$"TEN"\ &MT1MU1MU$"ELEVEN"x 0MT1MU2MU$"TWELVE" :MT1MU3MU$"THIRTEEN" DMT1MU4MU$"FOURTEEN" NMT1MU5MU$"FIFTEEN" XMT1MU6MU$"SIXTEEN" bMT1MU7MU MT0MU0MU$" CLOCK"4 MT1MU0MU$" "N MT1MU1MU$"ONE"h MT1MU2MU$"TWO" MT1MU3MU$"THREE" MT1MU4MU$"FOUR" MT1MU5MU$"FIFE" MT1MU6MU$"SIX" MT1MU7MU$"SEVEN" MT1MU8" 6HU3H$"THREE ", @HU4H$"FOUR "A JHU5H$"FIFE "U THU6H$"SIX "k ^HU7H$"SEVEN " hHU8H$"EIGHT " rHU9H$"NINE " |HU10H$"TEN " HU11H$"ELEVEN " HU12H$"TWELVE " MT0MT$"O " MT1MT$" "(4): MAKES DOS WORK" nD$(4)O x1200:READ THE TIME AND PARSE OUT PARTSV 1z XMU120:TIME HAS NOT CHANGED XMU:ONLY SAY THIS TIME ONCE 290:SAY THE TIME 120 ----------------------- "HU1H$"ONE " ,HU2H$"TWO  ; TALKING CLOCK (FOR USE WITH ECHO SPEECH SYNTHESIZER)[800: EXPLAIN THE PROGRAMX99:FORCE FIRST TIME IMMEDIATELY(29696: $74002D$(4)<D$"BRUN TALK"FE$(5)PZ1000: SEARCH SLOTS FOR A TIMEMASTER II_ dD$  Pí(64435)5650030; Zí(64435)234(64286)17350030A dñG n×x xâ10:"LOWER CASE:abcdefghijklmnopqrstuvwxyz" ú"DISPLAY LOWERCASE LETTERS? (Y/N)";:Q$:Q$ íQ$"N"Q$"n"ĺ(4)"BRUN UPPER.CASE": íQ$"Y"Q$"y"ĺ(7):50040 ñ,300,400,500,600:180 A$6 (4)"RUN SET.CLOCK"> ,A$] 6(4)"RUN TIME.DATE.DISPL"e A$ (4)"BRUN BINARY CLOCK"   A$ 49268,1:SLOW DOWN TRANSWARP (4)"RUN TALKING CLOCK" X b l (40(A$))2:A$: n:HT:"1). Set Clock"B x:HT:"2). Display Time and Date"` :HT:"3). Binary Clock" :HT:"4). Talking Clock (with ECHO II)" :HT:"5). Exit to BASIC" :HT:"Please Choose an Option? "; A$:A$(27)600 (A$)200I 50000:(21)::24:"Copyright (C) 1986 Applied Engineering";:1:a* DOD 3.3 Time *z* Utilities Menu * (12A$"TimeMaster II H.O.":1000<A$"DOS 3.3 Time Utilities":1000FA$"------- ---- ---------":1000PHT3 Z:   z#  ̮̮Ӡ ή̮Ӡ ̮ĮӠήĮӠήŮԠԮˠ"ҮŠ  ŮԮڠîԠ  ŮӠŮϮϠǮˠ ĮҠŮϮ͠  ҠȠӠ Рήˮ٠ˮ٠ήàӠȮɠ ٠ˠ- ̠ӠҠ ӮӠҠ®ӠҠӠŠȠӠ Ԯ٠ ȠҠҠˠϠ Ǡˠ Ԯˠ ŮŮ̠ ȠӠҠӠˠ$ ԮűB16384:SP16336:FLAG14 F2000:DRAW CLOCK FACER PD$"PR#"SLOT:D$"IN#"SLOTm dDISPLAY RUNNING CLOCK n1:X(0):":";T$:(KB)127Ĺ16368,0:D$"PR#0":D$"IN#0":: xNS((T$,K(AP,2),2)):SNS110 X(SP)(SP)(SP):TICK-TOCK' NH ANALOG CLOCK0 FOR TIMEMASTER II H.O.\ COPYRIGHT (C) 1983 APPLIED ENGINEERING WRITTEN BY BOB SANDER-CEDERLOF:D$(4)(1000:SLOT0ĺ"NO CLOCK BOARD FOUND.":2"CLOCK BOARD FOUND IN SLOT ";SLOT:1200 <H0:M0:S0:K     '&': "D2$< >"THUNDER '#': "MO","WK","DA","HR","MI","SEB HH R! "TIMEMASTER MODE SELECTED"' > 300:SELECT CLOCKK " ";D1$X "&";D2$e "%";D3$r ":";D4$ "#";MO,WK,DA,HR,MI,SE 350:DE-SELECT CLOCK " TIMEMASTER: "D4$ "APPLE CLOCK: "D1$ *"THUNDER '%': "D3$ 4"THUNDER ,SELECT CLOCK9 6D$(4):D$"PR#"SLOT:D$"IN#"SLOT:N ^DE-SELECT CLOCKh hD$"PR#0":D$"IN#0":} READ TIMEMASTER 200: FIND SLOT (ADDR255)32000: S-C MODE 300:SELECT CLOCK " ";A$ 350:DE-SELECT CLOCK $A$ .Id S-C CLOCK DEMO n1000:FIND TIMEMASTER SLOTESLOT1]ADDRSLOT25616384(ADDR)8(ADDR1)120(ADDR254)178260SLOTSLOT1:SLOT8220"TIMEMASTER II H.O. NOT FOUND":"TIMEMASTER II H.O. FOUND IN SLOT "SLOT:":D$"IN#0"* A$" -- CLOCK STRING READ"+ D$(4):SLOT42D$"PR#"SLOT:D$"IN#"SLOT:A$R(D$"PR#0":D$"IN#0"q2A$" -- CLOCK STRING READ"w<dD$"IN#"SLOTnA$:"^-- ECHO"xD$"IN#0"A$" -- CLOCK STRING READ"D$"PR#"SLOT:D$"IN#"SLOT":";A$ D$"PR#0  A1,12: CONTROL REGISTER A (1 PER SECOND)Q A3,4: CONTROL REGISTER B[ 2400TER INTERRUPT<~ CC1:CTī2400: INCR CTR,COMPARE TO MAX| PERFORM THIS OPERATION WHENEVER COUNT REACHES MAX COUNT T C0: INIT COUNTER  D$(4): D$"IN#"SLOT:D$"PR#"SLOT 5:":";K$ D$"IN#0":D$"PR#0" K$ 9580T3: NUMBER OF INTERRUPTS PER CYCLE/ 8 2380@ B 2460: INITo L 780:: DISABLE INTERRUPTS BEFORE HALTING V ******************* ` (F)Zĺ".";:2400:WAIT FOR INTERRUPT j "/";:DO THE FOLLOWING ON EVERY INTERRUPT t F,Z: RESTORE FLAG AFUPTS)6 A1,12: CONTROL REGISTER A (1 PER SECOND)V A3,4: CONTROL REGISTER B A2,47: TELL PIA TO PASS INTERRUPTS  X(A): CLEAR PIA FLAGS  F779: BASIC FLAG ADDRESS  Z0: FLAG VALUE WHEN CLEAR $ 782: ENABLE INTERRUPTS$ . BASE ADDRESS = $C080+$N0- 774,128SLOT16U A1,0:A3,0: DATA DIRECTION REGSs A,0:PORT A INPUT,8 BITS A2,255: PORT B OUTPUT,8 BITS  THE NEXT 2 POKES DETERMINE INTERRUPT RATE  (THIS BASIC PROGRAM IS TOO SLOW FOR 1024 HZ INTERR0  D:D0ı, $ NCNC1:FMT(NC)D:23302170 \M16:D56D53M4@ fPB,D:T(PA): READ THE DIGITU pDT(TM)M176d zT$T$(D)j w PB,47: ------------------- "W MM/DD/YY HH:MM:SS" FORMAT  54,160,58,57,175,56,55,175,60,59,160,53,52,186,51,50,186,49,48,0  NCA1:PBPA2:CBPA3< (CB)02060: PIA ALREADY SET UPt CA,0:CB,0:PA,0:PB,255: SET DIRECTION REGISTERS CA,4:CB,4:POINT AT DATA REGISTERS  4READ CLOCK USING FORMAT >T$"":I1NC HPB,16: HOLD CLOCK RDFMT(I):D127- CL(30),FMT(30)C:"SLOT:";SLOT:SLOT1SLOT7ĺ(7);:20`(2300:READ FORMAT DATA z22000:INITIALIZE PIA<2100:READ CLOCKF10:10:T$P(16384)12860Z16368,0:SETUP PIAPA49280SLOT16:$C080 + $N0 CAPXPLAIN MODE ON SCREENX AP1Q$"APPLECLOCK MODE (SW 2 ON)":VER0Q$Q$" VER "VER$ AP3Q$"TIMEMASTER II MODE (SW 2 OFF)":VER0Q$Q$" VER "VER$ Q$: -------------------DR1)120(ADDR254)178SLOTI:I74 :SLOT0ıf AP(ADDR255):VER(ADDR250):VER255VER0 PA124096128SLOT16: $C080+SLOT*16 $CAPA1:PBPA2 .VER(VER16)(VER16(VER16))10:VER$(VER) 8 B-------------------  E2 SUBROUTINE FOR INCLUSION IN OTHER PROGRAMS<1000jSLOT0ĺ"TIMEMASTER II H.O. NOT FOUND":("TIMEMASTER II H.O. IS IN SLOT "SLOT22000< TIMEMASTER II FINDERSLOT0:I17:ADDR124096I256: $CS00$ (ADDR)8(AD(# JANANNS(M),YCRMC(M)XC7C(M),YC5S(M)A,B:B-------------------W DRAW HOUR HANDAXC7C(H):BYC5S(H):A,BXCRHS(H),YCRHC(H)XC7C(H),YC5S(H)A,B:_-------------------`1:(9)"80N":E$(27):E$"B"E$"E"E$"L010"::0:1002:1:X1,VX1,V::? I059:XXCRDS(I):YYCRDC(I):X,Y:aYYC2YC2:XC2,YXC2,Y: :22:12:"APPLIED ENGINEERING":12:"TIMEMASTER II H.O. ":1:----------------------DRAW MINUTE HAND)AXC7C(M):BYC5S(M):A,BXCRMK... ":::3 S(59),C(59)s AR1.2:P3.1415926536:PSP30:I044:S(I)(P):C(I15)S(I)AR:PPPS:X(SP): I4559:S(I)(P):C(I45)S(I)AR:PPPS:X(SP): XC140:YC80:RD80:RM75:RH50I0595:XXCRDS(I):YYCRDC(I):VY1Y. ---------------------- / LOAD DATAW 12,15,18,7,10,13,13,16,19,12,15,18 K(3,2):I03:J02:K(I,J)::: ---------------------- DRAW CLOCK FACE ::22:5:" ...PLEASE WAIT A FEW SECONDS ":5:" WHILE I WIND UP THE CLOC110" ----------------------4  H.O. FINDER` SLOT0:I17:ADDR124096I256:$CS00 (ADDR)8(ADDR1)120(ADDR254)178SLOTI:I7 :SLOT0ı AP(ADDR255) PA124096128SLOT16: $C080+SLOT*16 $CAPA1:PBPA2 ((T$,K(AP,0),2)):NM((T$,K(AP,1),2))R NMNMNS60:NH5(NH12(NH11)NM60) 0:XC,YCXCRMS(S),YCRMC(S):SNS:3:XC,YCXCRMS(S),YCRMC(S) (S0)FLAGĒ0:FLAG0:2200:2220:HNH:MNM:3 2200:2220::YYC2YC2:XC2,YXC2,Y: __________"c <C$(0)"SUN":C$(1)"MON":C$(2)"TUE":C$(3)"WED":C$(4)"THU":C$(5)"FRI":C$(6)"SAT", AMO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OC ? 50000:36864:ER38144:I09:D:IER,D:I:(21):R35i104,168,104,166,223,154,72,152,72,96D$(4):D$"BRUN BIN.TIME.INTRPT"1670(A$(5,6,4):MO$(12) 2:A$"____________________________________________________________________          OTUEWEDNETHURFRSATUDA:987<;543210+xnj ɲ  x`  /X``EHHH6'") Q Q ` `/hhh@ (`H0!58,9Ihh` SUM 8H9Hą98 ɍh9h8` 16368,0 512,141 MACHINE LANGUAGE EXAMPLE+D$(4)HD$"BLOAD BIN.OLD.MODES"(::"WHAT SLOT IS THE CLOCK IN? ";:N$:N$:SLOT(N$)2SLOT1SLOT740<7687,192SLOTd768nI512:5xC(I):(C);:II1:C141120(16384)128100 >č% `8H9Hą98 ɍh9h8` 16368,0 512,141 MACHINE LANGUAGE EXAMPLE+D$(4)HD$"BLOAD BIN.ALL.MODES"(::"WHAT SLOT IS THE CLOCK IN? ";:N$:N$:SLOT(N$)2SLOT1SLOT740<769,192SLOTd768nI512:5xC(I):(C);:II1:C141120(16384)128100  1840:120A$"Applied Engineering"<1840:XA$"Copyright (C) 1986"d1840:23:A$"Press RETURN to Continue....":1840X$:5:"Do You want Help (Y/N) :";IN$IN$"Y"IN$"y"1870IN$"N"IN$"n"40 D$;"PR#";ZA"":";Q$+,D$;"IN#0":6D$;"PR#0"L@MN$(Q$,3,2)ZJMN(MN$)zTZY$MO$(MN)" 19"(Q$,9,2)^JK$MO$(MN)" "(Q$,6,2)", ""19"(Q$,9,2)hKJ$(Q$,12,5)r667|28908A$"APPOINTMENT BOOK"Z04A$(R,C,Z)Z$C+R?D$;"CLOSE";PG$u:5:"Do You wish to (E)nd or (C)ontinue...";AW$AW$"E"AW$"e"ė:10:"The Program is Done.......!":38400:AW$"C"AW$"c"ė:9601480READ CLOCKD$;"IN#";ZA(11)E$"":13Z:26::" ":f2(E$)10ğ:(7);"TOO MANY CHARACTERS - TRY AGAIN"::1290w<A$(R,C,Z)E$~FZP:1050: Z:10:12:"Saving Appointments"dD$;"OPEN";PG$nD$;"WRITE";PG$xR05C06G$Z148"Appointment ";Z;": ";A$(R,C,Z)?ZJZ14T13Z"Enter Appointment #";Z;" ";::" ":13Z:26:A$(R,C,Z)13Z:25:E$13Z:26:A$(R,C,Z)E$""Ģ13Z:26:A$(R,C,Z):1350&(E$ : ";E$VE$"Y"E$"y"13706`E$"N"E$"n"960Uj1100: t:4:"Enter DATE to be Edited: ";E$:E$("0"E$,2)y~E$"("E$")"R05C06E$A$(R,C,0)1220CR1140:A$(R,C,0);" ";inter":7:"=>";AN$2AN$"S"AN$"s"X1:2590PAN$"P"AN$"p"X0:120Z1000`6:"Do You wish to EDIT any Days : ";E$$E$"Y"E$"y"1140.E$"N"E$"n"109081050: BL"Do You wish to SAVE Dataid NOT find "PG$::"MUST Create NEW File: "PG$:I11000:IE280N460T216,0::4:"Do You wish to LIST Appointments :";E$E$"Y"E$"y"1000E$"N"E$"n"1040960:4:"(S)creen (80 column card REQUIRED)":5:"(P)r25&4D$;"VERIFY";PG$:D$;"OPEN";PG$9>D$;"READ";PG$DHR05ORC06Z\Z04ifA$(R,C,Z)ppZwzC~RD$;"CLOSE";PG$960ER:E(222):E5E7ĺ"Problem Reading: ";PG$:I11000:I:216,0:770<D$"CLOSE":(7):"DCH32G$G$(CH):IBF0:I112:(G$,3)(MO$(I),3)F1Z:Fĺ(7):8:750`PG$(G$,3)"."(G$,4):10:"Create a NEW: ";PG$;" on Disk";:E$ E$"Y"E$"y"930E$"N"E$"n"810 770*:"Retrieving File: ";PG$:9$LL$"N"LL$"n"7105LL$"Y"LL$"y"İ1520@G$ZY$K:770x:4:"Need Month Name and 4-Digit Year"~"Example : December 1986"" : ";E$G$"":I1(E$):CH((E$,I,1)(0)):CH("a")CH("z")CH(M)(N)F$630"DCC1:NN1/NC7610=XRR1:C0KbN58560_lN48:MM1:560~v: FRONT MENU:5:7:"Use current Month and Year":7:10:"on the TIMEMASTER II H.O."9:17:"(Y/N)":11:18:":";LL;B$(0);B(0));B$(1);B(1));B$(2);B(2));B$(3);B(3));B$(4);B(4));B$(5);B(5));B$(6);B(6));"|"f Z : ESTABLISH DAYS OF MONTH D1:3000:NX 3100:F$(ND) &R0:CN:M48:N49 0A$(R,C,0)"("(M)(N)")": * INITIALIZE MONTH5 "R05@ ,C06K 6Z04] @A$(R,C,Z)" "d JZk TCr ^R h: rPRINT 1 ROW OF DAYS |Z04 N06 B$(N)"|"A$(R,N,Z) B(N)10(A$(R,N,Z)) N_ PS$8);C$(5);8);C$(6) PS$;A$) R05B PS$" ":370:PS$""N PS$;A$U Rj D$;"PR#0":1520y D$;"PR#1" " Printed Date : ";JK$;26)"APPOINTMENT BOOK" " Time : ";KJ$ D$;"PR#0" 960 : TOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER"8 FD$(4)D P1912,1J Zp d y n640 x:5:"Printing Calendar":D$;"PR#1": G%(80(G$))2 G%);G$: 6);C$(0);8);C$(1);8);C$(2);8);C$(3);8);C$(4);0:"LOWER CASE:abcdefghijklmnopqrstuvwxyz"[(ú"DISPLAY LOWERCASE LETTERS? (Y/N)";:Q$:Q$(íQ$"N"Q$"n"ĺ(4)"BRUN UPPER.CASE":(íQ$"Y"Q$"y"ĺ(7):50040(ñ5Y)(("033614625035",M,1))DCN(LYM2)I' X(7(DW7(DW7)).5)O' r' FIND NUMBER OF DAYS PER MONTH'& ND30(("101010110101",M,1))'0 M2ND28(LY1)': 'Pí(64435)5650030'Zí(64435)234(64286)17350030'dñ'n×*(xâ1 $CS00 G&h (ADDR)8(ADDR1)120(ADDR254)178SLOTI:I7M&r Y&| ZASLOTc& 1690z& FIND DAY OF WEEK & Y((G$,4))& I112:(G$,3)(MO$(I),3)MI& I& CN(Y2000)& YY100(Y100)& LY((Y4)(Y4)),' DW(1.2);C$(5);8);C$(6)% A$$% R35-% 3705% A$<% R% "Press Left Arrow '<-' for PREVIOUS Page RETURN to END";:X$% X$(13)2870%" X$(08)ī2570%, 2580%6 (21)%@ 960%J SLOT0%T I17&^ ADDR124096I256: $ $n R02$x 370$ A$$$ Rs$ "Press Right Arrow '->' for NEXT Page RETURN to END";:X$$ X$(13)ī2870$ X$(21)ī2580$ 2570$ G%(78(G$))2$ G%);G$% 4);C$(0);8);C$(1);8);C$(2);8);C$(3);8);C$(4);8NSTRUCTION CONTROL# 22@# "PRESS RETURN TO CONTINUE..";BB$F# L# X# :2630d# :2750s# D$;"PR#3"y#( #2 1912,1#< :#F G%(78(G$))2#P G%);G$#Z 4);C$(0);8);C$(1);8);C$(2);8);C$(3);8);C$(4);8);C$(5);8);C$(6)$d Aram allows you to list your":"appointments on the screen; however, you":"DO NEED an 80 column display board."u" " "If you do not have an 80 column board"" "you will need a printer to list the"" "Appointment Book."" 2520" 30# I".!. " on a monthly basic into a text file"\!8 " so you need to put this program on a"!B " FRESH disk. (Also use FILER to copy"!L " 'BIN.TIME.INTERPT' so you can see"!V " the current data at the top.)"!` ! 2520:5o" :"This prog"appointment, the program will save it"< "to the disk."I 2520:5X "NOTES :"^  "To have the current time at the top,"  " Switch 4 on the TIMEMASTER II H.O."  " MUST be closed."  !$ "This program saves your appointments,"wish to eliminate a particular piece"V"of information, simply select the ""date that you wish to edit and press""CTRL-K to delete the information on""that specific appointment.""When ever you make any changes to an"( rn for each entry that will"@R"not contain any information."M\2520:5yf" Once the information is entered in"p"you may edit the information for each"z"date by typing in the new information""for the specific appointment. If you"ou may enter";"any information that you wish provided"g "it is less than 10 characters. When"*"in the enter mode, you will be asked"4"for all four appointments one after the">"other. If you have less than 4, just"H"press retu"it has established what month you are"W"dealing with, you will be allowed to"y"enter in the appointments."2520:5" When entering appointments, you are""restricted to no more than ten numbers"  "or letters per entry. Yts""per day." 2520:5M" To gain access into the program and"y"enter your appointments, simply give""the answers to all the questions with""either a 'Y' or 'N' answer or day of""week or what ever it asks for. Once"+&38400:0CJ(39(A$))2-:CJ);A$;3DEN INSTRUCTIONLX5yb" This program is an appointment book"l"written for the Apple //e equipped with"v"an APPLIED ENGINEERING Timemaster H.O.""It will allow up to four appointmen:ghiaz)ߑŰů`