rfivet/BCG101
1
0
Fork 0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-18 16:16:32 -05:00
Code

Compare commits

base: rfivet:56d27496747676900d1710c04b92d4472bb897ed
Branches Tags
rfivet:main
...
compare: rfivet:ab99e3edfe9e538a02bccc95ee1c9a7a358b0aca
Branches Tags
rfivet:main

2 Commits
56d2749674 ... ab99e3edfe

Author SHA1 Message Date
Renaud Fivet
ab99e3edfe Add BASEBL+BASBL1 and ZOOP. 2024-04-29 13:32:24 +08:00
Renaud Fivet
adf219b4c0 Typo: bagels/bagles 
Add bunny and snoopy art with corresponding port to TSS8.
 2024-04-29 10:37:35 +08:00
9 changed files with 419 additions and 6 deletions
Show Stats Expand all files Collapse all files

6
dec/BAGLES.BAS
View File

@ -11,7 +11,7 @@
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"
140 PRINT " BAGLES - NO DIGITS CORRECT"
150 FOR I=1 TO 3
160 A(I)=INT(10*RND)
170 FOR J=1 TO I-1
@ -58,7 +58,7 @@
560 PRINT "FERMI ";
570 NEXT J
580 IF C+D<>0 THEN 600
590 PRINT "BAGELS";
590 PRINT "BAGLES";
600 PRINT
605 NEXT I
610 PRINT "OH WELL"
@ -72,6 +72,6 @@
700 INPUT "PLAY AGAIN (YES OR NO)";A$
720 IF A$="YES" THEN 150
730 IF Y=0 THEN 750
740 PRINT:PRINT "A"Y"- POINT BAGELS BUFF!!"
740 PRINT:PRINT "A"Y"- POINT BAGLES BUFF!!"
750 PRINT "HOPE YOU HAD FUN. BYE."
999 END

138
dec/BASBL1.BAS Normal file
View File

@ -0,0 +1,138 @@
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

50
dec/BASEBL.BAS Normal file
View File

@ -0,0 +1,50 @@
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

49
dec/BUNNY.ASC Normal file
View File

@ -0,0 +1,49 @@
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

51
dec/SNOOPY.ASC Normal file
View File

@ -0,0 +1,51 @@
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 Normal file
View File

@ -0,0 +1,23 @@
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

6
port/BAGLES.BAS
View File

@ -12,7 +12,7 @@
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"
140 PRINT " BAGLES - NO DIGITS CORRECT"
150 FOR I=1 TO 3
160 A(I)=INT(10*RND(1))
170 FOR J=1 TO I-1
@ -59,7 +59,7 @@
560 PRINT "FERMI ";
570 NEXT J
580 IF C+D<>0 THEN 600
590 PRINT "BAGELS";
590 PRINT "BAGLES";
600 PRINT
605 NEXT I
610 PRINT "OH WELL"
@ -73,6 +73,6 @@
700 PRINT "PLAY AGAIN (YES OR NO)";\ INPUT A$
720 IF A$="YES" THEN 150
730 IF Y=0 THEN 750
740 PRINT\ PRINT "A"Y"- POINT BAGELS BUFF!!"
740 PRINT\ PRINT "A"Y"- POINT BAGLES BUFF!!"
750 PRINT "HOPE YOU HAD FUN. BYE."
999 END

50
port/BUNNY.BAS Normal file
View File

@ -0,0 +1,50 @@
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

52
port/SNOOPY.BAS Normal file
View File

@ -0,0 +1,52 @@
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