JJJJ ( X ,0 ,b9 LԠ  Рààè       Ԡˠ ͠Рӧ$%L"ȹ0  `H COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVEDy::" COPYRIGHT 1988 COMPUTE! PUBL., INC."11:"ALL RIGHTS RESERVED"12:13:"ANY KEY TO START" 49168,0!T(1):(49152)1333#40196,189:40197,158 (( KTIME.BOOJVUPCASE>5*NORMAL.SET@HROUTBXALERTC$MENUECBOOTHCONVERT.BOOI *GALACT.BAS+$(BLACK.ML0PROOFREADER4#MLX6CATEXT.BOO:]%AASET<COMPUTE' )BLACKJACK |CONVERT7(CONVERT1 `CREATE.TESTX-DATESTAMP.APRY 5)GALACT.ML$ >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(8R4);"BLOAD BLACK.ML,A$8000"T 26,168:7,131:(48896)76ĺ(4);"PR#A$8340"::136m <54,64:55,131:1002 CH(13,4),C(255)::BL$" " ACE12:DO100:HA0: I15:A$,AM$:C((A$))I:C((AM$))I:I& "H" (4(1)1):CH(A,A1)1960;CH(A,A1)1:BA2:A7B10KAACEB11]B11Z1Z11Z2Z2B:Z221Z10Z2Z210:Z1Z11Z221BU1Z2PL(S1):Z1P:960:PL(S1)Z2:PZ1:1070:Z2DE:Z1D:960:DEZ2:DZ1:1070: CL22:ZZCDE21PL(I)22İ940CDE22DEPL(I)Ė36:V3:"PUSH":PG(I)0sDODOPG(I):VV4::DO(100(DO.005))1001050:I113:J14:CH(I,J)0:J,I:PR114035:V3:" LOSE":PG(I)PG(I):35:V3:" WIN":T(0):A((1)13):A11BJ0:870.*DE21āI03:PL(I)0::870E4S11PL(0)21870^>S11SE1SE0:870mHDE16860RHH6:1040:840\DE21Ė36:V3:"BUST"fV7:I0S1pDE21PL(I)22DE22DEPL(I)PL(I)22İ950zDE22DEPL(I)DE22PL(I)21$O1AM0İ1050:790:1120:370>P0PL(S1)PL(S1)10~PG(S1)PG(S1)AM:29:V2:"DOUBLE DOWN":DD1:O1O1AM:430"SORRY YOU ALREADY HIT ON THIS HAND.":"YOU DO NOT ENOUGH MONEY TO DOUBLE DOWN.":  AD1:A1D2:V0:H0:1070:H6:BJEY FOR SPLIT.":2HI1İ1050:670:1120:370pPG(S1)AM2:PL(S1)0:SD1:SE1:32:V2:"SURRENDER":430"YOU CAN NOT SURRENDER BECAUSE YOU":"ALREADY HIT ON THIS HAND.":HI1İ1050:770:1120:370P0AZPL(S1)10:730AZPL(S1)AM0İ1050:630:1120:370dDO1O1AM:SPSP1:QQQQ1:QPQP1:PL(S1QP)B:PG(S1QP)AM:PL(S1)BrNQVV:PF1XP0P1:J(S1QP)1bH0:V7QQ4:1070:VQV:H6:1030:370l"MAY ONLY SPLIT ON THE FIRST TWO CARDS.":v"DO NOT HAVE ENOUGH MONQP1:P0:4908001J(S1)1J(S1)0:P1E1030:B11:430tBU1Ė36:V2:"BUST":SD1:DD2:BU0:HI0z36:V2:"STAND":SD1:440HI1İ1050:620:1120:370&AP1İ1050:"CARDS MUST BE THE SAME TO SPLIT.":1120:370:O1":"D DOUBLE E SURRENDER"2|OP$:JKC((OP$))@JK0380\JK420,530,540,640,690jHI1:510DD1H12:1030:DD2:SD1:510SD1SD0:H6:VV4:HI0:470B11B10:370HH6:1030:510:B11:430SP0SPSP1:S1S11:QP3:V0:TXH61:TYV8:TX,TYTX16,TYTX16,TY23TX,TY23TX,TYjNI4124:TX,TYITX16,TYI8:TH6:V0:1040:D3A:H6:V7:1030:P3A^P1ACEP3ACEP37P3ACEP1ACEP171310h1150:IN0IN0:140r1050:"H HIT S STAND P SPLIT:D20:P0:D30:CL0:JK0:HI0:BU0:SD0:DD0:SP0:QQ0:SE0 6S10:QP0:SP0:B10:O10:O20:PL(0)0:PL(1)0:PL(2)0:PL(3)0:PL(4)0:PF0 @PG(0)AM:D0:PR0:O1DOAM:O2O1::V0:H0:Z2DE:Z1D J960:DEZ2:DZ1:D1A:D2A1:V7:H0:1030:P1A:P2A1DL$"q"ĉ::+ AM$"R"AM$"r"ė::1374 260I 1050:1120:160o AM(AM$):AM(100(AM.005))100 AM.01İ1050:"YOU CANNOT BET ZERO DOLLARS":1120:160 AMDOİ1050:"YOU DO NOT HAVE THAT MUCH MONEY":1120:160= ,Z20:Z10:DE0:D10$(127)186) (AM$)2AM$"":189F AM$(AM$,(AM$)1):189s A$"Q"A$"R"A$"q"A$"r"AM$A$:190 A(A$):(A57A48)A46182 AM$AM$A$:AM$(AM$,10) 11:" ";:11:AM$;:182 AM$""ĺ(7);:182 AM$"Q"AM,"h","S","s","P","p","E","e","D","d"5 DO11320A HAHA1M PF1Đy AM$"":12:"YOU WILL START HAND "HA"." "Q - TO QUIT" "R - TO RESTART GAME":DO;" DOLLARS LEFT":"PLACE BET ";:11 T0:A$:A$(13)190 A$(8)AL24:1:ZZ!$BL$::1:22:5.A12A141090VBTA113A11:TXH61:TYV8lDAACETA11312F32768,T,TX,TYL`13:24:"PRESS ANY KEY"jY$:1050t~D312ı1050:"WANT INSURANCE Y N"Y$:Y$""1170Y$"Y"Y$"y"1210%Y$"N"Y$"n"ı/1170RO2AM20İ1050:1280:1120:wINAM2:O2O2AM2:DODOIN:IN0DE21İ1290:IN0:1270AD1:A1D2:V0:H0:1070:1050"DEALER HAS BLACKJACK YOU LOSE YOUR":"INSURANCE MONEY AND SAVE YOUR ERSION COMPLETE":14:"RUN AGAIN (Y/N)?";QfK16384,128:A(16384):16368,0wfPZ1(A217)2(A206):Z75,20,85fUD$"CLOSE":103,1:104,8:2048,0:34,0::fd:D$("CATALOG",74(PR1))::"PRESS ANY KEY TO CONTINUE":16384,128:16368,0: gU WANT BINARY FILE"Q$:"PRINT"Q$"SAVED ON IN DRIVE 1, THEN TYPE"Q$:"PRINT"Q$"RUN AND PRESS "Q$eCPR1TY$"BIN"R$",T"TY$R$:"0 PRINT CHR$(4)"Q$"CREATE "F2$R$+fF"1 PRINT CHR$(4)"Q$"BSAVE "F2$",A"A",L"L;R$":NEW":D$"CLOSE"F1$::12:"CONV)N(V1):AD$AD$("0123456789ABCDEF",N(V1)1,1)::d7N(IA):B$(J)"":V101:N(V1)(N16V):NN(16V)N(V1):B$(J)B$(J)("0123456789ABCDEF",N(V1)1,1)::d<J16IL1ĺAD$":";:K1J:" "B$(K);:::J0ieA:"3D0G":"PRINT"Q$"PLACE DISK YOGALG)ė:12:"BINARY FILE HAS OVERWRITTEN PROGRAM":103,1:104,8:2048,0:34,0:c#:12:"CONVERSION IN PROCESS...":L1L1c(D$"OPEN"F1$:D$"WRITE"F1$:"CALL -151"c-J0:I0L1:JJ16d2J1NIA:AD$"":V301:N(V1)(N16V):NN(16V128:16368,0::20dbF1$FL$".TXT":F2$FL$:Q11(PR1)26(PR0):(FL$)QF1$(FL$,Q)".TXT"bPR1ER0:200:ER1ER0:FL$"":R$(34):20bPR1TY$"BIN"FL$FL$",A8192,T"TY$XcD$"BLOAD"FL$:A(A1)(A2)256:L(A3)(A4)256:AH(A(116)256:::8::"COPYRIGHT 1988 COMPUTE!"::34,2:aR$(34)::3:"ENTER FILE NAME, OR CAT FOR DISK CATALOG":5:"NAME: ";FL$:FL$"CAT"İ100::20aFL$""85bER0:150:ER1ER0:23:"INVALID FILENAME-PRESS A KEY TO CONTINUE";:16384,G` COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED.Q`250`D$(13)(4):A143634:A243635:A343616:A443617:B$(16),F$(64):Q$(34)` (48896)76PR1:D$(4):A148855:A248856:A348859:A448860;aG(103)(104)256:H(115) 103,1:104,96:24576,05(4)"RUN CONVERT1" ARE OUT OF MONEY"52"WISH TO PLAY AGAIN (Y/N)?"=<Y$WFY$"Y"Y$"y"Đ:137pPY$"N"Y$"n"ĉ::zZ1340BET."1120:IN1Y"YOU DO NOT HAVE ENOUGH MONEY TO INSURE":"YOUR BET.": 1050:"DEALER DID NOT GET BLACKJACK. YOU LOSE":"INSURANCE MONEY AND HAND CONTINUES."1120:31:V2:"BLACKJACK":PG(S1)1.5AM:BJ1:800(:15:"YOUPR0165"g(FL$)15ER1:}gC1:I1(FL$):K((FL$,I,1)):C((K64K91)(K46)(K47K58I1))C1::C0ER1ggK((FL$,1)):(FL$)30K65K90ER1:gg:hD$"PREFIX/":D$"PREFIX":DR$:D$:D$"OPEN"DR$",TDIR":D$"READ"DR$hTY$"":I13:A$:7hF$(W):F$(W)""225ih(F$(W),2,(FL$))FL$TY$(F$(W),18,3):225xhWW1:210iTY$"AWP"TY$"ADB"TY$"ASP"TY$"BIN"Ģ20:"FILE MUST BE A BINARY OR APPLEWORKS FILE":"PRESS ANY KEY TO CONTINUE":16384,128L1$nL1$""İ30000: :L10000: to parse the date/time stringYER3900qhS(1)NULLMOS(1)S(2)NULLDYS(2)0S(3)NULLYRS(3)S(4)NULLHRS(4)S(5)NULLMNS(5)\20000: to check whether date time is vali to change only"U "a few items, then enter only a slash for the items you wish" "to skip. For example /5///30 changes only the day and minute and" "/28 changes only the day. A return will keep all the defaults."<:"Enter new date/time:";"MO;"/";DY;"/";YR;" Default time: ";HR;":";:MN10ĺ"0";H MN: "You may change any portion of the default date. Enter up to" "five one or two digit values separated by slashes in the order" "month/day/year/hour/minute. If you desireE>"50004 ------ there is a default date -----l DY((CE$,31,2)):MO$(CE$,34,3):YR((CE$,38,2))t I1 H MO$("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",I,3)II3:3400 MO(I2)3:HR((CE$,41,2)):MN((CE$,44,2))> :"Default date: $% "Volume: ";(L1$,2,(L1$)2)M ` D$;"open"L1$",tdir":D$;"read "L1$z L1$:L1$:L1$: skip first three lines ( CE$: Catalog Entry CE$""ĺD$;"close ":5000 (CE$,2,(FI$))FI$2600 " D$;"close " S : T (CE$,31,9)" } > } > }0|}| >} >}` H0}"  ͇0}1} 2} 3} 4})}` }8 }͊} }8}͊}` a-}̓}HJhI`h`0}p}@}p|P|`|` P| `|P|ﭿ0|@|0}p|`Ii`}0}3P|`|@}&p}p}p|@}P|`|LZ0}`||lj lj{ʊ%ʊbʊiʊ筿0|||?|@|||O|0}p| aC} amC}D} I`܊݊ފ}}|` q q 쀰r m [h&,-.*,U-."  \& ' ' & & `r   +xȹxȭ( xm) !xm*"+, \+` g5`' KFKFLEV:KF255KF255#0380e over":2:11:"final score "(32128)(32129)256" level "LEVc 4:13:"Play again (y/n)?" A(49152):A249A217290 A238A206Ā 490 MFMF1:MF14MF14 LEVLEV1:MSPDMSPD5:MSPD31Ĺ32132,63 MSPD63Ĺ32132,127& I12999:? :10:5:"score ";(32128)(32129)256W 11:7:"level "LEV US0Ė12:9:"press fire to continue":32768:450 12:9:"return to continue" A(49152):A141440 C:::C32780 (32133)1520C 9:9:"gam237ĺ"mouse selected":US255:370V JA234A202US1::"joystick selected":380_ T310 ^11:7:"W E R":11:"S F":11:"X C V"::" space bar to fire" hR6:MSPD16:380 r32771 |32130,MF:32131,MSPD:32138,R:32136,KF:32134,US1:CP2I2PI I ND  56,50,50, 75,55,58, 125,68,65 "MF6:MSPD25:R5:LEV1:KF9:C32774:32128,0:32129,0:32132,31 ,:2:4:"Press K for keyboard, J for joystick,":8:"M for mouse" 6A(49152):A235A203US0:350$ @A205A*,-.CT.ML"" "Calculating orbits"A XA(2),YA(2):PI3.14159265[ I02:XA(I),YA(I): 7168,7280,7392,7542,7692,7942 XC79:YC76 N02 P,XR,YR:C0 I02PIPIP TX(I)YRXC:TY(I)XRYC XA(N)C,TX:YA(N)C,TY CCHd Copyright 1988 COMPUTE! Publications, Inc. All rights reserved.nD$(4)::1:9:"Copyright 1988 COMPUTE! Publications"x11:13:"All rights reserved."A(0):A0A4500ģ6572:D$;"RUN GALACT.BAS" :"Loading ml file":D$"BLOAD GALA`pxxxxxp`??`px|~~~~||xp|`?   0@HI((((PPPP000000$ ,xx q q,` q 犍|Ĺ}J.|J0|.|8H }JJJ@|hJjjj) |L`LHĢĠ@oph n` $$$$$$pC00000pC  >>><~~~~<?@@@??@```@@>?'&`,!m"#, !,, >-, -,`#1,0 ,!1 ,`~|xp`@?)?),pi(i(m `        /123A$;": ";: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:5789IT":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 ' 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"" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" <"<"""<< <"""<"><$""< """"  >> "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|`cOgssscccccgggggCV(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:KK128 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$" "İ5>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ȱ`ȱa{i>222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0;=!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < """"""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"?AGALACT.BAS,RUN CONVERT.BOO,RUN TIME.BOO,RUN MLX,RUN PROOFREADERd00 D$;"PR#0"" D$;B$(PN)( = T1FI:A$(T):R T1FI:B$(T):X o  CASINO BLACKJACK  GALACTICON,CONVERTER,PRODOS DATE/TIME STAMPER,APPLE MLX,AUTOMATIC PROOFREADER p::"LOADING......"::A$(T)::A X RUN BLACKJACK,RUN A$(JDE);" " FX' ZR$:R$""90E _R$(32)PGPG1:DEPG9Z aPGTPPG0:DE0k cR$(32)10 d(R$)49(R$)54Ė6:17:90 fJDE35ĭ(R$)55Ė6:17:90 gB$((R$)48)"MONTH"90 iD$(4) nPN(R$)48 sPNPNDE xTPN:60DFG::"MARCH-APRIL, 1988":H " (C) 1988 COMPUTE! PUBLICATIONS,INC."q " PAGE ";PG1;" OF ";TP PG1MT6:35 MT12 #X2MT2 (JJ1 -JDE35X18:70 2Y:X 7B$(JDE)"MONTH"Ğ:" ";A$(JDE)::70 <J;" ";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)TP1 FI6:4000 ::61,1:62454Y31:22:J0 " COMPUTE!'S APPLE "; Q::6 R" ISSUES OF COMPUTE! MAGAZINE.":< Ui _:5:"(SET COMPUTER TO 40-COLUMN MODE)"v 8:18: "PRESS ANY KEY TO CONTINUE" 3:: X13000 (49152)128Ă 49168,0 D$;"RUN MENU" * 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 ";::"MARCH - APRIL, 1988";:xEFG >0 e()) $20I$ i EFGXL <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*** D$(4) :8:7:"COMPUTE!'S APPLE PROGRAMS"E6:10d" MARCH - APRIL, 1988"l13"(C) COPYRIGHT 1988 COMPUTE! PUBLICATIONS"I12500:ZD$;"RUN ALERT"::& F" PRESS ANY KEY"9 PA$:A$""ī80T Z(4):(4);"RUN MENU"d "THIS PROGRAM CANNOT BE RUN FROM THE":"MENU. WE SUGGEST THAT YOU SAVE IT TO ":"ANOTHER DISK BEFORE ATTEMPTING TO RUN""IT. "#$"FOR MORE INFORMATION ABOUT THIS PROGRAM":"REFER TO THE CORRESPONDING ISSUE OF":"COMPUTE!" <: PRESS ANY KEY". PA$:A$""ī80I Z(4):(4);"RUN MENU"d "THESE PROGRAMS CANNOT BE RUN FROM THE":"MENU. WE SUGGEST THAT YOU SAVE THEM TO":"ANOTHER DISK BEFORE ATTEMPTING TO RUN""THEM. THE FILENAMES ARE:"#("CONVERT":"CONVERT1":"CREATE.TEST - CREATES A TEST FILE"<::: F"