IMD 1.15: 16/05/2007 7:36:50 fog gam 017         -FOG/GAM017/GAM#017DOCBACCRRT BASBATTLSHPBASBRIDGE COMc BRIDGE DOCBRIDGE PQS0CAPITALSBAS#CRAPS BAS+CROSSPUZBAS/ DARTS BAS MATH BAS !"NUMBERSQBAS#$PIGLATINBAS%SMART BAS&SMURF BASNTRANSLATBASN'()*+VOCAB BAS ,/GAM#017CRC-a MODIFICATION OF ORIGINAL MONSTER PROGRAM OF KELLY SMITH AS /b PUBLISHED IN THE FIRST ISSUE OF THE PORTABLE COMPANION.tb MODIFICATIONS BY JIM MCHUTCHION OF DETROIT FIRST OSBORNE GROUPzbb ()b" Smurf Adventure "b" "c :"Are you a Smurf(M) or a Smurfette(F)?";S$Hc! (S$,)"F" S$"Smurfette": 1tc" (S$,)"M" S$"Papa Smurf": 1c#I(()): I $,%,&,',(c$S$"Joke  y Smurf": 1c%S$"Brainy Smurf": 1c&S$"Clumsy Smurf": 1d'S$"Hefty Smurf": 1/d(S$"Astro Smurf": 1 hd1 :"Hi ";S$:"Would you like instructions (Y,N)";X$d2 (X$,)"N" z d<:"In the game of 'Smurf' you - Gargamel's Mother"h"" 70 - polka dot dog"h," 80 - Azreal" i6" 90 - Big Mouth" i@"100 - Gargamel"LiJ"Press RETURN to continue",X$: ()~iT"If you enter a number equal to the enemies"i^"strength, you have a 50-50 chance of def try to gather" eF"treasure from various crafty, wily enemies and leave"DeP"the forest with as much treasure as possible - "eZ"without getting captured in the process! At the "ed"beginning, you are placed at a raneating it. "ih"Entering a higher number increases your chances of "6jr"winning, while entering a smaller number lowers that "sj|"chance. No matter how much strength you use, there "j"is a 1 in 1000 chance that the enemy may capture you domly chosen "en"location in a forest with a certain number of magic"6fx"strength points. As you move through the forest, "nf"you will encounter your enemies guarding various"f"tempting treasures."f"Press RETURN to continue",X$: "j"anyway! Also, the more treasure you have, the more "*k"strength you need to use to achieve the same odds "ek"against the enemy in combat. If you choose to "k"run, your chances of getting away from an enemy "k"success()f"At each meeting you are given a choice of fighting "-g"the enemy, running from it, or bribing it. If you "jg"wish to fight you will be asked to enter the number "g"of magical points you wish to use. Enter any number "g"smively decrease as each new enemies's strength "l"increases. Thus you are more likely to get away "Il"from a Purple Fly than from Gargamel. "wl"Press RETURN to continue",X$: () l"If you succeed in running away, you are placed ialler than your present strength. Each enemy"h"has its own magical strength. These are as follows:" h8h" 10 - Purple Fly"Ph" 20 - Pink Mouse"ih" 30 - Green Smoof"h" 40 - Cave Troll"h" 50 - Mischevious little boy"h" 60n a "l"new randomly selected square. Not getting away "-m"usually results in a battle. Occaisionally, while "hm"you are running, the enemy will catch you - one of "m"the risks of smurfing out. Of course trying to "m"bribe   your foe is an age old alternative to running "n"or fighting. For this, you must use the treasure "Zn&"you have won. Whether or not you succeed depends on "n0"the value of the treasure the enemy is guarding. "n:"The more its va, "r "simply move to any blank area adjacent to the edge "-s*"of the map. Scores of 500 to 700 are average. "js4"Anything above 1000 is excellent. As is common to "s>"games of this type, I have left out a number of "sH"tlue, the more you must pay to "oD"successfully bribe your adversary. If the bribe "0oN"fails, prepare to fight."\oX"Press RETURN to continue",X$: ()xob"Treasure values are:"~olov" 10 - Ten Smurfy Spoons"o" 30 - Jewelhings that you will have to find out for yourself "tR"(Papa Smurf has to have some fun, after "At\"all). Good luck and good hunting!"mtf"Press RETURN to continue",X$: ()ztz ()t: OSBORNE I TERMINAL COMMANDStE$()::ed Rod" o" 50 - Jar of Diamonds"o" 50 - Vial of Papa Smurf Potion"!p" 75 - Basket of Smurf-berries"Ep"100 - One Hundred Smurf Pies"ap"200 - Treasure Chest"p"Press RETURN to continue",X$: ()p"Movement through the forest ESCAPE CHARACTERtCLS$():: CLEAR SCREEN"uDC$E$"=":: DIRECT CURSOR ADDRESSINGIuGY$E$"g":: Graphics OnquGN$E$"G":: GRAPHICS OFFuHO$E$():: CURSOR HOMEuEP$E$"T"::  is easy: just enter the "q"direction you wish to go - N for North, SE for South "Dq"East, etc. The option to reset the display is "q"included ( press 1 ) in case the previous play of "q"the game caused too many lines of text  ERASE TO END OF LINEuDY$E$")":: DIM DISPLAY ONvDN$E$"(":: DIM DISPLAY OFFFvUY$E$"l":: START UNDERLININGpvUN$E$"m":: END UNDERLININGv$CH$()DY$( )( )DN$:: FIELD CHARACTER (BORDER)to be printed "q"below the map. The map will be reprinted and the "8r"display cleared. Your position will be displayed on "ur "the map, as well as the location of trees in the "r"forest. You must go around the trees. To leavev.CH$()DY$( )( )DN$:: FIELD CHARACTER (FIELD) w8CH$()( )():: TREE5w=CH$()()():: YOUR TRAIL`wBCH$()()():: YOUR POSITIONwL I : J :A(I,J): ()@ A(I,J) wV J,Iw`X(  ()):Y(())wjA(X,Y):C(())wt  +x~ "Your strength is ";UY$;C;UN$: n: I ~\x M "You get the treasure free!": ^sx Md N x GN$;"Do you want to (F)ight, (R)un, or (B)ribe? "x "Gargamel's mother";: | "A polka dot dog";: | "Azreal";: } "Big Mouth";: 0} "Gargamel";: E} "Nothing";:Mk} " is guarding ":I(())} I ,,,",,,6,@} "ten Smurfy spoons":PZ9$$(): Z9$"F" Z9$"R" Z9$"B" "y Z9$"F"  : Z9$"R"  : Z9$"B"  : Ny "How much magic do you wish to use";K`y K  y KC : UY$;C;UN$;"magic points": yI(()):L:CCK :} "a jeweled rod":P:} "a jar of diamonds":P2:~" "a treasure chest":P:9~, "vial of Papa Smurf potion":P2:X~6 "100 Smurfy pies":Pd:~@ "a basket of Smurf-berries":PK:~J "You outwitted the enemy!"~TSS~:KK #zQy H  2: LMK HI JyLLL}:/z "The enemy captured you, and you lose everything."Yz "Do you want to try again ";S$;"?";zZ$$(): (): Z$"Y" C:C:Q: 8z : "So long for now. Better l^QQP~h P ~r P : | "You have ";UY$;Q;UN$;" treasure points"gX$"":AX:BY:"What direction (Hit '1' to re-display)";X$: (): X$""  X$"1" CLS$:  :  (X$,)"W" XX (Xuck next time!":z ():I(() ): I { H  : H M HI 2{(: 0&{2AX:BYN{<X(())A:Y(())Bc{F A(X,Y) <x{P A(X,Y) R{ZA(A,B):A(X,Y): I t{d{nI(($,)"E" XX (X$,)"N" YY (X$,)"S" YY  A(X,Y) RO A(X,Y) ();"Oops...You ran into a tree!":XA:YB:  A(X,Y) ();"Havn't we been here before?":XA:YB: A(A,B):A(X,Y): t)):MI |x I ,,,,,,,,,,,,:,>,f,f,f,f,| "A purple fly";: H| "A pink mouse";: e| "A green Smoof";: | "A cave troll";: | "A mischevious little boy";: |ɀ "You only have";:"How much do you want to pay";K K &7 KQ : UY$;Q;UN$;" treasure points": aI(()):L: I K  H : KLP IH &LLL}:Á"Your bribe was acc  epted.";:QQK: |&"Your bribe was rejected.";0"You must fight":  : ()FD"The GUARDIAN of the forest captured you, took half"N"your treasure, and then took you to a new location"X"in the forest...tough luck!"ĂbQQ:A "Would you like to play again? ";: f "How much farther, Papa Smurf?": | pAz CLS$,DC$;" '";GY$;CH$();GN$;" = Your location";p DC$;(");"'";GY$;CH$();GN$;" = Tree"; DC$;"$'";GY$;CH$();GN$;" = field" DC$;(");"5";X:BY: I9 :lX(()):Y(()): A(X,Y) l&vA(A,B):A(X,Y): ():  :I :AJ(()):CCJu "You fell into a pit and used ";UY$;J;UN$;  "magic points to climb out..."ރ C "...bu"NW N NE"퇢 DC$;"#7";DY$;GY$;();( );();GN$;DN$;, DC$;"$5";"W ";DY$;GY$;( );( );( );GN$;DN$;" E";_ DC$;"%7";DY$;GY$;();( );( );GN$;DN$y DC$;"&5";"SW S SE";$;GY$;( );( );( );GN$;DN$;" E";_t you were captured while climbing out!":  胨  () C @ "The rod was enchanted and doubles your strength!"MCC: mI(() ): I   "Sorry, but the chest was a trap...."DŽ "You were captu 387.83 V 0 , 407.22 V 0 , 427.58 V 0 , 3769.28 V -1 , 0 BOT 1 , 0 "____________________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "__red when you opened it!"ф  ();"L" "A mirror was in the chest..."<  "It will scare Gargamel if you meet him":N:v "Your mirror scared Gargamel and he ran away": T  z: HO$: I  : );: J  * GY$;a Revised for Osborne 1 by Jim Woolley, FOG Librarian, 7/82a,b REVISED SLIGHTLY BY WALLY MATTHEWS, POMONA, 6/83ibd (SOURCE UNKNOWN) EDITED SLIGHTLY BY D. KURLAND 11/6/75bn "WELCOME TO LAS VEGAS COMPUTER CASINO"bx "THE GAME IS BACCACH$(A(J,I));م4 J: GN$: I: EP$;GN$:> S nH "A giant eagle carried you to safety"7R: "You survived the forest"kW "You miserable ";S$;"! I'll get you one day!"؆\ "You won a treasure total of ";UY$;Q;UN$: "Congratulations":RAT" bH b xb A( ),C( ) c "ARE YOU READY? TYPE Y OR N" c X$ )c X$"NO" X$"N" n;c "WAGER"; EcD OcE Yc G nc GPC Z c G  c "HA!HA!, VERY FUNNY!!" c  c  B c c"A(B)(()4)c,C(B)A(B) (A(B) ) d6 C(B) X Jd@ C(B) J,^,r,,,,,,,,,: [dJ "ACE "; hdT l yd^ "DEUCE ";dh l dr "THREE ";d| l d "FOUh "I DO NOT WANT A CARD"hC() h $ h "I TAKE A CARD"i "THE CARD IS A "; i "+i$EEC()C() k "* OFFICIAL RULES FOR THE GAME OF BACCARAT *"!l "THE COMPUTER IS SHUFFLING SIX DECKS OF CARDS" Yl "TOGETHER. THE RULES ARE AS FOLLOWS: THE OBJECT" l "IS TO BE AS CLOSE TO POSSIBLE TO NINE IN TWO" l "OR THREE CARDS, FACE C gHDDC(B)gRBB g\  gf "THE CARD IS A "; gp " hz  'h "MY FIRST CARD IS A ";1h ">h < [h "MY NEXT CARD IS A "; eh "rh < h E hEE h  h E  ARDS AND TENS COUNT ZERO" m "ACES COUNT AS ONE EACH,ALL OTHER CARDS COUNT" 9m "THEIR INDEX VALUE. WHEN THE TOTAL IS OVER TEN" qm "THE TENS UNIT IS DROPPED. EXAMPLE: A SEVEN AND"m "A SIX TOTALING THIRTEEN COUNT AS THREE. THE" m   "PLAYER WITH THE HIGHER TOTAL WINS. IN CASE OF" n "A TIE, THE COMPUTER WINS! HOUSE LIMIT= $100,000"Fn "DO YOU UNDERSTAND THE RULES? Y OR N";Rn O$ pn O$"YES" O$"Y" n" "TOUGH LUCK" n, n6 "IT IS A TIE. THE COMPUTER WING MICROSOFT BASIC 5.0 ** 70 ' ** BY STEVE TURNER ** 80 ' ** 12/1/1981 ** 90 ' ****************************************** 100 PRINT CHR$(26) 110 PRINT STRING$(52,160) 120 PRINT 130 GOSUB NS!"n@  nJ "YOU ARE EVEN-UP !!" nT n^n" "TOUGH LUCK" n, n6 "IT IS A TIE. THE COMPUTER WIAND THE RULES? Y OR N";Rn O$ pn O$"YES" O$"Y" n" "TOUGH LUCK" n, n6 "IT IS A TIE. THE COMPUTER WI1590 140 PRINT TAB(18)"WORD SEARCH PUZZLE" 150 GOSUB 1600 160 PRINT STRING$(52,160) 170 PRINT:PRINT" THIS PROGRAM IS A WORD SEARCH PUZZLE GENERATOR" 180 PRINT"THE PROGRAM TAKES A SET OF WORDS, PURGES ALL NON-" 190 PRINT"ALPHABETIC CHARACTERS OUT OF 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "_________" 1 , 0 "____ THEM, AND INCORPORATES" 200 PRINT"THEM INTO A WORD SEARCH PUZZLE." 210 PRINT 220 PRINT" IN THE COURSE OF MAKING THE PUZZLE, THE COMPUTER" 230 PRINT"MAY FIND THAT IT CAN'T PUT A PARTICULAR WORD ANY-" 240 PRINT"WHERE, AND SO WILL ASK YOU IF IT SHOULD_____" 1 , 0 "_________" -1 , 0 BOT 1 , 0 "Taxes(@30%) " 0 , 75.00000000000001 V 0 , 176.5 V 0 , 161.24 V 0 , 271.31 V 0 , 317.94 V 0 , 364.33 V 0 , 410.69 V 0 , 457.2 V 0 , 504.07 V 0 , 551.46000000 START THE" 250 PRINT"WHOLE PUZZLE OVER.IF YOU DON'T WANT IT TO START OVER" 260 PRINT", ENTER 'NO', AND IT WILL THROW AWAY THAT PARTICULAR" 270 PRINT"WORD IF THIS PERSISTS, TRY EITHER GIVING LESS WORDS" 280 PRINT"OR BIGGER PUZZLE DIMENSIONS!" 290 PRIN10 ' ****************************************** 20 ' ** W O R D S E A R C H P U Z Z L E ** 30 ' ****************************************** 40 ' ** ADAPTED FROM CREATIVE COMPUTING ** 50 ' ** FOR THE OSBORNE 1 COMPUTER ** 60 ' ** USIT:PRINT STRING$(52,160) 300 PRINT 310 CLEAR 3000 320 DEF FNA(Z)=INT(RND(1)*Z+1) 330 INPUT"HOW MANY COLUMNS DOES YOUR PRINTER HAVE";TW 340 WIDTH LPRINT(TW) 350 INPUT"DO YOU WANT A SOLUTION PRINTOUT";X$ 360 INPUT"WHAT IS THE WIDTH OF THE PUZZLE";W:MD=  W 370 IF W*2<=TW THEN 390 380 PRINT"THAT WILL NOT FIT IN ";TW;" COLUMNS.":GOTO 360 390 IF W<1 THEN 360 400 INPUT"THE LENGTH OF THE PUZZLE WILL BE ";L:IF L>W THEN MD=L 410 IF L<1 THEN 400 420 PRINT " MAXIMUM NUMBER OF WORDS TO USE IN THE PUZZLE"; 43J=J+1:IF J<=LEN(T$) THEN 600 680 PRINT" - ";T$;" - " 690 IF LEN(T$)<=MD THEN 720 700 PRINT"THAT'S TOO LONG I'M AFRAID."; 710 PRINT"TRY ANOTHER ONE:":GOTO 560 720 FOR IZ=1 TO I-1:IF W$(IZ)<>T$ THEN NEXT:GOTO 740 730 PRINT"YOU ENTERED THAT ONE ALREADY.0 INPUT M 440 IF M>=2 THEN 460 450 PRINT"SORRY; THERE MUST BE AT LEAST 2 WORDS.":GOTO 420 460 PRINT:LPRINT 470 DIM A$(L,W),W$(M) 480 DIM W(M,3),DXY(8,2),DD(28) 490 PRINT"NOW ENTER A HEADING THAT WILL BE PRINTED OVER" 500 PRINT"THE PUZZLE";" (";TW;"  TRY ANOTHER:":GOTO 560 740 W$(I)=T$ 750 NEXT I 760 PRINT"THAT'S IT . . . ";M;" WORDS." 770 PRINT"NOW LET ME THINK HOW TO DO THIS PUZZLE " 780 FOR I=1 TO M-1 790 FOR J=I+1 TO M 800 IF LEN(W$(I))< LEN(W$(J)) THEN HZ$=W$(I):W$(I)=W$(J):W$(J)=HZ$ 810 CHARACTERS MAXIMUM ! )" 510 INPUT XY$ 520 PRINT"OK. . . ENTER A WORD AT EACH QUESTION MARK." 530 PRINT"TO REDO THE PREVIOUS WORD, TYPE A HYPHEN (-)." 540 PRINT"WHEN YOU RUN OUT OF WORDS, TYPE A PERIOD (.)." 550 FOR I=1 TO M 560 INPUT T$:IF T$="-" THENEXT:NEXT 820 FOR I=1 TO 8:READ DXY(I,1),DXY(I,2):NEXT 830 FOR I=1 TO 28:READ DD(I):NEXT 840 DATA 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 850 DATA 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7 860 FOR I=1 TO M 870 LN=LEN(W$(I)) 880 NT=0 890N I=I-1:PRINT"REDO ";W$(I);". . .":GOTO 560 570 IF T$="." THEN M=I-1:GOTO 770 580 IF LEN(T$)=0 THEN PRINT "INPUT ERROR; REDO:":GOTO 560 590 J=1 600 TE$=MID$(T$,J,1):IF TE$>="a" AND TE$<="z" THEN 670 610 IF TE$<"A" OR TE$>"Z" THEN 630 620 T$=LEFT$(T$, SD=DD(FNA(28)) 900 SX=FNA(W):X1=SX+(LN-1)*DXY(SD,1):IF X1<1 OR X1>W THEN 890 910 SY=FNA(L):X1=SY+(LN-1)*DXY(SD,2):IF X1<1 OR X1>L THEN 890 920 NT=NT+1:IF NT<>W*L*2 THEN 970 930 PRINT"COULD NOT FIT '";W$(I);"' IN THE PUZZLE." 940 INPUT"DO YOU WANT ME J-1)+CHR$(ASC(MID$(T$,J,1))+32)+RIGHT$(T$,LEN(T$)-J):GOTO 670 630 IF TE$=T$ THEN T$="":GOTO 580 640 IF J=LEN(T$) THEN T$=LEFT$(T$,J-1):GOTO 680 650 IF J=1 THEN T$=RIGHT$(T$,LEN(T$)-1):J=J-1:GOTO 670 660 T$=LEFT$(T$,J-1)+RIGHT$(T$,LEN(T$)-J):J=J-1 670 TO START OVER";A$ 950 IF LEFT$(A$,1)="Y" OR LEFT$(A$,1)="y" THEN 860 960 W$(I)="":GOTO 1050 970 J=SY:K=SX 980 FOR P=1 TO LN 990 IF LEN(A$(J,K)) AND A$(J,K)<> MID$(W$(I),P,1) THEN 890 1000 J=J+DXY(SD,2):K=K+DXY(SD,1):NEXT P 1010 J=SY:K=SX 1020 FOR P  =1 TO LN:A$(J,K)=MID$(W$(I),P,1) 1030 J=J+DXY(SD,2):K=K+DXY(SD,1):NEXT 1040 W(I,1)=SX:W(I,2)=SY:W(I,3)=SD 1050 NEXT I 1060 FOR I=1 TO L 1070 FOR J=1 TO W 1080 IF A$(I,J)="" THEN A$(I,J)=CHR$(FNA(26)+96) 1090 NEXT:NEXT 1100 FOR I=1 TO M-1:FOR J=I TOPRINT W$(J), 1420 LPRINT W$(J), 1430 NEXT:LPRINT:LPRINT:LPRINT:LPRINT 1440 RETURN 1450 IF LEFT$(X$,1)="Y" OR LEFT$(X$,1)="y" THEN 1470 1460 END 1470 REM 1480 FOR I=1 TO L:FOR J=1 TO W:A$(I,J)=".":NEXT J:NEXT I 1490 FOR I=1 TO M 1500 LN=LEN(W$(I)): M 1110 IF W$(I)<=W$(J) THEN 1140 1120 HZ$=W$(I):W$(I)=W$(J):W$(J)=HZ$ 1130 FOR K=1 TO 3:HZ=W(I,K):W(I,K)=W(J,K):W(J,K)=HZ:NEXT K 1140 NEXT J:NEXT I 1150 INPUT"HOW MANY COPIES OF THIS PUZZLE DO YOU WANT";N 1160 PRINT"FOR EACH COPY, HIT RETURN TO BEGIJ=W(I,2):K=W(I,1) 1510 FOR P= 1 TO LN 1520 A$(J,K)=MID$(W$(I),P,1) 1530 J=J+DXY(W(I,3),2):K=K+DXY(W(I,3),1):NEXT P 1540 NEXT I 1550 XY$="ANSWER KEY:" 1560 GOSUB 1180 1570 PRINT:PRINT 1580 END 1590 PRINT CHR$(27);")";:RETURN 1600 PRINT CHR$(27);"(N PRINTING..." 1170 FOR C=1 TO N:GOSUB 1180:NEXT:GOTO 1450 1180 INPUT A$:PRINT 1190 LPRINT:LPRINT 1200 T=(TW-2*W)/2:PRINT 1210 LPRINT 1220 PRINT 1230 LPRINT 1240 PRINT TAB(5);XY$ 1250 LPRINT TAB((TW-LEN(XY$))/2);XY$ 1260 PRINT 1270 LPRINT:LPRINT";:RETURN ="ANSWER KEY:" 1560 GOSUB 1180 1570 PRINT:PRINT 1580 END 1590 PRINT CHR$(27);")";:RETURN 1600 PRINT CHR$(27);"( I 1550 XY$="ANSWER KEY:" 1560 GOSUB 1180 1570 PRINT:PRINT 1580 END 1590 PRINT CHR$(27);")";:RETURN 1600 PRINT CHR$(27);"( 1280 FOR J=1 TO L: PRINT ; 1290 LPRINT TAB(T); 1300 FOR K=1 TO W:IF A$(J,K)="." THEN PRINT". ";:LPRINT ". ";:GOTO 1330 1310 PRINT CHR$(ASC(A$(J,K))-32);" "; 1320 LPRINT CHR$(ASC(A$(J,K))-32);" "; 1330 NEXT:PRINT:LPRINT:NEXT 1340 PRINT 1350 LPRINT:v4Copyright (C) 1983 BORLAND IncTelevideo 912/920/92= ()TERP<~7#~= o&ͦoͦc|ͣ}!!" LPRINT 1360 PRINT TAB(2)"FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE" 1370 LPRINT TAB(15)"FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE:" 1380 LPRINT 1390 FOR J=1 TO M:IF LEN(W$(J))=0 THEN 1430 1400 IF POS(0) + LEN(W$(J)) > TW-2 THEN LPRINT:PRINT 1410 ~#(}:8= +ͥ*!v-!pͥ*|!!:(=2!-: <2!~!!Y:jO:l:kO:m!ͥ*n! !i45(!+/ 0y0(   d!9-!I-[[o&  :(y ͠|( r*"x2y( >28!"9!!>2 0&+!0 [ (!ePWA8Q0G: x@!\w# j _}8(8J`9{T]=o`9y ?> w#a{ |e}nƐ'@'ý7||}>"C ""*B"[R*"^#V#^#V#N#FO/o&9O/o&9!9(x<8{(* !9O!T9^-l&!T9^~6#w!T9^K#^C#᯸( x # | }>$͙ >" 8# }>(́ x }} ˸T}ٕ(0D= ,= (  0% , 7 R ?(88 x  - > (G!9 w#EMw}8"RB0 >R 8˸x   ͠ ,-xG} }م 9 .>#n0  = - nx  ,-(-˸G,- }ٕ? 9.>R 88 ?= u+-(> 08  8R ?x  , 78ƀ8ƀ8ox٨!دoRR!+k = R!+k = !+k = !+k = !#k = !+k = T]KB!z> S>))0 = |  DMgo>jB0 7?= H<͡z5)<z {0GɯgoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨u xx( ?}ٽR }ց <( 7 = |٤g{٣_z٢Wy١Ox٠G 8͉ }x>"8}ƀ/ƀó ͙ - }|| }||/g}/o#}o&K[xAJSJDM!b"!6J"DM'oodo o} $yW0- ,}l˸k 8 ́ # x(͙ -k 8 -k 8, }l8;*!# ! >8# # 8---͙ ,,,-xGg?+2n*8t z~,->"x"$}.́  ,͙ ́ ! >,.-͙   o&0%͔,# ͙ }g }؉}颋.:}8c~I$I~L*.ٷx˸́ }0G,\<}͔,-(- ! >0 $# o8 Á >"m.`1pF,t6|!wS<.z}[|%FXc~ur1}ٯx(<˸k 8́ !~Jk Á @ >hìx-Sx9?+{Η@}|  gZJDM0 ,7}o˸ #yO!@9i&  #w#/w#w#!9! E9!!9~(+FM!"9!(#>20ͺO!Z>k 8 =  ͙ # ͙ ́ ͺ͙ 0 - OT0 j oD,:j !I}袋.}8c~I$I~L!>8# # ͙ # = Ù *u"|>":( E *6#w*6#6 !\$!u[ (W( #:~CONTRMKBDLSTAUXUSR>2ͭ*#~ u*:> >w###6Õ  #6++p>2Su:*6###ww#w$w#nf^VNF!DLT\I!!53!r1!!> x #-= o˸x(-͙ }(x>8( , `i!>"| | >)=|(DMbo˸y88yx(0 8> w: ͳ##N#F*B>w#w#[s#rò>2u*6 #-Nw#Fwq#p#6#w#w#w͞* :( Q: *^ F* < >26"~^*-w#x(>-q{(ay(oe z(>.q (o =e{>Eq>+|(|Dg>-q|/ 0:p# ~# +>0w#,-  60# ˸}րogM͇| .( = ~> x0w#xG% % ZJDM%ww#Ͳ^"~ <@*u!\  >2*|>! * \$\<(!: [1Á\!(f"́> 2:!"F = _~65(+~!"N>!~8>O6*"w (=(&("( :( 8y(~#ͽ7+ (6*#~́*#~ *~(h#"b=  8ͽ ̶J= B== ͯ}8= ͵}/l !*###~-_~(4  6*>2>*##w:>*##~*#~(E͋ ( ( ( ͕!] ( ( ((w#(͕́̕6!]~-#8~>7́ Õ͕>O*{͍̈́s #r*{/͍ d͋ ͕^#VS!9[R8[R>O"w2x2!"" ͵*>2"!"""!\u*: ͭ!~6go(\R*s#r_2x( s x(T]DMR0 -a%Ù}Wo*!~6o&͠|ͣ}^C (( #w(͕́̕q*#~ʶ (͕́ ͕ Õ*##~6[O*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46`>*:4^q}Q*|(|( 6-#Sy[R8 (G> QC~Q# User break1: I/O Run-time error e, PC=[R"` Program aborted*1!`!G2wͅs1"/!!4z3"'͚@!5*'R͔͇ *'͔v j"1*/*'+))*/*'+*ͳyC!' !+TRUEFALSEy!9^#~#(G~Q#> Q> Q "F!(#R0ͳ*4#4>R *4 #4(Ͳ>>2*V(/˖:(#~+ x y!t( =( X:(R*:(###~)*/*1+)*/*1+)!)*'#ç"#"%!}2!}2!!4z"1*%*1+)*&s*%*1+)*&s*&!E!}2*&!rE*&#}2*&!}2*1#Y*%͔!!zL}2!!-_-K< =>:("^"*^˞*V˖0 SѷR8A* N#F#s#r 0})jS\*###w* N#FB ^r+s>!T]>)j)0 0= zA}2*#*&)))*&)Ͷ*&#*&#!}2!!4z "1*&!Eʃ!}2Í*&#}2*%*1+)n&}2*%*1+)n&}2*#*&)))*&)*#*&)))*&)*&$R!#*^#V#N#F#^#V>">!2DM"~ʲx(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>>SѷR* s#r$ s#r*"[R0s#r>"[ͤͶ*1#^+ SPHEDICLNOTJQKA,6@ ('Q' to quit)North! 0!!zO!}2!*&!! *&)!0!!zD!}2*&!!)))*&)E9!*&! ^E  '!!& *&n&e.!09!*&!͵*&+÷ *&#r !!@West!!zO"}2!*&! ! *&)!0!!zD"}2*&!!)))*&)E9"*&! ^E!))) n&!͵@ points)""!!@ Contract: *͚*͚*n&!Q*n&!q}oEʛ&!}23Ý'*n&*s*n&!1!7.}o*n&!N$!S$!H$!D$!C$}o}oEʝ'!'"!& *&n&e.!09"*&!͵*&+÷!*&#r!!#!@East!!zO#}2!*&! ! *&)!0!!zD#}2*&!!)))*&)E9#*&! ^E!@"Re-enter contract (e.g. 3N, or 4H)! !*͚*͚!!͐*n&!Q*n&!q}oEʌ'!}23Ý'*n&*sé&"!}23!!@"Do you want to be N, S, E, or W ? !͚*&!N$!n'#!& *&n&e.!09#*&!͵*&+÷"*&#r"!!@South!!zP$}2!*&!! *&)!0!!zE$}2*&!!)))*&)E:$*&! ^E$!S$!s$!E$!e$!W$!w$!Q$!q$}oEg(@ Try again: !͚'!!͐*&WRʌ(wRM)*!))) *!)))*!))) *!)))*!))) *($!& *&n&e.!0:$*&!͵*&+ø#*&#s#"!!z&%}2!"!!z$}2! !z$}2*&**&)))*&)E$**&! R"*&#Ô$*&#$*!)))*!))) *!)))! * ;+NRa)nR-**!))) *!)))*!))) *!)))! *!))) *!)))*!)))*&))) *s*&#d$! !!(ͱ*!))) n&!͵@ points)!!!(ͱ*!))) n&!͵@ points)!(!!(ͱ*!))) n&!͵@ points)!!!(ͱ* *!)))! * ;+ERA*eR+*!))) *!)))*!))) *!)))*!))) *!)))*!))) *!)))! *   ;+SR+sR +* ;+QR4+qR;+!}23"*1!͇!!!͚!͚*&}2*&}2*&SR¥+*!sj,HR+*!sj,DR+*!sj,CR+*!sj,NR,}oE0!7!|!~͎,*:&*~&*9&*|^}oEP0!7!|!~͎,*8&!El0!}28v0*8&#}28*1#ú-*7&R£0!}28*z!"z0R·0!}280R0!}28*z!"z0R0!}28! !!@ *!sj,QR%,!}23j,!!@*The suit can only be S,H,D,or C. Re-enter.*<+*&e. 23456789TJQKA?*s"""*9&*s#r*:&*s*8&*s,WNES,!"z!"x!}28!!@ Contract:Contract: *5&ͱ*4&ͱ*x!"x!!@Plays/TricksLost:*x!͵!/ͱ*z!͵-r1k1!}236!g!;4!; !;Q$!5!4/&*3&!Eʺ1!;͞'*3&!E1!;Ϳ,!!͐@'Do you want to see anothe *5&ͱ*4&ͱ*x! rEk1!!@Play: *4&}24*4&SRb-!}2ï-HRv-!}2ï-DRŠ-!}2ï-CRž-!}2ï-NR¯-!}2!!z0"1*1!͇!͐!,*8&n&ͱ!*8&)))r deal (Y/N)? !6͚*6&!N*6&!n}oEs16rE!;Ϳ,!!͐@'Do you want to see anothe!;4!; !;Q$!5!4/&*3&!Eʺ1!;͞'*3&!E1!;Ϳ,!!͐@'Do you want to see anothe"!}2w!9<+!!͐*3&!E6.n1*1!$**&)i}o*:&*&$}oEʴ.!!͐@Follow suit! Re-enter, please.!}2w*9&**:&)}o*:&!}oE2/!!@-You dLAG IF REST OF LINE IS BLANK 1135 IF CW(J)+SUM>=LEN(L$) THEN FLAG = 1 1140 GOSUB 5000:REM ** IS S$ A 'STRING' OR 'NUMBER' 1170 SUM=SUM+CW(J):REM ** INCREMENT ACROSS ROW 1180 GOSUB 4000:REM ** OUTPUT DATA VALUES 1190 NEXT J 1195 PRon't have that card. Re-enter (e.g. H2).!}2w*w&}oE.**:&)**:&)*9&$ͲͶ*1!Eʛ/*:&}2!7!|!~͎,*~&*&*:&*&}o*9&*|^}oE/!7!|!~͎,*~&*&$*:&*&INT "ROW #";I-2;" COMPLETE" 1200 NEXT I 1210 T=-1:V#=0:S$="EOD":REM ** OUTPUT END OF DATA 1220 GOSUB 4000 1230 CLOSE 1240 PRINT"FINISHED CREATING DIF FILE ";G$ 1250 END 3000 REM ** ROUTINE TO WRITE OUT DIF HEADER 3010 PRINT#2,"TABLE":PRINT#2,"0,1":  GOSUB 3500 3020 PRINT#2,"TUPLES":PRINT#2,"0,";NT:GOSUB 3500 3030 PRINT#2,"VECTORS":PRINT#2,"0,";NV:GOSUB 3500 3040 PRINT#2,"DATA":PRINT#2,"0,0":GOSUB 3500 3050 RETURN 3500 REM ** SUBROUTINE TO WRITE "" (NULL STRING) 3510 PRINT#2,CHR$(34);CHR$(34) 35anatory. (Use Control-H to back- space.) Doug Cox FOG memberram. Run it from CP/M. When you get the A> prompt, print BRIDGE (or bridge) and press return. I think the game is self-expl20 RETURN 4000 REM ** ROUTINE TO WRITE OUT DATA VALUE 4010 PRINT #2,T;",";V# 4012 IF S$="BOT" OR S$="V" OR S$="EOD" THEN PRINT #2,S$:RETURN 4014 REM ** WRITE STRING TO DISK SURROUNDED BY QUOTES 4020 PRINT #2,CHR$(34)+S$+CHR$(34) 4030 RETURN 4040 END 5000 REM ** THIS SUBROUTINE DETERMINES WHETHER 5010 REM ** S$ IS A 'STRING' OR A 'NUMBER' 5012 REM ** IT IS ASSUMED THAT IF S$ 5014 REM ** CONTAINS ONLY NUMERIC VALUES 5015 REM ** OR A DECIMAL POINT AND IF THE 5016 REM ** CHARACTERS ARE TO THE 5018 REM ** RIGHTMOST PART OF THE STRING 5019 REM ** THEN S$ IS A NUMBER 5020 T=1:V#=0 5030 SS$=S$ 5040 C$=LEFT$(SS$,1) 5050 IF C$=" " THEN SS$=RIGHT$(SS$,LEN(SS$)-1):GOTO 5040 5055 IF SS$="" THEN S$="" :RETURN 5060 FLAGG=0 5070 FOR M=1 TO LEN(SS$) 50 Jan, '84 BRIDGE This is a simple play-against-yourself program. Run it from CP/M. When you get the A> prompt, print BRIDGE (or bridge) and press return. I think the game is self-expl  |6_(YXKP~M 1,S?A@BCDEPdx; q|GN0 J[wbmhLvf3,'&djgfmZJz;*wfpZy;1wT"?:,2eJi~O^h)M=POy/18/%<a~_(9i{ kY-z SIs ,"* |-R̕J-?zFGHIJKLNMOQPRSTVWUYZX+ W"[[}[X-"WΜH#n~VvR_DU#;_3qBX} W2jndnTFx~GosrѐJ~6/mZVS"ziauXqU$r%.z %YX+~Pz&z&~Pz&& ~,Գ_`\_һ1R.e ]+wKӻ1RL^6H~MްV ߰1B~,Գ_()&Y[DW򶒅r [SkbZSʳBIa:M~j LROL=mzfa,ga~v뙤#lIVƔGpn=px/m9/\mPRX+t?za<壷 ~PX,wx/EcDUpJX'"mm~WA'zӹQA,u`8sѻ_bmhL1%WA_bms|6_ WgnTK p +K쮕K9_bO=~W֋f1|՘Ec0[S[~$K$Kqp_;ޭ)yKKl򆅵de1MJcBI1Rܺ$򶒅r[SkbZSʳBIa:M~j LROL=mڛYGVM[S.}t%6yZw2|2Ƙ& %P~  d)n]B@m% kJ %{2Ŵ,g?6yn= u!Bv뙤zga,ga~v뙤#lIVƔGpn=p0[S[~<I%|z2\t~&oXX+NoX~d?/,ŭK+`y[ZD[SkbZSʳBIa:M~j x .2^z _2~d?/ʘr uu+?K %/jKg~$K$Kq :x:` Be^ ?X' ~M{36~MMwzg~zgӦM0POwT4OK^ zPO36f@=ZiM{iSLROL=m:,ZNYX+&B-3IߙGēޭ)z&/8`z2dBx/~^̜.zciz{~BIvqBI/ 37*w.:^_ҏzKl;*w irP J/ʿ14_(  vNİ u/n=SO~G)~zhu>x/\,˟~,iӦ8iSPOPOio -M{iaӦw;*XzZ烧BEXeX;*XzZ % ]]+N~$K4~+ lŸQGoK767*Go~BIpحg0~,Գ_"&Y[̷D`\Ԗ2n=V,Z,ga~E'.:dUD(/BISO~G,}\t踢/~d)n]p_;ޭ)rciEǟ/zxI%jneL SO?^-/,ŭKPv>[S.Ӧ8q'K%buI&neL liafO|e=CofmZwb~Pr)1QAl&'GBZwbKp0XgPRL.0[S.VL̰V'`1 EayčVanRzܨ Ji~PO%80v~d~cc1Rܺ$Bӻ1򑇯g|.jKE +cK-_țRY.]ij_(ُz %'V~P Yƾ/~ɰ2ND~trX;_39SjLb,V/.J)1d[EX/e5_(  ,ŭK"L~ޭ)7ZƐ-K 7BbuI$B \ԖR67*z&JvKw}WJ"i~W֋RM;Y Goa,qLa kc̏;1QAl3%f-Zwbms,MX+^=;*i~W֋Liiz{~ɨ8ƾ/1xPV]j[u*8;"m1LNy#,~E~$ߵ gDmZYV ,ŭK"L|>#G_(Rj;Y/]MEdta~XgPhk߉/ Yƾ/Ow"Bx^i`[/-YS荩i"U%.z %\/31L~ ]+N 8/,ŭK"L~IVƔ (pXS y3Z\ԖRYG̑Rϐz2]-rxx V#~Y Go÷wTpSc/{/z~I?/[`O;K/ ~d)n]aʘrW Z2v~gUirP JI%&|z2\F,/V߉ߏX+c % 0i/kw2|~}'&BZ ,ߵ;1F_(`)  }'GB %mq& cBbuYڙou\w>/л1e=Զ8 u~P@SO~G~XgP_T/N 8/QGoKims:_,ŭK"L|>#G_諶]+;rW xR,c-@w]ZNG&gLg~󮧥4QAl&UQV&BB=B-&Y[zZKd=<4|"%ke'u0l/tKVƔjݵ:6J΍ 4I%&|>#G_һ1"*5==G7 uLi-be~Em) o=\ǔz8Y-]Mg,3^~>Y-ZDK ,/tx+wE_<4_(z9 pjms,MX+~gPhaD|G~P{2\ q k徜*<wDвt~P^y'V~P4_諶) mnT壷L z"?:FY>zVuB-oJCofmZɑ]ij_|iҫl.B;Na~XgP k߉͍ b|6a R9xȁ` k BՖҬSX+;}B67*ۄkѷ/i) mnT壷LwZ0?z[6:P[^=/lւ`LaBՖҬSX+w-vBi) mnT壷 keA$"'"b X  b (3,A$);b Xb XAr u c XBXA XAc" XB, (c$ XB1c& XAVc2 Xq q : X, : Xec4 q, c6 Xr #r : X, : Xc8 r, c: X r t'|עo6졶z^جf-Z-͍ b|6aĬSX+wBi) mnT壷LwZ0?z[6졶z^جf-Z-QAN'QA~8 ɰFBxO9_ڲ]w^=omP@O?/ IZjL{r jL{r`HD_hqx/p|GN/P~}G c< X, : Xc> "u,c@ Xr #t  dB X, : XdD t,"dF T  -dH Z,X8dJ Z,X@dL T]dN TIME  d : TIMEkdO ( )dP X   : : XdR "'''''''''''''''''''By Jim HennessyNZjL{r jL{r`HD_hqx/0 ~P %ELii/,ŭK"L t>[S.yXVJ~GwTpDbu &:ޭ)QAVn5&=9Q'o5&=9p %4reue~O'",ԓr~_*2'me~/*]+N 8/W0/ESz(8:|GS''''''''''''''''''"dT TIME  : TIMEdd ei "'''''''''''''''''Ready to play (Y/N)";enANS$)exSSDe S  S [e ANS$"Y" re ANS$"N" |e ne SeMONYde:*********** BETTING ROU  TINE ***********e ()e X  : : Xe  );f "YOU HAVE $";MONY;" TO SPEND"fLf " How much of it do you want to bet"Rfbf );"$";lf BET~f":FIRST ROLLf,:  );"TO ROLL DICE, HIT SPACE BAR"f6Xng"j: "hit any key"j "to roll dice"jX$ $()kD1 ()kD2 ()"kR2 D1D26k ::ERASE Qk L ::1st DIE MOVEek ( : :DOTSk   ::2nd DIE MOVEk ( : :DOTSk  R2 Dk* R$$()f@:********** FIRST ROLL ***************fJD1 () gTD2 ()g^R1 D1D25gh H::TABLE DISPLAYQgr L::FIRST DIE MOVEcg| (::DOTS}g ::2nd DIE MOVEg TIME  : TIMEg " YOU ROLLED 2 Dk4 R2R1 k> lH:************** DISPLAY ROUTINES *************lR ()Cl\ Xp  y : X, : X^lf Xp  y plp Q X X}lz Q,l Ql XlD yl X"p y";R1gg R1 g R1  g R1  D h R1  D"h R1  D,h ^h:******************* WIN ******************thMONY MONY BETh TIME   : TIMEhh " **************  : X, : XlD yl X D DW : X, : Xm XD D : X, : Xm D,Dm Xz z : X, : X`m !p, : "p, |m p, : p, m !q, m  p, : p, :  q***"h " * YOU WON !!! *"h " *****************": ()i: " Play again? (Y/N)"i&X$ $();i0 X$"Y"  : oi::******************* LOSE *******************iDMONY MONY BETiNiS TIME   : TIMEiX,m X !q gq : X, : Xm  p, n X!p Zp : X, : X0n$ X { P{ : X,: XVn. X { { : X, : X\n8nB:************* FIRST DIE MOVEMENT *****************nLSTunV D  " =========="ib " YOU LOSE"il " ==========": ()jv "TRY AGAIN? (Y/N)"jX$$()/j X$"Y"  : bj:****************** POINT ******************j TIME   : TIMEj " the point is ";R1j " keep rolliST ST  : DIR$"FORWARD"n` nj Dot D ST ST :DIR$ "BACKWARDS"o~  o D4oDST : :olo:*************** DIE **********************zo D, o D, o D,: D, : D,: D,   o D,: D,o D, : D, : D, p D, : D, p D,6p DIR$"BACKWARDS" \p D, : D, : D , xp  D~, : D , ~pp D, : D, : D, p(:DOTSp2O MAIN PROGRAMt D, t DA, : DB, : DC, : DC, (u DE, : DF, : DG, : DG, Qu DC, : DG, : DJ, u& DH, : DI, : DJ, : DJ, u0 X  : DX, : Xu: D u xp< D1 pF D1 pP D1 pZ D1 , qd D1 Tqn D1 |1qxA: B :C JqE: F :G cqH: I :J iqrq:1q DA, : DB, : DC, q DE, : DF, : XuDDuuN uX ( )ub" "vl" ")vv" "Cv" "]v" "wv" "v" "v ( )vvv DG, q DH, : DI, : DJ, q q:2r DA, : DB, : DC, 4r DE, : DF, : DG, Wr DH, : DI, : DJ, ar r DA, : DB, : DC, r DE, : DF, : DG, r D ()v X  : : Xv  ); w "YOU ENDED THE GAME WITH $";MONY;".00"$w X   : : Xv" "]v" "wv" "v" "v ( )vvvH, : DI, : DJ, r" r, DA, : DB, : DC, s6 DE, : DF, : DG, =s@ DH, : DI, : DJ, GsJ jsT DA, : DB, : DC, s^ DE, : DF, : DG, sh DH, : DI, : DJ, ?(S7" | 7" ? 7"| 8"31) total deductions (sum lines 6 TO 30):D):8" |t8SUM(D23:D56)-D45+D46 1983 I8"|9"32) net profit or loss (1040 ln 12 & Sch SE):SAREA9" |n9D19- sr s| DA, : DB, : DC, t DE, : DF, : DG, #t DH, : DI, : DJ, )tItST (t : DIR$"FORWARD"StD1D2ot D ST  ST yt t DtDSTt t (t ::BACK TD57D56)9"*:'-:"|;"IF A LOSS, DO YOU HAVE AMOUNTS FOR WHICHSE):;"[ ] ;" YESSS, DO;"| YE<"YOU ARE NOT "AT RISK" IN THIS BUSINESS?SE):<"[ ]A<" NOE NOT "<"| NO=" (see instructions/form)BUSINES   DISK.DOC FOG/GAM.017 First Osborne Group (FOG) Games Disk CRAPS is a graphics version of the dice game contributed by Jim Hennessy. Also, see CRAPS on FOG/GAM.006 and 009. SMURF is a modifiich predicts your T/F input. TRANSLAT will translate input words into Cheyenne. VOCAB permits one to create a series of flashcards for testing purposes. This version is set up for English to Crow translation. These are MBASIC programs. Plaed version of MONSTER found on FOG/GAM.012 and on pp. 37 thru 44 of the June/July 1982 issue of Portable Companion. This one is perhaps better suited for young children. It was received from Detroit's DeFOG. The following files were submitted ce BAS files in drive A and MBASIC.COM in drive B. At the A> prompt, type B:MBASIC At the Ok prompt, type RUN "program" where program is the name of the program, which must be capitalized and surrounded by quotation marks. BRIDGE, subby Wally Matthews of Pomona, CA. BACCRRT is a modified version of the same program found on FOG/GAM.003. It is a baccarat game. CROSSPUZ will prepare a word search puzzle using words you supply. The following files were received from Stevenmitted by Doug Cox, is a bridge card game played against yourself. It was written using Turbo Pascal; the squeezed PQS source file may be unsqueezed using utilities found on FOG/UTL.003, 004, 014, and 031. To play, put BRIDGE.COM in drive A. A Dyk of Wollaston Lake, Saskatchewan. BATTLSHP requires sinking ships hidden in a square matrix by targeting one square after another. CAPITALS tests knowledge of state capitals. DARTS requires hitting a target on the screen. MATH is an arit the A> prompt, type BRIDGE Decide upon and enter the contract (e.g., 1N or 4H). To rotate the declarer around to South, enter his original position (e.g., N, E, S, or W). Play cards by entering a suit followed by a card (e.g., HQ or D7).thmetic drill. NUMBERSQ is similar to the game of moving tiles within a square matrix containing one missing tile until all tiles are in sequence. PIGLATIN will translate input phrases into pig latin. SMART is played against the computer, wh See BRIDGE.DOC for further information. This disk was first introduced into the library in preliminary form as FOG/GAM.XXX. It is now complete. Jim Woolley FOG Disk Librarian May 198  4 X. It is now complete. Jim Woolley FOG Disk Librarian May 198) DATEASS O "| DA ""C) COST/OTHER PROPER "| CO !"D) DEPREC.ER "| DE !"E) DEPREC.ER "| DE !"F) LIFEC.ER "| LI !"G) DEDUCT.ER "| DE '. DE "| DE " DE "| DE !" ACQR'D.ER "|ACQ !" BASISER&"TAXTMPL7...REV 84.RJS...1983 IRS FORM 4562 - 2 PAGES "|V 8 "|V 8 '-V 8 "|V 8 '-V 8 "|V 8)"FORM 4562 1983 "|RM )"FORM 4562 a ();" BATTLESHIP"b " by Ray Gordon",b " Copyright (C) 1979"Ub( " ALL RIGHTS RESERVED"cb2 : : b< " You have 50 attempts to sink 5 ships:"bF " 1 aircraft c 1983 "|RM )"DEPRECIATION & AMORTIZATION PAGE 1 "|PRE)"DEPRECIATION & AMORTIZATION PAGE 2 "|PRE '-PRE "|PRE '-arrier (5)"bP " 1 battleship (4)"bZ " 2 destroyers (3)"cd " 1 tin can (2)" cnZcx " Do not fire until instructed to enter locations."lc::::::c " Push SPACE BAR to go on.";c Z$c Z$"" PRE "|PRE!"NAME(S):ION "" ?MORTI!"SOC SEC NO-  " ? S "| S!"NAME(S):O- "" ?MORTI!"SOC SEC NO- J6T "| '- "| '- "|#"PART I - DEPRECIATIONATI c ()::c " BATTLESHIP"c!d " 1 2 3 4 5 6 7 8 9 0 1 2"g Lg I `g C(SI,R)-hg Iwg I  g J  g B(I,J)C(I,J) EXIT 810g I  kn );(@I);" ";kx J  l (A(I,J));" "; l Jl l I)l I  :l J  Yl A(I,J)X LLcl Jkl Il L "YOU WON": l L: HHl H0  Jg Ig T 4g  I g B(R,SI)C(R,SI)g  Ih* Rh4 I 0h> B(SI,R)C(SI,R)8hH IDhR DDSh\ I  dhf J  whp C(I,J)hz Jh Ih D bh O( )l l ()l );"1 2 3 4 5 6 7 8 9 0 1 2"m I  m" J  ,m, B(I,J)- @Jm6 A(I,J)* A(I,J)-Tm@ J\mJ IkmT I  m^  );(@I);" ";mh J  mr (A(I,J));"h P( )h Q()h Q h I i D(O,PI)-i Ii &i I :i D(PI,O)-Bi IQi I  bi J  i B(I,J)D(I,J) EXIT 1120i$ Ji. Ii8 Q jiB ";m| Jm m Imm ()n  );"1 2 3 4 5 6 7 8 9 0 1 2"n I  0 THEN 500 460 FOR I=1 TO S 470 READ S$ 480 READ C$ 490 NEXT I 500 PRINT:PRINT 510 PRINT " WHAT IS THE CAPITAL OF ";S$;"? " 520 PRINT 530 INPUT " ",R$ 540 IF C$=R$ THEN 670 550 PRINT : PRINT " Y  OU MISSED. TRY AGAIN. " 560 PRINT:PRINT " Press SPACE" 570 LET M=M+1 580 LET T=T+1 590 IF T=2 THEN GOSUB 820 600 IF T=4 THEN GOSUB 870 610 GOSUB 790 620 A$=INPUT$ (1) 630 GOTO 330 640 REM* * * * * * * * * * * * * * * * * * 650 RETICUTT","HARTFORD" 970 DATA "VIRGINIA","RICHMOND","W.VIRGINIA","CHARLESTON" 980 DATA "MARYLAND","ANNAPOLIS","NORTH CAROLINA","RALEIGH" 990 DATA "S.CAROLINA","COLUMBIA","FLORIDA","TALLAHASSEE" 1000 DATA "GEORGIA","ATLANTA","ALABAMA","MONTGOMERY" 1010 DM RESPONSE FOR CORRECT ANSWER 660 REM* * * * * * * * * * * * * * * * * * 670 PRINT : PRINT " CORRECT. TRY ANOTHER. " 680 PRINT 690 PRINT " Press SPACE" 700 PRINT 710 LET K=K+1 720 LET T=0 730 GOSUB 790 740 A$=IATA "ARKANSAS","LITTLE ROCK","MISSISSIPI","JACKSON" 1020 DATA "WASHINGTON","OLYMPIA"," NEW MEXICO","SANTA FE" 1030 DATA "NORTH DAKOTA","BISMARK","S.DAKOTA","PIERRE" 1040 DATA "IDAHO","BOISE","ILLINOIS","SPRINGFIELD" 1050 DATA "OHIO","COLUMBUS","INDIANANPUT$ (1) 750 GOTO 330 760 REM* * * * * * * * * * * * * * * * * * * * 770 REM DISPLAY SCORE 780 REM* * * * * * * * * * * * * * * * * * * * 790 PRINT 800 PRINT " SCORE: RIGHT:";K;" WRONG";M 810 RETURN 820 PRINT 830 LET F$=LEFT$","INDIANAPOLIS" 1060 DATA "IOWA","DES MOINES","KANSAS","TOPEKA" 1070 DATA "MISSOURI","JEFFERSON CITY","OKLAHOMA","OKLAHOMA CITY" 1080 DATA "COLORADO","DENVER","UTAH","SALT LAKE CITY" 1090 DATA "HAWAII","HONOLULU","ALASKA","JUNEAU" 1100 DATA "TEXAS","(C$,1) 840 PRINT " HERE'S A HINT. THE FIRST LETTER IS '";F$;"'"; 850 PRINT 860 RETURN 870 PRINT 880 PRINT " IT'S TOUGH. THE CAPITAL IS ";C$ 890 RETURN 900 REM* * * * * * * * * * * * * * * * * * * * * 910 REM ENTER DATA STATEMENTS HEREAUSTIN","LOUISIANA","BATON ROUGE" 1110 DATA "WISCONSIN","MADISON","MINNESOTA","ST. PAUL" 1120 DATA "MICHIGAN","LANSING","KENTUCKY","FRANKFORT" 1130 DATA "TENNESSEE","NASHVILLE","NEBRASKA","LINCOLN" 1140 DATA "MONTANA","HELENA","WYOMING","CHEYENNE" 115 920 REM* * * * * * * * * * * * * * * * * * * * * 930 DATA "MASSACHUSETTS","BOSTON","MAINE","AUGUSTA" 940 DATA "VERMONT","MONTPELIER","NEVADA","CARSON CITY" 950 DATA "NEW HAMPSHIRE","CONCORD","NEW YORK","ALBANY" 960 DATA "NEW JERSEY","TRENTON","CONNEC0 DATA "DELAWARE","DOVER","CALIFORNIA","SACRAMENTO" 1160 DATA "OREGON","SALEM","ARIZONA","PHOENIX" ,"WYOMING","CHEYENNE" 115CKY","FRANKFORT" 1130 DATA "TENNESSEE","NASHVILLE","NEBRASKA","LINCOLN" 1140 DATA "MONTANA","HELENA","WYOMING","CHEYENNE" 115  # "| $ "| $!" ? $ "| $!" ? $ "| $!" ? ? $ "| ? $!" ? ? $ "| ? $!" ?? $ "| $(F37*L37)/100)>5000$ "|$"" ?)/100$ "| $!" ? N18' "|( "|(!" ?,( "| (!" ?,( "| (!" ? ?,( "| ? (!" ? ?, ( "| ? (!" ??, ( "| ((F41*L41)/100>5000( "|(#"9) section B, line 4(PARTNER( "| $ "| ?$!" ? $ "| $!" ? $ "| $!" ? $ "| $!" ? $ "| ?$!" ? $ "| %#" c) 10-year propertyCOVERY % "|c) %!" ?-year % "| %!" ?ear % "| %!10 REM GAME OF DARTS 20 REM FROM MICROCOMPUTING MAY 79 30 REM MODIFIED FOR THE OSBORNE 1 40 REM BY RAY AND STEVE GORDON 50 REM 20-MAR-82 60 CLEAR:LET O=0 70 LET V=61440! 80 LET W=128 90 PRINT CHR$(26); 100 LET Q=V:LET D=V 11" ? ?ear % "| ? %!" ? ?ear % "| ? %!" ??ear % "| %(F38*L38)/100)>5000% "|% '.% "|..% '..% "|..% '..% "|..% '..% "|..% '..% "|..% '..% "|..% '..%0 PRINT:PRINT:PRINT 120 PRINT " * * * * * DART GAME * * * * *" 130 PRINT:PRINT 140 PRINT " TO PLAY, TYPE IN YOUR GUESS AS TO" 150 PRINT " THE EXACT POSITION OF THE * ." 160 PRINT 170 PRINT " FIRST GUESS THE  "|.& "|.&!" ?(&*& "| &!" ?(&*& "| &!" ? ?(&*& "| ? &!" ? ?(&* & "| ? &!" ??(&* & "| &(F39*L39)/100)>5000& "|&$"7) total column G, section C:YSTEM (& "| to&SPACES ACROSS" 180 PRINT " THE SCREEN FROM 1 TO 52. THEN" 190 PRINT " GUESS THE SPACES DOWN FROM 1 TO 24." 200 PRINT 210 PRINT 220 INPUT " TO START, ENTER 1: ",S 230 RANDOMIZE (RND) 240 IF S=1 THEN GOTO 260 250 LET O=0:SUM(AB13:AB37)>5000& "|' '.' "|..' '..' "|..' '..' "|..' '..' "|.. ' '.. ' "|.. ' '.. ' "|.. ' '..' "|.'&"8) section A, line 1 (PARTNERSHIPS ENTER ZERO):instr' "|>se'LET H=0 260 PRINT 270 INPUT " HOW MANY DARTS? ",N 280 FOR I= 1 TO N 290 POKE D,32: REM ERASE DART 300 POKE Q,32: REM ERASE TARGET 310 LET L=INT(RND*100) 320 IF L>24 THEN GOTO 310 330 LET C=INT(RND*100) 340 IF C>52 THEN GOT  O 330 350 LET Q=V+((L-1)*W)+C 360 PRINT CHR$(26); 370 POKE Q,42: REM PLACE TARGET 380 INPUT " TYPE POSITION ACROSS (1-52):",T 390 IF T>52 THEN GOTO 380 400 INPUT " TYPE POSITION DOWN (1-24):",U 410 IF U>24 THEN GOTO 400 420 LET D=V+((U-1)*W+(0 PRINT : PRINT 110 PRINT " 1. ADDITION" 120 PRINT " 2. SUBTRACTION" 130 PRINT " 3. MULTIPLICATION" 140 PRINT " 4. DIVISION" 150 PRINT:PRINT:PRINT:PRINT 160 INPUT " TYT-1)) 430 LET H=H+1 440 POKE D,89: REM PLACE DART 450 IF T-1=C THEN IF U=L THEN LET O=O+1 460 PRINT 470 PRINT " HITS = ";O 480 PRINT " ATTEMPTS = ";H 490 FOR J=1 TO 3000: REM TIME DELAY 500 NEXT J 510 NEXT I 5PE THE NUMBER: ",Z 170 RANDOMIZE X 180 ON Z GOTO 190,340,500,650 190 REM* * * * * * * * * * * * * * * * * * 200 REM* ADDITION ROUTINE 210 REM* * * * * * * * * * * * * * * * * * 220 GOSUB 830 230 GOSUB 970 240 PRINT: PRINT: PRINT: PRINT 250 20 PRINT CHR$(26):PRINT:PRINT:PRINT 530 INPUT " WANT TO PLAY ANOTHER?(1=YES,0=NO): ",R 540 IF R=1 GOTO 250 550 PRINT " GOODBYE, SEE YOU LATER." 560 END PUT " WANT TO PLAY ANOTHER?(1=YES,0=NO): ",R 540 IF R=1 GOTO 250 550 PRINT " PRINT " ";X;" + ";Y;" = "; 260 INPUT "",A 270 IF A=X+Y THEN GOSUB 1030 280 IF AX+Y THEN GOSUB 1210 300 GOSUB 910 310 IF B=1 THEN INPUT "",Z$:GOTO 190 320 INPUT "",Z$:GOSUB 830 330 GOTO 240 340 REM* *.!"%/PERIOD/*. "|PER.!" THIS YEAR/*. "|HIS/ "|HIS/!" ?EAR/*/ "| /!" ?R/*/ "| /!" ? ?R/*/ "| ? /!" ? ?R/* / "| ? /!" ??R/* / "| /(F48*L48)/100>5000/ "|/ '. * * * * * * * * * * * * * * * * 350 REM* SUBTRACTION ROUTINE 360 REM* * * * * * * * * * * * * * * * * * 370 GOSUB 830 380 GOSUB 970 390 PRINT:PRINT:PRINT:PRINT 400 IF Y>X THEN LET Z=X:X=Y:Y=Z 410 PRINT " ";X;" - ";Y;" = "; 410 REM* * * * * * * * * * * * * * * * * * 20 REM* MATH PROGRAM 30 REM* APRIL 26, 1981 40 REM* * * * * * * * * * * * * * * * * * 50 REM* 60 PRINT CHR$(26) 70 GOSUB 830 80 PRINT:PRINT:PRINT 90 PRINT " PICK WHICH KIND OF MATH" 1020 INPUT "",A 430 IF A=X-Y THEN GOSUB 1030 440 IF AX-Y THEN GOSUB 1210 460 GOSUB 910 470 IF B=1 THEN INPUT "",Z$:GOTO 340 480 INPUT "",Z$: GOSUB 830 490 GOTO 390 500 REM* * * * * * * * * * * * * * * * * * 510 REM*    MULTIPLICATION ROUTINE 520 REM* * * * * * * * * * * * * * * * * * 530 GOSUB 830 540 GOSUB 970 550 PRINT:PRINT:PRINT:PRINT 560 PRINT " ";X;" X ";Y;" = "; 570 INPUT "",A 580 IF A=X*Y THEN GOSUB 1030 590 IF AX*Y THEN GOSUB 1210 610 GOSUB 910 620 IF B=1 THEN INPUT "",Z$:GOTO 500 630 INPUT "",Z$: GOSUB 830 640 GOTO 550 650 REM* * * * * * * * * * * * * * * * * * 660 REM* DIVISION ROUTINE 670 REM* * * * * * * * * * * * * * * * * * 680 GO* * 1000 LET X=INT((RND(X))*10) 1010 LET Y=INT((RND)*10) 1020 RETURN 1030 REM* * * * * * * * * * * * * * * * * * 1040 REM* ANSWER IS CORRECT 1050 REM* * * * * * * * * * * * * * * * * * 1060 LET R=R+1: LET B=1 1070 PRINT:PRINT:PRINT:PRINT:PRINTSUB 830 690 GOSUB 970 700 IF X=0 THEN 690 710 IF Y=0 THEN 690 720 PRINT:PRINT:PRINT:PRINT 730 LET Z=X*Y 740 PRINT " ";Z;" / ";X;" = "; 750 INPUT "",A 760 IF A=Z/X THEN GOSUB 1030 770 IF AZ/X THEN G 1080 PRINT " RIGHT! YOU ARE CORRECT!!" 1090 PRINT 1100 PRINT " TYPE RETURN TO TRY ANOTHER"; 1110 RETURN 1120 REM* * * * * * * * * * * * * * * * * * 1130 REM* INCORRECT, TOO SMALL 1140 REM* * * * * * * * * * * * * * * * * *OSUB 1210 790 GOSUB 910 800 IF B=1 THEN INPUT "",Z$:GOTO 650 810 INPUT "",Z$: GOSUB 830 820 GOTO 720 830 REM* * * * * * * * * * * * * * * * * * 840 REM* DISPLAY TITLE 850 REM* * * * * * * * * * * * * * * * * * 860 PRINT CHR$(26);"  1150 LET W=W+1: LET B=0 1160 PRINT:PRINT:PRINT:PRINT:PRINT 1170 PRINT " YOUR ANSWER IS TOO SMALL." 1180 PRINT 1190 PRINT " PLEASE TRY AGAIN, TYPE RETURN"; 1200 RETURN 1210 REM* * * * * * * * * * * * * * * * * * 1220 REM*  LET'S DO MATH" 870 PRINT " RAY GORDON JR." 880 PRINT " COPYRIGHT (C) 1981" 890 PRINT " ALL RIGHTS RESERVED" 900 RETURN 910 REM* * * * * * * * * * * * * * * * * * 920 REM* DISPLAY SCORE 930 REM* * *INCORRECT, TOO BIG 1230 REM* * * * * * * * * * * * * * * * * * 1240 LET W=W+1: LET B=0 1250 PRINT:PRINT:PRINT:PRINT:PRINT 1260 PRINT " YOUR ANSWER IS TOO BIG" 1270 PRINT 1280 PRINT " PLEASE TRY AGAIN, TYPE RETURN"; 1290 RETURN   10 REM NUMBER SQUARE GAME 20 REM FROM MICROCOMPUTING JUNE 81 30 REM BY MARC I. LEAVY, M.D. 40 LET L=0 50 DIGITS=0 60 PRINT CHR$(26):PRINT:PRINT 70 PRINT " NUMBER SQUARES" 80 PRINT " --------------" 90 PRINT:PRINT 100 OTO 530 560 LET B(I1,J1)=B(I1-1,J1) 570 LET B(I1-1,J1)=16 580 LET I1=I1-1 590 GOTO 740 600 IF I1=4 GOTO 530 610 LET B(I1,J1)=B(I1+1,J1) 620 LET B(I1+1,J1)=16 630 LET I1=I1+1 640 GOTO 740 650 IF J1=1 GOTO 530 660 LET B(I1,J1)=B(I1,J1-1) 670 LET PRINT " WELCOME TO THE WORLD OF CONFUSION." 110 PRINT:PRINT 120 PRINT " THERE ARE TWO VERSIONS OF NUMBER SQUARES:" 130 PRINT:PRINT 140 PRINT " 1 - SEQUENTIAL" 150 PRINT " 2 - MAGIC SQUARE" 160 PRINT:PRINT:PRIB(I1,J1-1)=16 680 LET J1=J1-1 690 GOTO 740 700 IF J1=4 GOTO 530 710 LET B(I1,J1)=B(I1,J1+1) 720 LET B(I1,J1+1)=16 730 LET J1=J1+1 740 NEXT Q 750 REM 760 REM PRINT BOARD 770 REM 780 LET M9=0 790 REM OUTPUT A HOME SCREEN 800 PRINT CHR$(26) 810 NT 170 INPUT " WHICH WOULD YOU LIKE? ",T 180 IF T=1 GOTO 340 190 IF T<>2 GOTO 170 200 REM 210 REM SET UP MAGIC SQUARE BOARD 220 REM 230 REM 240 FOR I=1 TO 4 250 FOR J=1 TO 4 260 READ M(I,J) 270 LET B(I,J)=M(I,J) 280 NEXT J 290 NEXTPRINT:PRINT 820 PRINT " ---------------------" 830 FOR I=1 TO 4 840 PRINT " "; 850 FOR J=1 TO 4 860 PRINT ":"; 870 IF B(I,J)=16 THEN PRINT " ";:GOTO 900 880 IF B(I,J)<10 THEN PRINT " "; 890 PRINT B(I,J); 900 NEXT J 91 I 300 DATA 1,6,15,8,12,11,2,5,10,13,4,3,7,16,9,14 310 LET I1=4 320 LET J1=2 330 GOTO 470 340 REM 350 REM SET UP SEQUENTIAL BOARD 360 REM 370 REM 380 DIM B(4,4) 390 FOR I=1 TO 4 400 FOR J=1 TO 4 410 LET B(I,J)=(I-1)*4+J 420 NEXT J 430 NEXT I 0 PRINT ":" 920 PRINT " ";"---------------------" 930 NEXT I 940 REM 950 REM ERASE REST OF SCREEN AND BEEP 960 REM FOR INPUT 970 REM 980 PRINT CHR$(22);CHR$(7);CHR$(7); 990 REM 1000 REM INPUT MOVE 1010 REM 1020 PRINT:PRINT 1030 INP 440 LET I1=4 450 LET J1=4 460 REM 470 REM NOW SCRAMBLE THE BOARD 200 TIMES 480 REM 490 REM 500 PRINT:PRINT 510 PRINT " I AM NOW SCRAMBLING THE BOARD" 520 FOR Q=1 TO 200 530 LET M=INT(1+RND*4) 540 ON M GOTO 550,600,650,700 550 IF I1=1 GUT " MOVE WHICH PIECE? ",M 1040 LET I1=0:J1=0 1050 FOR I=1 TO 4 1060 FOR J=1 TO 4 1070 IF B(I,J)=M THEN I1=I:J1=J 1080 NEXT J 1090 NEXT I 1100 PRINT 1110 IF I1=0 THEN PRINT " I CAN'T FIND THAT NUMBER":GOTO 1000 1120 LET I  2=0:J2=0 1130 FOR I=I1-1 TO I1+1 1140 IF I>4 GOTO 1170 1150 IF I<1 GOTO 1170 1160 IF B(I,J1)=16 THEN I2=I:J2=J1:GOTO 1250 1170 NEXT I 1180 FOR J=J1-1 TO J1+1 1190 IF J>4 GOTO 1220 1200 IF J<1 GOTO 1220 1210 IF B(I1,J)=16 THEN I2=I1:J2=J:GOTO 1250  1220 NEXT J 1230 LET M9=M9+1 1240 PRINT " NOT A VALID MOVE":GOTO 1000 1250 LET B(I2,J2)=M 1260 LET B(I1,J1)=16 1270 ON T GOTO 1290,1400 1280 REM 1290 REM SEQUENTIAL SOLUTION 1300 REM 1310 LET C=0 1320 FOR I=1 TO 4 1330 FOR J=1 TO 10 REM PIG LATIN 20 REM FROM KILOBAUD MICROCOMPUTING 30 REM OCTOBER 1979 #34 P.162 40 REM WRITTEN BY KEN KLOSSON 50 REM ADAPTED FOR THE OSBORNE 1 60 REM BY RAY GORDON JR. 70 REM 80 REM LIST VOWELS AND ENDING CHARACTERS 90 F4 1340 IF B(I,J)M(I,J) GOTO 760 OR I=1 TO 5:READ V$(I): NEXT 100 DATA A,E,I,O,U 110 FOR I=1 TO 5:READ EC$(I): NEXT 120 DATA ".",";","?","!"," " 130 DIM L$(100): DIM P$(100): W3$="AY":CR$="#" 140 REM ADJUST SCREEN WIDTH 150 LET TW=52 160 PRINT CHR$(26) 170 PRINT:PRINT:PRINT 18 1470 NEXT J 1480 NEXT I 1490 REM 1500 REM A WIN IS DECLARED 1510 REM 1520 PRINT " THAT IS THE CORRECT SOLUTION" 1530 PRINT 1540 INPUT " LIKE TO PLAY ANOTHER GAME? ",I$ 1550 IF LEFT$(I$,1)="Y" THEN RUN 1560 END ORRECT SOLUTION" 150 PRINT TAB(19);"AUTOMATED" 190 PRINT 200 PRINT TAB(19);"LANGUAGE" 210 PRINT 220 PRINT TAB(18);"TRANSLATION" 230 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 240 PRINT TAB(18);"PIG LATIN" 250 PRINT:PRINT 260 PRINT " ENTER LINE TO BE TRANSLATED" 270 PRINT 280 REM GET INPUT 290 LET LC=-1:LET BW=1: INPUT L$ 300 REM READY FOR FULL TEXT? 310 IF L$="/" OR L$="?" THEN 590 320 REM CRLF 330 P$(N)=CR$:N=N+1 340 REM TAKE L$ ONE CHARACTER AT A TIME 350 FOR A=1 TO LEN (L$) 360 LET L1!  $=MID$(L$,A,1) 370 REM FIND FIRST VOWEL AND ENDING CHARACTER 380 FOR B=1 TO 5 390 IF L1$<>EC$(B) OR BW<>A THEN 410 400 LET BW=BW+1: P$(N-1)=P$(N-1)+L$:GOTO 470 410 IF LC<>-1 THEN 440 420 IF L1$=V$(B) THEN LC=A-BW 430 IF L1$="Y" AND A>BW THEN LC=A-BT CHR$(26) 240 RETURN 250 REM FIRST LE INPUTS FROM PLAYER 260 FOR I=1 TO LE 265 PRINT " TYPE IN A STRING OF FOUR USING ONLY T AND F " 270 GOSUB 310 280 MP(I)=CD 290 NEXT I 300 RETURN 310 REM INPUT 320 PRINT:PRINT " READY FOR NEXT TW 440 IF L1$=EC$(B) THEN EW=A: W4$=EC$(B):GOTO 500 450 NEXT B 460 IF A=LEN(L$) THEN EW=A+1: W4$=EC$(5):GOTO 500 470 NEXT A 480 PRINT:PRINT:PRINT:GOTO 290 490 REM TRANSLATE AND PRINT EACH INPUT 500 LET W$=MID$(L$,BW,EW-BW) 510 IF LC<1 THEN P$(N)=W OR F" 330 IP$=INKEY$: 332 IF IP$="T" THEN 340 334 IF IP$="F" THEN 340 ELSE 330 340 IF IP$="T" THEN CD=1:GOTO 360 350 IF IP$="F" THEN CD=0:GOTO 360 360 PRINT CHR$(26) 370 RETURN 380 REM LOCATION UPDATE 390 IF CD=1 THEN Q(LO,1)=Q(LO,1)+1:GOTO 410 $+W3$+W4$:GOTO 550 520 LET W1$=RIGHT$(W$,LEN(W$)-LC) 530 LET W2$=LEFT$(W$,LC) 540 LET P$(N)=W1$+W2$+W3$+W4$ 550 PRINT P$(N); 560 LET N=N+1:LET BW=EW+1: LET LC=-1 570 GOTO 470 580 REM FULL TEXT TRANSLATION 590 LET CC=0 600 FOR C=1 TO N-1 610 I 400 IF CD=0 THEN Q(LO,2)=Q(LO,2)+1 410 RETURN 420 REM LOCATION CALCULATION 430 A$="" 440 FOR I=1 TO LE 450 A$=A$+MID$(STR$(MP(I)),2) 460 NEXT I 470 LO=VAL(A$) 480 RETURN 490 REM MATCH-PATTERN UPDATE 500 FOR I=1 TO LE-1 510 MP(I)=MP(I+1) 520F P$(C)=CR$ THEN PRINT: GOTO 640 620 IF CC+LEN(P$(C))>TW THEN LET CC=0: PRINT 630 PRINT P$(C); 640 LET CC=CC+LEN(P$(C)) 650 NEXT C 660 IF L$="/" THEN 680 670 PRINT: GOTO 290 680 END LET CC=0: PRINT 630 PRINT P$(C); 640 LET CC=CC+LEN(P$(C)) 650  NEXT I 530 MP(LE)=CD 540 RETURN 550 REM PRINTING AND SCOREKEEPING 560 PRINT "YOU TYPED: ";IP$ 570 PRINT "COMPUTER WAS PREDICTING: "; 580 IF Q(LO,1)>Q(LO,2)THEN TF$="T":T=T+1:PRINT TF$:GOTO 630 590 IF Q(LO,2)>Q(LO,1)THEN TF$="F":F=F+10 REM* FROM KRUTCH, EXPERIMENTS IN AI 100 REM SUPERVISOR 110 GOSUB 190 120 GOSUB 250 130 GOSUB 310 140 GOSUB 550 150 GOSUB 380 160 GOSUB 490 170 GOSUB 420 180 GOTO 130 190 REM INITIALIZATION 200 RANDOMIZE 210 DIM Q(1111,2) 220 LE=4 230 PRIN1:PRINT TF$:GOTO 630 600 RAN=INT(RND*2) 605 IF RAN=0 THEN GOTO 600 610 IF RAN=1 THEN TF$="T":T=T+1:PRINT TF$ 620 IF RAN=2 THEN TF$="F":F=F+1:PRINT TF$ 630 IF TF$=IP$ THEN NC=NC+1 640 PRINT "TOTAL NUMBER OF ENTRIES: ";T+F 650 PRINT "NUMBER OF CORRE"  CT PREDICTIONS" 660 PRINT "BY THE COMPUTER: ";NC 670 PRINT "PERCENT OF CORRECT PREDICTIONS: " 680 PRINT INT(((NC/(T+F))*100)*10+.5)/10;"%" 690 RETURN  THE COMPUTER: ";NC 670 PRINT "PERCENT OF CORRECT PREDICTIONS: " 680 PRINT INT(((NC/(T+F))*100mer, song, fall, flute, star, d nighthawk, old man, old woman, fire,!e dirt, key, door, rug, shed, spoon,Oe Crow, Crows, Sioux, cloud, spring, hat,{e cap, grass, songs, knife, fish, fire,e shoe, frybread, corn, cloud, nose, eye,e tooth, teeth, ear, head, pemmican, animals,f mouse, mice, squirrel, chipmunk, cow, cowboy,0f Indian, sheep, goat, goats6fWf NOUN ENTRIES BEGIN AT 1000]f~f NOUN ENTRIES BEGIN AT 1000f SYNONYMS: priest/preacher, berries/chokecha English noun entries start on line 1000ab THE FOLLOWING ENGLISH NOUNS ARE IN FILE:?b( man, woman, animal, apple, arrow, car,kb2 baby, badger, bald eagle, ball, bear,b< beaver, bed, bee, beetle, belt, berries,bF bird, boat, boerries,f book/paper, spider/whiteman, spoon/beetleffJfTf^gh grg|gg Lg "**** CHEYENNE TRANSLATION PROGRAM ****"Rgg "----------------------------------------"gg "THIS COMPUTER KNOWS SOME CHEYEok, boy, bread, cat, chair,bP deer, desk, dog, duck, eagle, frog, girl,*cZ hawk, horse, house, meat, medicine, milk,Xcd moon, pencil, paper, pig, pipe, priest,cn preacher, rabbit, river, road, salt, pepper,cx shirt, shoes, skunk, snake, sNNE WORDS."g "IF YOU GIVE IT AN ENGLISH WORD, IT MAY"h "BE ABLE TO TRANSLATE IT INTO CHEYENNE."hOh "----------------------------------------"Uh[hlhv "*****************************************"h "THINK OF AN ENGLISH NOUN (now, soup,c spider, whiteman, sun, table, tent, tepee,d coffee, tea, tree, turtle, water, policeman,Kd teacher, doctor, church, store, winter,zd chokecherries, men, women, child, child,d antelope, coal, Cheyenne, Cheyennes,d sumA WORD SUCH AS"h "boy, dog, boat, etc.). TYPE YOUR WORD"i "WITH lower case (small) letters (BUT BEHi "SURE TO BEGIN A WORD WITH A CAPITAL"ti "LETTER IF IT NORMALLY STARTS WITH A"i "CAPITAL LETTER)--THEN PRESS RETURN."i "*******#  **********************************"iii "WHAT IS YOUR WORD?"j j  W$jj ;j REMARK LISTING ENDS APPROX. 170Rj W$"man"  ij W$"men"  j W$"bed"  j W$"telephone"  j W$"elephan" ^ n W$"old man" h n W$"cloud" r o W$"nose" | o W$"eye"  4o W$"tooth"  Mo W$"teeth"  do W$"ear"  |o W$"head"  o W$"spring"  o W$"summer" t"  j W$"wind"  j$ W$"window"  k. W$"Blackfoot"  %k8 W$"Blackfeet"  =kB W$"Cree"  XkL W$"Arapaho"  ukV W$"young man" ( k` W$"young woman" 2 kj W$"cow" < kt o W$"fall"  o W$"winter"  o" W$"song"  p, W$"woman"  ,p6 W$"women"  Ep@ W$"child"  apJ W$"antelope"  ypT W$"coal"  p^ W$"Cheyenne"  ph W$"Crow" &  W$"cowboy" F k~ W$"Indian" P k W$"sheep" Z l W$"goat" Z )l W$"goats" d El W$"pemmican" n `l W$"animals" x yl W$"mouse"  l W$"mice"  l W$"squirrel"  pr W$"animal" 0 p| W$"Cheyennes" : p W$"Crows" D q W$"Sioux" N /q W$"apple" X Hq W$"arrow" b _q W$"car" l wq W$"baby" v q W$"badger"  q W$"bald eagle"  l W$"chipmunk"  l W$"old woman"  l W$"hat"  m W$"cap"  -m W$"grass"  Fm  W$"songs"  _m W$"knife"  wm W$"fish"  m( W$"fire"  m2 W$"shoe"  m< Wq W$"ball"  q W$"bear"  q W$"beaver"  r W$"chokecherries"  1r W$"bee"  Kr W$"beetle"  cr W$"belt"  r W$"berries"  r& W$"bird"  r0 W$"boat" $"frybread"  mF W$"corn"  mP W$"dirt"  nZ W$"key"  "nd W$"door" " 9nn W$"rug" , Qnx W$"shed" 6 jn W$"spoon" @ n W$"flute" J n W$"star" T n W$"nighthawk r: W$"book"  rD W$"boy"  rN W$"bread"  sX W$"cat"  )sb W$"chair"  Asl W$"deer" * Ysv W$"desk" 4 ps W$"dog" > s W$"duck" H s W$"eagle" R s W$"fro$  g" \ s W$"girl" f s W$"hawk" p t W$"horse" z t W$"meat"  3t W$"house"  Ot W$"medicine"  gt W$"milk"  t W$"moon"  t W$"pencil"  t W$"paper" ane": x C$"hetaneo'o": x C$"$ee$esto.tse": y C$"aseeestsesto.tse": +y C$"tse'e.seesehe": Dy C$"haa'hae$e": ey C$"vo'na.hanesto.tse": y C$"Mo'o.htave.hahtatane": y C$"Vohkoohetane": y C$"H t  W$"pig"  t W$"pipe"  t  W$"priest"  u* W$"preacher"  1u4 W$"rabbit"  Ju> W$"river"  buH W$"road"  zuR W$"salt"  u\ W$"pepper" uf W$"shirt" etanevo'e": y( C$"ka.sovaahe": y2 C$"ka.se'eehe": z< C$"ve'ho'eotoa'a": 4zF C$"to.he'ke.sae-ve'ho'e": TzP C$"xamaa-vo'e.stane": hzZ C$"kosa": zd C$"ko.sane": zn C$"ame": zx C$"hovahne": z Cup W$"shoes" uz W$"skunk" $u W$"snake" .v W$"snow" 8(v W$"soup" BBv W$"spider" L^v W$"whiteman" Luv W$"sun" Vv W$"table" `v W$"tent" jv W$$"hohkeeheso": z C$"hohkeehesono": z C$"no'kee'e": { C$"ne$ke'esta": /{ C$"ma.htama.haahe": I{ C$"hohke.ha'e": d{ C$"mo'e'e.stse": { C$"nemeoto.tse": { C$"mot$e.$ke": { C$"noma'ne": "tepee" tv W$"coffee" ~v W$"tea" w W$"tree" "w W$"turtle" ;w W$"water" Xw W$"policeman" sw W$"teacher" w$ W$"doctor" w. W$"church" w8 W{ C$"ho'esta": { C$"mo'keha": | C$"vet$e.$keva.honoo'o": | C$"ma.haemeno.tse": 5| C$"he$e'ke": R| C$"ta'ta'o.heo'o": l|" C$"he'netoo'o": |, C$"seohaseo'o": |6 C$"ma.he$ko": |@ C$"hame$ko"$"store" wB wL wV w` wj wt w~ x "++++++++++++++++++++++++++++++++++"?x "I'M SORRY, I HAVEN'T LEARNED THAT"gx "CHEYENNE WORD YET. BE PATIENT."x "++++++++++++++++++++++++++++++++++" x x x C$"het: |J C$"ta.hpeno": |T C$"hotohke": |^ C$"pe'e": }h C$"ma'hahkeso": &}r C$"vo'e": <}| C$"ma'evo": R} C$"ma'exa": j} C$"vee'e.se": } C$"veeso.tse": } C$"ma.htovoo'o.tse": } C$"me'k%  o": } C$"matse'omeva": } C$"meaneva": ~ C$"tonoeva": ~ C$"aeneva": 1~ C$"nemeo'o.tse": E~ C$"he'e": \~ C$"he'eo'o": v~ C$"ka'e.$kone": ~ C$"vo'kaa'e": ~ C$"ho'ose": ~ C$"Ts"taa'e-e$e'he": 炶 C$"mo.xe'e.stonesto.tse":  C$"e$ko.seese-hotame":  C$"he'ohko": ? C$"ma'heone-ve'ho'e": W C$"vohkoohe": m C$"o'he'e":  C$"meo'o":  C$"vohpoma'o.htse": C$"mehmemetse.hestaestse": ~& C$"Ooetane": ~0 C$"hova": : C$"Tsetse.hesta.hese": +D C$"Ooetaneo'o": EN C$"Ho'ohomo'e": \X C$"ma'xeme": qb C$"maahe": l C$"ama.ho'hesto.tse": v C$"me'e.$evo.tse": eno.tse": ՃC$"estse'he": C$"mo'ke.hano.tse": $C$"xao'o": %.C$"$e'$enovo.tse": =8C$"hesta'se": RBC$"hohpe": iLC$"ve'ho'e": VC$"e$e'he": `C$"taxemese.hesto.tse": jC$"ve'ho C$"ma'hahko'e":  C$"voaxaa'e":  C$"hohtseme":  C$"nahkohe": & C$"homa'e": B C$"$ee$esto.tse": Y C$"hahnoma": p C$"hame$ko":  C$"hoestato":  C$"meno.tse":  C$"ve'kes'eome": քtC$"xamaa-vee'e": ~C$"mo'o.htave.-hohpe": C$"vehpotse-hohpe": 1C$"hoohtse.stse": GC$"ma'eno": \C$"mahpe": {C$"matanae-ve'ho'e": C$"vovestomosanehe": C$"naa'e-ve'ho'o": ˀ C$"semo":  C$"mo.xe'e.stoo'o":   C$"hetane-ka'e.$kone": & C$"kohkno.heo'o": ; C$"poeso": Z C$"taxe'seesto.tse": r* C$"vaotseva": 4 C$"tahoxe'e.stonesto.tse": > C$"oe$keso": e": ߅C$"ma'heone-eestse-ma.heo'o": C$"hohtova-ma.heo'o":   #)/(52;<AFGPMZSdYn_xekqw~  "ENGLISH ";W$;" IS CHEYENNE ";C$;"."ÁH C$"$e'$e": ؁R C$"netse": \ C$"oona.ha'e": f C$"he'e-ka'e.$kone": &p C$"aenohe": @z C$"mo'ehno'ha": ] C$"ho'evohko.tse": u C$"ma.heo'o":  C$"heseeo'o.tse":  C$"matana":  C$Ȇ ΆԆچ "WOULD YOU LIKE TO TRY AGAIN?" "2, "TYPE y OR n THEN PRESS RETURN."A6: MORE$G@]J MORE$"y" cTi^ohur{|&  Çʇ Їև "#################################"*& "THIS IS THE END. COME BACK AGAIN"S0 "SOMETIME. MAYBE I'LL LEARN SOME"t: "MORE WORDS BY NEXT TIME!"D "#################################"NX) E$ : ) Y$dh J R$Y$ : R$E$dr:: );d| G$d:#e G$R$ ) "RIGHT!": Ee:  ) "Should be '"R$;"'."Se::::_e  );e "CONTINUE OR QUIT ";A$e A$"" A$"Q" e A$"Q" 2e @e "I",#,"B:WORDS"e "O",#,"B:COPY"f () f #,E$f #,E$(f 1f #Af& "B:WORDS"Uf0 "ENGLISH ";E$gf: E$"" bxfD "CROW ";Y$fN #,E$;","; Y$fX: 0fb #fl "B:COPa * VOCABULARY DRILLa* DAN MIELKEa* MAY 1982b(*b2 ()b<::RbF );"THIS IS THE FLASHCARD FOR LANGUAGE PRACTICE"ZbP:bZ " SELECT THE FUNCTION"bd:bn  ) "(1) INITIALIZE (1ST TIMY" AS "B:WORDS"fv"ENGLISH ";E$gf: E$"" bxfD "CROW ";Y$fN #,E$;","; Y$fX: 0fb #fl "B:COP#Af& "B:WORDS"Uf0 "ENGLISH ";E$gf: E$"" bxfD "CROW ";Y$fN #,E$;","; Y$fX: 0fb #fl "B:COPE ONLY!)bx  ) "(2) PRACTICE FLASHCARD SERIES"c  ) "(3) ADD WORDS TO EXISTING LIST"$c  ) "(4) QUIT",c:Kc  ) "WHICH WILL IT BE";Sc P`c ()zc P ,,,,vc 2c "O",#,"B:WORDS"c "ENGLISH";E$c E$"" c "CROW ";Y$c #,E$;",";Y$cc d # d" 2!d, "I",#,"B:WORDS"Fd6 "GIVE ENGLISH(1) OR CROW(2)";Jxd@ () #: (): "END OF LIST": <dJ #,E$,Y$dT ()::::::d^ J '   --> FILE: -FOG/GAM.017 CRC = 00 00 --> FILE: /GAM#017.DOC CRC = 2F 57 --> FILE: BACCRRT .BAS CRC = D3 EE --> FILE: BATTLSHP.BAS CRC = 5C 6E --> FILE: BRIDGE .COM CRC = 95 19 --> FILE: BRIDGE .DOC CRC = CB E4 --> FILE: BRIDGE .PQS CRC = 90 DC --> FILE: CAPITALS.BAS CRC = E0 5B --> FILE: CRAPS .BAS CRC = AF 28 --> FILE: CROSSPUZ.BAS CRC = D5 09 --> FILE: DARTS .BAS CRC = DD 51 --> FILE: MATH .BAS CRC = BD 9D --> FILE: NUMBERSQ.BAS CRC = 76 8A --> FILE: PIGLATIN.BAS CRC = B0 BC --> FILE: SMART .BAS CRC = 8E 59 --> FILE: SMURF .BAS CRC = A1 CB --> FILE: TRANSLAT.BAS CRC = 0C 2A --> FILE: VOCAB .BAS CRC = 46 9A ---------------------> SUM OF CRCS = FB 34