PRGM_V75
:FNOFF
:PLOTTSOFF
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:LBL A
:CLRHOME
:DISP "     V75",---------------","1:SPELA","2:REKORD","3:HAMTA","4:AVSLUTA",""
:INPUT "1-4:",A
:CLRHOME
:IF A=>5
:GOTO A
:IF A<=0
:GOTO A
:IF A=1
:THEN
:20->M
:GOTO B
:END
:IF A=2
:GOTO C
:IF A=3
:GOTO B
:IF A=4 
:STOP
:LBL B
:CLRDRAW
:CLRHOME
:RANDINT(3,5->B
:RANDINT(0,10->C
:IF A=3
:THEN
:IF M<=20
:20->M
:END
:DISP "PENGAR:",M,"","VALJ KUSE 1-3.","(0=AVSLUTA)"
:INPUT "1-3:",S
:CLRHOME
:IF S=>3.1
:GOTO D
:IF S<=-1
:GOTO D
:IF S=0
:GOTO V
:LBL I
:B+(C/10)->Z
:FIX 1
:DISP "ODDS:",Z
:FLOAT
:DISP "PENGAR:",M,""
:INPUT "SATSNING:",P
:CLRHOME
:IF P>M
:GOTO I
:IF P<1
:GOTO I
:DISP "     KLARA"
:FOR(A,1,35
:END
:DISP "    FARDIGA"
:FOR(A,1,35
:END
:DISP "      GA!"
:FOR(A,1,35
:END
:CLRHOME
:CLRDRAW
***Denna bild är inte nödvändig***

:LINE(63,19,60,19
:LINE(62,21,59,21
:LINE(61,23,58,23
:LINE(60,25,57,25
:LINE(59,27,55,27
:PT-ON(54,28
:PT-ON(55,29
:LINE(56,30,53,30
:PT-ON(52,29
:PT-ON(51,28
:LINE(50,27,47,27
:LINE(46,26,43,26
:PT-ON(42,25
:PT-ON(41,24
:PT-ON(41,23
:PT-ON(42,22
:LINE(43,21,46,21 
:PT-ON(47,20
:LINE(48,19,50,19
:PT-ON(51,20
:PT-ON(52,21

***Härifrån är det nödvändigt igen***

:VERTICAL 25
:LINE(28,38,28,34 
:LINE(27,34,29,34
:PT-ON(27,37
:LINE(29,22,27,22 
:LINE(27,23,29,25 
:LINE(28,26,27,26
:LINE(27,10,28,10 
:PT-ON(29,11
:PT-ON(28,12
:PT-ON(29,13
:LINE(27,14,28,14 
:1->A
:1->B
:1->C
:IF S=1
:36->L
:IF S=2
:24->L
:IF S=3
:12->L
:LINE(32,L,38,L
:LINE(33,L+1,33,L-1
:LINE(34,L+2,34,L-2
:LBL Q
:A+RAND*RANDINT(1,3->A
:B+RAND*RANDINT(1,3->B
:C+RAND*RANDINT(1,3->C
:PT-ON(A,36
:PT-ON(B,24
:PT-ON(C,12
:IF A=>24
:GOTO 1
:IF B=>24
:GOTO 2
:IF C=>24
:GOTO 3
:GOTO Q
:LBL 1
:DISP "KUSE NR 1 VANN!"
:1->B
:GOTO L
:LBL 2
:DISP "KUSE NR 2 VANN!"
:2->B
:GOTO L
:LBL 3
:DISP "KUSE NR 3 VANN!"
:3->B
:LBL L
:IF S<>B                          ***Inte lika med***
:GOTO S
:DISP "DU VANN       KR",INT (PZ)
:INT (PZ+M-P)->M
:PAUSE
:IF M>@
:M->@                          ***Theta***
:GOTO B
:LBL S
:DISP "DU FORLORADE  KR",INT (PZ)
:INT (M-P)->M
:PAUSE
:IF M=0
:GOTO T
:GOTO B
:LBL T
:CLRHOME
:DISP "   DU AR PANK","","     G A M E","     O V E R"
:PAUSE
:GOTO A
:LBL V
:DISP "DU FICK:",M
:LBL C
:DISP "REKORDET AR:",@
:PAUSE
:IF A=2
:GOTO A
:CLRHOME