100 REM 110 REM PROGRAM WRITTEN BY P. M. DONINI 120 REM GOODYEAR ATOMIC CORP. 130 REM PIKETON, OHIO 140 REM 150 REM SUBMITTED TO DECUS 30-JUL-73 160 REM 170 PRINT "THIS IS BLACKJACK 1973. YOU ARE PLAYING AGAINST THE COMPUTER." 180 PRINT "REMEMBER, THE OBJECT IS TO GET YOUR TOTAL AS CLOSE AS" 190 PRINT "POSSIBLE TO 21 WITHOUT GOING OVER. EXCEEDING 21 LOSES." 200 PRINT 210 PRINT "YOU WILL BE DEALT AN INITIAL CARD. IN RESPONSE TO FURTHER" 220 PRINT "QUESTIONS ANSWER 'Y' OR 'N'." 230 PRINT "NOTE: THE COMPUTER DOES NOT CHEAT!" 240 RANDOMIZE 250 X=RND*100: X=INT((13*(X-INT(X)))+.5) 260 IF X=0 GOTO 240 270 PRINT:PRINT "YOUR CARD IS A ", 280 IF X=1 GOTO 300 290 IF X<11 GOTO 340 ELSE IF X=11 GOTO 330 ELSE IF X=12 GOTO 320 300 PRINT "ACE":GOTO 350 310 PRINT "KING":X=10:GOTO 400 320 PRINT "QUEEN":X=10:GOTO 400 330 PRINT "JACK":X=10:GOTO 400 340 PRINT X: GOTO 400 350 INPUT "DO YOU WISH YOUR ACE TO BE A 1 OR 11"X 360 IF X=1 THEN 400 370 IF X=11 THEN 400 380 PRINT "AN ACE CAN BE ONLY A 1 OR AN 11." 390 GOTO 350 400 Y=Y+X: IF Y>21 GOTO 410 ELSE GOTO 560 410 PRINT "YOU LOSE. ";:Z=1:GOTO 460 420 INPUT "WANT ANOTHER";A$ 430 CHANGE A$ TO X 440 IF X(1)=89 GOTO 240 ELSE V=1 450 IF G=1 GOTO 460 ELSE GOTO 560 460 PRINT "YOUR TOTAL IS";Y 470 GOTO 720 480 PRINT "I WIN!": GOTO 510 490 PRINT "TIE!": GOTO 510 500 PRINT "CONGRATULATIONS! YOU WIN!" 510 INPUT "WANT TO PLAY AGAIN";Q$ 520 CHANGE Q$ TO X 530 IF X(1)=89 GOTO 550 540 GOTO 750 550 Y=0:V=0:G=0:D=0:PRINT "---------------------":GOTO 240 560 IF G=1 GOTO 690 570 W=RND*100:W=INT((13*(W-INT(W)))+.5) 580 PRINT "OKAY, I'VE PICKED MINE." 590 IF W>10 THEN W=10 600 IF W=1 THEN D=D +11 ELSE GOTO 640 610 IF D<17 GOTO 650 620 IF D>21 THEN D = D-11 : GOTO 640 630 GOTO 690 640 D=D+W:IF D>16 GOTO 660 650 IF V=1 GOTO 450 ELSE GOTO 420 660 IF D<22 GOTO 690 670 PRINT "OOPS! I BLEW IT. " 680 GOTO 460 690 PRINT "I'M THRU";:IF V=1 THEN PRINT:GOTO 710 700 PRINT ", BUT YOU KEEP RIGHT ON IF YOU WISH." 710 G=1:IF V=1 GOTO 450 ELSE GOTO 420 720 PRINT "MINE IS";D 730 IF D>21 OR Y>21 THEN GOTO 510 740 IF D