home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG021.ARK
/
TACOS.ASC
< prev
next >
Wrap
Text File
|
1984-04-29
|
874b
|
27 lines
10000 GOTO 10360
10015 GOTO 10030
10030 'REM TACOS
10045 PRINT
10060 PRINT TAB(17); " TACOS ":PRINT
10075 PRINT:PRINT:PRINT
10090 PRINT "MY BROTHER PEDRO CAN EAT MORE TACOS THAN YOU" : PRINT
10105 INPUT "HOW MANY TACOS CAN YOU EAT"; A
10120 IF A<> INT(A) THEN 10255
10135 IF A>8 THEN 10270
10150 GOTO 10330
10165 S=A+1 : PRINT :PRINT
10180 GOTO 10345
10195 PRINT " GREENGO MY BROTHER HE CAN EAT";S;"TACOS YOU LOSE"
10210 INPUT "AGAIN "; T$ 'REM TACO COUNTER
10225 IF T$="Y"ORT$="YES"THEN 10045
10240 IFT$="N"ORT$="NO" THEN 10375 : GOTO 10030
10255 PRINT"DON'T WASTE FOOD WHEN PEOPLE ARE STARVE":GOTO10030
10270 PRINT"EEF YOU EET THAT MUCH TACOS YOU GET SEECK SENOR":GOTO10030
10285 GOTO 10030
10300 DON'T GO ANYWHERE
10315 REM PAST END
10330 GOTO 10165
10345 GOTO 10195
10360 GOTO10030
10375 PRINT"YOU MUST PLAY MORE TACOS SENOR ":GOTO 10030