100 PROGRAM "HUSZON1.BAS"
  110 ! 93-05-22 Kbkm.- RLS
  120 TEXT 40
  130 SET STATUSOFF
  140 CALL HFONT
  150 NUMERIC E,DN,GN,JAT,JN,JHN,L,NY,S,SUML,SUL
  160 STRING *10L$
  170 !**** JΣTæK ISMERTETæS ****
  180 PRINT AT3,8:"ISMERED A JΣTæKOT i/n ?"
  190 GET V$
  200 IF V$=""THEN 190
  210 IF V$="i"THEN 370
  220 IF V$<>"i"THENCALL INFO
  230 !**** JELüLæSEK  *****
  240 !*  E   =k#rtyaörtök 
  250 !*  DN  =dÆntetlen
  260 !*  GN  =göp nyert
  270 !*  JAT =j#tök 
  280 !*  JN  =j#tökos nyert
  290 !*  JHN =j#tökos 21-el nyert
  300 !*  L   =lap     
  310 !*  NY  =nyeré   
  320 !*  S   =sor    
  330 !*  SUML=a j#tökos Æsszlapörtöke
  340 !*  SUL =a göp Æsszlapörtöke
  350 !*  L$  =lapnöv  
  360 ! **** NULLΣZΣS ****
  370 LET DN,GN,JN,JHN,JAT=0
  380 !**** JΣTæK INDUL  *****
  390 CLEAR SCREEN
  400 SET KEYCLICKOFF
  410 PRINT AT3,8:JAT+1;". HUSZONEGYEZæS"
  420 !*** A J#TæKOS LAPJAI ****     
  430 LET L,S,SUML,SUL=0:LET JAT=JAT+1
  440 PRINT AT5,5:"LAPKæRæS BOTKORMΣNY EL§RE"
  450 PRINT AT7,5:"HA ELæG NYOMD MEG A TƒZGOMBOT !"
  460 LET A=JOY(1)
  470 IF A=0THEN 460
  480 IF A=16ANDSUML>15THENGOTO  530
  490 CALL KER
  500 PRINT AT9+S,1:L$;E
  510 LET SUML=SUML+E:LET S=S+1
  520 GOTO  460
  530 PRINT AT9+S,1:"üSSZæRT.=";SUML
  540 !*** A GöP LAPJAI ********     
  550 LET L,S,SUL=0
  560 IF SUL<15THENCALL KER
  570 IF SUL>15THENGOTO  610
  580 PRINT AT9+S,18:L$;E
  590 LET SUL=SUL+E:LET S=S+1
  600 GOTO  560
  610 PRINT AT9+S,18:"üSSZæRT.=";SUL
  620 PRINT 
  630 ! *** æRTæKELæS ***
  640 LET NY=0
  650 IF SUML>21ANDSUL<=21THENLET NY=2:PRINT AT20,10:"A GæP NYERT !":GOTO  700
  660 IF SUML<=21ANDSUL>21THENPRINT AT20,14:"NYERTæL !":GOTO  700
  670 IF SUML>21ANDSUL>21THENLET NY=1:PRINT AT20,8:"D ü N T E T L E N  !":GOTO  700
  680 IF SUML>SULTHENPRINT AT20,13:"NYERTæL !":GOTO  700
  690 IF SUML<=SULTHENPRINT AT20,10:"A GæP NYERT !":LET NY=2
  700 IF NY=0ANDSUML=21THENLET JHN=JHN+1:CALL ROAD:GOTO  740
  710 IF NY=0THENLET JN=JN+1:CALL BRAVO
  720 IF NY=1THENLET DN=DN+1:CALL SEBAJ
  730 IF NY=2THENLET GN=GN+1:CALL BIG.BEN
  740 PRINT 
  750 PRINT AT22,5:"TOVΣBB=BOTK.EL§RE  VæGE=TƒZGOMB"
  760 LET A=JOY(1)
  770 IF A=0THEN 760
  780 IF A=16THENGOTO  800
  790 GOTO  390
  800 CALL VEGEREDMENY
  810 CALL VEGE
  820 SET STATUSON
  830 SET KEYCLICKON:CLEAR FONT
  840 END 
  850 DEF KER
  860   RANDOMIZE 
  870   LET L=RND(8)
  880   IF SUML=11ANDL=7THENGOTO  860!** one #sz!**
  890   IF SUL=11ANDL=7THENGOTO  860!** one #sz!**
  900   IF L=0THENLET L$="ALSä      ":LET E=2
  910   IF L=1THENLET L$="FELS§     ":LET E=3
  920   IF L=2THENLET L$="KIRΣLY    ":LET E=4
  930   IF L=3THENLET L$="HETES     ":LET E=7
  940   IF L=4THENLET L$="NYOLCAS   ":LET E=8
  950   IF L=5THENLET L$="KILENCES  ":LET E=9
  960   IF L=6THENLET L$="TÅZES    ":LET E=10
  970   IF L=7THENLET L$="ΣSZ      ":LET E=11
  980 END DEF 
  990 DEF VEGE
 1000   CLEAR SCREEN
 1010   PRINT #102,AT6,1:;
 1020   PRINT #102:"                 =="
 1030   PRINT #102:"   ===  === =======  =======  ======="
 1040   PRINT #102:"   ===  === ===  =  ===       ==="
 1050   PRINT #102:"   ===  === ===     ===       ==="
 1060   PRINT #102:"   ===  === =====   ===  ==== ====="
 1070   PRINT #102:"   === ===  ===     ===   === ==="
 1080   PRINT #102:"   ======   ===     ===  ===  ==="
 1090   PRINT #102:"   =====    =======  ======   ======="
 1100   WAIT 6
 1110   PRINT AT24,1:;
 1120   TEXT 
 1130 END DEF 
 1140 DEF COWBOY
 1150   ENVELOPE NUMBER1;0,63,63,1;0,-10,-10,2;0,-40,-40,10
 1160   RESTORE  1220
 1170   DO 
 1180     READ M,H
 1190     IF M=-1THENEXIT DO
 1200     SOUND ENVELOPE1,PITCHM+12,DURATIONH
 1210   LOOP 
 1220   DATA 37,5,39,5,41,10,44,10
 1230   DATA 44,10,46,10,44,10,41,10
 1240   DATA 37,10,37,5,39,5,41,10
 1250   DATA 41,10,39,10,37,10,39,30
 1260   DATA 39,5,41,10,44,10,44,15
 1270   DATA 46,5,44,10,41,10,37,10
 1280   DATA 37,5,39,5,41,10,41,10
 1290   DATA 39,10,39,10,37,30
 1300   DATA 42,20,42,20,46,10,46,20
 1310   DATA 46,10,44,10,44,10,41,10
 1320   DATA 37,10,39,30
 1330   DATA 37,5,39,5,41,10,44,10
 1340   DATA 44,10,46,10,44,10,41,10
 1350   DATA 37,15,39,5,41,10,41,10
 1360   DATA 39,10,39,10,37,30
 1370   DATA -1,-1
 1380 END DEF 
 1390 END DEF 
 1400 DEF BRAVO
 1410   ENVELOPE NUMBER1;0,63,63,4;0,-10,-10,14;0,-40,-40,40
 1420   RESTORE  1490
 1430   DO 
 1440     READ M,H
 1450     IF M=-1THENEXIT DO
 1460     SOUND ENVELOPE1,PITCHM,DURATIONH
 1470   LOOP 
 1480   WAIT 3
 1490   DATA 58,10,58,10,58,10,61,10,60,20,58,10,60,10,56,20
 1500   DATA 54,10,54,10,54,10,58,10,56,20,58,10,53,20
 1510   DATA 51,10,51,10,51,10,54,10,53,20,51,10,53,10,49,20
 1520   DATA 51,10,51,10,51,10,53,10,49,20,48,10,46,40
 1530   DATA -1,-1
 1540 END DEF 
 1550 DEF BIG.BEN
 1560   ENVELOPE NUMBER1;0,63,63,1;0,-10,-10,2;0,-40,-40,40
 1570   RESTORE  1640
 1580   DO 
 1590     READ M,H
 1600     IF M=-1THENEXIT DO
 1610     SOUND ENVELOPE1,PITCHM,DURATIONH*1.6
 1620   LOOP 
 1630   WAIT 3
 1640   DATA 46,10,44,10,42,10,37,40
 1650   DATA 42,10,46,10,44,10,37,40
 1660   DATA -1,-1
 1670 END DEF 
 1680 DEF VEGEREDMENY
 1690   CLEAR SCREEN
 1700   PRINT AT4,5:"V æ G E R E D M æ N Y :"
 1710   PRINT AT8,5,USING"£££  JΣTæK VOLT.":JAT
 1720   PRINT AT10,5,USING"£££  ALKALOMMAL HUSZONEGGYEL,":JHN
 1730   PRINT AT12,5,USING"£££  ESETBEN KEVESEBBEL NYERTæL.":JN
 1740   PRINT AT14,5,USING"£££  ALKALOMMAL  A GæP NYERT æS":GN
 1750   PRINT AT16,5,USING"£££  ALKALOMMAL VOLT DüNTETLEN.":DN
 1760   IF JHN+JN>GNTHENPRINT AT19,7:"TE VAGY AZ ABSZOLåT GY§ZTES !"
 1770   IF JHN+JN>GNTHENPRINT AT20,7:"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
 1780   IF JHN+JN<GNTHENPRINT AT19,5:"A  G æ P  AZ ABSZOLåT GY§ZTES !"
 1790   IF JHN+JN<GNTHENPRINT AT20,5:"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
 1800   IF JHN+JN=GNTHENPRINT AT19,1:"D ü N T E T L E N   E R E D M æ N Y  !"
 1810   IF JHN+JN=GNTHENPRINT AT20,1:"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
 1820   PRINT AT23,10:"KüSZüNüM A JΣTæKOT !"
 1830   WAIT 4
 1840   CALL COWBOY
 1850 END DEF 
 1860 DEF ROAD
 1870   PRINT AT20,8:"21-EL NYERTæL ! "
 1880   ENVELOPE NUMBER1;0,63,63,1;0,-10,-10,2;0,-40,-40,10
 1890   RESTORE  1970
 1900   DO 
 1910     READ A,B
 1920     IF A=-1THENEXIT DO
 1930     SOUND ENVELOPE1,PITCHA,DURATIONB,SOURCE0
 1940     SOUND ENVELOPE1,PITCHA+12,DURATIONB,SOURCE1
 1950   LOOP 
 1960   WAIT 4
 1970   DATA 44,10,44,10,44,10,48,10,51,10,51,10,51,10,44,10
 1980   DATA 46,10,46,10,46,10,44,10,48,20
 1990   DATA 44,10,44,10,44,10,48,10,51,10,51,10,51,10,44,10
 2000   DATA 46,10,46,10,46,10,48,10,46,10,44,40
 2010   DATA 49,10,49,10,49,10,49,10,51,20,44,20,46,10,46,10,46,10,44,10,48,20
 2020   DATA 44,10,44,10,44,10,48,10,51,10,51,10,51,10,44,10
 2030   DATA 46,10,46,10,46,10,48,10,46,10,44,40
 2040   DATA -1,-1
 2050 END DEF 
 2060 DEF INFO
 2070   TEXT 
 2080   PRINT AT1,11:"HUSZONEGYEZæS"
 2090   PRINT AT3,1:"A JΣTæK: A LAPOK üSSZEGE 21 LEGYEN."
 2100   PRINT AT4,1:"MINIMUM 15 LAPæRTæKET KæRNI KELL !"
 2110   PRINT AT6,12:"LAPæRTæKEK:"
 2120   PRINT AT8,2:"ALSä   = 2"
 2130   PRINT AT9,2:"FELS§  = 3"
 2140   PRINT AT10,2:"KIRΣLY = 4"
 2150   PRINT AT11,2:"ΣSZ    =11"
 2160   PRINT AT8,20:"HETES    = 7"
 2170   PRINT AT9,20:"NYOLCAS  = 8"
 2180   PRINT AT10,20:"KILENCES = 9"
 2190   PRINT AT11,20:"TÅZES    =10"
 2200   PRINT AT14,10:"A JΣTæK MäDJA :"
 2210   PRINT AT16,5:"LAPKæRæS BOTKORMΣNY EL§RE,"
 2220   PRINT AT17,2:"HA ELæG NYOMD MEG A TƒZGOMBOT !"
 2230   PRINT AT19,3:"AZONOS üSSZEG ESETæN A GæP NYERT !"
 2240   PRINT AT20,1:"AZONOS MAGAS üSSZEG ESETæN DüNTETLEN !"
 2250   CALL COWBOY
 2260   PRINT AT22,8:"HA KEZDHETJÇK <SZäKüZ> !"
 2270   LET V$=INKEY$
 2280   IF V$=""THEN 2270
 2290 END DEF 
 2300 DEF SEBAJ
 2310   ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,4;0,-40,-40,40
 2320   RESTORE  2380
 2330   DO 
 2340     READ M,H
 2350     IF M=-1THENEXIT DO
 2360     SOUND ENVELOPE1,PITCHM,DURATIONH
 2370   LOOP 
 2380   DATA 48,10,49,20,46,20,42,40 
 2390   DATA 48,10,49,20,44,20,41,40
 2400   DATA -1,-1
 2410 END DEF 
 2420 DEF HFONT
 2430   WHEN EXCEPTIONUSENINCSHFONT
 2440     EXT "HFONT"
 2450   END WHEN 
 2460   HANDLER NINCSHFONT
 2470     CLEAR FONT
 2480     SET CHARACTER145,24,24,60,102,126,102,102
 2490     SET CHARACTER151,24,24,126,96,120,96,126
 2500     SET CHARACTER133,28,24,60,24,24,24,60
 2510     SET CHARACTER146,6,60,102,102,102,102,60
 2520     SET CHARACTER148,66,60,102,102,102,102,60
 2530     SET CHARACTER153,102,92,102,102,102,102,60
 2540     SET CHARACTER149,24,102,102,102,102,102,60
 2550     SET CHARACTER137,102,66,102,102,102,102,60
 2560     SET CHARACTER143,51,102,102,102,102,102,60
 2570     SET CHARACTER129,24,24,60,6,62,102,62
 2580     SET CHARACTER147,24,24,60,102,126,96,60
 2590     SET CHARACTER132,28,16,56,24,24,24,60
 2600     SET CHARACTER134,24,24,60,102,102,102,60
 2610     SET CHARACTER135,102,0,60,102,102,102,60
 2620     SET CHARACTER136,102,102,60,102,102,102,60
 2630     SET CHARACTER138,24,24,102,102,102,102,60
 2640     SET CHARACTER139,102,0,102,102,102,102,60
 2650     SET CHARACTER140,54,36,102,102,102,102,60
 2660   END HANDLER 
 2670 END DEF