epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler
File name: /tmp/phpynD68Q (8118 bytes)
Options: bin=None cset='UK' html='' info='' out='/tmp/phpynD68Q.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 96 1F 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x1f96 bytes.
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
EXOS header pos/serial: #1 at 0x1fa6
EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: End of module
End of FILE parsing, because: End-of-module header got (type=10)
Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)