JJJJ ( X ,0 ,b9 LԠ  Рààè       Ԡˠ ƭĠРӧ$%L"ȹ0  ` 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>>   * FOR II'2 AND PLUSESB (64435)6ĺ(4);"BRUN UPCASE"N D$(4)T ^ 3:4 ("BEFORE ATTEMPTING TO RUN ANY PROGRAMS" 23 7 93 <"PLEASE REFER TO THE INSTRUCTIONS IN" A M4 P"THE ";::"DECEMBER '87 - FEBRUARYxEFG >0 e()) $20I$ i EFGXL <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*** "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ȱ`ȱa{i>222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0 '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" 40196,189:40197,1588 (768)216ĺ(4);"IN#0"P (4);"BLOAD HROUT"h (4);"BLOAD AASET" 6,0:7,138:(4);"PR#A$300" A$(36),B$(36) TP2 FI13:4000 ::6 1,1:62454 Y3 1:22:J0* " COMPUTE!'S APPL 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 TC0290 !"#(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 BEATENG 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# F D$(4) :8:7: "COMPUTE!'S APPLE PROGRAMS"E 6:10i " DECEMBER '87 - FEBRUARY '88"q 13 "(C) COPYRIGHT 1988 COMPUTE! PUBLICATIONS" I12500: ZD$;"RUN ALERT"OMATIC PROOFREADER: p::"LOADING......"::A$(T):: X BRUN LEAPIN,RUN BLIPPER.BOO,RUN BEGINR.DEC,RUN KALEID.1,RUN KALEID.2,RUN KALEID.3,RUN KALEID.4 b RUN CANFIELD.FIN,RUN QUICK.BOO,RUN TILES.FEB,RUN FASTSCAN.BOO,RUN MLX,RUN PROOFREADERdB$(PN) # T1FI:A$(T):8 T1FI:B$(T):>   LEAPING LARRY,BLIPPER,MONTHLY PAYMENTS,KALEIDOSCOPE (PROGRAM 1),KALEIDOSCOPE (PROGRAM 2),KALEIDOSCOPE (PROGRAM 3),KALEIDOSCOPE (PROGRAM 4)  CANFIELD,QUICK CHECK,TILES,FAST SCAN,MLX,AUT$:R$""90+ _R$(32)PGPG1:DEPG9@ aPGTPPG0:DE0Q cR$(32)10s d(R$)49(R$)57Ė6:17:90 fJDE35ĭ(R$)55Ė6:17:90 gB$((R$)48)"MONTH"90 iD$(4) nPN(R$)48 sPNPNDE xTPN:6000 D$;"PR#0" D$;E PROGRAMS"::10:"DEC '87 - FEB '88":W " (C) 1988 COMPUTE! PUBLICATIONS,INC."j PG1MT8:35t MT18 #X2MT2 (JJ1 -JDE35X16:70 2Y:X 7B$(JDE)"MONTH"Ğ:" ";A$(JDE)::70 <J;" ";A$(JDE);" " FX ZR. 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:130 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$13:12000:+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:ZY1ZX20: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!!":I1414: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:TZYI:TKT(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:ZYTY8J8: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)8FT(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$):172(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)R0NI,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)::PTC):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$):1728T(: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)P(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:1740(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:970PY8: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 NFS9:"COME BACK AGAIN SOON!"3I14000::::KI(A$):2900:1370Y0PC0130:PCTCZXNX7:ZYNY8:1850:LXPX:LYPY:K1:1740DP(TC1)1TC0NP(TC2)1TCTC1:620XP(TC3)1TCTC2:620bTCTC3 lPCTCZXPX7:ZYNY8: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)::SC137F(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(I,1>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>><2"<""">""" "ggccD`(xxEFG >0 e()) $20I$ i EFGXL>>< (&20 *, ** ! g``$ !%$$$8.%N$m!!)%m (` g*` ᥡ`_wUUW_GGG_WUW_~xx~zz~~~~z~ccc||cccOGCILOO||`cCy|`cOgssscccccggggg$&'('&`,!m"#, !,, >-, -,`#1,0 ,!1 ,`~|xp`@?)?),pi(i(m `         쀰r m [h&,-.*,U-."  \& ' ' & & `r   +xȹxȭ( xm) !xm*"+, \+` g5`' (16336)#r +#| I029:T(16336):1# H# 70,84,80,13,83,5 " (4)"OPEN "F$'" (4)"READ "F$<" N$:BR(N$" ")P" (4)"CLOSE "F$b" BR50BR500m"# 216,0"( I152:D(I)I1:"2 FX23:FY4:SX2:SY6:TX7:TY1:NX33:NY16:PX28:PY16:CX27:CY18"< R(X)X13(X13)"J 40"T "";"^ #h TEDEAL":27:"CTRL E EXIT"!! H! D(52),P(52),S(13),T(4,12),C%(255)P! I2p! A:C%(A)I:II1:A52524! I6597:C%(I32)C%(I):! I4952:C%(I)1:! 2585! " ENTER PLAYER'S NAME: ";NM$! NM$""2550" F$NM$".CAN":F$(F$,12)SY:1740:KT(I,1):LXTX3I:LYTY:1740:22606 L L ` ::28,42:62454y b IPY2PY7:I:PX2:" ": j :11:"1 2 3 4 " t 5:2:"STOCK" v 3:28:"FOUNDATION" x 17:2:"BANK" | 16:27:"PACK TALON"! 22:27:" R0 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)10 B KS(1):LXSX:LY):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 I"  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*** 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 TO  @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)LY: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)0860,./012 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)500Gd 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:"L` H hF NLL { ᥠ襡 { ᥠ {ݠȱȱni0, ߠȥ ߠ摃ȥ瑃`ле pЌL  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%:50G  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":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 X3:940bK$:K(K$"@")+l0:940GvK8CXCX1:CX0CX9dK21CXCX1:CX9CX0K11CYCY1:CY0CY5K10CYCY1:CY5CY0K32K13690600ACXCY10 SEL(A)0SC(PL)SC(PL)100:I05:A(16334):I:9689:;<=>?@:S (:D$;"OPEN /RAM/SYD01":D$;"READ /RAM/SYD01":X16:Y01:EM$(X,Y):Y,Xd 2PH:PH070 <X1PH:Y04:PH$(X,Y):Y,X F:D$;"CLOSE /RAM/SYD01" P:4:4:"QUICK CHECK PHONE & ADDRESS FILE" ZV5:H6 dX15:1000::X1 n:1000I COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED.::10:13:"COPYRIGHT 1988":7:"COMPUTE! PUBLICATIONS, INC.":10:"ALL RIGHTS RESERVED."I12500: ::34,4:D$(4):OM0EM$(6,1),PH$(250,4) :X15:MI$(X) ZR%0:BSZı0 dN,N%,R%:R%1N%N%HR%:: n5180256)2561:BSEBSB:RB(BSRL):CBRBRL9 HR%0:B0o (4);"BLOAD";DN$;NF$;",TTXT,A";SB;",L";CB;",B";B (T((SZB)RL):TRBRBT 2F,RL,RB,SS$,N%,R%:R%1N%N%HR%: <HR%HR%N%:BBCB:BSZ5150 F P SEARCH FOR NEXT OCCURANCE35SE";DN$:I3::R%1:. (I$,2,15)NF$ĂJ I3::(4);"CLOSE";DN$i (I$,18,3)"TXT"R%2: RL((I$,75,5)):RL0R%3: SZ((I$,66,6)):SZ0R%4: (4);"FRE"+ SB((255(109)(110)256)256)256:EB(((111)(112)256) FAST SCAN4  COPYRIGHT 1988 COMPUTE! PUBL.} T0:SB0:EB0:BS0:RB0:CB0:HR%0:B0:N%0:R%0:(4);"PREFIX":DN$ NF$(NF$" ",15) (4);"OPEN";DN$;",TDIR":(4);"READ";DN$ A$,A$,A$ I13:I1:I$:I$""ĺ(4);"CLO-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:950IXA,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,YA2)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,YXA,Y70: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(1PL( x23:20:AN$:AN(AN$):AN131802 1000U X1AN11AN8X1XX1:110y X5AN21AN10X5XX1:110 AN(AN$):AN1AN5110 XAN:110 X200,300,400,500,600 34,0::4:11::"EMERGENCY NUMBERS":) 7::X162:Y017:20:A$:A$"N"A$"n"940<A$"Y"A$"y"910E950KaOMOM1:KKKK1:9:"PLEASE ENTER NEW LINE":Q0Ė7:"ENTER '*' TO DELETE ENTRY":20:"";NA$:NA$"*"Q0970PH$(X,Q)NA$940$SXPH1:G04:PH$(S,G) EDIT ?":::BRQ04:K$PH$(X,Q):1020:(20H):PH$(X,Q):Qe\23:20:A$:A$"N"A$"n"370~fA$"Y"A$"y"860pLN4:KW0zQ04::K$PH$(X,Q):1020:12:(20H):PH$(X,Q)KW9994015:3:"DO YOU WISH TO CHANGE THIS LINE ?"#14:18:"";EM$(X,Z)% :8:VZ01:K$EM$(X,Z):1020:(20H):EM$(X,Z):16:6:"IS THIS ENTRY NOW CORRECT ?" 18:20:AN$*AN$"N"AN$"n"7004AN$"Y"AN$"y"800>OMOM1:290H:6:2:"IS THIS THE ENTRY YOU WISH TOPH$(X,Y):Y,X&:D$;"CLOSE ";FF$,C:8:3:"CHANGE:"hZ01::5:Z1;". ";EM$(X,Z):y11:3:"OR"15:20:AN$:AN(AN$):AN1AN2730:ZAN1:K$EM$(X,Z)1020:10:(20H):EM$(X,Z)12:9:"PLEASE INPUT NEW ENTRY"' TO ABORT"5q17:20:AN$:AN$"A"AN$"a"ġ:80PvAN$"C"AN$"c"625Z1010oFF$"SYD01":660FF$"/RAM/SYD01":660:D$;"OPEN ";FF$D$;"WRITE ";FF$X16:Y01:EM$(X,Y):Y,XPH:PH0685X1PH:Y04::20:AN$:AN$"N"AN$"n"80:NAN$"Y"AN$"y"585CS500SXOM0İ610c]34,0:::b:8:10:"I MUST SAVE CHANGES":10:3:"PLEASE MAKE SURE YOUR PHONE # DISC"g12:13:"IS IN DRIVE 1" l14:9:"PRESS 'C' TO CONTINUE":16:15:"'AH$(PH1,S):1020:(20H):PH$(PH1,S)::S:::O+11:"IS THIS CORRECT ?"u023:20:AN$:AN$"N"AN$"n"5805AN$"Y"AN$"y"560::12:10:"ENTRY IS NOW ON FILE":PHPH1:OMOM1:1040D:12:5:"WOULD YOU LIKE TO TRY AGAIN ?"I14-":20:"";PH$(PH1,1)O:9:"ENTER STREET ADDRESS -":20:"";PH$(PH1,2) :11:"ENTER CITY & STATE -":20:"";PH$(PH1,3):13:"ENTER ZIP CODE -":20:"";PH$(PH1,4)S04:PH$(PH1,S)""PH$(PH1,S)"***"!S2&:6::S04:K$P35580>:12:7:"THERE ARE NO MORE ENTRIES":1040FX0_KK0:XX1:XPH455r840:KK0465z80:5:14:"ADD AN ENTRY:":PH250105010:7:"PLEASE ENTER NAME TO ADD -":20:"";PH$(PH1,0):10:"ENTER PHONE NUMBER 0:"ENTER 'U' IF UNKNOWN":14:16:"'A' TO ABORT"X16:20:AN$"":"";AN$:AN(AN$)gAN$""80AN$"A"AN$"a"80AN$"U"AN$"u"460LN5:KK0:Y0:X1PH:Z1(PH$(X,Y)):KK0445AN$(PH$(X,Y),Z,AN)İ840Z,X:LN5355^1040Ac:12:7:"I FIND NO MATCHING ENTRIES":1040}h:W04:K$PH$(X,W):1020:(20H):PH$(X,W):W:QQQQ1mLNLN6:LN22KK1:LN5r:5:13:"EDIT AN ENTRY:":PH01030310:2:"PLEASE ENTER NAME OF ENTRY TO EDIT":12:1 INFORMATION":PH01030i 610:8:"WHAT SHALL I LOOK FOR ?":QQ0:12:10:"";AN$:AN(AN$):LN5:KK0 @X1PH:Y0:Z1(PH$(X,Y)):AN$(PH$(X,Y),Z,AN)İ360:Z(PH$(X,Y)) JZ:KK1Ģ24:7:"PRESS ANY KEY TO CONTINUE";:BN$::KK0 TXYQQ0EMERGENCY NUMBERS":34,4] X16::10::Y01:K$EM$(X,Y):1020:(20H):EM$(X,Y)::Y 16:3:"DO YOU WISH TO CHANGE THIS ENTRY ?" 19:20:AN$:AN$"Y"AN$"y"700 AN$"N"AN$"n"280 ":34,0::34,4 '80 ,:5:10:"LOOK UP1:K$EM$(X,Y):1020:(11H):EM$(X,Y);_ K$EM$(X1,Y):1020:(28H):EM$(X1,Y):Y:::X 21:7:"PRESS 'C' TO MAKE CHANGES":23:1:"ANYTHING ELSE TO RETURN TO MAIN MENU" 23:39:AN$:AN$"C"AN$"c"250 :34,4:80 :4:8:"CHANGE PH$(S1,G):G,S:PHPH1:KW99:940G(VX2):H:X;". ";MI$(X)::l:12:11:"ONE MOMENT PLEASE":K(K$):H(K2):12:6:"THERE ARE NO ENTRIES ON FILE"24:13:"PRESS ANY KEY";:AN$:8012:8:"I'M SORRY, FILE IS FULL":1040 "DISPLAY EMERGENCY NUMBERS","LOOK UP INFORMATION ","EDIT AN ENTRY ","ADD AN ENTRY ","END PROGRAM "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,VRY2d306 PROGRAM 1:KALEIDOSCOPE WITH DOTS IN 4 DIVISIONSJHR279:VR191:V(1)8r(X(1)HR2:Y(1)VR2<X,Y:HRX,VRYFHRX,Y:X,VRYd30ONTHLY PAYMENT = $";M' &:::::- 0 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"  "M% ,"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  BDEER 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 "P0320Hd 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 NUMB23,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,29 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,VRY2 8800(>z0j`z:***~@?Pp; <0@>:::h:> /**>@`00``@A@_p eLshRp, h h hRpLYhLg gNiÙ/ٯΩš((((PPPP>:.npok**@`?p8Lh@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 |p6cl6 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 gLh 0p 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۩riqe AeiiiɈ``(*8LReqe())qe`npnpPp p) p`pLeppp  pp`0  pp`p)p` `f(p8pHp pp @p gHpgp0pfp _pip@pXp8pVp[pWp\p`p@*TpI`p`zd{diJzdzd{d(~j~jj)ji)jjzdސ` .dRpSpridzdj Sp :ezdSp :eRp RpSpRp SpϐídidLdzdi :ezd :e gL cRp`Rp pJJJJJSp Tp8SpSpXppcccp}cccpca(pda FaYpTpeZpcciRpSpda FaSpLwc` \p(rrrrssstRp8pSpHp@pccꍁc[pca\pda rcYpHpZpPpPp[` pmp(poppPp(piopLhb(p Ppp~p`pmpPp`a Pp(piopaɀ)pa!0p p΄p`p)p΄p`(pdaRp_pSppca0ap'8caSpLb aRpRp FapbpibqibSp@p qHpRp` gIKLMNOp0p8`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ȱmpPpL0L/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`ip PY1YX,X1XYY2YX,X2XYG UHRY1YX,VRX1XYHRY2YX,VRX2XYj ZHRY1YX,X1XYHRY2YX,X2XY _Y1YX,VRX1XYY2YX,VRX2XY d30' 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,16 ::"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 FASTSCAN" <::- 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!.255(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":15020: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):CB254C128 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$" "İ5CV(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:KKɺ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:QSTUIT":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:580:1dN9:::(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)U9,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 .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"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,VRXXYd30  :: "THIS PROGRAM CANNOT BE RUN FROM THE ":"MENU. WE SUGGEST THAT YOU SAVE THIS":"PROGRAM TO ANOTHER DISK BEFORE RUNNING":"IT. (: 2" PRESS ANY KEY" <A$:A$""ī60 F(4):(4);"RUN MENU"  :: "THIS PROGRAM CANNOT BE RUN FROM THE ":"MENU. PLEASE REFER TO THE CORRESPONDING";:"ISSUE OF COMPUTE! FOR INSTRUCTIONS. (: 2" PRESS ANY KEY" <A$:A$""ī60 F(4):(4);"RUN MENU"CREATE /RAM/SYD01,TTXT"3 D$;"OPEN /RAM/SYD01"N D$;"WRITE /RAM/SYD01"j X16:Y01:EM$(X,Y) Y,X:PH:PH0230 X1PH:Y04:PH$(X,Y):Y,X :D$;"CLOSE /RAM/SYD01"Bd COPYRIGHT 1988 COMPUTE! PUBLICATIONS - ALL RIGHTS RESERVEDcnD$(4):EM$(6,1),PH$(250,4)x:D$;"OPEN SYD01":D$;"READ SYD01"X16:Y01:EM$(X,Y):Y,XPH:PH0160X1PH:Y04:PH$(X,Y):Y,X:D$;"CLOSE SYD01" D$;"