VOL.7NSG SPC4.DOS * SPC4.BAS- MULTIPLY; HI-LO A 3DPLOT E COMPARE I CONVERT K SORT Q ROULETTEU KENO d CRAPS }  BASEBALL  CANNON  MORTGAGE CHASE  SINE  SQROOT  JUDY  OTHELLO  LIFETIME# ROCKET  KLINGON   GAMES   TARGET ' 6 N YYZ _'Î'))M)b)÷ Ù#$_$:! 7;'H$ 7; H$ $! 1Z >!!Z >!&Z  1Z ! " * '(&!''! W'## ##ž ? '' y0G ' 'h&&!':'0G 'H 'D 'ì ' CR1"DE+!GOI!JPB!RD!WR"DT#IN"LI7!TYi!LF!SF!CF!CD3#CO|"ͱ#P'$$#'2(> %_&P'ͱ#OP'''~#¬ {'_$ͱ#͕&ڬ }w‰!_&#'P'$ͱ#:(2'''''ͱ#P' p+q+p+q++W'Ҭ +V+^$O#!ͱ#:(O''{_&P'_$ڬ "͕&ڬ  ",¬ #'_&͕&}! ͻ# %Ҭ )" %ڬ ͕&ڬ ͕&P'! ڬ ڬ 'q#p#6(+wq"$#'2'P'!> %ڛ"##'È":(*(> %''$ O#È"#'P'! "':(O>#!*'|4  "g""'> _$ڬ  ʬ  ="#'P'!"'"!'~^w"!##'2'@' ¬ #'P'^!T]"'"'! s#> v# *' *' O#y*'M*'*_$*':(O_$ڬ "(2(~ «#$î## %ͻ# %ڬ >2($@'ʿ$ #,ʿ$# #,#$w#@'##'@' # ¿$!(+6 $:(O:(o&'>_$ڬ {Z$:+ Z$:'2'> :'x2'&$=>$ ʼ$ڼ$_ڼ$yڼ$Ҽ$x$$¼$:¡$2è$: ʴ$ y2  :$7$$$g} W /2'h"("(M\9$*(*(|E.$} W\M9$2(2("(!_"(!"(;%:( %%7*(&i'y2(:(O>_$!':(¢%q%# b%~ ʕ%'N#F !(W'ڕ%"(W%<~% ʕ%F '# ®% ''& ''& 'n&&~% '#'&' ʬ Õ% ʕ%*(W'm%ҕ%*(W'ڕ%'"(2(Õ%!'"(++  G '@ʱ _N&ʱ +3&w  '#3&ì @' _&!̀&ڬ ))))o@' j&0:ҋ&0AG?7@'7 ʕ&!:Ҭ 0ڬ T])))_@' ,â&0&&&0&&/"'&*'x ': 'G '  ' 's#r#^#V#@';' #'0ʬ O¬ y2(*(~ N'#"(@'¬ #z+{P:w'f'>ëA>«# x'=_'::ʑ'X Ÿ'~_G# §'X= SF DOS 2000 DOS  BASIC -* GAMES ;  MULTIPLYE HI-LO K 3DPLOT O COMPARE S CONVERT U SORT [ ROULETTE_ KENO n CRAPS  BASEBALL  CANNON  MORTGAGE CHASE  DOS (_' )!<)D):L),)xx8xx>2L))>2L))>>>> !@ʂI!4R5‚I6>,̓I*,R+W~!/+",Rr*2R#W~"ʣI"2Rrz5IH>W>0x=_*5R~I0>24R>2'R:RIYJ#)JErJ:RXH:R J~>+*7!U*>2QR#"R"R!tP"P>2P>2tP^**R~U*J*L!R͚@2**R6',Z+"R-t*-!}PuP>H6# k*2P@@~<> 2PO:QR*R/2tPOqO*E>2P!k7͈@E*P!"SR"URCE:eQ *ͯ,*L7*-*Ó*!#Q"PX@7ʃ0h0X@ !PW++Z++Z++Z++Z++Z++Z++Z+,Z++Z+*R+"PZ+ ,Z+,2tP:Pt+*R"P*R͊=E͈@!q7͈@:P“*!x7͈@*RDM^!P͚@ڒ+ o g#QhC> !#Q̓@Ó*ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"!eQ"PC"!Q*P#Q͇-~],6);,6,:,6\7G,#, -,,~ ~- #",~ ~- #",-x --N-N-N-N-N-,͇-"PC>D}*P,  x ͇-,,# N-> ! Qq+ # ~ ʊ-#͢@hC##~-- ß-!7#¶-~-#û-ß-#͢@hCÝ-*R6"R*R6+"R*R#"P!4@2P3E!uPL.!PC+|#+>#+}w>2QRX@> +O͏=##~)+#~A+*R" A+7**R*RRA#"QX@> +O͏=͏=~)+#z:Q†.#+Y0 4> 2P2PX@"P0W+7`@o&͢@Ͷ=P@>J=ͅ6?GAͶ=)+P@ͅ6?P@ͅ6>p@0!`;?0ͅ6?*PͿ>-6r+s+r+s+6"PG!?K,G+11"1GA2Q*R#~-6#>C1ͼ=͚@-6N#F:Q̅F~͢@h1DM9u1"R͢@Ϳ>"PY0ʹ@ʰ1ͅ6?P@:P2>2P?C҈2q0*Rͳ<`@W+W+_7#͢@###*Rͳ"RÔ1<1X@ \?C2`@222>2Pç1GA*R#~-6"R?CW+GAXB###|1xBz#+P@?CW+ ʈ2,P@t2GAXBô2GA??CW+XBͿ>DMp+q+6###Á1GA*R#~-6222#^#V"R~|1 4#~Gt_>PWw#2"R#~%3ͳ<Ϳ>83*R͸L"R+#ͅ6Ϳ>83?#^#V"P#~"R#^#V"R?*RB3GA h3\?CX@ ȸ`@h3>_3?ڠ3_?+I@xB+N@|=n@~3y O_?+I@!@xB!@͊=n@3xBBú3N@ͤ=Ù3GAͿ> 4>2P*P*R!9"PE!7+GA2PÓ*>#p@ҢMGA?n@-4!??X,Z+Ͷ=?M4@04?R4>"J=?n@4?C*RXB+"P3E@>E>c5%4ʹ@ʯ4ͅ6?*RI\EGLEE͈@n@w4E*Rͳ<"Rzʦ4LEG\EEFD+û4@`@C5D5!RZ 5@C 5 5$ 5#R5~w4@4|/+}/+2R`@IO5E75F/+C/+|/+}!R/+2R2R!RF~wx@æ4`@I@xBN@z#+\EҦ4 Dt5GA*P>1p@3E>"p@5?DCEeQͶ=5J5n@5x,ʫ5 5?DÛ5B> J="P ù5x ! 6͈@E"PÃ5#͈@#"P,P@à5 INPUT ERROR-RETYPE "?A7?[3?A=,Z+xBn@xBz#+{>N6Q!Qwz#+#s#6xBn@xBs!"R!Q7J=> 2QR!Q%.!d9!9],Z+2P:P6>ڰ6ͼ=)+?66@6YA6X@q:S:~:;!L9Q7X@6D7:PW+*P-777W+`@×6> _7`@͈6~?;7"R DM!6#͢@`@*P-W+_7I@ͅ6N@+7O!L9 READY" ERROR" IN LINE "STOP"/=/.-../W+.W+Q.( ./00k41145[3S222~33 4\4y3*6!6k4f236]6?2TNNLW+j6-LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINERUNLISTNULLSCRCREATELOADCONTRENDUMPSAVEBYEEDITDELSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARK([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPF: ; cEFf;nF: G ;:G:S:&:8<999T9999 1::::B:SSR-;9w9w>Aw9w9w9w9w>9 9PYDMg  : :!  :# :$?> PY÷? !:!:BK!:?!7ú?F@xBn@c:xB!h:bBN@6F@Ͷ=)+h:F@AҎ:Ͷ=)+z#+n&h:A:Gx:O&ʸ:$ ::$ °:%BK7ÅF{B>N6Qo&bB?*P*RRAbB{Bn:F@!"R!Q7J=!PQJo,Z+!P?k:{BOA+!O!bB#bBbB#bB0BP@ACBH@#+@v;͊<>Qͺ?QQ͓GQQnF[;QcEQQͅF=;!Qͺ?wTB@TBA ;PY!`;ú?B<V;<9YA=Ͷ=)+z=*RDMRA%@"R*R~ #z<=>p@ҺW+ ?'>X@>p@=_? >!@ >> O_?ܔ=##xB͚@#+##N#Fx>B+,P@=N@#}@_? |=͏="R͏="R"R>p@?Ҕ>͠>!R͚@]>#+*R+"Rn@>͠>!R͚@{>#+"RN@*RRA#+#"R"R7*R*R>=*R*R*RxB#+"R"R"R`@\ >!PW+^3ÿ>~?>###"PX@ \!P͛?Gͨ??O>W+>$p@yO?y@O_3Ϳ>`@ȹ!?7X@ H?`@7?!?+G++P@xA*R#LT]͢@|}?~#j?##!@"R"R͊=q###>2P7X@A[?Ҳ?X@0:?#"P!`;~+ ¼?*R T]?ͺ?<2P!P*R "Rú?*R%@"R*P*P"P"P*P%@"Pͫ@!P͚@9@!R͚@u,*R+"RZ+`@P@)`@W+`@+"P*P~# c@"P>,`@+"P7 }@ Ê@"~G W+D#Ê@#z+{~#fop#z«@X@`@͛?@ͨ?`@"P"$*R"R*R"!R*R"R*!R"R!#"RX@!PJ"P!P?A>""Ap@*P"RG~#8A W+)A"P*R:P -6:P,Z+}o|gW>p@GA?)+_?+͏=I@?6BͶ=BʽA??r+s+6ͅ6?`@,ABn@ BÇA>J=éA)W+B>)p@ B?r+s+w!9?sPS w +Ar+61tP>p@_0ú2B,Z+"P"P*P"P*P*P*SR"WR*RNy7#͚@+?*UR*WR#+"WR 4B)B5+5+QhC> !PJ?ͅ6?͙:?~#+O #~͵B#+ B~͵B#+ Bz" Rbk)))* R_zWPͺ?͙:9xCz#+{Y CX C|#+}g#+ByB!T)C CX@".RK?͵B#+K*C*.R+"P>p@7#^#V#"PX@ *RC+)B5+ɯ͍C͍C͍C͍C͍C>0" R ڐC* RBѰ>0:tP G ʥCʥC*P"P)EP!eQ6 LEO2PͥC C6 !eQP~# C!CXDaDʝDʑD_ʝDnDʵDD@D zD:P3D 3Dw#6 GD LEOeQ!Pw# HD6 ,Z+ zD+DXD +DdDͥC DDrD+DG„D zD%DLEzD+6 :P°D_D:P<2PD>D!dQP#~ D@DEC:tP D \E*QR4\E*QR6:POD E\E D D :P43>#p@>HExB,P@{2tP!uP:tPL"QR~!}PPE mE!@R>6+=tE!HRF>!@R ʣEO^F>w –EʼEGRO^F ³E+=ˆE9R%F9RPFG~@EE>E,Z+G怰=Rú?O+wF+w!~;FP+>DF>'w+ >DF !T]Fշ'w+aF!KRw+ yFKR ʢFo`iF/< ڧFú?V@R+~ µF!@RFO+ FF#T]F~P+4FF+aG7>'+ FGx'w+ ?GT]#w#G#~~;FxEpFQ+ ! "*R!PRw+­G6!HRF!ARw+G w+G61HEW{怲 7>'+=H6H^Fy"5RG!R6":RsH+60/+=eH+6."0R"2R",RʉH+6 H"*R+6!*5R~IAZI0kI ©HH ͭIkI¶HAͭI͓IH+~.H,H"H1kI!R:R#I:R+I~0I6 +I:R#+I#6"+~"2R.LI+~ GI!LI##60LI>0kI*5R~>-I**R/GH>0͓I_I:R@ʂI!4R5‚I6>,̓I*,R+W~!/+",Rr*2R#W~"ʣI"2Rrz5IH>W>0x=_*5R~I0>24R>2'R:RIYJ#)JErJ:RXH:R J~>+I>$܃I**R:R#J#~ J+T]" J!"R~YJIrJG+~LJ~>JxArJBIB/+2R:R"2RI~2'R~2'RAw:RXH*2R~.ʓJ#6E#:'R+ʩJAJ-/"I2&R2%R2'R>2)R+JJJ-J>2&R"*R>+6=K",R".RK;K. KK)K7!'R5K"KځKEʏKnKK8KIK.&K4KK!'R4KIK.{KEʏK!'R@ K!&R**Rw*.R:(RGK҇KK{KEʏK`KKڲK+ʬKʬK-ʩK K2%RK K_KK͵BK:%R{aK/%p@LxB̓O,P@>p@>&p@ҍMʹ@HM͛Oͅ6?!P~.M6~O#0Mn@M>Nͳ<|##eM#͛O>O|OmM͛O>O}O*R"Rz=M~O+{M͛OxB#+{O=MxBOA+>%p@ڻMxB̓O,P@>&p@=NͶ=M!O)+Ow#Mn@MM*RON)+NOWO_*R+RA%@*Rz9NOw+'N\=Ͷ=)+Oo&bB?M#P@xBOA+~{N!@6#͊=,P@! "R!Q7J=> !Q> A+2Q͏=###͊=͏=~)+͊=͊=:Qwn@bBͶ=)+?#P@xBOqO6aO*YR~ w#͏= ~GLwNp*YRqO#4!O OaO*YR#͏= ~GL~~O#͏=͏=͏=#~RO#+L>" A+*YR~@~@w7O~@~G~p 7O*YRͮO ~qO+Ê=*YR ͢@#+*YR B͏=zOx#+z#+{#+ B[R~"YRO6O!;+" 6@?V6)6); E hQ$Q 0*HHHHHHHH tP$Q#QU0&EBYE T FREE(0) fQ 0) BYE T FREE(0) 30268 ! 30268""##BQQfQRR}P[RUUBKe;cE!`;ʺ???͙:?nF{BzE{@EQ!S> ͊@BKQ!S>͊<Q!S>͊<QQ͓G@^S/<o&bB? QÅFF#57@T)QEAE?S@Fqh?u2q>BWc@BPA'tAABKTͅF*R?T͓G{B{25RbBTcEnF:5RTTnF !Tͺ?*R?PYcEcETͅFcETͅFcETͅFcE*R?TͅFcETͅFcETͅF͓GcEnF*R"RT :5R pycA30Fp5$ xCrD$Q8QG4@pBE&BCAU!`;Qͺ?Q͓G!Qͺ?Qͺ?QcE> QQ!U͊<QcEBUQ PA A$5)  91) + " -- MULTIPLY ---" ( :2 "Multiplication Program . . .Do you want the rules" %< "(Please answer yes or no)",A$ F A$"YES" 8P "I will print a number times a number followed by" ;Z "a question mark..?..You type in the correct answer." 8d "After your answer, type in a return..I will then" 2n "tell you if your answer is correct or not." 7x "After 10 questions, I will tell you your score."  CLEAR SCING REGISTERS  ! "Please input a number: ",N  NNN1))  G0  E0 TGE  TT10)100   CAB   Create random A and B  A0)101)  B0)101) ' Print problem and request answer  22),A," X ",B," = ",  C " Is answer correct? , CAB ^ 6 Answer is wrong @ "You goofed..Try again.", J EE1 T 2^ Answer iscorrect..Print random commendation h GG1 r R0)51 "| R ,,,,,  "Right on....",   "You got it!!!",   "Good work....",   "Keep it up....",   "Excellent....",  9 "Your score is now ",G," correct & ",E," error(s)"  GE50   "Do you want to continue",  A$  A$"YES" D  7& "Thank you for playing with me. Have a nice day." 0 I1 2000\ : "GAMES"\ D Player wants to continue N CAB 2X "I didn't forget that you missed this one.." b  l   91) , " HI-LO!"  ; "THIS IS THE GAME OF HI-LO. I WILL THINK OF A NUMBER" ; "BETWEEN 1 AND 100. WHEN I ASK FOR A GUESS, YOU TYPE" < "IN YOUR GUESS. I WILL TELL YOU WHETHER YOU ARE HI OR" 9( "LO. WHEN YOU GUESS THE NUMBER I WILL TELL YOU HOW" 2 "MANY GUESSES YOU TOOK." 3< "PLEASE TYPE A NUMBER BETWEEN 1 AND 100. ",Z1 F ZZ1100 P AZ)101) Z "YOUR GUESS? ",B d B A "YOUR'E HI!" n x B A "YOUR'E LO!"  % B A "YOU GUESSED IT!!!!"   AB  DD1\Z ! "YOU TOOK ",D1," GUESSES."  D0 0 "WOULD YOU LIKE TO PLAY ANOTHER GAME? ",Q$  Q$"YES" < * " GOODBYE!"  "GAMES"   5) * " 3-D-PLOT"  9 " I'LL DRAW YOU A PICTURE . ? ?"  I1 1000\  AZ)30ZZ100) d n X30 30 1.5 x L0  Y15900XX)5)  YY1 Y1 5 Z25AXXYY)).7Y)  ZL  LZ  Z),"*",  Y   X  5) / " SO I'M NOT AN ARTIST ! AT LEAST I TRY." ! I1 2000\ " * I1 2000\ , "GAMES"\ 6 AZ)30ZZ100) @ AZ)900.01ZZ).92 J AZ)30Z16))2 T AZ)3030Z18) ^ !AZ)30Z16))30 h AZ)30Z10) OViCBB GOODBYE!"  "GAMES2" XXX 5) * " COMPARE"  7( "THIS PROGRAM COMPARES ANY TWO MUMBERS FOR < > =" 5- "ENTERING 0 IN BOTH LOCATIONS WILL END PROGRAM" 2 < "INPUT ANY TWO NUMBERS ", F A,B P AB n Z AB _ A0 d AB n A," IS LESS THAN ",B x  A," IS GREATER THAN ",B  A," IS EQUAL TO ",B   < 5) ( " BYE NOW" + "GAMES"\  91) 2 " ANGLO TO METRIC CONVERSION"  4( "SELECT THE NUMBER OF THE CONVERSION DESIRED." - )2 " 1=INCHES, 2=FEET, TO CENTIMETERS" #< " 3=FEET, 4=YARDS, TO METERS" (F " 5 CONVERTS MILES TO KILOMETERS." .P " 6=CUPS, 7=PINTS, 8=QUARTS, TO LITERS" Z " 9=GALLONS TO LITERS" 'd "11 CONVERTS POUNDS TO KILOGRAMS" 1n "12 CONVERTS FAHRENHEIT TO DEGREES CELSIUS" x C12)  N1 12 CN)  N L 2.54,30.48,.3048,.9144,1.6093,.2366,.4732,.9466,3.785, 28.35,.35359 . 1.057, 0.2642, 0.2527, 2.205, 0.2614, 0 , " (TO END PROGRAM ENTER 0)"  & "WHICH CONVERSION DO YOU NEED ",  N  N0   N17  "VALUE TO BE CONVERTED ",  I RICN) 9 N ,",6,J,^,r,,,,,, $ I," INCHES =",R," CENTIMETERS"   #" I," FEET = ",R," CENTIMETERS" ,  6 I," FEET = ",R," METERS" @  J I," YARDS = ",R," METERS" T  #^ I," MILES = ",R," KILOMETERS" h  r I," CUPS = ",R," LITERS" |   I," PINTS = ",R," LITERS"    I," QUARTS = ",R," LITERS"   ! I," GALLONS = ",R," LITERS"    I," OUNCES = ",R," GRAMS"   # I," POUNDS = ",R," KILOGRAMS"    RI32)59  RI32)59 , I," DEGREES FAHRENHEIT= ",R," CELSIUS"    0! "GLAD TO BE OF HELP. CALL ON ME ANY TIME." " # I1 2000 \ $ 5) (& " END" 0 "GAMES"\  Z 91) .d " A NUMERIC SORT PROGRAM" s 6t " ! INPUT 15 VALUES, ONE VALUE PER LINE" u x A15)  J1 15 AJ)   F0  J2 15  AJ1)AJ) TAJ)\AJ)AJ1)\AJ1)T  F1   F1  "SORTED ARRAY: ",  J1 15\ AJ),\    3, " DO YOU HAVE MORE NUMBERS, (YES OR NO). ",A$ 6 A$"YES"  s  - " SO YOU ARE TIRED OF SORTING NUMBERS!" % " SO LONG FOR NOW."  I1 2000\  "GAMES"\ PAA  "VALUE TO BE CONVERTED ",  I RICN) 9 N ," Z 91) _ B$64) !d THIS IS THE GAME OF ROUTE =s "********** WELCOME TO THE GAME OF ROULETTE **********"  / "WOULD YOU LIKE INSTRUCTIONS -YES OR NO", A$  A$"YES"   A$"Y"   A$"NO"   A$"N"  # "ANSWER -YES OR NO - PLEASE!"   : " IN THIS GAME YOU ARE ALLOWED TO BET ON INDIVIDUAL" 5' "NUMBERS, NUMBER SETS, OR ODD OR EVEN NUMBERS." ;6 "THE NUMBERS GO FROM 00 TO 36. YOU BET BY ENTERING A" 4E "NUMBER BETWEEN 0 AND 44. THE NUMBERS 0 TO 36" 3T "REPRESENT THEMSELVES, AND 37 REPRESENTS 00." 3c "40 REPRESENTS EVEN. 41 REPRESENTS ODD BETS." -r "38 BETS THE NUMBER SET FROM 1 TO 18." - "39 BETS THE NUMBER SET FROM 19 TO 36." - "42 BETS THE NUMBER SET FROM 1 TO 12." - "43 BETS THE NUMBER SET FROM 13 TO 24." - "44 BETS THE NUMBER T FROM 25 TO 36." , "00 IS NOT INCLUDED WHEN YOU BET ODD." 2 "A MINUS (-) NUMBER BET CONCLUDES THE GAME."  2 "IF YOU WOULD LIKE A PRINT OUT OF THE TABLE"  "TYPE THE WORD `PRINT'",  A$  A$"PRINT" D & A$"P" D 5 p D -b B$" *******************************" q C$" * "  B$1) + " * 0 * 00 *"  D$" * "  B$1)  U2  I1 3  UU3  C$,U,C$,U1,C$,U2,C$  B$  I  I1 9 % UU3 4 D$,U,D$,U1,D$,U2,D$ C B$ R I a p , "HOW MUCH MONEY DO YOU HAVE TO SPEND",  A5  GG1  G5  ' "PICK YOUR BET NUMBER.(0 TO 44)",    "WHAT'S YOUR NUMBER ",  B  B44   B0   G5 B 4$ "HOW MUCH MONEY DO YOU WANT TO BET THIS TIME", 3 Q B " AMOUNT !", Q C ` A5C  o A5C  '~ "YOU DON'T HAVE THAT MUCH MONEY!" / "THE MOST YOU CAN BET IS ",A5," DOLLARS."  $  N0)100)  N37   B37 n  BN 2  A5A5C  A50   @ : N\"YOU LOST BUT YOU STILL HAVE ",A5," DOLLARS LEFT" #  2 D35C A A5A5D 8P N\"YOU ** WON ** !! NOW YOU HAVE ",A5," DOLLARS." _  n B39  } B38   N18     N37   A5A5C  A50   @    A5A5C  P  N18  " N36  1  3@ N\"YOU LOST AND ARE OUT OF MONEY . . . ." O 3m "WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO) ", | Z$  Z$"YES"   Z$"Y"   Z$"NO"   Z$"N"     B41 ?  YN2)N2)  B41   Y.01     N37   N0  ! Y.01  0  ? B42  N B43  ] N24 { l  { N37     N12     N24     N0     N12   A5C2A5  P  - "SORRY, BUT COME AGAIN, IT WAS FUN,EH?"   "GAMES"\  "  @# ******************************* P  ( PROGRAM FROM KILOBAUD MAGAZINE ' ISSUE #3, PAGE 84, MARCH 1977  91)  15),"$$$$$ KENO $$$$$" * 7),7),7),15)," $$$$$",7)  7),7),7),7),7) # "DO YOU WANT DIRECTIONS? ",D$  D$"NO" 2 "EACH PLAY WILL COST YOU $1. YOU MAY SELECT" 9 "NUMBERS, TYPE IN EACH NUMBER SEPERATED BY COMMAS." 7 "IF YOU ACCIDENTLY PLACE A COMMA AFTER YOUR LAST" 9 "NUMBER, THE COMPUTER WILL TELL YOU THAT THE EXTRA"  "NUMBER WAS IGNORED." . "IF YOU PUT IN MORE NUMBERS THAN NEEDED" 4"ONLY THE FIRST REQUIRED ONES WILL BE USED. IF" 9 "YOU DON'T ENTER ENOUGH NUMBERS, THE COMPUTER WILL" : "RESPOND WITH(??). ENTER THE REQUIRED EXTRA NUMBERS" 6 " THE COMPUTER WILL BE CHOOSING 20 NUMBERS" - "AT RANDOM FROM NUMBERS 1 TO NUMBER 80" 7 "TO QUIT, TYPE 0 WHEN THE COMPUTER ASKS YOU HOW " ! "MANY NUMBERS YOU WANT." $ +% " GOOD LUCK! ! ! !" & I1 4000\  A$20),H80),A16) 3 "IS THIS A CONTINUATION OF AN OLD GAME? ",A$  A$"NO" " "HOW MANY PREVIOUS TURNS ",S  E0 & "HOW MUCH CASH DID YOU BRING?",S  WS Q0\ ( "HOW MANY NUMBERS DO YOU WANT? ",T  T0  4 T15 \"MAXIMUM OF 15 NUMBERS!!!!!"\  "YOUR NUMBERS: ",  T1 A1)  T2 A1),A2)  T3 A1),A2),A3) " T4 A1),A2),A3),A4) ' T5 A1),A2),A3),A4),A5) , T6 A1),A2),A3),A4),A5),A6) 1 T7 A1),A2),A3),A4),A5),A6),A7) 6 T8 A1),A2),A3),A4),A5),A6),A7),A8) 6 T9 "FIRST FIVE: ",A1),A2),A3),A4),A5) 0 T9 "LAST FOUR: ",A6),A7),A8),A9) 7 T10 "FIRST FIVE: ",A1),A2),A3),A4),A)5) 7 T10 "LAST FIVE: ",A6),A7),A8),A9),A10) 7 T11 "FIRST FIVE: ",A1),A2),A3),A4),A5) 6T11"LAST SIX:",A6),A7),A8),A9),A10),A11) 6T12 "FIRST SIX:",A1),A2),A3),A4),A5),A6) 7T12"LAST SIX:",A7),A8),A9),A10),A11),A12) 1T13"FIRST FIVE:",A1),A2),A3),A4),A5) 1T13"NEXT FIVE:",A6),A7),A8),A9),A10) . T13 "LAST THREE:",A11),A12),A13) 1T14"FIRST FIVE:",A1),A2),A3),A4),A5) 2T14 "NEXT FIVE:",A6),A7),A8),A9),A10) 0T14 "LAST FOUR:",A11),A12),A13),A14) 2T15 "FIRST FIVE:",A1),A2),A3),A4),A5) 2T15 "NEXT FIVE:",A6),A7),A8),A9),A10) 7T15 "LAST FIVE:", A11),A12),A13),A14),A15)  R1 T1)  MR1 T  AR)AM)  AR)80   M  R + / "YOU HAVE DUPLICATED NUMBERS. TRY AGAIN."  / "YOU HAVE A NUMBER TOO LARGE. TRY AGAIN."  + NT +, X1 20\ SELECT 20 NUMBERS AT ROM 6 HX)800))1 @ Y1 X1) J HX)HXY) 6 T Y ^ X " DETERMINE HOW MANY WINNERS  X1 N  Y1 20  AX)HY) QQ1  Y  X  DETERMINE PAYOFF  N1 &  Q1 WW3 & N2 X 0 Q2 WW12 X N3  b Q2 WW1 l Q3 WW43  N4   Q2 WW1  Q3 WW4  Q4 WW114  N5   Q3 WW1.5  Q4 WW21.5  Q5 WW485.5  N6   Q3 WW1  Q4 WW4.5  Q5 WW85.5  Q6 WW1571.5   N7 R * Q3 WW.5 / Q4 WW1.5 4 Q5 WW21.5 9 Q6 WW328.5 > Q7 WW5000 R N8  W Q5 WW8.5 \ Q6 WW85.5 a Q7 WW1643 f Q8 WW17857  N9   Q4 WW.5  Q5 WW3  Q6 WW43  Q7 WW285.5  Q8 WW4000  Q9 WW17857  N10   Q5 WW2  Q6 WW20  Q7 WW140  Q8 WW1000  Q9 WW3800  OF Q10 WW17857  N11   Q5 WW1  Q6 WW8.5  Q7 WW71.5  Q8 WW357  Q9 WW1714  Q10 WW10714  Q11 W17857  N12 L  Q5 WW1   Q6 WW4 ! Q7 WW28.5 " Q8 WW214 # Q9 WW571.5 $ Q10 WW1428.5 % Q11 WW7143 & Q12 WW25000 L N13 ~ M Q6 WW1.5 1102 N Q7 WW17 O Q8 WW71.5 P Q9 W678.5 Q Q10 WW3571.5 R Q11 WW6428.5 S Q12 WW14285.5 T Q14 WW25000 ~ N14   Q6 WW3  Q7 WW8  Q8 WW31.5  Q9 WW250  Q10 WW714  Q11 WW2857  Q12 WW10714  Q13 WW12412.5  Q14 WW25000  N15 l  Q6 WW1.5  Q7 WW7  Q8 WW21.5  Q9 WW107  Q10 WW285.5  Q11 WW2143  Q12 WW7143  Q13 WW21428.5  Q14 WW25000  Q15 WW25000 k GAME RESULTS l "MY NUMBERS WERE:" q v X1 10  HX),  X   X11 20  HX),  \\WW1\ SUBTRACT BET  EE1 4 W1 W0 "YOU HAD ",Q," RIGHT BUT NOW YOU" / W1 W0 "DON'T HAVE ENOUGH TO BET."  W1 W0  8 W0 "YOU HAD ",Q," RIGHT, BUT NOW YOUR BROKE."  W0  ; "YOU HAD ",Q," RIGHT.NOW YOU HAVE ",W," DOLLARS LEFT"  0 "COME BACK AGAIN, AND BRING MORE MONEY!!!"  ( " TOTAL TURNS",E * " TOTAL MONEY LEFT",W  "GAMES"\ @ ! 91)  E13), F13) 1 " THIS IS THE GAME OF CRAPS" 8( " YOU AND THE COMPUTER PLAY A GAME OF CRAP" - 02 "TO BET AGAINST YOURSELF BET (-) DOLLARS." (F "TO STOP PLAYING BET (0) DOLLARS." P Z =d "WHAT NUMBER BETWEEN 1 AND 711 IS LUCKY FOR YOU TODAY?" n A x  A1 d  A711 d  XA712)  Y250X)50 6 "GOOD. . . YOU HAVE ",Y," DOLLARS TO PLAY WITH."  Z1   "YOU ROLL FIRST..."   Z1 "  " "YOU NOW HAVE ",Y," DOLLARS"   Y0  % "CHANGE THE DICE, TO THE LEFT."  " "HOW MUCH DO YOU BET?" , B 6 B0  @ BY ^ J L0 T r 4^ "DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE." h " r C60))1 | D60))1  LL1  FCD  L1   ECD  Z2 *  E2   E3   E7 &  E11 &  E12  4 "YOU ROLL ",C," AND ",D," SO YOUR POINT IS",E  $ 2 "YOU ROLL ",C," AND ",D," AND CRAP OUT. . ."  YYB  Y0   N .& "YOU ROLL ",C," AND ",D," AND PASS. . ." 0 D :: "YOU ROLL ",C," AND ",D," AND MAKE YOUR POINT. . . " D YYB N Y0  X #b "YOU NOW HAVE ",Y," DOLLARS." l v "   6 "YOU HAVE GONE BANKRUPT. . . .SORRY ABOUT THAT."     Z2   FE :  F7  / "YOU ROLL ",C," AND ",D," ...ROLL AGAIN."  r . "YOU ROLL ",C," AND ",D," AND LOSE. . ."  Z2  YYB  Y0   * E2 p 4 E3 p > E7  H !E11  R E12 p 1\ " I ROLL ",C," AND ",D," SO MY POINT IS ",E f $ /p " I ROLL ",C," AND ",D," AND CRAP OUT..." z D - " I ROLL ",C," AND ",D," AND PASS. . ."    FE   F7  - " I ROLL ",C," AND ",D," ...ROLL AGAIN"  r + " I ROLL ",C," AND ",D," AND LOSE..."  YYB  Y0   Z1  3 " I ROLL ",C," AND ",D," AND MAKE MY POINT!!"     5) 8  "THANKS FOR PLAYING THE GAME, AND CONGRATULATIONS" 4 "FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD."  , " SO LONG FOR NOW!"   n $ E4 V . E6  8 E8  B E10  L r V W2 ` U7 j 9t "THE ODDS ARE 8:1 YOU CAN'T MAKE IT THE HARD WAY.." ~  r  W3  U7  j  W4  U7  = "THE ODDS ARE 10:1 THAT YOU CAN'T MAKE IT THE HARD WAY"   r  W5  U7      + "WOULD YOU LIKE TO PLAY ANOTHER GAME" ( A$ 2 A$"Y" P 7 A$"NO" A : A$"N" A < A$"YES" P A 5) +B "THANKS FOR PLAYING, AND COME AGAIN." C (D " BYE NOW!" F n P d d n "GAMES"\    J  @ 8 /0 F/( F#BGt@ S IN 9 PAGES ' FROM BASIC SOFTWARE LIBRARY  PAGE 825  91)   ' " A GAME OF BASEBALL" ( 32 " A 'RETURN' WILL ADVANCE TO THE NEXT INNING" < 2 "PLEASE TYPE A NUMBER BETWEEN 1 AND 100 :",Y  YY100  P9,4),Q4,8)  I1 9  J1 4  PI,J)   J   I   I1 4   J1 8  QI,J)  J  I   "VISITING TEAM NAME", $ A$ . 8 "HOME TEAM NAME", B B$ L V S10\S20\Z0\H10\B0 ` I1 j Z1 t, t A$ ~   B$  " IS UP INNING ",I  Q$  S0\O0\C0  C1  B9   B0  BB1  YX)  XY)  R1 4  YYPB,R)  Y0   R   R5  R ,<,P,d,x % " OUT " ( OO1 2  %< " SINGLE" F  P "WALK" Z  5d " * * * * * * * * DOUBLE * * * * * * * *" n  ;x "************** OUT OF THE BALL PARK !**************"  R ,,,,  Z1 ,  H1H11 !   H2H21  LQR1,C)  ML10)  CLM10  SSM  I9   Z0   S2SS1   O3    S1   N$"RUNS"    N$"RUN"  S,N$ " , Z0 r 6 S2S2S J A$,S1 T B$,S2 U I9  ^ 128) h  r S1S1S |  Z1   I9   S2S1   Z1  j  Z0  II1  j  S1S2    "GAME TOTALS"   A$,  S1," RUNS ",  H1," HITS "   B$,  S2," RUNS ", & H2," HITS" 0 : S1S2 X D K$B$ N b X K$A$ b K$," WINS BY ",S1S2) l v  1 "THE GAME IS TIED AND NEEDS ANOTHER INNING"    "WANT ANOTHER GAME",  K$  K$)3   B .644,.24,.077,.039,.644,.19,.103,.053,.72,.167,.046,.052000 ; .641,.244,.05,.038,.673,.153,.073,.038,.651,.182,.106 : .038,.704,.162,.079,.036,.709,.162,.071,.04,.836,.09 A .053,.016,2,5,6,12,8,15,16,18,2,5,6,12,8,15,16,18,3,7,13,13 * 18,17,23,27,11,21,21,21,31,31,31,41   ) " I HOPE YOUR TEAM WAS THE WINNER."   * "GAMES"\   l ; d  | # t 3 c/  91) 8 FROM BASIC SOFTWARE LIBRARY PAGE 156  S IN 9 PAGES ***** d THIS IS CANN )i " HI THERE!" l 4n " THIS IS A LITTLE ARTILLERY GAME" s 'x "FIRING A FIELD ARTILLERY WEAPON" 2 "A HIT WITHIN 100 YARDS OF TARGET WILL WIN." $ "MAXIMUN RANGE IS 46500 YARDS" 8 "THE ELEVATION IS IN DEGREES AND TENTH OF DEGREES"  "T=DISTACE TO TARGET"  "I=DISTACE OF SHOT" 2 "E=DISTANCE OVER(NEG), OR UNDER(POS) TARGET" W20  T43000300000) S0  W20   & "MINIMUM ELEVATION IS 1 DEGREE "   ( "MAXIMUM ELEVATION IS 89 DEGREES "   " B45 @ :, "OVER THE TARGET BY ",E)," YARDS, LOWER ELEVATION" 6  7@ "OVER TARGET BY ", E)," YARDS, RAISE ELEVATION" J  T B45 r 6^ "SHORT TARGET BY ",E),"YARDS, RAISE ELEVATION" h  :r "SHORT OF TARGET BY ",E)," YARDS, LOWER ELEVATION" |    ; " ***** TARGET DESTROYED *****",S," ROUNDS EXPENDED"  S2  ( " THAT'S DAMN GOOD SHOOTING, SON!"  0  S5  3 " VERY GOOD SHOOTING. WE NEED MORE LIKE YOU."  0  S9  & "ABOUT AVERAGE, TRY TO IMPROVE."  0  S14  6 "I GUESS YOU KNOW YOUR A LOUSY SHOT. YOU SHOULD" 2 "BE INSIDE WITH THE COOK FOR ALL OUR SAKES!"  0  X21 4 6& " OUR FATHER WHO ART IN HEAVEN--H.......! ! !!!" 0 *N "DO YOU WANT TO PLAY ANOTHER GAME ", X R$ b R$"Y" { g R$"N" W l R$"YES" { q R$"NO" W v { 6 "THE ENEMY HAS BEEN SIGHTED, LETS BLOW'EM UP!!!"  W21   - "DISTANCE TO TARGET IS ",T)," YARDS."   "ELEVATION: ",  B  B90 4  B1  SS1  B22B57.3  I46500B2)  XTI  EX)  E)100    E100 T * E100 " 4 ,> " #### BANG YOU BLEW YOURSELF UP ####" H R 0 W 4\ "THANK HEAVEN, BUT PLEASE TRY AGAIN SOMETIME!" f p "GAMES" ume]A6cuCE`A}dB"3iA6drEe YES S ݄P:[@KL^(0pchȻכ߂֌k e׿ L((>l  91)  2 " BASIC MORTGAGE CALCULATION"   THE ( 2 "COST OF HOUSE ", 5 C < "YOUR DOWN PAYMENT ", ? D F $P PRINCIPAL T DOWNPAYMENT Z d PCD n x "ANNUAL PERCENTAGE RATE", { I  + CVERT PERCENTAGE DECIMAL, II100  MTHLY PERCENTAGE I12   II100 JI12   "MORTGAGE TERM ",  T   IN. PERM CALCULATIS   S1J)T12)  MPJS)S1)  MM100))100   PUT THE RESULTS    " " HOME COST $",C  " " " " AMOUNT FINANCED $",P  * " INTEREST RATE ",I100,"%"  , " MORTGAGE TERM ",T, " YEARS"   "" " MONTHLY PAYMENTS $",M , 6 @ "AGAIN", C T$ J T$"YES" ^ T ^ 5) h 6r "IF YOU NEED LOAN CALCULATIONS I'M ALWAYS HERE." | ( " BYE FOR NOW."  "GAMES"\  " A10,20),E21),F21),N$15)  91) 0 " THIS!IS THE GAME OF CHASE" ( -2 "What is your name?",N$\RN$)128) (< "WANT INSTRUCTIONS (YES OR NO)",Y$ F Y$"NO" P Y$"YES" < 1Z "YOU ARE (*) IN A HIGH VOLTAGE MAZE WITH 5" 3d "SECURITY MACHINES (+) TRYING TO DESTROY YOU" 4n "YOU MUST MANEUVER THE SECURITY MACHINES INTO" *x "THE MAZE (X) TO SURVIVE. GOOD LUCK"  "MOVES ARE: 1,2,3" & " 8,*,4 0 IS NO MOVE" . " 7,6,5 9 IS TO END THE GAME"   A$" X+*"  G0 B110 C120 AB,C)0  B1AB,C)1  B10AB,C)1  C1AB,C)1  C20AB,C)1  C  B  D121 " B0)8)2 , C0)18)2 6 AB,C)0" @ AB,C)1 J D6AB,C)2 T D6AB,C)3 ^ ED)B h FD)C r D | B110  C120  A$AB,C)1,AB,C)1),  C   B  BE6)  CF6)  AB,C)0  Y  Y0: . Y ,,,,,,,,  BB1    BB1 * Y ,:,0,0,0,:,,  CC1 & : 0 CC1 : AB,C)1 D AB,C)2 N AB,C)3 X E6)B b F6)C l D15 v AED),FD))2  AED),FD))0  ED)BED)ED)1  ED)BED)ED)1  FD)CFD)FD)1  FD)CFD)FD)1  AED),FD))3  AED),FD))0GG1 # AED),FD))0AED),FD))2  G5*  D  |  "SORRY TO SEE YOU QUITE"  4  "YOU TOUCHED THE FENCE!"  4 3 "YOU HAVE BEEN DESTROYED BY A LUCKY COMPUTER"  4 6* "YOU ARE LUCKY * YOU DESTROEYD ALL OF THE ENEMY" *4 "WANT TO PLAY AGAIN? (YES OR NO)",Y$ > Y$"YES" &H "HOPE YOU DON'T FEEL FENCED IN." R "TRY AGAIN SOMETIME." \ "GAMES"\  !  91) 4 " I WILL DRAW A SINE WAVE FOR YOU."   R57.295775  I1 1 .15  S0 360 6 '( SR)I).0625 "*", " ", 2 S < F I P "GAMES"\   91)  THE SQUARE ROOT MACHINE = " ENTER A NUMBER AND I WILL CALCULATE" ;( " THE SQUARE ROOT OF YOUR NUMBER." 2 4< "A NEGATIVE (-) NUMBER WILL STOP THE PROGRAM." F P "NUMBER", Z N d N0 *n "THE SQUARE ROOT OF",N," IS ", N) x F  5) + "COME AGAIN. I'LL BE WATING FOR YOU."  * " BYE NOW"  "GAMES"\ 5806,198  SRES IN 16 PAGES . FROM PAGE 206, BASIC SOFTWARE LIBRARY  5)  THIS IS JUDY 0 " HI ! I'M JUDY"  \ ) "THIS IS JUST A LITTLE RAP SESSION" /( "WHEN YOU ARE READY TO LEAVE TYPE `END' " &2 "SO SIT DOWN AND RELAX. TELL ME" < "HOW ARE YOU?" A A$30) F 0).5 n P X81 Z X91 d n X80 x X90  JX8\KX8\LX8\MX8\NX8 ' AX9\BX9\CX9\DX9\EX9\FX9\GX9 A$    "WHY DID YOU SAY ",A$    "DON'T YOU REALLY KNOW?"  C1   % "YOU SEEM QUITE POSITIVE, WHY?"  K1)  " ;, "PERHAPS YOU WOULD RATHER TALK ABOUT SOMETHING ELSE." 6 A1 @ J T "ARN'T YOU SURE?" ^ C1 h r | "DOES THAT TROUBLE YOU?"    "PLEASE GO ON."    A9$    "ARE YOU SHURE?"   , "I SEE, BUT I'M NOT SURE THAT I AGREE"   1 "I'AM NOT SURE I UNDERSTAND YOUR QUESTION."  & +0 "WHAT IS IT YOU REALLY WANT TO KNOW?" : D #N "I WOULD TELL YOU IF I KNEW." X b +l "DO I DETECT SOME UNCERTAINTY THERE?" v  ( "WHY DO YOU THINK I CAN TELL YOU/"  D1    B1   , "CAN YOU THINK OF A SPECIFIC EXAMPLE?"  A2   & "WHAT DOES THAT SUGGEST TO YOU?"   G1    * "HMMMMMMMM . . ..." 4 BB1 > H >R "I'AM HAVING TROUBLE , PLEASE TALK IN SIMPLE SENTENCES." \ f :p "DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS?" z  % "I DON'T QUITE UNDERSTAND YOU."   2 "I'AM NOT SURE THAT I UNDERSTAND YOU FULLY."    "TELL ME MORE."    A9$,A9$    "WHY?"   J1 B $ . J1 8 B A$" I DONT KNOW" Z L A$" I DON'T KNOW" Z V A$"OK"  ` A$"O.K."  j A$"O K"  t A$"ALL RIGHT"  ~ A$"WHY"   A$"YES"   A$"NO" ^  A$"Y"   A$"N" ^  A$"BECAUSE"   A$"CAUSE"   A$"MEBY"   A$"MAYBE"  ! A$"I DONT THINK SO"  " A$"I DON'T THINK SO"   A$"NOT AT ALL"   A$"ALWAYS"   A$"STOP"  (  A$"I DON'T REALY KNOW WHY" X  A$"SOMETIMES" D ( A$"I DONT REALLY KNOW WHY" X ( A$"SEX" v 2 A$"END"  < A$)25  F A$)2  P  Z D1 d K2  n KK1 x       A1       x  G1         NN1  ~  A0 "   " K1 J , KK1 6  @ J T ^ A1  h L1  r LL1 | C1 0  "   D1      H     x  J  n    x    f & 0 r : D b N X  b  l v B1   f  n          0 "IT WAS NICE TO SEE YOU. COME BACK AGAIN."  " BYE"   P  K0  "   MM1 * M1  4 M2  > M3  H R  \ G1 x f M7  p M8 . z M9 B  V         G1 x  &   b          $ .  8 B  L V M0 `  j F #t N IS THE FLAG THE ANS. WHY ~ N1  N2  N3  N4   N5 (  N6 <  N0  F  D   r  (  2 <  F P "GAMES"\  $SEXASEYFFDGDFGDSFG  A * FROM OCBER, 1977 BYTEPAGE 6  91)  OTHELLO %x A9,9),I48),J48),C$8),D$3) . " GREETINGS FROM OTHELLO!"  \ & "DO YOU WANT INSTRUCTIONS? ",X$  X$1,1)"N"   X$1,1)"Y" 6 \"Othello is played on an 8 X 8 checker board," 1 "rows numbered 1 to 8, and columns A to H." 6 "The initial configuration is all blank, except" 3 "for the center four squares, which form the"  "pattern:"  " O X"  " X O" - "PRESS 'RETURN' TO CONTINUE.......",X$ > \"Try to place your piece so that it 'outflanks' mine," 8 "creating a horizontal, vertical, or diagonal run" ;" "of my pieces bounded at each end by at least one of" =, "yours. This will 'flip' my pieces, turning them into" 6 "yours. " >@ \"Note: You must capture at least one of my pieces in" 9J "this way if it is at all possible. If it is not," 6T "you forfeit your turn by entering 0,0 for your" ^ "(ROW,COL) MOVE." c ;h "Entering a ZERO-COMMA-STOP (0,STOP) when it is your" j "move, will end it all!" r 3 \ "SHOULD I WAIT BEFORE MAKING MY MOVE? ",X$  F20  X$1,1)"N"   X$1,1)"Y"   F21 + "OK, TYPING 'RETURN' WILL LET ME GO." - \"SHOULD I PLAY MY BEST STRATEGY ?",X$  S20  X$1,1)"N"  X$1,1)"Y"  S22  B1  W1  D$"X.O" : K1 8 D I4K) N K X 0,1,1,1,0,1,1,1 b K1 8 l J4K) v K  1,1,0,1,1,1,0,1  C$"ABCDEFGH"  I09  J09  AI,J)0  J  I  A4,4)W  A5,5)W  A4,5)B  A5,4)B  C12  H12 * N14 4 Z0 H\"DO YOU WANT X OR O? ",X$ R CW \ HB p X$"X" z X$"O"H  CB  HW % \"DO YOU WANT TO GO FIRST?",X$  X$1,1)"N"   X$1,1)"Y"       F20  X$  B11  I30\J30  T1C  T2H . I18 8 J18 B AI,J)0d ` < j F10d  U1    S10d  I1)I8)0  S1S1S2  J1)J8)0  S1S1S2  S1B1d  S1B1<  R0) ( R.5d < B1S1 F I3I P J3J d J n I  B10  ! "I HAVE TO FORFEIT MY MOVE"  Z1   Z1    Z0 ( "I WILL MOVE TO ",I3,",",C$J3,J3)  II3  JJ3  U1   " C1C1S11 , H1H1S1 6 N1N11 +@ "THAT GIVES ME ",S1," OF YOUR PIECES" h  | H10  N164  T1H  T2C ' "YOUR MOVE = (ROW, COLUMN) ",I,X$  X$"STOP"  I0   I8   I0  ) "ARE YOU FORFEITING YOUR TURN? ",X$  X$1,1)"Y",1710  Z1  Z1    J18 & C$J,J)X$N 0 J :  N AI,J)0v 0X "SORRY THAT SQUARE IS OCCUPIED, TRY AGAIN" b  v <  F11 3 "SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES"  "TRY AGAIN."    U1    S10 2 "SORRY, THAT DOESN'T FLANK A ROW, TRY AGAIN"    Z0 + "THAT GIVES YOU ",S1," OF MY PIECES."  U1   * H1H1S11 4 C1C1S1 > N1N11 R  f C10 p N164  z  ; \"YOU HAVE ",H1," PIECES AND I HAVE ",C1," PIECES--"  H1C1  H1C1  "SORRY, I WON THAT ONE."    "A TIE!!"   "YOU WON !!"  C1C1H1  C10. $ C1C1 . C164C1)N1 8 "THAT WAS A ", B C111 L C125 V C139 ` C153~ j "PERFECT GAME!" t ~ "WALKAWAY!"  "FIGHT!"  "HOT GAME!"  "SQUEAKER!"  - "DO YOU WANT TO PLAY ANOTHER GAME? ",X$  X$1,1)"Y"  X$1,1)"N" ! "THANKS FOR NOTHING SPORT!"  "GAMES"\ < I111 F J111 P AII1,JJ1)T2 Z J1 d I1 x F10  F11   S10  K18  I5I4K) " J5J4K) , I6II5 6 J6JJ5 @ S30 J AI6,J6)T2 ^ S3S31 h I6I6I5 r J6J6J5 | AI6,J6)T1  AI6,J6)0 ^ S1S1S3 U1 I6I J6J K10S3  AI6,J6)T1 I6I6I5 J6J6J5 K1  K   +& 10)," A B C D E F G H" 0 I18 : 10),I," ", D J18 %N " ",D$AI,J)2),AI,J)2)), b J l v I    5)\\ ; "RUNNING AWAY FROM COMPETITION, EH! SPOIL SPORT! ! !"  \  I1 1000\ # " SEE YOU LATER"  "GAMES"\ _%4Oo7Wg>/ 0 FROM KILOBAUD #11 NOVEMBER 1977 0 PAGE 34  5) , " << LIFETIME >>"  :" This program determines your life expectancy! "  \\\ = " DO YOU WANT BACKGROUND INFORMATION? (Y OR N)",A$ 2 A$1,1)"N" =7\"THE FOLLOWING, THOUGH NOT VALIDATED, IS BASED ON THE" 6<"BEST SCIENTIFIC EVIDENCE AVAILABLE TODAY. WHILE" 7F"SCIENTISTS STILL DON'T KNOW ALL OF THE VARIABLES" 7P"CAUSING LONG LIFE, THEY ARE AWARE OF SOME OF THE" 6Z"PHENOMENA THAT SEEM TO BE CORRELATED WITH LONG-" 4n"EVITY. THIS PROGRAM IS BASED ON THAT DATA AND" 5x"STARTS WITH INDIVIDUALS AT LEAST 20 YEARS OLD."  B1101) ) \ "WHAT IS YOUR AGE IN YEARS? ",A9  A920 3 "Sorry, you must be at least 20 years old."\  \"What is your sex? ",S$  I0 101 B1I)  I CA920  S$1,1)"F"CC51 8 69.9,70.0,70.1,70.2,70.3,70.4,70.5,70.6,70.7,70.8 8 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7 8 71.8,71.9,72.0,72.2,72.3,72.5,72.6,72.8,73.0,73.2 8 73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8 8 76.2,76.5,76.9,77.3,77.7,78.1,78.6,79.0,79.5,79.9 8" 80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4 8, 77.4,77.5,77.5,77.5,77.6,77.6,77.7,77.8,77.8,77.9 86 78.0,78.0,78.1,78.2,78.3,78.4,79.5,78.6,78.7,78.9 8@ 79.0,79.1,79.3,79.4,79.6,79.7,79.9,80.1,80.3,80.5 8J 80.7,80.9,81.2,81.4,81.6,81.9,82.2,82.4,82.7,83.0 T 83.3,83.6 0^ "Your basic life expectancy age is:",B1C) h TB1C) r | "PART I HEREDITY"  ; \"Did at least two of your grandparents live to age"  "80 or more? ",A$  A$1,1)"N"  10),T,"+0=",T\  10),T,"+2=",T2  TT2  ( "What is/was your mothers age? ",A  A80   10),T,"+0=",T\  $ 10),T,"+1.5 =",T1.5\TT1.5  ) "What is/was your father's age? ",A  A80 & ! 10),T,"+0 =",T\0 & 10),T,"+2 =",T2\TT2 0 9: "Did any of your grandparents, parents,brothers or" 9D"sisters die of a heart attack or stroke before age" N "50? ",A$ b A$1,1)"N" l g 10),T,"-0 =",T\  l 10),T,"-4 =",T4\TT4  A "Did any of the above die of heart attack or stroke before"  "age 60? ",A$  A$1,1)"N"   10),T,"-0 =",T\   10),T,"-2 =",T2\TT2  : "What is the total number of incidence of diabetes," 9 "thyroid disorder,breast cancer(women), digestive " 7 "system cancer, asthma, emphysema and/or chronic" : "bronchitis found in your parents and grandparents",  A . 10),T,"- 3 * ",A," = ",T3A\TT3A\  %  "PART II HEALTH AND DIET" * 4 .> "How many pounds overweight are you? ",A R A0 \ W B0\f \ BA10 "f 10),T,"-",B,"= ",TB\TTB z :"How many packs of cigarettes do you smoke a day? ",A  A0   B0\   A1   B2\   A1   B4\   A1.5   B5.5\  A2   B7\  A2   B8\   A3   B10\   A4   B12 $ 10),T," - ",B,"= ",TB\TTB  0 "How many drinks do you have each day? ",A  A0 $ $ 10),T,"-1= ",T1\TT1\ 8 $ A2 . %) 10),T,"+3 = ",T3\TT3\ 8 . 10),T,"- 8 =",T8\TT8 8  L A$1,1)"N"  10),T,"+3= ",T3\TT3\H > 10),T,"-3= ",T3\TT3 H\A961z !\"Are you still working?!",A$ ,f A$1,1)"Y"p10),T,"+0= ",T\z p 10),T,"+2= ",T2\TT2 z\ "PART IV LIFESTYLE"  \ 4 "Do you live in a rural or an urban area? ",A$ 4 A$1,1)"R"10),T,"+1= ",T1\TT1\  10),T,"-1= ",T1\TT1 6 \"Are you married or living with someone on a "  "permanent basis? ",A$ 4 A$1,1)"N" 10),T,"+3= ",T3\TT3\8  AA925  A0 A0\. 9 "How many of the past ",A," years were you single",  A $ AA10 #. 10),T,"-",A,"=",TA\TTA\ 78 "On a scale of 0 to 3, how much of a calm passive" *L "person are you (3 is most calm)? ",A $` 10),T,"+",A,"= ",TA\TTA\ 7t "On a scale of 0 to 5, how much of an aggressive," 7~ "intense and competitive person are you (5 is the"  "most aggressive)? ",A $ 10),T,"-",A,"= ",TA\TTA\ 9 "Do you use your car's seat belts and follow speed"  "limits regularly? ",A$ , A$1,1)"Y" 10),T,"+0= ",T\  10),T,"+1= ",T1\TT1 > \"On the following scale, how would you rate yourself?" . \5),"HAPPY: 3 2 1 0 -1 -2 -3 :UNHAPPY"  12),\A 0 A0 10),T,"+",A,"= ",TA\TTA\(  10),T,A,"= ",TA\TTA ( \\ 1< " YOUR LIFE EXPECTANCY IS",T,"YEARS" F P \\ 0  I159\"-",\I\\ 0 "Do you want an explaination of this? ",A$ & 0 : \\ 6D " Wasn't that exciting?" I \\ 5N " Have a happy life!" S I1 10000\ X "GAMES"\ uD!YwfiBpBpBp Bp0Bp@BpPBp`BppBpBpBpBqBqBq Bq0Bq@BqPBq`BqpBqBq 91) + " ROCKET" 8 " ! THIS IS A COMPLEX LUNAR-LANDER GAME" ( Z$"GO" 2 B1 < M17.95 F F15.25 P N7.5 Z R0926 d V01.29 n T0 x H060 RR0H0 A3.425 R10  A18.84361E4 R30 A30 M17.45 M0M1 B750 T10  F0  P0  N1  M20  S0  C0 " Z$"YES" , 26 " LUNAR LANDING SIMULATION" @ J "HAVE YOU FLOWN BEFORE?" T "(YES OR NO)" ^ Q$ h Q$"YES"  r Q$"NO"  |"WHAT?"  T  # "MEASUREMENT OPTION NUMBER?",    & "WHICH SYSTEM OF MEASUREMENTS?"  "1=METRIC 0=ENGLLISH" % "ENTER THE APPROPRIATE NUMBER"  K   K0 D  K1     Z1852.8  M$"METERS"  G33.6 & N$"KILOMETERS" 0 G51000 : v D Z6080 N M$"FEET" X G3 .592 b N$" N.MILES" l G5Z v B13 P  Q$"YES"   ; "YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF" :"THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO" > "GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM." ? "THE ON BOARD COMPUTER (HAL) WILL GIVE A RUNNING ACCOUNT" 3 "OF INFORMATION NEEDED TO NAVIGATE THE SHIP."  > "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS:" : "+ OR - 180 DEGREES IS DIRECTLY AWAY FROM THE MOON." > "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT." > "90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT" - "0 DEGREES IS DIRECTLY TOWARD THE MOON" " "ANY NUMBER TO CONTINUE",Z9    30),"-180,180"   34),"I" * 27),"-90 < -+- > 90" 4 34),"I" > 34),"0" &H 23),"<< DIRECTION OF ORBIT <<" R \ 27),"SURFACE OF MOON" f #p "ENTER SOMETHING TO CONT",Z9 5z "ALL ANGLES BETWEEN -180 AND 180 ARE ACCEPTED." * "1 FUEL UNIT= 1 SEC. AT MAX. THRUST" > "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"  "FOR AN ATTITUDE CHANGE." 7 "AVAILABLE ENGINE POWER: 0 AND ANY VALUE BETWEEN"  "10 AND 100 PERCENT"  . "NEGATIVE THRUST OR TIME IS PROHIBITED!"  "CONT?",Z9  2 "INPUT: TIME INTERVAL IN SECONDS ------ (T)" 2 " PERCENTAGE OF THRUST --------- (P)" 2 " ATTITUDE ANGLE IN DEGREES -----(A)"   Q$"YES" 8  "FOR EXAMPLE:"  "T,P,A?10,65,-60" 6$ "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0" . ,8 "OUTPUT:TOTAL TIME ELAPSED IN SECONDS" B " HEIGHT IN",M$ 0L " DISTANCE FROM LANDING SITE IN ",M$ 2V " VERTICAL VELOCITY IN",M$," /SECOND" 2` " HORIZONTAL VEMOCITY IN",M$,"/SECOND" #j " FUEL UNITS REMAINING" t Z9 ~  P   "T,P,A",  T1,F,P  FF100  T10 &  T10   F.05)1 v  F.05).05 v  P)180 N  N20  T1400   NT120  T1T1N  PP3.14159180  SP) ( CP) 2 M2M0T1FB &< R3.5R0V0R)V0R))RA1A1 F A32R1A1R P I1 N Z M10  d M1M1M2 n M10  x FF1M1M2)  M2M1M2  "YOU ARE OUT OF FUEL"  M10    F0  M20  MM.5M2  R4R3 & R3.5R0V0R)V0R))RA1A1 # R23R3R4)2.00526F1FCM  A4A3  A32R1A1R ' A23A3A4)2.00526F1FSMR)  XR1T1.5R2T1T1  RRX  H0H0X " R1R1R2T1 , AAA1T1.5A2T1T1 6 A1A1A2T1 @ MM.5M2 J TTT1 T H03.28782E04 h ^ I h HH0Z r H1R1Z | DR0AZ  D1RA1Z  T2M1BM0  T,8),H,18),D,  34),H1,46),D1,57),T2  H03.287828E04   R0A164.4736 H  M10   T120  F0  P0    R18.21957E04  ! RA1)4.931742E04   H03.287828E04   D)10Z f   & 90 "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-" : "TIME CONTINUUM." D  N ;X "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE!", b "FOR AN E.V.A.!" l  v ! "IMPOSSIBLE THRUST VALUE ",  F0   F.05.05   "TOO LARGE"    "TOO SMALL"    "NEGATIVE"    4 "TRANQUILITY BASE HERE --THE EAGLE HAS LANDED" 7 "CONGRATULATIONS- THERE WAS NO SPACECRAFT DAMAGE" 1 "YOU MAY PROCEED WITH SURFACE EXPLORATION."      "*** CRASH ***!!!" 4  "YOUR IMPACT CREATED A CRATER",H),M$," DEEP" * X1D1D1H1H1)G3 44 "AT CONTACT YOU WERE TRAVELLING ",X1,N$,"/HR." >  H n"CRUISER. YOU MUST NOT DESTROY THE KLINGON, BUT TAKE IT " ?x"ALIVE. TO CAPTURE A KLINGON YOU MUST DESTROY ALL SECTORS" A"SURROUNDING IT. THE BATTLE COMPUTER WILL KEEP YOU INFORMED" >"OF ITS LAST KNOWN POSITION. GOOD LUCK AND REMEMBER THAT" )"WE ARE COUNTING ON YOU, COMMANDER." "\"YOU HAVE ", S," SHOTS."\  INITIALIZE QUADRANT Q9,9) " X 0 9\ Y0 9\QY,X)0 * Q0,X)1\Q9,X)1\QY,9)1\ Y\ X . S 190200 GET KLING'S INITIAL POSITI , X0)4010)\ X1 \ X8 , Y0)8010)\ Y1 \ Y8 KLINGS PRESENT POSITI 8"KLINGON'S LAST KNOWN POSITION, SECTOR ",X," ,",Y\  MOVE KLING MAYBE)  S0 \CX\DY 0 A0)7510)\ AC XX1\ AC XX1 " X1 X1\ X8 X8 0, A0)4510)\ AD YY1\ YD YY1 6 Y1 Y1\ Y8 Y8 $@ QY,X)1 T\XC\YD\  J MAP T A1 8\ B1 8 ^ QB,A)0 " * ", h QB,A)1 " 0 ", r B\1),A\ A | A1 8\1),\ A $"1 2 3 4 5 6 7 8" . CHECK SEE BEING ATTACKED5% CHANCE)  A0)100)\ A5  ) "THE ENTERPRISE HAS BEEN ATTACKED." 6 "PHASOR ENERGY USED TO REPLENISH SHIELDS."\SS1  S," SHOTS REMAIN "\ $ CHECK SUPER NOVA 5%CHANCE)  A0)100)\ A94   LOCATE SUPER NOVA , A0)3510)\ AX \ A8  , B.5)4010\ BY \ B1   B8   QB,A)1 & "SUPERNOVA IN SECTOR ",A,"," B\ ! "YOUR SHOT(X,Y) ",A,B\SS1  CHECK YOU SHOT KLING & AX BY  '0 CHECK SECR HAS ALY BEEN SHOT : QB,A)1 \QB,A)1 D CHECK SEE YOU WIN N AX1 X1\ BY1 Y1 X AY BY l b QB,A)1 l B\ A #v "CONGRATULATIONS! COMMANDER!" 7 "YOUR MISSION IS A SUCCESS! THE KLINGON HAS BEEN" 5 "CAPTURED AND YOU HAVE ",S," SHOTS REMAINING!" : " WANT TO PLAY ANOTHER GAME, HOTSHOT?(YES OR NO)",Z$  Z$"YES" <   3 "PHASORS OUT OF ENERGY. NO SHOTS LEFT "\   "CONGRATULATIONS, DUMMY!" " "YOU JUST FRIED THE KINGON!" % "YOUR MISSION IS A TOTAL LOSS!" 6 \ "BLOODTHIRSTY! WANT TO PLAY ANOTHER GAME?",P$  P$"NO" <  5)\\\ . " I HOPE YOU HAD FUN." ( " SO LONG"   I1 3000\  "GAMES"\   "NICE GOING, DUMMY!" 4* "YOU JUST SHOT A PREVIOUSLY DESTROYED SECTOR!" 4 b j { Z z B%B NO /  5) 0 " THIS IS GAMEPAC NUMBER 2"  $ " GAMES" ( =2 " Well, I guess that you have not had your fill of" =< " games, so here goes. I can play the following."\ b Z ] _ 1` " THESE ARE THE GAMES I KNOW HOW TO PLAY: " b ?d " MULTIPLY ",\"---- ",\"HI-LO ",\"---- ",\"3DPLOT" An " CONVERT ",\"---- " ,\"SORT ",\"---- ",\"COMPARE" Ax " CRAPS ",\"---- ",\"KENO ",\"---- ",\"ROULETTE" A " BASEBALL ",\"---- ",\"CANNON ",\"---- ",\"MORTGAGE" = " CHASE ",\"---- ",\"SQROOT ",\"---- ",\"SINE" A " JUDY ",\"---- ",\"OTHELLO ",\"---- ",\"LIFETIME" * " ROCKET ",\"---- ",\"KLINGON "  "PICK ONE: ",A$ A$"MULTIPLY"   A$"HI-LO"   A$"3DPLOT"   A$"CONVERT"   A$"SORT"   A$"COMPARE"    A$"ROULETTE"    A$"KENO"    A$"CRAPS" "  " A$"BASEBALL" ,  , A$"CANNON" 6  6 A$"MORTGAGE" @  @ A$"CHASE" J  J A$"SQROOT" T  T A$"SINE" ^  ^ A$"JUDY" h  h A$"OTHELLO" r  r A$"LIFETIME" |  | A$"ROCKET"    A$"KLINGON"   8 "I NEVER EVEN HEARD OF '",A$, \"' ! ? ! ? "\ ]  A$\  1,1,0,1,1,1,0,1  C$"ABCDEFGH"  I09  J09  ! 0 SOL 20 NTH STAR BASIC . I NEED A VDM1  Y10) ( 254,0 2 11),\ X1 4\\ X < 26),"T A R G E T"\ F 24),"BY BRIAN PULLEN"\ *P 19),"MOUNTAIN VIEW HIGH SCHOOL"\ #Z 24),"DECEMBER 1, 1977"\\ 3d 15),"SUGGESTIONS FOR IMPROVEMENT WELCOME." n X1 2500\ X x 254,0\ 11),  X1 14\\ X  SET UP BDER " Y52293 52344\ Y,160\ Y ' Y52344 53048 64\ Y,160\ Y & Y53048 52997 1\ Y,160\ Y ( Y52997 52293 64\ Y,160\ Y % 52730,54\ 52731,55\ 52732,56 % 52794,53\ 52795,42\ 52796,49 % 52858,52\ 52859,51\ 52860,50 # "DIRECTIONS ON RIGHT SIDE.",  10),\ 13),  NUMBER OF FIGHTERS % 1 "FIGHTERS (1-10)?",Z\ 13),  Z10 Z1 : CHOOSE FIGHTER POSITIS MAKE SURE THEIR IN BOUNDS  Y1 Z " AY)6260))52358 , X52357 6 XX64 @ X52997 " J AY)X AY)X51 ^ T 6 ^ AY),11\ Y )h POSITI OF BASE, TARGET BOMBER r 52934,256\ 52982,128 | C52935\ C,12  MOVEMENT OF BOMBER % 1 "DIRECTION (1-8)?",D\ 13),  " Y1 8\ E\ DY \ Y    DE  1,65,64,63,1,65,64,63 # 1 "HOW FAR (1-5)?",F\ 13),  F1 F5   CHECK SEE OF BOUNDS  Y1 F  CHECK SEE OF BOUNDS  ICYD)\ JCY1)D) ! W1 Z\ IAW) \ W  I52358 I52983 N  X52293 52997 64 & IX IX51 N 0 X : J,32\ I,12\ Y D CI\ b N CJ X CHECK SEE OVER TARGET b X1 10\ KCX64) l K52982  v X\   "BOMBS AWAY!!",  X1 10  KCX64)  K,15  U1 250\ U  K,32\ K52982 \ X 5 13),\"TARGET DESTROYED, MISSION COMPLETE!", $ W1 1000\ W\ 13),\ x  FIND QUADRANT OF BOMBER  Y52934 52358 64 # CY24 \ CY \ Y  C52663    C52663    G4\ *   G2\ *  G3\ *  G1 /* FIND QUADRANT DIRECTI MOVE FIGHTERS 4 Y0 > YZ  H YY1 R X52934 52358 64 )\ AY)X24 f\ AY)X p\ X f AY)52663 z  p AY)52663   z BY)4\   BY)2\   BY)3\   BY)1  BY)G $ & BY)G1 \ BY)G2  ' BY)G3 \ BY)G1  ( BY)G2 \ BY)G3  # BY)3 \ CY)1\   CY)64\   CY)65\  " BY)2 \ CY)1\   CY)64\   CY)65\   CY)63\   CY)63\   V7\  1$ IN SAME QUADRANT PICK SEMIROM DIRECTI '. AY)C25) B\ AY)C L '8 AY)C25) V\ AY)C ` B H3O))2\ j L H1\ V7\ t V H30))6\ j ` H5\ V7\ t j V30))1 t %~ X1 8\ CY)\ HX \ X * MOVE FIGHTERS CHECK OF BOUNDS  X1 V  IAY)XCY)))  JAY)X1)CY)))  I52358 I52983   W52293 52997 64  IW IW51   W  J,32\ I,11  IC   X  AY)I\   AY)J  > * J,32\ "YOU HAVE BEEN SHOT DOWN!",  W1 1000\ W\ x BR"E/7 REPERhPERIERERw@ERxpERERERWERF`ERPEeeARERPE ! ! ! !