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

Typo: bagels/bagles

Browse Source 
Add bunny and snoopy art with corresponding port to TSS8.
This commit is contained in:
Renaud 2024-04-29 10:37:35 +08:00
parent 56d2749674
commit adf219b4c0
6 changed files with 208 additions and 6 deletions
Show Stats Download Patch File Download Diff File 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

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!

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