1 PROGRAM "FEJ_VAGY_IRAS"
    2 REM Keszitette:Vicsotka Gyula
    3 RANDOMIZE 
    4 WHEN EXCEPTIONUSEHIBA
    5   LET KERT=0
    6   TEXT 40
    7   PRINT AT10,10:"KIS TüRELMET KEREK !"
    8   SET VIDEOX12:SET VIDEOY15
    9   SET VIDEOMODE1:SET VIDEOCOLOR0
   10   FOR I=10TO17
   11     OPEN #I:"VIDEO:"
   12     SET #I:PALETTEBLACK,YELLOW
   13   NEXT 
   14   PLOT #10:132,0;252,0;252,16;132,16;132,0
   15   PLOT #11:192,50,ELLIPSE60,20,PAINT
   16   PLOT #11:192,62,ELLIPSE60,20,
   17   SET #11:INK0
   18   PLOT #11:192,50,ELLIPSE20,10,PAINT
   19   PLOT #12:192,134,ELLIPSE60,40,PAINT
   20   PLOT #12:192,146,ELLIPSE60,40,
   21   SET #12:INK0
   22   PLOT #12:192,134,ELLIPSE30,20,PAINT
   23   SET #12:INK1
   24   PLOT #12:192,134,ELLIPSE15,8,PAINT
   25   PLOT #13:192,270,ELLIPSE60,60,
   26   PLOT #13:192,270,ELLIPSE50,50,
   27   PLOT #13:192,325,PAINT
   28   PLOT #13:192,270,ELLIPSE20,24,
   29   PLOT #13:216,238;192,246;168,238
   30   PLOT #13:199,275
   31   PLOT #13:185,275
   32   PLOT #13:185,252;199,252
   33   PLOT #13:176,280;207,280
   34   PLOT #13:192,285,PAINT
   35   PLOT #13:214,270;214,272
   36   PLOT #13:170,272;170,270
   37   PLOT #13:192,270;192,262
   38   PLOT #14:192,270,ELLIPSE60,60,
   39   PLOT #14:192,270,ELLIPSE50,50,
   40   PLOT #14:192,325,PAINT
   41   PLOT #14:185,295;199,295;199,240;185,240;185,280;175,260;165,264;185,295
   42   PLOT #14:192,270,PAINT
   43   PLOT #15:192,402,ELLIPSE60,40,PAINT
   44   PLOT #15:192,390,ELLIPSE60,40,
   45   SET #15:INK0
   46   PLOT #15:192,402,ELLIPSE40,30,PAINT
   47   SET #15:INK1
   48   PLOT #15:192,380;192,420;175,410
   49   PLOT #16:192,490,ELLIPSE60,20,PAINT
   50   PLOT #16:192,478,ELLIPSE60,20,
   51   SET #16:INK0
   52   PLOT #16:192,490,ELLIPSE40,10,PAINT
   53   PLOT #17:132,539;252,539;252,523;132,523;132,539
   54   CLEAR SCREEN
   55   SOUND PITCH40,DURATION30,
   56   INPUT PROMPT"Mennyi penzt kersz ? ",AT10,2:TOKE
   57   INPUT PROMPT"Milyen alapon jatszunk ? ",AT15,0:ALAP
   58   IF ALAP>TOKETHEN 54
   59   LET KERT=KERT+TOKE
   60   SET VIDEOX40:SET VIDEOY1
   61   SET VIDEOMODE0
   62   OPEN #1:"video:"
   63   OPEN #2:"video:"
   64   OPEN #3:"video:"
   65   SET #1:CURSORCHARACTER32
   66   SET #2:CURSORCHARACTER32
   67   SET #3:CURSORCHARACTER32
   68   CLEAR #1
   69   PRINT #1,AT1,1:"Penzed:";TOKE,"Alap:";ALAP;
   70   DISPLAY #1:AT19FROM1TO1
   71   DISPLAY #3:AT18FROM1TO1
   72   SOUND PITCH40,DURATION15,
   73   PRINT #3,AT1,13:"Kilepes <ESC>";
   74   PRINT #2,AT1,1:"Mire teszel ? (f,i)";
   75   DISPLAY #2:AT21FROM1TO1
   76   DO 
   77     GET A$
   78   LOOP WHILEA$=""ORA$<>"i"ANDA$<>"f"ANDA$<>CHR$(27)
   79   IF A$=CHR$(27)THEN 120
   80   SOUND PITCH40,DURATION15,
   81   IF A$="f"THENLET TET=13
   82   IF A$="i"THENLET TET=14
   83   LET N=RND(2)+13
   84   FOR I=10TO17
   85     DISPLAY #I:AT1FROM1TO15
   86     FOR T=0TO50
   87     NEXT 
   88   NEXT 
   89   FOR I=17TO15STEP-1
   90     DISPLAY #I:AT1FROM1TO15
   91     FOR T=0TO50
   92     NEXT 
   93   NEXT 
   94   DISPLAY #N:AT1FROM1TO15
   95   IF N=TETTHEN
   96     LET TOKE=TOKE+ALAP
   97     ENVELOPE NUMBER1;6,63,63,40;-3,-63,-63,40
   98     SOUND PITCH40,DURATION80,ENVELOPE1
   99   END IF 
  100   IF N<>TETTHEN
  101     LET TOKE=TOKE-ALAP
  102     ENVELOPE NUMBER2;-10,63,63,40;6,-63,-63,40
  103     SOUND PITCH40,DURATION80,ENVELOPE2
  104   END IF 
  105   IF TOKE>=ALAPTHEN 68
  106   IF TOKE>0THENLET ALAP=TOKE
  107   PRINT #2,AT1,1:"Elfogyott a penzed! Jatszol meg? (i,n)";
  108   DO 
  109     GET A$
  110   LOOP WHILEA$=""ORA$<>"i"ANDA$<>"n"
  111   IF A$="n"THEN 117
  112   FOR I=10TO17
  113     CLOSE #I
  114   NEXT 
  115   CLOSE #1:CLOSE #2:CLOSE #3
  116   GOTO  6
  117   CLEAR #1
  118   CLEAR #2
  119   CLEAR #3
  120   IF KERT<=TOKETHENPRINT #1,AT1,1:"Nyertel:";TOKE-KERT;"forintot";
  121   IF KERT>TOKETHENPRINT #1,AT1,1:"Vesztettel:";KERT-TOKE;"forintot !";
  122   PRINT #2,AT1,1:"BASIC-be (v),Mas jatekos (u)   ";
  123   LET C=10
  124   DO 
  125     GET A$
  126     DISPLAY #C:AT1FROM1TO15
  127     LET C=C+1
  128     IF C=18THENLET C=10
  129     FOR I=0TO40
  130     NEXT 
  131   LOOP WHILEA$=""ORA$<>"v"ANDA$<>"u"
  132   IF A$="u"THENRUN 
  133   EXT "basic"
  134 END WHEN 
  135 HANDLER HIBA
  136   RETRY 
  137 END HANDLER