JACKPOT   "jackpot" :1;1;11 ,9 ;"-STOP THE TAPE-";10 ,9 ;" ";12 ,9 ;" ":20 df=019 ng=07 xa:144+g+8*f,a g:f Os=20:f=0:dy=0:n=0:a=1:b=3:c=5 5:7:1;2,0;" ";3,5;" ";4,5;" ";5,2;" ";6,3;" " {1;1;0,0;"++++++++++++++++++++++++++++++++";8,0;"++++++++++++++++++++++++++++++++" Ҥ10 ,1;"THIS PROGRAM SIMULATES A 'LAS VEGAS' STYLE SLOT MACHINE. YOU MAY BET 50 c FOR A STRAIGHT GAME OR 1 $, IN WHICH CASE ALSO DIAGONALS WIN." :1;18,7;1;" Press P to start " 620,0;"Written by G. TORREGROSSA  1983" '="p":5:7:1000 Gq=372:.3,q:q:.3,8:230 /1,3;3;"" 12,2;3;"" 33,1;3;"" Dd=419:d,1;3;" ":d 420,1;3;"" 621,0;3;"" $;11 ,1;3;7;">ɏ ɏ<" .;12 ,1;3;7;">ɏ ɏ<" 8is=20:a=1:b=3:c=5:z=0: 6;0;2,7;"*JACKPOT*" j5:n=0:f=0:o=(*10 )+5:p=(*10 )+5:q=(*10 )+5 M14,22;"Your money";16,24;s;16,28;"$"  automatismo 0x=(3+7*f):y=4:4600+f (5000+10 *a) (5000+10 *b) (5000+10 *c) 4;y+1,x;"" 2;y+2,x;" " %y=y+3:y>165200P y+1,x;"" y+2,x;"" %y=y+3:y>165200P 4;y+1,x;"" 1;y+2,x;" " %y=y+3:y>165200P 4;y+1,x;"" 4;y+2,x;"" %y=y+3:y>165200P >6;y+1,x;"";4;y+1,x+2;"" 6;y+2,x;" " %y=y+3:y>165200P &2;7;y+1,x;"*J*" &2;7;y+2,x;"POT" %y=y+3:y>165200P  5010 P5300+f*2 #a=a-1:a=0a=6  5500| #b=b-1:b=0b=6  5500| #c=c-1:c=0c=6  5500| |$f<2f=f+1:4500 z=07000X  n=n+1 n1;4,24;" 8 $ ":s=s+8:7000X vG1;1;4,24;" 5 $ ":s=s+5:7000X Xf16,24;s:s16,24;"P or Q";7,23;"(50c 1$)":7006^ Z5s.56,24;"PRESS P":7006^ ]H2,24;2;1;"GAME OVER":2.5 ,-30: ^L8,24;"TO PLAY";16,24;" ";16,24;s b,="p"s=s-.5:z=2:7050 l5="q"s1s=s-1:z=1:7050 v 7010b 2,24;" ";4,24;" ";6,24;" ";7,23;" ";8,24;" ";16,24;" ";16,24;s:3000 @A3,3,1,1,2,2,4,4 JK252,557,157,79O,39',35#,16,16 TM0,128,240,568,220,238,246,63? ^L28,62>,111o,95_,127,127,62>,28 hB0,0,0,0,1,3,7,15 rO24,60<,126~,255,255,255,255,255 |I0,0,0,0,128,192,224,240 D15,15,15,7,0,0,0,0 O255,255,219,153,24,60<,126~,255 I240,240,240,224,0,0,0,0 F0,3,228,248,28,6,3,1 K252,255,255,127,63?,31,7,0 O0,128,224,248,252,254,254,254 C0,0,1,3,7,7,15,15 P60<,255,255,255,255,255,255,255 M0,0,128,192,224,224,240,240 H0,0,3,15,31,63?,126~,125} O14,255,255,255,207,63?,255,255 G0,128,224,152,4,0,0,0 Q255,255,254,254,252,248,224,128 dnasnbc