Jackpot Payoff

Gallery

Source Code

   1 FAST 
  10 PRINT AT 0,17;"JACKPOT PAYOFFS"
  20 PRINT AT 1,7;"\..\..\..";TAB 18;"* - - PAYS $2"
  30 PRINT AT 2,7;"% \##% ";TAB 18;"* * - PAYS $5"
  40 PRINT AT 3,1;"\.:% % % % % % % % ";TAB 18;"O O %B PAYS $10"
  50 PRINT AT 4,0;"\.:% % %L%U%C%K%Y% % % ";TAB 18;"O O O PAYS $10"
  60 PRINT AT 5,0;"% % % % % %7% % % % % \ :% \: ";TAB 18;"\,, \,, %B PAYS $14"
  70 PRINT AT 6,0;"% % % % % % % % % % %  % ";TAB 18;"\,, \,, \,, PAYS $14"
  80 PRINT AT 7,0;"% % ";TAB 9;"% %  % ";TAB 17;"\ .\:.\ .\:. %B PAYS $18"
  90 PRINT AT 8,0;"% % ";TAB 9;"% %  % ";TAB 17;"\ .\:.\ .\:.\ .\:. PAYS $18"
 100 PRINT AT 9,0;"% % ";TAB 9;"% %  % ";TAB 18;"\.' \.' %B PAYS$100"
 110 PRINT AT 10,0;"% % % % % % % % % % %  % ";TAB 18;"\.' \.' \.' PAYS$100"
 120 PRINT AT 11,0;"% % % % % % % % % % %  % ";TAB 18;"%B %B %B PAYS$100"
 130 PRINT AT 12,0;"% % % % % % % % % % %  % ";TAB 18;"7 7 7 PAYS$200"
 140 PRINT AT 13,0;"% % % $$$$$% % % \..% "
 150 PRINT AT 14,0;"% % % $$$$$% % % "
 160 PRINT AT 15,0;"% % % $$$$$% % % "
 170 PRINT AT 16,0;"% % % % % % % % % % % "
 180 PRINT AT 17,0;"% % % % % % % % % % % "
 190 PRINT AT 18,0;"% % % \'    \ '% % % "
 200 PRINT AT 19,0;"% % %      % % % "
 210 PRINT AT 20,0;"\':% % % % % % % % % \:'"
 220 LET W=-1
 229 SLOW 
 300 LET M=100
 310 GOTO 1410
 400 PRINT AT 15,18;"INSERT COIN"
 405 LET R1=RND
 410 LET Q$=INKEY$
 420 IF Q$="C" THEN GOTO 500
 430 PRINT AT 15,18;"             "
 440 GOTO 400
 500 PRINT AT 0,11;"O"
 505 FOR P=1 TO 10
 506 NEXT P
 510 PRINT AT 1,10;"O"
 520 PRINT AT 0,11;" "
 525 FOR P=1 TO 10
 526 NEXT P
 530 PRINT AT 1,10;" "
 540 PRINT AT 2,8;"O"
 550 FOR P=1 TO 5
 551 NEXT P
 560 PRINT AT 2,9;"% "
 570 FOR P=1 TO 5
 571 NEXT P
 580 PRINT AT 2,8;"\@@"
 600 PRINT AT 15,18;"PULL HANDLE"
 610 LET Q$=INKEY$
 615 PRINT AT 15,18;"             "
 620 IF Q$="P" THEN GOTO 700
 640 GOTO 600
 700 FOR I=1 TO 8
 710 PRINT AT 3+I,11;"   ";TAB 11;"\ :% \: "
 720 NEXT I
 730 PRINT AT 7,3;"\@@ \@@ \@@";TAB 3;"\@@ \@@ \@@";TAB 3;"\@@ \@@ \@@"
 740 FOR I=1 TO 7
 750 PRINT AT 12-I,11;"\ :% \: ";TAB 11;" %  "
 760 NEXT I
 800 LET R1=INT (20*RND)+1
 810 LET R2=INT (23*RND)+1
 820 LET R3=INT (23*RND)+1
 850 LET A$=" %B"
 860 IF R1<19 THEN LET A$="\ .\:."
 870 IF R1=17 THEN LET A$=" 7"
 880 IF R1<17 THEN LET A$=" *"
 890 IF R1<15 THEN LET A$=" \,,"
 900 IF R1<8 THEN LET A$=" \.'"
 910 IF R1<6 THEN LET A$=" O"
 920 LET B$=" %B"
 925 IF R2<23 THEN LET B$=" \.'"
 930 IF R2<20 THEN LET B$="\ .\:."
 935 IF R2=20 THEN LET B$=" 7"
 940 IF R2<15 THEN LET B$=" *"
 950 IF R2<9 THEN LET B$=" \,,"
 960 IF R2<6 THEN LET B$=" O"
 990 LET C$=" %B"
 995 IF R3<23 THEN LET C$=" £"
 997 IF R3<19 THEN LET C$=" \.'"
