; A0A1:"LOADING M/L DATA":"ONE ARMED.MLDATA",8,1D100J:P(:o2: SLOT MACHINE V.6<: RAY VANCE JULY 1984F: COMMODE 64P:Z:d53281,1:53280,3: (147)(28) n53272,((53272)240)12:550:380 x: MAIN PROGRAM LOOPa 198,0:2)"WAGER $"WAGER;20)"POCKET $"POCKET;(LEFT);" ";l (UP) WAGER$:WAGER$""160 WAGER$"Q"510 WAGER(WAGER$):WAGER0HWWAGER:200 WAGERHW:WAGER0380 7)"WAGER $"WAGER;20)"POCKET $"POCKET;(LEFT);" ";Q WAGER5LFT$;:"$5 LIMIT";:K12000::HW5:380w CASHCASHWAGER:ROLL$"":PAYOFF0 (DOWN$,13)23)(REVERSE)(BLUE)(D$,1,WAGER) (DOWNN$,11)22)(REVERSE)(BLUE)" " 22)(REVERSE)(BLUE)" "# (DOWN$,20)7)(" "(CASH),2);V I13:R((1)201):ROLL$ROLL$(R$(I),R,1) R(I)((ROLL$,I,1))::1050: PRINT SPRITES "X08:(W$,X31,3)ROLL$PAYOFFPAYOFF(X):310 ,:(ROLL$,2)"55"PAYOFF3 6PAYOFF851200: JACKPOT) @POCKETPOCKETPAYOFFWAGER:PAYOFF1380X J(DOWN$,11)22)(REVERSE)(BLUE)"YOU WIN"c T22); ^P$((PAYOFFWAGER),2):SP(6(P$))2.5:SP)"$"P$ h54277,34:54278,244:54273,20:F18:54276,17 rT110:54273,F10:::T1100::54276,0:13304 |(DOWN$,13)23)(REVERSE)(BLUE)""X (DOWN$,20)7)(" "(CASH),2)} :(DOWN$,2,3)5);:CASH10140 POCKETPOCKETCASH:POCKET100CASHPOCKET:POCKET0:CASH10380 POCKET99CASH99:POCKETPOCKET99:380&54277,34:54278,244:54273,20:F811:54276,33WT110:54273,F10:::T1100::54276,32p(DOWN$,24):V21,07)"SAVE THE $"((CASH),2)" FOR LUNCH. ";:(UP)X12000::7)" ";:(UP)198,0:7)"AGAIN?";:198,0A$:A$""490%A$"N"100Q53272,((53272)240)5:"":53269,0:W:]:} INITALIZE PROGRAM VALUES&CASH99:R$(1)"12333334445555555666":R$(2)"11122234444445555555"0R$(3)"12223333344444446666":W$"111222221333331444441556552"7:I08:PAYOFF(I)::85,18,18,14,14,10,10,5,5gDC(1)12:C(2)12:C(3)4:C(4)8:C(5)2:C(6)7NI16:S(I)223I::D$""XDOWN$""bLFT$""lRED28:LEFT CRSR157:CLEAR SCREEN147:UP CRSR145:REVERSE18:BLUE31v::CX04:53290X,12:2043X,230:zX53254:X,220:X1,174:X2,210:X3,165:X4,230X5,165:X6,200:X7,174:X8,240:X9,174V53248:V21,0:2040,228:2041,227:2042,226V37,0:V38,8:V28,248:C04:V42C,7:*V39,2:V40,8:V41,4PV0,133:V1,80:V2,172:V3,80wV4,211:V5,80:V21,7:54296,15}:: DRAW SCREEN53280,0:" "" ONE ARMED BANDIT "& "  "U"    "   *"   4"   >"  PAY OFFS "DH"  PER DOLLAR  "xR"  #!#!#! 85  "\"  %&%&%& 18  "f"  %&%&#! 18  "p"  ()()() 14  "Jz"  ()()#! 14  ""  *+*+*+ 10    ""  ,-,-/: 5    ""  ,-,-%& 5   "+"  ,-,-^_ 3  "["    ""    ""    ""    "'"   "Y" Ε ""   ";:: "SPIN" REELS54277,0:54278,0:54272,255:54273,20 $54284,0:54285,0:54279,255:54280,207.54291,0:54292,0:54286,255:54287,20N8I132:54290,129tBI2154283,129:I1154276,129LJ1(1)61:I10J1R(1)VJ2(1)61:I20J2R(2)`J3(1)61:I30J3R(3)jZ130::54276,8:54283,8:54290,8t2040,S(J1):V39,C(J1)/~2041,S(J2):V40,C(J2)K2042,S(J3):V41,C(J3)S:Y:_:m JACKPOTJ$(0)" JACKPOT "J$(1)" JACKPOT "J$(2)" JACKPOT "'J$(3)" JACKPOT "]54277,0:54278,255:54272,255:54273,0:54276,17X140:54273,X2:(198)01300DOWN$J$(X3);:54276,0:(UP):6)" PRESS ANY KEY TO GO ON "; X11000::125054276,0::(:2 DROP THE COINS=<53273,10:54276,17:X0PAYYOFF1qF54273,(X7)10:53269,2(WAGER3)1:I15010PJ15:53253J2,(53253J2)10:J,I:53269,7ZJ15:53253J2,(53253J2)50:JdX:54276,0: