JJJJ ( X ,0 ,b9 LԠ  Рààè   3.3     Ԡˠ ƭĠРӧ$%L"ʹ0  `3:9:"COME BACK AGAIN SOON!"3 I14000::::K I(A$):2900:1370Y 0PC0130 :PCTCZXNX7:ZYNY8:1850:LXPX:LYPY:K1:1740 DP(TC1)1TC0 NP(TC2)1TCTC1:620 XP(TC3)1TCTC2:620 bTCTC3 lPCTCZXPX7: rA$4 C%((A$))510,395,1010,560,120,690,400C 2940:130S BR50BR0[ : 9:7:"THANKS FOR PLAYING, ";NM$ 11:3:"YOU HAVE A TOTAL BANKROLL OF $";BR (4)"OPEN "F$ (4)"WRITE "F$ N$(BR):N$:(4)"CLOSE "F$ 190. RR(P(TC)):RFFNF(0)1:F(0)N:1160N "E0:I411:T(I,0)0EIT ,a 6E0370o @SC0370 JT(E,1)S(1):T(E,0)1:SCSC1 TI1SC:S(I)S(I1)::S(SC1)1 ^KS(1):LXSX:LYSY:1740 hKT(E,1):LXTX3E:LYTY:1740:2920:130EN THE ODDS!!"> 12:3:"YOU HAVE A TOTAL BANKROLL OF $";BRd 22:2:"CONTINUE PLAYING? (Y/N)"l A$| A$"y"ī40 A$"Y"ī40 A$"n"ī410 A$"N"210 410 SC0270 RR(S(1)):RFFNF(0)1:F(0)N:840:130 TC02 F(4);"BLOAD CANFIELD.ML,A$8000"5 P6,168:7,131\ Z(48896)76ĺ(4)"PR#A$8340":110u d54,64:55,131:1002 n2400 x1950 A$" ":1725:Q(0):FC52250 WINNER I11000: 9:12:"CONGRATULATIONS!" 7:"YOU HAVE BEATJG COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED::"COPYRIGHT 1988 COMPUTE! PUBLICATIONS":9:"ALL RIGHTS RESERVED"8:8:"SPACE BAR TO CONTINUE":16 K(49152):K160K(1):32"2520(40196,189:40197,158#           "MONTHLY PAYMENT = $";M' &:::::- 0 P N CONVERT PERCENT TO DECIMAL9  PER PAY PERIOD (MONTH)H F(1R2)Nh  CALCULATE INTEREST FACTOR} MP(R2F(F1)) M(M100)100  CALCULATE MONTHLY PAYMENT : "$";P;" BORROWED FOR" Y;" YEARS AT ";R;" PERCENT"  0% ,"ENTER AMOUNT MORE THAN ZERO.". 62704 @O J"HOW MANY YEARS ";:Y\ TY0370{ ^"MUST BE MORE THAN ZERO." h320 rN12Y | NUMBER OF PAYMENTS = 12*Y  "WHAT IS THE INTEREST RATE" "IN PERCENT ";:R R2R1200 MBER OF YEARS". "FOR THE LOAN, SUCH AS 15"4 [ "NEXT ENTER THE RATE OF INTEREST"{ "FOR THE LOAN IN PERCENT," "SUCH AS 9.75" "THE COMPUTER WILL RETURN" "YOUR MONTHLY PAYMENT."  "AMOUNT BORROWED ";:P "P032/Hd COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED._n MONTHLY PAYMENTS}x"** MONTHLY PAYMENTS **""YOU MAY ENTER A DOLLAR AMOUNT""OF MONEY FOR AMOUNT BORROWED,""SUCH AS 50000" "THEN ENTER THE NU   ,223,32,240,253,172,207,3< 174,206,3,173,48,192,202,208a 253,136,208,244,169,136,32,240 253,169,160,32,240,253,169,136 32,240,253,32,63,255,96,100,79 dI903975:A:XXA:I,A:MnX10352ĺ"ERROR IN DATA STATEMENTS.":qx(4)"BSAVE BLIPPER,A903,L73": 162,161,160,3,173,0,191,201 76,208,7,142,48,190,140,49 190,96,134,54,132,55,76,234 3,96,32,240,253,32,74,255 169 |p_p eLshRp, h h hRpLYhLg gNiÙ/ٯΩš((((PPPP>:.npok**@`?p8h Lh@h ` hh`ppp΀p` g`i)i3܍Rp hRp_p{pzp|p e |d a a re g ` a cp(p0 ` p}0p8p !a bpp d c ea8p h~pyp0 {p0, eLsh_p_p _p|p  6cl6 Wg Zg Zg Zgzp'Rpi &Rp{pzp'?Rp` hgii`i칙ii i `tp WgqpȭRp Zg ZgRp`qpp*tp8(pRp |gzp g~pwp'qp`N 8eNN`TQLXPWTR gL_pi0p g)ipp)pVpWpp[p(p\p @p g p8pnpPp-pRp8 hg'-pRp(pRpiopLTf|p@p Wg{p Ȍjpjpg Zg g g)iqpwp g)RpRpRp 8mRptpvpRp |gǩ~p` :e :e۩riqe AeiiiɈ``(*8LReqe())qe`npnpPp p) p`pLeppp  pp`0  pp`p)p` `f(p8pHp pp @p gHpgp0pfp HpZp@pXp8pVp[pWp\p`p@*TpI`p`zd{diJzdzd{d(~j~jj)ji)jjzdސ` .dRpSpridzdj Sp :ezdSp :eRp RpSpRp SpϐídidLdzdi :ezdg gL cRp`Rp pJJJJJSp Tp8SpSpXppcccp}cccpca(pda FaYpTpeZpcciRpSpda FaSpLwc` \p(rrrrssstRp8pSpHp@pccꍁc[pca\pda rcYp0pPpPp[` pmp(poppPp(piopLhb(p Ppp~p`pmpPp`a Pp(piopaɀ)pa!0p p΄p`p)p΄p`(pdaRp_pSppca0ap'8caSpLb aRpRp FapbpibqibSp@p qHpRp` pp0p8`p8`p% Vpp]pp`p0(`pp'8p``p 'p8p`daimca칙impca`$(piie`iimp`Ii`apa,ɠa`a`a`a`pmp p (pi wapȱmpPpL` L/hq_p a`pi'apbpapH`qh8m_pbpʹ`q SpՍRpSpbpcpTpSp)Rp g)q-RpqRpIRpTpSpSpм`~|yp`@?pVp(pWpp]p p^pp} p pp0(pi(p(pL`(p(p(pp}pp0pL`i   P(TC):FCFC1:PCPC1:TCTC1GI(TC1)PC:P(I)P(I1)::P(PC1)1sTC0İ1902:ZXNX7:ZYNY8:1850:1200KP(TC):LXNX:LYNY:1740NY2:NX:" ";:NX:TC2920:KF(N):LXFX3N:LYFY:1740:BRBR5:1930:130I(B$):172840:2920 KT(I,J):1732:130:2900:1725:TC0130JRR(P(TC))~B$:C%((B$))1220,1100,1090,1090,120,1090,400B2940:130L1728VR0NFP(TC)12:1130`NFP(TC)1jN0tNN1:N5İ2940:130~F(N)NF1140F(N)R12N1S(1)1:920&N1S(1)14:N151N1N152WN2N126:N251N2N252dJT(I,0)wT(I,J)N1970T(I,J)N2İ2940:130JJ1:T(I,J)S(1):T(I,0)T(I,0)1:SCSC1N1SC:S(N)S(N1)::S(SC1)1KS(1):LXSX:LYSY:17S(1)1*N0)4NN1:N5İ2940:130;>F(N)NF820aHF(N)S(1):FCFC1:SCSC1:BRBR5RJ1SC:S(J)S(J1)::S(SC1)1\KS(1):LXSX:LYSY:1740:2920fKF(N):LXFX3N:LYFY:1740:1930:130pI(B$):1728zT(I,0)0J0:970ZYPY8:1850v1902=P(TC1)1ZXNX7:ZYNY8:1740fKP(TC):LXNX:LYNY:2920:1740:130o1301725:2900:SC0130RR(S(1))B$:C%((B$))880,780,770,770,120,770,4002940:130 1728R0NFS(1)12:810 NFI0 II1:I523804 RR(T(I,1)):RFF2320d$ NF(0)1:F(0)N:F(N)T(I,1):FCFC1:BRBR5. K1:LXTX3I:LYTY:1740:KF(N):LXFX3N:LYFY:2920:1740:19308 T(I,1)S(1):T(I,0)1:SCSC1:J1SC:S(J)S(J1)::S(SC1)10B KS(1):LXSX:,1):LXTX3I:LYTY:2920:1740:5PY2:PX:1902PRR(S(1)):RFF2310NF(0)1:F(0)N:F(N)S(1):FCFC1:SCSC1:BRBR5J1SC:S(J)S(J1)::S(SC1)1KS(1):LXSX:LYSY:1740:2920KF(N):LXFX3N:LYFY:1740:1930:2260 7F(1)P(14):F(0)1:FC1:FFF(1)13(F(1)13):PC34pI14:T(I,0)1:T(I,1)P(14I):J212:T(I,J)1::I1PC:P(I)P(I52PC)::P(PC1)1KS(1):LXSX:LYSY:2920:1740KF(1):LXFX3:LYFY:2920:1740:BRBR5:1930!I14:KT(IZYNY8:1850*I14:J014JJ1:J132130E>T(I,J)12130UH1732:2100[Rq\LXPX:LYPY:1740fBRBR50:I117:2920::1930pI5211:C(I(1))1:P(53I)D(C):D(C)D(I):zI152:D(I)P(I):I113:S(I)P(I)::SC13I12000:+22:2:"PLAY AGAIN? (Y/N)"?A$:A$""2010_A$"Y"A$"y"BR500::40~A$"N"A$"n"BR0::4102010F(2)1:F(3)1:F(4)1:TN1:FC0:TC0 K1:LYFY:I14:LXFXI3:1740: K1:LXPX:LYPY:1740:ZXNX7::T1ZX20:ZX,TT1,T::3:<nPY2:PX:" ";:PX:PCTC[pNY2:NX:" ";:NX:TC:{vZXNX7:ZYNY8:1850:190218:2:" ";:2:"$"BRBR4920509:11:"YOU HAVE ONLY $";BR;"!":I13000: 12:15:"TOO BAD!!":J1414:1750!ZXLX7:ZYLY80K11780KZX2(ZX2)ZXZX1w32768,0,ZX,ZY:ZXZX2:32768,0,ZX,ZY:SUIT(K13):RK(13SUIT):COL0SUIT1SUIT2COL2ZX2(ZX2)ZXZX1&32768,K1,ZX,ZY0:0:I023:TZYI8KT(A,B):ZX21ATX7:ZYTY8B1414:1750:2900:_T(A,0)T(A,0)T(I,0):T(I,0)0:130kI14:~T(I,0)01720JT(I,0):KT(I,J):1732CY:CX:" ":CX:" "CY:CX:A$:CY1:CX:B$: ZX21ITX7:ZYTY8728:RR(T(I,1)),,R12N1T(I,1)1:1600=6N1T(I,1)14Q@N151N1N152nJN2N126:N251N2N252TBT(A,0):B0İ2940:130^T(A,B)N11650hT(A,B)N2İ2940:130rJ1T(I,0):K1:1732:|J1T(I,0):BT(A,0)J:T(A,B)T(I,J)NFT(I,J)12:1490#NFT(I,J)1+N0ENN1:N5İ2940:130XF(N)NF1500F(N)T(I,J):FCFC1:T(I,0)T(I,0)1:BRBR5K1:1732:2920T(I,0)0JJ1:KT(I,J):1732KF(N):LXFX3N:LYFY:1740:1930130"A(B$):1:P(PC1)1!2TC0İ1910:1360?<KP(TC):LXNX:LYNY:1740IF1902gP2920:KT(I,J):1732:130Z1725:T(I,0)0130dB$:C%((B$))1570,1450,1440,1440,120,1440,4002940:1301728:JT(I,0):RR(T(I,J))XT(I,J):RR(X)R0T(I,0)0J0:1310-R12N1P(TC)1:1260=N1P(TC)14QN151N1N152nN2N126:N251N2N252{JT(I,0) T(I,J)N11310T(I,J)N2İ2940:130JJ1:T(I,J)P(TC):T(I,0)T(I,0)1:PCPC1:TCTC1 (N(TC1)PC:P(N)P(N1): 8800(>z0j`z:***~@?Pp; <0@>:::h:> /**>@`00``@A@ "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*** ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" <"<"""<< <"""<"><$""< """" *>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>><2"<""">""" ggggggccD`(xxEFG >0 e()) $20I$ i EFGXL>>< (&20 *, * ! g``$ !%$$$8.%N$m!!)%m (` g*` ᥡ`_wUUW_GGG_WUW_~xx~zz~~~~z~ccc||cccOGCILOO||`cCy|`cOgssscccccg '&`,!m"#, !,, >-, -,`#1,0 ,!1 ,`~|xp`@?)?),pi(i(m `         쀰r m [h&,-.*,U-."  \& ' ' & & `r   +xȹxȭ( xm) !xm*"+, \+` g5`':I023:TZYI:T1ZX20:ZX,TT1,T::3:KnPY2:PX:" ";:PX:PCTCjpNY2:NX:" ";:NX:TC:vK1:LXNX:LYNY:1740:18:2:" ";:2:"$"BRBR4920509:11:"YOU HAVE ONLY $";BR;"!":I13000:12:15:T(16336)"r +"| I029:T(16336):1" H" 70,84,80,13,83,5 )! (4)"OPEN "F$'! (4)"READ "F$ Gd COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVEDnn:LX28:LY24:DXLX5:DYLY4:CC6xHIGH(1),SC(1),TILE(1),LOSS(1),ROW(30),COL(30),C(30),SEL(59)HIGH(0)0:HIGH(1)1:PL0:21:8:"NUMBER OF PLAYERS (1/2) ?"D 23:      "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*** ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" <"<"""<< <"""<"><$""< """" *>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>><2"<""">""" ggggggccD`(xxEFG >0 e()) $20I$ i EFGXL>>< (&20 *, * ! g``$ !%$$$8.%N$m!!)%m (` g*` ᥡ`_wUUW_GGG_WUW_~xx~zz~~~~z~ccc||cccOGCILOO||`cCy|`cOgssscccccg '&`,!m"#, !,, >-, -,`#1,0 ,!1 ,`~|xp`@?)?),pi(i(m `         쀰r m [h&,-.*,U-."  \& ' ' & & `r   +xȹxȭ( xm) !xm*"+, \+` g5`'   K)UIT":1 A$:I15:A$("EDLSQ",I,1)Ă:160P I270,220,180,200:34,0: "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:581dN9:::(17);"APPLE MLX V1.1":34,2:610cn1:20:"START ADDRESS";:530:A0ĺ(7):110kxSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA :"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q   169,0 x72,189,255,1,201,160: 240,8,104,10,125,255 R 1,105,0,72,202,208k 238,104,170,41,15,9 48,201,58,144,2,233 57,141,1,4,138,74 74,74,74,41,15,9 48,201,58,144,2,233 57,141,0,4,104,170 169,141,96 C' C0:I76876868:A:CCA:I,A:^C7258ĺ"ERROR IN PROOFREADER DATA STATEMENTS":(190256)76Ĺ56,0:57,3:1002:50((4);"IN#A$300"234,0::34,1:2:"PROOFREADER INSTALLED"<d216,32,27,253,201,141 n208,60,138,72,-22:T9PL20:T:" ";:T:SC(PL)mHIGH(PL)SC(PL)HIGH(PL)SC(PL):T:" ";:T:HIGH(PL);v1:I0NXACOL(I)8:YAROW(I)9:950I,YXA,YAX,YAX,YPXA1,YPXA1,YA1X1,YA1X1,YPjDELETE LINES 922-926 IF YOU HAVE A COLOR MONITORxCACCĒ0X7,Y14X14,Y14X7,Y6X14,Y6XACXLX8:YACYLY9XA,YAXA7,YAXA,YA1XA7,YA1XA,YA2XA7,YA2PL)0860)421:13:"RETURN TO CONT ";@>A$:A$(13)830MH0:1000VR750u\21:13:" GAME OVER "f24:14:"PLAY AGAIN (Y/N)?";pA$:A$"Y"A$"y"đ:140zA$"N"A$"n"ĉ:880XAXDX:YAYDY:YPY1:CA4X,YXA970:730WSC(PL)SC(PL)100:(7):970:XCXLX:YCYLY:CAC(SEL(A)1):SEL(A)0:910gHITSHITS1SC(PL)0SC(PL)0:790HITSTILE(PL)600I0TILE(PL)XCOL(I):YROW(I):CACC:910I 300970 3:1000 *SC(1 X3:940bK$:K(K$"@")+l0:940GvK8CXCX1:CX0CX9dK21CXCX1:CX9CX0K11CYCY1:CY0CY5K10CYCY1:CY5CY0K32K13690600ACXCY10 SEL(A)0SC(PL)SC(PL)100:I05:A(16334):I:O SELECT":1& K(49152):K160560Z SC(PL)SC(PL)LOSS(PL):SC(PL)0SC(PL)0:790c 970 A(16336):I1350:I &510 0A$ :CACC:I0N:XCOL(I):YROW(I):910:I D21:13:"TILES NEEDED ";TILE(PL)1;" ":1 NCX0:CY0:HITS0 COL(I)((1)10)LXD TROW(I)10LYCOL(I)LX:SEL(T)0400h C(I)((1)4)1:C(I)4C(I)5w SEL(T)I1~ I 21:13:" SPACE TO VIEW ":1 A$:A$" "490 470 I0N:XCOL(I):YROW(I):CAC(I):910:I 21:13:"SPACE T60 @NUMPL0350< J24:14:PL0ĺ"FIRST PLAYER ";:350R T"SECOND PLAYER"; ^TILE(PL)TILE(PL)1:NTILE(PL):N29860 hI059:SEL(I)0:I rLOSS(PL)40:SC(PL)6000LOSS(PL)60 |SC(PL)2000LOSS(PL)20 I0N ROW(I)((1)6)LY00:TILE(1)1 NUMPL0160n :22:" SCORE";:23:"SCORE":3:"HIGH ";HIGH(0);:23:"HIGH ";HIGH(1); PL1:970:NUMPL0PL0 CACC:I09:J05 XILX:YJLY:910 "J:I ,PLNUMPLPL:970 6SC(PL)0PLNUMPLPL:SC(PL)08" COPYRIGHT 1988 COMPUTE! PUBLICATIONS":11:"ALL RIGHTS RESERVED";e CA((1)5)1:CA3CACA1 X((1)10):Y((1)6) XXLX:YYLY 910:NUMPL1 SC(0)500:TILE(0)1:CC K(49152) K177NUMPL0 K178NUMPL1:SC(1)5    D$(4)%D$;"OPEN TEST,L50"2I0999K(D$;"WRITE TEST,R";I]2"RECORD #";Im<"NAME #";IF"ADDRESS #";IPZD$;"CLOSE"  ":% ("FIRST FOUND IN RECORD #";N%B 25200:R%0ĺ"NO MORE":h <"ALSO FOUND IN RECORD #";N%:50iG  COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED. :"COPYRIGHT 1988 COMPUTE! PUBL.":"ALL RIGHTS RESERVED." X11500:X: (4);"BRUN FASTSCAN.BIN" "FILENAME: ";NF$:"SEARCH STRING: ";SS$ 5000:R%0ĺ"NOT FOUND  L` H hF NLL { ᥠ襡 { ᥠ {ݠȱȱni0, ߠȥ ߠ摃ȥ瑃`ле pЌL  055(C127):CC255(C255)T:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":15C255(C127):CC255(C255)T:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":15520:V(F)J16(D1)V(F):DD1= D0C$" "D2D0:FF1N :D0FF1T r J(C$):JJ487(J64): A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254K128 K13Ė7:A$;" ";:T K32K47K58K64K71A$L$(K)R$:PP1:330m I(0):K4A$L$R$ K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" ":CV(9)ĺ(7);:2907 @F18:BF1,V(F)::::150V J(A$)33A$O$:PO:(7); TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:K0:A$;": ";:L26 F07:V(F1)(BF)::560:V(9)Ci F1N:AV(F):580:A$" ";:::(49152)128Ă{ 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "   5ȱ`ȱa{i2 >222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < ";::" FOR NEXT PAGE" PG1MT6:35 MT18 #X2MT2 (JJ1 -JDE35X18:70 2Y:X 7B$(JDE)"MONTH"Ğ:)40196,189:40197,1588(768)216ĺ(4);"IN#0"P(4);"BLOAD HROUT"h(4);"BLOAD AASET"6,0:7,138:54,0:55,3:1002A$(36),B$(36)TP2 FI12:4000 ::61,1:62454Y31:22:J0 " COMPUTE!'S APPL       RY '88";: Q::> R" ISSUES OF COMPUTE! MAGAZINE.":D Uq _:5:"(SET COMPUTER TO 40-COLUMN MODE)"~ 8:18: "PRESS ANY KEY TO CONTINUE" 3:: X13000 (49152)128Ă 49168,0 D$;"RUN MENU"D"PRESS AN * FOR II'2 AND PLUSESB(64435)6ĺ(4);"BRUN UPCASE"N D$(4)T^3:4("BEFORE ATTEMPTING TO RUN ANY PROGRAMS"23793<"PLEASE REFER TO THE INSTRUCTIONS IN"AM4 P"THE ";::"DECEMBER '87 - FEBRUA XxEFG >0 e()) $20I$ i EFGXL * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**8 PROGRAM 2:KALEIDOSCOPE WITH LINES IN 4 DIVISIONS LHR279:VR191:X(1)8v(X1(1)HR2:Y1(1)VR22X2(1)HR2:Y2(1)VR2<X1,Y1X2,Y2:HRX1,VRY1HRX2,VRY2FHRX1,Y1HRX2,Y2:X1,VRY1X2,VRY2d30H D$(4) :8:7:"COMPUTE!'S APPLE PROGRAMS"E6:10i" DECEMBER '87 - FEBRUARY '88"q13"(C) COPYRIGHT 1988 COMPUTE! PUBLICATIONS"I12500:ZD$;"RUN ALERT" 6 PROGRAM 1:KALEIDOSCOPE WITH DOTS IN 4 DIVISIONSJHR279:VR191:V(1)8r(X(1)HR2:Y(1)VR2<X,Y:HRX,VRYFHRX,Y:X,VRYd30H AN.SUB" +c 2"FOR MORE INFORMATION, PLEASE REFER TO ":"THE CORRESPONDING ISSUE OF COMPUTE!."m <:: F" PRESS ANY KEY" PA$:A$""ī80 Z(4):(4);"RUN MENU"A ::"THE FAST SCAN PROGRAMS WRITE FILES TO ":"DISK. WE SUGGEST THAT YOU SAVE THESE":"PROGRAMS TO ANOTHER DISK BEFORE RUNNING""THEM.":("THE FILENAMES ARE:":)" FASTMAKR.JAN FAST3.JAN" *" FASTSCAN.BIN FASTSC !." <::- F" PRESS ANY KEY"@ PA$:A$""ī80[ Z(4):(4);"RUN MENU"] ::j"THIS PROGRAM WRITES A MACHINE LANGUAGE":"FILE TO DISK. WE SUGGEST THAT YOU SAVE""THIS PROGRAM TO ANOTHER DISK BEFORE ":"RUNNING IT."(: 2"FOR MORE INFORMATION, PLEASE REFER TO ":"THE CORRESPONDING ISSUE OF COMPUTE z#???   ՠ ԠҮϠήϠĮٮΠ ҮΠ ή  Ԡ Š ̮Ԡ Ԡ Ԡ Į̠ ̮ΠӮ  Ҡؠ ήΠ ԳΠҠҠ Үà Į ĮĮĮΠ Π͠͠ŠȠӠΠӍ٠ҠҺؠҠҍ٠ĠҠؠĠ٠؍Ԡ٠جؠٺԠҠ٠جҠؠٍԠҠ٠جؠٺԠ٠جҠؠٍ͠͠ŠȠӠΠӍ٠ҠҺؠҠҍ٠ĠҠؠĠ٠؍Ԡ٠جؠٺԠҠ٠جҠؠٍԠҠ٠جؠٺԠ٠جҠؠٍجҠر٠ϠҠٲجҠزٍԠҠٱجر٠ϠҠٲجزٍԠٱجҠر٠ϠٲجҠزٍ͠͠ŠȠӠΠӠ٠ҠҺؠҠҍٱĠҠرĠٱ؍ٲĠҠزĠٲ؍Ԡٱجر٠ϠٲجزٍԠҠٱ 7 PROGRAM 3:KALEIDOSCOPE WITH DOTS IN 8 DIVISIONSKHR279:VR191:aXYVRHR:YXHRVRm(1)8(Y(1)VR2:X(1)YYX<X,Y:HRX,VRYFHRX,Y:X,VRYPYYX,XXY:HRYYX,VRXXYZHRYYX,XXY:YYX,VRXXYd30H2 PY1YX,X1XYY2YX,X2XYG UHRY1YX,VRX1XYHRY2YX,VRX2XYj ZHRY1YX,X1XYHRY2YX,X2XY _Y1YX,VRX1XYY2YX,VRX2XY d30H9 PROGRAM 4:KALEIDOSCOPE WITH LINES IN 8 DIVISIONS MHR279:VR191:cXYVRHR:YXHRVRo(1)8(Y1(1)VR2:X1(1)Y1YX2Y2(1)VR2:X2(1)Y2YX<X1,Y1X2,Y2:HRX1,VRY1HRX2,VRY2 FHRX1,Y1HRX2,Y2:X1,VRY1X2,VRY