1000 IF R3<17 THEN LET C$="\ .\:."
1010 IF R3<9 THEN LET C$=" 7"
1020 IF R3<8 THEN LET C$=" \,,"
1050 IF R3<5 THEN LET C$=" O"
1100 LET W=-1
1105 IF A$=" *" THEN LET W=2
1110 IF A$=" *" AND B$=" *" THEN LET W=5
1120 IF A$=" O" AND B$=" O" AND C$=" %B" THEN LET W=10
1130 IF A$=" O" AND B$=" O" AND C$=" O" THEN LET W=10
1140 IF A$=" \,," AND B$=" \,," AND C$=" %B" THEN LET W=14
1150 IF A$=" \,," AND B$=" \,," AND C$=" \,," THEN LET W=14
1160 IF A$="\ .\:." AND B$="\ .\:." AND C$=" %B" THEN LET W=18
1170 IF A$="\ .\:." AND B$="\ .\:." AND C$="\ .\:." THEN LET W=18
1180 IF A$=" \.'" AND B$=" \.'" AND C$=" %B" THEN LET W=100
1190 IF A$=" \.'" AND B$=" \.'" AND C$=" \.'" THEN LET W=100
1200 IF A$=" %B" AND B$=" %B" AND C$=" %B" THEN LET W=100
1210 IF A$=" 7" AND B$=" 7" AND C$=" 7" THEN LET W=200
1300 PRINT AT 7,2;"  ";TAB 2;A$;TAB 2;"  "
1310 FOR P=1 TO 10
1311 NEXT P
1320 PRINT AT 7,4;"  ";TAB 4;B$;TAB 4;"  "
1330 FOR P=1 TO 10
1331 NEXT P
1340 PRINT AT 7,6;"  ";TAB 6;C$;TAB 6;"  "
1400 IF W>0 THEN PRINT AT 15,18;"***WINNER***";TAB 23;"$";W
1405 LET M=M+W
1410 PRINT AT 18,18;"PRESENT FUNDS:";TAB 21;"$";M;"  "
1415 IF W=-1 THEN GOTO 1700
1420 FOR P=1 TO 10
1500 PRINT AT 13,3;"     "
1510 PRINT AT 19,3;"$$$$$"
1520 PRINT AT 14,3;"     "
1530 PRINT AT 20,2;"$$$$$$$"
1540 PRINT AT 15,3;"     "
1550 PRINT AT 21,1;"$$$$$$$$$"
1560 FOR P=1 TO 50
1561 NEXT P
1570 PRINT AT 19,3;"     ";TAB 2;"% % % % % % % % % ";TAB 1;"           "
1580 FOR I=13 TO 15
1590 PRINT AT I,3;"$$$$$"
1600 NEXT I
1610 PRINT AT 16,23;"      "
1700 IF M=0 THEN PRINT AT 15,16;"OUT OF MONEY";TAB 19;"GAME OVER"
1710 IF M=0 THEN STOP 
1720 GOTO 400
1730 CLEAR 
1740 SAVE "1030%0"
1750 RUN