home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / TACOS.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  896 b   |  28 lines
  1. 10000 GOTO 10360
  2. 10015 GOTO 10030
  3. 10030 'REM TACOS
  4. 10045 PRINT
  5. 10060 PRINT TAB(17); "   TACOS  ":PRINT
  6. 10075 PRINT:PRINT:PRINT
  7. 10090 PRINT "MY BROTHER PEDRO CAN EAT MORE TACOS THAN YOU" : PRINT
  8. 10105 INPUT "HOW MANY TACOS CAN YOU EAT"; A
  9. 10120 IF A<> INT(A) THEN 10255
  10. 10135 IF A>8 THEN 10270
  11. 10150 GOTO 10330
  12. 10165 S=A+1 : PRINT :PRINT
  13. 10180 GOTO 10345
  14. 10195 PRINT " GREENGO MY BROTHER HE CAN EAT";S;"TACOS   YOU LOSE"
  15. 10210 INPUT "AGAIN "; T$ 'REM TACO COUNTER
  16. 10225 IF T$="Y"ORT$="YES"THEN 10045 
  17. 10240 IFT$="N"ORT$="NO" THEN 10375 : GOTO 10030
  18. 10255 PRINT"DON'T WASTE FOOD WHEN PEOPLE ARE STARVE":GOTO10030
  19. 10270 PRINT"EEF YOU EET THAT MUCH TACOS YOU GET SEECK SENOR":GOTO10030
  20. 10285 GOTO 10030
  21. 10300 DON'T GO ANYWHERE
  22. 10315 REM PAST END
  23. 10330 GOTO 10165
  24. 10345 GOTO 10195
  25. 10360 GOTO10030
  26. 10375 PRINT"YOU MUST PLAY MORE TACOS SENOR ":GOTO 10030
  27. 15 REM PAST END
  28. 1033