L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u``č      Ӎ  ōō      ٍ  ٍ    ٍٍō  ׍    ٍō            ٍ Ǎ       ٍՍč           ٍ͍   Ӎ΍          ٍō     ӍՍ       ٍ ٍ ƍ        ȍҍ     ō       ōǍ ԍ͍ō Ӎ     ōύ      ōԍ      ΍     ΍ ōč        Í ٍō      Ӎ       ٍ      ٍ              ٍ           ** DENVER-COLORADO 80217 ** *****************************2000: CONTROLLED SHUTDOWN5 CONTROLLED SHUTDOWNs:::" PROGRAM TERMINATED DUE TO":" ERROR "A" LINE #"ByYPò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 HIS DISK "::1070640 ERROR #11: COMMAND SYNTAX, WHICH MEANS THAT FILE IS BEING SAVED THAT BEGINS WITH A NUMBER, ETC.1050:" YOU MUST START NAME WITH A LETTER A-Z ";::1070530l ERROR #12: NO FILE BUFFERS, SHOULDN'T HAPPENvOLLED SHUTDOWN(@ ERROR #9: DISK FULL[J1050:" DISK IS FULL, USE ANOTHER ! "::1070dT640 ERROR #10: FILE LOCKED, WHICH MEANS TABLE NAME IS BEING SAVED THAT ALREADY EXISTS ON THE DISK.1050:" YOU ALREADY HAVE A ";SHAPE$:" TABLE ON TLLED SHUTDOWNEF1050:" ";SHAPE$(I);" NOT ON THIS DISK ! "::1070NP270x ERROR #7: VOLUME MISMATCH, SHOULDN'T HAPPPEN2000: CONTROLLED SHUTDOWN ERROR #8: DISK I/O1050:" DISK ERROR - USE NEW DISK !! "::10702000: CONTR400 ERROR #5: END OF DATA, SHOULDN'T HAPPENP2000: CONTROLLED SHUTDOWNo ERROR #6: FILE NOT FOUNDB4401350: ELSE "MENU" IS BEING RUN.(1050:" MENU IS NOT ON THIS DISK ! ":" PROGRAM WILL TERMINATE... "::1070 22000: CONTROEPRESENTING ERROR CODES 4 THROUGH 12XC1100,1200,1300,1400,1500,1600,1700,1800,1900j21::958:.J13:(7);:J:J13500::L ERROR #4: WRITE PROTECTV1050:"DISK IS WRITE PROTECTED !!":"CHANGE DISKS... "::1070`6E$;",A";START;",L";(SH1)START;",V0"BD$;"LOCK ";SHAPE$;",V0"J:bD$"RUN SHAPE MENU"A(222):B(218)(219)256: A IS ERROR CODE AND B IS LINE # WHERE ERROR OCCURED.A4A122000: CONTROLLED SHUTDOWN$CA3: C=1 THROUGH 9, R";(SH1)STARTI1NUM:I;"-";SHAPE$(I),:I:::"DO YOU WANT TO SAVE THIS":"SHAPE TABLE ? (Y OR N) ";:16303,0:A$:A$"Y"680A$"N"640730:::"TYPE THE TABLE'S NAME: ";SHAPE$SHAPE$""660%D$;"BSAVE ";SHAP 0:3:3&22:6:"SCALE=1";:26:"SCALE=4";90O:Y79:X155:X2190DI1NUM:24:1:868:20((SHAPE$(I))2):SHAPE$(I);N1:IX1,Y:4:IX2,YXJ12000:Jb1:IX1,Y:4:IX2,YlIv:"START: ";START;" LENGTH: SHAPE "I" MEASURED FROM "START" (0)Z ADR,MD(B): POKE ADR,B MOD 256 IN INTEGER BASICk ADR1,B256s B0 ADRADR2: INCREMENT ADDRESS TABLE FOR NEXT SHAPE SHSHLN: NEXT SHAPE START LOCATION I DRAW SHAPES ON SCREEN TO VERIFYART OF FIRST SHAPE % I1NUM? "LOADING ";SHAPE$(I) D$;"BLOAD ";SHAPE$(I);",A";SH: LOAD SHAPE BEGINNING AT "SH" SH(43634)256(43635)LA27232 LN(LA)256(LA1): SHAPE LENGTH FROM DOS$ BSHSTART: ABSOLUTE ADDRESS FOR"NAME OF SHAPE #";I;": ";:SHAPE$(I): 6SHAPE$(I)""340A @IJ J350V TNUMI1n ^ ASSEMBLER SECTION h:START16384 |START,NUM:START1,0:BSTART:232,MD(B):233,B256:B0 ADRSTART2: START OF SHAPE ADDRESSES SHADR(2NUM): STMERS AID"+ (34)"DRAW"(34)" COMMANDS."} ::"A CATALOG WILL FOLLOW. ENTER NAME OF SHAPE OR HIT RETURN TO FINISH." :"YOU MAY ASSEMBLE UP TO ";NS;" SHAPES." :"HIT ANY KEY TO CONTINUE ";:A$  D$:D$"CATALOG" "I1NS$ ,256 1000 D$(4)> D$;"MONI,O,C":D$;"NOMON C":R " ASSEMBLER "^ :4:1 "THIS PROGRAM WILL ASSEMBLE PREVIOUSLY" "SAVED SHAPES INTO A MULTI-SHAPE SHAPE" "TABLE THAT CAN BE ACCESSED THROUGH" "APPLESOFT II OR PROGRAMZ - SHAPE DESIGNER -3 COPYRIGHT 1979N RESEARCH ASSOCIATESi( ALL RIGHTS RESERVEDo2< ASSEMBLER MODULEFK..ERRORS CORRECTED BY ARB FOR APPLE PInLA43616x::NS128:NUMNS:SHAPE$(NS) MD(B)B(B256)     ROCESSING";:A$::Pò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 ** DENVER-COLORADO 80217 ** *****************************:LONG ENOUGH THAT"::12:" PREPARING SHOW "::"DOES NOT APPEAR, PRESS RETURN TO":"COMPLETE CATALOG AND START PROCESSING.":"IF THE CATALOG IS LONG AND HI-RES IMAGESARE NEAR THE BEGINNING, YOU MAY LOSE":"PICTURES."24:"PRESS RETURN TO START P16302,0:16299,0:16297,0:z::"ARBCALC SLIDE SHOW BY A. R. BROWN, JR.":"A GIFT TO APPLE PI 7 DEC 1980."::"SHOW CREATES & RUNS A 'SLIDE SHOW' OFF":"ANY DISKETTE CONTAINING FILES OF HI-RES":"SCREEN IMAGES."{:"IF THE CATALOG IS E T II1:II1I0( ^ F3000,3100:9 ..LOAD HGR1_ F2:D$;"BLOAD";T$(I);",A$2000":p  ..LOAD HGR2  F1:D$;"BLOAD";T$(I);",A$4000":  ..SWITCH TO HGR1 16304,0:16302,0:16300,0:16297,0: ..SWITCH TO HGR2 16304,0:E?"; ..RUN SHOW) A$:J(A$)48:< J0JI12020p IJ:J11ĴF3100,3000:F3300,3200:2900:2000 J11:F3100,3000:F3300,3200:2900:2000 J162030 J10:F3300,3200:2900:2000 J35ĉ: 1000 S ..GET NEXT SLIDDE,":"PRESS 'SPACE'."\ "TO CONTINUE WITH THE NEXT SLIDE IN":"SEQUENCE, PRESS 'SPACE'." $"TO CHOOSE A SPECIFIC SLIDE, PRESS ITS":"NUMBER." ."TO EXIT, PRESS 'RETURN'." 8"TO RETURN TO THIS MENU, PRESS ANY OTHER":"KEY." B10:"YOUR CHOICE ";(218)256(219)N "PROBABLY NOT YOUR FAULT.":"REPORT ON ERROR FORM."T n ..INSTRUCTIONS, MENUv : 10:"***ARB SLIDE SHOW***" :"YOUR SLIDES ARE:" I0I1:3:I;". ";T$(I)::I0 :"TO START THE SHOW WITH THE FIRST SLI3:SCR2(7)(" ")I1I1:240J <SCR2(1)("B")SCR2(4)("3")90r FP$"":C2736:P$P$(SCR2(C2)): PT$(I)P$:II1 ZV(37):34,V:24:::V1:55 I0:3000:J10 1000 ..ERROR PROCESSING "ERROR TYPE ";(222);" IN LIN ..ARBCALC SLIDE SHOW;..BY A.R.BROWN,JR. 7/7/80O D$(4):T$(12)Y 500c 4000kX2SCR2(X)X,2(37))X,2(37)1)16128:D$;"CATALOG":24::12:" PREPARING SHOW "::(1:"ARBCALC SLIDE SHOW";62)2I0: 7    OX 17467 ** DENVER-COLORADO 80217 ** *****************************IOL-C EXIT":% D$;"RUN SHAPE MENU"_*23::"YOU ALREADY HAVE A ";(34);SHAPE$;(34);" ":n4(7);(7)~>I14000:H1940hPò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BA$:A$"Y"19702020$:23C"NAME OF SHAPE:";:SHAPE$WSHAPE$""1940D$;"BSAVE ";SHAPE$;",A";LC1;",L";CLC1;",V0"D$;"LOCK ";SHAPE$;",V0"::D$"RUN SHAPE MENU":A(222) A102090 A255ĉ:"CONTRECTIONb:0lBLC14Pv232,MD(B):233,B256:B,1:B1,0:B2,4:B3,0|X30:Y79:SC13:SC:1X,Y:XX50:SC:24:" HIT ANY KEY TO CONTINUE... ";:34:A$:23"DO YOU WANT TO SAVE THIS":"SHAPE? (Y OR N) ";:" TO ";LOC:CLOC/"HEX: FROM ";LOC$;" TO ";FI04:LLL(I)0:ITI301gLOC16I1820LLL(I)LLL(I)1:LOCLOC16I:1800I:LOC$""&I301:1840:I::18800J015:LLL(I)Jĺ(HEX$,J1,1);DJNX DRAW SQ:D(3)0:Q0:D2:5D(1)Q:D(2)0:D(3)0:Q0:D1:PI13:D(I)0:I:D0:j CTRL F GOES TO HEREZD(1)D(2)8D(3)64:LOC,ZZ01760LOCLOC1:LOC,0LOCLOC1:LOC,022:30:95823:1"VECTOR TABLE: FROM ";LC1;ODXXCO:OLDYYCO:."F0:DD1:D(D)A:D3ı@,D(3)01600N6F1:1620_@D(3)41620qJQD(3):D(3)0TZD(1)D(2)8D(3)64^BYTEBYTE1:22:13:BYTE:1hLOC,Z:LOCLOC1rF11670|Q01700D(2)01690D(1)0:D(2)GPFLAG01450;22:33::"ON";::" OFF":1:1170e22:33::"ON ";::"OFF"::1:1170vYCO0YCO0YCO159YCO159XCO0XCO0XCO279XCO279PFLAG01540XCO,YCO15600:ODX,OLDY3:XCO,YCOPFLAG0A0" 1570:1470:1170- DOWN@YCOOLDY1:A6Q(PFLAG0A2g21570:1470:1170s< RIGHTFXCOODX1:A5PPFLAG0A1Z1570:1470:1170d LEFTnXCOODX1:A7xPFLAG0A31570:1470:1170PFLAGPFLAD: "; 33:"ON ";::"OFF":S24:"COMMANDS: CTRL-F, CTRL-W, U,D,L,R,P";:1[A$lA$"U"1260}A$"D"1300A$"R"1340A$"L"1380A$"P"1420(A$)61710(A$)2310401170 UPYC0OLDY1:A4 18:" HIT ANY KEY TO CONTINUE ";:A$::::8PFLAG0MBYCO79:XCO139aLOLDY79:ODX139nV3:1470`I14:H(I)((LOC$,I,1))48:H(I)9H(I)H(I)7jItLOC0:I13:LOCLOCH(I):LOCLOC16:I:LOCLOCH(4):LC1LOC~22:"BYTES USELOC$"4000"::29" POSSIBLE COMMANDS..."$8:3:"CTRL-F WHEN FINISHED":3:"CTRL-W TO WIPE CLEAN AND START OVER":8:"U - TO MOVE UP":8:"D - TO MOVE DOWN":8:"L - TO MOVE LEFT":8:"R - TO MOVE RIGHT"..8:"P- POINT ON/OFF": "; I 32( A$; :32,0:33,40O I124:922:Z 2050 D$(4):D$;"MONI,O,C":D$;"NOMON C"::MD(B)B(B256)256 D(3),LLL(4),H(4):HEX$"0123456789ABCDEF" ..STARTING ADDRESS FOR SHAPE IS $4000=16384  THE VARIOUS SHAPES YOU "I " REQUIRE, YOU CAN THEN ASSEMBLE THOSE "x " OF YOUR CHOICE INTO A SHAPE TABLE THAT" " CAN BE USED IN ANY OTHER PROGRAM JUST" " BY LOADING IT AND PERFORMING 2 POKES." I111 " T ANY KEY TO CONTINUE...";" A$2 2:1:32,0^ "DURING THE NEXT SECTION, A MENU WILL" " GIVE YOU THE OPPORTUNITY TO DRAW A " " SHAPE AND THEN SAVE IT ON A DISK. "; " "; " AFTER SAVINGORED AND RETRIEVED BY NAME."3 d32,0:33,40:34,0f i:"----------------------------------------";p k32,1 n:"ONE USE IS IN GAMES THAT USE MOVING" x"OBJECTS ACROSS THE SCREEN. ANOTHER" "MIGHT BE ARCHITECTURAL MODELING." ::5:"HIHAPES,";1 7"AND THE CREATION OF "(34)"SHAPE":z <"TABLES"(34)" EACH CAPABLE OF CON-":"TAINING MANY SHAPES. THESE" A"FINISHED TABLES CAN EASILY" F"BE INSERTED INTO OTHER PRO-" K"GRAMS." L P"ALL SHAPES AND TABLES CAN BE" U"STi..SHAPER: PART OF MARK CROSBY SHAPE DESIGNERC :::I124:" ";:I2:9"WELCOME TO "(34)"SHAPING UP"(34)#:" PURPOSE:";%32,11:34,1&12 -"TO FACILITATE DRAWING S      ***************************** U/ASSEMBLER": ::? :::4:"ONE MOMENT PLEASE":: Pò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 ** DENVER-COLORADO 80217 ** VOL. 1 NO.1, P.37"} Z:" 1 - DRAW A SHAPE AND SAVE IT":" 2 - ASSEMBLE SHAPES INTO A TABLE":" 3 - END THE PROGRAM" d:" HIT KEY OF YOUR CHOICE "; nA$: xA(A$):A130,140,150:110 160::D$;"RUN U/SHAPER": 160::D$;"RUN  " - SHAPE DESIGNER - "; " - COPYRIGHT 1979 - "X "RESEARCH ASSOCIATES"u( " - MARK L. CROSBY - "2::<D$(4)F16303,0P10:11:"- SHAPE DESIGNER -"U11:8:"WRITTEN BY MARK L. CROSBY" W:"FROM 'APPLE ORCHARD'     ҠͮŠΠӠԍŠ͠ƠĠԠčĠϠӠŠȠӠĠҠٮĠҍŭ΍ՠ̠ŮӠŠ̭Š٠Ǡ̭ɠΠŠ͍ӠήԺŠĠ͠ԍŠĠĠΠԠӠ΍ŠĠ٠ǠŠŠǬҠ٠Ǡԍ̠̠̠̠ݱݲ̠ԠŠȧϠŠԧӠԍĠĠخҧϠͭٮנǠ̠ͧŠ͍ϠŠĠͬȠՍ٠ŠҠ٠ՠϠΠŠ͠٠٠͠ŠĮŠԠРӠϠΠΠĠŠا͠ύ٠ĠŠŠǠŭӺݵ̠ݴ̠̠̠̠ݠŠƠՠϠΠŠӠ̍Ԡ٠ŠĠԠاȠŠͬӠԍϠŠŠϠӠŠΠōŠӮخҧӠàԭǠȠΠĠȠԭاӠ     C27ESC0:2420' C70PL1:28000 520V X0(PX7):Y0(PY8):CCM(X0,Y0)u P006:P107:590:::' REVISIONS DECEMBER 1981 BY RICHARD MERCER, APPLE-DAYTONC75ĭPX48PXPX1, C77ĭPY39PYPY1D C74ĭPX0PXPX1] C80PL1:570:520v C69PL0:570:520 C84İ640 C85ĭPY7PYPY8 C82ĭPX42PXPX7( C68ĭPY32PYPY82 C76ĭPX6PXPX7< C67PL0:2800 FOR INSTRUCTIONS":7 MESSAGES FOR ONE BLK/ALL BLKQ 2:33:" ONE BLK";:k 2:33:" ALL BLK";: KEYBOARD CURSOR CONTROL C9C10C11C13C1C:PL1:570:CC164 C49AB0:2460 C65AB1:2470 C73ĭPY0PYPY1 1/2 SPACE RIGHT"J. 23:"PRESS THE SPACE BAR TO CONTINUE...";:A$:Z$:m` MESSAGES FOR CURSOR/LETTERSj 1:33:" CURSOR ";:23:1:(5);l ABİ2470:m 2460:t 1:33:" LETTER ";:2:33:K17:(95);:y 23:1:" ENTER CTRL-INE LARGE BLOCK":11:"UP, RIGHT, DOWN, OR LEFT"_ "P,E";:9:"- PLOT OR ERASE AT CURSOR" "C,F";:9:"- CLEAR OR FILL BLOCK"$ "1,A";:9:"- APPLY CHANGES TO ONE OR ALL":11:"BLOCKS WITH THE SAME LETTER") "T";:9:"- TOGGLE LINE:A$, 34,2:P$;:14:" CURSOR MODE ":v " I,K,M,J - MOVE CURSOR ONE SPACE UP,":11:"RIGHT, DOWN, OR LEFT" " CTRL-I":"CTRL-K":"CTRL-M":"CTRL-J";:9:"- PLOT AND MOVE UP, RIGHT,":11:"DOWN OR LEFT"/ " U,R,D,L - MOVE CURSOR O~3:" ANY NON-CTRL CHARACTER PRINTS LETTER":"IN LETTERS BOX, HGR IMAGE IN GRAPHIC":"BOX, AND ENLARGED IMAGE ON SCREEN." 3:"FORWARD & BACK ARROW AND RETURN KEY":"CONTROL POSITION IN ALL 3 AREAS." 23:"PRESS THE SPACE BAR TO CONTINUE..."; " CTRL-L : UPPER CASE - ";(92);" ;LOWER CASE - ";(124)m " CTRL-O : UPPER CASE ONLY - ";(95) " CTRL-Q : SAVE CHARACTER SET AND/OR QUIT" " CTRL-S : ASSIGN SAME CHARACTER IMAGE " " CTRL-Z : SHIFT TO LOWER CASE LETTERS "SOR  MODES.") :14:" LETTER MODE"[ " CTRL-A : SHIFT TO UPPER CASE LETTERS " " CTRL-D : DISPLAY ENTIRE CHARACTER SET " " CTRL-I : DISPLAY EDITOR INSTRUCTIONS " " CTRL-K : UPPER CASE - ";(91);" ;LOWER CASE - ";(123)@pCS$""ı: zD$;"BLOAD";CS$;".SET,A";CS:22:1:(6):J ESC0:2420m T16299,0:2200:16300,0:300 16300,0:Z$;:300  "HI-RES CHARACTER SET EDITOR INSTRUCTIONS " " ESCAPE : SWITCH BETWEEN LETTER  AND ":10:" CUR$;".SET,A"CS;",L$300" ,23:1:(6);:" DO YOU WISH TO QUIT(Q), CONTINUE(C),":"OR EDIT ANOTHER SET(A)? ";:A$:(A$,1)"Q"820 -(A$,1)"A"CI22:860:Z$:300 WCI10 \CI:1:"CHARACTER SET TO EDIT? ";CS$ f(CS$)26ĺ(7);:860 X006:Y004:CCM(X0,Y0)Ĕ1X030P042,Y033P141A l:T q14:33:CG$:d C0,I:3P0x AB0İ695:690 X006:Y004:695:: 14:33:CG$:C0: CCM(X0,Y0)P0X03030:P1Y033J41:P0,P1P0,P12  *D$;"BSAVE";CS ,C(KB)128:KS,0*6C0ESC0520:;ESC12500H|C17750cC27ESC1:2410:300qC32520SH1ĺ(12);SH0ĺ(11);XX1(IJ):Y1IJX1:I((X12)2PLY1)J:C0,I]3PL:AB0Ĕ1X030P042,Y033P141:6259 b           |(LN$(J))0ĺ:NLNL1 J) 700> :D$;"CLOSE";F$_ ::: RETURN IF SUBROUTINEu XY(222):Y5340 b"DOS ERROR":"ERROR CODE = "(222) l A$:A(A$) A27500 A32700 :NL0::20:1 34,2:35,23:SET TOP,BOTTOM MARGINS C D$;"OPEN";F$Y ,::D$;"READ";F$ 6I0ML:768:IN$(IN$,1):LN$(I)IN$: TNL0 ^J0I:LN$(J)"PAGE "İ700: hNLNL(((LN$(J))1)40)1:NL20İ700:360 rLN$(J);:CH(36):CH1ĺ,213 dML500 nLN$(ML)( xD$(4)J F$"U/ANIMATRIX.HELPER.INSTR"e HD$"ANIMATRIX HELPER" PR$" = CONTINUE = QUIT" D$"NOMON I,O,C" 600 :1:((40(HD$))2)1 :HD$ 24:((40(PR$))2)1 PR$;: INSTRUCTION PRINTER] USES "INPUT ALMOST ANYTHING" SUBROUTINE, CALL-APPLE IV,3IN$"": ** MUST BE FIRST VARIABLE IN PROGRAM!! **I768790:J:I,J: ( 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57 ŮĠҠŭ΍ǠŠŠƠōŠ̮ԺΤԠŠŠԠŠǠΠ٠͠΍ȠΠҧӠčӠŮ٠ǬĠӠϠ̭Š֬ҠǠōŠԠӠƠ٬ԍԠӠĠԠՠРӠϠϠŠΠӮŠĠӠ͠ŠƠԍǠ٠ŠĠŢƠӠӠԠ̬٠ŠРϠӠƠԠΠŠĬŠ٠ǠƠЍϠөҠŠōĤŠ͠ӠԠ͠šϠŠŠƠǠϠŠàӠϠŠήŠ̠͠ԠӍҠŮԠΠŠӠƠōΠǠŠҠΠŠӠ̠ԬҠ٠ҠԠҍȠӠĠ̩ԠӮΠŠ͠ƠՠԠōŠŠŠƠŠԠŠՠԍĬҠŠŠƤՠԠϠŠҠՠϠҠŠ٠ŠҠԍǠҠӡӠӠΠƠŠϭ͠ΠҧϠŠӠ͠ՠԠԍŠԠŠǠōӠϠŠĮӠΠŠŠ       A32700 :NL0: ::: RETURN IF SUBROUTINEY XY(222):Y5OUT1:400 b"DOS ERROR":"ERROR CODE = "(222)222)I(J))1)40)1:NL20İ700:360< rLN$(J);:CH(36):CH1ĺW |(LN$(J))0ĺ:NLNL1^ Jg 700| :D$;"CLOSE";F$ ::: RETURN IF SUBROUTINE XY(222):Y5340 b"DOS ERROR":"ERROR CODE = "(222) l A$:A(A$) A27500(HD$))2)1 :HD$2 24:((40(PR$))2)1D PR$;::20:o 34,2:35,23:SET TOP,BOTTOM MARGINS D$;"OPEN";F$ ,::D$;"READ";F$ 6I0ML:768:IN$(IN$,1):LN$(I)IN$: TNL0 ^J0I:LN$(J)"PAGE "İ700: hNLNL(((LN$,213 dML500 nLN$(ML)( xD$(4)i F$"U/SAMPLEFILE": REPLACE WITH FILENAME OF YOUR TEXT FILE HD$"INSTRUCTION PRINTER": REPLACE WITH YOUR HEADING PR$" = CONTINUE = QUIT" D$"NOMON I,O,C" 600 :1:((40 INSTRUCTION PRINTER] USES "INPUT ALMOST ANYTHING" SUBROUTINE, CALL-APPLE IV,3IN$"": ** MUST BE FIRST VARIABLE IN PROGRAM!! **I768790:J:I,J: ( 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57    ES FAHRENHEIT"900'1000NF;::'~"'";X;"' DEGREES CENTIGRADE"-6900@1000Fc CENTIGRADE CONVERSIONiq:"ENTER CENTIGRADE # THEN HIT RETURN ";:T:X(T9532)"'";T;"' DEGREES CENTIGRADE IS EQUAL TO";::"'";X;"' DEGRE1)"F"ī1100#.(T$,1)"C"ī1200+8:MB"ENTER AN 'F' OR 'C' ONLY":WK1050]LzM FAHRENHEIT CONVERSIONNQ:V"ENTER FAHRENHEIT # THEN HIT RETURN ";:T`:jX((T32)59)t"'";T;"' DEGREES FAHRENHEIT IS EQUAL TO"UTINE DOES FAHRENHEIT TO CENTIGRADE CONVERSIONS AND BACKhvT0:X0:5"FAHRENHEIT TO CENTIGRADE OR":"CENTIGRADE TO FAHRENHEIT IS THE FUNCTION":"ENTER F OR C ";:T$ $(T$, RADIUS IS ";C1:.k"THE DIAMATER IS ";C2:Sp"THE AREA OF THE CIRCLE IS ";C3\z900e800k THIS ROUTINE DOES MENU RETURN CHACKING:"DO YOU WISH TO CONTINUE (Y) OR (N) ";:Z$(Z$,1)"N"10b THIS RO THE AREA FO A CIRCLE""8*C10:C20:C30A4:5>"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION"H::R"ENTER THE RADIUS ";:C1:\C2C1C1:C33.14159C2:eC2C1C1:C33.14159C1C1:f"THE006 THIS ROUTINE DOES SQUARE ROOT<FQ10O:5r"SQUART ROOT IS THE FUNCTION"|::"ENTER # ";:Q1::"THE SQUARE ROOT OF ";Q1:" EQUALS ";(Q1)900700 ! THIS ROUTINE DOES W500 X>Y THIS ROUTINE DOES ECPONENTIATIONDZVbE10:LSTE20_l:5v"EXPONENTIATION IS THE FUNCTION"::"ENTER # ";:E1:" ^ ":"ENTER # ";:E2:E1E1E2"TOTAL = ";E19006E DOES DOVISION.D10:D207:5W"DIVISION IS THE FUNCTION"a::x&"ENTER # ";:D1:+" / ":0"ENTER # ";:D2:5D20ĺ"YOU CAN'T DEVIDE BY ZERO ":900::555:D1D1D2D"TOTAL = ";D1N900 ROUTINE DOES MULTIPLICATION+ ; M10:M20D :5j "MULTIPLICATION IS THE FUNCTION"t :: "ENTER # ";:M1: " * ": "ENTER # ";:M2: M1M1M2 "TOTAL = ";M1 900 400  THIS ROUTIN/ - THIS ROUTINE DOES SUBTRACTION5 .E 6S10:S20N @:5q J"SUBTRACTION IS THE FUNCTION"{ T:: ^"ENTER # ";:S1: c" - ": h"ENTER # ";:S2: rS1S1S2 |"TOTAL = ";S1 900 300 %  THISEASE" 115 ? THIS ROUTINE DOES ADDITIONE U A10:A20^ :5~ "ADDITION IS THE FUNCTION" :: "ENTER # ";:A1: " + ": "ENTER # ";:A2: A1A1A2 "TOTAL = ";A1 "900 +200 ," s x" ";:F$2 (F$,1)"+"ī200H (F$,1)"-"ī300^ (F$,1)"*"ī400t (F$,1)"/"ī500 (F$,1)"^"ī600 (F$,1)"S"ī700 (F$,1)"A"ī800 (F$,1)"T"ī1000 (F$,1)"E"Ā :"ENTER CORRECT SYMBOL PL" / FOR DIVISION"@ n" ^ FOR EXPONENTIATION"c o" S FOR SQUARE ROOT" p" A FOR THE AREA OF A CIRCLE" q" T FOR FAHRENHEIT TO CENTIGRADE CONVERSION": r" E TO END THE PROGRAM)  :I THIS PROGRAM WILL FUNCTION AS A CALCULATOROW5:("ENTER THE FUNCTION YOU WISH TO PERFORM"2<F" + FOR ADDITION"P" - FOR SUBTRACTION"Z" * FOR MULTIPLICATION" d           LONG FOR NOW":NQR> *** GAME IS OVER 3>"THE GAME IS OVER."X>"YOU HAD";F;"PIECES REMAINING."^>q> F1 16150>"BRAVO! YOU MADE A PERFECT SCORE!"?:"PLAY AGAIN (YES OR NO)";A$*? A$"NO" A$"N" 20000 4?: 280H?? N: "SOF1(< AR1 R1Z C18P 12200)- T(X1,Y)0 1200O.T(X2,Y)5: T(X1,Y)0: B(C9)3d.B(Z)3: B(P)7zD/T(X,Y)0: 12400/CC1/ Y 0 Xp0: *** CHECK IF GAME IS OVER:F0: R2 8`; C2 8; T(R,C)5 15800 ;F 1200)T(X,Y2)50h)T(X,Y1)0: B(C1)3<) 12000R0* C18P 11300jb* T(X1,Y)0 1200*T(X2,Y)5: T(X1,Y)0: B(C9)3+ 12000$, C2P 11700V, T(X,Y1)0 1200,T(X,Y2)5: T(X,Y1)0: B(C1)3P- 12000- 5700& (Y4)(Y5)(Y6)0 5700,|7 6100ND T(X,Y)5 6000_ Y1);"+";j  6100zpY1);"O"; Y8 X' 285B'C1: X1 9' Y1 9<( CZ 12200( C2P 10800( T(X,Y1)0YES OR NO)";A$,Q A$"NO" A$"N" 200007 1200^ ((ZP)2)((ZP)18)0 1200il10000t 50004 15000 1000 *** BOARD X1 9P Y1 9 (X1)(X9)(Y1)(Y9)0 5500 (X4)(X5)(X6)0 68,69>B(M)7: W"\B(41)3= "MOVE WHICH PIECE";ZRL B(Z)7 1400{"ILLEGAL MOVE, TRY AGAIN...": 1000x "TO WHERE"; P B(P)0 1200 B(P)7 1200 ZP 1000@ ((ZP)2)((ZP)2) 1800O:"PLAY AGAIN (% (R1)(C1)(R9)(C9)0 3502T(R,C)5: CBX RVT(5,5)0: 5000 *** INPUT MOVE AND CHECK LEGALITY  W1 33 M 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41* 42,43,44,47,48,49,50,51,52,53,58,59,60,67, 67 68 69": 33,17$ 34,8B  *** SET UP BOARD U  B(70),T(9,9)_  287i 936o y  285 "LET'S BEGIN" " R1 9 , C1 9 6 (R4)(R5)(R6)0 400 @ (C4)(C5)(C6)0 400 ^T(R,C)5h 50042 43 44":9 " ! ! ! ! ! ! !"i " 47 48 49 50 51 52 53": " ! ! !" " 58 59 60": " ! ! !" " P" ! ! !"O Z" 22 23 24":} d" ! ! ! ! ! ! !" n" 29 30 31 32 33 34 35": x" ! ! ! ! ! ! !" " 38 39 40 41 E":* ."RIGHT SIDE FOR PEG NUMBERS"::= /: "READY";T$Y 0 T$"YES" T$"Y" 55 1"WELL, WHEN YOU'RE READY JUST TYPE 'YES'":47 7: "HERE IS THE BOARD:" <" ! ! !" F" 13 14 15":% '"32 PEGS, OR AS MANY AS POSSIBLE, BY":R ("JUMPING INTO AN EMPTY HOLE...":{ )"THE JUMPED PEG IS THEN REMOVED.": +"TO SAVE TYPING TIME, A COMPRESSED": ,"VERSION OF THE GAME BOARD WILL BE USED": -"DURING PLAY. REFER TO THE ONE ON TH 936 33,39# 34,0 -936>::::::V 15);"HI-Q" \5 );"BOB STEVENS DALLAS TEXAS"::#:"INSTRUCTIONS";Q$: 285$ Q$"NO" Q$"N" 55%::&"THE OBJECT OF HI-Q IS TO REMOVE ALL":+           (ijk (ijk (ij'k (ij'k (f)ijk )ijk)ijk")ijk,)[i&j'k 2(g'h<(f F(ij k P(ij k Z(i j k d(i jk n(ijk x(ijk(ijk(ijk(ijk(ijk(ijk(ijk(ijk(ijk j k ~'ij$k'ij#k'ij k  'g h'f'ijk'ijk'ij k 'ij k 'ij k 'ijk'ijk (ij'k  (ij'k (i j'k (i$j'k(($&`'$&" &`.?8r(r %\&&YZ &`=>r %q*&[&f gh[']']נΠ']'L'f$'UVW.'ij'k8'YL'f V'i j k`'ijkj'i j kt'i $%S%`$%X%_&%b%q_%%`'$&%%q_%%`'$&%%q_%%`$&%%q_%%]%]ˠ%]%q`=>r %[%UVW&UVW&`'qq_(#"]'(#]ŠΠΠ)#] -#q'2#d88r(re `$<#[%]+%]ŠǠŠ!%] &%d6?e0%q.?6@r`$0% :%d6?eD%`$b%I%`$%N%`$r"!qqqq_(#!]!]ŠΠ"] "`$`'$r! "`.?8r(r$r"qq_(#V"]`"]ŠРe"]j"`$!o"`.?8r(r$rt"9!]3>!`$`''$r%C!`.?8r(r$r"H!qqqq_(#!]$!]ŠΠԠ!]3!`$`'$r%!`.?8r(rr(r$r" qqqq_(# ]" ]ŠРԠ ]) `$`$r% `.?8r(r$r" qqqq_(#*!]%4!]ŠΠԠq_(#] ]ŠԠ ]  `$`$r% `.?8r(r$r qq_(#b _8d rg ]#l ]ŠРԠq ])v `$`'$r%{ `.?8m]#rq/?'rqq/?rq|d88r(re  q]&]ŠΠ]&q/?r`$b `$  ]Š `$`'$r%`.?8r(r$rqq.?r.?r.?r.?r.?r.?r.?r.?r>Y[6]%@]ĠΠҠA]EUVW@ de YJUV@ Wz deYOUVWTUVWYd88r(re^YZc]h]ԠΠlUVWz .v`.?r %g88r(rh88r(rYQ]"]ĠŠĠ]UVW-q.?r.?r.?r.?r.?r.?r.?r.?rUVWYY[]# ]ŠŠĠ%]*UVW -4]ĠƠŠ] M6`$&`$@p@q&a(ŠŠӠҬ)E@E(Ӡ)&a(ҠȠ)FE(ΠƠĮ)!_X$&a(ŠŠӠҬԧӠš)N]#X]נĠӠ]]bf "oPa@E(ӠΠ)Gqq\%`=>r $fghfgh\ qqq`$;d88r(reoPbE(ӠƠ)Gq`$oP#bE()_T]fg h q q Jfgh qq "ToPa@E(ӠΠ)G^qq\%c`=>r $hfghfghm\rqqq|`$;d88r(reoPbE(ӠƠ)G@1ca(ՠŠŠŠҠ)E@UVW Y\'qqq6?oPa(ӠϠϠ)Foa@E(Ӡ)GPa@E(Ӡ)2bE(ӠƠ)GPbE(ӠƠ)G"]%,]Π٠Š6]@ŠŠĠΠҠԠŠŠӠԮ)o,a(ŠԬҠŠӠ)\@ M6N@" rN@" rS(ԠӠŠ)&@"ca(ՠŠŠĠҠ)E@ ccc S(ĠӠŠ)&2cPa(Ġ)<cPa() FcP a(  )WPcca(ՠŠǠҠĠҠŠήҠǠӠŻ)UcZa(ՠ)da(Ġ)na(̠)xa(Ҡ)Oca(ԠϠ]Ƞ ]3 ]]%]Ԡ͠Ϡ]'de{de dJe{dKe ] ]Ӡ] (KM63]]]ĠŠ]]٠]]  ]        8-6728 *"#D******************* LL.""~:"RULE FOUR:"F"~"A CRASH DEVALUING ALL STOCKS BY 50% IS"^"~"ALWAYS POSSIBLE."g"D100m"N|"::12:6""STOCK TRADER IS OFF THE AIR":22:"@*******************"A* (C) 1979 BY *"B* PAUL IRWIN * #C* (613) 72"(!r~" Q - QUIT THE GAME, NO RESULT";!|~:"RULE TWO:"h!~"THERE ARE 52 WEEKS TO THE GAME. YOUR"!~"RESULTS ARE THEN REPORTED. OBJECTIVE"!~"IS AT LEAST $5000 GAIN."!~:"RULE THREE:""~"WHEN CASH IS BELOW $200, YOU ARE":"FORCED TO SER & BEATUM." }100 ~32300+ "~30000D ,~::17:"R U L E S"W 6~:"RULE ONE:"u @~"ALLOWED DECISIONS ARE - J~" B - BUY SHARES AT MARKET" T~" S - SELL SHARES AT MARKET" ^~" N - WAIT UNTIL NEXT WEEK"!h~" R - DISPLAY THESE RULESBETWEEN BUY AND SELL PRICES."I}:5:"THE STOCKS ARE CYCLIC WITH A SIXt}"MONTH PERIOD. BUT OCCASIONALLY THE"}"MARKET WILL CRASH!!!"}:5}"WATCH YOUR CASH. EXPENSES ARE $200"}"EACH WEEK. THEY ARE ALWAYS DEDUCTED" }"BY SKYNNEVINGS BY TRADING ON":F}"THE WEEKLY RESULTS FOR A YEAR."CP}:5mZ}"THERE ARE SIX STOCKS ON THE MARKET"d}"FROM WHICH YOU CAN BUY FOR YOUR PORT-"n}"FOLIO. DON'T TRADE TOO OFTEN, SINCE"x}"THERE IS A SPREAD OF 10 POINTS BROKER'S"}"FEE "WRITTEN 1979 BY PAUL IRWIN"*|18:80000|9|100E}::13_ }:" STOCK TRADER ":i}3:5}"WELCOME TO THE BROKERAGE FIRM OF"(}"SKYNNER & BEATUM, WHERE YOU WILL PLAY"2}"A MARKET OF SIX STOCKS WITH $10000"<}"OF YOUR LIFE'S SA ****"Ey12:6*Jy"*** PORTFOLIO ***"@YyT112:T222:T332P|y1000:2000Vy`|::|M$"S T O C K T R A D E R"|11:8000|M$"THE CHALLENGING MARKET GAME"|7:8000|M$"FROM THE OTTAWA 6502 USER GROUP"|15:8000|M$L(S)95:CLOS(S)100:HIGH(S)100:LOW(S)100:auPI3.14159:THETA(6):I16:THETA(I)2PI(I):wuACT15: ACTIVITYuSWING(6):I16:SWING(I)ACT(I):y20000ySET UP SCREEN"y::,y13:" STOCK TRADER "6y:@y12:"**** MARKETST(6),P(6)5DuBUY(6),SELL(6),CLOS(6),LOW(6),HIGH(6)WXuSTOCK,BUY,SELL,HIGH,LOW,CLOStbuHD$(6):I16:HD$(I):lu 1,10,16,22,28,34vuT(6):I16:T(I):uAPP,PET,AIM,KIM,SYM,OSIuI16:SEC$(I):uCASH10000,uS16:BUY(S)105:SELK NEXT TIME."R32767-RGAIN999921180YR5:"YOUR SKILL EARNS A STEADY INCOME."sR"GOOD PERFORMANCE!!"~R32767R5:"YOU HAVE BEEN DECLARED THE WIZARD"R"OF WALL STREET! CONGRATULATIONS!!!"R327670u :uSEC$(6),PO(6),CO(6),FR"YOU ENDED THE YEAR WITH A $";CASH;" NET"HNR"WORTH. THIS IS A ";aXRGAIN0ĺ"LOSS OF ";{bRGAIN0ĺ"GAIN OF ";lRA(GAIN)vR" $";A;"."{R:RGAIN499921150R5:"THESE RESULTS QUALIFY YOU FOR" R"GOVERNMENT AID. BETTER LUC0:31010:20020!NA$"Q"32766=N(7):"PARDON?":20025KR(7)::pRS16:CASHCASHPO(S)SELL(S):R14::"FINANCIAL REPORT":&R:10:"FOR THE END OF 52 WEEKS"0R9:5:RGAINCASH10000DR"FROM AN INITIAL POSITION OF $10000,"-WK1:31010*N'4NX(0):34,20::I9N"DECISION(B/S/N/R/Q)? ";:A$\>NA$"N"20050uHNWKWK1:WK5221000JN4000:31010:20020RNA$"B"20080\N3000:31010:20020pNA$"S"20100zN5000:31010:20020NA$"R"20120N3230IS"/V'"HEREBY DECLARED BANKRUPT FOR FAILING"T`'"TO MEET WEEKLY EXPENSES. THE"{j'"RECEIVERS APPOINTED ARE MESSRS. *"SKYNNER AND BEATUM."\+:20+"(SIGNED)"+20:"G. D. TUSHOES, CLERK"+:"BETTER LUCK NEXT TIME!".32767  NTJ:(M$,40J);*^I14:X(16336):<hI110:XI:BrHN'\':(7):$'10::"NOTICE OF BANKRUPTCY":)':.':"TO: WHOM IT MAY CONCERN"8':"FROM: MINISTRY OF SUPPLY & DEMAND"B'10:5L'"THE PLAYER OF THIS GAME %, INCLUDING THOSE IN"-"YOUR PORTFOLIO!"Y:5:"PLEASE ACCEPT OUR SYMPATHY, AND"~"WE HOPE IT WON'T CRASH AGAIN.":20:"YOURS RESPECTFULLY,":20:"E. SCROOGE"100@I140(M$)2:M$(32)M$(32):JJ3911:/b"FROM: SKYNNER & BEATUM, STOCKBROKERS"El:"TO: TRADER"Lv6i"DEAR WIDOW OR ORPHAN:":5:"WE REGRET TO ANNOUNCE THAT THERE""HAS BEEN A MARKET CRASH!!!":5"TODAY, ALL STOCKS ON THE BOARD HAVE""DROPPED BY 50 EXPENSES FOR THE"."CURRNET WEEK ";WK;"."\:5:"PLEASE BE SO KIND AS TO LIQUIDATE""ONE OF YOUR ASSETS FORTHWITH IN ORDER""TO REMOVE THIS EMBARASSMENT.":20:"YOURS RESPECTFULLY,":20:"E. SCROOGE"100.X(7):pCOLLECTION LETTER)u(7)Yz::"FROM: SKYNNER & BEATUM, STOCKBROKERS"o:"TO: TRADER"6:"DEAR WIDOW OR ORPHAN:":5:"YOU ARE HEREBY NOTIFIED OF AN""ARREARS IN YOUR CASH ACCOUNT WITH US""WITH RESPECT TO YOURARE YOU":"SELLING TODAY? ";N<PNSELL(S):NPO(S)5070"EXCUSE ME, BUT YOU ONLY HAVE ";PO(S):"SHARES OF ";SEC$(S);". NOW THEN,":5040PO(S)PO(S)N:CASHCASHPI(N50)CLOS(S)SELL(S):PO(S)05080P(S)0:CO(S)0:ST(S)0004150)COUNTCOUNT1:COUNT2ī1000036000>31010H"5000R,4110d6CASHCASH200j^w34,20:"SELL SECURITY(1-6)? ";:A$:S(A$):S05090S1S65040"PARDON?":5010"HOW MANY SHARES OF ";SEC$(S);" DS((PIWK13)THETA(S))SWING(S)= BUY(S)(CRASHBUY(S))V BUY(S)25BUY(S)25o SELL(S)(BUY(S)10) CLOS(S)(SELL(S)(BUY(S)SELL(S))2) LOW(S)CLOS(S)LOW(S)CLOS(S) HIGH(S)CLOS(S)HIGH(S)CLOS(S)  COUNT0CASH2Y(S)2) SELL(S)SELL(S)I#  / I :6:12W O" Q - QUIT THE GAME, NO RESULT"} :"... WAIT UNTIL NEXT WEEK ..." CRASH1:(1).9975CRASH.5 CRASH.94010 7000:31010 S16 DS0:I110:DSDS(I):" BUY(S)BUY(S)4E YOU":"BUYING TODAY? ";N8 PNBUY(S):PCASH3070 "EXCUSE ME, BUT YOU CANT AFFORD ";N:"SHARES OF ";SEC$(S);". NOW THEN, ":3040 PO(S)PO(S)N:CASHCASHP I(N50)  CO(S)CO(S)P:CLOS(S)BUY(S):BUY(S)BUY(S)I  P(S)S:ST(S)(BUR1:S;"-";SEC$(S);:T1:PO(S);/ \T2:CO(S)5 fK p16:T3:"$";CASHc z19:T3:"WEEK ";WKi v 34,20: "BUY SECURITY(1-6)? ";:A$:S(A$) :S03090 S1S63040 "PARDON?":3010 "HOW MANY SHARES OF ";SEC$(S);" ART(4):HIGH(Y);2 T(5):LOW(Y);:T(6):CLOSE(Y)8 > BT DISPLAY POSITIONa 13:1: "CONTENTS";:T1:"SHARES";:T2:"COST" 15:T3:"CASH" 18:T3:"DATE"  Y11 4Y16:13Y:SP(Y) >S02150 H13Y1:Y1Y11 $*** STOCK TRADER ***!, 31900Hd24:14:"";Vn16368,0fx16384,128t}16368,0z DISPLAY BOARD4:X16:T(X):HD$(X);:Y16:4Y:1:Y;"-";SEC$(Y);:T(2):BUY(Y); T(3):SELL(Y);:          H]ϠI]˲̠ٱJ]K]]@]A]B]ҠРC]D]ΠE]٠F]̠ΠG]٠ҮMX*@#nj@#_\H?[?]% ?`%q`%[w[G?]H?]ҠR?q1?-rr$\?q`4%qa?`$R?f?`-r$R?p?[?]?]ŢӠ?`%[?`Ͱ\?`%\?W>`$>`%q`%qq-rq-r\?`%\?W>`$>`%q`%qq-rq-r\?`%\?W>`$>`%q`%qq-rq>`%q+>oP a(٠ĠŠӠ)FE()GH>-rq\2-rq-rq-rq>UVWY>q_>]ˠѠW>`$>`%q`%qq-rq-r:]>]ŠӠ>\>D>oPa(٠Π)GoP a(ɠŠҠ)FE()G8>-rq\2-rq-rq-rq>UVWY>`$>\?->`-r%\H?6]٠ 6de 6de 6de 6de 6de 6M[7]:]Π:qq q[:qq q6[:qqq[:q(qq6[:q)q.q[:q4q/q6[` $:.` $:.`$:/`)$:/`(/$:/`.$:C/]2]Ġ2\.2q8-rr 2q8-rr 2q.?`r2q.?8rr+3]`Ӳ%\`m"oPa(ӠŽ)FӲ_,ӱqӱ`ӱ%\tm&oPaα@E(ӠŽ)Fӱ_,Q]*]ŠĠ+\.qqΰ +UVWX+`-r$*+ +\2*+Y4+[[+].]ĠĠ.rrq6--rr8q-rq-rq\6q-r\*Mq-rq-rqq\6q-r\*&M d2e0`β@9()%\@W]X]Šb`$lӲqӲr$UVW,YM ]ŠDzDZ`$`$q_,q_,] ]Co`%P;α@r`%P!d2ea(ȇ)Q--rrq6--rr--K|`.??r$\d,eM\d,eM_|Fq`$|`4$|`-r$|`-r$|H-rq\2-rq-rq-rq] ]Ϡ`-r- a(ŠĠ)G\Kh`.??r$m\d,eM\d,eM_h5mq`$h`4$h`-r$h8r-rq\2-rq-rq-rq)woP a(ŠĠĠ)G\FӲGd"e]ԠԠ#`α@9()β@9()%q+],]ˠ 6`ӱӲӱӲ$R2@`β@9()α@9()$>!JoPa(ˠ)GPT`%aα@G^`%aβ@G)coPӠxqq \:\ + \:\ + \:\ + \:\ + \:\ + \:\ +M ]ŠDZDz q]]ŠӠ M"oPaα@E(ӠŽ)FӱG(oP;β@raβ@E(ӠŽ)`4%q4_L O44rCα@"rCβ@"rDͰ4 rD4rD4rD4rD4r\}]͠\0u](\Hq]Ӡ%2MoP a(Ǡ)<\a]Šc]d]ԠnM ]Ȳ`-r%a()G`-r%bE()GYd e.?`rd!ed"e.?8rrd$e`.? r%d$eM[)d&ed'ed$ed%e[bq.?6@rd6?e`%q`%q`%qH]Š K_ 8`$q2?rq 9oP, (28HՍ*+ ,` '\*+ ,` 'N*+ ,` 'Ǎ*+ ,` '@*+ ,` +*  '& &$  +* & '& `  )( !  )( `* + 1`Rb_L`LLLL&  '&   '&  '& ` \͍*+  K '& ` \O*+  K   '& ` {i*+  ` *+  ` *+  `\ *+ &'  *+ `   %` \K*+  '&  '& $  '& $ '& ` \e*+  w ` \*+  w '&  '& ` \*+   '& ` \*+  w ''()L&' ()L5&'0()L'LLPLgLLLL;LLLLLLL; \*+  '& ` \*+  '& $  '& ` \1*+)) >) - ) ) ) -  - ) )))); -)) );)) ;)) ;) ) ) ;;) ))--) )Z /L*mHmmh & ` ` !3G`Lj&'()L&; )--)-  ) -  )-;) ;?) ) - )--  ;  - ) );?) ) -  - ) )?? );)-  - ;? ) >??7-)) -  ) ;?)--:??7)--;? ) ) -:??7--->??7)--;? )  ) ;?)--:??7-)) - ) -:)) >;?;?;?;?;?7--) -) -) -) -) -)->????;;;?7--) -) -) -) -) -)->??;?;?;?;?;?7--) ) ) - - -)->??;?;?;?;?;?7 - ) -) ) -  ) ? )  )  -  -  );?) )--)-- ; ) -  ; ;)--------------------:??????????????????7------------------->??7--) -) -) -) -) -)->??;?;?;?;?;?7--) ) ) - - -)->??;?;?;?;?;?7--) -) -) -) -) -)->????;;;?7--) -) -) -) -) -)->??;?;?;?;?;?7--) ) ) - - -)->??>??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7)?7---- - - )--->???;??????7---- ) -) )--->???;;????7---- - )-- )) )--->???;;;;;;???7)------------------:??????????????????7------------------->??????????????????7------------------->??????????????????7-----------------------:??????????????????7------------------->??????????????????7---- )--->???;???????7----)--- -- )--->???;?;;????????7----)--- -- )--->???;?;;????????7----)--- ) -)- )--->???;??;???????7----)-- )))--->????????????7----)--- ---) -)--->????;;;;;??????7----)--- )- -)--->??????????7----) --) )))--->???;;;;???7----) ) )--->???????7----) - )) ) -)--->???;?;???7---- ) ) ) - )--->?????;?;????7)-------------- )--->???;?;;???7---- - - -)) )--->???;?;;?;;???7----)))) ) )--->????;;;;???7)------------------:??????????????????7------------------->??????????????????7---- )--->????;???????7----)----)- )-)--->????;;????????????7------------------->??????????????????7---- )--->????;??????7----)--- -)-)--->???;;????????7----)--- )--->????;;????????7----)--- - )--->?????;;???????7----)-- ) - )--->???????7---- - --|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpsvy|)-:;3-->;3 ; ?--? )):?7--?  ?-->;3 ;)------------------:????????? *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeRU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*&-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00??????????????????7-------------------->???????????????????7-------------------- =@CBL,`@=<_?> CBL,` .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-------->???????????????????7-------------------->???????????????????7-------------------->???????????????????7-------------------->???????????????????7-------------------->???????????????????7-------------------->???????????????????7-------------------->?}56d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCe de.?>rde.??rM6_------------------???????????????????-------------------->???????????????????7------------               S(ϠՠԠϠϠԠο)&@`@*#r9()%Qqq_xP]ҠȠԠΠ ~a()[ a()[+a()UVWdYUVW a()Y[UVWdq.?6?rY[]٠\~KM6Co a(ՠԠ)FE(ԠԠƠ)Fa(Ӭ)E@E()6a(ԠӠՠŠƠ)F8dr8rE()c8VW-rqY+qUVW`-r%\$Y_8$q-rq-r[48q `-r %q`-rc%q\BB[L-rq-r[ V-rq8-r r-r[-`-rq8-rdr8-r r-r[t]Ӡq\ f [p ij#k l mn[z q` %q[ q`d%q [ ]ҠΠ ` $ [4 `$ q `d%\ ` %\ q[) ` %q`c%qq[]ԠҠU3 q`d$ qd\ q8drq7 ` $% \ q \ q8 r_* % `$* \ * \ q\ [4 \> \ [%> q` %q `c%q[H ]ǠΠR \p q \z q\ \ \   q\ \ \ \  ` $ q_  q\ q \  \ \ \ \  [ ]ԠҠӠ# `$H qqq \  q q\4 q \ - q`%q`%q\> ijk [[# ijkijk[ ]Š̠1& q\& 8 r`c%q[ 0 q[ : q[ D q[N q-rq[# ]ԠӠ qf` $ q_  qq\ q88dr8 rr\8 r[ q[ \8 r[ \ 8r[+ ijklmn[ ijk[> ghghghghgh[. ghijkghfq!q\ q#\ /r oa(ΠϮ)oPa(̠Ϯ)| [# q `$ \8 r# \ q8 r\8 r[) qqd`$ \8 r4 \ q88drr `$ \8 r- \ qrq_ /" q/?rq-r`$ `$" *, `7$@ \J q/?rqq`%q$@ UVW-rqYq[AJ q`%q` %q`%q `%q [T ]Ԡ̠Ѡ!^ fUVW'lm'nY"h r[ q/?r`$ _  \ [ q/?r[! `($ q/?r8r[! `d$ q/?(r8'r[ q/?2r1[ q/? r`7%q[ ]ΠӠ UVWX6`$   Y_"  q-$ q/?r8r_  q/?r`$  \ 8 r_  `$ \ [ `$ q/?r[ \ `$ [S \oPq\oq- r a(ŠŠ)FE(Ġ٠Š) ` $ _  q/?)'`$P `$Z [GP cS(ȠҠ)'`$P `%qq`$Z [JZ ca(ϠՠԠŠƠŠ)a(ӠϠŠӿ) d R@`@*#r9()%q[ ]͠Ӡ/ `$ `UVWY[( ]ŠĠV2 M6a(Ƞ٠ϠՠԠӿ)cPa()G\< a(ŠŠ)7 Pa(ȠŮ)_F = a(ĠϠ)G[> a(Ԡ͠)G[? a(٠٠)G[@ a(Š)G[6F PS(͠%q`$ a q `%q`$ a(ԠӠŠĮ)a(ԧӠ٠Ҡ̮)_~ 3 qa(Ϯˮ)E@E(ŧ̠ԠΠ̠)_ J qa(ՠĠԠŬ)E@E()a(ŧ̠ԠΠ̠)FE() q `%q`$ `$ a(ԧӠԮ)a(ԧӠ٠Ҡ̮)_~ 0 a(էŠΠŠԠ̬)E@E()_ J a(ՠԠԠŠԬ)E@E()a(ŧ̠ԠΠ̠)FE()_  ]Ҡ̠) q`Ӡj M6Lqt qd`%q~ UVWY$ q-rq-rq\ $ fUVW'lm'nYf \ `$ \ _  \  \ _X ]Š̠) q`%q`$ i qM6a(Ϯˮ)E@E(ɧ̠Šՠ)a(ŠӮ)a(ΠՠԠŠԠŧ̠٠)RL a(Ҡ̮)a(ΠՠԠŠǬŧ̠Ϡ)a(ϠҠ̮)5V ca(ӠΧΠՠŠ)R@\` [` ]ŠϪV M6Pa()cq`%qa(ƠՠנԠ̠ՠԬ) a(ҠϠ)FE()+ ca(ƠՠԠΠŠ)  T`$. $ _B . `$8 [88 ca(ϠȮŠҠӠΠ)FE()_ fB n![&ijklmn+[0\lmn5[":\&lmnijk?[l]ҠӠ74lmnijklmnijk+9lmnlmn[]Ƞ̠klmnijk[9ijklmnghijk[,lmnijklmn [Jijklmnijklmnijk[\lmҠҮ)Gca(ƠŠŠӠҬ)a(ҠӠŠҮ)_6oPa()[]ҠӠ7lmnijklmnijk[lmn[Jijklmnija(٠ŠҠՠŠǠ)a(ŠҠŠҠƠ)a(ϠӠΠҠͩ)Wwca(ԠӠҠ͠Š)a(ŠҠҠΠҠͩ)Nca(ƠŠŠӠҠΠ)a(Ҭ٠ӠԠӠĠ)a(ԠӮ)S^a(ŠŠŠӮ٠ͬ)a(ĠƠՠ̠ŠŬ)0ha(ՠĠ٠ŠҠ̮)\~Fmca(٠ԠӮ)ca(ԠȠҠӠԮ)no\nM6rrcrA\\~q888rrr`$\o Pbo$a(ŠҠӠ)FE()_1'oa(ŠӠϠҮ)_6"_@1] 6q[@]֠Ӡ JM6VTa(ǠΠӠĬΧԠԬ)a@E(ԧb`c8r $@! UVW cYd"e\ \~M6J`c$@`8r $"obE(ӠϠ)FE()F8rE(Ӡ)oq\Pb8rK\~M6bE(Ӡ)F8rE(Ӡ)F8rE()oPb8a()GhbE()FG\Yca(ĠŠԠҮנŠ)a(ӠĠ٠Š͠Ġ)a(ҠԠĮ)_6*`$Pa(ҭ)F[c[LoPa()oPa()oq\PboPq\PUV8rWa()GYo ]`d%o Pb` $oa(נȠŠ͠٠)a(ŠӮ)[ ]֠` $[a(ԧӠˠԠŠ)FE(ӠŬ)E@E()cUVW PbE()G` %)a(ҠŠРϠŠԩ)o q\Pb\~c`d$qd\~oa(Π٠)FE(٠)FE()a(ŠԠҠŠԠ)>a(ŠРҠԩ)o q\Pb\~Ao `d%o ͠Ġ)a(ҠԠĮ)_\\\~\8q\\~M6a(٠)FE(٠)FE()oq\Pb\~G` $q\\~oa(Π٠)FE(٠)FE()oOa(ŠӠҠҠrG`%b-rG[%v`%b-rG`%b-rG[x]Ԡ` $Ya(ԧӠˠԠŠ)FE(ӠŬ)E@E()cUVW PbE(ؠ)G` %a()GbbE()FYca(ĠŠԠҮנŠ)a(ӠĠ٠Š\-rq-r [Onoa(Π٠ϠϠάӠ)Gd2ea()Gd2eS()&@[dsa(ŠŠΠԠԠ)G\ua(͠)G\va()a(ŠԠנ͠ŠҠ) ta(ŠԮ)Gc\~\~[%u`%b-rq-r-rb-rE(Ӡ)F-rE(Ӡ)F-rE()oPb-r\~]A`d$d\nM6- rq-r-rb-rE(Ӡ)F-rE(Ӡ)F- rE()F`- r$PKoPb- rP\~d[4iq-r\oPoPb-r\~?-` $d`-r$d`-r-r$<oq\st2ca(Š)F-rE(Ӡ)F-rE(ĠŠ)F-ra(Ӡ)F-r -rq-rq-r$7oP\-rq-r i<\nM6-oPq-r\\~oa(ԠӠŠŠҠ)\~`'a(נŠΠנ͠Ԯ)cS(ӠΧΠՠŠ٠ϠϠή)&@M6_$i(\~M6-rq-r-rb-rE(Ӡ)F-rE(Ӡ)F-rE()r$%x$b-rE(Ӡ)F-rE(ĠŠ)F-rE(Π)a(ԠӠ)F-r -rq-r\i_(^%a(ŠΧԠנ͠ϠŠ)a(ԠŠϠנ)a(Š)F-rE()m&-rq-r-rq 2ebd2e[F UVW-rqYq\-rqq\-rqqdC-rqq\-rqq\-rqqd-rq[ ]  q!\\\~\\ \~6#M6`-r-r$(o\s`-(Ӡ)F-rE(Ӡ)F- rE()!`- r $q- r_T\oPq\oq- r a(ŠŠ)FE(Ġ٠Š)oPb\~F`- r $oa(٬ǠΠŠ)oPb[dPq\oq-r a(ŠŠ)FE(Ġ٠Š)oPb\~X`c$`-r $oa(ΠԠǠŠŠή)oPb_p- rq8-r r-r-ro`-r %a(Ӡ)Gb-rEb\~X` $`-r $oa(ΠԠǠŠŠή)oPb_p-rq8-r r-r-ro`-r %a(Ӡ)Gb-rE(Ӡ)F-rE(Ӡ)F-rE()!`-r $q-r_T\oY[ ]Ġ!\\\~\\ \~o-rq-r-rM6ob-rE(Ӡ)F-rE(Ӡ)F-rE()`-r $q-r_U\oPq\oq-r a(ŠŠ)FE(Ġ٠Š)oPcd"e [Aq` %q`c%q`%q6`'%q6[ a()G[ a()G[ a()G[3a(ԬԧӠŠŠҮ)oM6d[#` %q `c%qd[`d$qd q [UVWoM6d@tLM6d"e[~UVWY[Kca(ΧԠŠĬ)E@a(ӠӠŠ٠ϠϠԠͮ)[>oq\Pbq\oP\a()Foq\P*UV8rWa()GYoPbccc)a()a(͠ɠǠƿ)[1a(ϬԠ)a(נՠΠϠԬ)E@E()[;$a(٠)E@a(ԧӠǬԠէŠԮԠԡ)[L]Ӡ VKM6`\L8drFjoa(Π٠ϠϠϠŠԠ)S(ŠΧ)&\8r[ a()[a(ԠԬ)a@E()[*a(Ǭ)E@a(ԬΧԠŠС)[5a(ՠġ)a(ԠӠϠŠԠƠӮ)[ a(ԧӠԠ)[a(ԧӠԠԬ)a@E()[a(Ϡ٬)E@[AUVWda(Ϡ)GYa(Ӡӧ)[$\~a(ԠՠŬ)a@E()[]ǠӠ'M6q`$`$q`%q\_"<a(ˠ̠)a@E(Ġ٠ԠŠŠš)_\L_h]Ӡq/? rŠ)a(Ԭ)E@E()[ \`$9a(ԠΡ)[aa(ԧӠ)[fa(ӬӬӡ)[k\a(Ӡġ)[p\a(š)[;ua(ՠԠ)a(ΠǠӠƬ)E@E()[>zUVWa(Ӡ)GYa()a(Ġr\*8r[*UVWYM6[/a(ԡ)[4a(ġ)[9a(Ġ)E@[>a(٠ϠϬ)a@E()[ Ca()[Ha(ՠԠԬ)a@E()[Ma(ĠΧ)[3R`$/a(РР)a(Ġˬ)E@E()[6W`$4a(է[Yq8-r'r8-rr8-rdr8-r r-rUVW-rqY[]ԠӠM6`$ \ +qq`%q`%q_h \a(ԧӠҬ)a@_h ]Ӡ%q/?q8-rdr8-r r-r-rq-rq-rq[aq8-rr8-rdr8-r r-r-rq-rq-rq-rq[Y`-r8-r-rr8-r-r-rr%q`%_D_X]ԠҠDbq ` %q`c%q`%q(`'%q2\ g`%\-l`-r-r$v\`$ _v\`$ _q-r-rq[1q8-r r-r-rq-rq[I$_d6?e`%_&[]ԠҠ\ d6?eq-rq8r\ _&]Ҡ+`-r$0_40`$DM6d2ePa()d2e):qq\4\ \ qԠ͠\T \ `$\ _\ \_X"]٠Π'_ hq|Y_]ŠҠ\ 'UVW-rqYqq$d2ePa()d2e.q.?6@r`$`()Pa()2Pa()Pa()T\( `$\-M6S(נ٠ӠϠՠԠ)']ŠӠLM6d"e UVW$q-rq-rq\ ]6 Kd"eM6N@"rC@" rD4 r O4rD4rD42rD4rd]ԠРhna(ԧӠҠԠſ)R@M6a(ȠϠՠԿ)Pa(˯)Pa()TZxM6a(ԠĠƠӠϠՠԿ)cPa                   W DELETIONS FROM/W THE CATAGORY TOTALS5W0JW1 APPLE T.A.R.T.^W2 SOFTWARE BANKeW3 vW4 ENTERED BYW5 WILLIAM DAVISW6 ANDW7 ELUISE MARVINW8W9 AUGUST 19,1979 FOR A BEDSIDE LAMP"=V "A CENTURY LATER THE NIGHT IS PAST"UV MORE OR DIFFERENTkV DATA STATEMENTSV MAY EASILY BEV ENTEREDV V THE DIMENSIONSV IN LINES 135-139V MUST BE CHANGEDV TO REFLECT ANYW ADDITIONS OR ENSE"4U "MY ATTENTION HAS RECENTLY BEEN FOCUSED"^U "GIRL LOCUSTS DON'T MAKE ANY NOISE"U "WHOSE FLAVOR REEKS OF RANCID BUTTER"U "FIVE STORIES TALL THIS MANTRAP STANDS"U "THEY PASS UNWARY THROUGH ITS PORTALS"V "YOU SEARCH IN VAIN +T "THEIR TOES AND YOURS ARE FAR APART"UT "YOUR WOOLLEN SOCKS CANNOT BE WORN"T "AND WHILE HIS SOCKS ARE HUNG TO DRY"T "AND YET THE IDIOTS KEEP ON LIVING"T "IN WOE AND PAIN THROUGH LIFE THEY GO"U "TO CONFIRM THROUGH SACRIFICE INT "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"WS "THIS IS THE DAY THAT WON'T GET DARK"S "NEVER AGAIN SHALL WE GET TO BED"S "DUSK IS AN EXILE, NIGHT HAS FLED"S "MIDNIGHT LIES WITH THE BURIED CZARS"T "YOU BUY THEM THUS BECAUSE YOU THINK" "EXPERIENCE! IDIOTS DO NOT HEED IT!"OR "I'D TRADE MY LAKE OF EXPERIENCE"yR "FOR JUST ONE DROP OF COMMON SENSE"R "SHE STRUNG HIM UP ON THE NEAREST TREE"R "THE COATS DISPLAY NO WASPISH WAIST"R "TO SURVIVE A DAY OF MEDIUM LENGTH"+S'S LITTLE SUCKERS CHIRP LIKE BIRDS"NQg "WHILE SPENDING THEIR ALL ON LOSING"{Ql "PEOPLE WHOSE INSTINCTS INSTRUCT THEM"Qq "WILL NEVER LEARN BY SUFFERING ONCE"Qv "BUT EVER AND EVER PLAY THE DUNCE"Q{ "EXPERIENCE! WISE MEN DO NOT NEED IT!"'RDLY WAIT TO GET BACK AT THE FIRE"LPI "WHO SAYS THAT HE CAN DRINK OR NOT?"qPN "THE NATION BANKRUPT BY A WAR"PS "THINKS TO RECOUP WITH JUST ONE MORE"PX "THE WRETCHED GOLFER, DIVOT-BOUND"P] "PERSISTS IN DREAMS OF A PERFECT ROUND"#Qb "LIFE "EXPERIENCE IS A FUTILE TEACHER"IO+ "EXPERIENCE IS A PROSY PREACHER"oO0 "DEPEND, MY BOY, ON EXPERIENCE"O5 "MEN STAND IN LINE TO GAMBLE AGAIN"O: "FOR STERILE WEARIENCE AND DREARIENCE"O? "THE BURNT CHILD, URGED BY RANKLING IRE"!PD "HART IS HARROWING, BROWBEATING AND CRUEL"MN  "IS ANOTHER MAN'S REMINISCENCES"{N "DID YOU READ THIS RIGHTLY OR WRONGLY?"N "ORIGINS OF AMERICAN PLACE NAMES"N "EXPERIENCE IS A FRUIT TREE FRUITLESS"N! "EXPERIENCE IS A SHOE-TREE BOOTLESS""O& DRY OUTER COVERING OF FRUITS"MM "A COLLECTION OF WATERY FLUID IN A HOLE"sM "THE SLAIN NINE-HEADED SERPENT"M "ANY ONE OF A NUMBER OF THINGS"M "HE RECENTLY PUBLICLY APOLOGIZED FOR IT"M "A QUARTER-HORSE IS THREE-QUARTERS MULE"&N "I(L "THE BLOWFISH NIBBLE AT YOUR TOES"UL "ALL LADIES THINK THEY WEIGH TOO MUCH"yL "WHEN HIS FACE IS APOPLECTIC"L "BUT JOY IN HEAPING MEASURE COMES"L "WHOSE SOUPS ARE SOUNDLY PEPPERED"L "A SHIVER GOES RIPPLING UP MY BACK"M "THEPE"+K "AND I HOPE TO DO SO NEVER AGAIN"TK "BEING A FATHER IS QUITE A BOTHER"~K "AND THEN ONE MORN A CHILD IS BORN"K "THE FRIENDLY EMBERS WARMER GLEAM"K "MUTTERING SPELLS LIKE AN ANGRY DRUID"K "AND WHEN THEIR ORGY AT LAST ABATES"J "THEY SCATTER ADJECTIVES HITHER AND YON"\J "PRAISE THE SPELLS AND BLESS THE CHARMS"J "APRIL SOFT IN FLOWERED LANGUOR"J "AND OFTEN TRAMPLED ON HIS OWN SHADDER"J "GO SOAK YOUR HEAD IN BOILING ADS"K "I ROAM WHERE MAGIC CASEMENTS ODINING ROOM IN ALABAMA"DIw "I AM ABOUT TO VOLUNTEER A DEFINITION"sI| "SWANS HAVE CYGNETS, SEALS HAVE PUPPIES"I "BUT GUPPIES JUST HAVE LITTLE GUPPIES"I "A MAN WHO CAN'T SLEEP WITH THE WINDOW"I "AND IF YOU WANT TO NAME YOUR OWN RATION"-HT "RISE IN YOUR GOWN OF SHINING BLACK"KHY "AND IT ALSO BAGGED BEHIND"vH^ "HOW FAST HE GOES - HOW MANY WHEELS"Hc "HARK TO THE WHIMPER OF THE SEAGULL"Hh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AGE"Ir "IN A HOTEL "THIS WAS MADE POSSIBLE BY A GRANT"SG; "THAT HAS BEEN MANKIND'S MAJOR QUESTION"~G@ "HE OPENED THE DOOR AND LED THE WAY"GE "THE STRANGE CASE OF THE MISSING DOVE"GJ "WITHDRAW, MY DEAR, WHILE YOU CAN"GO "GET UP, I TELL YOU, GIRL, GET UP!")D?"'F "A DIVERSE AND UNIQUE CORNER"NF "SUCH A VARIED EXPANSE OF SPACE"zF" "THE PACIFIC HAS WITHSTOOD EXPLORERS"F' "SUCH AN EXPANSE OF TIME AND DISTANCE"F, "DID PETER PIPER PICK A PECK OF APPLES?"F1 "WHERE IS HE? - I DON'T KNOW"$G6FALL".E "THE RIGHT IDEA AT THE WRONG TIME"\E "WHY DID THE CHICKEN CROSS THE TRACKS?"E "AND MAGGOTS CREEP ABOUT HER EVES"E  "HER HAIR LAY SILKEN AND SHINY BRIGHT"E "DENIED THEIR RIGHTS BY THE GOVERNMENT"F "HOW CAN IT LAST UNSPOILE+D "NO MAN SHALL MARK THE DAY SHE DIES"UD "WHO GROANS BENEATH THE PUNIC DIRT"D "AND STRANGLES IN A STRING OF CURSES"D "HER LIVING MOUTH SHALL SPEAK NO TRUTH"D "AND MAGGOTS CRAWL ABOUT HER EYES"E "HIS RIGHTOUSNESS CAUSED HIS DOWN"THE STYLE WAS SO PECULIARLY MY OWN"OC "WHO GROANS BENEATH THE PUNIC CURSE"}C "AND STRANGLES IN THE STRINGS OF PURSE"C "BEFORE SHE MENDS MUST SICKEN WORSE"C "HER LIVING MOUTH WILL BREED BLUE FLIES"D "AND MAGGOTS CREEP ABOUT HER EYES"CCESS" BB EXPERTBNB "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"}B "THE SUBJECT OF EVERY VARIETY OF MISERY"B "BOTH ARE EXAGGERATED BY POSTERITY"B "THE MOST PRECARIOUS HEARSAYS"B "I MEAN AN EXTREMELY REMOTE POSTERITY"$C ANY FOOD LEFT FOR ME?"7A "THEY MUST HAVE MORE ROOM"[A "THE CHILDREN HAVE MANY PETS"{A "THE PHONE KEEPS RINGING"A "ELEPHANTS DO NOT FEAR MICE"A "HE HAS 3 NIGHT CLASSES"A  "THE SAND WAS PURE AND WHITE"B "THEIR VACATION WAS A SUSHE HAD AN OPERATION RECENTLY"@@ "THE WEDDING WAS POSTPONED"c@ "BLUE IS THE FAVORITE COLOR"@ "THE WEDDING WAS CALLED OFF"@ "HOW MUCH FARM LAND IS LEFT?"@ "POLLUTION CONTROL IS DIFFICULT"@ "A TORNADO TOUCHED DOWN HERE"A "IS "I DIDN'T GET THE RIGHT CHANGE"G? "WHICH ISLAND WILL YOU VISIT?"j? "WHEN WILL IT STOP RAINING?"? "SOME BIRDS MIGRATE EACH YEAR"? "SHE HAD LOTS OF SHOPPING TO DO"? "STARS COME OUT AT NIGHT"? "THE WATERS ARE CALM AGAIN"@ "OR ME"%> "CAN YOU FIND MY WATCH?"H> "SHE WAS A POOR HOUSEKEEPER"l> "LIONS ARE VERY LAZY ANIMALS"> "THE LABEL FELL OFF THE CAN"> "CAN SHE FIND MY WATCH?"> "THEY GOT A BAD SUNBURN TODAY"> "THE MUSEUM WAS ROBBED LAST NIGHT""?ING RIGHT"3=a "THERE IS SNOW ON THE MOUNTAINTOP"R=f "WE HAVE TO GO HOME NOW"v=k "THE WOOD HAS TERMITES IN IT"=p "THIS DOLL WILL BREAK EASILY"=u "HE HAS TO WEAR GLASSES NOW"=z "HE MUST DO HIS HOMEWORK NOW"> "THE WATER IS TOO COLD FE TO TRY?",<> "WE HAVE 2 CATS AND 5 FISH"R6l "THEY HAVE TOO MANY PETS"_6q "WHY DON'T YOU WAIT HERE?"6v "LONG DISTANCE PHONE CALLS"6{ "HOW MANY OF THESE DO YOU HAVE?"6 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON TV"7 "WHEN DO YO%5D "I THINK THE INVOICE IS WRONG"J5I "DOES YOUR TV SET STILL WORK?"p5N "HAVE YOU LEARNED SPANISH YET?"5S "THERE'S A HAUNTED HOUSE THERE"5X "HAS YOUR LETTER BEEN RECEIVED?"5] "THE LITTLE GIRL WAS PRETTY"5b "A NIGHT AT THE THEATRE" "WHERE DID YOU PUT THE BOOK?"D4& "THAT STORY WAS VERY AMUSING"n4+ "THIS IS A SET OF VALUABLE CRYSTAL"40 "HE MAKES JEWELRY OF CORAL"45 "ALL THE WALLS WERE PAINTED"4: "SHE CROCHETS AFGHANS ALL DAY"5? "HAS THE SHIPMENT OF PAPER COME?" "SELF-LOVE AND THE LOVE OF GOD"I3 "A REASON TO ABSTAIN FROM TRYING"l3 "MY PLANE LEAVES ANY MINUTE"3 "MY TRAIN IS OVER AN HOUR LATE"3 "WHY DID THE MAILMAN COME LATE?"3 "IT'S TOO LATE TO GO NOW"3 "WHY NOT STAY OVER TONIGHT?" 4! FATHER?"12 "I DON'T UNDERSTAND WHAT HE SAID"W2 "IT WAS A FULL MOON LAST NIGHT"}2 "WHAT ARE WE HAVING FOR LUNCH?"2 "THE ONLY SATISFACTORY ANSWER"2 "LEARNING DEMANDS PRACTICE AND CONCERN"2 "SO SURROUNDED BY FALSE CONCEPTIONS"!3 1 ADVANCED1 71 "DID YOU ENJOY SCHOOL TODAY?"X1 "I HAD A MAGNIFICENT TIME"z1 "REMEMBER TO BUY SOME MILK"1 "LET'S GO OUT FOR A BEER"1 "IT REALLY WAS A GREAT SHOW"1 "I CAN'T FIND MY BLACK SOCKS" 2 "WHY DID GEORGE KILL HIS0 "SHE HAD TWO DOGS"50 "JOHN TAKES MARY OUT"N0 "A FURNITURE SALE"j0 "SHE LOST HER GLOVES"0 "THE CLOCK STRIKES 5"0 "DO MICE LIKE CHEESE?"0 "SHE WAS DAY-DREAMING"0# "THE CLOCK STRIKES 2"0( "TRIMMED WITH SILVER"0 FRAME IS CRACKED"./ "NATIVES SELL CRAFTS"H/ "THE EDGE OF SPACE"_/ "FILLED THE SKY"x/ "A VERY OLD STORY"/ "FLEETS OF WAR SHIPS"/ "A VERY OLD MANSION"/ "A DOG'S RED COLLAR"/ "CAN YOU SEE THEM?"0 "THREE SHADES OF RED" "THE DOOR IS OPEN"-. "MARY EARNS MONEY"C. "SINGING ALONG"]. "TEACH LITTLE KIDS"w. "THE BRIDGE IS OUT". "SIGNS OF SPRING". "THE LIGHT IS BRIGHT". "HOLIDAY MEALS". "MAGAZINES TO READ". "SHE HAD 5 KITTENS"/ "THEMALL WOODEN BOX"+-o "BILL TAKES LESSONS"F-t "CHILDREN IN SCHOOL"a-y "JIM LEARNS DANCING"{-~ "WELL-DRESSED LADY"- "COURTROOM BATTLE"- "TOO MANY CHILDREN"- "RIBBONS WITH LACE"- "FENCE BY THE ROAD"- "LETTERS TO WRITE". "A SHOTGUN WEDDING"+,= "FOUR YARDS LONG"E,B "JIM CARRIES ROCKS"^,G "LEARNING TO SWIM"x,L "THE NIGHT IS DARK",Q "JANE RIDES TO WORK",V "TOO MANY CHAIRS",[ "HORSES TO RIDE",` "TIED UP WITH STRING",e "UP THE STAIRCASE"-j "S"FAMOUS ARTISTS GROUP"2+ "A HEAVY WINTER COAT"J+ "HORSES FOR SALE"b+ "WASH THE DISHES"|+ "WALK IN THE WOODS"+ "THE LION PACES"+$ "THE FIRE CRACKLES"+) "THE LATEST STYLE"+. "EMPTY PACKING BOXES"+3 "RAINBOW COLORS",8 SHION"#* "JOHN AND JANE TRAVEL">* "BILL WEARS GLASSES"Z* "JANE TYPES A LETTER"u* "THE HOLIDAY SEASON"* "AN INSECT BITE"* "ICE CREAM IS COLD"* "UNDER THE ROOFTOPS"* "A FLOCK OF PIGEONS"* "A BALANCED CHECKBOOK"+ N THE RAIN"() "HEAVY TELEPHONE BOOK"E) "THE PHONE IS RINGING"a) "SHE SPILLED PERFUME"z) "A FLOCK OF SHEEP") "TINY SPECKS OF PAINT") "THE ENGLISH TEACHER") "HE MAILS THE LETTERS") "JANE FEEDS THE CAT"* "THE LATEST FA "A BOTTLE OF PERFUME"4( "THE PAINTING IS GOOD"L( "LET THE CAT OUT"h( "ANIMALS IN THE WILD"( "A MUSEUM EXHIBIT"( "MARY VISITS A FRIEND"( "LOOK UNDER THE BED"( "LIVE LONG AND WELL"( "WINE AND CHEESE PARTY" ) "RIDE IINT IS DRY"$'M "THE MEAL IS OVER">'R "SOFT AS A FEATHER"\'W "THE LAMPSHADE IS BENT"u'\ "THE MAIL IS LATE"'a "COLOR TELEVISION SHOW"'f "BABY TAKES A NAP"'k "SATURDAY AT THE PARK"'p "WRITE HIM A NOTE"'u "MARY VISITS JANE"(zTHE DOG HAS FLEAS".&  "I CAN READ QUICKLY"L&% "JOHN READS MAGAZINES"h&* "THE PAGE IS BLURRED"&/ "JANE COOKS DINNER"&4 "HE'S TIRED AFTER WORK"&9 "THE ASHTRAY IS FULL"&> "LOOK AT THE MOUSE"&C "ANIMALS IN THE ZOO" 'H "THE PA WATER IS COLD"+% "LOOK IN THE CLOSET"I% "TRAFFIC IS HEAVY NOW"f% "THE STORE IS CLOSED"% "BILL READ THE BOOK"% "BILL LEADS THE BAND"%  "AN IMPRESSIVE BUILDING"% "HIS CUP IS EMPTY"% "LOOK FOR THE RAINBOW"& "AY"$ "BOB GOT A RIDE"3$ "VERY GOOD ADVICE"K$ "BOB KILLED MARY"Q$d$ INTERMEDIATEj$$ "WE ATE DINNER LATE"$ "WE HATED HER DINNER"$ "SHE LOVED HIS SUIT"$ "LET'S GO HOME EARLY"$ "HERE COMES THE DOG"% "THE "COME DOWN HERE"'#| "HE WAS ABUSED"=# "COME UPSTAIRS"T# "SHE HAD ACCESS"i# "ANN WAS DEAD"# "SHE HAD SUCCESS"# "ANNE WAS PRETTY"# "IT IS MAY"# "JOHN KNEW MARY"# "IT IS MY OWN"# "JILL KISSED JACK"$ "ON HIS W "ABANDON SHIP"'"E "JILL IS PRETTY"@"J "ABANDON ALL HOPE"U"O "JILL IS PINK"k"T "IT WAS ABLAZE""Y "ANN CAME HOME""^ "THEY WENT ABOARD""c "VERY POOR ADVICE""h "THEY WENT ABROAD""m "ANNE CAME HOME""r "HE WAS ABUSIVE"#wES"!  "UP THE HILL".! "A TASTY ORANGE"B! "TO THE MILL"\! "HIS YELLOW STREAK"s! "JOHN FELL DOWN"!" "MONEY IS GREEN"!' "BILL CAME LATE"!, "I AM BLUE"!1 "MARY WAS LATE"!6 "SHE SPOKE QUICKLY"!; "MARY HAD A DATE""@ AGAIN"  "THE GREEN GRASS"7  "HE WALKED SOUTH"L  "THE BLUE SKY"d  "HE WALKED NORTH"{  "THE WHITE SNOW"  "I LOST TRACK"  "DEEP BLACK NIGHT"  "I LOST MY WAY"  "THE BROWN DIRT"  "A GOOD ORANGE"! "HOT RED FLAM "A WHITE SWEATER"' "A YOUNG PONY"< "A BLACK CROW"O "IT IS JUST"d "MY BROWN COW"{ "IT WAS JUSTICE" "HER RED SCARF" "HE WALKED AWAY" "OUR ORANGE RUG" "HE TRIED TO WALK" "A YELLOW SKIRT"  "HE WALKED FAMILY"_ "GO DOWNTOWN"4d "HIS RIGHT WRIST"Ii "TRY IT AGAIN"^n "HER LEFT ARM"ts "TRY IT MY WAY"x "YOUR RIGHT HAND"} "HIS RING FINGER" "MY LEFT LEG" "HER LIMP DRESS" "HE WAS CRUEL" "A DULL SUMMER" ONCE"# "IN THEIR WAY"/( "AT MY WATCH"D- "ON THEIR WAY"Z2 "HE WAS HUNGRY"o7 "BEGIN AT ONE"< "SHE IS TIRED"A "AT MY WALLS"F "THE FOOTBALL GAME"K "HE WAS HARRIED"P "I AM FINE"U "I AM FIRST"Z "YOUR WHOLE" "ONE YEAR TO GO"+ "ON THE WAY"C "DO YOU KNOW HIM"V "I KNOW YOU"k "SIX RAW EGGS" "AN OLD LADY" "SIX RED HENS"  "A PURPLE FINCH" "SIXTEEN YEARS" "THE TENNIS MATCH" "SIXTEEN ACRES" "BEGIN AT"I KNOW THEM"" "A RED TURTLE"7 "A YOUNG GIRL"O "HIS BACK POCKET"h "HER TENNIS DRESS"} "ONE YEAR AGO" "TEN YEARS YOUNGER" "LAST MONTH" "HIS BACK ACHES" "A YELLOW TIE" "ONE YEAR BEFORE" "OF HIS HAT "DURING THE DAY&t "AT THE TIME"<y "NOT THIS TIME"Q~ "IN THE HOUSE"h "TEN DAYS OLDER" "TEN YEARS OLDER" "GO WITH HER" "EXCUSE ME" "COME WITH US" "COME WITH ME" "GO WITH HIM" "THE LAST DAY"  999","6606","3555";8 "7447","2233","8000","4568","3883"k= "60415","436759","10390","91321","19234"B "78132","01654","12065","46751","9183G "98456","46753","98546","89545","38954"LV BEGINNING DATA`j "IN THE NIGHT"o88888","999999","555555"A "5647","5712","8381","9821","7547"n  "76544","8574","87234","36535","26543"$ "8465","8769","9062","2116","8790") "6546","8423","1011","1023","1017". "1019","9909","9969","9960","9099"3 "9009","9999","6"/ "13579","97531","24680","08642","75756"Z "8417","6521","33225","9384","1430" "11111","22222","33333","44444","55555" "47653","89456","46757","49855","75652" "66666","77777","88888","99999","00000" "111111","444444","8675","76407","62345","4675"I "12345","23456","34567","45678","56789"w "01256","02375","01235","87965","34675" "67890","78901","89012","90123","01234" "09876","98765","87654","76543","65432" "54321","43210","32109","21098","109876:10,"--------------------"810:10T"--------------------"Z`s PROGRAM DATAy WARM UP DATA "67354","23655","84561","48796","74865" "63045","7698","87256","14346","6532" "28566","37N KEY TO CONTINUE";#5I1750:I+6C$48950D:I1750:IM<420V?490\} INITIAL TIME DETERMINATIONSP1SP600SP2SP500SP3SP400SP4SP300SP5SP200  SET UP SCREENED MORE PRACTICE."N/SCST6SCST4ĺ"YOU SHOULD TRY SOMETHING EASIER."0SCST4ĺ"THAT WAS WAY BEYOND YOU. WHY NOT TRY SOMETHING A LOT EASIER."1::"DO YOU WANT TO TRY AGAIN? ";2TR$:(TR$,1)"Y"30034::"TYPE THE RETUR$'(ST$,1)"Y"553 (5647)SC((10RAT)ST)T*::"YOUR SCORE IS ";SCZ+,SCST10ĺ"THAT'S PERFECT. TRY SOMETHING HARDER NEXT TIME!"-SCST10SCST8ĺ"THAT'S VERY GOOD!".SCST8SCST6ĺ"YOU DID ALL RIGHT. BUT YOU NEA SLIGHTLY SHORTER LENGTH OF TIME":SPSP10:RARA1KSP20SP20W!TT1:":"YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."#T10T20T30T40T50549$564%I120:SOUND(S)(S)(S):I&::"DO YOU WANT TO STOP? ";ST 5  "WHAT WAS IT?"*:A$2:AA$P$540["THAT'S NOT RIGHT":"IT WAS ",P$::"THE NEXT ONE WILL BE DISPLAYED FOR A LITTLE LONGER"SPSP10545:"THAT'S RIGHT"%:"THE NEXT ONE WILL BE DISPLAYED FOR 8)PP$(7):PP$(7)PP$(6):PP$(6)PP$(5)kPP$(5)PP$(4):PP$(4)PP$(3):PP$(3)PP$(2):PP$(2)PP$(1):PP$(1)P$qw BASIC PROCEDURE900950420I1750:I8:(20((P$)2))SP0SP0P$I0SPI1)):P$I$(P)X110+P$PP$(X)4357X:450EPL4444`P(AD(1)):P$AD$(P)lX110P$PP$(X)440X:450PL5450P(EX(1)):P$EX$(P)X110P$PP$(X)445X%PP$(10)PP$(9):PP$(9)PP$(8):PP$( STPLSP 470 .  SELECT PHRASE4 B PL1429a PL1P(W(1)):P$W$(P)m X110 P$PP$(X)425 X:450 PL2434 PL2P(B(1)):P$B$(P) X110 P$PP$(X)430 X:450 PL3439 P(IN(:"1. WARM-UP 1. VERY SLOW"M "2. BEGINNER 2. SLOW"u "3. INTERMEDIATE 3. MEDIUM" "4. ADVANCED 4. FAST" "5. EXPERT 5. VERY FAST"  "PHRASE LENGTH ";PL "DISPLAY SPEED ";SP Y:"A PHRASE WILL BE DISPLAYED FOR A SHORT"Y ^"PERIOD OF TIME, AND YOU WILL TRY TO"i c"READ IT." h:"TYPE WHAT YOU SEE AND YOU WILL BE TOLD" m"IF YOU WERE RIGHT." r:"YOU HAVE A CHOICE OF PHRASE LENGTHS" w"AND DISPLAY TIMES."' |X X1IN I$(X)" X. X1AD: AD$(X)A XM X1EXY EX$(X)` "Xg , z - INTRODUCTION . 6 J"THIS PROGRAM IS DESIGNED TO IMPROVE" O"YOUR READING HABITS, AND AT THE" T"SAME TIME, YOUR READING SPEED.".936 12 14( ("SPEED READING"8 2I1750:I> nS x INITIALIZATIONY c W120m B120x IN120 AD120 EX120 W$(W) B$(B) I$(IN) AD$(AD) EX$(EX) X1W W$(X) X X1B B$(X) O SPEED READING0 BY ELUISE MARVIN H AND WILLIAM DAVISZ AUGUST 1979`f THIS PROGRAM MAY BE  COPIED AND GIVEN AWAY BUT MAY NOT BE USED FOR ANY COMMERCIAL PURPOSES.  S16336                           JJJ`ŴxaI1S-Q/ HQJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! /#` L# !" #`#&/'$% #` dTePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)!PI"ȄR-QTU/T8ePT HUeRU IQSS.@`*()H)&JJ&&h' &' &' f&') .'#i-0J, i` @ /Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+- !8TeRTUU+5&E%0Q&&S  @@@@ U@D02@U@9@D@ U r e r U Z D LD@ D@9 r Z U  rrrr .S`%556777?>>>6...-%%%<<<7775,,,$% )#' )'?77..<.>4>7?<''5$7%,%-.5.?<'>7/.5,%?/--56.$.6&55.66% %784'>5>5,&=$ $ ??7--%$%%-5$''',,<<$$$$6777''5%0 ``@eUVWY["d8reqq_~SPoM6dS(Ϡ͠)'`$de8r_pFPoM6da(ԠРŠ٠٠̮)q_p]ԠЮӠ0 qq`%[_pq7`7$d6?e_p K_p;`$oPM6da(ԠŠӠš)[qqqM$\qqqd&e[GM6oM6dd2ea(ŠԺנ)Gbd2eVWX8qq \Mq\MYY`$8qq#\Mqq?\MM&qq?q[\MMqq \Mq<\Mqq\Mq<\MY`<@*#rr$Y_p"`%q`7$qTq8 8rrd8re888rrrqd8re \_pqMded&ed'ed,ede0UVWxXMUVW%X$U$"3v`$`$*`$'xUVW`<@*#rr$zY_p zq-rdedeM|d8reqq&~oPM6da(ο)_p`$`%\`%q'UVWr-n@p@*#r`@9()%Ya@GY`$$p\:`$`$pr`$tq7@B rp(ˬ̮)`%@B rp(̮ͬ)@Brp()`%@Brp()q_RAt`$`$`$$`!e';fca(ӠŠĠ٠ƠΠ)a(Į)Rhd ed!e'od2e?M6a()-ja(ڠؠà֠ Π͠)GJld2eo@p(ĠȠ̫)`%@p(Ġʠ̫)UVW P8)a(Р٠Ϡ)a(Š)\\a(Ԡ٠Ԡ)a(٠٠Ġ)Ga(ՠŠ)Ga(ɠĠϠ)G+`a(ŠŠ)a(ĠŠ)aa(נŠ)%ba(Šҽ)a(ŠԠ)dd eda(ŠŠ)d!ea()a()a()_Va()a()a()a(Ҡħ)Ga(ӠΠ)a(Š)=X@p()`%@p()ca(נŠӠ)Gd2e?a@d2eWZd eoa(Πź)a(ҠŠ)ca(ŠŠŠǠԠ)ca(Ϯ)KNca(ŠҠϠĠӠ)ca(ĠӠϮ)\8PK`;@r$Rq_rNRM6`$ha(ǠΧӠ)a(ŠĠӠԮ)@TcN@"r@p()"BN@"r@p()D@p(ˬ̮)4FN@""r@p()VHca(ŠӠƠΠά)ca(ΠӠϠԠϬ)gJca(٠ӠrqY_<8ca(Ӡ٠٩)$:q.?6@r`$:d6?e[_<KM6ca(àҠ)ca(ӠĠӠӠ)C>N@" rd6?eN@"rded,edede&@qqrr\&0qd8req_92q48M8rr`%qq`%q/4`%q\MMqq[o6O4$rqiUVW q8r8$rq2-rq8dr- rq-`$p_&$qq`$p.&UVWXde.?rq.?rdeM (Y_p=*q.?rUVW$`-r%Yqded,eK,qq.?rq8r8@r8 r8r`%q.q8.?q`$@p@*8r#8rr`@:@*#r$Dqq\Md&eMd&eq\M'`%[`$q\Mq\M7 `%[qUVW\MMqY[)"qqr! q8.?rr\MYq_pPoM6dqd&eq88r r`%\`%\-q+8rqN8M8rr`$20q8<@*#rrrqq\MM`7$q\M<  _6 d ed!ed"ed$ed%e['qq\qUVWX2q.?rUVW$`-r%Yqde[ q.?rdeq8 r8r81r8ar88rrq8     ******************2`S"31160y21000:31010-yA$"P"31180?y22000:31010TyA$(13)31130c}::12:9 }"CALENDAR IS OFF THE AIR"}23@***** CALENDAR *****A* WRITTEN 1980 BY *B* PAUL IRWIN *C* (613) 728-6728 *D**TEN BY PAUL IRWIN"6yT12:10J@y5:"A PERPETUAL CALENDAR PROGRAM FOR"sJy"YOUR CHOICE OF SCREEN OR PRINTER:"Ty:T:"S ... SCREEN"^y:T:"P ... PRINTER"hy:T4:" ... RETURN TO BASIC"yX(0)y20:16:"WHICH? ";:A$yA$"**"Vv" **** "Wv" ** "-Xv" ** ";Yv"** "I\vY$(7,10)UfvI110kpvJ17:Y$(J,I):qzvwy}yy**** MAINLINE MENU ****"y:::255,y3:16:"CALENDAR".y:60y"FROM THE OTTAWA 6502 USER GROUP"2y:9:"WRIT?v"******"@v"* **"(Av" ** "6Bv" ** "DCv" ** "RDv"** "`Ev"** "kHvEIGHTyIv" **** "Jv"** **"Kv"** **"Lv" **** "Mv"** **"Nv"** **"Ov" **** " RvNINESv" **** " Tv"** **"Uv"** &v" ** "'v" ** "%*vFIVE3+v"******"A,v"** "O-v"** "].v"***** "k/v" **"y0v"** **"1v" **** "4vSIX5v" **** "6v"** **"7v"** "8v"***** "9v"** **":v"** **";v" **** " >vSEVEN "** **"v" ** "$v" ** "2v"** "@v"******"KvTHREEZv" **** " hv"** **"vv" **"v" ** "v" **"v"** **"v" **** "  vFOUR!v" ** ""v" *** "#v" * ** "$v"******"%v" ** " ZEROu" **** "!u"** **"/u"** **"=u"** **"Ku"** **"Yu"** **"iu" **** " sv ONEv" ** "v" *** "v" ** "v" ** "v" ** "v" ** " v" **** " vTWO v" **** "v"** **"vE YEAR!PuF0(12):0,31,61,92,122,153,184,214,245,275,306,337:I112:F0(I):uMO$(12):MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERuJANUARY,FEBRUARY:I112:MO$(I):uLINE$(7)uT(3):T(1)1:T(2)28:T(3)55u STN J -- OTTAWA -- K2A 1T3"0WI18:(32):8WCN?W0EY^0u**** CONSTANTS ****z:uD03:PHASE DAY OF WEEKbuSTART THE YEAR ON MARCH FIRST AND TABLE THEduFIRST DAY OF EACH MONTH. THIS WORKS WHENfuFEBR