8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RNEW.DISK}' ,BASIC.SYSTEM( CALENDAR!.CALENDAR.MAKERմ n'CHECKIT! 6/ ϲ *CLOCK.DEMO) մ  DATA6++*GOTO.GOSUB7nn.INVOICE.MASTER:1_; b /MOUSE.CLOCK.SRCkn u 'NIBMENU| n n PACK Y" &PACK.S e9e+PACK.UNPACK-e3 PIC.MOVEMSS *PIC.MOVE.S ePRINTER.DUMPH00PRO.MOUSE~޴?޴&PRODOS"}@#((REMEMBERe0e0SCREEN.FALL0!0SHRINKER11SLIDE.BIN=ѰpѰ$+SLIDE.BIN.Se*SLIDE.SHOWѰ e1 'STARTUP z®3 .STARTUP.SCREEN . . UNPACK Y(UNPACK.S _e3? LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭭻LYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?L5LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ?( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ ?B94 l% bʽ  ՚,S` H $݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O黩 puȾ ɾ-O c־Jjjj껝2뻝3 `O>0O v POپھ p +H־Ǿh۰8L־Jjjj2껽3뻭ɾ)Ⱦ8껰  OLӜ ΤLLX>(F﻽ﻝﻩ`ֻ־ؾپھ׾` bɄ KDEF vLl v lL5 bKɍKL?`  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅3ݷ03LG8H933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B;8`W K  黐LK ҟ ҟ l KK`JJJJ8`轌K)` #hhLJپھ pHJh` D!hgtp `tp8nnitpiͱtso8pinii>j?kͷ>pIiͯͷ l - `>i>?Ek?!>Q>>>Ͳͳ `` \>Ͳ ͳ `e>>?ʹ?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͯm;>:8o>oȑ>ppȑ>> :op` DKpn͋ @p;틻=po:i>?Ek?>Q>> L> \/ e>>?ʹ?ޱ>ȥj>>m>` im8iŻnjƻkiljoŻS -޻.߻$I2 U)VJ T)`l޻8`a HbIJhjǾȾɾ p٭b=aIe f`8` cP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ŵ 춰5W) )W)@! pZ}ȾȾ󰹩 p` c־ǾҾ,G 8`׾ؾ  p ۥs׾tؾE` c ( |о(־Ǿ,G 8`_`W)H־Jjjjh2׻3ػ p̭ػ׻ L%Ǿ廎滠 ..8׻ػ 廍⻈ۭ (׻8廪ػ滨mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDbzDl e|Ŭ-⭚ݴgaB<{P~VM@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T٩   LiLMTRLLLLL58ﻀۻ)Iۻ `2Eۻ8`ﻀ ԠŬLLJAN 31 0 FEB 28 31 MAR 31 59 APR 30 90 MAY 31 120 JUN 30 151 JUL 31 181 AUG 31 212 SEP 30 243 OCT 31 273 NOV 30 304 DEC 31 334 SUN MON TUES WEDNES THURS FRI SATUR  ! *************************A * CALENDAR.MAKER *a * BY D.D. JOHANNESEN *( * COPYRIGHT (C) 1991 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F *************************P: Z3:13:"CALENDAR MAKER"$ d10:"BY D.D. JOHANNESEN"G n8:"(C) 1991 MINDCRAFT PUBL."O x12q MN$(12),DM(12),ED(12),DY$(6) C$" CALENDAR" I112 MN$(I),DM(I) I "JAN",31,"FEB",28,"MAR",31,"APR",30,"MAY",31,"JUN",30,"JUL",31,"AUG",31,"SEP",30,"OCT",31,"NOV",30,"DEC",31> I111:ED(I1)ED(I)DM(I):IT I06:DY$(I):I "SUN","MON","TUES","WEDNES","THURS","FRI","SATUR" D$(4) 510 D$;"OPEN";C$ D$;"WRITE ";C$ I112 MN$(I) DM(I) "ED(I) ,I 6I06:DY$(I):IT @D$;"CLOSE ";C$:EC(222):EC10ĺ:"FILE OR DISK LOCKED.":Z Em JD$;"LOCK ";C$x T216,0 ^:"ENTER MONTH,DAY,YEAR" h" (0,0,0 TO QUIT)? ";M,D,Y r |M0D0Y0Ā D1ĺD;" INVALID DAY!":350 M1M12ĺM;" INVALID MONTH!":350! SW05 Y100Y1900YL DT(Y1704)365.25t DT(DT)SW1:Y;" IS A LEAP YEAR" DDM(M)(M2SW)470 D;" INVALID DAY FOR ";MN$(M):350 DT(DT)ED(M)(M3SW)D DW(7(DT7(DT7)).5)% MN$(M);" ";D;",";Y;" FALLS ON ";DY$(DW);"DAY". 350e EC(222):EC10ĺ:"FILE EXISTS AND IS LOCKED.": EC8ĺ"DISK I/O ERROR.": "ERROR NO. "EC". CHECK APPLESOFT MANUAL BEFORE CONTINUING.":"#$%&'(. ********** NIBBLE PRD DISK **********[ * CHECKIT * * COPYRIGHT 1988 BY MINDCRAFT PUBL.CORP. *( * CONCORD, MA 01742 *2 *************************************' <:::"CHECKIT":"COPYRIGHT 1988 BY MINDCRAFT PUBL. CORP."0 F90\ PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256: d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)40969 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$d xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)110 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF THE":"FILE (IN HEX)";:H$:290:AH2 A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140| 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:160 :::34,1:2:"INSTALLING CHECKIT..."x A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHERE A6144İ370:34215,(A256):34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHERE' (48896)76Ĺ56,0:57,133:1002:250B (4);"IN#A$8500":250l (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED" (768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151"  Y"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):_,t6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML)111:T^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0:h $8500 VERSION5rI0377:ML:34048I,ML:I;| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169_ 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,177,6& 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,133> 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25 240,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32o 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,177,6,201,205,208,166 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,212 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326 *+,-./012345d* CLOCK.DEMO+n* By John R. VokeyTx* (c) 1991 by MindCraft Publ. Corp._17000{:(14)(21)::40-colDOS((978)157):Set operating system:0-Prodos; 1-DOSDOS$("PRODOS",DOS31,3)".MOUSE"==========Find Mouse ==========1 MSLOT0:I17:LOC256(192I)Z (LOC12)32(LOC251)214MSLOTIa I INSTALL16283:DOSINSTALL16316 MSLOTĢ12:15:"NO MOUSE...":23: =========================== Alter MOUSE.CLOCK for MSLOT ===========================3 (0)320:If installed, goH "(4)"BLOAD"DOS$ ,16416,192MSLOT:16421,192MSLOT:16423,MSLOT16:16427,192MSLOT 6INSTALL:MFLG1:CTYPE0 @HMEM(116)256:HMEM J=================== TDeclare Subroutines ^==================== hESC$(27):BS$(8):DL$(127):CR$(13)W rDOSSTARTMOUSE39936w |DOSSTARTMOUSEHMEM4256 (0)STARTMOUSE(1)256:use old address, if one OFFMOUSESTARTMOUSE24 ASSIGNSTARTMOUSE216 DISPLAYSTARTMOUSE233 HOURSTARTMOUSE1921 SCREENSTARTMOUSE171K DSPTGLSTARTMOUSE191e TIMLOCSTARTMOUSE196 (0)ČSTARTMOUSE:CTYPE0:TIMLOC,24:MFLG1:(DSPTGL)ČDISPLAY:restore default values if needed :0,0:1,STARTMOUSE256:flag MOUSE.CLOCK address for subsequent RUNs? ASSIGN,TIME$:Assign time to TIME$[ Move display to line 2 2:LOC(40)(401)25629:HBYTE(LOC256):LBYTELOCHBYTE256:SCREEN,LBYTE:SCREEN1,HBYTE OV%2:OH%29:I010:C(I)(LOCI): ========Get Date&========/0DTE$"":DOS650M:DTE(49040)(49041)256cDYEAR(DTE(29))NMNTH((DTEYEAR(29))(25))XDAYDTEYEAR(29)MNTH(25)4bYEAR84YEAR100MNTH0MNTH13DAY0DAY32DTE$("0"(DAY),2)"-"("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",MNTH32,3)"-"(YEAR)Gl=============ZvCreate Screenm=============1:6:"MOUSE.CLOCK (C) 1991 MINDCRAFT""DATE: "DTE$;:24:"TIME: ":DISPLAYLIN$"----------------------------------------"LIN$:34,3h23:LIN$;:18::24:"ESC-EXITS";:16:"SELECT:";:33:(" PRODOS 3.3",DOS41,7);:35,22:w=========Main Menu=========MENU$"MOUSE.CLOCK":17109:10:"D - SET DATE"::10:"T - SET TIME":&10:"C - CLOCK PARAMETERS"::10:"E - EVENT TIMER DEMO":V10:"M - MOUSING AROUND"::10:"Q - QUIT"sCMD$ESC$"DTCEMQ":1540 CMD1450,820,970,1080,1220,1320,1450======== Set Date*========4MENU$"SET DATE":1710#>12:15:"DD-MMM-YY";:COL15:NCHR2:F$"":1620:Q$ESC$730NHDAY((F$)):DAY1DAY31ĺ(7);:830R18:"MMM-YY";:COL18:F$"":NCHR3:1620:Q$ESC$830\I112:F$("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",I32,3)Ă:(7);:850fMNTHI:MNTH$F$:I13:*p22:"YY";:NCHR2:COL22:F$"":1620:Q$ESC$850YzYEAR((F$)):YEAR85YEAR99ĺ(7);:880DTE$("0"(DAY),2)"-"MNTH$"-"(YEAR)2:7:DTE$;DOSDTEYEAR(29)MNTH(25)DAY:49041,DTE256:49040,DTE(49041)256820======== Set Time========6MENU$"SET TIME":1710v12:16:"HH:MM:SS";:COL16:NCHR2:F$"":1620:Q$ESC$730HR((F$)):HR0HR23(CTYPE(HR1HR12))ĺ(7);:98019:"MM:SS";:COL19:F$"":NCHR2:1620:Q$ESC$980MIN((F$)):MIN0MIN59ĺ(7);:1000O22:"SS";:NCHR2:COL22:F$"":1620:Q$ESC$1000{SEC((F$)):SEC0SEC59ĺ(7);:1020HOUR,HR:HOUR1,MIN:HOUR2,SEC:970================$Clock Parameters.================ 8MENU$"CLOCK PARAMETERS":1710B10:10:"C - CLOCK ON / OFF"::10:"D - DISPLAY ON / OFF"::10:"T - CLOCK TYPE: ";::("2412",CTYPE21,2)"-HOUR":LCMD$ESC$"CDT":1540VCMD730,1120,1150,1180`MFLGČOFFMOUSEjMFLGČSTARTMOUSEtMFLGMFLG:1080C~LOC(SCREEN)(SCREEN1)256:(DSPTGL)āI010:C(I)(LOCI):rDISPLAY:(DSPTGL)āI010:LOCI,C(I):|1080CTYPECTYPE:TIMLOC,2411CTYPE:1080================Event Timer Demo================ MENU$"EVENT TIMER DEMO":1710h21:"PRESS TO START AND STOP":12:"START:":14:" STOP:":16:"ELAPSED TIME:"CMD$ESC$" ":1540:CMD730,1250X$TIME$:12:8:X$:14:8:868:16:15:868:1540:CMD730,1260Y$TIME$:14:8:Y$lET((Y$,2))3600((Y$,4,2))60((Y$,7,2))((Y$,2))100((X$,2))3600((X$,4,2))60((X$,7,2))((X$,2))10016:15:(ET100.5)100" SECONDS":868:1240 ==============Mousing Around==============(MENU$"MOUSING AROUND":1710=214:6:"USE MOUSE TO MOVE TIME DISPLAY":STARTMOUSE:MFLG1<(4)"IN#"MSLOT:(DSPTGL)LOC(SCREEN)(SCREEN1)256:I010:C(I)(LOCI)::DISPLAYFMOUSE01P4:1:"";X,Y,BTNZCV%Y431:CH%X35:CV%OV%CH%OH%1400tdDISPLAY:OV%:LOC(40)(41)256OH%:I010:LOCI,C(I)::CV%:LOC(40)(41)256CH%:I010:C(I)(LOCI)::OV%CV%:OH%CH%nSCREEN1,LOC256:SCREEN,LOC(SCREEN1)256:DISPLAYxMOUSE(BTN3):MOUSE16368,0::(4)"IN#0":730====Quit====MENU$"QUIT":1710F10:5:"THIS MENU EXITS TO BASIC.":5:"MOUSE.CLOCK IS INSTALLED AT:"::15:STARTMOUSE22:"PRESS TO QUIT...";CMD$ESC$CR$:1540:CMD700::23:==========Select Sub==========&24:16::"SELECT:";::24JQ$:Q(Q$):QQ32(Q96Q123)CMD1(CMD$):Q((CMD$,CMD,1))Ă:(7);:1550"Q31ĺ(Q);,24:16:"SELECT:";:6=========@Input SubJ=========TCOL:F$;:(F$)NCHRı!^Q$:(Q$)96(Q$)123Q$((Q$)32)6hQ$ESC$F$"":orQ$BS$Q$DL$Q$BS$:(F$)ĺQ$;:F$(F$,1,(F$)1)|Q$" "F$F$Q$1620========New Menu========:5:(41(MENU$))2::MENU$::89 ***********************= * GOTO -- GOSUB DEMO *[ * BY FRANK H. SWEET *y( * COPYRIGHT (C) 1990 *2 * MINDCRAFT PUBL.CORP.*< * CONCORD, MA 01742 *F ***********************: A short program to illustrate the& possibilities of using GOTOO and GOSUB to debug a BASIC programU :[ s "Enter a name ";N$ "Enter number of times to print it ";N 290 X12 : K112 K,KX   : " SUBROUTINE ,K1N 6N$ @K J;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghij% ****************************I * INVOICE.MASTER *m * BY MOVICH & STREIT *( * COPYRIGHT (C) 1991 * 2 * BY MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F **************************** PIN$"":D$(4):DD1& ZD$;"PR#3"1 d6160; n1090\ xC0:B$"":C$C$":":HT(C$)q :V1:868:C$; H,(B$)HT::" ";::H,HTSP:":"; CSPĹH,(B$)HT::":";: 280 PESı PH6ı P26220 CSP140 B$B$(P):CC1:H,HT:B$;:140T PRC1B$(B$,(B$)1):H,HT:B$;2):CC1:140v PRC1B$"":H,HT:2):C0 140 20:H,4:1052:"ESCape Key Pressed - Do You Wish To Return To The Main Menu? (Y/N)";:280:P89P1211250 P78P110ĹH,0:868:V1:140 2505 P(KB):P128280T "KS,0:PP128:P127P8:v ,(N$,1)"$"N$(N$,(N$)1) 6(N$,2,1)"$"N$(N$,1)(N$,(N$)H4) @ JI1(N$) T(N$,I,1)","N$(N$,I1)(N$,(N$)I) ^:, hN$((QU$(I))(TC$(I))):650:MTMT(N$):750:C0İ8006 rA$N$X |N$TC$(I):650:750:C0İ800 4(QU$(I)));QU$(I);2);H$;H5(H$));TD$(I);58(N$)(TD$(I)));N$;11(A$));A$ CC1 CRC0:H,ES:"Press Any Key To Continue":280::: : N$((QU$(I))(TC$(I))):650:MTMT(N$):750:I1İ800D A$N$f N$TC$(I):650:750:I1İ800 H$"1"T$TD$(I)": "N$:80(T$));T$: 4(QU$(I)));QU$(I);2);H$;H5(H$));TD$(I);58(N$)(TD$(I)));N$;11(A$));A$ N$""N$"0":I1(N$)0((N$,I,1))V45309540b((N$,I,1))45((N$,I,1))46560{((N$,I,1))57560&I:01052:H1:H,V1:"Your Entry Contained A Non-Digit Character- Please Retype":1000:H1:868:E1: :V2:H,21:"Press 'ESCape' To Return To ";M$;:_DV2:H,21:"Press 'ESCape' To Back Up ";:X132:" ";::N570:V1:H,0:868:"Is This Entry Acceptable? (Y/N)"X280bP78P110E1:lP89P121ıvPES1250600 (N$,1)"-"N$(N$,(N$)1):E1FN(N$):N(N100.5)100:N$(N):N0N$(N$,(N$)1)SN0720n(N$,1)"."N$"0"N$(N$)H4720(N$,(N$)2,1)"."730(N$,(N$)1,1)"."N$N$"0":730N$N$".00"E1E0:N$"-"N$(N$,1)"-"N$(N$,(N$)1):E1B(N$)6N$(N$,(N$)6)","(N$,6)o(N$)10N$(N$,(N$)10)","(N$,10) E1E0:N$"-"N$ Y$"$"N$:*1:H,H5:34,1:NI;" Billing Items Are In Memory. There Is Room For ";LNI;" More.":4I180:"=";:::5>34,0:::V3:H,H3::(TI$));:OHV31:H,H3::TI$;:pRV32:H,H3::(TI$));::\:M$"Main Menu":570:18::H,21:"Pressing 'RETURN' Defaults To Drive 1":V1:H,18:"What Drive Is Your Storage Disk In? (1-2)":@fSP2:C$"Code Number Of Billing Item":120:N$B$:490:E1E0:870TpB$""N(N$)ZzN1NNIė:10:H,24::1052:"Your Code Number Does Not Exist!";::V1:H,33::"Please Retype";::1000:E1!18:868:H,H1:"Press 'RETURN' When You Are Finished Entering Items":S(N$,1)"%"N$(N$,(N$)1):N$((N$)100)Y((N$))1(((N$)))9999980((N$))999999809901052:18:H,18::"Your Number Is Too Large...Please Re-Enter";::1000:18:H,0:868:E1?18:H,22:"Please Press RETURN To Continue.";YN$:x18:H,22:"Pressing Return Defaults To 1 ";TY$(A):61);:I1H2:"_";:::XMMF1:(X)NFL1:MF,A:FF1:TD$(F)DE$(A):QU$(F)N$:TC$(F)CU$(A):TT$(F)TY$(A):TA%(F)T%(A):$PPV46.:D$;"CATALOG,D";P::k8V2:H,V2:"Type '0' If No Labor Is Involved";:BH1403:KB49152:KS49168:L99:ES27:R8:M804LH115:H219:H43:H55:H613:H714:V112:V223:V448:V549:V650VI768803:A:I,A:~` 162,0,32,111,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,138,168,185,0,2,41,127,153,0,2,136,192,255,208,243,96jF0tT%(L):TA%(L)~DE$(L):CU$(L):TY$(L)QU$(L):TD$(L):TC$(L):TT$(L)6370:V1:H,21:"Loading DATA File - One Moment Please",D$;"CLOSE"@D$;"OPEN DATA"TD$;"READ DATA"TA:HR:NI:I1NI:768:T%(I)((IN$,1)):768:DE$(I)(IN$,1):768:CU$(I)(IN$,1):768:TY$(I)(IN$,1):4768:NA$(IN$,1):768:NC$(IN$,1):768:AD$(IN$,1):768:CI$(IN$,1):768:ST$(IN$,1):768:ZI$(IN$,1)ID$;"CLOSE DATA"xV31:H329:TI$" M A I N M E N U ":830R:H,H2:"1.) Generate A Statement":H,H2:"2.) Review The Statement On The Screen":H,H2:"3.) Edit The Statement":; H,H2:"4.) Print Out The Statement And Envelope":^H,H2:"5.) DATA File Menu":|H,H2:"6.) Disk Menu":(H,H2:"7.) Exit The Program":224:H,28:"Choose A Number (1-7)";<280:PPV4:P1P71340FP1360,1760,2170,3110,3690,5320,6140dP:M$"Main Menu":570:C$"Customer's Name":SPV6:120:H,0:1:B$:PES1250wZB$""CR$B$dC$"Customer's Street Address":580:120:2:H,0:B$:PES1360nB$""CA$B$xC$"Customer's City":120:H4:H,0:B$;:X(H):PESĢ2:H,0:6520:1380.B$""CC$B$C$"Customer's State":SPH7:120:H4:TX:H,X:", ";B$;:X1(H):PESĢH4:H,0:6520:1400B$""CS$B$C$"Customer's Zip Code":SP10:120:N$B$:PESĢH4:H,T:6520:1420H4:H,X1:" ";N$B$""CZ$N$ZC$"Today's Date- (MM/DD/YY)":SPR:120:PESĢH4:H,X1:6520:1440m6450:DF1470DB$B$:H5:H,0:"Date: ";DB$C$"Date Of Charges- (MM/DD/YY)":120:PESĢH5:H,0:6520:14706450:DF1500;DJ$B$:F0āI1F:QU$(I)"":TD$(I)"":TC$(I)"":TT$(I)""::F0:HL0:GT0:MT0W:920:870:B$""1720uN$B$:490:E1E0:1530900:E1E0:1530F01590"1030,FL1FL0:1052:H1:H,16:"Code Number ";N;" Is Already Used In This Statement!":1000:H7:868:153046N$CU$(N):AN:650:750:800@:"Code Number: ";A:"Item Chosen: ";DE$(A):T%(A)0ĺ"Non-Taxable":1620J"Taxable"T"Cost: "Y$^TY$(A)"0"1660h"Special Item":N$"1":590:E1E0:1530r1710O |"Unit Of Measurement: "TY$(A):1010:C$"Quantity To Bill":SPH4:120:B$""N$"1":1690m N$B$:490:E1E0:1660v 330 6:H,0:"Quantity To Be Billed: ";N$:18:868 590:E1E0:1530 1050:1530!C$"Hours Of Labor":SPH5::1080:120:N$B$:490:E1E0:1720 !3305!B$""HL(N$)D!SG1:1250R!SG1250\!:H5i!"From:"!NA$:NC$:AD$:CI$;", ";ST$;" ";ZI$!V1!"To:"!CR$:CA$:CC$;", ";CS$;" ";CZ$!&18!0DJ$""ĺ"Date Of Charges: ";DJ$":DB$""ĺ"Date Of Billing: ";DB$O"DV2:H,ES:"Press Any Key To Continue":280"N:820:1);"QTY"2);"TYP";22);"DESCRIPTION";V2);"UNIT";6)"TOTAL":820:34,H5"XMT0:C0"bI1F"lTA%(I)1H$TT$(I):360"vI"TTMT:MT0"I1F##TA%(I)0TT$(I)"0"H$TT$(I):360*#I9#TNMT:MT0D#I1Fk#TA%(I)0TT$(I)"0"H$"N/A":360r#I#::H,ES:"Press Any Key To Continue":280#34,0::1:820:H,29:"Statement Of Account"::820#TT0ST0:2060)$N$(TT):650:TT(N$):750:800:H,V2:"Total: ";Y$|$N$(TATT):650:STTT(N$):750:800::H,V2:"Sales Tax At ";TA100;"%: "Y$$N$(ST):750:800::H,V2:"Subtotal: ";Y$$ TN02080$N$(TN):650:750:800::H,V2:"Non-Taxable: ";Y$% HL0TL0:2100q%*N$(HRHL):650:TL(N$):750:800:N$(HR):650::H,V2:HL;" Hours Of Labor At $";N$;"/Hour: ";Y$%4MT02120%>N$(MT):650:MT(N$):750:800::H,V2:"Special Items: ";Y$%HN$(STTNMTTL):650:750:800&R:H,V2:"Total Amount Due: ";Y$::820J&\H,H2:"Press Any Key To Return To The Main Menu"R&fC0a&p280:1250&zV31:H317:TI$" S T A T E M E N T E D I T I N G M E N U ":830&7:H,H2:"1.) Delete/Edit/Add A Billing Item": 'H,H2:"2.) Change The Hours Of Labor":9'H,H2:"3.) Change The Billing Date":h'H,H2:"4.) Change The Date Of Charges":'H,H2:"5.) Change The Customer's Name":'H,H2:"6.) Change The Customer's Address"::(H,28:"Choose A Number (1-6)":M$"Main Menu":570(280:PES12501(PPV4:P1P62250V(P2280,2800,2850,2880,2910,2940(V3H4:H3H7:TI$" B I L L I N G I T E M E D I T I N G M E N U ":830(R:H,H2:"1.) Delete An Entire Billing Item")10:H,H2:"2.) Change The Quantity Billed"7) V1:H,H2:"3.) Add Another Billing Item") H1:H,29:"Choose A Number (1-3)":M$"Statement Editing Menu":570) 280:PES2170)$ PV5P512330). PV5İ2380:2450)8 PV6İ2380:2530)B P512610Y*L C$"Code Number Of Item On The Statement":SP2::M$"Billing Item Editing Menu":570:120:B$""2280:PES2280w*V N$B$:490:E1E0:2380*` N(N$):900:E1E0:2380*j 1030+t FL0Č1052:H1:H,17:"Code Number ";N;" Is Not Used In This Statement!":1000:H7:868:2380+~ FL0+ q+ :DE$(N):V1:H,20:"Do You Wish To Delete This Item? (Y/N)":M$"Main Menu":570:600+ E1E0:2380:2450+ I1F+ TD$(I)DE$(N)PTI+ , IPTF:TD$(I)TD$(I1):TC$(I)TC$(I1):TT$(I)TT$(I1):QU$(I)QU$(I1)::FF1', XMPT1MF1:X,(X1):1, 2170<, I1FT, TD$(I)DE$(N)PTIZ, , :TD$(PT):10:"The Quantity Billed Was ";QU$(PT), C$"The Correct Quantity Billed Is":SP4:120:N$B$:490:E1E0:2570, 330, B$""QU$(PT)N$-( 2170#-2 :920:870:B$""1250A-< N$B$:490:E1E0:2610Y-F 900:E1E0:2610g-P F02670q-Z 1030-d FL1FL0:1052:H1:H,16:"Code Number ";N;" Is Already Used In This Statement!":1000:H7:868:2610.n N$CU$(N):AN:650:750:800O.x :"Code Number: ";A:"Item Chosen: ";DE$(A):T%(A)0ĺ"Non-Taxable":2700^. "Taxable"n. "Cost: "Y$. TY$(A)"0"2740. "Special Item":N$"1":590:E1E0:2610. 2790/ "Unit Of Measurement: "TY$(A):1010:C$"Quantity To Bill":SPH4:120:B$""N$"1":27709/ N$B$:490:E1E0:2740B/ 330u/ 6:H,0:"Quantity To Be Billed ";N$:18:868/ 590:E1E0:2610/ 1050:2610/ :10:"The Number Of Hours Of Labor Is Presently ";HL'0 C$"Correct Number Of Hours Of Labor":SPH5:120:N$B$:490:E1E0:281000 330E0 B$""HL(N$)O0 2170x0" :10:"The Date Of Billing Is ";DB$0, C$"Correct Billing Date- (MM/DD/YY)":SPR:120:6450:DF286006 DB$B$:21700@ :10:"The Date Of Charges Is ";DJ$;1J C$"Correct Date Of Charges- (MM/DD/YY)":SPR:120:6450:DF2890L1T DJ$B$:2170u1^ :10:"The Customer's Name Is ";CR$1h C$"Customer's Correct Name":SPV6:120:B$""CR$B$1r 21701| M$"Statement Editing Menu":47201 280:PES2170 2 PPV4:P1P42950(2 P2980,3010,3040,3070[2 :10:"The Customer's Street Address Is ";CA$2 C$"Correct Address":SPV6:120:B$""CA$B$2 29402 :10:"The Customer's City Is ";CC$2 C$"Customer's Correct City":SPV6:120:B$""CC$B$3 294003 :10:"The Customer's State Is ";CS$l3 C$"Customer's Correct State":SPH7:120:B$""CS$B$v3 29403 :10:"The Customer's Zip Code Is ";CZ$3 C$"Customer's Correct Zip Code":SP10:120:N$B$3 B$""CZ$N$3 12504& 3120:319040 :10:H,20?4: "1) Put Paper Into Your Printer":e4D H,20:"2) Ready Your Printer":4N H,20:"3) Press Any Key Except 'ESCape' To Start Printing":M$"Main Menu":5704X 280:PES12504b (V1);(21):D$;"PR#1":4l 5v NA$:NC$:AD$:CI$;", ";ST$;" ";ZI$I5 :"TO: ";CR$:CA$:CC$;",";CS$;" ";CZ$:l5 DB$""ĺ"Billing Date: ";DB$5 DJ$""ĺ"Date Of Charges: ";DJ$5 :820:5 30);"Statement Of Account"5 :8206 "Quan";2);"Type";ES);"Items";V2);"Unit";6);"Total"6 820"6 :MT0:I1F?6 TA%(I)1H$TT$(I):430F6 I[6 MT0ST0:33806 N$(MT):650:TT(N$):750:8006 10206 T$"Total Of Taxable Items: "Y$::80(T$));T$6 N$(TATT):650:STTT(N$):750:800:(7 T$"Sales Tax At "(TA100)"%: "Y$:80(T$));T$:c7* N$(ST):750:800:T$"Subtotal: "Y$:80(T$));T$:w74 MT0:C0:I1F7> TA%(I)0TT$(I)"0"H$TT$(I):4307H I7R MT0TN0:34507\ N$(MT):650:TN(N$):750:8007f 1020'8p T$"Total Of Non-Taxable Items: "Y$::80(T$));T$:<8z HL0TL0:3480r8 N$(HRHL):650:TL(N$):750:800:N$(HR):6508 T$(HL)" Hours Of Labor At $"N$"/Hour: "Y$:80(T$));T$8 MT0:C0:I1F8 TA%(I)0TT$(I)"0"ĺ:H$"1":4308 I9 MT03530!9 N$(MT):650:MT(N$)+9 1020P9 N$(STTNMTTL):650:750:8009 T$"Total Amount Due: "Y$::80(T$));T$9 :61);:I1H2:"=";::9 D$;"PR#3"9 ::V1:H,29:1052:"Print Envelope? (Y/N)":280:PESP78P1101250:P89P1213610:3580K:::9:H,20:"1) Put Envelope Into Printer":$V1:H,20:"2) Press Any Key To Print Envelope":M$"Main Menu":570:.280:PES1250:8(V1);(21):D$;"PR#1":BNA$:NC$:AD$:CI$;", ";ST$;" ";ZI$:L:::+;V32);CR$:32);CA$:32);CC$;", ";CS$;" ";CZ$@;`D$;"PR#3":1250y;jV3H4:H325:TI$" D A T A F I L E M E N U ":830;tR:H,H2:"1.) Setup The DATA File":10:H,H2:"2.) Add A Billing Item":V1:H,H2:"3.) Delete A Billing Item"w<~H7:H,H2:"4.) Edit A DATA File Item"::H,H2:"5.) Make A Printout Of The DATA File"::H,H2:"6.) Review DATA File On Screen"<21:H,29:"Choose A Number (1-6)":M$"Main Menu":570<280:PES1250<PPV4:P1P63730=P3760,3870,4050,4190,4940,51705=:C$"Your Name":SPV6:120:B$""NA$B$f=C$"Your Company's Name":120:B$""NC$B$=C$"Your Street Address":120:B$""AD$B$=C$"Your City":120:B$""CI$B$=C$"Your State":SPH7:120:B$""ST$B$>C$"Your Zip Code":SP10:120:N$B$'>B$""ZI$N$>C$"Sales Tax Rate- Example: Enter 6.5% As .065":120:N$B$:930:490:E1E0:3830>B$""TA(N$)> C$"Your Hourly Labor Rate":958:1080:120:N$B$:300:330:490:E1E0:3850?B$""İ650:HR(N$)K?C$"Description Of Item":SPV4::810:920:120:B$""Ĺ34,0:3690k?(G$B$:H4:H,0:"Item: ";G$ @2C$"Unit Of Measurement":SPH4:18:868:H,22:"Pressing 'RETURN' Defaults To 'Ea'":20:H,21:"Press '0' To Designate Special Items":120:B$""B$"Ea"@<18:H,0:958k@FH$B$:H$"0"Ģ4:H,0:"Special Item":C$"Cost Of The Special Item":3940@P4:H,0:"Unit Of Measurement: ";H$@ZC$"Cost Per Unit"@dSPR:120:N$B$:300:330:490:E1E0:3940@n950:E1E0:3940Ax650:B$N$:750:800:H5:H,0:Y$HAH$"0"TF0:6:H,0:"Non-Taxable":4020vAV1:868:"Is This Item Taxable? (Y/N)"A280:P78P110TF0:6:H,0:"Non-Taxable":4020AP89P121TF1:6:H,0:"Taxable":4020A3990B7:"Intended Code Number: ";NI1:590:E1E0:3870^BB$""NINI1:CU$(NI)B$:DE$(NI)G$:TY$(NI)H$:T%(NI)TFmBDG1:3870B:C$"Code Number Of Item To Be Deleted":SP2:M$"Main Menu":570:120:B$""3690BN(B$):900:E1E0:4050C1:H,0:"Item: ";DE$(N)/C2:H,0:TY$(I)"0"ĺ"Special Item":4100SC"Unit Of Measurement: ";TY$(N)kCN$CU$(N):750:800CH4:H,0:"Cost: "Y$C4:H,0:T%(N)1ĺ"Taxable":4140C""Non-Taxable"C,H5:H,0:"Code Number: ";ND6570:V1:H,0:868:"Delete This Item? (Y/N)":600)D@E1E0:4050}DJINNI:DE$(I)DE$(I1):CU$(I)CU$(I1):TY$(I)TY$(I1):T%(I)T%(I1)::NINI1DT3690D^V31:H317:TI$" D A T A F I L E E D I T I N G M E N U ":830wEhR:H,H2:"1.) Change A Description":H,H2:"2.) Change The Unit Of Measurement":H,H2:"3.) Change The Cost/Unit":H,H2:"4.) Change The Tax Status Of An Item"ErH,H2:"5.) Change The Sales Tax Rate":H,H2:"6.) Change Your Hourly Labor Rate":H,H2:"7.) Change Your Name"=F|H,H2:"8.) Change Your Company Name":H,H2:"9.) Change Your Address":F21:H,29:"Choose A Number (1-9)":M$"Data File Menu":570F280:PES3690FPV5P574240FPPV4FP4280,4330,4390,4470,4560,4610,4650,4680,4710F:870:B$""4190G900:E1E0:4280DG:R:"The Present Description Is ";DE$(N)zGC$"New Description":SPV4:120:B$""DE$(N)B$G4190G:870:B$""4190G900:E1E0:4330H:R:"The Billing Item Is ";DE$(N):10:"The Existing Unit Of Measurement Is ";TY$(N)yHC$"New Unit Of Measurement":SPH4:18:H,22:"Pressing 'RETURN' Defaults To 'Ea'":120:B$""B$"Ea"HTY$(N)B$H4190H&:870:B$""4190H0900:E1E0:4390H:AN)IDN$CU$(N):750:800::R:"The Billing Item Is ";DE$(N):10:"The Existing Cost/Unit Is ";Y$nINC$"New Cost/Unit":SPR:120:N$B$:300:330:490:E1E0:4430IX950:E1E0:4430IbB$""İ650:CU$(A)N$Il4190Iv:870:B$""4190I900:E1E0:4470IT%(N)0G$"Non-Taxable":4510JG$"Taxable"J:R:"The Billing Item Is ";DE$(N):10:"This Item Is Currently ";G$:V1:"Do You Wish To Change It? (Y/N)"J600JE1E0:4190JT%(N)0T%(N)1:4190JT%(N)0:4190K:10:"Your Sales Tax Rate Is Presently ";TA:570cKC$"New Sales Tax Rate- Example: Enter 6.5% As .065":SP6:120:N$B$:930:490:E1E0:4570xKB$""TA(N$)KN$(HR):750:800K4190KN$(HR):650::10:"Present Hourly Rate Is $";N$:570"L C$"New Hourly Labor Rate":SP6:120:N$B$:300:330:490:E1E0:46204190LH:10:"Your Company Name Is ";NC$MRC$"The Correct Name Is":SPV6:120:B$""NC$B$M\4190;MfM$"Data File Editing Menu":4720:4790MpV3H4:H3H2:TI$" A D D R E S S E D I T I N G M E N U ":830MzR:H,H2:"1.) Change The Street Address":M10:H,H2:"2.) Change The City":NV1:H,H2:"3.) Change The State":.NH7:H,H2:"4.) Change The Zip Code":^N18:H,29:"Choose A Number (1-4)":570:rN280:PES4190NPPV4:P1P44780NP4810,4840,4870,4900N:10:"Your Address Is ";AD$NC$"Correct Address":SPV6:120:B$""AD$B$ O4720:4790*O:10:"Your City Is ";CI$aOC$"The Correct City Is":SPV6:120:B$""CI$B$qO4720:4790O:10:"Your State Is ";ST$OC$"The Correct State Is":SPH7:120:B$""ST$B$O3690O$:10:"Your Zip Code Is ";ZI$)P.C$"Your Correct Zip Code Is":SP10:120:N$B$:V1:H,20:"Press Any Key To Erase And Initialize":H7:H,26:"A Storage Disk In Drive #";DP:V2:H,ES:"Press 'ESCape' To Abort":280:PES1250^H:V1:H,29::"INITIALIZING YOUR DISK";:_R42344,76:44793,11:44723,4:43273,65_\:D$;"INIT D"DPG_f42344,32:44793,5:44723,12:43273,33_p:V1:H,18:"Your Disk Is Now Ready For Storing Statements":1000:5320_zNI1ė:1052:V1:H,26:"Sorry- No Data In Your File":1000:5320`:V1:H,30:"Saving Your DATA File" `D$;"UNLOCK DATA,D";DD4`D$;"OPEN DATA"D`D$;"CLOSE"Z`D$;"DELETE DATA"n`D$;"OPEN DATA"`D$;"WRITE DATA"`TA:HR:NI:I1NI:T%(I):DE$(I):CU$(I):TY$(I):`NA$:NC$:AD$:CI$:ST$:ZI$`D$;"CLOSE DATA"aD$;"LOCK DATA"a5320ta:V1:H,10:"Do You Wish To Update The DATA File Before Exiting? (Y/N)":600:E1ĺ(21)::~a6020aD$;"PR#3":D$;"CLOSE"a(222)H56210a$:1052::V1:H,25:"Error #";(222);" In Line ";(218)(219)2560b.16:H,H2:"Press Any Key To Return To The Main Menu"?b8280:1250bB::1052:10:H,H5:"The DATA File Necessary To Run This Program Was Not Found On This Disk"bLNI06190bVV1:H,18:"Do You Wish To Create This File? (Y/N)"c`600:E1E0:1250cj:V1:H,1ct"Please Specify The Drive Number Where The Data Is To Be Stored (1/2):";DD$:(DD$)1(DD$)2ĺ(7):6250c~DD(DD$)c:V1:H,26c"Initializing Your DATA File"cD$;"CLOSE"cD$;"OPEN DATA,D";DDdD$;"WRITE DATA"dI1V4:0::I1R:" ":4dD$;"CLOSE DATA"d::V1:H,7:"From The DATA File Menu Select Option 1 To Set Up Your DATA File":1000:1000d3690dV32:H329:TI$" INVOICE MASTER ":830d9:H,39:"By"e11:H,32:"Joseph A. Movich"eH6:H,38:"and"=e H1:H,32:"Barney D. Streit"zeH2:H,18:"Copyright (C) 1991 By MindCraft Publ. Corp."eV2:H,28:"Press Any Key To Continue"e(280:e2MP((B$,2)):DP((B$,4,2)):YP((B$,2)):S1$(B$,3,1):S2$(B$,6,1)f<MP1MP12DF1:65102fFDP1DP31DF1:6510MfPYP0YP99DF1:6510ofZS1$"/"S2$"/"DF1:6510xfdDF0~fnfxX5179:" ";::gNF1:(F$)0āNC1(F$):NA((F$,NC,1)):NF((NA64NA91)(NA46)(NA47NA58NC1))NF1::(F$)15NF0IV1:gIV0:lmnopqrstuvwxyz{********************************** * MOUSE.CLOCK Source Code * * By John R. Vokey * * (C) 1991 by MindCraft Publ. * ********************************** ; ; *================================= ; Equates *================================= ; * Set System DOS: PRODOS EQU $21 PRODOS = $21, DOS = 0 ; * Monitor: ACC EQU $45 save A loc on IRQ SAVEA EQU $FC temp for Acc SAVEX EQU SAVEA+1 temp for X reg SAVEY EQU SAVEX+1 temp for Y reg SCREEN EQU $41D 40-col screen position USER EQU $0000 User's interrupt handler ; * Applesoft: CHKCOM EQU $DEBE Check for comma at TXTPTR PTRGET EQU $DFE3 returns variable pointer VARPNT EQU $83 Applesoft pointer ERROR EQU $D412 error routine ; * Mouse: MSLOT EQU $C400 assume slot 4 NUM EQU $FF used as a temp ; * ProDOS: ALLOC EQU $40 allocate interrupt code MLI EQU $BF00 Machine Language Interface DATETIME EQU $BF06 Date/time jump PTIME EQU $BF92 time locations BITMAP EQU $BF58 system bit map GOSYSTEM EQU $BE70 BASIC.SYSTEM command call GETBUFR EQU $BEF5 Get Buffer ERROUT EQU $BE09 error exit ; * DOS 3.3: BUFCNT EQU $AA57 # of buffers to create BUFPTR EQU $9D00 pointer to new buffer BUFBLD EQU $A7D4 build buffers DOSLOC EQU $9C00 relocation page ; * Origin: ORG $4000-$44-PRODOS ; *================================= ; Relocate *================================= ; DO PRODOS LDA #1 ask BASIC.SYSTEM for 1 page JSR GETBUFR BCS BADERR Error STA VARPNT+1 (for move) PHA save it LSR A shift down LSR A LSR A TAX use as index into bitmap PLA EOR #$FF complement AND #$7 mask off high bits SEC TAY LDA #0 clear Acc PLOOP ROL A shift 'Y' times DEY BPL PLOOP ORA BITMAP,X set bit STA BITMAP,X flag "used" LDA VARPNT+1 recover hbyte STA P2 STA P4+1 ; ELSE LDA #>DOSLOC lbyte of space SEC SBC #$26 name, pointers, etc. STA BUFPTR LDA #IHAND P2 DFB IHAND STA $3FE D2 LDA #SAVTIME and point to STA DATETIME+1 time routine P4 LDA #= 10^Y? BCC NUMOUT No, done T5 SBC POFTEN,Y Yes, divide by subtraction STA NUM save remainder PLA count divisions SEC add 1 to Acc ADC #0 PHA save again BCC LOOP always taken NUMOUT PLA recover digit (0-9) ORA #$30 ASCII "0" + digit T6 STA OUTSTR,X save ASCII equivalent INX next output loc DEY next digit BPL INLOOP INX skip delimiter PLA recover Y TAY INY CPY #4 All done? BCC TOUTLP No, go again S1 LDA DSPTGL Yes, display to screen? BEQ ALLDONE No, go LDY #10 else, 11 chars to go S2 LDA OUTSTR,Y get char STA SCREEN,Y store to screen DEY BPL S2 ALLDONE CLC mark successful call ; *================================= ; Exit *================================= ; EXIT DO USER JSR USER do User's handler ELSE NOP NOP NOP FIN ; LDA SAVEA recover regs STA $45 how we were called... LDX SAVEX LDY SAVEY ; DO PRODOS NOP keeps offsets equal RTS ; ELSE CLI for DOS RTI FIN ; *================================= ; Internal variables *================================= ; TIMECNT DFB 3 DSPTGL DFB 0 init to off TIME DFB 0,0,0,0 TIMLIM DFB 24,60,60,100 POFTEN DFB 1,10 MSB OFF OUTSTR ASC '00:00:00 00' PTR DFB 11,>OUTSTR,";::B$:B$(27)570:B$S$ČF:110d xB(B$):B1B5110:6B2:3::A$(B)::B150,140,260,250,340n LOADv Z1 500:170 D$"VERIFY"A$:216,0:180 440:150 942:ZB$"":(956)6200:B$",T$C1":(956)193200:230 ZB$",T$C0":(956)192230? D$"BLOAD"A$",A$1400,L$8000"B$:Z220 254,(957):18:C:20:10::" UNPACKING PICTURE "::U:90 M:90 1::"WRONG FILE TYPE";:470:150 SAVE Z1:N32768:M2:280" 18:C::10::" PACKING PIC "::P:(254)0Ğ:"PACK ERR";:470:90: N(237)256(238)I 500:300 "D$"VERIFY"A$:19::N$"PIC EXISTS - ENTER A NEW NAME":510:290 ,530 6D$"BSAVE"A$",A$1400,L"N:216,0:Z90 @942:945,195:952,7:956,192:957,1:958,0:942:945,196:952,10:90 JPREFIX3 T19:"Type new prefix"B ^390:370_ hD$"PREFIX"A$:216,0:90 r19:1::"PATH NOT FOUND - TRY AGAIN"::350 |INPUT A$"":L0 20:1::"->";::A$;:C:B$:B(B$):L0B13400:B32ČF:400:B13490:B27590:(B8B127)(L0)LL1:L0390:A$(A$,L):400B44430:(B122B46(B57B65)(B90B97))400:B90B$(B32)A$A$B$:LL1:4001::"PIC NOT FOUND - HIT A KEY FOR CATALOG";::CB$:B$(27)590:B$S$ČF:450 :D$"CAT":#" - HIT A KEY";::CY16384,128:B$:B$(27)590:B$S$490:F:480_N$"Type pic name (CAT=CATALOG)"19:1:C:N$;::390:A$"CAT"ė:D$A$:510:E(222):1:E6ĺ"DISK NOT FOUND";:560E9ĺ"DISK FULL";:560&"ERR: "E!0470:90L::::173,41,192,73,192,141,41,192,96D"LOAD AND UNPACK A PIC","LOAD A NON PACKED PIC","PACK & SAVE A PIC","SAVE A NON PACKED PIC","CHANGE PREFIX"N:90) @)0 +"8)` é 󠤰䠤ű捪űű򍪠Ųű卪려ŠՠύŠՠϠՠðǠؠűύŲűōϠűŠŠū򠱶ҠҍύŠϠ占ؠàŠŠ΍ōРŠŠō려려űĠűűō려ű려ŠűԠԠű٠Ϡ卍Š占󠤰ؠ°썠̠űàΠŠ΍ōŠ占ϠύӠ嬠Ԡƍ  G&ɠɀ @  ` ) ( ũ ` HHJJJhI)8*XX??@@H@h @?L ,@L@ @ x  @X`LxHč*@Ġ@hLإE @uxξ@o@y@@@@@ @@H@H@ @h8iHh 0@hϭ@ @E`< ȏ6 . ) ɟ"     Lb#b#ŠϠĠԠ  m# m# J Qڨ)̰}]! нȱ ̀𩠙 i  a Y n ɟg   VR6  .X ɛL " e ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`<YYZLYLYLY뿭` 8!@8` R%MNЩUMߩ  L 5   8 0 8  `0 / X?&G& e&&q&P&0`ŠӠֱ̭ԠŠҬî̠ӠĮʎ1&… )n&Dž )\%T&L()8= )J 81(&2(& m((ʎ1ζ&ζ&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 C(`L%12 `_3("L  <8# ȱ)ɀ  );( ` (Xp< @;( )m;(;(.;(>( M;(i  ``) '(j21 & &!` )&&(i(&(( CBDFGE !)&$ m(,&& … m(ŅL7'JJJJ`Ϡ3(8`&h)hrȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ )+ C* )L2)`Ly* U*L) ) L2) )L)8e` ,$`ee` `+ *+ *` * * *`hh8`8`+++`}+`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <x0HH1HH "hh+("i 0Ꮻ\Ꮸ0hh8(`hhh8k/<ʆ>-=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B f-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P") ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA C'KI؍0JHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 F LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a ,FإGؐ.` ,JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFȱJL8`GBJ R FإG`BH RFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL)J  8"L zH  8 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 $pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) 9⬂Ȣ؝z@zݚ@ʈLN KIJHȢݚ h魚)Jn 8 δ ؍ ؍ `H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H ; h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ -ȹP8` i` ;ם0 -B ;)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J -טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`H GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`HхhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-89APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ`` ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ح o âXoύX1021ʆ ")i/ d+ M# L $0)0ei B = )n  Э` M )ЏL6  9 X [ ?  W" !# n. n'% n% n ɍ+Ɋɋɉɛݮʽ/ L6L[  Mȱ蝀` ̭  ( 9 X L $ ` & & & &e`{8i [`0{2H* Ah2  Mȱ  L `κºú` GAB0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE! *************************A * REMEMBER *a * BY D.D. JOHANNESEN *( * COPYRIGHT (C) 1991 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F *************************PMN$(12),DM(12),ED(12)! ZD$(4):CR$(13):C$" CALENDAR"* d:6 n12:"CALENDAR STARTUP":11:"BY D.D. JOHANNESEN":8:"(C) 1991 MINDCRAFT PUBL." xD$;"OPEN";C$ D$;"READ";C$ I112:MN$(I):DM(I):ED(I): I06:DY$(I): D$;"CLOSE";C$ Y DT(Y1704)365.25 DT(DT)SW1N CR$;"ENTER DATE PLEASE";CR$;" (M,D) - ";W M,D M1M12D1D(DM(M)(M2SW))ĺCR$;"INVALID DATE!";CR$:200 768,M:769,D:770,Y1900 DYED(M)D(M1SW) M12ED(1)365SW 370 EV$,ME,DE,YE$ "EVED(ME)DE(ME1SW)A ,DIEVDY:DI0DI15280b 6DA(DT)ED(ME)(ME3SW)DE @DW(7(DA7(DA7)).5) JDI0ĺEV$;" IS TODAY.":360 TEV$;:(EV$DY$(DW))20ĺ ^" WILL BE ";DY$(DW);"DAY, ";MN$(ME);" ";DE;CR$ h280 r216,0: | 1990?  "APPLE EATER'S USER GROUP",11,10,90e  "UNLCE SAM'S BIRTHDAY",7,4,1776|  "TAXMAN",4,15,00  "AUNT TILLIE'S ANNIVERSARY",8,8,8  "VETERAN'S DAY",11,11,90  "CHRISTMAS",12,25,00X(1)40:U((1)23):Y(Z)102440(Z8)128(Z(Z8)8):I160:J(Y(U)X):W(JI):UUW(22U):VU22:K(Y(V1)X):Y(V1)X,J:Y(VW)X,IW(KI):L(49200):IK::dN::::21:"ARROWS TO MOVE, D+E FOR DRAW+ERASE MODES":X20:Y20:768,1A$:A(A$):XX1(A21)1(A8):YY1(A10)1(A11):B(768):768,(A68B1)(A69):C(768):C15:C3:X,Y:X,Y:A132:16297,0:16300,0:16301,0:16304,0:?=CB<> , `) )4)4`)4` Ӯ é Š°îōŠŠϠԠĠŠҠōŠϠŠӠԠǠˠ٠٠ƍ٠٠č٠٠٠ٍ٠٠Í٠ōҠŲà占ҠŠӠ卍ӠðōðððūĠưðӍ卍ϠōðūðӍԠƍ  ************************? * SLIDE SHOW *^ * BY PETER STUBBS *} * COPYRIGHT (C) 1991 * * MINDCRAFT PUBL. CORP.* * CONCORD, MA 01742 * ************************(60f 2::"The files, PIC.MOVE, SLIDE.BIN,":"and UNPACK must be placed in the current";:"directory before running this program.":o <50 F(21):D$(4) PBLANK4976:YES5005:NO5026:M5040:U768:J:A$(J):I1J:A$(I):R ZD$"BLOADSLIDE.BIN":D$"BLOADUNPACK":D$"BLOADPIC.MOVE,A5040":::I140:"_";:I::" -SUPER RES SLIDE SHOW BY PETER STUBBS- ":: d"Copyright (C) 1991 MindCraft Publ. Corp."::"Press RETURN to display next picture or"::"Press ESC to exit" nBLANK:190:YES xI1J:180? D$"VERIFY"A$(I):942:T(956):B$"":T6140:B$",T$C1":T193140:B$",T$C0" D$"BLOAD"A$(I)",A$1400,L$8000"B$:B$",T$C0"Ĺ254,(957):U:160 M 216,0:190 I:120 (7);:120 D13000:X(16384):X128D3000:16368,0: Delay & Check Keypress D:X128ı X141ı5 X155ġ::NO:> 190U 2:NUMBER OF PICS "PIC.ONE","PIC.TWO":PICTURE NAMES GO HERE AND IN SUBSEQUENT DATA STATEMENTS ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************& K THANKS TO RUSS HOUGHTON OF BALTIMORE, MD., FOR REVISING THE OPENING GRAPHIC (11-90).1 P16384H Z::D$(4):(21)R d970 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHES x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BLOAD STARTUP.SCREEN") G(16297)(16300)(16301)(16304)Z ********** READ INFO FROM NIBMENU TEXTFILEd 1120 P$(20): P$ = PROGRAM NAME S$(300):S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM" MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU9 D$;"OPEN NIBMENU"P D$;"READ NIBMENU"i A$: A$ = DISK NAME NA$"NIBBLE "A$:22:20((NA$)2):NA$:1 NP: NP = NUMBER OF PROGRAMS ON DISK I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES% "I1MM:MP$(I):RC$(I):I- ,S$5 6I0J @II1:768,S$(I)d J(S$(I),1,1)"#"350m T320} ^D$;"CLOSE" h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!":C "The programs on this disk are:":\ Z1NP:5:P$(Z):Zx 1030:FLAG$"ESC"ī600  ********** CYCLE THRU NIBMENU TEXT SCREENS A1 :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600S$(A)"#"510 S$(A)AA1:460J ********** LAST TEXT SCREEN BEFORE MENUS:3{6:"Thanks again for your order !"12:6:"ALL PROGRAMS ON THIS DISK ARE"&6:"COPYRIGHT (C) 1991 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP.")56:"52 DOMINO DR, CONCORD MA 01742"Y::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"cD1030N ********** SET UP MENUXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";)v5:20((A$)2):A$PI1ME2:61I:8:I". "MP$(I):y61(ME1):8:ME1". Catalog Disk"61ME:8:ME". Quit"21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1/ ********** SELECT CHOICEQNSL:OSSL:780:Z0:24:8681:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380CSLSLZ(Z10):SLSLME(SLME)ME(SL1)[NOS:780:Z10700d800 ********** PRINT POINTER SUBROUTINE 61N:SX:X$(SLOS);: ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:680:42:1:" "::2:1:RC$(SL):g> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100:D$;RC$(SL)R ********** CATALOG SELECTED \:49168,0::D$;"CAT":f24:7:"Press to continue"; p49168,0:49152,128:-z ********** QUIT SELECTEDl22::958:"Do you really want to quit? (Y/N)";:49168,049168,0:49152,128(49152)249(49152)217Ĺ49168,0::1100: ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ:C ********** ERROR HANDLING ROUTINEK:l(1101)6ė:D$"PR#A$300"(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "A23:"Press to continue ";:958:49168,0:49152,128:600f ********** WAIT FOR KEYSTROKEsFLAG$""23:" for next page or for menu";:49168,0:49152,128(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE?8I013:ML:768I,ML:I:D$"PR#A$300":sB ********** DETACH UPPER/LOWER CASE HANDLER L(4);"PR#0":V ********** INSTALL INPUT-ANYTHING ROUTINE`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATALt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0? ********** UPPER/LOWER CASE ROUTINE DATAy 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0p|~p|*U*U*U*U*U*(@?p~px|xժժժժժT*@?p~px|ЪժժժՊdO U @?`p~?pxԊԪ`|yg~0 cFc U*U*U*@@P*U*U*U*U*U c `Lgsc `0L| 0@ ժժժժժժ F`pO|`*U*U*U*U*U*0p|~p|(U*U*U*U*U**@?p~px|ժժժժժ`AT*@?p~px|xժժժՂn_? U@?`p~ppp}{c0 cFc(U*UA*U*ԪժժժժՊc|`LqFn|cx``G  pO?<ժժժժժժpaGo1G1v`cOFq3\qsqpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U**@?p~px|ժժժժժ`AT*@?p~Ap||xժժժՂN?p Upysc'C&0.cFc(U*U P*U*@c|@`?|1@?<Ԫժժժժժժժժժժժ3L;sL1 3N0fF3F0f`pO|`*U*U*U*U*U*@?~yg|sO?~yg|sO?~yg|sO?~ygp|~p|(U*U*U*U*U*@*@?p~px|ժժժժժpcU*@?p~p|ժժժ_?@>| Ux{w cY#8X03X0FC30*U*U*U*U*Uc ``c 3@ Ԫժժժժժ`ժժժժժժ0LsL1 ?pgF1Fq1fqappO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*@*@?p~px|ԪժժժժpcU*@?`p~p|ժժժ?~ GC@F Uxsg`c00@` 80`gF1\y1\yax1~p*U*U*U*U*U*@?p~Ap||x U*U*U*U*U*P*@?p~px|ԪժժժՊpgU @?`p~p|ժժ@?~|sp#XqF1 ;FpC ;P*  U @?~yg|sO?~yg|sO?~yg|sO?~yg@*U*U*U*U*Uc `]gs`gL`0L3 ?|1@ ժժժժժժ@pO|`ժժժժժժ0p|~pp*U*U*U*U*U*@?p~px|x U*U*U*U*U*T*@?p~px|ЪժժժՊtoU @?`p~p|ժժ`~} CCk<F9 gfCgU*(U*P*U*U*U*U*U c `Lgs0c|`0L  0@ ժժժժժժ F0`pO|`ժժժժժժ0p?|~?px*U*U*U*U*U*) @)JW> d  iH'"h `  H"H HQH 8j z}!`0`8)` ĸ`  é ӬԠ̠ةŠźؠčؠĠӠӠ􍪠ؠĠ􍪠ؠĠŠԠ􍪍ŠԠō 􍪍ؠĠŠ獪ؠĠà纭ᩮĠˍ⩮Ġ徬Ԥð㩮̠Ϡ쩍䩮ˠؠč 婮 卪ǠҠҍŠՠύҠՠҠՠҠՠŠ렰ӠՠĠϠՠðŠՠōŠՠ㍍РðŠðōѠˠӠРԠѠˍРŠԠ獠ҠŠŠō卍ؠ٠ˠ덍ӠԠ덍˲ҍڠҫű㍠ҍޤűҫ㍠à䠤à፠Ҡ卍덍ؠɠҍҠϠҍ덠ŠҠҠ덠Ҡ占Ҡ덠ؠ썠̠űﮠԠҠŠΠŠ΍Ӡ􍍪ӠӠؠˠڠЫ፠Ҡ̠ڠ󠳲占፠퍠堸Π卍ŠԠˠƠ쮠ƍЫ쮠򮍠Ҡ̠占፠퍠堸󍍪Š̠ӠϠԠԠŠΠà򠳲򠶴占̠͠栳占à򠶴͠ؠ Ҡ Š̠űİؠ䍠ؠ§ŠōؠҠŠᠱٍ٠ٽ򠤳İ덠˲卍ŠŠӠĠ٠ˠˍؠ̠ؠРؠ̠űŰ؍؍ؠŠЍӍؠŠàŠŠ΍ōРӍŠàΠŠ΍ōؠōðӍϠؠčϠҠưӠɍ ô占ӠҠӍӠ ﮠŠӠӠӠŠӠŠӠؠčŠӠĠӠŠӠŠӠŠӠŠӠҠӠӠ占Ԡƍ