mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 08:06:27 -05:00
Compare commits
No commits in common. "ab99e3edfe9e538a02bccc95ee1c9a7a358b0aca" and "56d27496747676900d1710c04b92d4472bb897ed" have entirely different histories.
ab99e3edfe
...
56d2749674
@ -11,7 +11,7 @@
|
|||||||
110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"
|
110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"
|
||||||
120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION"
|
120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION"
|
||||||
130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION"
|
130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION"
|
||||||
140 PRINT " BAGLES - NO DIGITS CORRECT"
|
140 PRINT " BAGELS - NO DIGITS CORRECT"
|
||||||
150 FOR I=1 TO 3
|
150 FOR I=1 TO 3
|
||||||
160 A(I)=INT(10*RND)
|
160 A(I)=INT(10*RND)
|
||||||
170 FOR J=1 TO I-1
|
170 FOR J=1 TO I-1
|
||||||
@ -58,7 +58,7 @@
|
|||||||
560 PRINT "FERMI ";
|
560 PRINT "FERMI ";
|
||||||
570 NEXT J
|
570 NEXT J
|
||||||
580 IF C+D<>0 THEN 600
|
580 IF C+D<>0 THEN 600
|
||||||
590 PRINT "BAGLES";
|
590 PRINT "BAGELS";
|
||||||
600 PRINT
|
600 PRINT
|
||||||
605 NEXT I
|
605 NEXT I
|
||||||
610 PRINT "OH WELL"
|
610 PRINT "OH WELL"
|
||||||
@ -72,6 +72,6 @@
|
|||||||
700 INPUT "PLAY AGAIN (YES OR NO)";A$
|
700 INPUT "PLAY AGAIN (YES OR NO)";A$
|
||||||
720 IF A$="YES" THEN 150
|
720 IF A$="YES" THEN 150
|
||||||
730 IF Y=0 THEN 750
|
730 IF Y=0 THEN 750
|
||||||
740 PRINT:PRINT "A"Y"- POINT BAGLES BUFF!!"
|
740 PRINT:PRINT "A"Y"- POINT BAGELS BUFF!!"
|
||||||
750 PRINT "HOPE YOU HAD FUN. BYE."
|
750 PRINT "HOPE YOU HAD FUN. BYE."
|
||||||
999 END
|
999 END
|
||||||
|
|||||||
138
dec/BASBL1.BAS
138
dec/BASBL1.BAS
@ -1,138 +0,0 @@
|
|||||||
100 DIMB(16)
|
|
||||||
110 LETZ(0)=.5\LETZ=.5
|
|
||||||
120 LETI=1
|
|
||||||
130 LETB1=0\LETB2=0\LETB3=0\LETI1=0\LETI2=0\LETI3=0
|
|
||||||
140 LETC1=0\LETC2=0\PRINT
|
|
||||||
150 IFC2<>4THEN160\PRINT"THE BATTER WALKS."\GOSUB920\GOTO140
|
|
||||||
160 IFC1<>3THEN180\PRINT"THE BATTER STRUCK OUT."\LET C3=C3+1\GOTO140
|
|
||||||
170 IF S1=1THEN180\LETX=X+1
|
|
||||||
180 IFC3<3THEN270\IFS1=1THEN190\LETS1=1\GOTO200
|
|
||||||
190 PRINT"AFTER";I;"INNINGS";\LETI=I+1\LETS1=0
|
|
||||||
200 PRINTI2;"RUNS,";I1;"HITS,";I3;"ERRORS AND";B1+B2+B3;"LEFT ON BASE."
|
|
||||||
210 IFI=5THEN1420\IFS1=0THEN230\PRINT"I'M";\GOTO240
|
|
||||||
220 IFS1=0THEN230\PRINT"I'M";\GOTO240
|
|
||||||
230 PRINT"YOU'RE";
|
|
||||||
240 PRINT" UP NOW."\PRINT"SCORE: ME";S2;"YOU";S3
|
|
||||||
250 PRINT\LETC3=0
|
|
||||||
260 GOTO130
|
|
||||||
270 PRINT"YOUR PLAY? ";
|
|
||||||
280 FORA=1TO20\INPUT$B(A)\IFB(A)=141THEN290\NEXTA
|
|
||||||
290 LETD=1*RND(5)\PRINT
|
|
||||||
300 LETC=100*B(1)+B(2)\IF S1=0THEN420
|
|
||||||
310 IFC<>19713THEN320\LETD=D+C(X)\GOTO1280
|
|
||||||
320 IFC<>19993THEN330\LETD=D+F(X)\GOTO1280
|
|
||||||
330 IFC=19597THEN1280
|
|
||||||
340 IFC=19610THEN1280
|
|
||||||
350 IFC=21304THEN1280
|
|
||||||
360 IFC=20506THEN1280
|
|
||||||
370 IFC<>20110THEN380\IFD<.8THEN1280\GOTO1270
|
|
||||||
380 IFC<>21308THEN390\IFD<.8THEN1280\GOTO1270
|
|
||||||
390 IFC<>19700THEN400\PRINT"RUNNERS ARE STICKING."\GOTO270
|
|
||||||
400 IFC<>19593THEN410\PRINT"MY BATTER";\GOTO1300
|
|
||||||
410 FORA1=ATOA-1\PRINTCHR$(B(A1));\NEXTA1\PRINT"?"\GOTO270
|
|
||||||
420 IFC<>19613THEN430\PRINT"YOUR BATTER";\GOSUB570\GOTO140
|
|
||||||
430 IFC=21315THEN1280
|
|
||||||
440 IFC<>19700THEN450\PRINT"CHECK NOT YET IN."\GOTO270
|
|
||||||
450 IFC=20201THEN1280
|
|
||||||
460 IFC<>21312THEN470\PRINT"STEAL NOT YET IN."\GOTO270
|
|
||||||
470 IFC=21293THEN1280
|
|
||||||
480 IFC=20110THEN1280
|
|
||||||
490 IFC=20004THEN1280
|
|
||||||
500 IFC=20501THEN1280
|
|
||||||
510 GOTO410
|
|
||||||
520 LETA=9*RND(6)\IFS1=0THEN530\PRINT"MY BATTER";\GOTO540
|
|
||||||
530 PRINT"YOUR BATTER";
|
|
||||||
540 IFA>1THEN550\PRINT" LINED OUT TO THE THIRD BASEMAN."\GOTO840
|
|
||||||
550 IFA>2THEN560\PRINT" POPPED OUT IN SHALLOW LEFT."\GOTO840
|
|
||||||
560 IFA>3THEN580
|
|
||||||
570 PRINT" GROUNDED TO THE PITCHER";\GOTO590
|
|
||||||
580 IFA>4THEN680\PRINT" GROUNDED TO SHORTSTOP";
|
|
||||||
590 PRINT" WHO THREW OUT THE MAN";\IFC3=2THEN670
|
|
||||||
600 IFB1=0THEN670\IFB2=0THEN630\IFB3=0THEN620\PRINT" FORCED HOME."
|
|
||||||
610 GOTO850
|
|
||||||
620 PRINT" FORCED TO THIRD."\GOTO850
|
|
||||||
630 LETA1=INT(3*RND(0))\PRINT" FORCED TO SECOND";\IFA1<>1THEN650
|
|
||||||
640 PRINT"."\GOTO850
|
|
||||||
650 PRINT\PRINT"AND THEN TO FIRST FOR A DOUBLE PLAY!"
|
|
||||||
660 LETC3=C3+1\LETB1=0\GOTO840
|
|
||||||
670 PRINT" AT FIRST."\GOTO840
|
|
||||||
680 IFA>5THEN700\PRINT" HIT A FLY INTO DEEP CENTER WHERE IT WAS";
|
|
||||||
690 PRINT" CAUGHT."\GOTO710
|
|
||||||
700 IFA>6THEN880\PRINT" HIT TO LEFT FIELD FOR AN OUT."
|
|
||||||
710 IFC3=2THEN840\IFB1+B2+B3=0THEN840
|
|
||||||
720 PRINT"THE MAN ON";\IFB3=1THEN730\IFB2=1THEN750\GOTO790
|
|
||||||
730 PRINT" THIRD MADE IT HOME,";\GOSUB930\LETB3=0
|
|
||||||
740 IFB2=0THEN780
|
|
||||||
750 PRINT" SECOND";\IFA1=0THEN760\PRINT" STAYED PUT."\GOTO780
|
|
||||||
760 IFA1>1THEN770\PRINT" MADE IT TO THIRD."\LETB3=1\LETB2=0\GOTO780
|
|
||||||
770 PRINT" WAS OUT TRYING TO TAKE THIRD."\LETC3=C3+1\LETB2=2
|
|
||||||
780 IFB1<>1THEN840
|
|
||||||
790 IFB2<>1THEN800\PRINT" FIRST STUCK."\GOTO840
|
|
||||||
800 PRINT" ON FIRST";\IFB2<>2THEN820
|
|
||||||
810 PRINT" MADE IT TO SECOND."\LETB2=1\LETB1=0\GOTO840
|
|
||||||
820 LETW=2*RND(0)\IFW>1THEN810\PRINT" WAS OUT GOING."\LETC3=C3+1
|
|
||||||
830 LETB2=0
|
|
||||||
840 LETZ(Y)=Z(Y)-(Z(Y)/100)\GOTO860
|
|
||||||
850 LETZ(Y)=Z(Y)+(Z(Y)/100)
|
|
||||||
860 LETC3=C3+1\PRINT"THAT WAS OUT NUMBER";C3
|
|
||||||
870 GOTO1260
|
|
||||||
880 IFA>7THEN890\PRINT" HIT OVER THE PITCHER'S HEAD FOR A";\GOTO910
|
|
||||||
890 IFA>8THEN900\PRINT" HIT THROUGH THE HOLE INTO RIGHT FOR A";\GOTO910
|
|
||||||
900 PRINT" HIT INTO LEFT FIELD FOR A";
|
|
||||||
910 IFZ>4*DTHEN1210\IFZ>3*DTHEN1130\IFZ>2*DTHEN1040\PRINT" SINGLE."
|
|
||||||
920 IFB3=0THEN970\GOSUB930\LETB3=0\GOTO960
|
|
||||||
930 IFS1=1THEN940\LETS3=S3+1\GOTO950
|
|
||||||
940 LETS2=S2+1
|
|
||||||
950 LETI2=I2+1\RETURN
|
|
||||||
960 PRINT"THE MAN ON THIRD SCORED."
|
|
||||||
970 IFB2=0THEN1000\PRINT"THE MAN ON SECOND";\IFA>8THEN990\PRINT" SCORED."
|
|
||||||
980 GOSUB930\LETB2=0\GOTO1000
|
|
||||||
990 PRINT" WENT TO THIRD."\LETB2=0\LETB3=1
|
|
||||||
1000 IFB1=0THEN1030\PRINT"THE MAN ON FIRST";\IFA>8THEN1020
|
|
||||||
1010 IFC2=4THEN1020\LETB1=0\GOTO990
|
|
||||||
1020 PRINT" TO SECOND."\LETB2=1
|
|
||||||
1030 LETB1=1\GOTO1240
|
|
||||||
1040 LETW=3*RND(0)\IFW>1THEN1050\PRINT"N OFF THE WALL";
|
|
||||||
1050 IFA2=1THEN1060\PRINT" STAND UP";
|
|
||||||
1060 PRINT" DOUBLE."\IFB3=0THEN1080\PRINT"THE MAN ON THIRD SCORED."
|
|
||||||
1070 GOSUB930\LETB3=0
|
|
||||||
1080 IFB2=0THEN1090\PRINT"THE MAN ON SECOND SCORED."\GOSUB930\LETB2=0
|
|
||||||
1090 IFB1=0THEN1120\PRINT"THE MAN ON FIRST";\IFA>8THEN1110\PRINT" SCORED."
|
|
||||||
1100 GOSUB930\LETB1=0\GOTO1120
|
|
||||||
1110 PRINT" WENT TO THIRD."\LET B1=0\LETB3=1
|
|
||||||
1120 LETB2=1\GOTO1240
|
|
||||||
1130 PRINT" TRIPLE!"\LETA3=B1+B2+B3\IFA3=0THEN1200\PRINT"THE MAN ON";
|
|
||||||
1140 IFB1=0THEN1150\PRINT" FIRST";\GOSUB930
|
|
||||||
1150 IFB2=0THEN1170\IFB1=0THEN1160\PRINT", AND";
|
|
||||||
1160 PRINT" SECOND";\GOSUB930
|
|
||||||
1170 IFB3=0THEN1190\IFB1+B2=0THEN1180\PRINT", AND";
|
|
||||||
1180 PRINT" THIRD";\GOSUB930
|
|
||||||
1190 PRINT" SCORED."\LETB1=0\LETB2=0
|
|
||||||
1200 LETB3=1\GOTO1240
|
|
||||||
1210 IFB1+B2+B3<3THEN1220\PRINT" GRAND SLAM";
|
|
||||||
1220 PRINT" HOME RUN!!"\FORA1=1TO(B1+B2+B3+1)\GOSUB930\NEXTA1
|
|
||||||
1230 LETB1=0\LETB2=0\LETB3=0
|
|
||||||
1240 IFC2=4THEN1260\LETZ(Y)=Z(Y)+(Z(Y)/100)
|
|
||||||
1250 LETI1=I1+1
|
|
||||||
1260 RETURN
|
|
||||||
1270 PRINT"PITCHER THROWN OUT FOR THROWING ILLEGAL PITCH."\GOTO270
|
|
||||||
1280 LETA=5*RND(0)\IFA<3THEN1320
|
|
||||||
1290 IFA>4THEN1300\PRINT"INSIDE - ";\GOTO1310
|
|
||||||
1300 PRINT"OUTSIDE - ";
|
|
||||||
1310 LETC2=C2+1\PRINT"BALL";C2\GOTO150
|
|
||||||
1320 IFZ(Y)<DTHEN1340\GOSUB520\IFA<6THEN1330\LETC(Y)=C(Y)+1\GOTO140
|
|
||||||
1330 LETC(Y)=C(Y)-1\GOTO140
|
|
||||||
1340 LETC(Y)=C(Y)-1\LETB=3*RND(7)
|
|
||||||
1350 IFB>1THEN1360\PRINT"A SWING & A MISS - ";\GOTO1390
|
|
||||||
1360 IFB>2THEN1380\PRINT"INSIDE CORNER - CALL ";
|
|
||||||
1370 GOTO1390
|
|
||||||
1380 PRINT"FOUL! - ";\IFC1=2THEN1400
|
|
||||||
1390 LETC1=C1+1\PRINT" STRIKE";C1\GOTO150
|
|
||||||
1400 PRINT"COUNT STAYS AT";C2;"BALLS AND";C1;
|
|
||||||
1410 PRINT"STRIKES."\GOTO150
|
|
||||||
1420 PRINT"FINAL SCORE: ME";S2;"YOU";S3
|
|
||||||
1430 IFS2>S3THEN1450\IFS3=S2THEN1440\PRINT"YOU WON."\GOTO1460
|
|
||||||
1440 PRINT"A DRAW!"\GOTO1460
|
|
||||||
1450 PRINT"I WON!"
|
|
||||||
1460 CHAIN"DEMON "
|
|
||||||
1470 END
|
|
||||||
@ -1,50 +0,0 @@
|
|||||||
100 DIMT(50),C(19),F(19),Z(19)
|
|
||||||
110 FORX=1TO19\READC(X),Z(X),F(X)\NEXTX\LETX=1
|
|
||||||
120 PRINT"WELCOME TO HUISMAN STADIUM FOR TODAY'S GREAT GAME BETWEEN"
|
|
||||||
130 PRINT"THE PDP-8 PANTHERS AND (YOUR NAME PLEASE) THE ";
|
|
||||||
140 FOR A=1 TO 99\INPUT $T(A)\IF T(A)=141 THEN 150\NEXT A
|
|
||||||
150 LETT=A\PRINT\PRINT"A HIGHLY PARTISAN CROWD OF";
|
|
||||||
160 FORA=1TOT\LETB=2*RND(0)\NEXTA
|
|
||||||
170 LET A=INT(70000*RND(1))\PRINTA;
|
|
||||||
180 PRINT"FANS IS ANXIOUSLY AWAITING THE"\PRINT"START OF THE GAME."
|
|
||||||
190 PRINT"HERE IS MY TEAM:","AND HERE IS YOURS:"
|
|
||||||
200 PRINT"NAME","AVERAGE","NAME","AVERAGE"
|
|
||||||
210 PRINT"----","-------","----","-------"
|
|
||||||
220 GOSUB 400
|
|
||||||
230 PRINT\PRINT
|
|
||||||
240 PRINT"THE PANTHERS ARE TAKING THE FIELD NOW AS ANDREWS OF THE"
|
|
||||||
250 FOR A=1 TO T-1\PRINT CHR$(T(A));\NEXT A
|
|
||||||
260 PRINT" ADVANCES TO THE PLATE. PLEASE WAIT AS THE COMPUTER SINGS"
|
|
||||||
270 PRINT"OUR NATIONAL ANTHEM TO ITSELF - 2 OR 3 TIMES! JUST SING"
|
|
||||||
280 PRINT"ALONG UNTIL ASKED FOR YOUR PLAY."\PRINT
|
|
||||||
290 GOTO580
|
|
||||||
300 DATA.05,.412001,.05,.02,.263001,.03
|
|
||||||
310 DATA-.02,.236001,.02,.03,.316001,-.01
|
|
||||||
320 DATA.01,.241001,.03,.02,.321001,.02
|
|
||||||
330 DATA-.02,.367001,.02,-.02,.386001,-.01
|
|
||||||
340 DATA.01,.295001,.03,-.01,.296001,.02
|
|
||||||
350 DATA-.02,.319001,.02,-.02,.285001,.02
|
|
||||||
360 DATA-.03,.295001,.01,.02,.295001,.03
|
|
||||||
370 DATA.02,.218001,.02,.02,.139001,-.02
|
|
||||||
380 DATA.03,.238001,.01,.03,.231001,-.02
|
|
||||||
390 DATA 0,0,0
|
|
||||||
400 PRINT"HUISMAN",Z(1),"KLOOS",Z(2)
|
|
||||||
410 PRINT"HOEREN",Z(3),"ANDREWS",Z(4)
|
|
||||||
420 PRINT"BACCUS",Z(5),"MAYER",Z(8)
|
|
||||||
430 PRINT"SMITH",Z(7),"HANSEN",Z(6)
|
|
||||||
440 PRINT"SCHNEIDER",Z(9),"MICHEL",Z(10)
|
|
||||||
450 PRINT"ROSENBAUM",Z(11),"P. D. PEATE",Z(12)
|
|
||||||
460 PRINT"POULSEN",Z(13),"WILLIAMS",Z(14)
|
|
||||||
470 PRINT"KILGOUR",Z(15),"NELSON",Z(16)
|
|
||||||
480 PRINT "JOHNSON",Z(17),"ANKCORN",Z(18)
|
|
||||||
490 PRINT"WHITNEY"," MANAGER","IVEY"," MANAGER"\PRINT
|
|
||||||
500 PRINT"PITCHER'S OPTIONS ARE:"\PRINT"FASTBALL"
|
|
||||||
510 PRINT"BEANBALL"\PRINT"BRUSHBACK"\PRINT"BALL"\PRINT"CURVE"
|
|
||||||
520 PRINT"SLIDER"\PRINT"KNUCKLE"\PRINT"GREASEBALL (ILLEGAL)"
|
|
||||||
530 PRINT"SPITBALL (ILLEGAL)"\PRINT"CHECK"\PRINT
|
|
||||||
540 PRINT"BATTER'S OPTIONS ARE:"\PRINT"BUNT"\PRINT"SWING"
|
|
||||||
550 PRINT"HIT-AWAY"\PRINT"SACRIFICE"\PRINT"GROUNDER"\PRINT"FLY"
|
|
||||||
560 PRINT"KILL"\PRINT
|
|
||||||
570 RETURN
|
|
||||||
580 CHAIN"BASBL1"
|
|
||||||
590 END
|
|
||||||
@ -1,49 +0,0 @@
|
|||||||
UN
|
|
||||||
BUN BUNNYB
|
|
||||||
BUNNYB NYBUNNYBUN
|
|
||||||
BUNNYBUN UNNYBUNNYBUN
|
|
||||||
UNNYBUNNY NNYBUNNYBUNNYB
|
|
||||||
NNYBUNNYBU UNNYBUNNYBUNNYB
|
|
||||||
NYBUNNYBUNN YBUNNYBUNNYBUNNY
|
|
||||||
YBUNNYBUNNY NNYBUNNYBUNNYBUNN
|
|
||||||
BUNNYBUNNYB UNNYBUNNYBUNNYBUN
|
|
||||||
UNNYBUNNYBU BUNNYBUNNYBUNNYB
|
|
||||||
NNYBUNNYBUN YBUNNYBUNNYBUNNY
|
|
||||||
NYBUNNYBUNNY NYBUNNYBUNNYBUNN
|
|
||||||
YBUNNYBUNNYB NNYBUNNYBUNNYBU
|
|
||||||
BUNNYBUNNYBU UNNYBUNNYBUNNYB
|
|
||||||
UNNYBUNNYBUN BUNNYBUNNYBUNN
|
|
||||||
NNYBUNNYBUN YBUNNYBUNNYBU
|
|
||||||
NYBUNNYBUNNYBUNNYBUNNY
|
|
||||||
YBUNNYBUNNYBUNNYBUNN
|
|
||||||
BUNNYBUNNYBUNNYBU
|
|
||||||
NNYBUNNYBUNNY
|
|
||||||
NYBUNNYBUN
|
|
||||||
YBUNNYBU
|
|
||||||
UNNYBUNNYBUNN
|
|
||||||
NYBUNNYBUNNYBUNNYB
|
|
||||||
UNNYBUNNYBUNNYBUNNYBU
|
|
||||||
BUNNYBUNNYBUNNYBUNNYBUN
|
|
||||||
NYBUNNYBUNNYBUNNYBUNNYBUNN
|
|
||||||
NNYBUNNYBUNNYBUNNYBUNNYBUNNY
|
|
||||||
UNNYBUNN UNNYBUNNYBUNNYBUNNY
|
|
||||||
BUNNYBUN UNNYBUNNYBUNNYBUNNYB
|
|
||||||
YBUNNYBUN UNNYBUNNYBUNNYBUNNYB
|
|
||||||
NYBUNNYBUN BUNNYBUNNYBUNNYBUNNYB
|
|
||||||
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB
|
|
||||||
UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB
|
|
||||||
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY
|
|
||||||
NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY
|
|
||||||
YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN
|
|
||||||
UNNYBUNNYBUNNYBUNNYBUNNYBUNN
|
|
||||||
BUNNYBUNNYBUNNYBUNNYBUN Y
|
|
||||||
YBUN YBUNNYB NYBU B
|
|
||||||
BUNNY NYBUNNYB U
|
|
||||||
YBUNN U YBUNNYB N
|
|
||||||
NYBUNN NYBUNNY NYBUNN
|
|
||||||
NNYBUNNYBUNNYBUNNY UNN
|
|
||||||
UNN N Y N YBUNNYBU
|
|
||||||
BU NN N Y Y
|
|
||||||
NN UNNY
|
|
||||||
NNY
|
|
||||||
NY
|
|
||||||
@ -1,51 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
XXXX
|
|
||||||
X XX
|
|
||||||
X *** X XXXXX
|
|
||||||
X ***** X XXX XX
|
|
||||||
XXXX ******* XXX XXXX XX
|
|
||||||
XX X ****** XXXXXXXXX XX XXX
|
|
||||||
XX X **** X X** X
|
|
||||||
X XX XX X X***X
|
|
||||||
X //XXXX X XXXX
|
|
||||||
X // X XX
|
|
||||||
X // X XXXXXXXXXXXXXXXXXX/
|
|
||||||
X XXX// X X
|
|
||||||
X X X X X
|
|
||||||
X X X X X
|
|
||||||
X X X X X XX
|
|
||||||
X X X X X XXX XX
|
|
||||||
X XXX X X X X X X
|
|
||||||
X X X XX X XXXX
|
|
||||||
X X XXXXXXXX\ XX XX X
|
|
||||||
XX XX X X X XX
|
|
||||||
XX XXXX XXXXXX/ X XXXX
|
|
||||||
XXX XX*** X X
|
|
||||||
XXXXXXXXXXXXX * * X X
|
|
||||||
*---* X X X
|
|
||||||
*-* * XXX X X
|
|
||||||
*- * XXX X
|
|
||||||
*- *X XXX
|
|
||||||
*- *X X XXX
|
|
||||||
*- *X X XX
|
|
||||||
*- *XX X X
|
|
||||||
* *X* X X X
|
|
||||||
* *X * X X X
|
|
||||||
* * X** X XXXX X
|
|
||||||
* * X** XX X X
|
|
||||||
* ** X** X XX X
|
|
||||||
* ** X* XXX X X
|
|
||||||
* ** XX XXXX XXX
|
|
||||||
* * * XXXX X X
|
|
||||||
* * * X X X
|
|
||||||
=======******* * * X X XXXXXXXX\
|
|
||||||
* * * /XXXXX XXXXXXXX\ )
|
|
||||||
=====********** * X ) \ )
|
|
||||||
====* * X \ \ )XXXXX
|
|
||||||
=========********** XXXXXXXXXXXXXXXXXXXXXX
|
|
||||||
|
|
||||||
|
|
||||||
CURSE YOU, RED BARON!
|
|
||||||
|
|
||||||
23
dec/ZOOP.BAS
23
dec/ZOOP.BAS
@ -1,23 +0,0 @@
|
|||||||
100PRINT\PRINT"READY"\PRINT
|
|
||||||
110 INPUT $A\IF A=253 THEN 300\INPUT $B\IF B=253 THEN 300
|
|
||||||
120LETK=10*A+B
|
|
||||||
130IFK<>2313THEN140\PRINT"N NO FILE YOU BOOB"\GOTO100
|
|
||||||
140IFK<>2143THEN150\PRINT"TALOG TRY MONTGOMERY WARD'S"\GOTO100
|
|
||||||
150IFK<>2241THEN160\PRINT"STNH I DON'T FEEL LIKE IT"\GOTO100
|
|
||||||
160IFK<>2257THEN170\PRINT"W YES I'M QUITE NEW"\GOTO100
|
|
||||||
170IFK<>2274THEN190\PRINT"D I'M NOT THAT OLD, BUT I'M OLD ENOUGH!!!"
|
|
||||||
180GOTO100
|
|
||||||
190IFK<>2297THEN210\PRINT"NAME WHY? I LIKE MY NAME"\GOTO100
|
|
||||||
200IFK<>207THEN210\PRINT"NAME WHY? I LIKE MY NAME"\GOTO100
|
|
||||||
210IFK<>2157THEN220\PRINT"BUG GET A CAN OF RAID"\GOTO100
|
|
||||||
220IFK<>2322THEN230\PRINT"OP THE FUN IS JUST STARTING"\GOTO100
|
|
||||||
230IFK<>2303THEN240\PRINT"VE I DON'T LIKE BANKS"\GOTO100
|
|
||||||
240IFK<>2336THEN250\PRINT"SAVE O.K., THE WHOLE DEC TAPE"\CHAIN "ZOOP "
|
|
||||||
250IFK<>2305THEN260\PRINT"RATCH GOT AN ITCH?"\GOTO100
|
|
||||||
260IFK<>2166THEN270\PRINT"IT THIS IS NO NEWSPAPER"\GOTO100
|
|
||||||
270 INPUT $C\IF C=253 THEN 300
|
|
||||||
280IFC<>141THEN270
|
|
||||||
290PRINT\PRINT"WHAT??"\GOTO100
|
|
||||||
300 PRINT " WIPED OUT COMPLETELY!!!"
|
|
||||||
310 CHAIN "DEMON "
|
|
||||||
320END
|
|
||||||
@ -12,7 +12,7 @@
|
|||||||
110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"
|
110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"
|
||||||
120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION"
|
120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION"
|
||||||
130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION"
|
130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION"
|
||||||
140 PRINT " BAGLES - NO DIGITS CORRECT"
|
140 PRINT " BAGELS - NO DIGITS CORRECT"
|
||||||
150 FOR I=1 TO 3
|
150 FOR I=1 TO 3
|
||||||
160 A(I)=INT(10*RND(1))
|
160 A(I)=INT(10*RND(1))
|
||||||
170 FOR J=1 TO I-1
|
170 FOR J=1 TO I-1
|
||||||
@ -59,7 +59,7 @@
|
|||||||
560 PRINT "FERMI ";
|
560 PRINT "FERMI ";
|
||||||
570 NEXT J
|
570 NEXT J
|
||||||
580 IF C+D<>0 THEN 600
|
580 IF C+D<>0 THEN 600
|
||||||
590 PRINT "BAGLES";
|
590 PRINT "BAGELS";
|
||||||
600 PRINT
|
600 PRINT
|
||||||
605 NEXT I
|
605 NEXT I
|
||||||
610 PRINT "OH WELL"
|
610 PRINT "OH WELL"
|
||||||
@ -73,6 +73,6 @@
|
|||||||
700 PRINT "PLAY AGAIN (YES OR NO)";\ INPUT A$
|
700 PRINT "PLAY AGAIN (YES OR NO)";\ INPUT A$
|
||||||
720 IF A$="YES" THEN 150
|
720 IF A$="YES" THEN 150
|
||||||
730 IF Y=0 THEN 750
|
730 IF Y=0 THEN 750
|
||||||
740 PRINT\ PRINT "A"Y"- POINT BAGLES BUFF!!"
|
740 PRINT\ PRINT "A"Y"- POINT BAGELS BUFF!!"
|
||||||
750 PRINT "HOPE YOU HAD FUN. BYE."
|
750 PRINT "HOPE YOU HAD FUN. BYE."
|
||||||
999 END
|
999 END
|
||||||
|
|||||||
@ -1,50 +0,0 @@
|
|||||||
10 PRINT " UN"
|
|
||||||
20 PRINT "BUN BUNNYB"
|
|
||||||
30 PRINT "BUNNYB NYBUNNYBUN"
|
|
||||||
40 PRINT "BUNNYBUN UNNYBUNNYBUN"
|
|
||||||
50 PRINT " UNNYBUNNY NNYBUNNYBUNNYB"
|
|
||||||
60 PRINT " NNYBUNNYBU UNNYBUNNYBUNNYB"
|
|
||||||
70 PRINT " NYBUNNYBUNN YBUNNYBUNNYBUNNY"
|
|
||||||
80 PRINT " YBUNNYBUNNY NNYBUNNYBUNNYBUNN"
|
|
||||||
90 PRINT " BUNNYBUNNYB UNNYBUNNYBUNNYBUN"
|
|
||||||
100 PRINT " UNNYBUNNYBU BUNNYBUNNYBUNNYB"
|
|
||||||
110 PRINT " NNYBUNNYBUN YBUNNYBUNNYBUNNY"
|
|
||||||
120 PRINT " NYBUNNYBUNNY NYBUNNYBUNNYBUNN"
|
|
||||||
130 PRINT " YBUNNYBUNNYB NNYBUNNYBUNNYBU"
|
|
||||||
140 PRINT " BUNNYBUNNYBU UNNYBUNNYBUNNYB"
|
|
||||||
150 PRINT " UNNYBUNNYBUN BUNNYBUNNYBUNN"
|
|
||||||
160 PRINT " NNYBUNNYBUN YBUNNYBUNNYBU"
|
|
||||||
170 PRINT " NYBUNNYBUNNYBUNNYBUNNY"
|
|
||||||
180 PRINT " YBUNNYBUNNYBUNNYBUNN"
|
|
||||||
190 PRINT " BUNNYBUNNYBUNNYBU"
|
|
||||||
200 PRINT " NNYBUNNYBUNNY"
|
|
||||||
210 PRINT " NYBUNNYBUN"
|
|
||||||
220 PRINT " YBUNNYBU"
|
|
||||||
230 PRINT " UNNYBUNNYBUNN"
|
|
||||||
240 PRINT " NYBUNNYBUNNYBUNNYB"
|
|
||||||
250 PRINT " UNNYBUNNYBUNNYBUNNYBU"
|
|
||||||
260 PRINT " BUNNYBUNNYBUNNYBUNNYBUN"
|
|
||||||
270 PRINT " NYBUNNYBUNNYBUNNYBUNNYBUNN"
|
|
||||||
280 PRINT " NNYBUNNYBUNNYBUNNYBUNNYBUNNY"
|
|
||||||
290 PRINT " UNNYBUNN UNNYBUNNYBUNNYBUNNY"
|
|
||||||
300 PRINT " BUNNYBUN UNNYBUNNYBUNNYBUNNYB"
|
|
||||||
310 PRINT " YBUNNYBUN UNNYBUNNYBUNNYBUNNYB"
|
|
||||||
320 PRINT " NYBUNNYBUN BUNNYBUNNYBUNNYBUNNYB"
|
|
||||||
330 PRINT " NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB"
|
|
||||||
340 PRINT " UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB"
|
|
||||||
350 PRINT " NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY"
|
|
||||||
360 PRINT " NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY"
|
|
||||||
370 PRINT " YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN"
|
|
||||||
380 PRINT " UNNYBUNNYBUNNYBUNNYBUNNYBUNN"
|
|
||||||
390 PRINT " BUNNYBUNNYBUNNYBUNNYBUN Y"
|
|
||||||
400 PRINT " YBUN YBUNNYB NYBU B"
|
|
||||||
410 PRINT " BUNNY NYBUNNYB U"
|
|
||||||
420 PRINT " YBUNN U YBUNNYB N"
|
|
||||||
430 PRINT " NYBUNN NYBUNNY NYBUNN"
|
|
||||||
440 PRINT " NNYBUNNYBUNNYBUNNY UNN"
|
|
||||||
450 PRINT " UNN N Y N YBUNNYBU"
|
|
||||||
460 PRINT " BU NN N Y Y"
|
|
||||||
470 PRINT " NN UNNY"
|
|
||||||
480 PRINT " NNY"
|
|
||||||
490 PRINT " NY"
|
|
||||||
500 END
|
|
||||||
@ -1,52 +0,0 @@
|
|||||||
10 PRINT
|
|
||||||
20 PRINT
|
|
||||||
30 PRINT
|
|
||||||
40 PRINT " XXXX"
|
|
||||||
50 PRINT " X XX"
|
|
||||||
60 PRINT " X *** X XXXXX"
|
|
||||||
70 PRINT " X ***** X XXX XX"
|
|
||||||
80 PRINT " XXXX ******* XXX XXXX XX"
|
|
||||||
90 PRINT " XX X ****** XXXXXXXXX XX XXX"
|
|
||||||
100 PRINT " XX X **** X X** X"
|
|
||||||
110 PRINT " X XX XX X X***X"
|
|
||||||
120 PRINT " X //XXXX X XXXX"
|
|
||||||
130 PRINT " X // X XX"
|
|
||||||
140 PRINT " X // X XXXXXXXXXXXXXXXXXX/"
|
|
||||||
150 PRINT " X XXX// X X"
|
|
||||||
160 PRINT " X X X X X"
|
|
||||||
170 PRINT " X X X X X"
|
|
||||||
180 PRINT " X X X X X XX"
|
|
||||||
190 PRINT " X X X X X XXX XX"
|
|
||||||
200 PRINT " X XXX X X X X X X"
|
|
||||||
210 PRINT " X X X XX X XXXX"
|
|
||||||
220 PRINT " X X XXXXXXXX\ XX XX X"
|
|
||||||
230 PRINT " XX XX X X X XX"
|
|
||||||
240 PRINT " XX XXXX XXXXXX/ X XXXX"
|
|
||||||
250 PRINT " XXX XX*** X X"
|
|
||||||
260 PRINT " XXXXXXXXXXXXX * * X X"
|
|
||||||
270 PRINT " *---* X X X"
|
|
||||||
280 PRINT " *-* * XXX X X"
|
|
||||||
290 PRINT " *- * XXX X"
|
|
||||||
300 PRINT " *- *X XXX"
|
|
||||||
310 PRINT " *- *X X XXX"
|
|
||||||
320 PRINT " *- *X X XX"
|
|
||||||
330 PRINT " *- *XX X X"
|
|
||||||
340 PRINT " * *X* X X X"
|
|
||||||
350 PRINT " * *X * X X X"
|
|
||||||
360 PRINT " * * X** X XXXX X"
|
|
||||||
370 PRINT " * * X** XX X X"
|
|
||||||
380 PRINT " * ** X** X XX X"
|
|
||||||
390 PRINT " * ** X* XXX X X"
|
|
||||||
400 PRINT " * ** XX XXXX XXX"
|
|
||||||
410 PRINT " * * * XXXX X X"
|
|
||||||
420 PRINT " * * * X X X"
|
|
||||||
430 PRINT " =======******* * * X X XXXXXXXX\"
|
|
||||||
440 PRINT " * * * /XXXXX XXXXXXXX\ )"
|
|
||||||
450 PRINT " =====********** * X ) \ )"
|
|
||||||
460 PRINT " ====* * X \ \ )XXXXX"
|
|
||||||
470 PRINT " =========********** XXXXXXXXXXXXXXXXXXXXXX"
|
|
||||||
480 PRINT
|
|
||||||
490 PRINT
|
|
||||||
500 PRINT " "," ","CURSE YOU, RED BARON!"
|
|
||||||
510 PRINT
|
|
||||||
520 END
|
|
||||||
Loading…
Reference in New Issue
Block a user