900*POKA:CLS:CLEAR 910PRINT "Videopoker" 920PRINT " MPS 2007" 930DIM G$(12) 940DIM ST(51) 950DIM KW(4,1) 960DIM CH(4) 970G=20:REM GELD 980G$(0)="E01804020201" 990G$(1)="010101010101" 1000G$(2)="02020418E0" 1010G$(3)="FF0000000000" 1020G$(4)="00000000FF" 1030G$(5)="071820404080" 1040G$(6)="808080808080" 1050G$(7)="4040201807" 1060G$(8)="18BCBEFFBEBC18" 1070G$(9)="0E31418241310E" 1080G$(10)="08142241221408" 1090G$(11)="085C4A7F4A5C08" 1100RANDOMIZE 1110E=1 1120G=G-E 1130LOCATE 0,2:PRINT "+/- 0=Deal"; 1140GOSUB *KMON 1150A$=INKEY$ :IF A$=""THEN 1150 1160IF A$="+"THEN IF G>0 AND E<50THEN E=E+1:G=G-1 1170IF A$="-"AND E>0THEN E=E-1:G=G+1 1180IF A$="0"THEN 1200 1190GOTO 1140 1200A=0 1210GOSUB *KRND 1220CLS 1230GOSUB *KSORT 1240FOR X=0TO 4:GOSUB *KART:NEXT 1250GOSUB *KMON 1260A$=INKEY$ :IF A$=""THEN 1260 1270IF A$="0"THEN 1400 1280SWITCH A$ 1290CASE "1":CH(0)=1-CH(0) 1300CASE "2":CH(1)=1-CH(1) 1310CASE "3":CH(2)=1-CH(2) 1320CASE "4":CH(3)=1-CH(3) 1330CASE "5":CH(4)=1-CH(4) 1340ENDSWITCH 1350FOR X=0TO 4 1360GOSUB 2250 1370IF CH(X)=1THEN LOCATE X*4+1,3:PRINT "Ex"; 1380NEXT 1390GOTO 1260 1400FOR X=0TO 4 1410IF CH(X)=1THEN KW(X,0)=99 1420NEXT 1430GOSUB *KSORT 1440IF KX(0,0)=99THEN A=0:GOTO 1480 1450FOR X=0TO 4 1460IF KW(X,0)<99THEN A=X+1 1470NEXT 1480GOSUB *KRND:GOSUB *KSORT 1490FOR X=0TO 4:GOSUB *KART:NEXT 1500W0=KW(0,0):W1=KW(1,0):W2=KW(2,0):W3=KW(3,0):W4=KW(4,0) 1510F0=KW(0,1):F1=KW(1,1):F2=KW(2,1):F3=KW(3,1):F4=KW(4,1) 1520IF W0<>8 OR W1<>9 OR W2<>10 OR W3<>11 OR W4<>12 THEN 1540 1530G=G+E*100:LOCATE 2,3:PRINT "RoyalFlash!!!":GOTO 1870 1540IF W1-W0<>1THEN 1620 1550IF W2-W1<>1THEN 1620 1560IF W3-W2<>1THEN 1620 1570IF W4-W3<>1THEN 1620 1580IF F0=F1 AND F1=F2 AND F2=F3 AND F3=F4 THEN 1610 1590G=G+E*10:LOCATE 2,3:PRINT "Straight!!!" 1600GOTO 1870 1610G=G+E*50:LOCATE 2,3:PRINT "StraightFlush!!!":GOTO 1870 1620IF F0=F1 AND F1=F2 AND F2=F3 AND F3=F4 THEN 1640 1630GOTO 1650 1640G=G+E*15:LOCATE 2,3:PRINT "Flush!!!":GOTO 1870 1650IF W0=W1 AND W4=W3 THEN IF W1=W2 OR W3=W2 THEN 1670 1660GOTO 1680 1670G=G+E*20:LOCATE 2,3:PRINT "FullHouse!!!":GOTO1870 1680IF W1=W2 AND W2=W3 THEN 1700 1690GOTO 1730 1700IF W0=W1 AND W3=W4 THEN 1720 1710GOTO 1730 1720G=G+E*30:LOCATE 2,3:PRINT "4er!!!":GOTO 1870 1730A=0:FOR X=0TO 2 1740IF KW(X,0)=KW(X+1,0) AND KW(X+1,0)=KW(X+2,0)THEN A=1 1750 NEXT 1760IF A=1THEN G=G+E*6:LOCATE 2,3:PRINT "3er!!!":GOTO 1870 1770IF W0=W1 AND W2=W3 THEN 1810 1780IF W0=W1 AND W3=W4 THEN 1810 1790IF W1=W2 AND W3=W4 THEN 1810 1800GOTO 1820 1810G=G+E*4:LOCATE 2,3:PRINT "2 Paar!!!":GOTO 1870 1820A=0:FOR X=0TO 3 1830IF KW(X,0)=KW(X+1,0)THEN A=1 1840NEXT 1850IF A=1THEN G=G+E*2:LOCATE 2,3:PRINT "Paar!!!":GOTO 1870 1860LOCATE 2,3:PRINT "Nix" 1870ERASE ST:DIM ST(51) 1880FOR X=0TO 4:CH(X)=0:NEXT 1890IF INKEY$ =""THEN 1870 1900CLS:GOTO 1120 1910*KRND 1920IF A>4THEN 1990 1930R=RND 13:F=RND 4 1940R=R-1:F=F-1 1950Q=F*13+R 1960IF ST(Q)=1THEN 1930 1970ST(Q)=1:KW(A,0)=R:KW(A,1)=F 1980A=A+1:IF A<5THEN 1930 1990RETURN 2000*KSORT 2010Q=0 2020FOR A=1TO 4 2030IF KW(A,0)<KW(A-1,0)THEN 2040R=KW(A-1,0):F=KW(A-1,1) 2050KW(A-1,0)=KW(A,0):KW(A-1,1)=KW(A,1) 2060KW(A,0)=R:KW(A,1)=F 2070Q=1 2080ENDIF 2090NEXT 2100IF Q=1THEN 2010 2110RETURN 2120*KART 2130GCURSOR (X*24,7):GPRINT G$(0);G$(1);G$(1);G$(2); 2140GCURSOR (X*24,15):GPRINT G$(3); 2150GCURSOR (X*24+18,15):GPRINT G$(4); 2160GCURSOR (X*24,23):GPRINT G$(3); 2170GCURSOR (X*24+18,23):GPRINT G$(4); 2180GCURSOR (X*24+8,12):GPRINT G$(KW(X,1)+8); 2190LOCATE X*4+1,2 2200IF KW(X,0)<9THEN PRINT USING "##";KW(X,0)+2; 2210IF KW(X,0)=9THEN PRINT " B"; 2220IF KW(X,0)=10THEN PRINT " D"; 2230IF KW(X,0)=11THEN PRINT " K"; 2240IF KW(X,0)=12THEN PRINT " A"; 2250GCURSOR (X*24,31):GPRINT G$(5);G$(6);G$(6);G$(7); 2260RETURN 2270*KMON 2280LOCATE 20,1:PRINT "Geld:";:PRINT USING "####";G; 2290LOCATE 20,2:PRINT "Einsatz:";:PRINT USING "##";E; 2300RETURN
Generated by (c) Sharp PC-E500/E500S Notepad 1.00.3