From adf219b4c06aab4837d5bb0a60b158c859562ef8 Mon Sep 17 00:00:00 2001 From: Renaud Fivet Date: Mon, 29 Apr 2024 10:37:35 +0800 Subject: [PATCH] Typo: bagels/bagles Add bunny and snoopy art with corresponding port to TSS8. --- dec/BAGLES.BAS | 6 +++--- dec/BUNNY.ASC | 49 ++++++++++++++++++++++++++++++++++++++++++++++ dec/SNOOPY.ASC | 51 ++++++++++++++++++++++++++++++++++++++++++++++++ port/BAGLES.BAS | 6 +++--- port/BUNNY.BAS | 50 +++++++++++++++++++++++++++++++++++++++++++++++ port/SNOOPY.BAS | 52 +++++++++++++++++++++++++++++++++++++++++++++++++ 6 files changed, 208 insertions(+), 6 deletions(-) create mode 100644 dec/BUNNY.ASC create mode 100644 dec/SNOOPY.ASC create mode 100644 port/BUNNY.BAS create mode 100644 port/SNOOPY.BAS diff --git a/dec/BAGLES.BAS b/dec/BAGLES.BAS index 9b30585..11fab56 100644 --- a/dec/BAGLES.BAS +++ b/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 diff --git a/dec/BUNNY.ASC b/dec/BUNNY.ASC new file mode 100644 index 0000000..08674bd --- /dev/null +++ b/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 diff --git a/dec/SNOOPY.ASC b/dec/SNOOPY.ASC new file mode 100644 index 0000000..ca64c31 --- /dev/null +++ b/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! + diff --git a/port/BAGLES.BAS b/port/BAGLES.BAS index d22efb8..a085549 100644 --- a/port/BAGLES.BAS +++ b/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 diff --git a/port/BUNNY.BAS b/port/BUNNY.BAS new file mode 100644 index 0000000..4741feb --- /dev/null +++ b/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 diff --git a/port/SNOOPY.BAS b/port/SNOOPY.BAS new file mode 100644 index 0000000..f9bd992 --- /dev/null +++ b/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