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 / CPMUG054.ARK / TAKEAWAY.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  1KB  |  41 lines
  1. 10 ! **************** TAKE-AWAY ****************
  2. 20 !                    BY
  3. 30 !                MICHAEL RUF
  4. 40 !          AND HIS CHIEF ASSISTANT
  5. 50 !                RICK  MACK
  6. 60 !
  7. 70 DIM E(20)
  8. 80 PRINT:PRINT:PRINT:PRINT
  9. 90 INPUT "NUMBER OF PLAYERS";PL
  10. 100 INPUT "NUMBER OF ROWS";NR
  11. 110 IF NR>15 THEN PRINT "MAXIMUM IS 15":GOTO 100
  12. 120 E$=CHR$(155)
  13. 130 E(1)=3:E(2)=5:E(3)=7
  14. 140 PRINT E$"E";CHR$(0);CHR$(0);CHR$(0);
  15. 150 FOR I=1 TO NR
  16. 160 PRINT USING "## ",I;
  17. 170 IF I=1 THEN I2=3 ELSE I2=I*2+1
  18. 180 FOR I1=1 TO I2
  19. 190 PRINT "* ";
  20. 200 NEXT I1:PRINT
  21. 210 E(I)=I1-1:NEXT I
  22. 220 P=1
  23. 230 PRINT E$ "F1 ";E$"J";CHR$(0);CHR$(0);CHR$(0);
  24. 240 PRINT "ENTER ROW PLAYER " P;
  25. 250 INPUT R
  26. 260 IF R<1 OR R>NR THEN PRINT "ILLEGAL ROW":FOR W=1 TO 400:NEXT W:GOTO 230
  27. 270 INPUT "NUMBER TO TAKE";T
  28. 280 IF T>E(R) THEN PRINT "YOU CAN'T TAKE THAT MANY.":FOR W=1 TO 600:NEXT W:GOTO     230
  29. 290 IF T=0 THEN PRINT "HEY CHEATER, FORGET IT!!":FOR W=1 TO 700:NEXT W:GOTO 230
  30. 300 ! EXTRACT ASTREKS
  31. 310 PE=E(R)
  32. 320 PRINT E$"F" CHR$(R+31);CHR$(((E(R)-T)*2)+34);E$"K"
  33. 330 E(R)=PE-T
  34. 340 P=P+1:IF P=PL+1 THEN P=1
  35. 350 FOR I=1 TO NR:IF E(I)>0 THEN NW=1:NEXT I ELSE NEXT I
  36. 360 IF NW=1 THEN NW=0:GOTO 230
  37. 370 IF P=1 THEN P=PL+1
  38. 380 PRINT E$"E";CHR$(0);CHR$(0);CHR$(0)
  39. 390 PRINT "PLAYER" P-1 " WINS THE GAME.":RUN
  40. 400 END
  41.