| ONE ARM BANDET GAME,  COPYRIGHT 1990, BY DAVID DENKER |
z''=info:z'=int((z''-int(z''/10000)*10000)/1000):Z'=Z'*2
bc3:cls:DIGL6,DIGR0,XOFF,BC3,CLS,S'=0
IF Z'<>2}}Z'=0:IF Z'=2}900
dsp f5"                         JUST FOR FUN ONE ARM BANDIT!
"n
#900
DSP f0"             ήΫέ              "f10" $ $ $"f0"  = $14,000"
dsp f4"           $5 PER PULL
      "f0b6"ΙΝΝΝΝΝΝΟΝΟΝΝΝΝΝΝ»"b3f10"        $"f4" "f10" $"f0"  = $1,700
      "b6"Ί * * * * * * * Ί"b3f10"        $ $"f0"    = $250"
dsp f5"             ΙΝΝΝΝΝΝΝΝΝΝΝΝ»"f0"
      "b6"ΗΔΔΔΔΔΔΔΔΔΔΔΔΔΔΔΆ"b3" ²     "f4"   "f0"  = $7,000"
dsp f5"           Ί"f1"  STANDING"f5"  Ί"f0"
      "b6"Ί έ"f10" $"f4" "f10" $"f4" "f10" $"f0"   Ί"b3" Ί"
dsp f4"      "f10" $"f4"  "f0" = $1,300          "f5" Ί"f0" $       "f5"   Ί
      "f0b6"Ί  ΙΝ» ΙΝ» ΙΝ»  Ί"b3" Ί     "f4"   "f0"   = $150"
dsp f5"             ΘΝΝΝΝΝΝΝΝΝΝΝΝΌ"f0"
      "b6"Ί  Ί Ί Ί Ί Ί Ί  Ί"b3" Ί      THREE MATCHING     = $200
      "b6"Ί  ΘΝΌ ΘΝΌ ΘΝΌ  Ί"b3" Ί      TWO MATCHING AND"f10" $"f0" = $100
      "b6"Ί  "f4d4f0"  ΪΔΔΔΏ  "f4d3f0"  Μ"b3"ΝΌ         (any order count)
      "b6"Ί    ΤΝΝΝΎ    Ί"b3f5"        HIT ESC TO QUIT
      "f0b6"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ"b3f1"        HIT ANY OTHER KEY TO PULL HANDLE"
