Add BASEBL+BASBL1 and ZOOP.

Add bunny and snoopy art with corresponding port to TSS8.

dec/BAGLES.BAS

@@ -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

dec/BASBL1.BAS

@@ -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

dec/BASEBL.BAS

@@ -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

dec/BUNNY.ASC

@@ -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

dec/SNOOPY.ASC

@@ -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!
+

dec/ZOOP.BAS

@@ -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

port/BAGLES.BAS

@@ -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

port/BUNNY.BAS

@@ -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

port/SNOOPY.BAS

@@ -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