IMD 1.16: 29/05/2007 18:32:26 FOGCPM.062 --FOGCPM06223-MATCHBASACEYDUCYBAS AMAZING BAS AMAZINGPBASANIMAL BASBACCRRT BAS!BAGELS BASBASKETBLBAS+ !"BATNUM BAS#$%BATTLE BASC&'()*+,-.BATTLSHPBAS"/0123BATTLSHPDOC4BLACKJCKBASI56789:;<=>BOMBARD BAS?@ABOMBSAWYBASBCDEBOUNCE BAS FGBOWLING BASHIJBOXING BASKLMNBUG BAS4OPQRSTUBULLFGHTBAS+VWXYZ[BULLSEYEBAS\]BUZZWORDBAS ^_CAPITALSBAS#`abcdCHANGE BAS efCHECKERSBASghijCHEMIST BAS klCHOMP BASmnoDARTS BASpqDARTS DOCrMATH BAS stuvNUMBERSQBASwxyzNUMBERSQDOC{PACMAN95COM|}~PACMAN95COM-06-00 86 PACMAN95DOCPIGLATINBASSMART BASSMART DOCTRANSLATBASeTRANSLATDOCVOCAB BASVOCAB DOC-CPM062 DOC+MENU BASMENU DOCThis is the disk name. AMAZINGPBAS ANIMAL BASBACCRRT BAS!BAGELS BASBASKETBLBAS+ BATNUM BAS!"#BATTLE BASC$%&'()*+,BATTLSHPBAS"-./01BATTLSHPDOC2BLACKJCKBASI3456789:;<BOMBARD BAS=>?BOMBSAWYBAS@ABCBOUNCE BAS DEBOWLING BASFGHBOXING BASIJKLBUG BAS4MNOPQRSBULLFGHTBAS+TUVWXYBULLSEYEBASZ[BUZZWORDBAS \]CAPITALSBAS#^_`abCHANGE BAS cdCHECKERSBASefghCHEMIST BAS ijCHOMP BASklmDARTS BASnoDARTS DOCpMATH BAS qrstMENU BASu100 REM -- MENU program by Jim Woolley, FOG Diak Librarian, 8/82 110 CLEAR 120 DEFINT I-N 130 DIM PROG$(41) 140 FMT$="##. &" 150 INPUT"Press for MENU",NBR 160 PRINT CHR$(26); 170 RESTORE 180 I=0 190 WHILE PROG$(I)<>"NOMOREDATA" 200 I=I+1:READ PROG$(I) 210 WEND 220 LAST=I-1:ILAST=LAST 230 IF ILAST>19 THEN ILAST=20 240 FOR I=1 TO ILAST 250 PRINT USING FMT$;I;PROG$(I); 260 J=20+I 270 IF J>LAST THEN PRINT ELSE PRINT TAB(25);:PRINT USING FMT$;J;PROG$(J) 280 NEXT I 290 PRINT 300 INPUT"Enter program number (0 to quit): ",NBR 310 IF NBR=0 THEN END 320 IF NBR<1 OR NBR>LAST THEN 300 330 RUN PROG$(NBR) 340 REM -- Enter program filenames as DATA statements 350 DATA 23-MATCH,ACEYDUCY,AMAZING,AMAZINGP,ANIMAL,BAGELS 360 DATA BASKETBL,BATNUM,BATTLE,BLACKJCK,BOMBARD,BOMBSAWY 370 DATA BOUNCE,BOWLING,BOXING,BUG,BULLFGHT,BULLSEYE,BUZZWORD 380 DATA CHANGE,CHECKERS,CHEMIST,CHOMP 998 REM -- Next line must be last DATA statement 999 DATA NOMOREDATA LSEYE,BUZZWORD 380 DATA CHANGE,CHECKERThe following MBASIC source code games are menu driven from the MBASIC program: MENU.BAS. 23-MATCH.BAS ACEYDUCY.BAS AMAZING.BAS AMAZINGP.BAS ANIMAL.BAS BAGELS.BAS BASKETBL.BAS BATNUM.BAS BATTLE.BAS BLACKJCK.BAS BOMBARD.BAS BOMBSAWY.BAS BOUNCE.BAS BOWLING.BAS BOXING.BAS BUG.BAS BULLFGHT.BAS BULLSEYE.BAS BUZZWORD.BAS CHANGE.BAS CHECKERS.BAS CHEMIST.BAS CHOMP.BAS To run, place MBASIC in drive A and this disk in drive B. At the A> prompt, type B: At the B> prompt, type A:MBASIC MENU If necessary, the MENU can be restarted. Following the Ok prompt, type RUN "MENU" The quotation marks are required. MENU $$$MENU DOCN1 RANDOMIZE 10 PRINT CHR$(26):WIDTH 80 20 PRINT TAB(31);"23 MATCHES":PRINT 30 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 40 PRINT:PRINT 80 PRINT " THIS IS A GAME CALLED '23 MATCHES'." 90 PRINT 100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE" 110 PRINT "MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE" 120 PRINT "THE LAST MATCH." 130 PRINT 140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES FIRST." 150 PRINT "IF IT COMES UP HEADS, I WILL WIN THE TOSS." 155 PRINT 160 REM 165 N = 23 170 Q = INT(2*RND(5)) 180 IF Q = 1 THEN 210 190 PRINT "TAILS! YOU GO FIRST. " 195 PRINT 200 GOTO 300 210 PRINT "HEADS! I WIN! HA! HA!" 220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!" 230 PRINT 250 PRINT "I TAKE 2 MATCHES." 260 N = N -2 270 PRINT "THE NUMBER OF MATCHES IS NOW" N;CHR$(8);"." 280 PRINT 290 PRINT "YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES." 300 PRINT "HOW MANY DO YOU WISH TO REMOVE"; 310 INPUT K 320 IF K > 3 THEN 430 330 IF K <= 0 THEN 430 340 N = N - K 350 PRINT "THERE ARE NOW";N;"MATCHES REMAINING.":PRINT 351 IF N = 4 THEN 381 352 IF N = 3 THEN 383 353 IF N = 2 THEN 385 360 IF N <= 1 THEN 530 370 Z = 4 - K 372 GOTO 390 380 PRINT 381 Z = 3 382 GOTO 390 383 Z = 2 384 GOTO 390 385 Z = 1 390 PRINT "MY TURN. I REMOVE";Z;:IF Z=1 THEN PRINT "MATCH." ELSE PRINT "MATCHES." 400 N = N - Z 410 IF N < = 1 THEN 470 420 GOTO 270 430 PRINT "VERY FUNNY! DUMMY!" 440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND?" 450 PRINT "NOW, HOW MANY MATCHES DO YOU WANT", 460 GOTO 310 470 PRINT 480 PRINT"YOU POOR BOOB! YOU TOOK THE LAST MATCH! I GOTCHA!!" 490 PRINT "HA! HA! I BEAT YOU!!!" 500 PRINT 510 PRINT "GOOD BYE, LOSER!" 520 GOTO 552 530 PRINT "YOU WON, FLOPPY EARS!" 540 PRINT "THINK YOU'RE PRETTY SMART!" 550 PRINT "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES OFF!!" 552 PRINT:PRINT 555 INPUT "DO YOU WANT TO TRY AGAIN";ANS$ 556 IF LEFT$(ANS$,1)="Y" THEN PRINT CHR$(26):GOTO 140 560 RUN "MENU" 570 END NT 555 INPUT "DO YOU WANT TO TRY AGAIN";ANS$ 5561 RANDOMIZE 5 WIDTH 80:PRINT CHR$(26) 10 PRINT TAB(26);"ACEY DUCEY CARD GAME":PRINT:PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 21 PRINT 22 PRINT 30 PRINT TAB(15);"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER: ":PRINT 40 PRINT TAB(15);"THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP." 50 PRINT TAB(15);"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING" 60 PRINT TAB(15);"ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE" 70 PRINT TAB(15);"A VALUE BETWEEN THE FIRST TWO.":PRINT 80 PRINT TAB(15);"IF YOU DO NOT WANT TO BET, INPUT A 0" 90 PRINT:PRINT 100 N=100 110 Q=100 120 PRINT "YOU NOW HAVE";Q;"DOLLARS." 130 PRINT 140 GOTO 260 210 Q=Q+M 220 GOTO 120 240 Q=Q-M 250 GOTO 120 260 PRINT"HERE ARE YOUR NEXT TWO CARDS: " 270 A=INT(14*RND(1))+2 280 IF A<2 THEN 270 290 IF A>14 THEN 270 300 B=INT(14*RND(1))+2 310 IF B<2 THEN 300 320 IF B>14 THEN 300 330 IF A>=B THEN 270 350 IF A<11 THEN 400 360 IF A=11 THEN 420 370 IF A=12 THEN 440 380 IF A=13 THEN 460 390 IF A=14 THEN 480 400 PRINT A 410 GOTO 500 420 PRINT"JACK" 430 GOTO 500 440 PRINT"QUEEN" 450 GOTO 500 460 PRINT"KING" 470 GOTO 500 480 PRINT"ACE" 500 IF B<11 THEN 550 510 IF B=11 THEN 570 520 IF B=12 THEN 590 530 IF B=13 THEN 610 540 IF B=14 THEN 630 550 PRINT B 560 GOTO 650 570 PRINT"JACK" 580 GOTO 650 590 PRINT"QUEEN" 600 GOTO 650 610 PRINT"KING" 620 GOTO 650 630 PRINT"ACE" 640 PRINT 650 PRINT 660 INPUT"WHAT IS YOUR BET";M 670 IF M<>0 THEN 680 675 PRINT"CHICKEN!!" 676 PRINT 677 GOTO 260 680 IF M<=Q THEN 730 690 PRINT"SORRY, MY FRIEND, BUT YOU BET TOO MUCH." 700 PRINT"YOU HAVE ONLY";Q;"DOLLARS TO BET." 710 GOTO 650 730 C=INT(14*RND(1))+2 740 IF C<2 THEN 730 750 IF C>14 THEN 730 760 IF C<11 THEN 810 770 IF C=11 THEN 830 780 IF C=12 THEN 850 790 IF C=13 THEN 870 800 IF C=14 THEN 890 810 PRINT C 820 GOTO 910 830 PRINT"JACK" 840 GOTO 910 850 PRINT"QUEEN" 860 GOTO 910 870 PRINT"KING" 880 GOTO 910 890 PRINT "ACE" 900 PRINT 910 IF C>A THEN 930 920 GOTO 970 930 IF C>=B THEN 970 950 PRINT"YOU WIN!!!" 960 GOTO 210 970 PRINT"SORRY, YOU LOSE." 980 IF M0 THEN 680 675 PRINT"CHICKEN!!" 676 PRINT 677 GOTO 260 680 IF M<=Q THEN 730 690 PRINT"SORRY, MY FRIEND, BUT YOU BET TOO MUCH." 700 PRINT"YOU HAVE ONLY";Q;"DOLLARS TO BET." 710 GOTO 650 730 C=INT(14*RND(1))+2 740 IF C<2 THEN 730 750 IF C>14 THEN 730 760 IF C<11 THEN 810 770 IF C=11 THEN 830 780 IF C=12 THEN 850 790 IF C=13 THEN 870 800 IF C=14 THEN 890 810 PRINT C 820 GOTO 910 830 PRINT"JACK" 840 GOTO 910 850 PRINT"QUEEN" 860 GOTO 910 870 PRINT"KING" 880 GOTO 910 890 PRINT "ACE" 900 PRINT 910 IF C>A THEN 930 920 GOTO 970 930 IF C>=B THEN 970 91 RANDOMIZE 5 WIDTH 80:PRINT CHR$(26) 10 PRINT TAB(28);"AMAZING PROGRAM" 12 PRINT:PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 PRINT " THIS PROGRAM GENERATES MAZES OF DIMENSIONS YOU SPECIFY." 42 PRINT "EVERY MAZE IS DIFFERENT, AND HAS ONLY ONE WAY THROUGH. THE" 44 PRINT "MAZE APPEARS ON THE TERMINAL CRT SCREEN. IF YOU WANT A PRINTED" 46 PRINT "MAZE, RUN THE 'AMAZINGP' PROGRAM INSTEAD OF THIS ONE.":PRINT:PRINT 100 INPUT "WHAT ARE YOUR WIDTH AND LENGTH (TWO NUMBERS SEPARATED BY A COMMA)";H,V 101 IF H>26 OR V>10 THEN PRINT: PRINT "MAZE WILL NOT FIT ON SCREEN. MAXIMUM WIDTH IS 25;": PRINT "MAXIMUM LENGTH IS 10. TRY AGAIN.":PRINT:PRINT:GOTO 100 102 IF H<>1 AND V<>1 THEN 110 104 PRINT:PRINT "MEANINGLESS DIMENSIONS. TRY AGAIN.":PRINT:PRINT:GOTO 100 110 DIM W(H,V),V(H,V) 120 PRINT 125 PRINT "THIS MAY TAKE A LITTLE WHILE." 130 PRINT 140 PRINT 150 PRINT 160 Q=0:Z=0:X=INT(RND(1)*H+1) 165 FOR I=1 TO H 170 IF I=X THEN 173 171 PRINT ".--";:GOTO 180 173 PRINT ". "; 180 NEXT I 190 PRINT "." 195 C=1:W(X,1)=C:C=C+1 200 R=X:S=1:GOTO 260 210 IF R<>H THEN 240 215 IF S<>V THEN 230 220 R=1:S=1:GOTO 250 230 R=1:S=S+1:GOTO 250 240 R=R+1 250 IF W(R,S)=0 THEN 210 260 IF R-1=0 THEN 530 265 IF W(R-1,S)<>0 THEN 530 270 IF S-1=0 THEN 390 280 IF W(R,S-1)<>0 THEN 390 290 IF R=H THEN 330 300 IF W(R+1,S)<>0 THEN 330 310 X=INT(RND(1)*3+1) 320 ON X GOTO 790,820,860 330 IF S<>V THEN 340 334 IF Z=1 THEN 370 338 Q=1:GOTO 350 340 IF W(R,S+1)<>0 THEN 370 350 X=INT(RND(1)*3+1) 360 ON X GOTO 790,820,910 370 X=INT(RND(1)*2+1) 380 ON X GOTO 790,820 390 IF R=H THEN 470 400 IF W(R+1,S)<>0 THEN 470 405 IF S<>V THEN 420 410 IF Z=1 THEN 450 415 Q=1:GOTO 430 420 IF W(R,S+1)<>0 THEN 450 430 X=INT(RND(1)*3+1) 440 ON X GOTO 790,860,910 450 X=INT(RND(1)*2+1) 460 ON X GOTO 790,860 470 IF S<>V THEN 490 480 IF Z=1 THEN 520 485 Q=1:GOTO 500 490 IF W(R,S+1)<>0 THEN 520 500 X=INT(RND(1)*2+1) 510 ON X GOTO 790,910 520 GOTO 790 530 IF S-1=0 THEN 670 540 IF W(R,S-1)<>0 THEN 670 545 IF R=H THEN 610 547 IF W(R+1,S)<>0 THEN 610 550 IF S<>V THEN 560 552 IF Z=1 THEN 590 554 Q=1:GOTO 570 560 IF W(R,S+1)<>0 THEN 590 570 X=INT(RND(1)*3+1) 580 ON X GOTO 820,860,910 590 X=INT(RND(1)*2+1) 600 ON X GOTO 820,860 610 IF S<>V THEN 630 620 IF Z=1 THEN 660 625 Q=1:GOTO 640 630 IF W(R,S+1)<>0 THEN 660 640 X=INT(RND(1)*2+1) 650 ON X GOTO 820,910 660 GOTO 820 670 IF R=H THEN 740 680 IF W(R+1,S)<>0 THEN 740 685 IF S<>V THEN 700 690 IF Z=1 THEN 730 695 Q=1:GOTO 830 700 IF W(R,S+1)<>0 THEN 730 710 X=INT(RND(1)*2+1) 720 ON X GOTO 860,910 730 GOTO 860 740 IF S<>V THEN 760 750 IF Z=1 THEN 780 755 Q=1:GOTO 770 760 IF W(R,S+1)<>0 THEN 780 770 GOTO 910 780 GOTO 1000 790 W(R-1,S)=C 800 C=C+1:V(R-1,S)=2:R=R-1 810 IF C=H*V+1 THEN 1010 815 Q=0:GOTO 260 820 W(R,S-1)=C 830 C=C+1 840 V(R,S-1)=1:S=S-1:IF C=H*V+1 THEN 1010 850 Q=0:GOTO 260 860 W(R+1,S)=C 870 C=C+1:IF V(R,S)=0 THEN 880 875 V(R,S)=3:GOTO 890 880 V(R,S)=2 890 R=R+1 900 IF C=H*V+1 THEN 1010 905 GOTO 530 910 IF Q=1 THEN 960 920 W(R,S+1)=C:C=C+1:IF V(R,S)=0 THEN 940 930 V(R,S)=3:GOTO 950 940 V(R,S)=1 950 S=S+1:IF C=H*V+1 THEN 1010 955 GOTO 260 960 Z=1 970 IF V(R,S)=0 THEN 980 975 V(R,S)=3:Q=0:GOTO 1000 980 V(R,S)=1:Q=0:R=1:S=1:GOTO 250 1000 GOTO 210 1010 FOR J=1 TO V 1011 PRINT "I"; 1012 FOR I=1 TO H 1013 IF V(I,J)<2 THEN 1030 1020 PRINT " "; 1021 GOTO 1040 1030 PRINT " I"; 1040 NEXT I 1041 PRINT 1043 FOR I=1 TO H 1045 IF V(I,J)=0 THEN 1060 1050 IF V(I,J)=2 THEN 1060 1051 PRINT ": "; 1052 GOTO 1070 1060 PRINT ":--"; 1070 NEXT I 1071 PRINT "." 1072 NEXT J 1073 RUN "MENU" =2 THEN 1060 1051 PRINT ": "; 1052 GOTO 1070 1060 PRINT ":--"; 1070 NEXT I 1071 PRINT "." 1072 NEXT J 1073 RUN "MENU" :V(R-1,S)=2:R=R-1 810 IF C=H*V+1 THEN 1010 815 Q=0:GOTO 260 820 W(R,S-1)=C 830 C=C+1 840 V(R,S-1)=1:S=S-1:IF C=H*V+1 THEN 1010 850 Q=0:GOTO 260 860 W(R+1,S)=C 870 C=C+1:IF V(R,S)=0 THEN 880 875 V(R,S)=3:GOTO 890 880 V(R,S)=2 890 R=R+1 900 IF C=10 WIDTH 80:PRINT CHR$(26) 20 PRINT TAB(28);"AMAZINGP PROGRAM" 30 PRINT:PRINT 40 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 50 PRINT:PRINT:PRINT 60 PRINT " THIS PROGRAM GENERATES MAZES OF DIMENSIONS YOU SPECIFY." 70 PRINT "EVERY MAZE IS DIFFERENT, AND HAS ONLY ONE WAY THROUGH. THE" 80 PRINT "MAZE APPEARS ON THE PRINTER. IF YOU WANT THE MAZE ON THE" 90 PRINT "CRT SCREEN, RUN THE 'AMAZING' PROGRAM INSTEAD OF THIS ONE.":PRINT:PRINT 100 INPUT "WHAT ARE YOUR WIDTH AND LENGTH (TWO NUMBERS SEPARATED BY A COMMA)";H,V 110 IF H>26 THEN PRINT:PRINT "TOO WIDE FOR 8 INCH PAPER. DO YOU HAVE 15 INCH": INPUT "PAPER IN THE PRINTER (Y OR N)";PP$ ELSE GOTO 120 112 IF LEFT$(PP$,1)="N" OR LEFT$(PP$,1)="n" THEN PRINT:GOTO 100 120 IF H<>1 AND V<>1 THEN 140 130 PRINT:PRINT "MEANINGLESS DIMENSIONS. TRY AGAIN.":PRINT:PRINT:GOTO 100 140 DIM W(H,V),V(H,V) 145 PRINT:LINE INPUT "HIT 'RETURN' WHEN PAPER IS POSITIONED: ";QQ$ 146 PRINT:PRINT:PRINT "--- Printing ---":PRINT:PRINT 150 LPRINT 160 LPRINT 170 LPRINT 180 LPRINT 190 Q=0:Z=0:X=INT(RND(1)*H+1) 200 FOR I=1 TO H 210 IF I=X THEN 230 220 LPRINT ".--";:GOTO 240 230 LPRINT ". "; 240 NEXT I 250 LPRINT "." 260 C=1:W(X,1)=C:C=C+1 270 R=X:S=1:GOTO 340 280 IF R<>H THEN 320 290 IF S<>V THEN 310 300 R=1:S=1:GOTO 330 310 R=1:S=S+1:GOTO 330 320 R=R+1 330 IF W(R,S)=0 THEN 280 340 IF R-1=0 THEN 670 350 IF W(R-1,S)<>0 THEN 670 360 IF S-1=0 THEN 500 370 IF W(R,S-1)<>0 THEN 500 380 IF R=H THEN 420 390 IF W(R+1,S)<>0 THEN 420 400 X=INT(RND(1)*3+1) 410 ON X GOTO 1010,1050,1090 420 IF S<>V THEN 450 430 IF Z=1 THEN 480 440 Q=1:GOTO 460 450 IF W(R,S+1)<>0 THEN 480 460 X=INT(RND(1)*3+1) 470 ON X GOTO 1010,1050,1160 480 X=INT(RND(1)*2+1) 490 ON X GOTO 1010,1050 500 IF R=H THEN 600 510 IF W(R+1,S)<>0 THEN 600 520 IF S<>V THEN 550 530 IF Z=1 THEN 580 540 Q=1:GOTO 560 550 IF W(R,S+1)<>0 THEN 580 560 X=INT(RND(1)*3+1) 570 ON X GOTO 1010,1090,1160 580 X=INT(RND(1)*2+1) 590 ON X GOTO 1010,1090 600 IF S<>V THEN 630 610 IF Z=1 THEN 660 620 Q=1:GOTO 640 630 IF W(R,S+1)<>0 THEN 660 640 X=INT(RND(1)*2+1) 650 ON X GOTO 1010,1160 660 GOTO 1010 670 IF S-1=0 THEN 860 680 IF W(R,S-1)<>0 THEN 860 690 IF R=H THEN 790 700 IF W(R+1,S)<>0 THEN 790 710 IF S<>V THEN 740 720 IF Z=1 THEN 770 730 Q=1:GOTO 750 740 IF W(R,S+1)<>0 THEN 770 750 X=INT(RND(1)*3+1) 760 ON X GOTO 1050,1090,1160 770 X=INT(RND(1)*2+1) 780 ON X GOTO 1050,1090 790 IF S<>V THEN 820 800 IF Z=1 THEN 850 810 Q=1:GOTO 830 820 IF W(R,S+1)<>0 THEN 850 830 X=INT(RND(1)*2+1) 840 ON X GOTO 1050,1160 850 GOTO 1050 860 IF R=H THEN 950 870 IF W(R+1,S)<>0 THEN 950 880 IF S<>V THEN 910 890 IF Z=1 THEN 940 900 Q=1:GOTO 1060 910 IF W(R,S+1)<>0 THEN 940 920 X=INT(RND(1)*2+1) 930 ON X GOTO 1090,1160 940 GOTO 1090 950 IF S<>V THEN 980 960 IF Z=1 THEN 1000 970 Q=1:GOTO 990 980 IF W(R,S+1)<>0 THEN 1000 990 GOTO 1160 1000 GOTO 1260 1010 W(R-1,S)=C 1020 C=C+1:V(R-1,S)=2:R=R-1 1030 IF C=H*V+1 THEN 1270 1040 Q=0:GOTO 340 1050 W(R,S-1)=C 1060 C=C+1 1070 V(R,S-1)=1:S=S-1:IF C=H*V+1 THEN 1270 1080 Q=0:GOTO 340 1090 W(R+1,S)=C 1100 C=C+1:IF V(R,S)=0 THEN 1120 1110 V(R,S)=3:GOTO 1130 1120 V(R,S)=2 1130 R=R+1 1140 IF C=H*V+1 THEN 1270 1150 GOTO 670 1160 IF Q=1 THEN 1220 1170 W(R,S+1)=C:C=C+1:IF V(R,S)=0 THEN 1190 1180 V(R,S)=3:GOTO 1200 1190 V(R,S)=1 1200 S=S+1:IF C=H*V+1 THEN 1270 1210 GOTO 340 1220 Z=1 1230 IF V(R,S)=0 THEN 1250 1240 V(R,S)=3:Q=0:GOTO 1260 1250 V(R,S)=1:Q=0:R=1:S=1:GOTO 330 1260 GOTO 280 1270 FOR J=1 TO V 1280 LPRINT "I"; 1290 FOR I=1 TO H 1300 IF V(I,J)<2 THEN 1330 1310 LPRINT " "; 1320 GOTO 1340 1330 LPRINT " I"; 1340 NEXT I 1350 LPRINT 1360 FOR I=1 TO H 1370 IF V(I,J)=0 THEN 1410 1380 IF V(I,J)=2 THEN 1410 1390 LPRINT ": "; 1400 GOTO 1420 1410 LPRINT ":--"; 1420 NEXT I 1430 LPRINT "." 1440 NEXT J 1445 LPRINT CHR$(12) 1450 RUN "MENU"  ": "; 1400 GOTO 1420 1410 LPRINT "0 1010 W(R-1,S)=C 1020 C=C+1:V(R-1,S)=2:R=R-1 1030 IF C=H*V+1 THEN 1270 1040 Q=0:GOTO 340 1050 W(R,S-1)=C 1060 C=C+1 10705 WIDTH 80:CLEAR 2000 6 PRINT CHR$(26) 10 PRINT TAB(33);"ANIMAL" 15 PRINT:PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT: PRINT: PRINT 40 PRINT "PLAY 'GUESS THE ANIMAL'" 45 PRINT 50 PRINT "Think of an animal and the computer will try to guess it." 55 PRINT "Type the word 'List' to see what animals the computer knows.":PRINT 60 PRINT 70 DIM A$(200) 80 FOR I=0 TO 3 90 READ A$(I) 100 NEXT I 110 N=VAL(A$(0)) 120 REM MAIN CONTROL SECTION 130 PRINT:INPUT "Are you thinking of an animal";A$ 135 IF LEFT$(A$,1)="N" OR LEFT$(A$,1)="n" THEN PRINT:PRINT:RUN "MENU" 140 IF A$="LIST" OR A$="List" OR A$="list" THEN 600 150 IF LEFT$(A$,1)<>"Y" AND LEFT$(A$,1)<>"y" THEN 120 160 K=1 170 GOSUB 390 180 IF LEN(A$(K))=0 THEN 999 190 IF LEFT$(A$(K),2)="\Q" THEN 170 200 PRINT "Is it a ";RIGHT$(A$(K),LEN(A$(K))-2); 210 INPUT A$ 220 A$=LEFT$(A$,1) 230 IF LEFT$(A$,1)="Y" OR LEFT$(A$,1)="y" THEN PRINT: PRINT "Why not try another animal?": GOTO 120 240 PRINT:INPUT "The animal you were thinking of was a ";V$ 250 PRINT:PRINT "Please type in a question that would distinguish a" 260 PRINT V$;" from a ";RIGHT$(A$(K),LEN(A$(K))-2);" :":PRINT 270 INPUT X$ 280 PRINT "For a ";V$;" the answer would be "; 290 INPUT A$ 300 A$=LEFT$(A$,1): IF A$<>"Y" AND A$<>"y" AND A$<>"N" AND A$<>"n" THEN 280 302 IF A$="y" THEN A$="Y" 304 IF A$="n" THEN A$="N" 310 IF A$="Y" THEN B$="N" 320 IF A$="N" THEN B$="Y" 330 Z1=VAL(A$(0)) 340 A$(0)=STR$(Z1+2) 350 A$(Z1)=A$(K) 360 A$(Z1+1)="\A"+V$ 370 A$(K)="\Q"+X$+"\"+A$+STR$(Z1+1)+"\"+B$+STR$(Z1)+"\" 380 GOTO 120 390 REM SUBROUTINE TO PRINT QUESTIONS 400 Q$=A$(K) 410 FOR Z=3 TO LEN(Q$) 415 IF MID$(Q$,Z,1)<>"\" THEN PRINT MID$(Q$,Z,1);: NEXT Z 420 INPUT C$ 430 C$=LEFT$(C$,1) 432 IF C$="y" THEN C$="Y" 434 IF C$="n" THEN C$="N" 440 IF C$<>"Y" AND C$<>"y" AND C$<>"N" AND C$<>"n" THEN 410 450 T$="\"+C$ 455 FOR X=3 TO LEN(Q$)-1 460 IF MID$(Q$,X,2)=T$ THEN 480 470 NEXT X 475 STOP 480 FOR Y=X+1 TO LEN(Q$) 490 IF MID$(Q$,Y,1)="\" THEN 510 500 NEXT Y 505 STOP 510 K=VAL(MID$(Q$,X+2,Y-X-2)) 520 RETURN 530 DATA "4","\QDoes it swim\Y2\N3\","\Afish","\Abird" 600 PRINT:PRINT "Animals I already know are:" 605 X=0 610 FOR I=1 TO 200 620 IF LEFT$(A$(I),2)<>"\A" THEN 650 624 PRINT TAB(15*X); 630 FOR Z=3 TO LEN(A$(I)) 640 IF MID$(A$(I),Z,1)<>"\" THEN PRINT MID$(A$(I),Z,1);: NEXT Z 645 X=X+1: IF X=4 THEN X=0: PRINT 650 NEXT I 660 PRINT 670 PRINT 680 GOTO 120 999 RUN "MENU" T MID$(A$(I),Z,1);: NEXT Z 645 X=X+1: IF X=4 THEN X=0+V$ 370 A$(K)="\Q"+X$+"\"+A$+STR$(Z1+1)+"\"+B$+STR$(Z1)+"\" 380 GOTO 120 390 REM SUBROUTINE TO PRINT QUESTIONS 400 Q$=A$(K) 410 FOR Z=3 TO LEN(Q$) 415 IF MID$(Q$,Z,1)<>"\" THEN PRINT MID$(Q$,Z,1);: NEXT Z 420 INPUT C$ 430 C$=LEFT$(C$,1) 432 IF C$="y" THEN C$="Y" 434 IF C$="n" THEN C$="N" 440 IF C$<>"Y" AND C$<>"y" AND C$<>"N" AND C$<>"n" THEN 410 450 T$="\"+C$ 455 FOR X=3 TO LEN(Q$)-1 460 IF MID$(Q$,X,2)=T$ THEN 480 470 NEXT X 475 STOP 480 FOR Y=X+1 TO LEN(Q$) 490 IF MID$(Q$,Y,1)="\" T1 REM Revised for Osborne 1 by Jim Woolley, FOG Librarian, 7/82 2 RANDOMIZE 10 REM REVISED SLIGHTLY BY WALLY MATTHEWS, POMONA, 6/83 100 REM (SOURCE UNKNOWN) EDITED SLIGHTLY BY D. KURLAND 11/6/75 110 PRINT "WELCOME TO LAS VEGAS COMPUTER CASINO" 120 PRINT "THE GAME IS BACCARAT" 130 H=0 140 GOSUB 1400 150 DIM A(10),C(10) 160 PRINT "ARE YOU READY? TYPE Y OR N" 170 INPUT X$ 180 IF X$="NO" OR X$="N" THEN 1390 190 PRINT "WAGER"; 200 D=0 210 E=0 220 INPUT G 230 IF G>100000! THEN 1370 240 IF G>0 THEN 270 250 PRINT "HA!HA!, VERY FUNNY!!" 260 GOTO 190 270 B=1 280 GOTO 740 290 A(B)=INT(RND(1)*52)+1 300 C(B)=A(B)-13*INT(A(B)/13) 310 IF C(B)=0 THEN 600 320 ON C(B) GOTO 330,350,370,390,410,430,450,470,490,510,540,570 330 PRINT "ACE "; 340 GOTO 620 350 PRINT "DEUCE "; 360 GOTO 620 370 PRINT "THREE "; 380 GOTO 620 390 PRINT "FOUR "; 400 GOTO 620 410 PRINT "FIVE "; 420 GOTO 620 430 PRINT "SIX "; 440 GOTO 620 450 PRINT "SEVEN "; 460 GOTO 620 470 PRINT "EIGHT "; 480 GOTO 620 490 PRINT "NINE "; 500 GOTO 620 510 PRINT "TEN "; 520 C(B)=0 530 GOTO 620 540 PRINT "JACK "; 550 C(B)=0 560 GOTO 620 570 PRINT "QUEEN "; 580 C(B)=0 590 GOTO 620 600 PRINT "KING "; 610 C(B)=0 620 IF INT(A(B)/13)<>A(B)/13 THEN 640 630 ON A(B)/13 GOTO 660,680,700,720 640 IF INT(A(B)/13)=0 THEN 660 650 ON INT(A(B)/13)GOTO 680,700,720 660 PRINT "OF CLUBS" 670 RETURN 680 PRINT "OF DIAMONDS" 690 RETURN 700 PRINT "OF SPADES" 710 RETURN 720 PRINT "OF HEARTS" 730 RETURN 740 PRINT "YOUR FIRST CARD IS A "; 750 GOSUB 290 760 GOSUB 1310 770 PRINT "YOUR NEXT CARD IS A "; 780 GOSUB 290 790 GOSUB 1310 800 PRINT "DO YOU WANT A CARD? Y OR N"; 810 INPUT J$ 820 IF J$="YES" OR J$="Y" THEN 870 830 C(3)=0 840 D=D+C(B) 850 B=B+1 860 GOTO 900 870 PRINT "THE CARD IS A "; 880 GOSUB 290 890 GOSUB 1310 900 PRINT "MY FIRST CARD IS A "; 910 GOSUB 290 920 GOSUB 1340 930 PRINT "MY NEXT CARD IS A "; 940 GOSUB 290 950 GOSUB 1340 960 IF E<10 THEN 990 970 E=E-10 980 GOTO 960 990 IF E<6 THEN 1030 1000 PRINT "I DO NOT WANT A CARD" 1010 C(6)=0 1020 GOTO 1060 1030 PRINT "I TAKE A CARD" 1040 PRINT "THE CARD IS A "; 1050 GOSUB 290 1060 E=E+C(6) 1070 IF D<10 THEN 1100 1080 D=D-10 1090 GOTO 1070 1100 PRINT "YOUR TOTAL IS";D 1110 IF E<10 THEN 1140 1120 E=E-10 1130 GOTO 1110 1140 PRINT "MY TOTAL IS ";E 1150 IF D=E THEN 1590 1160 IF D>E THEN 1200 1170 PRINT "I WIN $"G 1180 G=-G 1190 GOTO 1210 1200 PRINT "YOU WIN $";G 1210 H=H+G 1220 IF H>0 THEN 1290 1230 IF H=0 THEN 1610 1240 PRINT "YOU OWE ME $";-H 1250 PRINT "DO YOU WANT TO TRY AGAIN? Y OR N"; 1260 INPUT K$ 1270 IF K$="NO" OR K$="N" THEN 1390 1280 GOTO 190 1290 PRINT "I.O.U. $";H 1300 GOTO 1250 1310 D=D+C(B) 1320 B=B+1 1330 RETURN 1340 E=E+C(B) 1350 B=B+1 1360 RETURN 1370 PRINT "HOUSE LIMIT IS $100000" 1380 GOTO 190 1390 PRINT "BYE" 1395 STOP 1400 PRINT "DO YOU WANT THE RULES OF THE GAME? Y OR N"; 1410 INPUT I$ 1420 IF I$="NO" OR I$="N" THEN RETURN 1430 PRINT "* OFFICIAL RULES FOR THE GAME OF BACCARAT *" 1440 PRINT "THE COMPUTER IS SHUFFLING SIX DECKS OF CARDS" 1450 PRINT "TOGETHER. THE RULES ARE AS FOLLOWS: THE OBJECT" 1460 PRINT "IS TO BE AS CLOSE TO POSSIBLE TO NINE IN TWO" 1470 PRINT "OR THREE CARDS, FACE CARDS AND TENS COUNT ZERO" 1480 PRINT "ACES COUNT AS ONE EACH,ALL OTHER CARDS COUNT" 1490 PRINT "THEIR INDEX VALUE. WHEN THE TOTAL IS OVER TEN" 1500 PRINT "THE TENS UNIT IS DROPPED. EXAMPLE: A SEVEN AND" 1510 PRINT "A SIX TOTALING THIRTEEN COUNT AS THREE. THE" 1520 PRINT "PLAYER WITH THE HIGHER TOTAL WINS. IN CASE OF" 1530 PRINT "A TIE, THE COMPUTER WINS! HOUSE LIMIT= $100,000" 1540 PRINT "DO YOU UNDERSTAND THE RULES? Y OR N"; 1550 INPUT O$ 1560 IF O$="YES" OR O$="Y" THEN RETURN 1570 PRINT "TOUGH LUCK" 1580 RETURN 1590 PRINT "IT IS A TIE. THE COMPUTER WINS!" 1600 GOTO 1170 1610 PRINT "YOU ARE EVEN-UP !!" 1620 GOTO 1250 1630 END  1590 PRINT "IT IS A TIE. THE COMPUTER WINS!" 1600 GOTO 1ETURN 1430 PRINT "* OFFICIAL RULES FOR THE GAME OF BACCARAT *" 1440 PRINT "THE COMPUTER IS SHUFFLING SIX DECKS OF CARDS" 1450 PRINT "TOGETHER. THE RULES ARE AS FOLLOWS: THE OBJECT" 1460 PRINT "IS TO BE AS CLOSE TO POSSIBLE TO NINE IN TWO" 1470 PRINT "OR THREE CARDS, FACE CARDS AND TENS COUNT ZERO" 1480 PRINT "ACES COUNT AS ONE EACH,ALL OTHER CARDS COUNT" 1490 PRINT "THEIR INDEX VALUE. WHEN THE TOTAL IS OVER TEN" 1500 PRINT "THE TENS UNIT IS DROPPED. EXAMPLE: A SEVEN AND" 1510 PRINT "A SIX TOTALING THIRTEEN COUNT AS THREE. THE" 1520 PRINT "PLAYER WITH THE HIGHER TOTAL WINS. IN CASE OF" 1530 PRINT "A TIE, THE COMPUTER WINS! HOUSE LIMIT= $100,000" 1540 PRINT "DO YOU UNDERSTAND THE RULES? Y OR N"; 1550 INPUT O$ 1560 IF O$="YES" OR O$="Y" THEN RETURN 1570 PRINT "TOUGH LUCK" 1580 RETURN 1590 PRINT "IT IS A TIE. THE COMPUTER WINS!" 1600 GOTO 11 RANDOMIZE 3 PRINT CHR$(26) 5 PRINT TAB(33);"BAGELS":PRINT 10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY":PRINT:PRINT 15 REM *** BAGLES NUMBER GUESSING GAME 20 REM *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE 25 REM *** LAWRENCE HALL OF SCIENCE, U.C. BERKELY 30 DIM A1(6),A(3),B(3) 40 Y=0:T=255 50 PRINT:PRINT:PRINT 70 INPUT "WOULD YOU LIKE THE RULES (YES OR NO)";A$ 90 IF LEFT$(A$,1)="N" OR LEFT$(A$,1)="n" THEN 150 100 PRINT:PRINT "I AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS" 110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:" 120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION" 130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" 140 PRINT " BAGELS - NO DIGITS CORRECT" 150 FOR I=1 TO 3 160 A(I)=INT(10*RND(1)) 165 IF I-1=0 THEN 200 170 FOR J=1 TO I-1 180 IF A(I)=A(J) THEN 160 190 NEXT J 200 NEXT I 210 PRINT:PRINT "O.K. I HAVE A NUMBER IN MIND." 220 FOR I=1 TO 20 230 PRINT "GUESS #";I, 240 INPUT A$ 245 IF LEN(A$)<>3 THEN 630 250 FOR Z=1 TO 3:A1(Z)=ASC(MID$(A$,Z,1)):NEXT Z 260 FOR J=1 TO 3 270 IF A1(J)<48 THEN 300 280 IF A1(J)>57 THEN 300 285 B(J)=A1(J)-48 290 NEXT J 295 GOTO 320 300 PRINT "WHAT?" 310 GOTO 230 320 IF B(1)=B(2) THEN 650 330 IF B(2)=B(3) THEN 650 340 IF B(3)=B(1) THEN 650 350 C=0:D=0 360 FOR J=1 TO 2 370 IF A(J)<>B(J+1) THEN 390 380 C=C+1 390 IF A(J+1)<>B(J) THEN 410 400 C=C+1 410 NEXT J 420 IF A(1)<>B(3) THEN 440 430 C=C+1 440 IF A(3)<>B(1) THEN 460 450 C=C+1 460 FOR J=1 TO 3 470 IF A(J)<>B(J) THEN 490 480 D=D+1 490 NEXT J 500 IF D=3 THEN 680 505 IF C=0 THEN 545 520 FOR J=1 TO C 530 PRINT "PICO "; 540 NEXT J 545 IF D=0 THEN 580 550 FOR J=1 TO D 560 PRINT "FERMI "; 570 NEXT J 580 IF C+D<>0 THEN 600 590 PRINT "BAGELS"; 600 PRINT 605 NEXT I 610 PRINT "OH WELL." 615 PRINT "THAT'S TWNETY GUESSES. MY NUMBER WAS";100*A(1)+10*A(2)+A(3) 620 GOTO 700 630 PRINT "TRY GUESSING A THREE-DIGIT NUMBER.":GOTO 230 650 PRINT "OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND" 660 PRINT "HAS NO TWO DIGITS THE SAME.":GOTO 230 680 PRINT "YOU GOT IT!!!":PRINT 690 Y=Y+1 700 INPUT "PLAY AGAIN (YES OR NO)";A$ 720 IF LEFT$(A$,1)="Y" OR LEFT$(A$,1)="y" THEN 150 730 IF Y=0 THEN 750 740 PRINT:PRINT "A";Y;"POINT BAGELS BUFF!!" 750 PRINT "HOPE YOU HAD FUN. BYE." 999 RUN "MENU" EN 150 730 IF Y=0 THEN 750 740 PRINT:PRINT "A";Y;"POINT BAGELS BUFF!!" 75 410 400 C=C+1 410 NEXT J 420 IF A(1)<>B(3) THEN 440 430 C=C+1 440 IF A(3)<>B(1) THEN 460 450 C=C+1 460 FOR J=1 TO 3 470 IF A(J)<>B(J) THEN 490 480 D=D+1 490 NEXT J 500 IF D=3 THEN 680 505 IF C=0 THEN 545 520 FOR J=1 TO C 530 PRINT "PICO "; 540 NEXT J 545 IF D=0 THEN 580 550 FOR J=1 TO D 560 PRINT "FERMI "; 570 NEXT J 580 IF C+D<>0 THEN 600 590 PRINT "BAGELS"; 600 PRINT 605 NEXT I 610 PRINT "OH WELL." 615 PRINT "THAT'S TWNETY GUESSES. MY NUMBER WAS";100*A(1)+10*A(2)+A(3) 620 GOTO 700 630 PRINT "TRY GUESSING A THREE-DIGIT NUMBER.":GOTO 230 650 PRINT "OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND0 RANDOMIZE 1 PRINT CHR$(26):WIDTH 80 5 PRINT TAB(31);"BASKETBALL":PRINT 7 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 8 PRINT:PRINT:PRINT 10 PRINT "THIS IS PRINCETON COLLEGE BASKETBALL. YOU WILL BE PRINCETON" 20 PRINT "CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOWS: 1. LONG" 30 PRINT "(30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. LAY UP;" 40 PRINT "4. SET SHOT.":PRINT 60 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE AS" 70 PRINT "FOLLOWS: 6. PRESS; 6.5 MAN-TO MAN; 7. ZONE; 7.5 NONE." 72 PRINT "TO CHANGE DEFENSE, JUST TYPE 0 AS YOUR NEXT SHOT.":PRINT 76 INPUT "YOUR STARTING DEFENSE WILL BE";D:IF D<6 THEN 2010 79 PRINT 80 INPUT "CHOOSE YOUR OPPONENT";O$ 90 PRINT:PRINT 370 PRINT "CENTER JUMP" 390 IF RND(1)> 3/5 THEN 420 400 PRINT O$;" CONTROLS THE TAP." 410 GOTO 3000 420 PRINT "PRINCETON CONTROLS THE TAP." 425 PRINT 430 INPUT "YOUR SHOT";Z 440 P=0 445 IF Z<>INT(Z) THEN 455 446 IF Z<0 OR Z>4 THEN 455 447 GOTO 460 455 PRINT "INCORRECT ANSWER. RETYPE  IT. ";:GOTO 430 460 IF RND(1)<.5 THEN 1000 480 IF T<100 THEN 1000 490 PRINT 491 IF S(1)<>S(0) THEN 510 492 PRINT:PRINT " ***** END OF SECOND HALF *****":PRINT 493 PRINT "SCORE AT END OF REGULATION TIME:" 494 PRINT " PRINCETON:";S(1);" ";O$;":";S(0) 495 PRINT 496 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD" 499 T=93 500 GOTO 370 510 PRINT " ***** END OF GAME *****" 515 PRINT "FINAL SCORE: PRINCETON:";S(1);" ";O$;":";S(0) 520 RUN "MENU" 600 PRINT 610 PRINT " *** TWO MINUTES LEFT IN THE GAME ***" 620 PRINT 630 RETURN 1000 ON Z GOTO 1040,1040 1030 GOTO 1300 1040 T=T+1 1041 IF T=50 THEN 8000 1042 IF T=92 THEN 1046 1043 GOTO 1050 1046 GOSUB 600 1050 PRINT "JUMP SHOT" 1060 IF RND(1)>.341*D/8 THEN 1090 1070 PRINT "SHOT IS GOOD." 1075 GOSUB 7000 1085 GOTO 3000 1090 IF RND(1)>.682*D/8 THEN 1200 1100 PRINT "SHOT IS OFF TARGET." 1105 IF D/6*RND(1)>.45 THEN 1130 1110 PRINT "PRINCETON CONTROLS THE REBOUND." 1120 GOTO 1145 1130 PRINT "REBOUND TO ";O$ 1140 GOTO 3000 1145 IF RND(1)>.4 THEN 1158 1150 GOTO 1300 1158 IF D=6 THEN 5100 1160 PRINT "BALL PASSED BACK TO YOU. "; 1170 GOTO 430 1180 IF RND(1)>.9 THEN 1190 1185 PRINT "PLAYER FOULED, TWO SHOTS." 1187 GOSUB 4000 1188 GOTO 3000 1190 PRINT "BALL STOLEN. ";O$;"'S BALL." 1195 GOTO 3000 1200 IF RND(1)>.782*D/8 THEN 1250 1210 PRINT "SHOT IS BLOCKED. BALL CONTROLLED BY "; 1230 IF RND(1)>.5 THEN 1242 1235 PRINT "PRINCETON." 1240 GOTO 430 1242 PRINT O$;"." 1245 GOTO 3000 1250 IF RND(1)>.843*D/8 THEN 1270 1255 PRINT "SHOOTER IS FOULED. TWO SHOTS." 1260 GOSUB 4000 1265 GOTO 3000 1270 PRINT "CHARGING FOUL. PRINCETON LOSES BALL." 1280 GOTO 3000 1300 T=T+1 1301 IF T=50 THEN 8000 1302 IF T=92 THEN 1304 1303 GOTO 1305 1304 GOSUB 600 1305 IF Z=0 THEN 2010 1310 IF Z>3 THEN 1700 1320 PRINT "LAY UP." 1330 IF 7/D*RND(1)>.4 THEN 1360 1340 PRINT "SHOT IS GOOD. TWO POINTS." 1345 GOSUB 7000 1355 GOTO 3000 1360 IF 7/D*RND(1)>.7 THEN 1500 1370 PRINT "SHOT IS OFF THE RIM." 1380 IF RND(1)>2/3 THEN 1415 1390 PRINT O$;" CONTROLS THE REBOUND." 1400 GOTO 3000 1415 PRINT "PRINCETON CONTROLS THE REBOUND." 1420 IF RND(1)>.4 THEN 1440 1430 GOTO 1300 1440 PRINT "BALL PASSED BACK TO YOU."; 1450 GOTO 430 1500 IF 7/D*RND(1)>.875 THEN 1600 1510 PRINT "SHOOTER FOULED. TWO SHOTS." 1520 GOSUB 4000 1530 GOTO 3000 1600 IF 7/D*RND(1)>.925 THEN 1630 1610 PRINT "SHOT BLOCKED. ";O$;"'S BALL." 1620 GOTO 3000 1630 PRINT "CHARGING FOUL. PRINCETON LOSES THE BALL." 1640 GOTO 3000 1700 PRINT "SET SHOT." 1710 GOTO 1330 2010 INPUT "YOUR NEW DEFENSIVE ALLIGNMENT IS";D 2030 IF D<6 THEN 2010 2040 GOTO 425 3000 P=1 3005 T=T+1 3008 IF T=50 THEN 8000 3012 GOTO 3018 3015 GOSUB 600 3018 PRINT 3020 Z1=10/4*RND(1)+1 3030 IF Z1>2 THEN 3500 3040 PRINT "JUMP SHOT." 3050 IF 8/D*RND(1)>.35 THEN 3100 3060 PRINT "SHOT IS GOOD." 3080 GOSUB 6000 3090 GOTO 425 3100 IF 8/D*RND(1)>.75 THEN 3200 3105 PRINT "SHOT IS OFF RIM." 3110 IF D/6*RND(1)>.5 THEN 3150 3120 PRINT "PRINCETON CONTROLS THE REBOUND." 3130 GOTO 425 3150 PRINT O$;" CONTROLS THE REBOUND." 3160 IF D=6 THEN 5000 3165 IF RND(1)>.5 THEN 3175 3168 PRINT "PASS BACK TO ";O$;" GUARD." 3170 GOTO 3000 3175 GOTO 3500 3200 IF 8/D*RND(1)>.9 THEN 3310 3210 PRINT "PLAYER FOULED. TWO SHOTS." 3220 GOSUB 4000 3230 GOTO 425 3310 PRINT "OFFENSIVE FOUL. PRINCETON'S BALL." 3320 GOTO 425 3500 IF Z1>3 THEN 3800 3510 PRINT "LAY UP." 3520 IF 7/D*RND(1)>.413 THEN 3600 3530 PRINT "SHOT IS GOOD." 3540 GOSUB 6000 3550 GOTO 425 3600 PRINT "SHOT IS MISSED." 3610 GOTO 3110 3800 PRINT "SET SHOT." 3810 GOTO 3520 4000 REM FOUL SHOOTING 4010 IF RND(1)>.49 THEN 4050 4020 PRINT "SHOOTER MAKES BOTH SHOTS." 4030 S(1-P)=S(1-P)+2 4040 GOSUB 6010 4041 RETURN 4050 IF RND(1)>.75 THEN 4100 4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE." 4070 S(1-P)=S(1-P)+1 4080 GOTO 4040 4100 PRINT "BOTH SHOTS MISSED." 4110 GOTO 4040 5000 IF RND(1)>.75 THEN 5010 5005 GOTO 3165 5010 PRINT "BALL STOLEN. EASY LAY UP FOR PRINCETON." 5015 GOSUB 7000 5030 GOTO 3000 5100 IF RND(1)>.6 THEN 5120  5110 GOTO 1160 5120 PRINT "PASS STOLEN BY ";O$;" EASY LAYUP." 5130 GOSUB 6000 5140 GOTO 425 6000 S(0)=S(0)+2 6010 PRINT "SCORE: ";S(1);"TO";S(0) 6020 RETURN 7000 S(1)=S(1)+2 7010 GOSUB 6010 7020 RETURN 8000 PRINT:PRINT " ***** END OF FIRST HALF *****":PRINT 8010 PRINT "SCORE: PRINCETON:";S(1);" ";O$;":";S(0) 8015 PRINT 8016 PRINT 8020 GOTO 370 9999 RUN "MENU" L.413 THEN 3600 3530 PRINT "SHOT IS GOOD." 3540 GOSUB 6000 3550 GOTO 425 3600 PRINT "SHOT IS MISSED." 3610 GOTO 3110 3800 PRINT "SET SHOT." 3810 GOTO 3520 4000 REM FOUL SHOOTING 4010 IF RND(1)>.49 THEN 4050 4020 PRINT "SHOOTER MAKES BOTH SHOTS." 4030 S(1-P)=S(1-P)+2 4040 GOSUB 6010 4041 RETURN 4050 IF RND(1)>.75 THEN 4100 4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE." 4070 S(1-P)=S(1-P)+1 4080 GOTO 4040 4100 PRINT "BOTH SHOTS MISSED." 4110 GOTO 4040 5000 IF RND(1)>.75 THEN 5010 5005 GOTO 3165 5010 PRINT "BALL STOLEN. EASY LAY UP FOR PRINCETON." 5015 GOSUB 7000 5030 GOTO 3000 5100 IF RND(1)>.6 THEN 5120  5 PRINT CHR$(26) 10 PRINT TAB(33);"BATNUM":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 110 PRINT " This program is a 'Battle of Numbers' game, where the" 120 PRINT "computer is your opponent." 130 PRINT 140 PRINT " The game starts with an assumed pile of objects. You" 150 PRINT "and your opponent alternately remove objects from the pile." 160 PRINT "Winning is defined in advance as taking the last object or" 170 PRINT "not. You can also specify some other beginning conditions." 180 PRINT "Don't use zero, however, in playing the game.":PRINT 190 PRINT "Enter a negative number for new pile size to stop playing." 200 PRINT:PRINT 210 GOTO 330 220 FOR I=1 TO 10 230 PRINT 240 NEXT I 330 INPUT "ENTER PILE SIZE";N 350 IF N>=1 THEN 370 360 PRINT:PRINT:PRINT:RUN "MENU" 370 IF N<>INT(N) THEN 220 380 IF N<1 THEN 220 390 INPUT "ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: ";M 410 IF M=1 THEN 430 420 IF M<>2 THEN 390 430 INPUT "ENTER MIN AND MAX ";A,B 450 IF A>B THEN 430 460 IF A<1 THEN 430 470 IF A<>INT(A) THEN 430 480 IF B<>INT(B) THEN 430 490 INPUT "ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST ";S 500 PRINT:PRINT 510 IF S=1 THEN 530 520 IF S<>2 THEN 490 530 C=A+B 540 IF S=2 THEN 570 550 GOSUB 600 560 IF W=1 THEN 220 570 GOSUB 810 580 IF W=1 THEN 220 590 GOTO 550 600 Q=N 610 IF M=1 THEN 630 620 Q=Q-1 630 IF M=1 THEN 680 640 IF N>A THEN 720 650 W=1 660 PRINT:PRINT "COMPUTER TAKES";N;"AND LOSES." 670 RETURN 680 IF N>B THEN 720 690 W=1 700 PRINT:PRINT "COMPUTER TAKES";N;"AND WINS." 710 RETURN 720 P=Q-C*INT(Q/C) 730 IF P>=A THEN 750 740 P=A 750 IF P<=B THEN 770 760 P=B 770 N=N-P 780 PRINT:PRINT "COMPUTER TAKES";P;"AND LEAVES";N 790 W=0 800 RETURN 810 PRINT:PRINT "YOUR MOVE "; 820 INPUT P 830 IF P<>0 THEN 870 840 PRINT:PRINT:PRINT "I TOLD YOU NOT TO USE ZERO! COMPUTER WINS BY FORFEIT." 850 W=1 860 RETURN 870 IF P<>INT(P) THEN 920 880 IF P>=A THEN 910 890 IF P=N THEN 960 900 GOTO 920 910 IF P<=B THEN 940 920 PRINT "ILLEGAL MOVE, REENTER IT "; 930 GOTO 820 940 N=N-P 950 IF N<>0 THEN 1030 960 IF M=1 THEN 1000 970 PRINT:PRINT "TOUGH LUCK, YOU LOSE." 980 W=1 990 RETURN 1000 PRINT:PRINT:PRINT "CONGRATULATIONS, YOU WIN." 1010 W=1 1020 RETURN 1030 IF N>=0 THEN 1060 1040 N=N+P 1050 GOTO 920 1060 W=0 1070 RETURN 1080 RUN "MENU" , YOU WIN." 1010 W=1 1020 RETURN 20 Q=Q-1 630 IF M=1 THEN 680 640 IF N>A THEN 720 650 W=1 660 PRINT:PRINT "COMPUTER TAKES";N;"AND LOSES." 670 RETURN 680 IF N>B THEN 720 690 W=1 700 PRINT:PRINT "COMPUTER TAKES";N;"AND WINS." 710 RETURN 720 P=Q-C*INT(Q/C) 730 IF P>=A THEN 750 740 P=A 750 IF P<=B THEN 770 760 P=B 770 N=N-P 780 PRINT:PRINT "COMPUTER TAKES";P;"AND LEAVES";N 790 W=0 800 RETURN 810 PRINT:PRINT "YOUR MOVE "; 820 INPUT P 830 IF P<>0 THEN 870 840 PRINT:PRINT:PRINT "I TOLD YOU NOT TO USE ZERO! COMPUTER WINS BY FORFEIT." 850 W=1 860 RETURN 870 IF P<>INT(P) THEN 920 880 IF P>=A THEN 910 890 IF P=N THEN 960 900 GOTO 920 910 IF P<=B T1 RANDOMIZE 2 DEFINT A-Z 3 WIDTH 80:PRINT CHR$(26) 5 PRINT TAB(33);"BATTLE":PRINT 7 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY":PRINT:PRINT 8 INPUT "DO YOU WANT INSTRUCTIONS";ANS$ 9 IF LEFT$(ANS$,1)="Y" OR LEFT$(ANS$,1)="y" THEN GOSUB 10000 10 REM -- BATTLE WRITTEN BY RAY WESTERGARD 10/70 20 REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 30 REM PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY 35 REM Corrected by Jim Woolley, FOG Disk Librarian, 8/82 40 REM DIM F(6,6),H(6,6),A(4)0 THEN 90 130 M=0 140 ON D GOTO 150,340,550,740 150 B(1)=B 160 B(2)=7:B(3)=7 170 FOR K=1 TO N 180 IF M>1 THEN 240 190 IF B(K)=6 THEN 230 200 IF F(A,B(K)+1)>0 THEN 230 210 B(K+1)=B(K)+1 220 GOTO 280 230 M=2 240 IF B(1)0 THEN 90 270 B(K+1)=Z-1 280 NEXT K 290 F(A,B)=9-2*I-J 300 FOR K=1 TO N 310 F(A,B(K+1))=F(A,B) 320 NEXT K 330 GOTO 990 340 A(1)=A 350 B(1)=B 360 A(2)=0:A(3)=0:B(2)=0:B(3)=0 370 FOR K=1 TO N 380 IF M>1 THEN 460 390 IF A(K)=1 OR B(K)=1 THEN 450 400 IF F(A(K)-1,B(K)-1)>0 THEN 450 410 IF F(A(K)-1,B(K))>0 AND F(A(K)-1,B(K))=F(A(K),B(K)-1) THEN 450 420 A(K+1)=A(K)-1 430 B(K+1)=B(K)-1 440 GOTO 530 450 M=2 460 IF A(1)>A(2) AND A(1)>A(3) THEN Z1=A(1) 462 IF A(2)>A(1) AND A(2)>A(3) THEN Z1=A(2) 464 IF A(3)>A(1) AND A(3)>A(2) THEN Z1=A(3) 470 IF B(1)>B(2) AND B(1)>B(3) THEN Z2=B(1) 474 IF B(2)>B(1) AND B(2)>B(3) THEN Z2=B(2) 476 IF B(3)>B(1) AND B(3)>B(2) THEN Z2=B(3) 480 IF Z1=6 OR Z2=6 THEN 90 490 IF F(Z1+1,Z2+1)>0 THEN 90 500 IF F(Z1,Z2+1)>0 AND F(Z1,Z2+1)=F(Z1+1,Z2) THEN 90 510 A(K+1)=Z1+1 520 B(K+1)=Z2+1 530 NEXT K 540 GOTO 950 550 A(1)=A 560 A(2)=7:A(3)=7 570 FOR K=1 TO N 580 IF M>1 T HEN 640 590 IF A(K)=6 THEN 630 600 IF F(A(K)+1,B)>0 THEN 630 610 A(K+1)=A(K)+1 620 GOTO 680 630 M=2 640 IF A(1)0 THEN 90 670 A(K+1)=Z-1 680 NEXT K 690 F(A,B)=9-2*I-J 700 FOR K=1 TO N 710 F(A(K+1),B)=F(A,B) 720 NEXT K 730 GOTO 990 740 A(1)=A 750 B(1)=B 760 A(2)=7:A(3)=7 770 B(2)=0:B(3)=0 780 FOR K=1 TO N 790 IF M>1 THEN 870 800 IF A(K)=6 OR B(K)=1 THEN 860 810 IF F(A(K)+1,B(K)-1)>0 THEN 860 820 IF F(A(K)+1,B(K))>0 AND F(A(K)+1,B(K))=F(A(K),B(K)-1) THEN 860 830 A(K+1)=A(K)+1 840 B(K+1)=B(K)-1 850 GOTO 940 860 M=2 870 IF A(1)B(2) AND B(1)>B(3) THEN Z2=B(1) 882 IF B(2)>B(1) AND B(2)>B(3) THEN Z2=B(2) 884 IF B(3)>B(1) AND B(3)>B(2) THEN Z2=B(3) 890 IF Z1=1 OR Z2=6 THEN 90 900 IF F(Z1-1,Z2+1)>0 THEN 90 910 IF F(Z1,Z2+1)>0 AND F(Z1,Z2+1)=F(Z1-1,Z2) THEN 90 920 A(K+1)=Z1-1 930 B(K+1)=Z2+1 940 NEXT K 950 F(A,B)=9-2*I-J 960 FOR K=1 TO N 970 F(A(K+1),B(K+1))=F(A,B) 980 NEXT K 990 NEXT J 1000 NEXT I 1010 PRINT 1020 PRINT "THE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITION" 1030 PRINT "HAS BEEN CAPTURED BUT NOT DECODED:" 1040 PRINT 1050 FOR I=1 TO 6 1051 FOR J=1 TO 6 1052 H(I,J)=F(J,I) 1053 NEXT J 1054 NEXT I 1060 FOR I=1 TO 6 1061 FOR J=1 TO 6 1062 PRINT H(I,J); 1063 NEXT J 1064 PRINT 1065 NEXT I 1070 PRINT 1080 PRINT "DE-CODE IT AND USE IT IF YOU CAN" 1090 PRINT "BUT KEEP THE DE-CODING METHOD A SECRET." 1100 PRINT 1102 INPUT "DO YOU WANT A PRINTED COPY OF THE CODED FLEET DISPOSITION";PC$ 1106 INPUT "DO YOU WANT A PRINTED 6 BY 6 MATRIX TO RECORD YOUR RESULTS";PM$ 1107 PRINT:PRINT 1108 IF LEFT$(PC$,1)="Y" OR LEFT$(PC$,1)="y" THEN GOSUB 20000 1109 IF LEFT$(PM$,1)="Y" OR LEFT$(PM$,1)="y" THEN GOSUB 30000 1110 FOR I=1 TO 6 1111 FOR J=1 TO 6 1112 H(I,J)=0 1113 NEXT J 1114 NEXT I 1120 FOR I=1 TO 3 1121 L(I)=0 1122 NEXT I 1130 C(1)=2:C(2)=2 1140 C(3)=1:C(4)=1 1150 C(5)=0:C(6)=0 1160 S=0:H=0 1170 PRINT "START GAME" 1175 PRINT "----------":PRINT 1180 PRINT:INPUT "ENTER X,Y COORDINATES OF BOMB TARGET";X,Y 1190 IF X<1 OR X>6 OR INT(X)<>ABS(X) THEN 1210 1200 IF Y>0 AND Y<7 AND INT(Y)=ABS(Y) THEN 1230 1210 PRINT:PRINT "INVALID INPUT. TRY AGAIN." 1220 GOTO 1180 1230 R=7-Y 1240 C=X 1250 IF F(R,C)>0 THEN 1290 1260 S=S+1 1270 PRINT:PRINT "SPLASH! TRY AGAIN." 1280 GOTO 1180 1290 IF C(F(R,C))<4 THEN 1340 1300 PRINT:PRINT "THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT." 1310 PRINT:PRINT "SPLASH! TRY AGAIN." 1320 S=S+1 1330 GOTO 1180 1340 IF H(R,C)>0 THEN 1420 1350 H=H+1 1360 H(R,C)=F(R,C) 1370 PRINT:PRINT "A DIRECT HIT ON SHIP NUMBER";F(R,C) 1380 C(F(R,C))=C(F(R,C))+1 1390 IF C(F(R,C))>=4 THEN 1470 1400 PRINT:PRINT "TRY AGAIN." 1410 GOTO 1180 1420 PRINT:PRINT "YOU ALREADY PUT A HOLE IN SHIP NUMBER";F(R,C); 1430 PRINT "AT THAT POINT." 1440 PRINT:PRINT "SPLASH! TRY AGAIN." 1450 S=S+1 1460 GOTO 1180 1470 I=INT((F(R,C)-1)/2)+1:L(I)=L(I)+1 1480 PRINT "AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS." 1490 PRINT:PRINT "SO FAR, THE BAD GUYS HAVE LOST" 1500 PRINT L(1);"DESTROYER(S),";L(2);"CRUISER(S), AND"; 1510 PRINT L(3);"AIRCRAFT CARRIER(S)." 1520 PRINT:PRINT "YOUR CURRENT SPLASH/HIT RATIO IS";S/H 1530 IF (L(1)+L(2)+L(3))<6 THEN 1180 1540 PRINT 1550 PRINT:PRINT "YOU HAVE TOTALLY WIPED OUT THE BAD GUYS' FLEET" 1560 PRINT "WITH A FINAL SPLASH/HIT RATIO OF";S/H 1570 IF S/H>0 THEN 1590 1580 PRINT:PRINT "CONGRATULATIONS -- A DIRECT HIT EVERY TIME." 1590 PRINT 1600 PRINT "****************************" 1610 PRINT 1630 RUN "MENU" 10000 PRINT CHR$(26) 10010 PRINT " BATTLE is based on the popular game of Battleship.":PRINT 10020 PRINT " BATTLE first randomly sets up the Bad Guy's fleet disposition" 10030 PRINT "on a 6 by 6 matrix or grid. The fleet consists of six ships:" 10040 PRINT "Two destroyers (ships number 1 and 2) which are two units long," 10050 PRINT "two cruisers (ships number 3 and 4) which are three units long" 10060 PRINT "and two aircraft carriers (ships number 5 and 6) which are" 10070 PRINT "four units long. This fleet disposition is printed out in a" 10080 PRINT "coded or disguised format. A hard copy is also available.":PRINT 10090 PRINT " You then proceed to sink the various ships by typing in the" 10100 PRINT "coordinates (two digits, each from 1 to 6, separated by a comma)" 10110 PRINT "of the place where you want to drop a bomb. Record the results on" 10120 PRINT "a 6 by 6 matrix, which the computer will supply if you wish." 10130 PRINT "You are thus building a representation of the actual fleet" 10140 PRINT "disposition which you will hopefully use to decode the coded" 10150 PRINT "fleet disposition printed out by the computer. Each time a ship" 10160 PRINT "is sunk, the computer prints out which ships have been sunk so far" 10170 PRINT "and also gives you a SPLASH/HIT RATIO.":PRINT:PRINT 10180 LINE INP UT "Hit 'RETURN' to start the game.";RR$ 10190 PRINT CHR$(26) 10200 RETURN 20000 ' PRINTED CODED FLEET DISPOSITION SUBROUTINE 20015 LPRINT TAB(5);"CODED FLEET DISPOSITION":LPRINT:LPRINT 20020 FOR I=1 TO 6 20030 FOR J=1 TO 6 20040 H(I,J)=F(J,I) 20050 NEXT J 20060 NEXT I 20070 FOR I=1 TO 6 20075 LPRINT " "; 20080 FOR J=1 TO 6 20090 LPRINT H(I,J);" "; 20100 NEXT J 20110 LPRINT 20120 NEXT I 20125 IF LEFT$(PM$,1)="Y" OR LEFT$(PM$,1)="y" THEN LPRINT:LPRINT:LPRINT:LPRINT: GOTO 20140 20130 LPRINT CHR$(12) 20140 RETURN 30000 ' PRINTED EMPTY MATRIX SUBROUTINE 30002 LPRINT:LPRINT:LPRINT 30004 LPRINT "EMPTY MATRIX FOR RECORDING HITS":LPRINT:LPRINT 30010 LPRINT "+---------------------------+" 30020 LPRINT "| | 1 | 2 | 3 | 4 | 5 | 6 |" 30030 LPRINT "|---------------------------|" 30040 LPRINT "| 1 | | | | | | |" 30050 LPRINT "|---------------------------|" 30060 LPRINT "| 2 | | | | | | |" 30070 LPRINT "|---------------------------|" 30080 LPRINT "| 3 | | | | | | |" 30090 LPRINT "|---------------------------|" 30100 LPRINT "| 4 | | | | | | |" 30110 LPRINT "|---------------------------|" 30120 LPRINT "| 5 | | | | | | |" 30130 LPRINT "|---------------------------|" 30140 LPRINT "| 6 | | | | | | |" 30150 LPRINT "+---------------------------+" 30160 LPRINT CHR$(12) 30170 RETURN 0110 LPRINT 20120 NEXT I 20125 IF LEFT$(PM$,1)="Y" OR LEFT$(PM$,1)="y" THEN LPRINT:LPRINT:LPRINT:LPRINT: GOTO 20140 20130 LPRINT CHR$(12) 20140 RETURN 30000 ' PRINTED EMPTY MATRIX SUBROUTINE 30002 LPRINT:LPRINT:LPRINT 30004 LPRINT "EMPTY MATRIX FOR RECORDING HITS":LPRINT:LPRINT 30010 LPRINT "+---------------------------+" 30020 LPRINT "| | 1 | 2 | 3 | 4 | 5 | 6 |" 30030 LPRINT "|---------------------------|" 30040 LPRINT "| 1 | | | | | | |" 30050 LPRINT "|---------------------------|" 30060 LPRINT "| 2 | | | | | | |" 30070 LPRINT "|---------------------------|" 30080 LPRINT "| 3 | |10 PRINT CHR$(26);" BATTLESHIP" 20 PRINT " by Ray Gordon" 30 PRINT " Copyright (C) 1979" 40 PRINT " ALL RIGHTS RESERVED" 50 PRINT : PRINT : PRINT 60 PRINT " You have 50 attempts to sink 5 ships:" 70 PRINT " 1 aircraft carrier (5)" 80 PRINT " 1 battleship (4)" 90 PRINT " 2 destroyers (3)" 100 PRINT " 1 tin can (2)" 110 PRINT 120 PRINT " Do not fire until instructed to enter locations." 130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 140 PRINT " Push SPACE BAR to go on."; 150 LET Z$=INKEY$ 160 IF Z$="" THEN 150 170 PRINT CHR$(26):PRINT:PRINT 180 PRINT " BATTLESHIP" 190 PRINT 200 PRINT " 1 2 3 4 5 6 7 8 9 0 1 2" 210 DIM A(12,12): DIM C(12,12) 220 DIM B(12,12): DIM D(12,12) 230 FOR I=1 TO 12 240 FOR J=1 TO 12 250 LET A(I,J)=ASC("*") 260 LET B(I,J)=ASC("*") 270 NEXT J 280 NEXT I 290 FOR I=1 TO 12 300 PRINT TAB(6);CHR$(64+I);" "; 310 FOR J=1 TO 12 320 PRINT CHR$(A(I,J));" "; 330 NEXT J 340 PRINT 350 NEXT I 360 LET X=INT(RND*12+1) 370 LET Y=INT(RND*7+1) 380 LET Z=INT(RND*2+1) 390 IF Z=1 THEN 440 400 FOR I=1 TO 5 410 LET B(X,Y+I)=45 420 NEXT I 430 GOTO 470 440 FOR I=1 TO 5 450 LET B(Y+I,X)=45 460 NEXT I 470 LET V=INT(RND*12+1) 480 LET W=INT(RND*7+1) 490 IF Z=1 THEN 560 500 IF X>6 AND W>X-5 THEN 480 510 IF X<=6 AND W<=X THEN 480 520 FOR I=1 TO 4 530 LET B(W+I,V)=45 540 NEXT I 550 GOTO 610 560 IF X>6 AND W>X-4 THEN 480 570 IF X<=6 AND W<=X THEN 480 580 FOR I=1 TO 4 590 LET B(V,W+I)=45 600 NEXT I 610 LET R=INT(RND*12+1) 620 LET S=INT(RND*9+1) 630 LET T=INT(RND*2) 640 IF T=1 THEN 690 650 FOR I=1 TO 3 660 LET C(R,S+I)=45 670 NEXT I 680 GOTO 720 690 FOR I=1 TO 3 700 LET C(S+I,R)=45 710 NEXT I 720 FOR I=1 TO 12 730 FOR J=1 TO 12 740 IF B(I,J)=C(I,J) THEN EXIT 810 750 NEXT J 760 NEXT I 770 IF T=1 THEN 820 780 FOR I=1 TO 3 790 LET B(R,S+I)=C(R,S+I) 800 NEXT I 810 GOTO 850 820 FOR I=1 TO 3 830 LET B(S+I,R)=C(S+I,R) 840 NEXT I 850 LET D=D+1 860 FOR I=1 TO 12 870 FOR J=1 TO 12 880 LET C(I,J)=0 890 NEXT J 900 NEXT I 910 IF D<2 THEN 610 920 LET O=INT(RND*12+1) 930 LET P=INT(RND*10+1) 940 LET Q=INT(RND*2+1) 950 IF Q=1 THEN 1000 960 FOR I=1 TO 2 970 LET D(O,P+I)=45 980 NEXT I 990 GOTO 1030 1000 FOR I=1 TO 2 1010 LET D(P+I,O)=45 1020 NEXT I 1030 FOR I=1 TO 12 1040 FOR J=1 TO 12 1050 IF B(I,J)=D(I,J) THEN EXIT 1120 1060 NEXT J 1070 NEXT I 1080 IF Q=1 THEN 1130 1090 FOR I=1 TO 2 1100 LET B(O,P+I)=45 1110 NEXT I 1120 GOTO 1230 1130 FOR I=1 TO 2 1140 LET B(P+I,O)=45 1150 NEXT I 1160 GOTO 1230 1170 FOR I=1 TO 12 1180 FOR J=1 TO 12 1190 LET D(I,J)=0 1200 NEXT J 1210 NEXT I 1220 GOTO 920 1230 PRINT:INPUT "TYPE IN A LETTER: ",M$ 1240 INPUT "NOW TYPE A NUMBER: ",N 1250 LET M=ASC(M$)-64 1260 IF B(M,N)=45 THEN 1310 1270 IF A(M,N)=88 THEN 1230 1280 IF A(M,N)=79 THEN 1230 1290 LET A(M,N)=79 1300 GOTO 1320 1310 LET A(M,N)=88  1320 PRINT CHR$(26); 1330 PRINT "TRY NUMBER: ";H+2 1340 PRINT:PRINT 1350 PRINT " BATTLESHIP" 1360 PRINT:PRINT 1370 PRINT " 1 2 3 4 5 6 7 8 9 0 1 2" 1380 FOR I=1 TO 12 1390 PRINT TAB(6);CHR$(64+I);" "; 1400 FOR J=1 TO 12 1410 PRINT CHR$(A(I,J));" "; 1420 NEXT J 1430 PRINT 1440 NEXT I 1450 FOR I=1 TO 12 1460 FOR J=1 TO 12 1470 IF A(I,J)=88 THEN LET L=L+1 1480 NEXT J 1490 NEXT I 1500 IF L=17 THEN PRINT "YOU WON": END 1510 LET L=0: LET H=H+1 1520 IF H=48 THEN GOTO 1540 1530 GOTO 1230 1540 PRINT CHR$(26) 1550 PRINT TAB(6);"1 2 3 4 5 6 7 8 9 0 1 2" 1560 FOR I=1 TO 12 1570 FOR J=1 TO 12 1580 IF B(I,J)<>45 THEN 1600 1590 IF A(I,J)=42 THEN LET A(I,J)=45 1600 NEXT J 1610 NEXT I 1620 FOR I=1 TO 12 1630 PRINT TAB(12);CHR$(64+I);" "; 1640 FOR J=1 TO 12 1650 PRINT CHR$(A(I,J));" "; 1660 NEXT J 1670 PRINT 1680 NEXT I 1690 END 1700 PRINT CHR$(26) 1710 PRINT TAB(12);"1 2 3 4 5 6 7 8 9 0 1 2" 1720 FOR I=1 TO 12 1730 PRINT TAB(12);CHR(64+I);" "; 1740 FOR J=1 TO 12 1750 PRINT CHR(B(I,J));" "; 1760 NEXT J 1770 PRINT 1780 NEXT I 1790 RETURN HR(64+I);" "; 1740 FOR J=1 TO 12 1750 PRINT CHR(B(I,J));" "; 1760 NEXT J=1 TO 12 1410 PRINT CHR$(A(I,J));" "; 1420 NEXT J 1430 PRINT 1440 NEXT I 1450 FOR I=1 TO 12 1460 FOR J=1 TO 12 1470 IF A(I,J)=88 THEN LET L=L+1 1480 NEXT J 1490 NEXT I 1500 IF L=17 THEN PRINT "YOU WON": END 1510 LET L=0: LET H=H+1 1520 IF H=48 THEN GOTO 1540 1530 GOTO 1230 1540 PRINT CHR$(26) 1550 PRINT TAB(6);"1 2 3 4 5 6 7 8 9 0 1 2" 1560 FOR I=1 TO 12 1570 FOR J=1 TO 12 1580 IF B(I,J)<>45 THEN 1600 1590 IF A(I,J)=42 THEN LET A(I,J)=45 1600 NEXT J 1610 NEXT I 1620 FOR I=1 TO 12 1630 PRINT TAB(12);CHR$(64+I);" "; 1640 FOR J=1 TO 12 1650 PRINT CHR$(A(I,J));" "; 1660 NEXT J 1670 PRINT 1680 NEXT I 1690 END 1700 PRINT CHR$(26) 1710 PRINT TAB(12);"1 2 3 4 5 6 7 8 9 0 1 2BATTLSHP requires sinking ships hidden in a square matrix by targeting one square after another. ACEYDUCYBAS AMAZING BAS AMAZINGPBASANIMAL BASBACCRRT BAS!BAGELS BASBASKETBLBAS+ !"BATNUM BAS#$%BATTLE BASC&'()*+,-.BATTLSHPBAS"/0123BATTLSHP$$$BOMBSAWYBAS@ABCBOUNCE BAS DEBOWLING BASFGHBOXING BASIJKLBUG BAS4MNOPQRSBULLFGHTBAS+TUVWXYBULLSEYEBASZ[BUZZWORDBAS \]CAPITALSBAS#^_`abCHANGE BAS cdCHECKERSBASefghCHEMIST BAS ijCHOMP BASklmDARTS BASnoDARTS DOCpMATH BAS qrstMENU BASu0 RANDOMIZE 1 PRINT CHR$(26):WIDTH 80 2 PRINT TAB(31);"BLACK JACK":PRINT 4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT:PRINT:PRINT 10 DEF FNA(Q)=Q+11*(Q>=22) 20 DIM P(15,12),Q(15),C(52),D(52),T(8),S(7),B(15) 30 DIM R(15) 40 REM--P(I,J) IS THE JTH CARD IN HAND I, Q(I) IS TOTAL OF HAND I 50 REM--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE, 60 REM--T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAND FOR 70 REM--PLAYER I, B(I) IS TH BET FOR HAND I 80 REM--R(I) IS THE LENGTH OF P(I,*) 90 GOTO 1500 100 REM--SUBROUTINE TO GET A CARD. RESULT IS PUT IN X. 110 IF C<51 THEN 230 120 PRINT:PRINT CHR$(22);" " 122 PRINT " RESHUFFLING " 124 PRINT " ";CHR$(22):PRINT 130 FOR D=D TO 1 STEP -1 140 C=C-1 150 C(C)=D(D) 160 NEXT D 170 FOR C1=52 TO C STEP -1 180 C2=INT(RND(1)*(C1-C+1))+C 190 C3=C(C2) 200 C(C2)=C(C1) 210 C(C1)=C3 220 NEXT C1 230 X=C(C) 240 C=C+1 250 RETURN 300 REM--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO  310 REM--Q(I). TOTALS HAVE THE FOLLOWING MEANING: 320 REM-- 2-10...HARD 2-10 330 REM-- 11-21...SOFT 11-21 340 REM-- 22-32...HARD 11-21 350 REM-- 33+....BUSTED 360 Q=0 370 FOR Q2=1 TO R(I) 380 X=P(I,Q2) 390 GOSUB 500 400 NEXT Q2 410 Q(I)=Q 420 RETURN 500 REM--SUBROUTINE TO ADD CARD X TO TOTAL Q. 510 X1=X: IF X1>10 THEN X1=10: REM SAME AS X1=10 MIN X 520 Q1=Q+X1 530 IF Q>=11 THEN 590 540 IF X>1 THEN 570 550 Q=Q+11 560 RETURN 570 Q=Q1-11*(Q1>=11) 580 RETURN 590 Q=Q1-(Q<=21 AND Q1>21) 600 IF Q<33 THEN 620 610 Q=-1 620 RETURN 700 REM--CARD PRINTING SUBROUTINE 710 REM D$ DEFINED ELSEWHERE 720 PRINT MID$(D$,3*X-2,3); 730 PRINT " "; 740 RETURN 750 REM--ALTERNATIVE PRINTING ROUTINE 760 PRINT " ";MID$(D$,3*X-1,2); 770 PRINT " "; 780 RETURN 800 REM--SUBROUTINE TO PLAY OUT A HAND. 810 REM--NO SPLITTING OR BLACKJACKS ALLOWED 820 H1=5 830 GOSUB 1410 840 H1=3 850 ON H GOTO 950,930 860 GOSUB 100 870 B(I)=B(I)*2 880 PRINT "RECEIVED A"; 890 GOSUB 700 900 GOSUB 1100 910 IF Q>0 THEN GOSUB 1300 920 RETURN 930 GOSUB 1320 940 RETURN 950 GOSUB 100 960 PRINT "RECEIVED A"; 970 GOSUB 700 980 GOSUB 1100 990 IF Q<0 THEN 940 1000 PRINT "HIT"; 1010 GOTO 830 1100 REM--SUBROUTINE TO ADD A CARD TO ROW I 1110 R(I)=R(I)+1 1120 P(I,R(I))=X 1130 Q=Q(I) 1140 GOSUB 500 1150 Q(I)=Q 1160 IF Q>=0 THEN 1190 1170 PRINT "...BUSTED" 1180 GOSUB 1200 1190 RETURN 1200 REM--SUBROUTINE TO DISCARD ROW I 1210 IF R(I)<>0 THEN 1230 1220 RETURN 1230 D=D+1 1240 D(D)=P(I,R(I)) 1250 R(I)=R(I)-1 1260 GOTO 1210 1300 REM--PRINTS TOTAL OF HAND I 1310 PRINT 1320 AA=Q(I): GOSUB 3400 1325 PRINT "TOTAL IS";AA 1330 RETURN 1400 REM--SUBROUTINE TO READ REPLY 1410 REM I$ DEFINED ELSEWHERE 1420 INPUT H$: H$=LEFT$(H$,1) 1430 FOR H=1 TO H1 STEP 2 1440 IF H$=MID$(I$,H,1) THEN 1480 1450 NEXT H 1460 PRINT "TYPE ";MID$(I$,1,H1-1);" OR ";MID$(I$,H1,2);" PLEASE"; 1470 GOTO 1420 1480 H=(H+1)/2 1490 RETURN 1500 REM--PROGRAM STARTS HERE 1510 REM--INITIALIZE 1520 D$="N A 2 3 4 5 6 7N 8 9 10  J Q K" 1530 I$="H,S,D,/," 1540 FOR I=1 TO 13 1550 FOR J=4*I-3 TO 4*I 1560 D(J)=I 1570 NEXT J 1580 NEXT I 1590 D=52 1600 C=53 1610 PRINT "DO YOU WANT INSTRUCTIONS"; 1620 INPUT H$ 1630 IF LEFT$(H$,1)="N" OR LEFT$(H$,1)="n" THEN 1760 1640 PRINT CHR$(26): PRINT " This is the game of 21. As many as 7 players may play the" 1650 PRINT "game. On each deal, bets will be asked for, and the" 1660 PRINT "players' bets should be typed in. The cards will then be" 1670 PRINT "dealt, and each player in turn plays his hand. The" 1680 PRINT "first response should be either 'D', indicating that the" 1690 PRINT "player is doubling down, 'S', indicating that he is" 1700 PRINT "standing, 'H', indicating he wants another card, or '/'," 1710 PRINT "indicating that he wants to split his cards. After the" 1720 PRINT "initial response, all further responses should be 'S' or" 1730 PRINT "'H', unless the cards were split, in which case doubling" 1740 PRINT "down is again permitted. In order to collect for" 1750 PRINT "Blackjack, the initial response should be 'S'." 1755 PRINT 1756 PRINT " To stop the game, enter a negative number for any bet.": PRINT 1760 PRINT:PRINT "NUMBER OF PLAYERS"; 1770 INPUT N 1775 PRINT 1780 IF N<1 OR N>7 OR N>INT(N) THEN 1760 1781 FOR I=1 TO N 1782 PRINT "NAME OF PLAYER #";I;:INPUT PLAYER$(I) 1783 NEXT I 1790 FOR I=1 TO 8: T(I)=0: NEXT I 1800 D1=N+1 1810 IF 2*D1+C>=52 THEN GOSUB 120 1820 IF C=2 THEN C=C-1 1830 FOR I=1 TO N: Z(I)=0: NEXT I 1840 FOR I=1 TO 15: B(I)=0: NEXT I 1850 FOR I=1 TO 15: Q(I)=0: NEXT I 1860 FOR I=1 TO 7: S(I)=0: NEXT I 1870 FOR I=1 TO 15: R(I)=0: NEXT I 1880 PRINT "BETS:":PRINT "----":PRINT 1890 FOR I=1 TO N: PRINT PLAYER$(I);: INPUT Z(I):IF Z(I)>500 THEN PRINT "HOUSE LIMIT IS $500.":PRINT PLAYER$(I);:INPUT Z(I) 1891 IF Z(I)<0 THEN RUN "MENU" 1892 NEXT I 1895 PRINT 1900 FOR I=1 TO N 1910 IF Z(I)<=0 OR Z(I)>500 THEN PRINT:PRINT "HOUSE LIMIT IS $500.": PRINT:GOTO 1880 1920 B(I)=Z(I) 1930 NEXT I 1940 PRINT "PLAYER";  1950 FOR I=1 TO N 1960 PRINT I;" "; 1970 NEXT I 1980 PRINT "DEALER" 1981 PRINT "------"; 1982 FOR I=1 TO N 1983 PRINT "------"; 1984 NEXT I 1985 PRINT "------" 1990 FOR J=1 TO 2 2000 PRINT TAB(5); 2010 FOR I=1 TO D1 2020 GOSUB 100 2030 P(I,J)=X 2040 IF J=1 OR I<=N THEN GOSUB 750 2050 NEXT I 2060 PRINT 2070 NEXT J 2080 FOR I=1 TO D1 2090 R(I)=2 2100 NEXT I 2110 REM--TEST FOR INSURANCE 2120 IF P(D1,1)>1 THEN 2240 2130 PRINT:PRINT "ANY INSURANCE"; 2140 INPUT H$ 2150 IF LEFT$(H$,1)<>"Y" THEN 2240 2160 PRINT:PRINT "INSURANCE BETS":PRINT "--------------" 2170 FOR I=1 TO N: PRINT PLAYER$(I);: INPUT Z(I): NEXT I 2180 FOR I=1 TO N 2190 IF Z(I)<0 OR Z(I)>B(I)/2 THEN PRINT "MAXIMUM INSURANCE BET IS HALF THE INITIAL BET.":GOTO 2160 2200 NEXT I 2210 FOR I=1 TO N 2220 S(I)=Z(I)*(3*(-(P(D1,2)>=10))-1) 2230 NEXT I 2240 REM--TEST FOR DEALER BLACKJACK 2250 L1=1: L2=1 2252 IF P(D1,1)=1 AND P(D1,2)>9 THEN L1=0: L2=0 2253 IF P(D1,2)=1 AND P(D1,1)>9 THEN L1=0: L2=0 2254 IF L1<>0 OR L2<>0 THEN 2320 2260 PRINT:PRINT "DEALER HAS A";MID$(D$,3*P(D1,2)-2,3);" IN THE HOLE "; 2270 PRINT "FOR BLACKJACK" 2280 FOR I=1 TO D1 2290 GOSUB 300 2300 NEXT I 2310 GOTO 3140 2320 REM--NO DEALER BLACKJACK 2330 IF P(D1,1)>1 AND P(D1,1)<10 THEN 2350 2340 PRINT:PRINT "NO DEALER BLACKJACK." 2350 REM--NOW PLAY THE HANDS 2360 FOR I=1 TO N 2370 PRINT:PRINT PLAYER$(I); 2380 H1=7 2390 GOSUB 1410 2400 ON H GOTO 2550,2410,2510,2600 2410 REM--PLAYER WANTS TO STAND 2420 GOSUB 300 2430 IF Q(I)<>21 THEN 2490 2440 PRINT CHR$(22);" ";CHR$(22) 2441 PRINT CHR$(22);" BLACKJACK! ";CHR$(22) 2442 PRINT CHR$(22);" ";CHR$(22) 2450 S(I)=S(I)+1.5*B(I) 2460 B(I)=0 2470 GOSUB 1200 2480 GOTO 2900 2490 GOSUB 1320 2500 GOTO 2900 2510 REM--PLAYER WANTS TO DOUBLE DOWN 2520 GOSUB 300 2530 GOSUB 860 2540 GOTO 2900 2550 REM--PLAYER WANTS TO BE HIT 2560 GOSUB 300 2570 H1=3 2580 GOSUB 950 2590 GOTO 2900 2600 REM--PLAYER WANTS TO SPLIT 2610 L1=P(I,1): IF P(I,1)>10 THEN L1=10 2612 L2=P(I,2): IF P(I,2)>10 THEN L2=10 2614 IF L1=L2 THEN 2640 2620 PRINT:PRINT "SPLITTING NOT ALLOWED." 2630 GOTO 2370 2640 REM--PLAY OUT SPLIT 2650 I1=I+D1 2660 R(I1)=2 2670 P(I1,1)=P(I,2) 2680 B(I+D1)=B(I) 2690 GOSUB 100 2700 PRINT:PRINT "FIRST HAND RECEIVES A"; 2710 GOSUB 700 2720 P(I,2)=X 2730 GOSUB 300 2740 PRINT 2750 GOSUB 100 2760 PRINT:PRINT "SECOND HAND RECEIVES A"; 2770 I=I1 2780 GOSUB 700 2790 P(I,2)=X 2800 GOSUB 300 2810 PRINT 2820 I=I1-D1 2830 IF P(I,1)=1 THEN 2900 2840 REM--NOW PLAY THE TWO HANDS 2850 PRINT "HAND";1-(I>D1); 2860 GOSUB 800 2870 I=I+D1 2880 IF I=I1 THEN 2850 2890 I=I1-D1 2900 NEXT I 2910 GOSUB 300 2920 REM--TEST FOR PLAYING DEALER'S HAND 2930 FOR I=1 TO N 2940 IF R(I)>0 OR R(I+D1)>0 THEN 3010 2950 NEXT I 2960 PRINT:PRINT "DEALER HAD A"; 2970 X=P(D1,2) 2980 GOSUB 700 2990 PRINT " CONCEALED." 3000 GOTO 3140 3010 PRINT:PRINT "DEALER HAS A";MID$(D$,3*P(D1,2)-2,3);" CONCEALED "; 3020 I=D1 3030 AA=Q(I): GOSUB 3400 3035 PRINT "FOR A TOTAL OF";AA 3040 IF AA>16 THEN 3130 3050 PRINT "DRAWS"; 3060 GOSUB 100 3070 GOSUB 750 3080 GOSUB 1100 3090 AA=Q: GOSUB 3400 3095 IF Q>0 AND AA<17 THEN 3060 3100 Q(I)=Q-(Q<0)/2 3110 IF Q<0 THEN 3140 3120 AA=Q: GOSUB 3400 3125 PRINT "---TOTAL IS";AA 3130 PRINT 3140 REM--TALLY THE RESULT 3150 REM 3160 Z$="LOSES PUSHESWINS " 3165 PRINT 3170 FOR I=1 TO N 3180 AA=Q(I): GOSUB 3400 3182 AB=Q(I+D1): GOSUB 3410 3184 AC=Q(D1): GOSUB 3420 3186 S(I)=S(I)+B(I)*SGN(AA-AC)+B(I+D1)*SGN(AB-AC) 3188 B(I+D1)=0 3200 PRINT PLAYER$(I);" "; 3210 PRINT MID$(Z$,SGN(S(I))*6+7,6);:'" "; 3220 IF S(I)<>0 THEN 3250 3230 'PRINT " "; 3240 GOTO 3260 3250 PRINT USING "$$##";ABS(S(I)); 3260 T(I)=T(I)+S(I) 3270 PRINT TAB(35);"TOTAL =";:PRINT USING "$$#,###-";T(I) 3280 GOSUB 1200 3290 T(D1)=T(D1)-S(I) 3300 I=I+D1 3310 GOSUB 1200 3320 I=I-D1 3330 NEXT I 3340 PRINT:PRINT "DEALER'S TOTAL =";:PRINT TAB(42);:PRINT USING "$$#,###-";T(D1) 3345 PRINT 3350 GOSUB 1200 3360 GOTO 1810 3370 RUN "MENU" 3400 AA=AA+11*(AA>=22): RETURN 3410 AB=AB+11*(AB>=22): RETURN 3420 AC=AC+11*(AC>=22): RETURN 60 GOTO 1810 3370 RUN "MENU" 3400 AA=AA+11*(AA>=22): RAND AA<17 THEN 3060 3100 Q(I)=Q-(Q<0)/2 3110 IF Q<0 THEN 3140 3120 AA=Q: GOSUB 3400 3125 PRINT "---TOTAL IS";AA 3130 PRINT 3140 REM--TALLY THE RESULT 3150 REM 3160 Z$="LOSES PUSHESWINS " 3165 PRINT 3170 FOR I=1 TO N 3180 AA=Q(I): GOSUB 3400 3182 AB=Q(I+D1): GOSUB 3410 3184 AC=Q(D1): GOSUB 3420 3186 S(I)=S(I)+B(I)*SGN(AA-AC)+B(I+D1)*SGN(AB-AC) 3188 B(I+D1)=0 3200 PRINT PLAYER$(I);" "; 3210 PRINT MID$(Z$,SGN(S(I))*6+7,6);:'" "; 3220 IF S(I)<>0 THEN 3250 3230 'PRINT " "; 3240 GOTO 3260 3250 PRINT USING "$$##";ABS(S(I)); 3260 T(I)=T(I)+S(I) 3270 PRINT TAB(35);"TOTAL =";:PRINT USING "$$#,###-";T(I) 3280 GOSUB 1200 3290 T(D1)=T(D1)-S(I) 3300 I=I+D1 3310 GOSUB 1200 3320 I=I-D1 3330 NEXT I 3340 PRINT:PRINT "DEALER'S TOTAL =";:PRINT TAB(42);:PRINT USING "$$#,###-";T(D1) 3345 PRINT 3350 GOSUB 1200 3360 GOTO 1810 3370 RUN "MENU" 3400 AA=AA+11*(AA>=22): R1 RANDOMIZE 5 PRINT CHR$(26):WIDTH 80 10 PRINT TAB(33);"BOMBARDMENT":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU" 110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED." 120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST." 130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS." 135 PRINT 140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE" 150 PRINT "OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU." 160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS" 170 PRINT "FIRST IS THE WINNER." 180 PRINT 190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!" 200 PRINT 201 LINE INPUT "ENTER 'RETURN' TO CONTINUE.";XX$ 202 PRINT CHR$(26) 210 PRINT "HERE IS A PRINTED MATRIX FOR YOU TO TEAR OFF AND CHECK" 211 PRINT "OFF THE NUMBERS:":PRINT:PRINT:PRINT "-- Printing --":PRINT:PRINT 260 DIM M(100) 270 FOR R=1 TO 5 280 I=(R-1)*5+1 290 LPRINT USING " ## ## ## ## ##";I,I+1,I+2,I+3,I+4 300 NEXT R 350 LPRINT CHR$(12) 380 C=INT(RND(1)*25)+1 390 D=INT(RND(1)*25)+1 400 E=INT(RND(1)*25)+1 410 F=INT(RND(1)*25)+1 420 IF C=D THEN 390 430 IF C=E THEN 400 440 IF C=F THEN 410 450 IF D=E THEN 400 460 IF D=F THEN 410 470 IF E=F THEN 410 480 PRINT "WHAT ARE YOUR FOUR POSITIONS"; 490 INPUT G,H,K,L 495 PRINT 500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE"; 510 INPUT Y 520 IF Y=C THEN 710 530 IF Y=D THEN 710 540 IF Y=E THEN 710 550 IF Y=F THEN 710 560 GOTO 630 570 M=INT(RND(1)*25)+1 575 GOTO 1160 580 IF X=G THEN 920 590 IF X=H THEN 920 600 IF X=L THEN 920 610 IF X=K THEN 920 620 GOTO 670 630 PRINT "HA, HA YOU MISSED. MY TURN NOW:" 640 PRINT: PRINT: GOTO 570 670 PRINT "I MISSED YOU, YOU DIRTY RAT. I PICKED";M;CHR$(8);". YOUR TURN:" 680 PRINT: PRINT: GOTO 500 710 Q=Q+1 720 IF Q=4 THEN 890 730 PRINT "YOU GOT ONE OF MY OUTPOSTS!" 740 IF Q=1 THEN 770 750 IF Q=2 THEN 810 760 IF Q=3 THEN 850 770 PRINT "ONE DOWN, THREE TO GO." 780 PRINT: PRINT: GOTO 570 810 PRINT "TWO DOWN, TWO TO GO." 820 PRINT: PRINT: GOTO 570 850 PRINT "THREE DOWN, ONE TO GO." 860 PRINT: PRINT: GOTO 570 890 PRINT "YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN" 900 PRINT "MY TRANSISTO&S RECUP%RA*E!" 910 GOTO 1235 920 Z=Z+1 930 IF Z=4 THEN 1110 940 PRINT "I GOT YOU. IT WON'T BE LONG NOW. POST";X;"WAS HIT." 950 IF Z=1 THEN 990 960 IF Z=2 THEN 1030 970 IF Z=3 THEN 1070 990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT." 1000 PRINT: PRINT: GOTO 500 1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT." 1040 PRINT: PRINT: GOTO 500 1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT." 1080 PRINT: PRINT: GOTO 500 1110 PRINT "YOU'RE DEAD. YOUR LAST OUTPOST WAS AT";X;". HA, HA, HA." 1120 PRINT "BETTER LUCK NEXT TIME." 1150 GOTO 1235 1160 P=P+1 1170 N=P-1 1180 FOR T=1 TO N 1190 IF M=M(T) THEN 570 1200 NEXT T 1210 X=M 1220 M(P)=M 1230 GOTO 580 1235 RUN "MENU" 1 1170 N=P-1 1180 FOR T=1 TO N 1190 IF M=M(T) THEN 570 1200 NEXT T 1210 X=M0 RANDOMIZE 1 PRINT CHR$(26):WIDTH 80 2 PRINT TAB(26);"BOMBS AWAY":PRINT 4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT:PRINT:PRINT 8 PRINT "YOU ARE A PILOT IN A WORLD WAR II BOMBER.":PRINT 10 INPUT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)";A 20 IF A>0 AND A<5 THEN 25 22 PRINT "TRY AGAIN..." : GOTO 10 25 ON A GOTO 30, 110, 200, 220 30 INPUT "YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B 40 IF B>0 AND B<4 THEN 45 42 PRINT "TRY AGAIN..." : GOTO 30 45 PRINT : ON B GOTO 50, 80,90 50 PRINT "SHOULD BE EASY -- YOU'RE FLYING A NAZI-MADE PLANE." 60 GOTO 280 80 PRINT "BE CAREFUL!!!" : GOTO 280 90 PRINT "YOU'RE GOING FOR THE OIL, EH?" : GOTO 280 110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G 120 IF G>0 AND G<5 THEN 125 122 PRINT "TRY AGAIN..." : GOTO 110 125 PRINT : ON G GOTO 130, 150, 170, 190 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI." : GOTO 280 150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." : GOTO 280 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." : GOTO 280 190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR." 195 GOTO 280 200 PRINT "YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON." 205 INPUT "YOUR FIRST KAMIKAZE MISSION(Y OR N)";F$ 207 IF F$="N" THEN S=0 : GOTO 358 210 PRINT : IF RND(1)>.65 THEN 325 215 GOTO 380 220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1)," 230 INPUT "ENGLAND(2), OR FRANCE(3)";M : IF M>0 AND M<4 THEN 235 232 PRINT "TRY AGAIN..." : GOTO 220 235 PRINT : ON M GOTO 250, 260, 270 250 PRINT "YOU'RE NEARING STALINGRAD." : GOTO 280 260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT RADAR." : GOTO 280 270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS. 280 PRINT 285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D 290 IF D<160 THEN 300 292 PRINT "MISSIONS, NOT MILES..." 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS." 297 PRINT "NOW THEN, "; : GOTO 285 300 PRINT:IF D<100 THEN 310 305 PRINT "THAT'S PUSHING THE ODDS!" : GOTO 320 310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?" 320 PRINT : IF D<160*RND(1) THEN 330 325 PRINT "DIRECT HIT!!!! "INT(100*RND(1))"KILLED." 327 PRINT "MISSION SUCCESSFUL." : GOTO 390 330 PRINT "MISSED TARGET BY"INT(2+30*RND(1))"MILES!" 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!" : PRINT 340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R 345 IF R>0 AND R<4 THEN 350 347 PRINT "TRY AGAIN..." : GOTO 340 350 PRINT : T=0 : IF R=2 THEN 360 355 INPUT "WHAT'S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S 357 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...": GOTO 380 358 PRINT 360 PRINT : IF R>1 THEN T=35 365 IF S+T>100*RND(1) THEN 380 370 PRINT "YOU MADE IT THROUGH TREMENDOUS FLAK!!" : GOTO 390 380 PRINT "* * * * BOOM * * * *" 384 PRINT "YOU HAVE BEEN SHOT DOWN....." 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR" 387 PRINT "LAST TRIBUTE..." 390 PRINT:PRINT:PRINT:INPUT "ANOTHER MISSION (Y OR N)";U$ 395 IF LEFT$(U$,1)="Y" THEN 8 400 PRINT "CHICKEN !!!" : PRINT : RUN "MENU" :PRINT:PRINT:INPUT "ANOTHER MISSION (Y OR N)";U$ 395 IF LEFT$(U$,1)="Y" THEN 8 400 PRIECT HIT!!!! "INT(100*RND(1))"KILLED." 327 PRINT "MISSION SUCCESSFUL." : GOTO 390 330 PRINT "MISSED TARGET BY"INT(2+30*RND(1))"MILES!" 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!" : PRINT 340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R 345 IF R>0 AND R<4 THEN 350 347 PRINT "TRY AGAIN..." : GOTO 340 350 PRINT : T=0 : IF R=2 THEN 360 355 INPUT "WHAT'S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S 357 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...": GOTO 380 358 PRINT 360 PRINT : IF R>1 THEN T=35 365 IF S+T>100*RND(1) THEN 380 370 PRINT "YOU MADE IT THROUGH TREMENDOUS FLAK!!" : GOTO 390 380 PRINT "* * * * BOOM * * * *" 384 PRINT "YOU HAVE BEEN SHOT DOWN....." 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR" 387 PRINT "LAST TRIBUTE..." 390 PRINT:PRINT:PRINT:INPUT "ANOTHER MISSION (Y OR N)";U$ 395 IF LEFT$(U$,1)="Y" THEN 8 400 PRI1 REM Revised by Jim Woolley, FOG Disk Librarian, 8/82 5 PRINT CHR$(26):WIDTH 80 10 PRINT TAB(33);"BOUNCE":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 90 DIM T(20) 100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY" 110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF" 120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION" 130 PRINT "COEFFICIENCY (LESS THAN 1)." 131 PRINT 132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN" 133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)." 134 PRINT 135 INPUT "TIME INCREMENT (SEC)";S2 140 PRINT 150 INPUT "VELOCITY (FPS)";V 160 PRINT 170 INPUT "COEFFICIENT";C 180 PRINT 182 PRINT "FEET" 184 PRINT 186 S1=INT(70/(V/(16*S2))) 190 FOR I=1 TO S1 200 T(I)=V*C^(I-1)/16 210 NEXT I 220 FOR H=INT(-16*(V/32)^2+V^2/32+.5) TO 0 STEP -.5 221 IF INT(H)<>H THEN 225 222 PRINT H; 225 L=0 230 FOR I=1 TO S1 240 FOR T=0 TO T(I) STEP S2 245 L=L+S2 250 IF ABS(H-(.5*(-32)*T^2+V*C^(I-1)*T))>.25 THEN 270 260 PRINT TAB(6+L/S2);"O"; 270 NEXT T 275 T=T(I+1)/2 276 IF -16*T^2+V*C^(I-1)*TH THEN 225 222 PRINT H; 225 L=0 230 FOR I=1 TO S1 240 FOR T=0 TO T(I) STEP S2 245 L=L+S2 250 IF ABS(H-(.5*(-1 RANDOMIZE 2 REM Corrected by Jim Woolley, FOG Disk Librarian, 8/82 5 PRINT CHR$(26):WIDTH 80 10 PRINT TAB(34);"BOWL":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 270 DIM C(15),A(100,6) 360 PRINT "WELCOME TO THE ALLEY" 450 PRINT "BRING YOUR FRIENDS" 540 PRINT "OKAY LET'S FIRST GET ACQUAINTED" 630 PRINT "" 720 PRINT "THE INSTRUCTIONS (Y/N)" 810 INPUT Z$ 900 IF Z$="Y" THEN 990 960 IF Z$="N" THEN 1530 990 PRINT "THE GAME OF BOWLING TAKES MIND AND SKILL. DURING THE GAME" 1080 PRINT "THE COMPUTER WILL KEEP SCORE. YOU MAY COMPETE WITH" 1170 PRINT "OTHER PLAYERS (UP TO FOUR). YOU WILL BE PLAYING TEN FRAMES." 1260 PRINT "ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN, '+' MEANS THE 1350 PRINT "PIN IS STANDING. AFTER THE GAME THE COMPUTER WILL SHOW YOUR 1440 PRINT "SCORES." 1530 INPUT "FIRST OF ALL, HOW MANY ARE PLAYING";R 1710 PRINT 1800 PRINT "VERY GOOD..." 1890 FOR I=1 TO 100: FOR J=1 TO 6: A(I,J)=0: NEXT J: NEXT I 1980 F=1 2070 FOR P=1 TO R  2160 M=0 2250 B=1 2340 M=0: Q=0 2430 FOR I=1 TO 15: C(I)=0: NEXT I 2520 REM ARK BALL GENERATOR USING MOD '15' SYSTEM 2610 INPUT "PRESS RETURN TO GET THE BALL ROLLING.",N$ 2790 K=0: D=0 2880 FOR I=1 TO 20 2970 X=INT(RND(1)*100) 3060 FOR J=1 TO 10 3150 IF X<15*J THEN 3330 3240 NEXT J 3330 C(15*J-X)=1 3420 NEXT I 3510 REM ARK PIN DIAGRAM 3600 PRINT "PLAYER:"P;"FRAME:";F"BALL:"B 3690 FOR I=0 TO 3 3780 PRINT 3790 PRINT TAB(I+1); 3870 FOR J=1 TO 4-I 3960 K=K+1 4050 IF C(K)=1 THEN 4320 4140 PRINT "+ "; 4230 GOTO 4410 4320 PRINT "O "; 4410 NEXT J 4500 NEXT I 4590 PRINT 4680 REM ARK ROLL ANALYSIS 4770 FOR I=1 TO 10 4860 D=D+C(I) 4950 NEXT I 5040 IF D-M <> 0 THEN 5220 5130 PRINT "GUTTER!!" 5220 IF B<>1 OR D<>10 THEN 5490 5310 PRINT "STRIKE!!!!!" 5400 Q=3 5490 IF B<>2 OR D<>10 THEN 5760 5580 PRINT "SPARE!!!!" 5670 Q=2 5760 IF B<>2 OR D>=10 THEN 6030 5850 PRINT "ERROR!!!" 5940 Q=1 6030 IF B<>1 OR D>=10 THEN 6210 6120 PRINT "ROLL YOUR 2ND BALL" 6210 REM ARK STORAGE OF THE SCORES 6300 PRINT 6390 A(F*P,B)=D 6480 IF B=2 THEN 7020 6570 B=2 6660 M=D 6750 IF Q=3 THEN 6210 6840 A(F*P,B)=D-M 6930 IF Q=0 THEN 2520 7020 A(F*P,3)=Q 7110 NEXT P 7200 F=F+1 7290 IF F<11 THEN 2070 7295 PRINT "FRAMES" 7380 FOR I=1 TO 10 7470 PRINT I; 7560 NEXT I 7650 PRINT 7740 FOR P=1 TO R 7830 FOR I=1 TO 3 7920 FOR J=1 TO 10 8010 PRINT A(J*P,I); 8100 NEXT J 8105 PRINT 8190 NEXT I 8280 PRINT 8370 NEXT P 8460 PRINT "DO YOU WANT ANOTHER GAME" 8550 INPUT A$ 8640 IF LEFT$(A$,1)="Y" THEN 2610 8730 RUN "MENU" PRINT 8370 NEXT P 8460 PRINT "DO YOU WANT ANOTHER GAME" 8550 INPUT A$ 8640 IF LEFT$(A$,1O 10 4860 D=D+C(I) 4950 NEXT I 5040 IF D-M <> 0 THEN 5220 5130 PRINT "GUTTER!!" 5220 IF B<>1 OR D<>10 THEN 5490 5310 PRINT "STRIKE!!!!!" 5400 Q=3 5490 IF B<>2 OR D<>10 THEN 5760 5580 PRINT "SPARE!!!!" 5670 Q=2 5760 IF B<>2 OR D>=10 THEN 6030 5850 PRINT "ERROR!!!" 5940 Q=1 6030 IF B<>1 OR D>=10 THEN 6210 6120 PRINT "ROLL YOUR 2ND BALL" 6210 REM ARK STORAGE OF THE0 RANDOMIZE 1 PRINT CHR$(26):WIDTH 80:PRINT TAB(33);"BOXING":PRINT 2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 4 PRINT "BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)" 5 J=0 6 L=0 8 PRINT 10 PRINT "WHAT IS YOUR OPPONENT'S NAME"; 20 INPUT J$ 30 PRINT "INPUT YOUR MAN'S NAME"; 40 INPUT L$ 45 PRINT 50 PRINT "DIFFERENT PUNCHES ARE: (1) FULL SWING; (2) HOOK; (3) UPPERCUT; (4) JAB." 60 PRINT "WHAT IS YOUR MANS BEST"; 64 INPUT B 70 PRINT "WHAT IS HIS VULNERABILITY"; 80 INPUT D 90 B1=INT(4*RND(1)+1) 100 D1=INT(4*RND(1)+1) 110 IF B1=D1 THEN 90 120 PRINT:PRINT J$;"'S ADVANTAGE IS";B1;"AND VULNERABILITY IS SECRET.":PRINT 130 FOR R=1 TO 3 140 IF J>= 2 THEN 1040 150 IF L>=2 THEN 1060 160 X=0 170 Y=0 180 PRINT "ROUND";R;"BEGINS..." 181 PRINT "--------------" 185 FOR R1= 1 TO 7 190 I=INT(10*RND(1)+1) 200 IF I>5 THEN 600 210 PRINT L$;"'S PUNCH"; 220 INPUT P 221 IF P=B THEN 225 222 GOTO 230 225 X=X+2 230 IF P=1 THEN 340 240 IF P=2 THEN 450 250 IF P=3 THEN 520 270 PRINT L$;" JABS AT ";J$"'S HEAD "; 271 IF D1=4 THEN 290 275 C=INT(8*RND(1)+1) 280 IF C<4 THEN 310 290 X=X+3 300 GOTO 950 310 PRINT "IT'S BLOCKED." 330 GOTO 950 340 PRINT L$ " SWINGS AND "; 341 IF D1=4 THEN 410 345 X3=INT(30*RND(1)+1) 350 IF X3<10 THEN 410 360 PRINT "HE MISSES "; 370 PRINT 375 IF X=1 THEN 950 380 PRINT 390 PRINT 400 GOTO 300 410 PRINT "HE CONNECTS!" 420 IF X>35 THEN 980 425 X=X+15 440 GOTO 300 450 PRINT L$;" GIVES THE HOOK... "; 455 IF D1=2 THEN 480 460 H1=INT(2*RND(1)+1) 470 IF H1=1 THEN 500 475 PRINT "CONNECTS..." 480 X=X+7 490 GOTO 300 500 PRINT "BUT IT'S BLOCKED!!!!!!!!!!!!!" 510 GOTO 300 520 PRINT L$ " TRIES AN UPPERCUT "; 530 IF D1=3 THEN 570 540 D5=INT(100*RND(1)+1) 550 IF D5<51 THEN 570 560 PRINT "AND IT'S BLOCKED (LUCKY BLOCK!)" 565 GOTO 300 570 PRINT "AND HE CONNECTS!" 580 X=X+4 590 GOTO 300 600 J7=INT(4*RND(1)+1) 601 IF J7 =B1 THEN 605 602 GOTO 610 605 Y=Y+2 610 IF J7=1 THEN 720 620 IF J7=2 THEN 810 630 IF J7 =3 THEN 860 640 PRINT J$;" JABS AND "; 645 IF D=4 THEN 700 650 Z4=INT(7*RND(1)+1) 655 IF Z4>4 THEN 690 660 PRINT "IT'S BLOCKED!" 670 GOTO 300 690 PRINT " BLOOD SPILLS !!!" 700 Y=Y+5 710 GOTO 300 720 PRINT J$" TAKES A FULL SWING AND"; 730 IF D=1 THEN 770 740 R6=INT(60*RND(1)+1) 745 IF R6 <30 THEN 770 750 PRINT " IT'S BLOCKED!" 760 GOTO 300 770 PRINT " POW!!!!! HE HITS HIM RIGHT IN THE FACE!" 780 IF Y>35 THEN 1010 790 Y=Y+15 800 GOTO 300 810 PRINT J$;" GETS ";L$;" IN THE JAW (OUCH!)" 820 Y=Y+7 830 PRINT "....AND AGAIN!" 835 Y=Y+5 840 IF Y>35 THEN 1010 850 PRINT 860 PRINT L$;" IS ATTACKED BY AN UPPERCUT (OH,OH)..." 865 IF D=3 THEN 890 870 Q4=INT(200*RND(1)+1) 880 IF Q4>75 THEN 920 890 PRINT "AND ";J$;" CONNECTS..." 900 Y=Y+8 910 GOTO 300 920 PRINT " BLOCKS AND HITS ";J$;" WITH A HOOK." 930 X=X+5 940 GOTO 300 950 NEXT R1 951 IF X>Y THEN 955 952 PRINT:PRINT J$" WINS ROUND" R;CHR$(8);".":PRINT 953 J=J+1 954 GOTO 960 955 PRINT:PRINT L$" WINS ROUND"R;CHR$(8);".":PRINT 956 L=L+1 960 NEXT R 961 IF J>= 2 THEN 1040 962 IF L>=2 THEN 1060 980 PRINT J$ " IS KNOCKED COLD AND " L$" IS THE WINNER AND CHAMP!"; 1000 GOTO 1080 1010 PRINT L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP!"; 1030 GOTO 1000 1040 PRINT J$ " WINS (NICE GOING," J$;")." 1050 GOTO 1000 1060 PRINT L$ " AMAZINGLY WINS!!" 1070 GOTO 1000 1080 PRINT 1085 PRINT 1090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARENA." 1100 PRINT 1110 RUN "MENU" !" 1070 GOTO 1000 1080 PRINT 1085 PRINT 1090 PRINT "AND NOW G 830 PRINT "....AND AGAIN!" 835 Y=Y+5 840 IF Y>35 THEN 1010 850 PRINT 860 PRINT L$;" IS ATTACKED BY AN UPPERCUT (OH,OH)..." 865 IF D=3 THEN 890 870 Q4=INT(200*RND(1)+1) 880 IF Q4>75 THEN 920 890 PRINT "AND ";J$;" CONNECTS..." 900 Y=Y+8 910 GOTO 300 920 PRINT " BLOCKS AND HITS ";J$;" WITH A HOOK." 930 X=X+5 940 GOTO 300 950 NEXT R1 951 IF X>Y THEN 955 952 PRINT:PRINT J$" WINS ROUND" R;CHR$(8);".":PRINT 953 J=J+1 954 GOTO 960 955 PRINT:PRINT L$" WINS ROUND"R;CHR$(8);".":PRINT 956 L=L+1 961 RANDOMIZE 2 REM Modified by Jim Woolley, FOG Disk Librarian, 8/82 5 PRINT CHR$(26) 10 PRINT TAB(34);"BUG":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 REM 50 A=0: B=0: H=0: L=0: N=0: P=0: Q=0: R=0: S=0: T=0: U=0: V=0: Y=0 60 PRINT "THE GAME BUG IS LIKE THE GAME COOTI." 70 PRINT "I HOPE YOU ENJOY THIS GAME." 80 PRINT 90 PRINT "DO YOU WANT INSTRUCTIONS"; 100 INPUT Z$ 110 IF LEFT$(Z$,1)="N" OR LEFT$(Z$,1)="n" THEN 300 115 PRINT CHR$(26) 120 PRINT " The object of BUG is to finish your Bug before I finish" 130 PRINT "mine. Each number stands for a part of the bug body." 140 PRINT "I will roll the die for you and tell you what the number" 150 PRINT "stands for, and if you can get the part I will give it" 160 PRINT "to you. The same will happen on my turn." 170 PRINT 180 PRINT " If there is a change in either bug I will give you the" 190 PRINT "option of seeing the pictures of the Bugs.":PRINT 200 PRINT " The numbers stand for parts as follows:":PRINT 210 PRINT "NUMBER","PART","NUMBER OF PART NEEDED" 215 PRINT "------","----","----------------------" 220 PRINT TAB(3);"1","BODY",TAB(38);"1" 230 PRINT TAB(3);"2","NECK",TAB(38);"1" 240 PRINT TAB(3);"3","HEAD",TAB(38);"1" 250 PRINT TAB(3);"4","FEELERS",TAB(38);"2" 260 PRINT TAB(3);"5","TAIL",TAB(38);"1" 270 PRINT TAB(3);"6","LEGS",TAB(38);"6" 280 PRINT 290 LINE INPUT "Enter 'RETURN' to start the game.";RR$:PRINT CHR$(26) 300 IF Y>0 THEN 2480 310 Z=INT(6*RND(1)+1) 320 C=1 330 PRINT:PRINT "YOU ROLLED A";Z;CHR$(8);"." 340 ON Z GOTO 350,430,540,650,760,870 350 PRINT "1=BODY" 360 IF B=1 THEN 410 370 PRINT "YOU NOW HAVE A BODY." 380 B=1 390 C=0 400 GOTO 970 410 PRINT "YOU DO NOT NEED A BODY." 420 GOTO 970 430 PRINT "2=NECK" 440 IF N=1 THEN 500 450 IF B=0 THEN 520 460 PRINT "YOU NOW HAVE A NECK." 470 N=1 480 C=0 490 GOTO 970 500 PRINT "YOU DO NOT NEED A NECK." 510 GOTO 970 520 PRINT "YOU DO NOT HAVE A BODY." 530 GOTO 970 540 PRINT "3=HEAD" 550 IF N=0 THEN 610 560 IF H=1 THEN 630 570 PRINT "YOU NEEDED A HEAD." 580 H=1 590 C=0 600 GOTO 970 610 PRINT "YOU DO NOT HAVE A NECK." 620 GOTO 970 630 PRINT "YOU HAVE A HEAD." 640 GOTO 970 650 PRINT "4=FEELERS" 660 IF H=0 THEN 740 670 IF A=2 THEN 720 680 PRINT "I NOW GIVE YOU A FEELER." 690 A=A+1 700 C=0 710 GOTO 970 720 PRINT "YOU HAVE TWO FEELERS ALREADY." 730 GOTO 970 740 PRINT "YOU DO NOT HAVE A HEAD." 750 GOTO 970 760 PRINT "5=TAIL" 770 IF B=0 THEN 830 780 IF T=1 THEN 850 790 PRINT "I NOW GIVE YOU A TAIL." 800 T=T+1 810 C=0 820 GOTO 970 830 PRINT "YOU DO NOT HAVE A BODY." 840 GOTO 970 850 PRINT "YOU ALREADY HAVE A TAIL." 860 GOTO 970 870 PRINT "6=LEG" 880 IF L=6 THEN 940 890 IF B=0 THEN 960 900 L=L+1 910 C=0 920 PRINT "YOU NOW HAVE";L;"LEGS." 930 GOTO 970 940 PRINT "YOU HAVE 6 LEGS ALREADY." 950 GOTO 970 960 PRINT "YOU DO NOT HAVE A BODY." 970 X=INT(6*RND(1)+1) 971 PRINT 975 FOR DELAY=1 TO 2000:NEXT DELAY 980 PRINT "I ROLLED A";X;CHR$(8);"." 990 ON X GOTO 1000,1080,1190,1300,1410,1520  1000 PRINT "1=BODY" 1010 IF P=1 THEN 1060 1020 PRINT "I NOW HAVE A BODY." 1030 C=0 1040 P=1 1050 GOTO 1630 1060 PRINT "I DO NOT NEED A BODY." 1070 GOTO 1630 1080 PRINT "2=NECK" 1090 IF Q=1 THEN 1150 1100 IF P=0 THEN 1170 1110 PRINT "I NOW HAVE A NECK." 1120 Q=1 1130 C=0 1140 GOTO 1630 1150 PRINT "I DO NOT NEED A NECK." 1160 GOTO 1630 1170 PRINT "I DO NOT HAVE A BODY." 1180 GOTO 1630 1190 PRINT "3=HEAD" 1200 IF Q=0 THEN 1260 1210 IF R=1 THEN 1280 1220 PRINT "I NEEDED A HEAD." 1230 R=1 1240 C=0 1250 GOTO 1630 1260 PRINT "I DO NOT HAVE A NECK." 1270 GOTO 1630 1280 PRINT "I DO NOT NEED A HEAD." 1290 GOTO 1630 1300 PRINT "4=FEELERS" 1310 IF R=0 THEN 1390 1320 IF S=2 THEN 1370 1330 PRINT "I GET A FEELER." 1340 S=S+1 1350 C=0 1360 GOTO 1630 1370 PRINT "I HAVE 2 FEELERS ALREADY." 1380 GOTO 1630 1390 PRINT "I DO NOT HAVE A HEAD." 1400 GOTO 1630 1410 PRINT "5=TAIL" 1420 IF P=0 THEN 1480 1430 IF U=1 THEN 1500 1440 PRINT "I NOW HAVE A TAIL." 1450 U=1 1460 C=0 1470 GOTO 1630 1480 PRINT "I DO NOT HAVE A BODY." 1490 GOTO 1630 1500 PRINT "I DO NOT NEED A TAIL." 1510 GOTO 1630 1520 PRINT "6=LEGS" 1530 IF V=6 THEN 1590 1540 IF P=0 THEN 1610 1550 V=V+1 1560 C=0 1570 PRINT "I NOW HAVE";V;"LEGS." 1580 GOTO 1630 1590 PRINT "I HAVE 6 LEGS." 1600 GOTO 1630 1610 PRINT "I DO NOT HAVE A BODY." 1620 GOTO 1630 1630 PRINT:FOR DELAY=1 TO 2000:NEXT:IF A=2 AND T=1 AND L=6 THEN 1650 1640 GOTO 1670 1650 PRINT "YOUR BUG IS FINISHED." 1660 Y=Y+1 1670 IF S=2 AND P=1 AND V=6 THEN 1690 1680 GOTO 1710 1690 PRINT "MY BUG IS FINISHED." 1700 Y=Y+2 1710 IF C=1 THEN 300 1720 PRINT "DO YOU WANT THE PICTURES"; 1730 INPUT Z$ 1740 IF LEFT$(Z$,1)="N" OR LEFT$(Z$,1)="n" THEN 300 1750 PRINT CHR$(26):PRINT "***** YOUR BUG *****" 1770 PRINT 1780 IF A=0 THEN 1860 1790 FOR Z=1 TO 4 1795 PRINT TAB(10); 1800 FOR X=1 TO A 1820 PRINT "F "; 1830 NEXT X 1840 PRINT 1850 NEXT Z 1860 IF H=0 THEN 1880 1870 GOSUB 2470 1880 IF N=0 THEN 1920 1890 FOR Z=1 TO 2 1900 PRINT " N N" 1910 NEXT Z 1920 IF B=0 THEN 2000 1930 PRINT " BBBBBBBBBBBB" 1940 FOR Z=1 TO 2 1950 PRINT " B B" 1960 NEXT Z 1970 IF T<>1 THEN 1990 1980 PRINT "TTTTTB B" 1990 PRINT " BBBBBBBBBBBB" 2000 IF L=0 THEN 2080 2010 FOR Z=1 TO 2 2020 PRINT TAB(5); 2030 FOR X=1 TO L 2040 PRINT " L"; 2050 NEXT X 2060 PRINT 2070 NEXT Z 2080 FOR Z=1 TO 4 2090 PRINT 2100 NEXT Z 2105 INPUT "PRESS RETURN TO CONTINUE",Z$:PRINT CHR$(26) 2110 PRINT "***** MY BUG *****" 2140 PRINT 2150 IF S=0 THEN 2230 2160 FOR Z=1 TO 4 2170 PRINT TAB(10); 2180 FOR X=1 TO S 2190 PRINT "F "; 2200 NEXT X 2210 PRINT 2220 NEXT Z 2230 IF R<>1 THEN 2250 2240 GOSUB 2470 2250 IF Q=0 THEN 2280 2260 PRINT " N N" 2270 PRINT " N N" 2280 IF P=0 THEN 2360 2290 PRINT " BBBBBBBBBBBB" 2300 FOR Z=1 TO 2 2310 PRINT " B B" 2320 NEXT Z 2330 IF U<>1 THEN 2350 2340 PRINT "TTTTTB B" 2350 PRINT " BBBBBBBBBBBB" 2360 IF V=0 THEN 2450 2370 FOR Z=1 TO 2 2380 PRINT TAB(5); 2390 FOR X=1 TO V 2400 PRINT " L"; 2410 NEXT X 2420 PRINT 2430 NEXT Z 2450 IF Y<>0 THEN 2540 2460 GOTO 300 2470 PRINT " HHHHHHH" 2480 PRINT " H H" 2490 PRINT " H O O H" 2500 PRINT " H H" 2510 PRINT " H V H" 2520 PRINT " HHHHHHH" 2530 RETURN 2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!" 2550 RUN "MENU" " 2520 PRINT " HHHHHHH" 2530 RETURN 2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!" 2550 RS=0 THEN 2230 2160 FOR Z=1 TO 4 2170 PRINT TAB(10); 2180 FOR X=1 TO S 2190 PRINT "F "; 2200 NEXT X 2210 PRINT 2220 NEXT Z 2230 IF R<>1 THEN 2250 2240 GOSUB 2470 2250 IF Q=0 THEN 2280 2260 PRINT " N N" 2270 PRINT " N N" 2280 IF P=0 THEN 2360 2290 PRINT " BBBBBBBBBBBB" 2300 FOR Z=1 TO 2 2310 PRINT " B B" 2320 NEXT Z 2330 IF U<>1 THEN 2350 2340 PRINT "TTTTTB B" 2350 PRINT " BBBBBBBBBBBB" 2360 IF V=0 THEN 2450 2370 FOR Z=1 TO 2 2380 PRINT TA1 RANDOMIZE 5 WIDTH 80:PRINT CHR$(26) 10 PRINT TAB(34);"BULL":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 DEF FNA(K)=INT(RND(1)*2+1) 200 PRINT:PRINT:PRINT 202 L=1 205 PRINT "DO YOU WANT INSTRUCTIONS"; 206 INPUT Z$ 207 IF LEFT$(Z$,1)="N" OR LEFT$(Z$,1)="n" THEN 400 208 PRINT CHR$(26) 210 PRINT "HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS.":PRINT 220 PRINT "HERE IS YOUR BIG CHANCE TO KILL A BULL." 230 PRINT 240 PRINT "ON EACH PASS OF THE BULL, YOU MAY TRY" 250 PRINT "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" 260 PRINT "1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" 270 PRINT "2 - ORDINARY SWIRL OF THE CAPE." 280 PRINT 290 PRINT "INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL" 300 PRINT "ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)." 310 PRINT "BUT IF I WERE YOU," 320 PRINT "I WOULDN'T TRY IT BEFORE THE SEVENTH PASS." 330 PRINT 340 PRINT "THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" 350 PRINT "(POSTHUMOUSLY IF NECESSARY)." 360 PRINT "THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE." 370 PRINT 380 PRINT "THE BETTER THE JOB THE PICADORES AND TOREADORES DO," 390 PRINT "THE BETTER YOUR CHANCES ARE." 392 PRINT:PRINT 394 LINE INPUT "ENTER 'RETURN' TO BEGIN THE FIGHT.";XX$:PRINT CHR$(26) 400 PRINT 410 PRINT 420 D(5)=1 430 D(4)=1 450 DIM L$(5) 455 A=INT(RND(1)*5+1) 460 FOR I=1 TO 5 463 READ L$(I) 467 NEXT I 470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL" 490 PRINT "YOU HAVE DRAWN A ";L$(A);" BULL." 500 IF A>4 THEN 530 510 IF A<2 THEN 550 520 GOTO 570 530 PRINT "YOU'RE LUCKY." 540 GOTO 570 550 PRINT "GOOD LUCK. YOU'LL NEED IT." 560 PRINT 570 PRINT 590 A$="PICADO" 595 B$="RES" 600 GOSUB 1610 610 D(1)=C 630 A$="TOREAD" 635 B$="ORES" 640 GOSUB 1610 650 D(2)=C 660 PRINT 670 PRINT 680 IF Z=1 THEN 1310 690 D(3)=D(3)+1 700 PRINT "PASS NUMBER";D(3) 705 PRINT "---------------" 710 IF D(3)<3 THEN 760 720 PRINT "HERE COMES THE BULL. TRY FOR A KILL"; 730 GOSUB 1930 735 IF Z1=1 THEN 1130 740 PRINT "CAPE MOVE"; 750 GOTO 800 760 PRINT "THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" 770 PRINT "DO YOU WANT TO KILL THE BULL"; 780 GOSUB 1930 785 IF Z1=1 THEN 1130 790 PRINT "WHAT MOVE DO YOU MAKE WITH THE CAPE"; 800 INPUT E 810 IF E<>INT(ABS(E)) THEN 830 820 IF E<3 THEN 850 830 PRINT "DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" 840 GOTO 800 850 REM 860 IF E=0 THEN 920 870 IF E=1 THEN 900 880 M=.5 890 GOTO 930 900 M=2 910 GOTO 930 920 M=3 930 L=L+M 940 F=(6-A+M/10)*RND(1)/((D(1)+D(2)+D(3)/10)*5) 950 IF F<.51 THEN 660 960 PRINT "THE BULL HAS GORED YOU!" 970 ON FNA(0) GOTO 980,1010 980 PRINT "YOU ARE DEAD." 990 D(4)=1.5 1000 GOTO 1310 1010 PRINT "YOU ARE STILL ALIVE.":PRINT 1020 PRINT "DO YOU RUN FROM THE RING"; 1030 GOSUB 1930 1035 IF Z1=2 THEN 1070 1040 PRINT "COWARD" 1050 D(4)=0 1060 GOTO 1310 1070 PRINT "YOU ARE BRAVE. STUPID, BUT BRAVE." 1080 ON FNA(0) GOTO 1090,1110 1090 D(4)=2 1100 GOTO 660 1110 PRINT "YOU ARE GORED AGAIN!" 1120 GOTO 970 1130 REM 1140 Z=1 1150 PRINT:PRINT "IT IS THE MOMENT OF TRUTH.":PRINT 1155 PRINT "HOW DO YOU TRY TO KILL THE BULL"; 1160 INPUT H 1170 IF H=4 THEN 1230 1180 IF H=5 THEN 1230 1190 PRINT "YOU PANICKED. THE BULL GORED YOU." 1220 GOTO 970 1230 K=(6-A)*10*RND(1)/((D(1)+D(2))*5*D(3)) 1240 IF J=4 THEN 1290 1250 IF K>.2 THEN 960 1260 PRINT "YOU KILLED THE BULL!" 1270 D(5)=2 1280 GOTO 1320 1290 IF K>.8 THEN 960 1300 GOTO 1260 1310 PRINT 1320 PRINT 1330 PRINT 1340 IF D(4)<>0 THEN 1390 1350 PRINT "THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW" 1360 PRINT "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL YOU--" 1370 PRINT "UNLES THE BULL DOES FIRST." 1380 GOTO 1580 1390 DEF FNC(Q)=FND(Q)*RND(1) 1395 DEF FND(Q)=(4.5+L/6-(D(1)+D(2))*2.5+4*D(4)+2*D(5)-D(3)^2/120-A) 1400 IF D(4)<>2 THEN 1430 1410 PRINT "THE CROWD CHEERS WILDLY!" 1420 GOTO 1450 1430 IF D(5)<>2 THEN 1450 1440 PRINT "THE CROWD CHEERS!":PRINT 1450 PRINT "THE CROWD AWARDS YOU" 1460 IF FNC(Q)<2.4 THEN 1570 1470 IF FNC(Q)<4.9 THEN 1550 1480 IF FNC(Q)<7.4 THEN 1520 1500 PRINT "OLE! YOU ARE 'MUY HOMBRE'!! OLE! OLE!" 1510 GOTO 1580 1520 PRINT "BOTH EARS OF THE BULL!" 1530 PRINT "OLE!" 1540 GOTO 1580 1550 PRINT "ONE EAR OF THE BULL." 1560 GOTO 1580 1570 PRINT "NOTHING AT ALL." 1580 PRINT 1590 PRINT "ADIOS":PRINT:PRINT:PRINT 1600 GOTO 2030 1610 B=3/A*RND(1) 1620 IF B<.37 THEN 1740 1630 IF B<.5 THEN 1720 1640 IF B<.63 THEN 1700 1650 IF B<.87 THEN 1680 1660 C=.1 1670 GOTO 1750 1680 C=.2 1690 GOTO 1750 1700 C=.3 1710 GOTO 1750 1720 C=.4 1730 GOTO 1750 1740 C=.5 1750 T=INT(10*C+.2) 1760 PRINT "THE ";A$;B$;" DID A ";L$(T);" JOB." 1770 IF 4>T THEN 1900 1780 IF 5=T THEN 1870 1790 ON FNA(K) GOTO 1830,1850 1800 IF A$="TOREAD" THEN 1820 1810 PRINT "ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED." 1820 ON FNA(K) GOTO 1830,1850 1830 PRINT "ONE OF THE ";A$;B$;" WAS KILLED." 1840 GOTO 1900 1850 PRINT "NO ";A$;B$;" WERE KILLED." 1860 GOTO 1900 1870 IF A$="TOREAD" THEN 1890 1880 PRINT FNA(K);"OF THE HORSES OF THE ";A$;B$;" KILLED." 1890 PRINT FNA(K);"OF THE ";A$;B$;" KILLED." 1900 PRINT 1910 RETURN 1920 REM 1930 INPUT A$ 1940 IF LEFT$(A$,1)="Y" OR LEFT$(A$,1)="y" THEN 1990 1950 IF LEFT$(A$,1)="N" OR LEFT$(A$,1)="n" THEN 2010 1970 PRINT "INCORRECT ANSWER - - PLEASE TYPE 'YES' OR 'NO'." 1980 GOTO 1930 1990 Z1=1 2000 GOTO 2020 2010 Z1=2 2020 RETURN 2030 RUN "MENU" CT ANSWER - - PLEASE TYPE 'YES' O<.63 THEN 1700 1650 IF B<.87 THEN 1680 1660 C=.1 1670 GOTO 1750 1680 C=.2 1690 GOTO 1750 1700 C=.3 1710 GOTO 1750 1720 C=.4 1730 GOTO 1750 1740 C=.5 1750 T=INT(10*C+.2) 1760 PRINT "THE ";A$;B$;" DID A ";L$(T);" JOB." 1770 IF 4>T THEN 1900 1780 IF 5=T THEN 1870 1790 ON FNA(K) GOTO 1830,1850 1800 IF A$="TOREAD" THEN 1820 1810 PRINT "ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED." 1820 ON FNA(K) GOTO 1830,1850 1830 PRINT "ONE OF THE ";A$;B$;" WAS KILLED." 1840 GOTO 1900 1850 PRINT "NO ";A$;B$;" WERE KILLED." 1860 GOTO 1900 1870 IF A$="TOREAD" THEN 1890 1880 PRINT FNA(K);"OF THE HORSES OF THE ";A$;B$;" KILLED." 1 RANDOMIZE 3 PRINT CHR$(26):WIDTH 80 5 PRINT TAB(32);"BULLSEYE":PRINT 10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT:PRINT:PRINT 30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET" 40 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS" 50 PRINT "TO GET 200 POINTS.": PRINT 60 PRINT "THROW",TAB(20);"DESCRIPTION";TAB(45);"PROBABLE SCORE" 65 PRINT "=====",TAB(20);"===========";TAB(45);"==============" 70 PRINT" 1";TAB(20);"FAST OVERARM";TAB(45);"BULLSEYE OR COMPLETE MISS" 80 PRINT" 2";TAB(20);"CONTROLLED OVERARM";TAB(45);"10, 20 OR 30 POINTS" 90 PRINT" 3";TAB(20);"UNDERARM";TAB(45);"ANYTHING":PRINT 100 DIM A$(20),S(20),W(10): M=0: R=0: FOR I=1 TO 20: S(I)=0: NEXT I 110 INPUT "HOW MANY PLAYERS";N: PRINT 120 FOR I=1 TO N 130 PRINT "NAME OF PLAYER #";I;:INPUT A$(I) 140 NEXT I 150 R=R+1: PRINT: PRINT "ROUND";R:PRINT "---------" 160 FOR I=1 TO N 170 PRINT: PRINT A$(I)"'S THROW";: INPUT T 180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!": GOTO 170 190 ON T GOTO 200, 210, 200 200 P1=.65: P2=.55: P3=.5: P4=.5: GOTO 230 210 P1=.99: P2=.77: P3=.43: P4=.01: GOTO 230 220 P1=.95: P2=.75: P3=.45: P4=.05 230 U=RND(1) 240 IF U>=P1 THEN PRINT "BULLSEYE!! 40 POINTS!":B=40: GOTO 290 250 IF U>=P2 THEN PRINT "30-POINT ZONE!":B=30: GOTO 290 260 IF U>=P3 THEN PRINT "20-POINT ZONE":B=20: GOTO 290 270 IF U>=P4 THEN PRINT "WHEW! 10 POINTS.":B=10: GOTO 290 280 PRINT "MISSED THE TARGET! TOO BAD.": B=0 290 S(I)=S(I)+B: PRINT "TOTAL SCORE =";S(I): NEXT I 300 FOR I=1 TO N 310 IF S(I)>=200 THEN M=M+1: W(M)=I 320 NEXT I 330 IF M=0 THEN 150 340 PRINT: PRINT "WE HAVE A WINNER!!": PRINT 350 FOR I=1 TO M: PRINT A$(W(I));" SCORED";S(W(I));"POINTS.": NEXT I 360 PRINT: PRINT "THANKS FOR THE GAME.":RUN "MENU" INT INT 120 FOR I=1 TO N 130 PRINT "NAME OF PLAYER #";I;:INPUT A$(I) 140 NEXT I 150 R=R+1: PRINT: PRINT "ROUND";R:PRINT "---------" 160 FOR I=1 TO N 170 PRINT: PRINT A$(I)"'S THROW";: INPUT T 180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!": GOTO 170 11 RANDOMIZE 5 PRINT CHR$(26):WIDTH 80 10 PRINT TAB(26);"BUZZWORD GENERATOR":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 PRINT "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN" 50 PRINT "'EDUCATOR-SPEAK' THAT YOU CAN WORK INTO REPORTS" 60 PRINT "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED," 70 PRINT "TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT." 80 PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:" 90 DIM A$(40) 100 FOR I=1 TO 39 : READ A$(I) : NEXT I 110 PRINT A$(INT(13*RND(1)+1));" "; 120 PRINT A$(INT(13*RND(1)+14));" "; 130 PRINT A$(INT(13*RND(1)+27)) : PRINT 150 INPUT Y$ : IF Y$="Y" THEN 110 ELSE GOTO 999 200 DATA "ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED" 210 DATA "DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS" 220 DATA "HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK" 230 DATA "INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE" 240 DATA "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC" 250 DATA "INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE" 260 DATA "MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION" 270 DATA "ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM" 280 DATA "PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE" 290 DATA "STRUCTURE","FACILITY","ENVIRONMENT" 999 PRINT "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!":RUN "MENU" RCE" 290 DATA "STRUCTURE","FACILITHER PHRASE OR 'N' TO QUIT." 80 PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:" 90 DIM A$(40) 100 FOR I=1 TO 39 : READ A$(I) : NEXT I 110 PRINT A$(INT(13*RND(1)+1));" "; 120 PRINT A$(INT(13*RND(1)+14));" "; 130 PRINT A$(INT(13*RND(1)+27)) : PRINT 150 INPUT Y$ : IF Y$="Y" THEN 110 ELSE GOTO 999 200 DATA "ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED" 210 DATA "DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS" 220 DATA "HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK" 230 DATA "INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE" 240 DATA "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC" 250 DATA "INTEGRATED","NON-GRADE10 REM* * * * * * * * * * * * * * * * * * 20 REM* STATE CAPITALS 30 REM* * * * * * * * * * * * * * * * * * 40 PRINT CHR$(26) 50 PRINT " *" 60 PRINT " * *" 70 PRINT " * *" 80 PRINT " * *" 90 PRINT " * *" 100 PRINT " * *" 110 PRINT " * *" 120 PRINT " * STATE CAPITALS *" 130 PRINT " * by Ray Gordon *" 140 PRINT " * COPYRIGHT (C) 1979 *" 150 PRINT " * *" 160 PRINT " * *" 170 PRINT " * * * * * * * * * * * * * * * * * * *" 180 PRINT " * * * * * * * *" 190 PRINT " * * * * * * * *" 200 PRINT " * * * * * * * *" 210 PRINT " * * * * * * * *" 220 PRINT " * * * * * * * * * * * * * * * * * * *" 230 PRINT " * *" 240 PRINT " * *" 250 PRINT 260 PRINT " Press SPACE to begin " 270 LET X$=INKEY$ 280 IF LEN(X$)=0 THEN Y=Y+1: GOTO 270 290 RANDOMIZE Y 300 REM* * * * * * * * * * * * * * * * * * 310 REM* MAIN LOOP 320 REM* * * * * * * * * * * * * * * * * * 330 GOSUB 350 340 GOTO 450 350 PRINT CHR$(26) 360 PRINT " KNOW THE STATE CAPITALS" 370 PRINT " by Ray Gordon 380 PRINT " COPYRIGHT (C) 1979" 390 PRINT:PRINT:PRINT:PRINT 400 PRINT " I WILL GIVE YOU THE STATE AND YOU" 410 PRINT " GIVE ME THE CAPITAL." 420 LET S=INT(RND*50) 430 RESTORE 930 440 RETURN 450 IF T<>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 " YOU 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 REM 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$=INPUT$ (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$(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 HERE 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","CONNECTICUTT","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 DATA "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","INDIANA","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","AUSTIN","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" 1150 DATA "DELAWARE","DOVER","CALIFORNIA","SACRAMENTO" 1160 DATA "OREGON","SALEM","ARIZONA","PHOENIX" ,"WYOMING","CHEYENNE" 115RALEIGH" 990 DATA "S.CAROLINA","COLUMBIA","FLORIDA","TALLAHASSEE" 1000 DATA "GEORGIA","ATLANTA","ALABAMA","MONTGOMERY" 1010 DATA "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","INDIANA","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","1 PRINT CHR$(26):WIDTH 80 2 PRINT TAB(33);"CHANGE":PRINT 4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 5 PRINT:PRINT:PRINT 6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE" 8 PRINT "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100." 9 PRINT:PRINT 10 PRINT "COST OF ITEM";:INPUT A:PRINT "AMOUNT OF PAYMENT";:INPUT P 20 C=P-A:M=C:IF C<>0 THEN 90 25 PRINT "CORRECT AMOUNT, THANK YOU." 30 GOTO 400 90 IF C>0 THEN 120 95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";A-P 100 GOTO 10 120 PRINT "YOUR CHANGE, $";C 130 D=INT(C/10) 140 IF D=0 THEN 155 150 PRINT D;"TEN DOLLAR BILL(S)" 155 C=M-(D*10) 160 E=INT(C/5) 170 IF E=0 THEN 185 180 PRINT E;"FIVE DOLLARS BILL(S)" 185 C=M-(D*10+E*5) 190 F=INT(C) 200 IF F=0 THEN 215 210 PRINT F;"ONE DOLLAR BILL(S)" 215 C=M-(D*10+E*5+F) 220 C=C*100 225 N=C 230 G=INT(C/50) 240 IF G=0 THEN 255 250 PRINT G;"ONE HALF DOLLAR(S)" 255 C=N-(G*50) 260 H=INT(C/25) 270 IF H=0 THEN 285 280 PRINT H;"QUARTER(S)" 285 C=N-(G*50+H*25) 290 I=INT(C/10) 300 IF I=0 THEN 315 310 PRINT I;"DIME(S)" 315 C=N-(G*50+H*25+I*10) 320 J=INT(C/5) 330 IF J=0 THEN 345 340 PRINT J;"NICKEL(S)" 345 C=N-(G*50+H*25+I*10+J*5) 350 K=INT(C+.5) 360 IF K=0 THEN 380 370 PRINT K;"PENNY(S)" 380 PRINT "THANK YOU, COME AGAIN." 390 PRINT:PRINT 400 INPUT "AGAIN ";ANS$:PRINT 410 IF LEFT$(ANS$,1)="Y" GOTO 10 ELSE RUN "MENU" NT "THANK YOU, COME AGAINCORRECT AMOUNT, THANK YOU." 30 GOTO 400 90 IF C>0 THEN 120 95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";A-P 100 GOTO 10 120 PRINT "YOUR CHANGE, $";C 130 D=INT(C/10) 140 IF D=0 THEN 155 150 PRINT D;"TEN DOLLAR BILL(S)" 155 C=M-(D*10) 160 E=INT(C/5) 170 IF E=0 THEN 185 180 PRINT E;"FIVE DOLLARS BILL(S)" 185 C=M-(D*10+E*5) 190 F=INT(C) 200 IF F=0 THEN 215 210 PRINT F;"ONE DOLLAR BILL(S)" 215 C=M-(D*10+E*5+F) 220 C=C*100 225 N=C 230 G=INT(C/50) 240 IF G=0 THEN 255 250 PRINT G;"ONE HALF DOLLAR(S)" 255 C=N-(G*50) 260 H=INT(C/25) 270 IF H=0 THEN 285 280 PRINT H;"QUARTER(S)" 285 C=N-(G*50+H*25) 290 I=INT(C/10) 1 REM Corrected by Jim Woolley, FOG Disk Librarian, 8/82 2 PRINT CHR$(26) 5 PRINT TAB(32);"CHECKERS":PRINT 10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 15 PRINT:PRINT:PRINT 20 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X," 25 PRINT "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST." 30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM." 31 PRINT 35 PRINT "(0,0) IS THE LOWER LEFT CORNER" 40 PRINT "(0,7) IS THE UPPER LEFT CORNER" 45 PRINT "(7,0) IS THE LOWER RIGHT CORNER" 50 PRINT "(7,7) IS THE UPPER RIGHT CORNER" 51 PRINT 55 PRINT "THE COMPUTER WILL TYPE '+TO' WHEN YOU HAVE ANOTHER" 60 PRINT "JUMP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP." 65 PRINT:PRINT:PRINT 70 LINE INPUT "ENTER 'RETURN' TO START THE GAME.";XX$ 75 PRINT CHR$(26) 80 DIM R(4),S(7,7):G=-1:R(0)=-99 90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 120 FOR X=0 TO 7:FOR Y=0 TO 7:READ J:IF J=15 THEN 180 160 S(X,Y)=J:GOTO 200 180 RESTORE:READ S(X,Y) 200 NEXT Y,X 230 FOR X=0 TO 7:FOR Y=0 TO 7:IF S(X,Y)>-1 THEN 350 310 IF S(X,Y)=-1 THEN FOR A=-1 TO 1 STEP 2:B=G:GOSUB 650:NEXT A 330 IF S(X,Y)=-2 THEN FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 650:NEXT B,A 350 NEXT Y,X:GOTO 1140 650 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 870 740 IF S(U,V)=0 THEN GOSUB 910:GOTO 870 770 IF S(U,V)<0 THEN 870 790 U=U+A:V=V+B:IF U<0 OR V<0 OR U>7 OR V>7 THEN 870 850 IF S(U,V)=0 THEN GOSUB 910 870 RETURN 910 IF V=0 AND S(X,Y)=-1 THEN Q=Q+2 920 IF ABS(Y-V)=2 THEN Q=Q+5 960 IF Y=7 THEN Q=Q-2 980 IF U=0 OR U=7 THEN Q=Q+1 1030 FOR C=-1 TO 1 STEP 2:IF U+C<0 OR U+C>7 OR V+G<0 THEN 1080 1035 IF S(U+C,V+G)<0 THEN Q=Q+1:GOTO 1080 1040 IF U-C<0 OR U-C>7 OR V-G>7 THEN 1080 1045 IF S(U+C,V+G)>0 AND(S(U-C,V-G)=0 OR(U-C=X AND V-G=Y))THEN Q=Q-2 1080 NEXT C:IF Q>R(0)THEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V 1100 Q=0:RETURN 1140 IF R(0)=-99 THEN 1880 1230 PRINT CHR$(26)"FROM"R(1);R(2)"TO"R(3);R(4);:R(0)=-99 1240 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 1420 1250 S(R(3),R(4))=S(R(1),R(2)) 1310 S(R(1),R(2))=0:IF ABS(R(1)-R(3))<>2 THEN 1420 1330 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0 1340 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1370:NEXT A 1350 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1370:NEXT B:NEXT A 1360 IF R(0)<>-99 THEN PRINT"TO"R(3);R(4);:R(0)=-99:GOTO 1240 1365 GOTO 1420 1370 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 1400 1380 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 910 1400 RETURN 1420 PRINT:PRINT:PRINT:FOR Y=7 TO 0 STEP-1:FOR X=0 TO 7:I=5*X:PRINT TAB(I); 1430 IF S(X,Y)=0 THEN PRINT"."; 1470 IF S(X,Y)=1 THEN PRINT"O"; 1490 IF S(X,Y)=-1 THEN PRINT"X"; 1510 IF S(X,Y)=-2 THEN PRINT"X*"; 1530 IF S(X,Y)=2 THEN PRINT"O*"; 1550 NEXT X:PRINT" ":PRINT:NEXT Y:PRINT 1552 FOR L=0 TO 7 1554 FOR M=0 TO 7 1556 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1 1558 IF S(L,M)=-1 OR S(L,M)=-2 THEN T=1 1560 NEXT M 1562 NEXT L 1564 IF Z<>1 THEN 1885 1566 IF T<>1 THEN 1880 1570 Z=0: T=0 1590 INPUT "FROM";E,H:X=E:Y=H:IF S(X,Y)<=0 THEN 1590 1670 INPUT "TO";A,B:X=A:Y=B 1680 IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H)THEN 1700 1690 PRINT CHR$(7)CHR$(11);:GOTO 1670 1700 I=46 1750 S(A,B)=S(E,H):S(E,H)=0:IF ABS(E-A)<>2 THEN 1810 1800 S((E+A)/2,(H+B)/2)=0 1802 INPUT "+TO";A1,B1:IF A1<0 THEN 1810 1804 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN 1802 1806 E=A:H=B:A=A1:B=B1:I=I+15:GOTO 1750 1810 IF B=7 THEN S(A,B)=2 1830 GOTO 230 1880 PRINT: PRINT "YOU WIN.": GOTO 1890 1885 PRINT: PRINT "I WIN." 1890 RUN "MENU" 810 IF B=7 THEN S(A,B)=2 1830 GOTO 230 1880 PRI); 1430 IF S(X,Y)=0 THEN PRINT"."; 1470 IF S(X,Y)=1 THEN PRINT"O"; 1490 IF S(X,Y)=-1 THEN PRINT"X"; 1510 IF S(X,Y)=-2 THEN PRINT"X*"; 1530 IF S(X,Y)=2 THEN PRINT"O*"; 1550 NEXT X:PRINT" ":PRINT:NEXT Y:PRINT 1552 FOR L=0 TO 7 1554 FOR M=0 TO 7 1556 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1 1558 IF S(L,M)=-1 OR S(L,M)=-2 THEN T=1 1560 NEXT M 1562 NEXT L 1564 IF Z<>1 THEN 1885 1566 IF T<>1 THEN 1880 1570 Z=0: T=0 1590 INPUT "FROM";E,H:X=E:Y=H:IF S(X,Y)<=0 THEN 1590 1670 INPUT "TO";A,B:X=A:Y=B 1680 IF 0 RANDOMIZE 1 PRINT CHR$(26) 3 PRINT TAB(33);"CHEMST":PRINT 6 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 8 PRINT:PRINT:PRINT 10 PRINT "THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE" 20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID." 30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE" 40 PRINT "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST" 50 PRINT "DECIDE WHO MUCH WATER TO ADD FOR DILUTION. IF YOU MISS" 60 PRINT "YOU FACE THE CONSEQUENCES." 70 PRINT:PRINT 100 A=INT(RND(1)*50) 110 W=7*A/3 120 PRINT A;"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER"; 130 INPUT R 140 D=ABS(W-R) 150 IF D>W/20 THEN 200 160 PRINT " GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!" 170 PRINT 180 GOTO 100 200 PRINT " SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB" 210 PRINT " OF QUIVERING PROTOPLASM!":PRINT 220 T=T+1 230 IF T=9 THEN 260 240 PRINT " HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.":PRINT 250 GOTO 100 260 PRINT " YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR" 270 PRINT " YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY." 275 PRINT:PRINT:PRINT 280 RUN "MENU" REMEMBERED FOR" 270 PRINT " YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.ATER TO 3 PARTS ACID." 30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE" 40 PRINT "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST" 50 PRINT "DECIDE WHO MUCH WATER TO ADD FOR DILUTION. IF YOU MISS" 60 PRINT "YOU FACE THE CONSEQUENCES." 70 PRINT:PRINT 100 A=INT(RND(1)*50) 110 W=7*A/3 120 PRINT A;"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER"; 130 INPUT R 140 D=ABS(W-R) 150 IF D>W/20 THEN 200 160 PRINT " GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!" 170 PRINT 180 GOTO 100 200 PRINT " SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB" 210 PRINT " OF QUIVERING PROTOPLASM!":PRINT 220 T=T+1 230 IF T=9 THEN 260 240 PRINT " HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.":PRINT 250 GOTO 100 260 PRINT " Y5 PRINT CHR$(26):WIDTH 80 10 PRINT TAB(33);"CHOMP":PRINT 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 DIM A(10,10) 100 REM *** THE GAME OF CHOMP *** COPYRIGHT PCC 1973 *** 110 PRINT 120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)":PRINT 130 PRINT "DO YOU WANT THE RULES"; 140 INPUT R$ 150 IF LEFT$(R$,1)="N" OR LEFT$(R$,1)="n" THEN 340 160 F=1 170 R=5 180 C=7 190 PRINT "CHOMP is for one or more players -- Humans only." 210 PRINT "Here's how a board looks (this one is 5 by 7):" 220 GOSUB 540 240 PRINT "The board is a big cookie - R rows high and C columns" 250 PRINT "wide. You input R and C at the start. In the upper left" 260 PRINT "corner of the cookie is a poison square (P). The one who" 270 PRINT "chomps the poison square loses. To take a chomp, type the" 280 PRINT "row and column of one of the squares on the cookie." 290 PRINT "All of the squares below and to the right of that square" 300 PRINT "(including that square, too) disappear -- CHOMP!!" 310 PRINT "No fair chomping squares that have already been chomped," 320 PRINT "or that are outside the original dimensions of the cookie." 330 PRINT 340 PRINT:PRINT "HERE WE GO..." 350 REM 360 F=0 370 FOR I=1 TO 10 372 FOR J=1 TO 10 375 A(I,J)=0 377 NEXT J 379 NEXT I 380 PRINT 390 PRINT "HOW MANY PLAYERS"; 400 INPUT P 410 I1=0 420 PRINT "HOW MANY ROWS"; 430 INPUT R 440 IF R <= 9 THEN 470 450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, "; 460 GOTO 420 470 PRINT "HOW MANY COLUMNS"; 480 INPUT C 490 IF C <= 9 THEN 530 500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, "; 510 GOTO 470 530 PRINT 540 FOR I=1 TO R 550 FOR J=1 TO C 560 A(I,J)=1 570 NEXT J 580 NEXT I 590 A(1,1)=-1 600 REM PRINT THE BOARD 610 PRINT 620 PRINT TAB(7);"1 2 3 4 5 6 7 8 9" 630 FOR I=1 TO R 640 PRINT I;TAB(7); 650 FOR J=1 TO C 660 IF A(I,J)=-1 THEN 700 670 IF A(I,J)=0 THEN 720 680 PRINT "* "; 690 GOTO 710 700 PRINT "P "; 710 NEXT J 720 PRINT 730 NEXT I 740 PRINT 750 IF F=0 THEN 770 760 RETURN 770 REM GET CHOMPS FOR EACH PLAYER IN TURN 780 LET I1=I1+1 790 LET P1=I1-INT(I1/P)*P 800 IF P1 <> 0 THEN 820 810 P1=P 820 PRINT "PLAYER";P1:PRINT "--------" 830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; 840 INPUT R1,C1 850 IF R1<1 THEN 920 860 IF R1>R THEN 920 870 IF C1<1 THEN 920 880 IF C1>C THEN 920 890 IF A(R1,C1)=0 THEN 920 900 IF A(R1,C1)=-1 THEN 1010 910 GOTO 940 920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!" 930 GOTO 820 940 FOR I=R1 TO R 950 FOR J=C1 TO C 960 A(I,J)=0 970 NEXT J 980 NEXT I 990 GOTO 610 1000 REM END OF GAME DETECTED IN LINE 900 1010 PRINT:PRINT CHR$(22);"YOU LOSE, PLAYER";P1;CHR$(8);".";CHR$(22) 1020 PRINT 1030 PRINT "ANOTHER GAME"; 1040 INPUT R$ 1050 IF LEFT$(R$,1)="Y" OR LEFT$(R$,1)="y" THEN 340 ELSE PRINT:PRINT 1060 RUN "MENU" 0 PRINT "ANOTHER GAME"; 1040 INPUT R$ 1050 IF LEFT$(R$, 670 IF A(I,J)=0 THEN 720 680 PRINT "* "; 690 GOTO 710 700 PRINT "P "; 710 NEXT J 720 PRINT 730 NEXT I 740 PRINT 750 I10 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 110 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 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: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 GOTO 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+(T-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 520 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 " 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 GOTDARTS requires hitting a target on the screen. ACEYDUCYBAS AMAZING BAS AMAZINGPBASANIMAL BASBACCRRT BAS!BAGELS BASBASKETBLBAS+ !"BATNUM BAS#$%BATTLE BASC&'()*+,-.BATTLSHPBAS"/0123BATTLSHPDOC4BLACKJCKBASI56789:;<=>BOMBARD BAS?@ABOMBSAWYBASBCDEBOUNCE BAS FGBOWLING BASHIJBOXING BASKLMNBUG BAS4OPQRSTUBULLFGHTBAS+VWXYZ[BULLSEYEBAS\]BUZZWORDBAS ^_CAPITALSBAS#`abcdCHANGE BAS efCHECKERSBASghijCHEMIST BAS klCHOMP BASmnoDARTS BASpqDARTS $$$10 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" 100 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 " TYPE 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 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* * * * * * * * * * * * * * * * * * 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;" = "; 420 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 GOSUB 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 GOSUB 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);" 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* * * * * * * * * * * * * * * * * * 940 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 950 PRINT " SCORE: RIGHT:";R;" WRONG:";W 960 RETURN 970 REM* * * * * * * * * * * * * * * * * * 980 REM* GET RANDOM NUMBERS 990 REM* * * * * * * * * * * * * * * * * * 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:PRINT 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* * * * * * * * * * * * * * * * * * 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* 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 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:PRINT 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 NEXT 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  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 GOTO 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 B(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 PRINT: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 910 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 INPUT " 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 I2=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 4 1340 IF B(I,J)M(I,J) GOTO 760 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" 152=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 NUMBERSQ is similar to the game of moving tiles within a square matrix containing one missing tile until all tiles are in sequence. SMART DOCTRANSLATBASeTRANSLATDOCVOCAB BASVOCAB DOCCHEKLISTCRC*K͞+GG7S'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77!a{   `OE!y6$ -7rBo&))T])))!y":>""G #Ϳ,"x ..Ϳ,.ͭ'5':>?2>I#:>>2> *<-*N*l*2>ͻ':?[#7/ͽ6:>1$:>$:?$_,:>#)’#>66:?6#*?|£#2͈7#>66:?6>#6>66: ?6#*?">)#>6:?6>s6>@2>#2͈7#ͺ)#:>=2>))$>s6#́)($2:>"$2͈7#3͈7#*>">*?">:?ʒ$:>s$)f$>>6:?62͈7#2͈72>#)f$>6:?6>{62͈7#)«$:?„$>}62i$:?$.́)$>&663i$:?$_,w#:>$h-_,$:?>$>6_,>6>@2?$*>">Zþ//â=0ï J00F1!9DM͡! 6#6! ~#fo| ͤ! !-!ͧ!$ !-!ͧ*B~#fo!1 ! ͪ! !9!ͧ*@~#fo+|b!5 !-!ͧ*86@#6*<w#w*>~#fo!A * ͪ* !-!ͧ`iw#w`i~#fo|`i~#fo(k*!`i~#foͧ`i^#Vr+só*F6#6*H6#6*Jw#w*Lw#w*Nw#w*8~#fo*R~#fo~#fo*R~#fo##~#foͭ`iw#w`i~#fo! ~#fo+ҧ !@`i~#fo?!ͭ`i^#Vr+si *! s#r! w#w! ~#fo|~ ! ~#fo! ~#fo)s#r! ~#fo##6 #6! ~#fow#w! ~#fow#w! ~#fow#w! ~#fo w#w!M! ~#fo~#fo! ~#fo##~#foͭ! ^#V! r+s! ^#Vr+sþ *:w#w*:^#Vr+s! |¦ Ͱͳ*<~#fo#|½ ò ! w#w! ~#fo| ! ~#foͶ! ^#Vr+s *<~#fo#| ò *R~#fo~#fo+|5 ͳ*<~#fo#|5 ò ! 6#6! ~#fo|j ! ~#foͶ! ^#Vr+s> *<~#fo#|~ ò *@~#fo+|„ *D~#fo|© !ì ! *D~#fo!M * ͪ* !<!ͧ*D^#Vr+s!|҄ !S !-!ͧ*@w#w*R~#fow#w*R~#fow#w! w#w! ~#fo|҄ ! ~#fo k*6#6! ^#Vr+sD ͹*B~#fo|ҡ ͼ*<~#fo#|‰ !o !-!ͧ! !-!ͧ!Ϳ! ^#Vr+s! !-!ͧ! !-! ͧ!9SCORE: gold left = %6dCOUNTDOWN: delay = %6d%2d%c   YOU ARE BEING EATENTHIS TAKES ABOUT 2 SECONDSTHE MONSTERS ALWAYS TRIUMPHIN THE END! ?40/5!9DM*>~#fo! s#r! ~#fo|! ^#Vr+s ! *R~#fo~#fo! s#r*R~#fo##~#fo! s#r! ~#fo(k*! ~#fo6 *R~#fo~#fo>‹>ʲ>—>z>£>B>¯>M[*86^#6! ~#fo+(k*! ~#fon`is#r>.>*> >*>*>*>%>*>$'>*a! ! ~#fo! ~#fo *R~#fo##~#fo+s#rw*R~#fow#ww[*86v#6! ~#fo#(k*! ~#fon`is#r>.¿>> >>*>>%>>$>)! ! ~#fo! ~#fo *R~#fo##~#fo#s#r?*R~#fow#w?[! ~#fo|…! ! ~#fo! ~#fo *R~#fo6`i6 #6[*86<#6! ~#fo(k*! ~#fo++n`is#r>.>> >>*>>%>>$>4! ! ~#fo! ~#fo *R~#fo~#fo++s#rJ*R~#fow#wJ[! ~#fo|“! ! ~#fo! ~#fo *R~#fow#w`i6 #6[*86>#6! ~#fo(k*! ~#fo##n`is#r>.> > > >*> >%> >$ > B! ! ~#fo! ~#fo *R~#fo~#fo##s#rX*R~#fow#wX[`i~#fo>*m>ʔ>.y>ʔ>$…>ʳ>%‘>Ý*q ^#Vr+s*B^#Vr+sÝ*q ~#fos#rÝ!!-! *@6#6*D6#6*R~#fo6#6*R~#fo6#6*! s#r! w#w! ~#fo|Қ! ~#fo ~#fo+|{! ~#fow#w! ~#fow#w! ^#V! r+s! ^#Vr+s4Ý*! s#r! w#w! ~#fo|U! ~#fo~#fo*R~#fo~#fo+! ~#fo##~#fo*R~#fo##~#fo+! ~#fo *<s#r6*<w#w! ^#V! r+s! ^#Vr+sô*<~#fo#|ʚ*8~#fo*R~#fo~#fo*R~#fo##~#fo ! 9COUNTDOWN: ø0Í7!9DM*@~#fo+|*`is#r! w#w! ~#fo|`i~#fo ~#fo|µ! ~#fo)*6#6! `i~#fo~#fo`i~#fo##~#foͲ`i~#fo##6#6`i~#fo6#6`i~#fow#w`i~#fo6#6`i~#fo 6#6!M!!Ͳ`i~#fo!͵##s#r`i^#V! r+s! ^#Vr+s!9057!9DM! ~#fo k*! s#r! ~#fo~#fo! s#r! ~#fo##~#fo! s#r! ~#fo ~#fo+|*m ~#fo! s#r! ~#fo+|ʯ! ~#fo|*:~#fo+! ~#fo)*~#fo|! ~#fo(k*! ~#fon&! ~#fo! ~#fo! ~#fo! ~#fo! ~#fo! ~#fos#r! ~#fo~#fo>=>d>I>ʆ>U>ʨ>a>! ~#fo+! s#r! ~#fo`is#r! ~#fo#! s#r! ~#fo`is#r! ~#fo++`is#r! ~#fo! s#r`i~#fo|`i6! ~#fo##`is#r! ~#fo! s#r`i~#fo|`iw#w! ~#fo(k*`i~#fon}.X X%X$X*Xö! ~#fo`i~#fos#r! ~#fo##! ~#fos#r! ~#fo*R~#fo##~#fo`i~#fo*R~#fo~#fo! ~#fo*<s#r! ~#fo)**q ~#fod͉#s#r! ~#fo+|U*<~#fo#|U! ~#fo|³*:~#fo! ~#fo)*~#fo|³! ~#fo~#fo+|ˆ!M`i~#fo! ~#foó*<~#fo+|ʳ!S`i~#fo! ~#fo!! 9bad directionÍ7!9DM`iw#w!, ~#fo(k*!* ~#fo!" s#r!( ~#fo~#fo! s#rzʀ!" ~#fon! s#r!|ʀ! ~#fo|ʀ`i^#Vr+s)! 6#6! ~#fo+|!" ~#fo(n! s#r!|! ~#fo|`i^#Vr+s)! 6#6! ~#fo+++|,!" ~#fo++n! s#r!|,! ~#fo|,`i^#Vr+s)! 6#6! ~#fo++|ʁ!" ~#fo##n! s#r!|ʁ! ~#fo|ʁ`i^#Vr+s)! 6#6*m ~#fo+++|ʨ*m ~#fo++++|8!*q ~#fo8*R~#fo~#fo+|! ~#fo>>>>W>>ʗ>>!" ~#fo(n}#T!" ~#fo(n}-T`i^#Vr+s)! 6#6!" ~#fon}#ʔ!" ~#fon}-ʔ`i^#Vr+s)! 6#6!" ~#fo++n}#!" ~#fo++n}-`i^#Vr+s)! 6#6!" ~#fo##n}# !" ~#fo##n}- `i^#Vr+s)! 6#6!* ~#fo*R~#fo~#fo! s#r!, ~#fo*R~#fo##~#fo! s#r! ~#fo|x! 6#6Ù! ~#fo|ґ! 6#6Ù! w#w! ~#fo|ڶ! 6#6! ~#fo|! 6#6! w#w! w#w! w#w! ~#fo`i~#fo *R~#fo~#fo|‹! ~#fo)! ~#fo! ~#fo[! ~#fo)! ~#fo! ~#foˆ! ^#Vr+s)! ! ~#fo)! ~#fos#r! ~#fo)! ~#fo! ~#fo! ~#fo)! ~#fo! ~#fo! ^#Vr+s)! ! ~#fo)! ~#fos#r! ^#Vr+s! ~#fo|8! ~#fo)! ~#foQ`i~#fo)! ~#foQ!$9u{C7=G8?4þ/ >!9DM`iw#w!]`*86@#6*F*Rs#r!'*Tc!(*|c!>(*c!f(*c!(*c!(*c!(*Dc!)*lc!.)*c!V)*c!~)*c!)* c!)*4c!)*\c!**c!F**c!n**c!**c!**$c!**Lc!+*tc!6+*c!^+*c!+*c!+*c!+*<c!+*dc!&,*c!N,*c!v,*c!,*c!,*,c!,*Tc!-*|c!>-*c!f-*c!-*c!-*c!-*Dc!.*lc!..*c!V.*c!~.*c!.* c!.*4c!.*\c!/*c!F/*c!n/*c!/*c!#.## . ### . # . ########### . # . ### . #*$c!B#j## . . . . # . . . ### . . . # . . . . #*Lc!~#æ######## . ##### . ### . ##### . #######*tc!## # . # . . . . . . . . # . # *c!#$ # . # . ### - - ### . # . # *c!2$Z$####### . # . # # . # . #######*c!n$Ö$ . . . # # . . . * c!$$####### . # . # # . # . #######*< c!$% # . # . ########### . # . # *d c!"%J% # . # . . . . . . . . # . # * c!^%Æ%####### . # . ########### . # . #######* c!%%# . . . . . . . . ### . . . . . . . . #* c!%%# % ### . ##### . ### . ##### . ### % #* c!&:&# . . # . . . . . . . . . . . . # . . #*, c!N&v&### . # . # . ########### . # . # . ###*T c!&ò&# . . . . # . . . ### . . . # . . . . #*| c!&&# . ########### . ### . ########### . #* c!'*'# . . . . . . . . . . . . . . . . . . #* c!>'f'#######################################* c*o w#w!f*>6#6*m w#wi*m ~#fo|¼'!lá'*B6#6*q w#wo!''r!9######################################## . . . * . . . . ### . . . . * . . . ## % ### . ##### . ### . ##### . ### % ## * . . * . * . * . . * . * . * . . * ## . ### . # . ########### . # . ### . ## . . . * # . . . ### . . . # * . . . ######## . ##### . ### . ##### . ####### # . # . . * . . * . . # . # # . # . ### - - ### . # . # ####### . # . # # . # . ####### * . * # # * . * ####### . # . # # . # . ####### # . # . ########### . # . # # . # * . . . . . . * # . # ####### . # . ########### . # . ######## . . . * . * . . ### . . * . * . . . ## % ### . ##### . ### . ##### . ### % ## . . # * . * . * . . * . * . * # . . #### . # . # . ########### . # . # . #### . * . . # . . . ### . . . # . . * . ## . ########### . ### . ########### . ## . . . . . . . * . . * . . . . . . . ################################################################################ . . . * . . . . ### . . . . * . . . ## % ### . ##### . ### . ##### . ### % ## * . . * . * . * . . * . * . * . . * ## . ### . # . ########### . # . ### . ## . . . * # . . . ### . . . # * . . . ######## . ##### . ### . ##### . ####### # . # . . * . . * . . # . # # . # . ### - - ### . # . # ####### . # . #  # . # . ####### * . * # # * . * ####### . # . # # . # . ####### # . # . ########### . # . # # . # * . . . . . . * # . # ####### . # . ########### . # . ######## . . . * . * . . ### . . * . * . . . ## % ### . ##### . ### . ##### . ### % ## . . # * . * . * . . * . * . * # . . #### . # . # . ########### . # . # . #### . * . . # . . . ### . . . # . . * . ## . ########### . ### . ########### . ## . . . . . . . * . . * . . . . . . . ################################################################################ . . . . . . . . ### . . . . . . . . ## % ### . ##### . ### . ##### . ### % ## . . . . . . . . . . . . . . . . . . #/ >!9DM! ~#fo! ~#fo/! ~#fo/0*=ßC!9DM! ~#fo! ~#fo0! n&0S0â=/!9DM*q ~#fo!0`iM0`i!4!P0*B~#fo!0`iM0`i!9!P0! 9%6d%6d!9DM! w#w! ~#fo|ҵ1`iw#w`i~#fo|ҧ1! ~#fo(k*T`i~#fon! s! ~#fo(k*`i~#fo! ns! ~#fo(k*`i~#fo! ns{*›1! ~#fo(k*`i~#fo6.`i^#Vr+s0! ^#Vr+s0*B6#6*>~#fo*>~#fo s#r!92F?4þ/*=;>r=!9DM!21!11*m ~#fo|B3! 6#6!! ^#Vr+s1!N32!! ^#Vr+s1!l32!! ^#Vr+s1!32!! ^#Vr+s1!32!! ^#Vr+s1*m ~#fo!32!! ^#Vr+s1!32!! ^#Vr+s1*q ~#fo!42!! ~#fo1!!422!9 ___________________________ | || G A M E O V E R || || Game type: %1d || || Your score: %-5u ||___________________________|K4CC1!9DMB4|^45E4! s#r! ~#fo|g}o>S†4>15>D’4>H5>Ež4>_5>wª4>_5>X¶4>v5>x4>v5> 4>ʍ5>4>ʣ5>4>ʣ5>Q4>ʣ5>4>ʩ5>1 5>ʳ5>25>5>3"5>5>4.5>55*R~#fo6#65*R~#fo6#65*R~#fo6#65*R~#fo6#65*R~#fow#w5H45`i6#6^4*m 6#65*m 6#65*m 6#65*m 6#65^4!960/â=!9DM!!!5*R~#fo~#fo+|h7*o ^#Vr+sz“6* n}.m6*B^#Vr+s* 6$!$!! 5*o w#w!w7!-!6*o ~#fo!7* 6* !>!6! ~#fo k*`is#r`i~#fo##6 #6`i~#fo! ~#fo)s#r`i~#fo w#w!M`i~#fo~#fo`i~#fo##~#fo5*q ~#fo s#r!n7!n7!9MONSTERS KILLED: %1dÓ7kG!9DM͐7`is#r`i~#fo! ~#fo)ú7!97/!9DM! ~#fo!-!7*s 6*t 6=*w 68þ/*=;> 8!!8!88!98!L98!98!98!!/:8!{:8!:8!;8!Q;8!x;8!;8!;8!;8!<8!2<8!X<8!<8!<8Attention: you are in a dungeon, being chased by monsters!  There are gold coins scattered uniformly in the dungeon, marked by "+". One magic potion is available at each spot marked "%". Each potion will enable you to kill monsters by touch for a limited duration. It will also scare them away. When you kill a monster it is regenerated, but this takes time. You can also regenerate yourself %d times. Killing all the monsters results in further treasure appearing magically somewhere in the dungeon, marked by "$". There is a magic tunnel connecting the center left and center right parts of the dungeon. The monsters know about it! Type: S to move left D to move right E or w to move up X or x to move down to halt Q to quit Type: 1 normal game 2 blinking monsters 3 intelligent monsters 4 blinking intelligent monsters !9DM`iw#w`i~#fo! ~#fo?!=`i^#Vr+s!9DM! ~#fo *u s! ~#fo *v s*s -=~=*= >ÓG!!u=!=x=!{=è=i>!9DM! ͐ͥ=!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{==͐>!9>ßC!9DM͐n}9>! ^#Vr+sn& >>D>i> >!y9DM! `i>>`iA>!9x>AÂBñBC!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{A`in}%³A! ! s#r! 6#6! s! s! s͐n}-?! ^#Vr+s! 4͐n}0?! 4͐n&o>}5?! r>8?!! s#r! ^#Vr+sn`is{.€?! r>! s#r! 4! ^#Vr+sn`is`in&u>}Dʬ?U?X?O?C@@Sq@ÝA͐~#fo|?! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 @! 6@! 6! ~#fo! n&! ^#Vr+s~#fo! l>ѯgs#r@! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s@! n}„@! 6#6! ^#Vr+s~#fo! s#r͐n}@͐|@! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sß@͐6! ! s#r! n}@A! ^#Vr+s!@A! ^#Vr+s! n}7A!0:A! sA͐! ^#Vr+sns{iA! ^#Vr+s@A! n}ʚA! ^#Vr+s!ҚA! ^#Vr+s6 sAðA! ^#Vr+s`insA! ^#Vr+s`insç>͐6!9AA!9DM͐͐ .B͐^#Vr+s͐ B͐0#B͐7s!&yB͐ ͐͐ ͉͐A`is͐ ͐͐ )͐A`in&#&yB!9!9DM! n&0ͯڭB! n&9ͯ÷BÂB!9DM`iw#w͐~#fon&ʹB}C͐ ?͐^#Vr+snѯg`is#rB͐ C!9CLC!9DM! n&C|AC! n&FC! n&!9DM! n&aͯwC! n&zͯÁCC!9DM! ~#fo!~CåCC!9DM! ~#fo!͢CCC!CCC!CCÖGÓGßC!9DM!F! s#r! ~#fon}NUD! ~#fo! ~#fo#! ~#fo##sss! ~#fo6! ~#fo6!!C|tE!!C`is! ~#fon! s!|g}o|ʭD`in&|g}os! n&|g}o|D`in! ~#fon}DC"E! n&|g}o|"E`in} E! ~#fo#6tE`in}"E! ~#fo#6tE! ~#fo##n}tE! ~#fo##6! ~#fo###`ins! n&|g}o|tE`in&!C! ~#fo>ˆE>ʻE>”E>ʾE> E>&F>¬E>VF>¸E>fFüFÿF! ~#fo#n}EEUD! ~#fo!C! ~#fo|F! ~#fon&|g}o|F! C! ~#foÿF! ~#fo##n}9FUD! ~#fo##6! ~#fo###n&ÿF! ~#fo##n&ÿF! ~#fon! s! ~#fo! ~#fos! ~#fo|g}o|²F! ~#fo#6! n&ÿFÿF!9Nonsense! #+|F'zF FF |G""GG ! ###G""  Wait a few seconds, and type a CR: $*>HyGyG7*|g}o"zg{o"|g 7*+++:G_*DM!Go&}o"zg{o"|g 7*+++:G_*DM!Go&}evP<)䰫w4[aWYR cmh!;[ݠvEACpbîOOl]evbH6y95TaWYT:1wJ/69-,VU(Updated and corrected 04/03/82) The compiled version of PACMAN (PACMAN95.OBJ) can be easily patched any terminal that has the following characteristics: 1. A CLEAR SCREEN command of 2 characters of less 2. A CURSOR ADDRESSING command that is of the form: with offset = 32 3. A CURSOR ON and CURSOR OFF command that is of the form: (This is not necessary however) The points to patch for CLEAR SCREEN are: Address: 2FDAH ====> First character (Currently ESC) 2FDBH ====> Second character (Currently ";") The points to patch for CURSOR ADDRESSING are: Address: 37F3H ====> First character (Currently ESC) 37FCH ====> Second character (Currently "=") The points to patch for CURSOR ON are: Address: 3D9EH ====> First character (Currently ESC) 3D9FH ====> Second character (Currently ".") 3DA0H ====> Third character (Currently "1") The points to patch for CURSOR OFF are: Address: 27DCH ====> First character (Currently ESC) 27DDH ====> Second character (Currently ".") 27DEH ====> Third character (Currently "0") The direction keys are located: Address: 347BH ====> Move LEFT (Currently "S") 34ABH ====> Move DOWN (Currently "X") 3493H ====> Move UP (Currently "E") 3487H ====> Move RIGHT (Currently "D") The QUIT character ("Q") is located at address 34E7H. This version is set-up to work with a TeleVideo 950 terminal. PACMAN89.OBJ is set-up to work with an H89 terminal. Both files are the same, except for the patching information. es are the same, except for the patching information. H ====> Second character (Currently ".") 3DA0H ====> Third character (Currently "1") The points to patch for10 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 FOR 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 180 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-BW 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$+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 IF 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 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 PRINT 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 T 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 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) 520 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+1: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 CORRECT 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))*100 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) 520SMART is played against the computer, which predicts your T/F input. PACMAN95COMPACMAN95DOCPIGLATINBASSMART BASSMART $$$TRANSLATBASeTRANSLATDOCVOCAB BASVOCAB DOCCHEKLISTCRC10 REM English noun entries start on line 1000 20 REM 30 REM THE FOLLOWING ENGLISH NOUNS ARE IN FILE: 40 REM man, woman, animal, apple, arrow, car, 50 REM baby, badger, bald eagle, ball, bear, 60 REM beaver, bed, bee, beetle, belt, berries, 70 REM bird, boat, book, boy, bread, cat, chair, 80 REM deer, desk, dog, duck, eagle, frog, girl, 90 REM hawk, horse, house, meat, medicine, milk, 100 REM moon, pencil, paper, pig, pipe, priest, 110 REM preacher, rabbit, river, road, salt, pepper, 120 REM shirt, shoes, skunk, snake, snow, soup, 130 REM spider, whiteman, sun, table, tent, tepee, 140 REM coffee, tea, tree, turtle, water, policeman, 150 REM teacher, doctor, church, store, winter, 160 REM chokecherries, men, women, child, child, 170 REM antelope, coal, Cheyenne, Cheyennes, 171 REM summer, song, fall, flute, star, 172 REM nighthawk, old man, old woman, fire, 173 REM dirt, key, door, rug, shed, spoon, 174 REM Crow, Crows, Sioux, cloud, spring, hat, 175 REM cap, grass, songs, knife, fish, fi!re, 176 REM shoe, frybread, corn, cloud, nose, eye, 177 REM tooth, teeth, ear, head, pemmican, animals, 178 REM mouse, mice, squirrel, chipmunk, cow, cowboy, 179 REM Indian, sheep, goat, goats 250 REM 255 REM NOUN ENTRIES BEGIN AT 1000 256 REM 259 REM NOUN ENTRIES BEGIN AT 1000 260 REM SYNONYMS: priest/preacher, berries/chokecherries, 270 REM book/paper, spider/whiteman, spoon/beetle 280 PRINT 330 PRINT 340 PRINT 350 PRINT 360 PRINT 370 PRINT 380 PRINT 390 PRINT 400 PRINT 410 PRINT "**** CHEYENNE TRANSLATION PROGRAM ****" 440 PRINT 450 PRINT "----------------------------------------" 460 PRINT 470 PRINT "THIS COMPUTER KNOWS SOME CHEYENNE WORDS." 480 PRINT "IF YOU GIVE IT AN ENGLISH WORD, IT MAY" 490 PRINT "BE ABLE TO TRANSLATE IT INTO CHEYENNE." 500 PRINT 510 PRINT "----------------------------------------" 520 PRINT 620 PRINT 630 PRINT "*****************************************" 640 PRINT "THINK OF AN ENGLISH NOUN (A WORD SUCH AS" 650 PRINT "boy, dog, boat, etc.). TYPE YOUR WORD" 660 PRINT "WITH lower case (small) letters (BUT BE 670 PRINT "SURE TO BEGIN A WORD WITH A CAPITAL" 680 PRINT "LETTER IF IT NORMALLY STARTS WITH A" 690 PRINT "CAPITAL LETTER)--THEN PRESS RETURN." 700 PRINT "*****************************************" 710 PRINT 750 PRINT 760 PRINT "WHAT IS YOUR WORD?" 770 PRINT 780 INPUT W$ 790 PRINT 800 PRINT 990 REM REMARK LISTING ENDS APPROX. 170 1000 IF W$="man" THEN GOTO 2500 1010 IF W$="men" THEN GOTO 2510 1020 IF W$="bed" THEN GOTO 2520 1030 IF W$="telephone" THEN GOTO 2530 1040 IF W$="elephant" THEN GOTO 2540 1050 IF W$="wind" THEN GOTO 2550 1060 IF W$="window" THEN GOTO 2560 1070 IF W$="Blackfoot" THEN GOTO 2570 1080 IF W$="Blackfeet" THEN GOTO 2570 1090 IF W$="Cree" THEN GOTO 2580 1100 IF W$="Arapaho" THEN GOTO 2590 1110 IF W$="young man" THEN GOTO 2600 1120 IF W$="young woman" THEN GOTO 2610 1130 IF W$="cow" THEN GOTO 2620 1140 IF W$="cowboy" THEN GOTO 2630 1150 IF W$="Indian" THEN GOTO 2640 1160 IF W$="sheep" THEN GOTO 2650 1170 IF W$="goat" THEN GOTO 2650 1180 IF W$="goats" THEN GOTO 2660 1190 IF W$="pemmican" THEN GOTO 2670 1200 IF W$="animals" THEN GOTO 2680 1210 IF W$="mouse" THEN GOTO 2690 1220 IF W$="mice" THEN GOTO 2700 1230 IF W$="squirrel" THEN GOTO 2710 1240 IF W$="chipmunk" THEN GOTO 2720 1250 IF W$="old woman" THEN GOTO 2730 1260 IF W$="hat" THEN GOTO 2740 1270 IF W$="cap" THEN GOTO 2740 1280 IF W$="grass" THEN GOTO 2750 1290 IF W$="songs" THEN GOTO 2760 1300 IF W$="knife" THEN GOTO 2770 1310 IF W$="fish" THEN GOTO 2780 1320 IF W$="fire" THEN GOTO 2790 1330 IF W$="shoe" THEN GOTO 2800 1340 IF W$="frybread" THEN GOTO 2810 1350 IF W$="corn" THEN GOTO 2820 1360 IF W$="dirt" THEN GOTO 2830 1370 IF W$="key" THEN GOTO 2840 1380 IF W$="door" THEN GOTO 2850 1390 IF W$="rug" THEN GOTO 2860 1400 IF W$="shed" THEN GOTO 2870 1410 IF W$="spoon" THEN GOTO 2880 1420 IF W$="flute" THEN GOTO 2890 1430 IF W$="star" THEN GOTO 2900 1440 IF W$="nighthawk" THEN GOTO 2910 1450 IF W$="old man" THEN GOTO 2920 1460 IF W$="cloud" THEN GOTO 2930 1470 IF W$="nose" THEN GOTO 2940 1480 IF W$="eye" THEN GOTO 2950 1490 IF W$="tooth" THEN GOTO 2960 1500 IF W$="teeth" THEN GOTO 2970 1510 IF W$="ear" THEN GOTO 2980 1520 IF W$="head" THEN GOTO 2990 1530 IF W$="spring" THEN GOTO 3000 1540 IF W$="summer" THEN GOTO 3010 1550 IF W$="fall" THEN GOTO 3020 1560 IF W$="winter" THEN GOTO 3030 1570 IF W$="song" THEN GOTO 3040 1580 IF W$="woman" THEN GOTO 3050 1590 IF W$="women" THEN GOTO 3060 1600 IF W$="child" THEN GOTO 3070 1610 IF W$="antelope" THEN GOTO 3080 1620 IF W$="coal" THEN GOTO 3090 1630 IF W$="Cheyenne" THEN GOTO 3100 1640 IF W$="Crow" THEN GOTO 3110 1650 IF W$="animal" THEN GOTO 3120 1660 IF W$="Cheyennes" THEN GOTO 3130 1670 IF W$="Crows" THEN GOTO 3140 1680 IF W$="Sioux" THEN GOTO 3150 1690 IF W$="apple" THEN GOTO 3160 1700 IF W$="arrow" THEN GOTO 3170 1710 IF W$="car" THEN GOTO 3180 1720 IF W$="baby" THEN GOTO 3190 1730 IF W$="badger" THEN GOTO 3200 1740 IF W$="bald eagle" THEN GOTO 3210 1750 IF W$="ball" THEN GOTO 3220 1760 IF W$="bear" THEN GOTO 3230 1770 IF W$="beaver" THEN GOTO 3240 1780 IF W$="chokecherries" THEN GOTO 3290 1790 IF W$="bee" THEN GOTO 3260 1800 IF W$="beetle" THEN GOTO 3270 1810 IF W$="belt" THEN GOTO 3280 1820 IF W$="berries" THEN GOTO 3290 1830 IF W$="bird" THEN GOTO 3300 1840 IF W$="boat" THEN GOTO 3310 1850 IF W$="book" THEN GOTO 3320 1860 IF W$="boy" THEN GOTO 3330 1870 IF W$="bread" THEN GOTO 3340 1880 IF W$="cat" THEN GOTO 3350 1890 IF W$="chair" THEN GOTO 3360 1900 IF W$="deer" THEN GOTO 3370 1910 IF W$="desk" THEN GOTO 3380 1920 IF W$="dog" THEN GOTO 3390 1930 IF W$="duck" THEN GOTO 3400 1940 IF W$="eagle" THEN GOTO 3410 1950 IF W$="frog" THEN GOTO 3420 1960 IF W$="girl" THEN GOTO 3430 1970 IF W$="hawk" THEN GOTO 3440 1980 IF W$="horse" THEN GOTO 3450 1990 IF W$="meat" THEN GOTO 3460 2000 IF W$="house" THEN GOTO 3470 2010 IF W$="medicine" THEN GOTO 3480 2020 IF W$="milk" THEN GOTO 3490 2030 IF W$="moon" THEN GOTO 3500 2040 IF W$="pencil" THE"N GOTO 3510 2050 IF W$="paper" THEN GOTO 3320 2060 IF W$="pig" THEN GOTO 3520 2070 IF W$="pipe" THEN GOTO 3530 2080 IF W$="priest" THEN GOTO 3540 2090 IF W$="preacher" THEN GOTO 3540 2100 IF W$="rabbit" THEN GOTO 3550 2110 IF W$="river" THEN GOTO 3560 2120 IF W$="road" THEN GOTO 3570 2130 IF W$="salt" THEN GOTO 3580 2140 IF W$="pepper" THEN GOTO 3590 2150 IF W$="shirt" THEN GOTO 3600 2160 IF W$="shoes" THEN GOTO 3610 2170 IF W$="skunk" THEN GOTO 3620 2180 IF W$="snake" THEN GOTO 3630 2190 IF W$="snow" THEN GOTO 3640 2200 IF W$="soup" THEN GOTO 3650 2210 IF W$="spider" THEN GOTO 3660 2220 IF W$="whiteman" THEN GOTO 3660 2230 IF W$="sun" THEN GOTO 3670 2240 IF W$="table" THEN GOTO 3680 2250 IF W$="tent" THEN GOTO 3690 2260 IF W$="tepee" THEN GOTO 3700 2270 IF W$="coffee" THEN GOTO 3710 2280 IF W$="tea" THEN GOTO 3720 2290 IF W$="tree" THEN GOTO 3730 2300 IF W$="turtle" THEN GOTO 3740 2310 IF W$="water" THEN GOTO 3750 2320 IF W$="policeman" THEN GOTO 3760 2330 IF W$="teacher" THEN GOTO 3770 2340 IF W$="doctor" THEN GOTO 3780 2350 IF W$="church" THEN GOTO 3790 2360 IF W$="store" THEN GOTO 3800 2370 PRINT 2380 PRINT 2390 PRINT 2400 PRINT 2410 PRINT 2420 PRINT 2430 PRINT 2440 PRINT "++++++++++++++++++++++++++++++++++" 2450 PRINT "I'M SORRY, I HAVEN'T LEARNED THAT" 2460 PRINT "CHEYENNE WORD YET. BE PATIENT." 2470 PRINT "++++++++++++++++++++++++++++++++++" 2480 PRINT 2490 GOTO 4040 2500 C$="hetane":GOTO 3810 2510 C$="hetaneo'o":GOTO 3810 2520 C$="$ee$esto.tse":GOTO 3810 2530 C$="aseeestsesto.tse":GOTO 3810 2540 C$="tse'e.seesehe":GOTO 3810 2550 C$="haa'hae$e":GOTO 3810 2560 C$="vo'na.hanesto.tse":GOTO 3810 2570 C$="Mo'o.htave.hahtatane":GOTO 3810 2580 C$="Vohkoohetane":GOTO 3810 2590 C$="Hetanevo'e":GOTO 3810 2600 C$="ka.sovaahe":GOTO 3810 2610 C$="ka.se'eehe":GOTO 3810 2620 C$="ve'ho'eotoa'a":GOTO 3810 2630 C$="to.he'ke.sae-ve'ho'e":GOTO 3810 2640 C$="xamaa-vo'e.stane":GOTO 3810 2650 C$="kosa":GOTO 3810 2660 C$="ko.sane":GOTO 3810 2670 C$="ame":GOTO 3810 2680 C$="hovahne":GOTO 3810 2690 C$="hohkeeheso":GOTO 3810 2700 C$="hohkeehesono":GOTO 3810 2710 C$="no'kee'e":GOTO 3810 2720 C$="ne$ke'esta":GOTO 3810 2730 C$="ma.htama.haahe":GOTO 3810 2740 C$="hohke.ha'e":GOTO 3810 2750 C$="mo'e'e.stse":GOTO 3810 2760 C$="nemeoto.tse":GOTO 3810 2770 C$="mot$e.$ke":GOTO 3810 2780 C$="noma'ne":GOTO 3810 2790 C$="ho'esta":GOTO 3810 2800 C$="mo'keha":GOTO 3810 2810 C$="vet$e.$keva.honoo'o":GOTO 3810 2820 C$="ma.haemeno.tse":GOTO 3810 2830 C$="he$e'ke":GOTO 3810 2840 C$="ta'ta'o.heo'o":GOTO 3810 2850 C$="he'netoo'o":GOTO 3810 2860 C$="seohaseo'o":GOTO 3810 2870 C$="ma.he$ko":GOTO 3810 2880 C$="hame$ko":GOTO 3810 2890 C$="ta.hpeno":GOTO 3810 2900 C$="hotohke":GOTO 3810 2910 C$="pe'e":GOTO 3810 2920 C$="ma'hahkeso":GOTO 3810 2930 C$="vo'e":GOTO 3810 2940 C$="ma'evo":GOTO 3810 2950 C$="ma'exa":GOTO 3810 2960 C$="vee'e.se":GOTO 3810 2970 C$="veeso.tse":GOTO 3810 2980 C$="ma.htovoo'o.tse":GOTO 3810 2990 C$="me'ko":GOTO 3810 3000 C$="matse'omeva":GOTO 3810 3010 C$="meaneva":GOTO 3810 3020 C$="tonoeva":GOTO 3810 3030 C$="aeneva":GOTO 3810 3040 C$="nemeo'o.tse":GOTO 3810 3050 C$="he'e":GOTO 3810 3060 C$="he'eo'o":GOTO 3810 3070 C$="ka'e.$kone":GOTO 3810 3080 C$="vo'kaa'e":GOTO 3810 3090 C$="ho'ose":GOTO 3810 3100 C$="Tsetse.hestaestse":GOTO 3810 3110 C$="Ooetane":GOTO 3810 3120 C$="hova":GOTO 3810 3130 C$="Tsetse.hesta.hese":GOTO 3810 3140 C$="Ooetaneo'o":GOTO 3810 3150 C$="Ho'ohomo'e":GOTO 3810 3160 C$="ma'xeme":GOTO 3810 3170 C$="maahe":GOTO 3810 3180 C$="ama.ho'hesto.tse":GOTO 3810 3190 C$="me'e.$evo.tse":GOTO 3810 3200 C$="ma'hahko'e":GOTO 3810 3210 C$="voaxaa'e": GOTO 3810 3220 C$="hohtseme":GOTO 3810 3230 C$="nahkohe":GOTO 3810 3240 C$="homa'e":GOTO 3810 3250 C$="$ee$esto.tse":GOTO 3810 3260 C$="hahnoma":GOTO 3810 3270 C$="hame$ko":GOTO 3810 3280 C$="hoestato":GOTO 3810 3290 C$="meno.tse":GOTO 3810 3300 C$="ve'keso":GOTO 3810 3310 C$="semo":GOTO 3810 3320 C$="mo.xe'e.stoo'o":GOTO 3810 3330 C$="hetane-ka'e.$kone":GOTO 3810 3340 C$="kohkno.heo'o":GOTO 3810 3350 C$="poeso":GOTO 3810 3360 C$="taxe'seesto.tse":GOTO 3810 3370 C$="vaotseva":GOTO 3810 3380 C$="tahoxe'e.stonesto.tse":GOTO 3810 3390 C$="oe$keso":GOTO 3810 3400 C$="$e'$e":GOTO 3810 3410 C$="netse":GOTO 3810 3420 C$="oona.ha'e":GOTO 3810 3430 C$="he'e-ka'e.$kone":GOTO 3810 3440 C$="aenohe":GOTO 3810 3450 C$="mo'ehno'ha":GOTO 3810 3460 C$="ho'evohko.tse":GOTO 3810 3470 C$="ma.heo'o":GOTO 3810 3480 C$="heseeo'o.tse":GOTO 3810 3490 C$="matana":GOTO 3810 3500 C$="taa'e-e$e'he":GOTO 3810 3510 C$="mo.xe'e.stonesto.tse":GOTO 3810 3520 C$="e$ko.seese-hotame":GOTO 3810 3530 C$="he'ohko":GOTO 3810 3540 C$="ma'heone-ve'ho'e":GOTO 3810 3550 C$="vohkoohe":GOTO 3810 3560 C$="o'he'e":GOTO 3810 3570 C$="meo'o":GOTO 3810 3580 C$="vohpoma'o.htse":GOTO 3810 3590 C$="mehmemeno.tse":GOTO 3810 3600 C$="estse'he":GOTO 3810 3610 C$="mo'ke.hano.tse":GOTO 3810 3620 C$="xao'o":GOTO 3810 3630 C$="$e'$enovo.tse":GOTO 3810 3640 C$="hesta'se":GOTO 3810 3650 C$="hohpe"#:GOTO 3810 3660 C$="ve'ho'e":GOTO 3810 3670 C$="e$e'he":GOTO 3810 3680 C$="taxemese.hesto.tse":GOTO 3810 3690 C$="ve'ho'eome":GOTO 3810 3700 C$="xamaa-vee'e":GOTO 3810 3710 C$="mo'o.htave.-hohpe":GOTO 3810 3720 C$="vehpotse-hohpe":GOTO 3810 3730 C$="hoohtse.stse":GOTO 3810 3740 C$="ma'eno":GOTO 3810 3750 C$="mahpe":GOTO 3810 3760 C$="matanae-ve'ho'e":GOTO 3810 3770 C$="vovestomosanehe":GOTO 3810 3780 C$="naa'e-ve'ho'e":GOTO 3810 3790 C$="ma'heone-eestse-ma.heo'o":GOTO 3810 3800 C$="hohtova-ma.heo'o":GOTO 3810 3810 PRINT 3820 PRINT 3830 PRINT 3840 PRINT 3850 PRINT 3860 PRINT 3870 PRINT 3880 PRINT 3890 PRINT 3900 PRINT 3910 PRINT 3920 PRINT 3930 PRINT 3940 PRINT 3950 PRINT 3960 PRINT 3970 PRINT 3980 PRINT 3990 PRINT 4000 PRINT 4010 PRINT 4020 PRINT 4030 PRINT "ENGLISH ";W$;" IS CHEYENNE ";C$;"." 4040 PRINT 4050 PRINT 4060 PRINT 4070 PRINT 4080 PRINT 4090 PRINT 4100 PRINT 4110 PRINT 4120 PRINT "WOULD YOU LIKE TO TRY AGAIN?" 4130 PRINT 4140 PRINT "TYPE y OR n THEN PRESS RETURN." 4150 PRINT: INPUT MORE$ 4160 PRINT 4170 IF MORE$="y" GOTO 520 4180 PRINT 4190 PRINT 4200 PRINT 4210 PRINT 4220 PRINT 4230 PRINT 4240 PRINT 4250 PRINT 4260 PRINT 4270 PRINT 4280 PRINT 4290 PRINT 4300 PRINT 4310 PRINT 4320 PRINT 4330 PRINT 4340 PRINT 4350 PRINT 4360 PRINT 4370 PRINT 4380 PRINT "#################################" 4390 PRINT "THIS IS THE END. COME BACK AGAIN" 4400 PRINT "SOMETIME. MAYBE I'LL LEARN SOME" 4410 PRINT "MORE WORDS BY NEXT TIME!" 4420 PRINT "#################################" 4430 PRINT 4440 PRINT LL LEARN SOME" 4410 PRINT "MORE WORDS BY NEXT TIME!" 4420 P900 PRINT 3910 PRINT 3920 PRINT 3930 PRINT 3940 PRINT 3950 PRINT 3960 PRINT 3970 PRINT 3980 PRINT 3990 PRINT 4000 PRINT 4010 PRINT 4020 PRINT 4030 PRINT "ENGLISH ";W$;" IS CHEYENNE ";C$;"." 4040 PRINT 4050 PRINT 4060 PRINT 4070 PRINT 4080 PRINT 4090 PRINT 4100 PRINT 4110 PRINT 4120 PRINT "WOULD YOU LIKE TO TRY AGAIN?" 4130 PRINT 4140 PRINT "TYPE y OR n THETRANSLAT will translate input words into Cheyenne. PACMAN95COMPACMAN95DOCPIGLATINBASSMART BASSMART DOCTRANSLATBASeTRANSLAT$$$VOCAB BASVOCAB DOCCHEKLISTCRC10 REM* VOCABULARY DRILL 20 REM* DAN MIELKE 30 REM* MAY 1982 40 REM* 50 PRINT CHR$(26) 60 PRINT:PRINT:PRINT 70 PRINT TAB(5);"THIS IS THE FLASHCARD FOR LANGUAGE PRACTICE" 80 PRINT:PRINT 90 PRINT " SELECT THE FUNCTION" 100 PRINT:PRINT 110 PRINT TAB(10) "(1) INITIALIZE (1ST TIME ONLY!) 120 PRINT TAB(10) "(2) PRACTICE FLASHCARD SERIES" 130 PRINT TAB(10) "(3) ADD WORDS TO EXISTING LIST" 140 PRINT TAB(10) "(4) QUIT" 150 PRINT:PRINT 160 PRINT TAB(10) "WHICH WILL IT BE"; 170 INPUT P 180 PRINT CHR$(26) 190 ON P GOTO 210,300,480,630 200 ON ERROR GOTO 50 210 OPEN "O",#1,"B:WORDS" 220 INPUT "ENGLISH";E$ 230 IF E$=""THEN 280 240 INPUT "CROW ";Y$ 250 PRINT #1,E$;",";Y$ 260 PRINT 270 GOTO 220 280 CLOSE #1 290 GOTO 50 300 OPEN "I",#1,"B:WORDS" 310 INPUT "GIVE ENGLISH(1) OR CROW(2)";J 320 IF EOF(1) THEN CLOSE #1:PRINT CHR$(26):PRINT "END OF LIST":GOTO 60 330 INPUT #1,E$,Y$ 340 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 350 IF J=1 THEN PRINT TAB(20) E$ ELSE PRINT TAB(20) Y$ 360 IF J=1 THEN R$=Y$ ELSE R$=E$ 370 PRINT:PRINT:PRINT TAB(20); 380 INPUT G$ 390 PRINT:PRINT 400 IF G$=R$ THEN PRINT TAB(20) "RIGHT!":GOTO 420 410 PRINT:PRINT TAB(12) "Should be '"R$;"'." 420 PRINT:PRINT:PRINT:PRINT:PRINT 430 PRINT TAB(10); 440 INPUT "CONTINUE OR QUIT ";A$ 450 IF A$<>"" THEN IF A$<>"Q" THEN 430 460 IF A$="Q" THEN 50 470 GOTO 320 480 OPEN "I",#1,"B:WORDS" 490 OPEN "O",#2,"B:COPY" 500 IF EOF(1) THEN 540 510 LINE INPUT #1,E$ 520 PRINT #2,E$ 530 GOTO 500 540 CLOSE #1 550 KILL "B:WORDS" 560 INPUT "ENGLISH ";E$ 570 IF E$="" THEN 610 580 INPUT "CROW ";Y$ 590 PRINT #2,E$;","; Y$ 600 PRINT: GOTO 560 610 CLOSE #2 620 NAME "B:COPY" AS "B:WORDS" 630 END 10 580 INPUT "CROW ";Y$ 590 PRINT #250 300 OPEN "I",#1,"B:WORDS" 310 INPUT "GIVE ENGLISH(1) OR CROW(2)";J 320 IF EOF(1) THEN CLOSE #1:PRINT CHR$(26):PRINT "END OF LIST":GOTO 60 330 INPUT #1,E$,Y$ 340 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 350 IF J=1 THEN PRINT TAB(20) E$ EL$VOCAB permits one to create a series of flashcards for testing purposes. This version is set up for English to Crow translation. SMART DOCTRANSLATBASeTRANSLATDOCVOCAB BASVOCAB $$$CHEKLISTCRC This is the release date of the disk. !K"K$K%K&K'K(K)K+K,K-K.K/K2K3K4K5K6K7K8K9K:K;KK?K@KAKBKCKDKEKFKGKHKIKJKKKLKMKNKOKPKQKRKSKTKUKVKWKXKYKZK[K\K]K^K_K`KaKbKcKdKeKfKgKhKiKjKkKlKmKnKoKpKqKrKsKtKuKvKwKxKyKzK{K|K}K~KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKLBASKETBL.BAS 9F 13 5504 43 BATNUM .BAS F0 0F 2432 19 BATTLE .BAS 82 E1 8576 67 BATTLSHP.BAS 02 4B 4352 34 BATTLSHP.DOC 86 ED 128 1 BLACKJCK.BAS 82 D2 9344 73 BOMBARD .BAS 88 97 3072 24 BOMBSAWY.BAS 18 C4 3200 25 BOUNCE .BAS A8 E0 1536 12 BOWLING .BAS 29 E3 2688 21 BOXING .BAS A8 96 3584 28 BUG .BAS D0 2D 6656 52 BULLFGHT Fog Library Disk FOG-CPM.062 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. MBasic programs (mainly games) for any CP/M computer. Filename Description -06-00 .86 This is the release date of the disk. -CPM062 .DOC This is the description of the disk contents. MENU .BAS 3F3A 1K [MBasic games 1 of 24] Modify this menu to include other games or the delete those you don't want to play. MENU .DOC 3141 1K [MBasic games 2 of 24] 23-MATCH.BAS DC68 2K [MBasic games 3 of 24] 23 matches game. ACEYDUCY.BAS 3D51 3K [MBasic games 4 of 24] Acey-Duecy card game. AMAZING .BAS 43DA 4K [MBasic games 5 of 24] Maze generator game (two versions: for screen or printer). AMAZINGP.BAS 8EFE 4K [MBasic games 6 of 24] ANIMAL .BAS 1FC4 3K [MBasic games 7 of 24] "Think of an animal and the computer will guess it" game. BAGELS .BAS 3989 3K [MBasic games 8 of 24] Number guessing game. BASKETBL.BAS 9F13 6K [MBasic games 9 of 24] Basketball game. BATNUM .BAS F00F 3K [MBasic games 10 of 24] Game with a battle of numbers, you against the computer. BATTLE .BAS 82E1 9K [MBasic games 11 of 24] Battleship game. BLACKJCK.BAS 82D2 10K [MBasic games 12 of 24] Casino blackjack game. BOMBARD .BAS 8897 3K [MBasic games 13 of 24] Fire missiles and destroy the enemy in this game. BOMBSAWY.BAS 18C4 4K [MBasic games 14 of 24] Game of bombs away! BOUNCE .BAS A8E0 2K [MBasic games 15 of 24] Modify the flight of a ball in this game. BOWLING .BAS 29E3 3K [MBasic games 16 of 24] Bowl a few frames on your computer with this game. BOXING .BAS A896 4K [MBasic games 17 of 24] Olympic style boxing match game. BUG .BAS D02D 7K [MBasic games 18 of 24] Like the "Cooti" game. Build yourself a bug. BULLFGHT.BAS 33BE 6K % [MBasic games 19 of 24] Now you can swing the cape and kill the bull in this game. BULLSEYE.BAS FC3F 2K [MBasic games 20 of 24] Dart game. BUZZWORD.BAS 3B1F 2K [MBasic games 21 of 24] Print phrases in "educator-speak" with this game. CHANGE .BAS 9FE7 2K [MBasic games 22 of 24] Game that gives correct change for transactions up to $100. CHECKERS.BAS 4950 4K [MBasic games 23 of 24] The other famous board game -- just you and your computer. CHEMIST .BAS 5BB3 2K [MBasic games 24 of 24] Dilute the acid without blowing up in this game. BACCRRT .BAS B6DA 5K Mbasic baccarat casino game. BATTLSHP.BAS 024B 5K [Battleship 1 of 2] This is another version of the MBasic game. BATTLSHP.DOC 86ED 1K [Battleship 2 of 2] CAPITALS.BAS 8785 5K MBasic game to see if you know the state capitals. CHOMP .BAS A9FE 3K MBasic game to replace PACMAN. DARTS .BAS 04AF 2K [Darts 1 of 2] MBasic game where you guess the dart's position. DARTS .DOC B41B 1K [Darts 2 of 2] MATH .BAS A431 4K MBasic arithmetic drill game. NUMBERSQ.BAS E537 4K [Numbers Square 1 of 2] An Mbasic game where you move numbers within a matrix. NUMBERSQ.DOC 0B1A 1K [Numbers Square 2 of 2] PACMAN95.COM 58D9 18K ver. 9.5 [Pacman 1 of 2] This Pacman-type game has information on terminal patching. PACMAN95.DOC 4D26 2K ver. 9.5 [Pacman 2 of 2] PIGLATIN.BAS 6E75 2K Mbasic game that translates words into pig Latin. SMART .BAS 2801 2K [Smart 1 of 2] In this Mbasic game, the computer predicts True/False input. SMART .DOC 1C29 1K [Smart 2 of 2] TRANSLAT.BAS 120F 13K [Translate Cheyenne 1 of 2] More than a game, the MBasic program translates words into the Cheyenne Indian language. TRANSLAT.DOC 8799 1K [Translate Cheyenne 2 of 2] VOCAB .BAS ABC9 2K [Vocabulary Flash 1 of 2] Create flashcards for testing purposes. This version is aimed at English to Crow (Indian language) translation. VOCAB .DOC C7E2 1K [Vocabulary Flash 2 of 2] ANSLAT.BAS 120F 13K [Translate Cheyenne 1 of 2] More than a game, the MBasic program translates words int&'