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$=" \.'"
\n1000 IF R3<17 THEN LET C$="\ .\:."
\n1010 IF R3<9 THEN LET C$=" 7"
\n1020 IF R3<8 THEN LET C$=" \,,"
\n1050 IF R3<5 THEN LET C$=" O"
\n1100 LET W=-1
\n1105 IF A$=" *" THEN LET W=2
\n1110 IF A$=" *" AND B$=" *" THEN LET W=5
\n1120 IF A$=" O" AND B$=" O" AND C$=" %B" THEN LET W=10
\n1130 IF A$=" O" AND B$=" O" AND C$=" O" THEN LET W=10
\n1140 IF A$=" \,," AND B$=" \,," AND C$=" %B" THEN LET W=14
\n1150 IF A$=" \,," AND B$=" \,," AND C$=" \,," THEN LET W=14
\n1160 IF A$="\ .\:." AND B$="\ .\:." AND C$=" %B" THEN LET W=18
\n1170 IF A$="\ .\:." AND B$="\ .\:." AND C$="\ .\:." THEN LET W=18
\n1180 IF A$=" \.'" AND B$=" \.'" AND C$=" %B" THEN LET W=100
\n1190 IF A$=" \.'" AND B$=" \.'" AND C$=" \.'" THEN LET W=100
\n1200 IF A$=" %B" AND B$=" %B" AND C$=" %B" THEN LET W=100
\n1210 IF A$=" 7" AND B$=" 7" AND C$=" 7" THEN LET W=200
\n1300 PRINT AT 7,2;" ";TAB 2;A$;TAB 2;" "
\n1310 FOR P=1 TO 10
\n1311 NEXT P
\n1320 PRINT AT 7,4;" ";TAB 4;B$;TAB 4;" "
\n1330 FOR P=1 TO 10
\n1331 NEXT P
\n1340 PRINT AT 7,6;" ";TAB 6;C$;TAB 6;" "
\n1400 IF W>0 THEN PRINT AT 15,18;"***WINNER***";TAB 23;"$";W
\n1405 LET M=M+W
\n1410 PRINT AT 18,18;"PRESENT FUNDS:";TAB 21;"$";M;" "
\n1415 IF W=-1 THEN GOTO 1700
\n1420 FOR P=1 TO 10
\n1500 PRINT AT 13,3;" "
\n1510 PRINT AT 19,3;"$$$$$"
\n1520 PRINT AT 14,3;" "
\n1530 PRINT AT 20,2;"$$$$$$$"
\n1540 PRINT AT 15,3;" "
\n1550 PRINT AT 21,1;"$$$$$$$$$"
\n1560 FOR P=1 TO 50
\n1561 NEXT P
\n1570 PRINT AT 19,3;" ";TAB 2;"% % % % % % % % % ";TAB 1;" "
\n1580 FOR I=13 TO 15
\n1590 PRINT AT I,3;"$$$$$"
\n1600 NEXT I
\n1610 PRINT AT 16,23;" "
\n1700 IF M=0 THEN PRINT AT 15,16;"OUT OF MONEY";TAB 19;"GAME OVER"
\n1710 IF M=0 THEN STOP
\n1720 GOTO 400
\n1730 CLEAR
\n1740 SAVE "1030%0"
\n1750 RUN
