Directory of image this file is from
This file as a plain text file

1200   IF V(2)=0 THEN 1300
1205   IF T(3)>21 THEN 1300 
1210    LET P=1 
1215   IF T(1)<17 THEN 1360 
1220   IF T(1)>17 THEN 1230 
1225   IF E(1)>0 THEN 1360
1230   IF T(1)>21 THEN 1375 
1235    LET P=2 
1240 PRINT "MY TOTAL IS";T(1)
1245   IF T(P)>21 THEN 1300 
1250   IF T(1)>21 THEN 1265 
1255   IF T(1)>T(P) THEN 1300 
1260   IF T(1)=T(P) THEN 1330 
1265    LET W1=W1+W(P)
1270   IF C1>3 THEN 1445
1275   IF C1>2 THEN 1465
1280   IF C1>1 THEN 1485
1285   IF C1>0 THEN 1505
1290   GOTO 1525
1295   GOTO 1330
1300    LET W1=W1-W(P)
1302 LET C1=INT(3*RND(0))
1305   IF C1>3 THEN 1545
1310   IF C1>2 THEN 1565
1315   IF C1>1 THEN 1585
1320   IF C1>0 THEN 1605
1325   GOTO 1625
1330   IF V(2)>0 THEN 1345
1335   GOSUB 1405 
1340   GOTO 265 
1345    LET P=3 
1350    LET V(2)=0
1355   GOTO 1245
1360 PRINT "I DRAW",
1365   GOSUB 865
1370   GOTO 1210
1375   IF E(1)=0 THEN 1395
1380    LET E(1)=E(1)-1 
1385    LET T(1)=T(1)-10
1390   GOTO 1210
1395   PRINT"I BUSTED*****" 
1397 LET B=0
1400   GOTO 1235
1405   IF W1<0 THEN 1425
1410   IF W1=0 THEN 1435
1415 PRINT "YOU'RE AHEAD $";W1
1420   RETURN 
1425 PRINT "YOUR BEHIND";-W1;"DOLLARS."
1426 IF B=0 GOTO 1430
1427 GOTO 1683
1430   RETURN 
1435   PRINT"YOU'RE EVEN" 
1440   RETURN 
1445   PRINT
1450   PRINT"I MUST HAVE DEALT WRONG."
1453 LET B=0
1455   PRINT
1460   GOTO 1330
1465   PRINT
1470   PRINT"YOU LUCKED OUT AGAIN:" 
1473 LET B=0
1475   PRINT
1480   GOTO 1330
1485   PRINT
1490   PRINT"YOU MUST HAVE BEEN PEEKING." 
1493 LET B=0
1495   PRINT
1500   GOTO 1330
1505   PRINT
1510   PRINT"I COULD LOSE MY JOB THIS WAY." 
1513 LET B=0
1515   PRINT
1520   GOTO 1330
1525   PRINT
1530   PRINT"THE CARDS HAVE TURNED AGAINST ME:" 
1533 LET B=0
1535   PRINT
1540   GOTO 1330
1545   PRINT
1550   PRINT"THE BOTTOM OF THE DECK STRIKES AGAIN:" 
1555   PRINT
1560   GOTO 1330
1565   PRINT
1570   PRINT"A VICTORY FOR US GOOD GUYS." 
1575   PRINT
1580   GOTO 1330
1585   PRINT
1590   PRINT"YOU CAN'T BEAT SKILL." 
1595   PRINT
1600   GOTO 1330
1605   PRINT
1610   PRINT"YOU CAN'T WIN 'EM ALL."
1615   PRINT
1620   GOTO 1330
1625   PRINT
1630   PRINT"BABY GETS A NEW PAIR OF SHOES:"
1635   PRINT
1640   GOTO 1330
1645   FOR M9 = 1 TO 52 
1650    LET D(M9)=0 
1655   NEXT M9
1660    LET R=0 
1665   PRINT
1670   PRINT" I RESHUFFLED" 
1675 PRINT
1680   RETURN 
1683 PRINT
1685 RANDOMIZE
1690 LET K1=INT(10*RND(0))
1695 IF K1<1 THEN 1690
1700 IF K1>6 THEN 1690
1705 IF K1=1 THEN 1800
1710 IF K1=2 THEN 1805
1715 IF K1=3 THEN 1810
1720 IF K1=4 THEN 1815
1725 IF K1=5 THEN 1820
1730 IF K1=6 THEN 1825
1800 PRINT "OK PARDNER, READY TO LOSE AGAIN?"
1801 GOTO1430
1805 PRINT "BABY IS GOING TO BE REAL HUNGRY IF YOU KEEP THIS UP!"
1806 GOTO 1430
1810 PRINT "THEY SAY 'THERE'S A SUCKER BORN EVERY MINUTE."
1811 GOTO 1430
1815 PRINT "HA - HA, YOU BLEW THAT ONE!!!!!!!"
1816 GOTO 1430
1820 PRINT "YOU'D BE BETTER OFF PLAYING HOP SCOCTH!"
1821 GOTO 1430
1825 PRINT "WHY DIDN'T YOU QUITE WHILE YOU WERE AHEAD??"
1826 GOTO 1430
1830 END