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)