' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#N)ADD36864,MS%(N)$:::6"SAVING ";F$[(4);"BSAVE";F$;",A$8E00,L$300"f216,0N$;" IS SAVED AND READY TO PLAY.": SCREEN PRINT0:W1(A$):A((A$,W,1))49AX,AY:A43ĕA43AX,AYAXAX7::3:  INSNT":"FOR THE NEWLY TAUGHT PLAYER? ";F$:1380:NFĴ(F$"?")11440,1430::880j:"FINALIZING CHANGES"N0:N11517:N21517:N31517:N41517:NN1ADDN1(N115)N2(N215)2N3(N315)4N4(N415)8ADD36352,ES%(N):ADD36608,ES%(517:NN1D*ADDN1(N115)N2(N215)2N3(N315)4N4(N415)8m4ES%(N)((ADD36352)(ADD36608))2>MS%(N)(ADD36864)H:::R170\ SAVE STUDENTfEF2:1410p:"ORIGINAL PLAYER NAME - ";NAME$:Nz"WHAT NAME DO YOU WAEF1:141012:"WHAT IS YOUR PUPIL'S NAME? ";NAME$:F$NAME$:1380:NFĴ(F$"?")11440,1430:1210(F$"?"):1:958:750:"LOADING ";NAME$(4);"BLOAD";NAME$ 216,0:"EXAMINING ";NAME$  N0:N11517:N21517:N31517:N4100M1ES%(N)S:690&MS%(N)SYA$"00"(S):A$(A$,3):AXCX5:AYCY40:10100:CX7,CY32CX15,CY32CX15,CY42CX7,CY42CX7,CY32223,166256,166256,178223,178223,166:3A21:D1560,100,100,500 LOAD STUDENT 175:D0:S00b50AX,AY:A$:A(A$):620:610el50AX,AY:A8D0DD1:AXAX7:1010:AXAX7:vA13(D3D0)ġ:D1700,100,100,660A48A57D3ıS(D)A48:1010:DD1:SS(2)10S(1)100S(0):AX229:A$"???":1010:S255S1611))11:CX0CX11?CY(NNCX.1)48112:CX(CX2513.9)Q&A13D3580~0CX,CYCX8,CYCX8,CY32CX,CY32CX,CY:440DCX7,CY32CX15,CY32CX15,CY42CX7,CY42CX7,CY32N223,166256,166256,178223,178223,166 XAX229:AY,CYCX8,CY32CX,CY32CX,CY:3\D0:A49A50Ĺ16349A,0:230,(A48)32:N141(A50)jA27170A32NN11:N41N53N1A8NN1:N41N81A21NN1:N42N1N1N41N81N42NNN41(N41):CX((NN11)(NNrN136X,Y12:N236X,Y6:N336X,Y24:N436X,Y30:3:54X,Y18||A$"00"(MS%(C)):A$(A$,3):AXX9:AYY42:1010XX25:X275X15:YY48ADD33504,P::: TEACH STUDENTN1:A49:460A$:A(A$) 0:CX,CYCX8275X15:YY48. ,ADD32992,P:ADD33248,P: 6:::C @430Y J CENTER STRATEGY T:X15:Y0:C0:16302,0:AX220:AY157:A$"PAGE 1":1010 ^N11517:N21517:N31517:N41517 hCC1:C42Đ:Y0:X15:AX220:AY157:A$"PAGE 2":1010FAGE 1":10108 N11517:N21517:N31517:N41517s CC1:C42Đ:Y0:X15:AX220:AY157:A$"PAGE 2":1010 N136X,24Y:N236X,18Y:N336X,Y12:N436X,Y6:3:54X,Y30 A$"00"(ES%(C)):A$(A$,3):AXX9:AYY42:1010 "XX25:X0:"ON DISPLAY SCREENS: USE <--, -->":" AND SPACE TO MOVE CURSOR, TO":" CHANGE ITEM, FOR MENU." 17:10:"WHICH? ";A$:M(A$):M5M1170 M240,340,870,1050,1420 END STRATEGY :X15:Y0:C0:16302,0:AX220:AY157:A$"P MAIN MENUp ::13:"QUINTIC.TEACHER"::"** COPYRIGHT 1986 BY MICROSPARC, INC **":6:16:"MAIN MENU":10 8:"1) DISPLAY END STRATEGY":8:"2) DISPLAY CENTER STRATEGY":8:"3) SAVE COMPUTER PLAYER" 8:"4) INSTRUCTIONS":8:"5) QUIT"p 2% Z34816:24576:ES%(100),MS%(100) d::13:"QUINTIC.TEACHER"::9:"BY JAMES R. GESCHWENDER":6:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" nEF3:1410 x(4);"BLOAD QUINTIC.SHAPES,A$9200" 216,0 232,0:233,146:1:3:0 740 # ***************************E * QUINTIC.TEACHER *g * BY JAMES R. GESCHWENDER *( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC. *< * CONCORD, MA 01742 *F *************************** P INITIALIZE        0  L` iwSRKQbSXTdS$baOz"!f`^W\ t1^bMVSgU]YYTRXxTmkZ|eRf[![nK2ujQX`dcmcRKvMFXRKLYVPTrSJtSNfRa^XSU[QKՙPKကPP`W_TTRSSsRK|nSL~QNQPh[cYaUai^RSOKRXSQK͠QKbiRKLYVPTrSJtSNfRa^XSU[QKՙPKကPP`W_TTRSSsRK|nSL~QNQPh[cYaUai^RSOKRXSQK͠QKbiRK   ILES":-0 "CHECK DISK AND PRESS "<0 CH$:CH$:K0 216,0:80 145,18S/ 150,12150,10160,10160,12:150,18150,20160,20160,18:155,10155,20/ 165,20165,10175,20175,10:163,20167,20:173,10177,10/ 190,13190,10180,10180,20190,20190,15:187,15193,15/ 0 :10:"CANNOT LOAD SOUND AND ARROW F0,2070,18J.b 88,2092,20:90,2095,10100,20:98,20102,20:93,1597,15.l 105,20105,10110,15115,10115,20:103,20107,20:113,20117,20.v 118,20122,20:120,20125,10130,20:128,20132,20:123,15127,15/ 135,12135,10145,10135,20145,20- ?d- $$d9?7 $$M166?$$M16 $$M166 $d l > $l -- 7--? ?6-  6.-- ?$--)e?$$ - $ $?? - ?d-6- $$?v-$-!$6$$$--? $d-?$$$-66?$M8?$,-5??$M8?$,-5 $d-*?$$$M1-56--$$,; - $$<$$$M--$$,$$$f`666$$$V$$$ $d-66?$$$-? $d-6?$$$-?? !-9DQ[fs|&3>GS$ - c 6 ,D>$5?,6I?6- $ ?-)??.m->??w--?)e$$$$ ---$$<--d- ?- g!?I$,$  2052,20:43,1547,15t-: 23,2027,20:23,1027,10:33,1037,10:33,2037,20:25,1025,20:35,1035,20:25,1535,15-D 50,1250,1060,1060,12:55,1055,2053,2057,20-N 63,1063,12:64,1064,12:65,1065,15 .X 80,1280,1070,1070,1580,1580,207 M175(N10)8, N(I)1ēM,175(P10)M10,175(P10)?, Iu, M$"N"āI11000:I:I75175:1:175,I275,I:I, TITLE, 3:I822:8,I200,I:I:4,& 10,1210,1020,1020,12:15,1015,2013,2017,20-0 38,2042,20:40,2045,1050,20:48,N1:2920+r M175(N10)H+| E(I)1ēM10,185(P10)M10,175(P10)O+ I\+ I1100h+ PI:N0+ P10PP10:NN1:2980+ M175(N10)+ S(I)1ēM,185(P10)M10,185(P10)+ I+ I1100+ PI:N0+ P10PP10:NN1:3040,0:I<* ::"AGAIN? ";A$:A$(A$,1):A$"Y"A$(121)Ĭ130B* Q* DRAW MAPW* ^* 3k* I1100w*" PI:N0*, P10PP10:NN1:2860*6 M175(N10)*@ W(I)1ēM,185(P10)M,175(P10)*J I*T I90100*^ PI:N0 +h P10PP10:N80,10080,13040,13040,100H) 230,100190,100190,130230,130230,100T) MUSICy) M1126:M2150:2620:M1170:2620) I150:I:M2100:2620) M1151:M2100:2620:M1170:2620:M1190:2620) M1203:M2150:2620:M1255:M2200:2620* I12000161:0,Y279,Y:YI(Z 3:30,14030,3090,0180,0240,30240,14030,140[(d 30,30240,30~(n 40,4080,4080,8040,8040,40(x 230,40190,40190,80230,80230,40( 100,140100,70170,70170,140( 110,80160,80160,100110,100110,80) 40,100' A$"J"2560D' 240,30260,30:250,30250,45:240,45250,45J' \' A$"K"2590' 244,30244,45:254,30244,38254,45' ' A$"M"ı'( 242,45242,30250,37258,30258,45'2 '< 780,M1:781,M2:787:'F YOU WIN(P :1:Y143,50189,56189,50:& 192,56192,50198,50198,53192,53[& 200,50200,56206,56206,50}& 208,50214,50:211,50211,56& & LETTER& 238,28262,28262,47238,47238,28& A$"I"2530& 240,30260,30:250,30250,45:240,45260,45' I%. 0:FT1:2270%8 O.K.G%B 178,38200,38200,48178,48178,38w%L 180,40186,40186,46180,46180,40:188,46%V 190,40190,46:196,40190,43196,46:198,46%` %j INPUT%t 178,48216,48216,58178,58178,48&~ 180,50180,56:183,5618LdN 寧-   L.e` L)jjjjM`  Lwei ` H Ceh `  ` L L 0Le`=` L8 f i L?e ߩh <!i(  iLNd P  ɇޥiة  ɇiLe ,cȭh 􇩎La`*.mm``h ` c`hHiih` L d08)i 8 M d0 HHhLchH V Ce)wt8 =~>LbLcȱɀLc  0Lb !ʝLb  ,c  a  a a a a$ a  a a a``Laimi&&ihELaE 􇩑` L L L a a a a a a a a a a a  a a  a a  a a  a a a a a a a a a a a a     PTION":"TO CREATE A NEW COMPUTER PLAYER":2150U&z21:1:"ENTER '?' FOR CATALOG":&3288:216,0:D$"CLOSE"::12:"ERROR "(222):"IN LINE "(218)256(219):24:"PRESS TO CONTINUE";:Z$::EF140,180,1420,1450,1570,1160NA((F$,NC,1)):NF((NA64NA91)(NA46NC1)(NA47NA58NC1))NF1::NFNFx%H(F$,1)"?"ė:D$"CATALOG":F$"?"~%R%\23:"NAME MUST BE 8 OR FEWER LETTERS."%f24:1:"PRESS TO CONTINUE";:Z$:/&p21:1:"USE COMPUTER VS. HUMAN O1)"TRANSAR":NAME$(2)"COMPUWIN"&$ R$ I9,K9,I11,L8,I10,I8,G11,J8,K8,H8,L10{$  J7,I7,J8,J9,H11,J6,K5,K9,H9,H10,J8$* H7,H9,H8,I8,J8,G10,H10,J7,K6,F11$424:10:"";:16368,0:678::Q%>NF1:LF(F$):LF9LFāNC1LF:"IT, AND WHEN IT IS FINISHED, YOU SHOULD":[#"KNOW EVERYTHING YOU NEED TO KNOW TO":#"BEGIN PLAYING. PRESSING ESCAPE DURING":#"THE DEMONSTRATION WILL TEMPORARILY HALT":#"PLAY UNTIL PRESS ANOTHER KEY.":2100 $P(1)0:P(2)0:NAME$(O":3""FORM A PAIR BETWEEN TWO ENEMY STONES.":c""WHEN THE FLASHING 'O' STONE IS PLAYED,":~"18:"XO X":1339,79:""NO CAPTURE IS SCORED.":2100""A DEMONSTRATION IS PRESENTED HERE TO":""ILLUSTRATE WHAT HAS BEEN SAID. WATCH":.# HERE IS AN EXAMPLE:":2!X18:"XOO":1596,88:b!b"THE TWO 'O' STONES WOULD BE REMOVED FROM"!l"BOARD WHEN THE FLASHING 'X' STONE IS":!v"PLAYED.":2100!"NOTE THAT IT IS NOT POSSIBLE TO 'CAPTURE"""YOURSELF' BY PLAYING A STONE SO AS TRS OF"+ "YOUR OPPONENT'S STONES.":2100[ &"A CAPTURE OCCURS WHEN YOU FLANK A PAIR": 0"OF YOUR OPPONENT'S STONES. THAT IS,": :"YOU MUST PLACE STONES SO THAT YOU HAVE": D"ONE ON EITHER SIDE OF AN ADJACENT PAIR":!N"OF ENEMY STONES.IL ONE OF THEM WINS. THERE"K"ARE TWO WAYS TO WIN. THE FIRST IS TO":|"GET AN UNBROKEN ROW OF AT LEAST FIVE OF":"YOUR STONES EITHER HORIZONTALLY,":"VERTICALLY, OR DIAGONALLY. THE SECOND": "WAY IS TO CAPTURE AT LEAST FIVE PAI:CY191:A$"INVALID MOVE":1660<SO,250,250: ERROR TONEcCX54:A$"???? ?? ????":1660:570CX54:A$"???? ?? ????":1660:580:"PLAYING QUINTIC IS AS SIMPLE AS THIS.":"TWO PLAYERS ALTERNATE PLACING STONES ON":"THE BOARD UNTX1,Y1X1,Y2X2,Y2X2,Y1X1,Y1L^X11,Y11X21,Y11:X21,Y11X21,Y21|hX11,Y21X21,Y21:X11,Y11X11,Y21:r SCREEN PRINT|0:W1(A$):A((A$,W,1))49CX,CY:A43ĕA43CX,CYCXCX7::3: INVALID MOVECX542170:8:"WHAT NAME WOULD YOU LIKE? ";F$j2110:NFĴ(F$"?")12140,2150:86(F$"?"):1:958:1530zNAME$(1)F$IN: INITIALIZE COMPUTER STRATEGY"EF5:2180,D$;"BSAVE"NAME$(1)",A$8E00,L$300"6216,0@J BOX PLOTTERTAME OF HUMAN PLAYER? ";NAME$(2)l2170:6:" FOR NEW PARTNER.":4:"NAME OF COMPUTER PLAYER? ";F$|F$""15302110:NFĴ(F$"?")12140,2150:4:1:958:1450NAME$(1)F$EF4:2180D$;"BLOAD"NAME$(1)216,0)ER #2? ";F$:2110:NFĴ(F$"?")12160,2150:2:1:958:(F$"?")11220,1340]FNAME$(2)F$mPEF3:2180ZD$;"BLOAD"NAME$(2)dWH:COPY WHITE STRATEGY TO BLACKnD$;"BLOAD"NAME$(1)x216,02160::1220P(1)1:P(2)0"N"NAME OF PLAYER #1? ";NAME$(1):"NAME OF PLAYER #2? ";NAME$(2)EWP(1)1:P(2)1(2170:10:"NAME OF COMPUTER PLAYER #1? ";F$:2110:NFĴ(F$"?")12160,2150:2:1:958:(F$"?")11220,13202NAME$(1)F$M<2170:12:"NAME OF COMPUTER PLAY"DO YOU WISH TO PLAY:":8:"1) HUMAN VS. HUMAN"p8:"2) HUMAN VS. COMPUTER":8:"3) COMPUTER VS. COMPUTER":"OR DO YOU WANT:":8:"4) INSTRUCTIONS"::7:A$V(A$):V4V11220N((78))::V1280,1430,1310,1740P(1)0:P(2)0? jCX226:CY62:A$"???":1660:CX226:CY143:1660:t360J~EF6:1200P(1)P(2)1ĺ:D$;"BSAVE";NAME$(1)",A$8E00,L$300"216,0::12:13:"SEE YOU LATER.":23:2180 CHOOSE MODE1:17:"QUINTIC":12:34,2/C1:::::210].CC12(C2):CX0:CY191:A$"TO PLAY AGAIN PRESS P TO QUIT PRESS Q":1660816368,0:B$:B$"P"B$"Q"1080B0:Y185191:0,Y279,Y:LB$"Q"1150VY8196:207,Y267,Y:207,Y81267,Y81:`3213,59:4213,1401XXCX(N):YYCY(N):C2CX,CY:960:CYCY9:PCC1:XX2CX(N):YY2CY(N):b PROCESS WINC2P(1)P(2)1ČAD: ADOPT NEW STRATEGYN07:Q2092587:SO,278Q,9:49Q,81C39:: $V4CX32:CY191:A$"RETURN TO CONTINUE":1660:678CO,Q:Q(AC): CONVERTWQ116Q244Q252Z(CAP2C):1000:CAP2C,Z1:Z11040b:430t RECORD MOVEC14X8,11Y8UP,X,Y,C15: UPDATE BOARD PROCESS CAPTURESC1C:CC12(C2):CX27513Z:CY81C13-Q01::AA16AP*N02:Q03-4V(AQ4N)I>CO,V:V(AC): CONVERTgHW(NSN256V):WW(W1){RNSN256V,W1\:f CHECK FOR WINpQ(PR112C):Z(PA34304512C):960zQ1271040Z0430N07:Q(PRN)C1ČLYSIS OF HUMAN STRATEGY1PI,15: PREDICT MOVEEA256(9)(8)WN02:Q03iV(PRQ4N)CO,V:V(AC): CONVERTW(NSN256V):WW(W255)NSN256V,W1 :AAAW:PY(A19):PX(A19PY)19  PYPY1:PX(PX1.4):CXCX7:bA13N0ġ:6404lN3A48A90ıOvW$(N)A$:1660:NN1:pA$"":Q0N1:A$A$W$(Q):X(A$)64:Y((A$,2)):X19Y19X1Y11700PA(Y1)19X1(PAAB)01700PRPA16APP(1)0880 COMPUTER ANA)(32)(&CX226:CY81C19:1660:880:0 PLAYER MOVE:CX226:CY81C19:A$"???":1660:N0:CX226:V4ćA$:1660:N0999::650DSO,4040C,80: TONE FOR NEXT MOVEN50CX,CY:A$:600:590 XA(A$):50CX,CY:A8N0NN1:CXCX7:16600:CX78:CY191:A$"PAUSE":1660>A$:CX78:A$"?????":1660NP(C)0570b COMPUTER MOVEEV,112C: EVALUATE OPTIONS (13 IS WHITE)N256(9)(8)PANAW:Y(PA19):X(PA19Y)19:YY1:X(X1.4)PRPA16APA$(X64)(YY TO BLACK0DU: DUPLICATE COMPUTER STRATEGYFCL: CLEAR BOARDxX10:Y10:M1:CAP2,5:CAP4,5:A$"J10":550MM1:CC12(C2):3213,59:4213,140L(16384):(P(2)0V4)L155480CX226:CY81C19:A$"???":166016368,,2,275,18,201,3,272,17,204,4,269,16,207,5,266,15` T 202,34,271,44,195,49,278,99,220,54,253,64 ^ 202,115,271,125,195,130,278,181,220,135,253,145 hY14168:17,Y171,Y:(Y3)8((Y3)8)ĕ4817,Y r |P(2)1410 WH: COPY WHITE STRATEGE$(1):CX2373.5(A$):1660:CY123:A$NAME$(2):CX2373.5(A$):1660z "N6:Y221738:N9,Y:N181,Y:NN1:N15N5 ,:Y941738:63,Y:6175,Y: 6N012:X1,Y1,X2,Y2:1620::3213,59 @ 16,13,172,169,1,1,187,1810 J 195,1,278,19,198AME$(2),8) DRAW DISPLAYQ N22::X221738:NX2,10:NX2,178:NN1:u CX213:CY13:A$"QUINTIC":1660 CX219:CY29:A$"WHITE":1660:CX219:CY110:A$"BLACK":1660 CX210:CY157:A$"CAPTURES":1660:CX210:CY76:1660F CY42:A$NAM68:AP26624:AW34304$ EF1:2180J D$;"BLOAD QUINTIC.SHAPES,A$9200"U 216,0r 232,0:233,146:1:0:3 EF2:2180 D$;"BLOAD QUINTIC.ML" 216,0 N07:CX(N),CY(N)::0,-1,0,1,-1,0,1,0,1,-1,-1,1,-1,-1,1,1 1220:NAME$(2)(N(2),W$(4):D$(4)H d::17:"QUINTIC"::9:"BY JAMES R. GESCHWENDER"{ n6:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" xUP24576:IN25423:CL25447:EV25526:PI25597:CO25920:AD25941:WH25991:DU26043:SO26078 CAP33275:NS34816:AC34808:AB327 **********************; * QUINTIC *X * BY J. GESCHWENDER *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P INITIALIZE Z16128:CX(7),CY(7),P(2),NAME$          180,33180,36186,36D$196,36196,30202,30202,33196,33202,36s$188,36188,30194,30194,33188,33194,36$ 204,30210,30210,36204,36204,30$ 212,36212,30218,30218,33212,33218,36$ FT1FT0:%$ 780,255:781,255:787:I1500:850,1850,25:FG1ıX#60,0:61,64:62,255:63,95:64,255:65,127:66,0:67,96:468^##60,0:61,96:62,255:63,127:64,255:65,95:66,0:67,64:468:# ERROR#3#178,28220,28220,38178,38178,28$186,30180,30180,33183,33:2140$"41:3:D$"N"Ę0:1X5,Y5@">D$"S"Ę32:1X5,Y15]"HD$"W"Ę48:1X10,Y10w"RD$"E"Ę16:1X,Y10"\1:FG12210"fX155:X2104"pY151185"zX1,YX2,Y"X1X11.46:X2X21.82"Y"0:2360#3:0,25170,25170,152,164148,164!3I!140,52140,166:144,57144,165:149,63149,163O!c! GREEN BLANKETp!3:2360!FGFG1:FG1İ2240:0:1,6430,64!GG0:GN0:GGP! GG10GGGG10:GNGN1:2060!X175(GN10):Y190(GG10)! 1"*L$"N"3,161:119,63119,159:114,66114,157:110,70110,155:106,74106,153i 136,49152,65:136,168152,162 Y149:Y265:I110:136,Y1152,Y2:Y2Y29.7:Y1Y111.9:I!1:Y168180:136,Y152,Y:Y:152,167140,167:152,166143,166:152,165146,165:14vI110:Y1Y113.9:Y2Y216.1:153,Y1170,Y2:Ih166,28166,183:161,31161,181:156,34156,179136,49136,168104,150104,75136,49Y175:Y249:I110:104,Y1136,Y2:Y1Y17.5:Y2Y211.9:IE 132,52132,166:127,56127,164:123,601218,16226,162:18,16223,162:18,16121,16123o&Y165:Y253:I110:18,Y134,Y2:Y1Y19.9:Y2Y211.1:I030,5530,163:26,5926,162D21,6221,161NX DRAW RIGHT SIDE OPENb170,25153,37153,177170,186170,25lY137:Y22513,3513,177234,5355,7555,15034,16434,53BY153:Y275sI110:34,Y154,Y2:Y1Y111.1:Y2Y27.5:I38,5738,161:43,6143,159:47,6647,156:51,7151,15334,5317,65:17,16034,164+1:Y164175:18,Y35,Y:Y:18,16330,163:H WALL CLOSED=Y7515010:55,Y104,Y:Y:55,150104,150`X551044.263:X,75X,150:Xf DRAW LEFT WALL OPEN0,2517,3917,1750,1850,25Y239:Y125I110:17,Y20,Y1:Y2Y213.6:Y1Y116.1:I 4,284,183:9,329,180: DRAW RIGHT WALL CLOSEDF170,25104,75104,150170,185170,25VY125:Y275b"I110{,Y1Y116.1:Y2Y27.56104,Y2170,Y1@IJY125:Y2185TX1701044.265^Y1Y13.1hY2Y22.2rX,Y1X,Y2:X|  DRAW NORTdN(P)0İ1880n1x DRAW LEFT WALL CLOSEDN0,2555,7555,1500,185^Y275:Y125jI110Y1Y116.1:Y2Y27.50,Y155,Y2I0,250,185Y125:Y2185X0554.3Y1Y13.6Y2Y22.7X,Y1X,Y2:X0İ1710E(P)1İ1670+S(P)1İ1540=S(P)0İ1880CUD$"S"1340gE(P)1İ1400y E(P)0İ1710S(P)1İ1670W(P)1İ1540(W(P)0İ18802<S(P)1İ1400FS(P)0İ1710PW(P)1İ1670ZN(P)1İ1540BA$"M"ĭD$"E"D$"W"3LP0P110P101ī2630<V690_` DETERMINE POSITION & DRAW ITqjD$"N"1200tW(P)1İ1400~W(P)0İ1710N(P)1İ1670E(P)1İ1540E(P)0İ1880D$"E"1270N(P)1İ1400N(P)"ĭD$"E"D$"N":11007A$"K"ĭD$"N"D$"E":1100XA$"K"ĭD$"W"D$"N":1100yA$"K"ĭD$"S"D$"W":1100A$"K"ĭD$"E"D$"S":1100$A$"M"ĭD$"N"D$"S":1100.A$"M"ĭD$"W"D$"E":11008A$"M"ĭD$"S"D$"N":1100A$"M"ĭD$"E"ĭW(P)0PP10:970MA$"M"ĭD$"S"ĭN(P)0PP1:970uA$"M"ĭD$"W"ĭE(P)0PP10:970A$"M"İ2250:740A$"J"ĭD$"N"D$"W":1100A$"J"ĭD$"W"D$"S":1100A$"J"ĭD$"S"D$"E":1100A$"JPP1:970"\A$"J"İ2250:740JfA$"K"ĭD$"N"ĭE(P)0PP10:970qpA$"K"ĭD$"E"ĭS(P)0PP1:970zA$"K"ĭD$"S"ĭW(P)0PP10:970A$"K"ĭD$"W"ĭN(P)0PP1:970A$"K"İ2250:740A$"M"ĭD$"N"ĭS(P)0PP1:970&1:970/A$"I"ĭD$"E"ĭE(P)0PP10:970V A$"I"ĭD$"S"ĭS(P)0PP1:970m*A$"I"İ2250:7404A$"J"ĭD$"N"ĭW(P)0PP10:970>A$"J"ĭD$"W"ĭS(P)0PP1:970HA$"J"ĭD$"S"ĭE(P)0PP10:970 RA$"J"ĭD$"E"ĭN(P)020201120 INPUTo3:2410:0:2480:A$:A$(27)2790:(A$)0ZZ(A$):ZZ96ZZZZ32:A$(ZZ)3:2480:0:2410A$"I"ĭA$"J"ĭA$"K"ĭA$"M"İ2250:740A$"I"ĭD$"W"ĭW(P)0PP10:970 A$"I"ĭD$"N"ĭN(P)0PP)1:II1:I100680>bH$"H"ĭX2E(I1)1:I90W(I11)1alH$"H"ĭX4N(I3)1:S(I4)1hvIL1N(100)0:E(100)0L2N(100)0:E(100)0:E(91)0L3N(100)0:E(100)0:E(91)0:W(10)02810P1:D$"N"MM1((1)3)1*X1Ĺ780,50:781,10:787IX2Ĺ780,100:781,10:787h&X3Ĺ780,150:781,10:7870X4Ĺ780,250:781,20:787:H$"H"X((1)4)1DX1E(I)1:I90W(I10)1NH$"H"ĭX2E(I)1:I90W(I10)1XX3N(I)1:S(I1(L$,1):380$:"PRESS ";,A$^:12:12:"PLEASE WAIT.":12:"------------"M12551515:M210:2620:M1N(100),S(100),E(100),W(100)I110W(I)1N(I10)1S((I10)9)1E(90I)1II189 X;M$:M$(M$,1):350r19:"WOULD YOU LIKE THE COMPUTER TO SHOW YOU WHICH WAY YOU ARE FACING AND HOW CLOSE TO THE CORNERS YOU ARE? ";L$:L$(L$,1)|(L$)0ZZ(L$):ZZ96ZZZZ32:L$(ZZ) L$"Y"L$"N"Ģ22:"PLEASE ANSWER Y OR N: ";L$:L$H$(ZZ)N@H$"Y"H$"N"Ģ16:"PLEASE ANSWER Y OR N: ";H$:H$(H$,1):310aJH$"Y"H$"H"T17:"WOULD YOU LIKE A MAP OF THE MAZE? ";M$:M$(M$,1)^(M$)0ZZ(M$):ZZ96ZZZZ32:M$(ZZ)hM$"Y"M$"N"Ģ18:"PLEASE ANSWER Y OR N: " 1) ONE EXIT") " 2) TWO EXITS"D " 3) THREE EXITS"g 13:"CHOOSE ONE: ";L$:L(L$) "L1L3Ģ14:"PLEASE CHOOSE 1,2, OR 3: ";L$:L(L$):290 ,15:"DO YOU WANT A HARD MAZE? ";H$:H$(H$,1)6(H$)0ZZ(H$):ZZ96ZZZZ32:T NORTH."& :"PRESS ";:A$ :::" WHEN THE 'INPUT' SIGN APPEARS YOU MUST PRESS I, J, K, OR M. IF YOU PRESS ANY OTHER KEY OR TRY TO GO THROUGH A WALL, THEN AN 'ERROR' SIGN WILL APPEAR." :"HOW MANY EXITS DO YOU WANT?" " OF YOUR POSITION IN THE MAZE." " USE THE I, J, K, AND M KEYS TO MOVEFORWARD, LEFT, RIGHT, AND BACKWARDS RESPECTIVELY. NOTE: THE KEYS DO NOT MOVE YOU UP, DOWN, AND SO ON. IF YOU ARE FACING WEST AND YOU PRESS I, YOU WILL MOVE WEST, NOELF AROUND A MAZE AND FIND AN EXIT. YOU START IN THE LOWER LEFT-HAND CORNER AND MUST MOVE TO THE EXIT(S) IN THE OTHER CORNERS." " ON THE SCREEN YOU WILL SEE A MAP OFTHE MAZE, UNLESS YOU CHOOSE THE HARDEST LEVEL. YOU WILL ALSO SEE A 3-D VIEW232,35:233,3$ xD$;"BLOAD ARROW"1 216,0:S M11525515:M210:2620:M1_ START} ::13:"THAT'S AMAZING " 19:"BY":13:"JAMES B. PURVIS" :"** COPYRIGHT 1986 BY MICROSPARC, INC **" :" THE OBJECT IS TO MANEUVER YOURSM( **********************; * THATS.AMAZING *X * BY JAMES B. PURVIS *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PD$(4)Z3250d(4);"BLOAD SOUND" n                     $$Ԑ $ Ո [5h`5aLɖ0ގa$զ [ 㛭蛰 i iPQ НJ iPQ $Ȅ ְ$ [`, ɠ)? ,ɺ8Є ,0 ,0 \ H(h(L"$% 9 [ 8%Ԏa$L[ $ 'eћ H,a$%d%^!FɄɛ,ɋHɒɔE $)8 $%))#ѨH !ΰɐFL2 ɉɏ ( ɠ)?ɑ Յ# B#ɘaɍ4h #PQ囍ꛩ$` 9Նћ LޢХՅ%' (Hhɠ҆?ٍ ԧ9C8Ȣ=? ,ߍ oL H3h` P㛥QNh0U'ɺ ɰH ihɠLᛠɅɁeȍћ ɞӍ ԧ oLb,aLP$8ɠ2H% X!hv X0 %$ 52,57,60,68,80,88,101,105,108,153,162,184,202,292,368,371,386,400,403,418,478,494,499,502,531,643,680,703,706,709,718,763,771,774,789,791 3,141,49,190,169,150,141,48,190,160,255,132,62,200,162,129,134,61,232,232,134,63,32,44,254,169,223,141,242,3,169,153,141,243,3,32,111,251,76,0,154 0,133,111,133,115,169,150,133,112,133,116,169,0,141,242,3,169,190,141,243,3,32,111,251,76,98,250,234 RAM AND CORRECT MISTAKES": (7);:16368,0:"PUT DISK TO RECEIVE CONFIGURED PROGRAM IN DRIVE AND PRESS ":16384,128:16368,0:(4)"BSAVE MR.ED,A"B",L"L: 169,3,32,245,190,169,151,133,67,141,51,190,169,4,141,50,190,133,60,133,66,169,15ECKING OBJECT CODE...") T0Ĺ33294,33 S0āN062:A:BN,A::N027:A:33123N,A::N035:A:33000A,(33000A)3::33776,0:33777,190 A0:NB33791:AA(N)::11:AV(T2S)ĺ(7)"ERROR IN OBJECT CODE; CHECK OBJECT CODE AND THIS PROG:29952:(4)"BLOAD MR.ED.OBJ"z Z:3:5:"MR.ED CONFIGURATION PROGRAM":7:(64435)6ĺ"APPLE //E //C VERSION":T0:110 dT1:"APPLE II+ VERSION" n9:(48896)76ĺ"PRODOS ":S0:B32965:L827:130 x"DOS 3.3 ":S1:B32961:L831 11:"NOW CH **********************; * CONFIG.ED *X * BY KEVIN MCCLANEY *u( * COPYRIGHT 1986 *2 * BY MICROSPARC,INC *< * CONCORD, MA 01754 *F ********************** PV(0)110146:V(1)110125:V(2)110955:V(3)110934   E TO DECODE THE HORIZ. VALUE IN THIS CASE BECAUSE THE VERTICAL VALUE ALONE IS ENOUGH(V)10ĺ(7)(7)(7)(7)(7);:360: 5 BELLS(V)13ė:::360 IF (V)=16 THEN THE PROGRAM WILL FALL THROUGH TO THIS POINT `0 "LIST PROGRAM"+ 17:12:170:1806 "END"? PEN\  * LIGHT PEN DECODING * (V)7ĺ(4);"CATALOG":X12000:X:360  NOTE THAT THE DRIVER RETURNS (V) ONE LESS THAN THE VTAB VALUE OF THE SAME SPOTT NOTE ALSO THAT WE DONT HAVN: PROGRAM CONTROL PASSED TO LIGHT PEN DRIVER WHICH RETURNS ONLY WHEN IT FINDS PENm ^ *** MENU SCREEN *** h190:5:"NIBBLE LIGHT PEN DEMONSTRATION" r8:12:170:180 |"CATALOG DISK" 11:12:170:180 "RING BELL" 14:12:170:18$$Ԑ $ Ո [5h`5aLɖ0ގa$զ [ 㛭蛰 i iPQ НJ iPQ $Ȅ ְ$ [`, ɠ)? ,ɺ8Є ,0 ,0 \ H(h(L"$% 9 [ 8%Ԏa$L[ $ 'eћ H,a$%d%^!FɄɛ,ɋHɒɔE $)8 $%))#ѨH ΰɐFL2 ɉɏ ( ɠ)?ɑ Յ# B#ɘaɍ4h #PQ囍ꛩ$` 9Նћ LޢХՅ%' (Hhɠ҆?ٍ ԧ9C8Ȣ=? ,ߍ oL H3h` P㛥QNh0U'ɺ ɰH ihɠLᛠɅɁeȍћ ɞӍ ԧ oLb,aLP$8ɠ2H% X!hv X0 %$   ! "PEN IN YOUR OWN PROGRAMS.") :/ Z "PLEASE NOTE THAT THE PROGRAM IS NOW" ""WAITING FOR YOU TO TOUCH THE INVERSE" ,"SPACE WITH THE LIGHT PEN." 623:5 @"TOUCH PEN HERE TO CONTINUE ==>"; J170: PRINT INVERSE SPACES TPE" ";:: SUBROUTINE TO PRINT A SPACE/ ::J *** MAIN PROGRAM *** :5:"NIBBLE LIGHT PEN DEMONSTRATION":"** COPYRIGHT 1986 BY MICROSPARC, INC.**" 8 "THIS PROGRAM IS MEANT TO DEMONSTRATE" "ONE POSSIBLE USE FOR THE NIBBLE LIGHT"PEN.DRIVER"= PEN770: LOCATION OF MACHINE LANGUAGE DRIVER V768:H769: VERTICAL (COLUMN) AND HORIZONTAL (ROW) COORDINATE LOCATIONS 210 *** SUBROUTINES *** :" ";::: SUBROUTINE TO PRINT AN INVERSE SPACE (BLOCK) ON THE SCREEN%  **********************; * LIGHT PEN DEMO *X * BY DAVID GAUGER II *u * COPYRIGHT (C) 1986 * * BY MICROSPARC, INC * * CONCORD, MA 01742 * **********************d *** INITIALIZE ***n190 x(4);"BLOAD     ( (/L ( X (L ( XL( XC (L L a0 `8` 0` ( t`TAB AND":"THEN USE &-COMMANDS AS SHOWN IN THIS":"DEMONSTRATION PROGRAM."(4);"BRUN AUTOTAB"{ nC40::" AUTOTAB "::T1,3:C40:"BY S. SCOTT ZIMMERMAN":C40:"COPYRIGHT (C) 1986 BY MICROSPARC" xT3,10:"->AUTOTAB AUTOMATICALLY TABS." T1,13:C40:"->IT AUTOMATICALLY CENTERS.<-"J T3,19:"JUST REMEMBER TO BRUN AUTOK  ********************** > * AUTOTAB.DEMO * ] * BY SCOTT ZIMMERMAN * z( * COPYRIGHT (C) 1986 *2 * By MICROSPARC, Inc *< * CONCORD, MA 01742 * F ********************** PZ::(1014)16(1015)3110 d  RL`TC` ʆ$ LʊL[  ""  L98 J$`z"#????!®Ԡ!ĮԠ"®Ԡ"ЮٮƠϠŠР ԮɮŠ ҮӠ!ĮԠ  ƈ ҮĮʠ ǮĠ ҮĠ ӮǠ* Ġנ ˮҠ  ŮΠ ŮήϠ Ү̠" ҮҠ ň Ƞ î̠îӠ̷îҠҮ٠Ů٠ŮϮϠ ®ϠήҠ ԮήϠ È ٠ Ĉà  ϳˮԠ6ˮӠ ήà!ή̠"ǮԠ Ϡ٠ˆŠϱϲ#$$$$777,,,555<Z$: $NFNFnNFF$(F$,1)x216,0:(4)"CLOSE"::12:"ERROR "(222):"IN LINE "(218)256(219):1360::EF740,870,110:2:1:958:2:(4)"CATALOG":1360:23:"NAME MUST BE 8 OR FEWER LETTERS":"PRESS TO CONTINUE.";:ICH YOU WILL BE READY TO TEST":U<"CHANGES YOU HAVE MADE. NOW TRY IT OUT.":1360^F170P24:8:"";:678Z:dNF1:LF(F$):LF9LFāNC1LF:NA((F$,NC,1)):NF((NA64NA91)(NA46NC1)(NA47NA58NC1))NF1::WHEN YOU HAVE MADE ALL THE":J"CHANGES YOU WISH TO MAKE, PRESS THE":z "ESCAPE KEY, AS THIS RETURNS YOU TO THE":"MAIN MENU.":1360"THAT IS ALL THERE IS TO IT. FROM THE":("MAIN MENU YOU CAN SELECT THE SAVE OPTION" 2"AFTER WH"TO CHANGE A PRIORITY, MOVE THE 'CURSOR'":^"TO THE ITEM YOU WISH TO CHANGE BY USING":"THE ARROW KEYS AND THE SPACE BAR. ONCE":"THERE, PRESS THE RETURN KEY. THEN JUST":"ENTER THE NEW PRIORITY AND PRESS RETURN":"TWICE. PRIORITIES AND CENTER PRIORITIES.":M"A COMPLETE SET OF END OR CENTER":}"PRIORITIES REQUIRES TWO HIGH-RES SCREENS""TO DISPLAY. PRESSING THE '1' KEY BRINGS""UP PAGE 1, AND THE '2' KEY PREDICTABLY":"GIVES YOU PAGE 2.":1360-VES.":6L"A STRATEGIC PRIORITY IS A RATING FROM":fV"ONE TO TWO HUNDRED AND FIFTY FIVE THAT":`"REPRESENTS THE VALUE OF PLACING A WHITE":j"STONE AT THE INDICATED POSITION."t1360~"THERE ARE TWO TYPES OF PRIORITIES;":$"END TRUCTIONSE6:34,5::"THE QUINTIC.TEACHER PROGRAM IS DESIGNED":u$"TO ALLOW YOU TO 'COACH' COMPUTER QUINTIC"."PLAYERS. COACHING CONSISTS OF ALTERING":8"THE STRATEGIC PRIORITIES THAT THE PLAYER"B"USES WHEN IT MAKES ITS CHOICE OF MO4,128:Z$::# :(4);"CATALOG") I *";& <I039:"*";:I0 F34,76 d< im n"This disk contains DOS 3.3 only programs"; x"from Nibble Magazine Volume 7, 1986 and" "Nibble Express, Volume 7. Enjoy!" :"Press RETURN to CATALOG the disk.":16368,0:1638* I039:"*";:IM"* *";~("* Nibble Magazine Programs *";-"* DOS 3.3 *";2"* 1986 *"; 7"*   x X`N AGAIN D#N SET LEFT MARGIN)X/b^l20:"(PLEASE PRESS AFTER ENTRY)"v10:"HOW MANY SPACES FROM THE LEFT DO YOU""WANT TO BEGIN PRINTING? ";:"(000-095) ";LM$LM$"000"LM$"095"680(LM$)3680D$X$:(PS$"G"ĺG$PS$"H"ĺH$.PS$"I"ĺI$?PS$"J"ĺJ$PPS$"K"ĺK$aPS$"L"ĺL$rPS$"M"ĺM$PS$"N"ĺN$PS$"O"ĺO$PS$"P"ĺP$&PS$"R"ĺR$0PS$"S"ĺS$:D$Z$:130: TURN PRINTER CARD OFF. OUTPUT TO SCREE):130: ASSURE ONLY LETTERS A-T ARE ACCEPTEDa hPS$"Q"Ĺ216,0::: CLEAR ONERR FLAG AND QUITr rPS$"T"610 |D$X$: TURN PRINTER CARD ON PS$"A"ĺA$ PS$"B"ĺB$ PS$"C"ĺC$ PS$"D"ĺDD$ PS$"E"ĺE$ PS$"F"ĺF$ LEAVE UNDERLINE MODE"A ,"

-BEGIN FEEDING SIX LINES PER INCH"o 6"-BEGIN FEEDING EIGHT LINES PER INCH" @"-CANCEL ALL INSTRUCTIONS (RESET)" J"-CHANGE LEFT MARGIN" T5:24:"SELECTION";:24:2:PS$:PS$- ^(PS$)65(PS$)84ĺ(7DENSED TYPEFACE": "-PRINT ULTRA-CONDENSED TYPEFACE"Y "-PRINT SLASHED ZEROS"x "-BEGIN BOLDFACE MODE" "-LEAVE BOLDFACE MODE" "-BEGIN HEADLINE MODE" "-LEAVE HEADLINE MODE" "-BEGIN UNDERLINE MODE" ""->-QUIT"* "-PRINT EXTENDED TYPEFACE"I "-PRINT PICA TYPEFACE"i "-PRINT ELITE TYPEFACE" "-PRINT PICA (PROPORTIONAL SPACING)" "-PRINT ELITE (PROPORTIONAL SPACING)" "-PRINT SEMICONDENSED TYPEFACE" "-PRINT CONTIALIZEI d::10:"** IWRITER.UTILITY **"::11:"BY TERRY M SCHWARTZ"} n22:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" x12:3:"PLEASE BE SURE PRINTER IS TURNED ON."::14:"PRESS ";:RM$ :8:"PLEASE SELECT A FUNCTION:": "": INTEGER BASIC lu(8192)76ĺ" ": APPLESOFT vuD$;"IN#";SL uA$ uD$;"PR#0" uD$;"IN#0" u C5 8E FF BC A2 00 BD 00 02 20 ED FD E8 8A CD FF BC D0 F3 4C 2F AE N ADC6:20 DF BC"l HEX$HEX$" N F328G"} T1(HEX$) 511T,((HEX$,T,1))128 72,0:223,(248):144 48358,SL128:48361,SL192 PUT YOUR HELLO PROGRAM HERENIT ROUTINES HERE; d30000: FIND CLOCK & UPDATE LASTBOOTk n FIND CLOCK, AND PATCH DOS CATALOG ROUTINEz xSL711 (16384SL2567)5(16384SL2565)255160 SL "NO CLOCK FOUND.":230S HEX$"BCDF:20 2F AE A9 BE 20 0B C5 20 08 ***********************= * TIMEHELLO *[ * BY PHILIP CHIEN *y( * COPYRIGHT (C) 1986 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F ***********************PD$(4) Z PUT YOUR SET UP ARRAYS & IETURN> ";:ANS$::690^(22)254ĺ"UNDEFINED ERROR...."::"PRESS ";:ANS$:130 NCHANGE THIS IF YOUR CARD IS NOT IN SLOT 1lZ$"PR#0": CHANGE THIS IF "PR#3" IF YOU OPERATE FROM 80 COLS.r(4);"PR#0":(7):: CHANGE TO "PR#3" IF YOU OPERATE FROM 80 COLS.(222)254ĺ"INPUT ERROR.....PLEASE REENTER DATA."::"PRESS I$(27)(68)(0)(1)(27)(90)(128)(0): SLASHED ZEROSHJ$(27)(33): BEGIN BOLDFACE MODERK$(27)(34): LEAVE BOLDFACE MODE\L$(14): BEGIN HEADLINE MODEfM$(15): LEAVE HEADLICA FACE:C$(27)(69): ELITE FACE (DEFAULT SETTING)RD$(4): CONTROL D DD$(27)(112): PICA PROPORTIONAL SPACINGE$(27)(80): ELITE PROPORTIONAL SPACING F$(27)(101): SEMICONDENSED FACE*G$(27)(113): CONDENSED FAC27)(76)LM$:D$Z$:130#(7)|12:" ":15:"YOU MUST ENTER 3 NOS. FROM 000 TO 095":620: 15 SPACES ************** * INITIALIZE * **************960A$(27)(110): EXTENDED FACEB$(27)(78): PANS$::690S(22)254ĺ"UNDEFINED ERROR...."::"PRESS ";:ANS$:130 IF YOUR CARD IS NOT IN SLOT 1aZ$"PR#0": CHANGE THIS IF "PR#3" IF YOU OPERATE FROM 80 COLS.g(4);"PR#0":(7):: CHANGE TO "PR#3" IF YOU OPERATE FROM 80 COLS. (222)254ĺ"INPUT ERROR.....PLEASE REENTER DATA."::"PRESS ";:2): LEAVE SUPER/SUBSCRIPT MODEOzO$(27)(65): BEGIN FEEDING 6 LINES/INCHP$(27)(84)"18": BEGIN FEEDING 8 LINES/INCHR$(27)(84)"48": BEGIN DOUBLE SPACES$(27)(99): RESTORE STANDARD INSTRUCTIONSX$"PR#1": CHANGE THISH$(14): BEGIN HEADLINE MODEB>I$(15): LEAVE HEADLINE MODElHJ$(27)(88): BEGIN UNDERLINE MODERK$(27)(89): LEAVE UNDERLINE MODE\L$(27)(120): BEGIN SUPERSCRIPT MODEfM$(27)(121): BEGIN SUBSCRIPT MODEpN$(27)(1278): PICA FACE'D$(4): CONTROL DR DD$(27)(81): ULTRA-CONDENSED FACEE$(27)(68)(0)(8): PRINT LOW DENSITY F$(27)(90)(0)(8): PRINT NORMAL DENSITY*G$(27)(68)(0)(1)(27)(90)(128)(0): SLASHED ZEROS412:" ":15:"YOU MUST ENTER 3 NOS. FROM 000 TO 095":620: 15 SPACESl ************** * INITIALIZE * **************960A$(27)(77): SELECT DRAFT MODEB$(27)(109): SELECT LETTER MODEC$(27)(X b9l20:"(PLEASE PRESS AFTER ENTRY)"iv10:"HOW MANY SPACES FROM THE LEFT DO YOU""WANT TO BEGIN PRINTING? ";:"(000-095) ";LM$LM$"000"LM$"095"680(LM$)3680D$X$:(27)(76)LM$:D$Z$:130(7)W$"I"ĺI$PS$"J"ĺJ$+PS$"K"ĺK$<PS$"L"ĺL$MPS$"M"ĺM$^PS$"N"ĺN$oPS$"O"ĺO$PS$"P"ĺP$&PS$"R"ĺR$0PS$"S"ĺS$:D$Z$:130: TURN PRINTER CARD OFF. OUTPUT TO SCREEN AGAINDN SET LEFT MARGINACCEPTED< hPS$"Q"Ĺ216,0::: CLEAR ONERR FLAG AND QUITM rPS$"T"610o |D$X$: TURN PRINTER CARD ON PS$"A"ĺA$ PS$"B"ĺB$ PS$"C"ĺC$ PS$"D"ĺDD$ PS$"E"ĺE$ PS$"F"ĺF$ PS$"G"ĺG$ PS$"H"ĺH$ PS-BEGIN FEEDING EIGHT LINES PER INCH"J 6"-BEGIN FEEDING DOUBLE SPACE"u @"-CANCEL ALL INSTRUCTIONS (RESET)" J"-CHANGE LEFT MARGIN" T5:24:"SELECTION";:24:2:PS$:PS$ ^(PS$)65(PS$)84ĺ(7):130: ASSURE ONLY LETTERS A-T ARE DE"" "-LEAVE HEADLINE MODE"B "-BEGIN UNDERLINE MODE"b "-LEAVE UNDERLINE MODE" "-BEGIN SUPERSCRIPT MODE" "-BEGIN SUBSCRIPT MODE" "-LEAVE SUPER/SUBSCRIPT MODE" ""-BEGIN FEEDINF SIX LINES PER INCH"$ ,"

-QUIT"" "-PRINT DRAFT MODE"? "-PRINT LETTER MODE"^ "-PRINT PICA TYPEFACE" "-PRINT ULTRA-CONDENSED TYPEFACE" "-PRINT LOW DENSITY" "-PRINT NORMAL DENSITY" "-PRINT SLASHED ZEROS" "-BEGIN HEADLINE MOTIALIZEH d::11:"** SCRIBE.UTILITY **"::11:"BY TERRY M SCHWARTZ"| n22:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" x12:3:"PLEASE BE SURE PRINTER IS TURNED ON."::14:"PRESS ";:RM$ :8:"PLEASE SELECT A FUNCTION:": "U  ***********************= * SCRIBE.UTILITY *[ * BY *y( * TERRY M. SCHWARTZ *2 * COPYRIGHT (C) 1986 *< * BY MICROSPARC, INC *F * CONCORD, MA 01742 *P *********************** Z730: INI     dD$"WRITE LASTBOOT"J n"FIRST BOOT ": 8 SPACES AFTER WORD BOOTY xD$"CLOSE"_ a  ************************? * BOOTCREATE *^ * BY PHILIP CHIEN *}( * COPYRIGHT (C) 1986 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F ************************PD$(4)ZD$"OPEN LASTBOOT" 31,254,176,2,144,6,169,255,141,20,3,96,169,1,141,20,3,96 ,AR(80) T360* ^R(80),R(80)R(40)R h(16384)128270: No key pressedm rA$: Absorb key press |::(21): 80 Col's off X(49247): Single Mode   DETECT IIGS ROUTINE AA019:BB:768AA,BB:AA 768:8  56,32,7:I101);I;: 3 I18:"0123456789";:V 30)"Press to quit."e XO0:XNXO XNXO1:XN80XN0: Wrap-around Z(16336): Click speaker "15:XN,39 ,0:XO,39:XOXN 6R(16) @(R(2)0)350 JR(40),R(40)/ "This program uses 80 columns. If you"` :"wish to use it, set the 80/40 switch to"z :"the UP position." D$"PR#3": Turn on 80 Cols : Make firmware ready X(49246): Double Mode : Now in 80 X 40 mode :I1IDIS K500:GS(788), PR(X)((1)X)C Z(21):::D$(4)b d(64435)6(64448)0120 i(64435)6(64448)224GS1120 n:12:"THIS PROGRAM ONLY WORKS ON THE //C, IIGSAND IIC PLUS!": x(49248)128180 }GS1(64447)5180 : **********************; * DOUBLE.LO.DEMO *X * BY CHRIS SCHUMANN *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F ********************** G MODIFIED FOR IIGS AND IIC PLUS BY S. KARATSOR      ********4.3.86********9* QUICK.CALENDAR *U* BY DON MAXWELL *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P910Zdn12:12::"COMPUTING" xMTH(1   <""< &"""  " " ****$$$$"""""<""< &< ,"""""**"""""< >>*<2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">"""""""""""""**6"""""""> ><< *>,&"""< ,2""<"><$*, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>>F@ƞ`榥0枥(0'@`@ : ᥠIIx Lq LFfL ` @ee`>>< (&20 &` L. ꩫ fꢡ +멦 ? `  Ɛ L5 Lq ꩦ fꢡ +멫 ? `  ƐLxw*& 0,vp&&`I1&&``8L `-88x 8zIi {z ᥡ ᥡ| mx`))ݫ L` `L}L}L} L8&0&&8H)   aL[ L[ Щ***ѥmХmѭ v θ( ahhh`iɹ`m')8 &' &'&)JJJ &m&) 'e'`Р & &J 'ȥ `| 8xIi y ꩜ 碫 + ֎hw ` PZx` x` (; gݢ + gݢ + L{6767 ڭ67` ᥡ ᥡ  `LHHJU`T` NJJ@` `e'&,vP&&'` P|Zx` @` |x`L٩ ӥHHvHuHH NJPQ ALע莒 LՌ 6LՌ gݢ + gݢ +wH,P ̋| ꩗ 碦 +멆 禍 颦 +| 碗 +멆 禍 颫 +멁 碜 + ֎` gݢ +q L gݢ +뭘I L gݢ +q 驆 碗 +l ꩗ f #l 驗 碆 +`w)w`w w` PW` QT` S` R` NJ |L` }Lޠgq ꩆ fꢗ +멗L LTURTLEXTURTLEYANGLEIڡ{5`H0h` g ᥡ`v`v` gݢ +뭓IL gݢ +"Щ#ЩލЩЩfl`PLTCLҩsotp`w 9 Ҋȍ|I`{{lllnlp`LН r~L:몄8LDץ uL֩7LLx8l HHLLHLmթLՠY K , 9L݊`|‹ˋ8]LԋpsH׊ъFWBACLEFRIGHSHOHIDCENTENESTURNTJUMSPLIFULHIREVIEWDHPRINBLACWHITPЅQPPQ`L ֍7׍F؍Սީ ֩ ֩8ש9שƍGةHةթթީޢ%  Щ!Щ     LENDAR'"::DAY"#F:YEAR;" BEGINS ON A ";A$1PX2YEAR4BZIX(YEAR4)odX2IXĺ"IT IS A LEAP YEAR":Y$"Y":1400n"IT IS NOT A LEAP YEAR"x"WOULD YOU LIKE A CALENDAR OF THIS YEAR?";:ANS$ANS$"Y"90:4:12 "THANK YOU FOR RUNNING 'CAYEAR111160"L1İ1160,11802<1270hDAY1280,1290,1300,1310,1320,1330,1340~A$"SUNDAY":1350 A$"MONDAY":1350A$"TUESDAY":1350A$"WEDNESDAY":1350(A$"THURSDAY":13502A$"FRIDAY":1350<A$"SATUR DAY7:L2 X1983YEAR1*10909L5İ1090C$1140I.S81270bBDAYDAY1rLDAY81120|V1130`DAY1jtLL1:L4İ1090:L0~DAYDAY1:DAY0DAY7LL1:L0L4DAY7:L3 X1983AR1901YEAR2099ĺ(7):940x21:1:958:21:" TURN ON THE PRINTER AND PRESS WHEN READY...";A$:A$(13)960(1983YEAR)50ė:12:12::"COMPUTING":YEAR198301020YEAR198301200DAY71270pRT2)"*";z":{10:5:"QUICK CALENDAR BY DON MAXWELL"::" ** COPYRIGHT 1986 BY MICROSPARC,INC **"21:7:"PRESS TO CONTINUE";:Z$::12:"ENTER THE DESIRED CALENDAR YEAR":"(1901-2099): ";YR$:YEAR((YR$)):YE*"3); D12 D117- D$(D1)3);3 ? "*"3)E K Q u TV(NAME$(B)):T2(NAME$(B1)) *T5((33TV)2):T6((33T2)2) 47)"*"; >T5)NAME$(B); HRT33T5TV RRT2)"*"; \T6)NAME$(B1); fRT33T6T2 SPV)MTH(I1,WEEK,X); &+ 03)"*"5 :WEEK; DD N640U X(4)"PR# 0"b b:12:9 l"QUICK CALENDAR COMPLETE": v -----SUB ROUTINE----- 7);:A165:"*";:   B1122 BIİ800:700 B  7);:"0 WEEK16 7);# "*";. X17Q MTH(I,WEEK,X)0ĺ3)" ";:480[ SPV3v MTH(I,WEEK,X)9SPV2 SPV)MTH(I,WEEK,X);  3)"*"; X17 MTH(I1,WEEK,X)0ĺ3)" ";:550 MTH(I1,WEEK,X)9SPV2:540 SPV331,31,30,31,30,31% Y$"Y"M(2)290 WEEK1< I112L NOM1M(I)d "MTH(I,WEEK,DAY)NOMr ,DAYDAY1 6DAY7DAY1:WEEKWEEK1 @ JWEEK1:SPV3 T ^: h(4)"PR# 1":(9)"80N" r:38)YEAR |I1122 640:670:712,6,7),NAME$(12),M(12),D$(7)' X172 D$(X)8 L S,M,T,W,T,F,SX X112f NAME$(X)l JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER X112 M(X)  31,28,31,30,31,30,  Subroutine "SQUARE"% = J14:10A:90:JC I..Draw a "squiral" " (DA15> 2SQUARE240: Sub.line #D <N F1:1X P::b Z:30| d(100,0)"* Squiral *" nN163 xSQUARE AA1:DA N (7) (90,180)"Press return" X$ ......................E**********************9* DEMO1 *U* BY J.B. WARD *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** INSTALL TURTLE BEFORE LOADING  DEMO1.  v 92)32ĺ">"! u(8192)76ĺ"%"/ uD$"PR#0"> uD$"IN#"SLF uA$T uD$"IN#0"k u"TIME IS NOW ";A$~ uD$"OPEN TEMP" uD$"WRITE TEMP" u"32010 REM LAST MOD ";A$ u"DEL 30000,30220" u"DELETE TEMP" uD$"CLOSE" vD$"EXEC TEMP" E" xD$"WEITE TIMESTAMP.EXE"0 30000,30220A "RUN 30000"R D$"CLOSE":g 0u"TIMESTAMP 1.0"s :uD$(4) DuD$"CLOSE" NuSL17 Xu(16384SL2565)255(16384SL2567)530070 buSL lu"NO CLOCK FOUND.": vuD$"PR#"SL u(81  ************************?( * TIMESTAMP *^2 * BY PHILIP CHIEN *}< * COPYRIGHT (C) 1986 *F * MICROSPARC, INC. *P * CONCORD, MA 01742 *Z ************************dD$(4) nD$"OPEN TIMESTAMP.EXx JE)`  ?LåE) JJJJJi{e )LE{e Je" 20I` Ɛ 76 R`^ PW` X=C?8 ` =C??>V H240 R \D50 fK1(49152) p570 zI1D:I VV:V 880"PRESS "& (205,9)"TO STOP.", 2 N  SUBROUTINE TO STOP ONc & ANY KEYSTROKE.i 0y :K2(49152) DK1K2ı N1:1 X: b l v MAIN PROGRAM  L128.8 L2100 A1150 A2120 : 0::1:3 @20:2& J FACE DONE; DO REST.1 T0,150= ^0:270O h40,160:110b r30::25::5r |5,135:90~ I112 6:12.5 I 5,135 I13 80 J14 6:40 J:I  (100,125)"SUMMERTIME!" (188,1) n650 x& SUBROUTINE:TRIANGL, 8 :L2:@ A1L L1:A2X L1:A2` L1f l SUB. TO DRAW FACE, ETC. (120,80)"O O" (120,89)"/ ";(92)  123,94 45:3 "20:3:20:3 ,5:6 625:**********************9* DEMO2 *U* BY J.B. WARD *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** INSTALL TURTLE BEFORE LOADINGdTRIANGL150    F THE EXPONENT)7 J USES DUMMY VARIABLES X$, X1 AND R= To ^X0Y$"0.":P1āI1P1:Y$Y$"0"::NC0: hX0NC0: rX1Y$"1.":P1āI1P1:Y$Y$"0"::NC0: |X1NC0: X1Y$"-1.":P1āI1P1:Y$Y$"0"::NC0:X1 -  PRINT USING EXPONENTIAL NOTATION^  ENTER WITH: X (THE NUMBER TO BE EXPRESSED) " P (NUMBER OF SIGNIFICANT FIGURES IN ANSWER) , 6 RETURNS Y$ (NUMBER TRUNCATED TO CORRECT NUMBER OF SIG FIGS) @ NC (VALUE O"DO YOU WISH TO ENTER ANOTHER NUMBER":16:18:"<";::"Y";::">ES":18:18:"<";::"N";::">O" 20:8:"PLEASE ENTER A LETTER < >";:(36)1:T$:T$ T$"Y"T$(221)120 T$"N"T$(110)Ĺ34,0::23:"] END DEMO":(37)1: (7):220 ";: 18 SPACES AFTER BETWEEN^ "1 AND 9 ": 19 SPACES AFTER 9 21:1::"PRESS TO CONTINUE";:Z$::130 260 NC$(NC):10:(20((Y$)(NC$)5)2):Y$;" ";(120);" 10";:(37):(36)1:NCb 14:2:NOTATION DEMO" n34,4< x:5:3:"ENTER THE NUMBER: ";Xx 7:958:7:3:"ENTER NUMBER OF SIG FIGS: ";P$:P(P$) P1P9ī190 7::" ";: 43 SPACES( "NUMBER OF SIG FIGS MUST BE BETWEEN  ***********************= * PRINT.SCI.NOTE *[ * BY GEORGE W. GOTH *y( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC. *< * CONCORD, MA 01742 *F ***********************P120 Z:3:"PRINT USING SCIENTIFIC 048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(, & wait.  :0 , "(90,183);8 ,N114E 6(127);L @NR Jn T(98,184)"Press Return"x ^(7) hX$ r |RTLE BEFORE LOADING (6 2 (1): Draw the big one.@ <1:1H F:P P:Z ZL180g dA0359p n:Aw xL~ A (2): Draw the little one. S3:L45 A0359S :A L A  (3): Message**********************9* DEMO3 *U* BY J.B. WARD *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** DEMONSTRATION OF TURTLE BASIC  INSTALL TU   HQSC(SC2):SC0SC18 PICK COMPUTER SHOTS@ S0N*K6114XH(K)0IXH(K):JYH(K):SS1:1660:SSCK1>HSSC810RTUTU0:\:M$"COMPUTER'S TURN TO MOVE TANKS.":3650 fNU4:3530:N2(N2)W1:K611:TX COMPUTER MOVE>:M$"COMPUTER PLACING ITS SHOTS.":3650]MV0:FL0:HQ0:SC0:B$"H"qI116:J118A$(I,J)"AD"SC6A$(I,J)"FD"FL1A$(I,J)"HQ"HQ1(A$(I,J),1)"C"MVMV1:SC6SCSC1J,I:FL1MVMV2:FL0WN TANK!"(7):A$(CX(I),CY(I))"":3580:620Yb"COMPUTER SHOT NUMBER "I" MISSED.":3580qlD13000::1540:v:A31:B36K16TX(K)06701130: CHECK FOR TANK TO TANK COMBATTX(K)0:TY(K)0:K1540: CHECK FOR A WINNER(NU)0:TY(NU)0}N(A$(CX(I),CY(I)),1)"H"İ3580:XH((A$(CX(I),CY(I))))0:YH((A$(CX(I),CY(I))))0:A$(CX(I),CY(I))"":620+X(A$(CX(I),CY(I)),1)"C"ĕ36CY(I)14,Y(CX(I)9):XC((A$(CX(I),CY(I))))0:YC((A$(CX(I),CY(I))))0:"THE COMPUTER SHOT ITS OISSED.":3580:620}:(A$(CX(I),CY(I)),1)"M"A$(CX(I),CY(I))"":"COMPUTER SHOT NUMBER "I" DESTROYED A MINE.";:3580:620D(A$(CX(I),CY(I)),1)"H"ĕ31CY(I)14,Y(CX(I)9):"COMPUTER SHOT NUMBER "I" DESTROYED A TANK."(7);:NU(A$(CX(I),CY(I))):TXMPUTER SHOT NUMBER "I" MISSED.":3580:620&A$(CX(I),CY(I))"B"Ē3:20CY(I)14,Y(CX(I)9):A$(CX(I),CY(I))"":"COMPUTER SHOT NUMBER "I" DESTROYED A BARRIER.":3580:6200(A$(CX(I),CY(I)),1)"M"İ3530:N2(N2)ĺ"COMPUTER SHOT NUMBER "I" MCUPIED.":SHYH(K)14,YXH(K)9:31YH(K)14,YXH(K)9:3640:340WMVMVM:MV0K6eTX0:TY0m:I916:J118:A$(I,J)"MI2"ĕ19J14,Y(I9)J,I1540: CHECK FOR A WINNERSC0640I1SC*A$(CX(I),CY(I))""ĺ"CO14,Y(R9):TX(K)R:TY(K)C:460(A$(R,C),1)"M"ĕSHTY14,Y(TX9):A$(R,C)"":D150:35C14,Y(R9)::3:37C14,YR9:0:XH(K)0:YH(K)0:A$(TX,TY)""::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:460AA$(R,C)""ė:(7)"THAT SPACE IS OCH(K)14,Y(XH(K)9):3640:340LA$(R,C)"HQ"ĕ32C14,Y(R9):A$(R,C)""{A$(R,C)"AD"ĕ33C14,Y(R9):A$(R,C)"":A$(R,C)"FD"ĕ34C14,Y(R9):A$(R,C)"" A$(R,C)""A$(R,C)(K)"H":XH(K)R:YH(K)C:A$(TX,TY)"":SHTY14,Y(TX9):31C9):D150:D,L:SH20K:SHTY14,Y(TX9)U hRTX:CTY:RS16:RE1:MT1:A$"K":3710 rRTXCTYĕSHTY14,Y(TX9):31TY14,Y(TX9):480 |MX(TXR):MY(TYC):MMXMYM3MMVĺ:(7)"YOU CAN'T MOVE THAT FAR!":SHYH(K)14,Y(XH(K)9):31YHY(I)14,Y(HX(I)9):( , MOVE TANKS= 6K16:TX0:TY0\ @XH(K)0TXXH(K):TYYH(K)j JTX0480 T::24:"MOVES REMAINING:"MV;::21:1:"NEW LOCATION FOR TANK #"K:"USE I-J-K-M TO MOVE":" TO PLACE TANK";* ^L111:31TY14,Y(TXD2"FL1 A$(I,J)"HQ2"HQ1M (A$(I,J),1)"H"MVMV1:HS6HSHS1i J,I:FL1MVMV2:FL0 HQHS(HS2):HS0HS1 I1HS OB$"SHOT #"(I):4120:RS16:RE1:R1:C1:SH37:A$"K":3710 HX(I)R:HY(I)C  "I1HS:37 COPYRIGHT 1986 BY MICROSPARC, INC *":3650? 2780:TU1:700P BEGIN GAMEu MV0:FL0:HQ0:HS0:NU10:B$"C" :M$"DISPLAYING HUMAN'S MINES.":3650 I116:J118 A$(I,J)"MI2"ĕ19J14,Y(I9) A$(I,J)"AD2"HS6 A$(I,J)"FRIGHT 1986 BY MICROSPARC, INC **"` Z(104)64Ĺ104,64:103,1:16384,0:(4)"RUN TANK.COMBAT" d(4)"BLOAD TANK.SHAPES,A$803":232,3:233,8:0:1 n3660: INITIALIZE SOUND ROUTINE+ xA$(16,18):::22:M$"TANK COMBAT BY RUDY GUY":3650:23:M$"*4 **********************9* TANK.COMBAT *U* BY RUDY GUY *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************! P:12:8::"TANK COMBAT";::" BY RUDY GUY":"** COPY                   ,1)"H"A$(D,J)"HQ2"A$(D,J)"AD2"A$(D,J)"FD2"FLDJ&D:FL0ī2400V&D118&(A$(I,D),1)"H"A$(I,D)"HQ2"A$(I,D)"AD2"A$(I,D)"FD2"FLD&D:FL0ī2420&NU4:3530:TITI1:TI10ı&FL0:N2120,2190,2260,2330$' A$(TR,TC)"S)IN:CY(S)J:%:1670(%DN118905%NJ11ıF%XJJ1:DI1:T%bJ118ıe%lJJ1:DI1:s%vN11940%I11ı%II1:DI1:%I116ı%II1:DI1:% MOVE COMPUTER TANK%TXI:TYJ:FL0:TI0:S0%D1166&(A$(D,J)$1670$JN11670Y$(A$(I,JN),1)"1"(A$(I,JN),1)"C"CX(S)I:CY(S)JN:c$1670t$JN181670$(A$(I,JN),1)"1"(A$(I,JN),1)"C"CX(S)I:CY(S)JN:$1670$&IN11670%0(A$(IN,J),1)"1"(A$(IN,J),1)"C"CX(N1N3N9NU2:3530:D1N:17108#N5N7N10D1#NU3:3530:N3NU2:3530:D1860,1910,1910,1860:DIDI0:NU2:1730#NU3#3530:D1740,1770,1800,1830#IN161670#(A$(IN,J),1)"1"(A$(IN,J),1)"C"CX(S)IN:CY(S)J:0j"TC0āI15:(7):::"CONGRATULATIONS, YOU WON THIS ROUND. WOULD YOU LIKE TO TRY AGAIN?";:1640"^: STILL TANKS LEFT"h"";A$:(A$,1)"N"ĉ::"r:120"| SELECT COMPUTER SHOT LOCATION"NU10:3530"N2(N2)D4:1710"#0:C0!WI16&!"XC(WI)0CC1:!,XH(WI)0HH1@!6!@H0C0āI15:(7)::"THIS MATCH HAS ENDED IN A TIE. WOULD YOULIKE TO TRY AGAIN ?";:1640"JH0āI15:(7):::"SORRY HUMAN, I WON THIS ROUND. WOULD YOULIKE TO TRY AGAIN?";:164::"HUMAN'S TANK DESTROYED!":XH((A$(TX(K),TY(K))))0:YH((A$(TX(K),TY(K))))0:A$(TX(K),TY(K))""l 1530 31C14,Y(R9):FL1::"HUMAN'S TANK DESTROYED.":XH((A$(R,C)))0:YH((A$(R,C)))0:A$(R,C)"" I14000::  LOOK FOR A WINNER!HTY(K)14,Y(TX(K)9):A$(TX(K),TY(K))"":XC(K)0:YC(K)0::"COMPUTER TANK DESTROYED!":1530e1520K((A$(R,C),1))ĕ36C14,Y(R9):XC((A$(R,C)))0:YC((A$(R,C)))0:A$(R,C)""::"COMPUTER TANK DESTROYED!":1530b 31TY(K)14,Y(TX(K)9):FL1TY(K)14,Y(TX(K)9):BC14,Y(R9):J150::K((A$(R,C),1))ĕATY(K)14,Y(TX(K)9):BC14,Y(R9):FL1::"BOTH TANKS DESTROYED.":A$(R,C)"":A$(TX(K),TY(K))"":XC(K)0:YC(K)0:XH(K)0:YH(K)0:1530B$"C"1490[K((A$(R,C),1))ĕ36)1:C1ı$(A$(R,C),1)B$1330*(421420?<FLıNFFL0:D4:lPRTX(K):CTY(K)1:C18ıZ(A$(R,C),1)B$1390dn1420xFLıFL0:D4: COMBATI15:(7):::17::"COMBAT"::I13000:0I110:A,1300,1360DD1:D5D1:)1150GRTX(K)1:CTY(K):R1ıa(A$(R,C),1)B$1210gq1420|FLıFL0:D4:RTX(K)1:CTY(K):R16ı(A$(R,C),1)B$12701420FLı FL0:D4: RTX(K):CTY(K3640:HX(I)0:HY(I)0:1540:"-$K16?.TX(K)01100M8A36:B31wB1130: CHECK FOR TANK TO TANK COMBATLTX(K)0:TY(K)0:KV1540: CHECK FOR A WINNER`:150j ROUTINE TO CHECK FOR TANK TO TANK COMBATtD1 ~D1180,1240YC(NU)0:A$(HX(I),HY(I))"":1040(A$(HX(I),HY(I)),1)"H"ĕ31HY(I)14,Y(HX(I)9):XH((A$(HX(I),HY(I))))0:YH((A$(HX(I),HY(I))))0:"THE HUMAN SHOT ITS OWN TANK!"(7):A$(HX(I),HY(I))"":3610:1040"HUMAN'S SHOT NUMBER "I" MISSED.":3610HY(I))"":"HUMAN'S SHOT NUMBER "I" DESTROYED A MINE.":3610:1040(A$(HX(I),HY(I)),1)"C"ĕ36HY(I)14,Y(HX(I)9):"HUMAN'S SHOT NUMBER "I" DESTROYED A TANK."(7):NU(A$(HX(I),HY(I))):TX(NU)0:TY(NU)0!(A$(HX(I),HY(I)),1)"C"İ3610:XC(NU)0:,HY(I))"B"Ē3:20HY(I)14,Y(HX(I)9):A$(HX(I),HY(I))"":"HUMAN'S SHOT NUMBER "I" DESTROYED A":"BARRIER.":3610:1040(A$(HX(I),HY(I)),1)"M"İ3530:N2(N2)ĺ"HUMAN'S SHOT NUMBER "I" MISSED.":3610:1040B(A$(HX(I),HY(I)),1)"M"A$(HX(I),0:TY0:890!pK16:TX0:TY0LzXC(K)0IXC(K):JYC(K):1960:MVMVS]WMV0K1oWMV0K6uK:W01540: CHECK FOR WINNER:I1HSA$(HX(I),HY(I))""ĺ"HUMAN'S SHOT NUMBER "I" MISSED.":3610:1040yA$(HX(I) PICK RND NO.16 N(((78)(79)256)NU)176 V6 DRAW AND ERASE TANK MINE6 D110:19C14,Y(R9):E150:::6 SHOW WHERE SHOT LANDED (COMPUTER)67686D120:35CY(I)14,Y(CX(I)9):E150:E,D: 7 SHOW WHERE SHOT LANRE9:R16:C1:SH19:A$"K":371025f A$(R,C)"MI2"85p _5z I16:C1:OB$"TANK #"(I):41205 RS16:RE14:R16:C1:SH31:A$"K":37105 A$(R,C)(I)"H":XH(I)R:YH(I)C5 5 I916:J1185 A$(I,J)"MI2"ĕ19J14,Y(I9)5 J,I5 61:SH32:A$"K":3710&4 A$(R,C)"HQ2"g4* OB$"AMMO DUMP":4120:RS16:RE9:R16:C1:SH33:A$"K":3710y44 A$(R,C)"AD2"4> OB$"FUEL DEPOT":4120:RS16:RE9:R16:C1:SH34:A$"K":37104H A$(R,C)"FD2"4R K16 5\ OB$"TANK MINE #"(K):4120:RS16::3530U3 N1A$(I,J)""FLFL1:A$(I,J)(FL)"C":XC(FL)I:YC(FL)J:FL6I1:J18i3 J,I:FL63260|3 I13:J1183 (A$(I,J))0ĕ36J14,Y(I9)3 J,I3 HUMAN LOCATIONS3 34,20:3 PLACE HQ4 OB$"HQ":4120:RS16:RE9:R16:CFL02l I18:J118]2v 3530:N3A$(I,J)""A$(I,J)"FD":34J14,Y(I9):I8:J18:FL1p2 J,I:FL3180y2 FL02 I811:J118:35302 N2A$(I,J)""A$(I,J)"M1":FLFL1:FL6I1:J182 J,I:FL632202 FL03 I311:J118OMPUTER LOCATIONS$1 I18:J118j1 3530:N3A$(I,J)""A$(I,J)"HQ":32J14,Y(I9):I8:J18:FL1s1 J,I1& FL308010 FL01: I18:J1181D 35301N N3A$(I,J)""A$(I,J)"AD":33J14,Y(I9):I8:J18:FL11X J,I::FL31302b 1:10 I18:K118O0 NU10:3530:N2A$(I,K)"B":20K14,Y(I9):JJ1b0 J15K18:I8k0 K,Iz0 J1529600 J10 I16101:K1180 3530:N2A$(I,K)"B":20K14,Y(I9):JJ10 J15K18:I100 K,I0 J1530201 C/ J192850+/ JI4,7:JI4,159:JJ11/" 9/, J1I/6 I161599U/@ A$(J)l/J (A$)2A$" "A$/T (A$,1)" "2920/^ (((A$,1)))201,I:(((A$,1)))20268,I/h S((A$,1)):SS20:S20S30/r S6,I:S273,I/| JJ1:0 Y7:JD130:35TC14,Y(TR9)::A$(TR,TC)"":A$(TX,TY)"":XC(K)0:YC(K)0::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:SSN:. . NU3S:3530:. DRAW GRID. :3:0,0:3082. 0:I81619:0,I279,I:. J1. I1326514:I,0I,161 ĕ33TC14,Y(TR9):A$(TR,TC)""U- A$(TR,TC)"FD2"ĕ34TC14,Y(TR9):A$(TR,TC)""- A$(TR,TC)""ĕ36TY14,Y(TX9):A$(TR,TC)A$(I,J):A$(I,J)"":36TC14,Y(TR9):TX(K)TR:TY(K)TC:XC(K)TR:YC(K)TC:SSN:}. A$(TR,TC)"MI2"ĕ36TY14,Y(TX9):IN:TCJ:2700,( J1ı+,2 2770:N0ı=,< MV(SN)0ıJ,F JN1ı`,P TRI:TCJN:2700l,Z J18ı},d 2770:N0ı,n MV(SN)0ı,x JN18ı, TRI:TCJN, FL0, A$(TR,TC)"HQ2"ĕ32TC14,Y(TR9):A$(TR,TC)"" - A$(TR,TC)"AD2" + NU2:3530:+ ITX(K):JTY(K):TXI:TYJ:XCI:YCJS+ D2ĴN2600,2650:k+ D2ĴN2500,2550:v+ I1ı+ 2770:N0ı+ MV(SN)0ı+ IN1ı+ TRIN:TCJ:2700+ I16ı+ 2770:N0ı+ MV(SN)0ı+ IN16ı, TRI:TCJN:D3* 2060)* MOVE RIGHT8*$ J182040T*. NU3:3530:JN182040a*8 MV0ır*B MVN02350*L TRI:TCJN:D4*V 2060*` FLIN1:D1:2050*j N2:D2:2050*t FLJN3:D3:2050*~ N4:D4:2050* SN:N3MVS02460+MVN02140!)zTRIN:TCJ:D1+)2060;) MOVE DOWNJ)I162040f)NU3:3530:IN162040s)MV0ı)MVN02210)TRIN:TCJ:D2)2060) MOVE LEFT)J12040)NU3:3530:JN12040)MV0ı)MVN02280 * TRY(K)TC:2440(4A$(TR,TC)"MI2"ĕ36TY14,Y(TX9):D150:35TC14,Y(TR9)::A$(TR,TC)"":XC(K)0:YC(K)0:A$(TX,TY)""::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:SN:(>(H MOVE UP(RI12040(\NU3:3530:IN12040(fMV0ı )pHQ2"ĕ32TC14,Y(TR9):A$(TR,TC)""Y'A$(TR,TC)"AD2"ĕ33TC14,Y(TR9):A$(TR,TC)""' A$(TR,TC)"FD2"ĕ34TC14,Y(TR9):A$(TR,TC)"" (*A$(TR,TC)""ĕ36TY14,Y(TX9):A$(TR,TC)A$(I,J):XC(K)TR:YC(K)TC:A$(I,J)"":36TC14,Y(TR9):TX(K)TR:T(X$,1,4)OR1:((X$)(Y$))510PR2: R=1 DO NOT ROUND UP, R=2 ROUND UP^R520,490vX1(Y$)110(P1)X110X11:NCNC1440X0Y$"-"Y$ZNC0:X1(X):NC0@X19.99999999X1X110:NCNC1:420bX110X1X110:NCNC1:430X$(X1):(X$)Pĭ(X$,2,1)"."X$X$".":I1P1:X$X$"0":NETXI:460X$(X1):(X$)PāI1P1:X$X$"0":IY$(X$,1,P1):Y$"10."Y$3,1 |"SALES FOR 1985"* 33,38:32,43 4:A J911K J10Q X J 36908,141: 141=$8D - USE GRAPHER 33,2:32,6 1: I120 I "IN" I 33,72:32,7 21: Z156:"J";:: &36908,147: 1HICS 1 36908,141: 141=$8D - USE GRAPHER= J112J XCJ48S "610h ,22::1403,XC1 636908,147: 147=$93 - USE NORMAL SET @MN$(J) J36908,141: 141=$8D - USE GRAPHER SET TJ ^36908,147: USE NORMAL SET h3: r3reased much more then we anticipated. Here is a graph showing our sales for 1985."w :" Kenn" ::"Press the space bar to continue..." YN$:YN$" "220 37062: CLEAR GRAPHICS SCREEN 16302,0: FULL SCREEN GRAP IN GRAPH DATA nD$(4)= xD$;"BLOAD CHAR.NORMAL,A$9300"a D$;"BLOAD CHAR.GRAPHER,A$8D00" D$;"BLOAD DOUBLE.GEN,A$9000" (48896)76İ750 D$;"PR#3": 36994: TURN ON GENERATOR " Dear Mike,"Y :" Our sales have inc **********************; * DOUBLE.GEN.DEMO *X * BY KENNETH ONO *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P INITIALIZEZ35072: $8900 d710: READ   FL0:3850<+< PRINT I-J-K-M PROMPT~<:"ENTER LOCATION OF ";OB$:"USE I-J-K-M TO MOVE":" TO PLACE ";OB$;:MOVE DOWN;RRSRRE:3710.;RR1:3710J;SH37SH20SH274030;A$(R,C)""ė:(7)"THAT SPACE IS OCCUPIED!":D12000::4120:3710;SH20SH27ı;SHC14,Y(R9):;I1ı;J1I;RHX(J)CHY(J)FL1;J <FLġ:)3710:A$(32)4010*: A$"I"3900;:A$"J"3930L:A$"K"3960]:(A$"M"3990k:2 MOVE UP:<RRERRS:3710:FRR1:3710:P MOVE LEFT:ZC1C18:3710:dCC1:3710:n MOVE RIGHT:xC18C1:3710:CC1:3710 ; @9SHC14,Y(R9):RTXCTYSH20SH27ĕSHC14,YR9:MT1v949168,0:16384,128:A$((16384)128):49168,09MTĭA$"I"A$"J"A$"K"A$"M"A$(32)37109MTMT0:3840:SHC14,Y(R9):A$"I"A$"J"A$"K"A$"M"A$(32>8~SH37İ4050:3790W8SH31ĭA$(R,C)"B"(A$(R,C),1)"H"(A$(R,C),1)"C"3850j8FLFL0:37208SH19ĭ(A$(R,C),1)"M"38508FLFL0:37408A$(R,C)"B"A$(R,C)"HQ2"A$(R,C)"AD2"A$(R,C)"FD2"38508FLFL0:37609MTī3800DED (HUMAN)7$768H7.D120:35HY(I)14,Y(HX(I)9):E150:E,D:Z78D13000::p7B21(M$)2:M$:7LX7687817VY:X,Y:7`7j160,20,169,50,32,168,252,173,48,192,136,208,245,968t MOVE SHAPES ON SCREEN USING I-J-K-M AND  "JUN",655H "JUL",110DR "AUG",99T\ "SEP",134df "OCT",150tp "NOV",155z "DEC",159 37005,141,49,190,169,0,141,48,190,234 IYC7620YC0ı)1403,XC:1531,Y8(104YC)>W READ IN GRAPH DATAkMN$(12),YC(12)I112:MN$(I),YC(I): POKE IN PRODOS PATCHAD:IADAD8:X:I,X:  "JAN",10 "FEB",13  "MAR",23* "47=$93 - USE NORMAL SET 01/ :33,40:32,0i D" SALES": 33 SPACES N16368,0:Z$::37093::(21):: X DRAW GRAPH bY20:YCYC(J) l1403,XC v1531,Y (225): LOWER-CASE A YY1:YCYC86 $$-6' $,-*M$-6?$i M ?,-hi)#II 8' $$m 56>$$$$$,-----5666?????'$$,----566????'$,---56???',--5??'M$$,-? $d-6'!$$,-?I--( $88?6v@%') mmcmmmcmmmcmmm# -$$)-d- ?'- g!?I!8?' 6&- ?'$-- - ?$$ - $ ?,%? $ $*D66 d  $ -x%LXfr~2T\hu.C!$d >?N1&!$$,-?N1? -$$ -)- $?766)-$-$--!$$,-? - <$$ -%!$$-@666 -$$(%- $<(%!$$l )-$$$!$$.`666!$$rV$$$ - $?66!  7,36,30,36,24,24,24,24,24,24,9,18,21,24,12,15,18,21,24,27,18,18,18,6,6,6,6,6,6,9,18,21,24,12,15,18,21,24,27,36,36,36,24,24,24,24,24,24 5,18,21,24,24,27,30,18,18,24,18,9,15,18,21,12,15,18,21,24,27,24,24,18,12,12,12,12,12,12 3,18,21,24,12,12,6,9,A$(13)680&0:190:100::520 3,18,21,24,12,12,12,9,27,24,21,18,15,12,24,21,18,12,12,12,12,12,12,24,24,24,3,24,18,15,6,12,18,3,27,24,21,12,18,12,3,15,18,21,12,12,6,4,27,24,21,18,6,6,12,18,3,12,15,27,18,12,18 9,18,21,15,12,15,18,21,24,2(13)630"XW$(8)SS3:550;bW$(21)SS3:560Dl550Tv:C1(S3)]180m:C1767022:19:R$(C1);CH$(A):68022:16:R$(C1);CH$(A):24:1:" = CONTINUE";:25:" = MENU...";:A$A$(27)340"CHOOSE FROM THESE";CH$(A);" CHORDS:"U 21:"CHOOSE FROM THESE";CH$(A);" CHORDS:" 22:4:"A B C D E F G A- B- D- E- G-" 24:"USE <-- & --> THEN //=MENU"; &S4S37 0S37S4 :22:S:W$ DW$(27)340 NW$OR" 8:10:"(2) MINOR"6 10:10:"(3) SEVENTH"b 15:3:"OR: PRESS 'T' FOR A SELF-TEST" 17:7:"PRESS 'Q' TO QUIT" 20:20:"CHOOSE ONE...";:A$ A$"T"810 A$"Q"Ā A$"1"A$"3"440 A(A$) :90 X4& 21: "J13 ,K112" 6C(J,K)B @L1C(J,K)2:CD(J,K,L):LK JK,JS T:x ^I112:I:3:"*":I:31:"*": hI430:1:I:"*":12:I:"*": r3:5:"THE FOLLOWING CHORD TYPES" |4:5:"ARE AVAILABLE FOR REVIEW:" 6:10:"(1) MAJMICROSPARC, INC **":21:8:"PRESS TO CONTINUE";:Z$:::7:7:"READING CHORD DATA"} R$(12),CD(3,12,19),C(3,12) CH$(1)" MAJOR":CH$(2)" MINOR":CH$(3)" SEVENTH"  A,B,C,D,E,F,G,A FLAT,B FLAT,D FLAT,E FLAT,G FLAT I112:R$(I): <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "  ,154,5,168,2,70,10,126,16,98,4,17,10,84,21,252,0N)* nI1N:XR(I),YR(I):XR(I),YR(I):I5 xI1MD RF(I)170[ 0:XR(I),YR(I):3 YR(I)YR(I)1:YR(I)159RF(I)1:NN1:N0180:170 XR(I),YR(I) I:120 ::0 22,0,28,18,224,5,56,3,182,24,238,17,210,20,112,14,196,14,140,421  ********************** > * RAIN.BASIC * [ * BY SCOTT ZIMMERMAN *x( * COPYRIGHT (C) 1986 *2 * By MICROSPARC, Inc *< * CONCORD, MA 01742 *F ********************** PZ::3 dN18:MN:XR(N),YR(N),RF(  ee  AL! 8 L! e L!:R$(C1);CH$(A):P$24:1:" = CONTINUE";:25:" = MENU...";:A$b.A$(27)340v8A$(13)1060B0:190LB4910VC1`:340 23:1:"------------------------------------":24:" = CHORD";:25:" = MENU...";:A$uA$(27)340A$(13)960180:22:C17103018:R$(C1);CH$(A)::1060A3105016:R$(C1);CH$(A)::106015"R12:"4) ALL CHORDS"7\16:20:"WHICH...";:A$NfA$"1"A$"4"860^pB(A$):ABfz90tB4920A((1)3)1:C1((1)12)1:930C1112100:22:"PLEASE PLAY---> ";R$(C1);CH$(A) NEXT LINE HAS 36 DASHESc,6,8,18,24,12,15,18,21,24,27,36,36,24,24,24,24,24,24  4,18,21,24,27,6,18,12,18,8,15,21,12,15,18,21,24,27,24,18,12,12,12,12,12,12*:3:"PLEASE CHOOSE (FOR SELF-TEST):"46:"1) MAJOR CHORDS">8:"2) MINOR CHORDS"H10:"3) SEVENTH CHORDS15,18,21,24,27,24,24,12,12,12,12,12,12,4,15,18,21,24,18,12,18,6,3,21,24,27,12,6,12,2,15,21,12,6,8,15,21,12,15,18,21,24,27,18,12,6,6,6,6,6,6,3,12,15,27,18,12,64 8,15,21,12,15,18,21,24,27,36,30,24,24,24,24,24,24,8,18,24,12,15,18,21,24,27,18,18,6,6,6,6,6,18,21,24,27,36,36,24,24,24,24,24,24,9,18,21,24,12,15,18,21,24,27,18,18,12,6,6,6,6,6,6 9,18,21,24,12,15,18,21,24,27,36,36,30,24,24,24,24,24,24,4,18,21,24,27,24,18,24,12,8,15,18,12,15,18,21,24,27,24,24,12,12,12,12,12,12  2,18,24,12,12,8,18,24,12,18,21,24,12,15,18,21,24,27,24,24,18,12,12,12,12,12,12,9,18,21,24,12,15,18,21,24,27,30,30,24,18,18,18,18,18,18,3,21,24,27,12,18,6,2,15,18,12,12V 8,15,18,12,15,18,21,24,27,18,18,6,6,6,6,6,6,8,15,18,12,15,18,21,24,27,30,30,18,18,18,18,18,18,8,15,18,12,15*F ~b T@ X  @@@@@@@@@莳@@@@ W@@̱@Ү@@@F@@@@ @@ W @@@ɟ@β@@L@@ W@LP@ 9 X````````XF ~b Tؠ`XF ~b Tؠ`XF ~b Tؠ8p!! 8gh8minj 8sotpe eee Q `    A $L͠ĠҠĠҠĠҠ̤gikkmos"8  AL"UkUkUkUUkUkUkUkUkUUkUkUkUUkUUkUkUkUkUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@~~ @@@@@@@@@@@@@@@PPPPPPPP}@_PPPPP}PPPPP_@   00 ""@`px|~?>AUMUA>?0($"I*~ "@@" ~!"$(0?AAAAAA#"""">IIIIIAA*I! uBqpB"JdRy@B"zDbAp>AAA>~~" " " " @n X$ [0@ #@Q@ #@` `ǠԠ٠ӠԠ̡ԠӠӮ@"