DSP B7f14r(8-Z')c10d1c14d1c18d1F0B3
#910
SC:CC15:BC4:IF SGN S'=-1}911:CC14:BC2:#911:ROW(6-Z'):COL60:DSP (S'):RC
I'=KYIN:IF I'=27}Q:S'=S'-5
cc0:DSP r(5-Z')c24" "r(6-Z')c24"²"c24" "r(7-Z')c24"²":TONE6
DSP c24" "r(8-Z')c24"ά"
SC:bc7:DSP r(8-Z')c10"°":TONE8:DSP c14"°"c18"°":TONE11:RC
DSP c24"Ί"r(7-Z')c24"²":TONE14:DSP c24"Ί"r(6-Z')c24"²"c24"Ί"r(5-Z')c24"²"
TONE16:TONE15:TONE13:CALL920:TONE40:CALL921:CALL923:A'=B':ROW(8-Z'):COL10
SC:BC7:CC(C'):DSP d(B'):RC
TONE12:TONE11:TONE9:CALL920:TONE38:CALL921:CALL923:A''=B':ROW(8-Z'):COL14
SC:BC7:CC(C'):DSP d(B'):RC
TONE8:TONE7:TONE5:CALL920:TONE36:CALL922:CALL923:A'''=B':ROW(8-Z'):COL18
SC:BC7:CC(C'):DSP d(B'):RC
IF A'=A''}901:IF A'=A'''}901:IF A''<>A'''}910:GOTO902
#901
IF A''=A'''}905
#902
IF A'*A''=16}903:IF A''*A'''=16}903:IF A'*A'''=16}903
IF A'+A''=72}904:IF A''+A'''=72}904:IF A'+A'''=72}904
IF A'=36}908:IF A''=36}908:IF A'''=36}908:GOTO910
#903
IF A'=36}912:IF A''=36}912:IF A'''=36}912
S'=S'+150:X''=6:CALL930:CALL933:GOTO910
#904
IF A'=4}909:IF A''=4}909:IF A'''=4}909
S'=S'+250:X''=3:CALL930:CALL933:GOTO910
#905
IF A'=36}906:IF A'=4}907:S'=S'+200:X''=7:CALL930:CALL933:GOTO910
#906
S'=S'+14000:X''=1:CALL930:CALL930:CALL930:CALL933:CALL960:GOTO910
#907
S'=S'+7000:X''=4:CALL930:CALL930:CALL933:GOTO910
#908
S'=S'+100:X''=8:CALL930:CALL933:GOTO910
#909
S'=S'+1700:X''=2:CALL930:CALL933:GOTO910
#912
S'=S'+1300:X''=5:CALL930:CALL933:GOTO910
#920
X'=CINT(RAND*.272-.499):RET
#921
B'=DATA X'{3,4,5,6,229,1,2,30,7,35,45,61,240,3,5,6,229,1,2,30,7,35,45,61,
240,36,229}:RET
#922
B'=DATA X'{3,4,5,6,229,1,2,30,7,35,45,61,240,3,5,6,229,1,2,30,7,35,45,61,
240,36,4}:RET
#923
C'=DATA X'{4,4,0,0,4,14,0,6,0,0,0,0,0,4,0,0,4,14,0,6,0,0,0,0,0,10,4}:RET
#930
BEEP:SC:CC4:ROW(X''+1-Z'):COL29:DSP d16:CALL932:CALL950:CALL950:RC:CALL940
CALL940:CALL940:CALL940:CALL934:RET
#932
SC:BC6:ROW(4-Z'):COL8:CC12:DSP d15" ":CC14:DSP d15" ":CC10:DSP d15" "
CC12:DSP d15" ":CC10:DSP d15" ":CC14:DSP d15" ":CC12:DSP d15:RC:RET
#933
WAIT2:DSP c29r(X''+1-Z')" ":GOTO935
#934
SC:ROW(4-Z'):COL8:DSP B6F0"* * * * * * *":RC:RET
#935
DSP B3F0r(2-Z')c13"ήΫέ":RET
#936
IF X''<>1}R:IF int((z''-int(z''/1000)*1000)/100)=0}937
DSP c13r(2-Z')B3F12"ήΫέ":RET
#937
DSP c13r(2-Z')"><":RET
#940
SC:CALL936:cc15:bc6:DSP r(11-Z')c13"o8o":TONE0
DSP c13F0"Ν"F15"o8"r(12-Z')c13"o8o":TONE0:CALL935
DSP F15B6r(11-Z')c13"8o"F0"Ν"r(12-Z')c13"Ν"F15"o8":TONE0
DSP r(11-Z')c13"o"F0"Ν"F15"o"r(12-Z')c13"8o"F0"Ν":TONE0:CALL936
DSP F0B6r(11-Z')c13"ΝΝΝ"r(12-Z')c13F15"o"F0"Ν"F15"o":TONE0
DSP r(12-Z')c13F0"ΝΝΝ":RC:RET
#950
TONE56:TONE58:TONE59:TONE63:TONE63:TONE61:TONE63:TONE63:RET
#960:IF Z'=2}R
DSP R18F4C7;  YOU MAY WANT TO HIT THE PRINT SCREEN KEY TO PROVE TO YOUR
        FRIENDS YOU HIT THE BIG ONE.  IT DOES NOT HAPPEN VERY OFTEN!!;
WAIT20:DSP R18C0S160:RET