epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phpf9Z26c (2334 bytes) Options: bin=None cset='UK' html='' info='' out='/tmp/phpf9Z26c.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 FE 08 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x8fe bytes.
100 SET KEYCLICKOFF 110 TEXT 120 INPUT PROMPT"Egyseg :":E 130 TEXT 140 INPUT PROMPT"Sz|veg :":SZ$ 150 FOR I=1TOLEN(SZ$) 160 !DO 170 ! DO 180 ! GET A$ 190 ! LOOP WHILE A$="" 200 ! SELECT CASE A$ 210 SELECT CASESZ$(I) 220 CASE "~" 230 CALL TI 240 CALL TI 250 CALL TA 260 CALL TA 270 CALL TI 280 CALL TI 290 CASE "0" 300 CALL TA 310 CALL TA 320 CALL TA 330 CALL TA 340 CALL TA 350 CASE "1" 360 CALL TI 370 CALL TA 380 CALL TA 390 CALL TA 400 CALL TA 410 CASE "2" 420 CALL TI 430 CALL TI 440 CALL TA 450 CALL TA 460 CALL TA 470 CASE "3" 480 CALL TI 490 CALL TI 500 CALL TI 510 CALL TA 520 CALL TA 530 CASE "4" 540 CALL TI 550 CALL TI 560 CALL TI 570 CALL TI 580 CALL TA 590 CASE "5" 600 CALL TI 610 CALL TI 620 CALL TI 630 CALL TI 640 CALL TI 650 CASE "6" 660 CALL TA 670 CALL TI 680 CALL TI 690 CALL TI 700 CALL TI 710 CASE "7" 720 CALL TA 730 CALL TA 740 CALL TI 750 CALL TI 760 CALL TI 770 CASE "8" 780 CALL TA 790 CALL TA 800 CALL TA 810 CALL TI 820 CALL TI 830 CASE "9" 840 CALL TA 850 CALL TA 860 CALL TA 870 CALL TA 880 CALL TI 890 CASE "'" 900 CALL TA 910 CALL TI 920 CALL TI 930 CALL TI 940 CALL TA 950 CASE "a" 960 CALL TI 970 CALL TA 980 CASE "b" 990 CALL TA 1000 CALL TI 1010 CALL TI 1020 CALL TI 1030 CASE "c" 1040 CALL TA 1050 CALL TI 1060 CALL TA 1070 CALL TI 1080 CASE "d" 1090 CALL TA 1100 CALL TI 1110 CALL TI 1120 CASE "e" 1130 CALL TI 1140 CASE "f" 1150 CALL TI 1160 CALL TI 1170 CALL TA 1180 CALL TI 1190 CASE "g" 1200 CALL TA 1210 CALL TA 1220 CALL TI 1230 CASE "h" 1240 CALL TI 1250 CALL TI 1260 CALL TI 1270 CALL TI 1280 CASE "i" 1290 CALL TI 1300 CALL TI 1310 CASE "j" 1320 CALL TI 1330 CALL TA 1340 CALL TA 1350 CALL TA 1360 CASE "k" 1370 CALL TA 1380 CALL TI 1390 CALL TA 1400 CASE "l" 1410 CALL TI 1420 CALL TA 1430 CALL TI 1440 CALL TI 1450 CASE "m" 1460 CALL TA 1470 CALL TA 1480 CASE "n" 1490 CALL TA 1500 CALL TI 1510 CASE "o" 1520 CALL TA 1530 CALL TA 1540 CALL TA 1550 CASE "p" 1560 CALL TI 1570 CALL TA 1580 CALL TA 1590 CALL TI 1600 CASE "q" 1610 CALL TA 1620 CALL TA 1630 CALL TI 1640 CALL TA 1650 CASE "r" 1660 CALL TI 1670 CALL TA 1680 CALL TI 1690 CASE "s" 1700 CALL TI 1710 CALL TI 1720 CALL TI 1730 CASE "t" 1740 CALL TA 1750 CASE "u" 1760 CALL TI 1770 CALL TI 1780 CALL TA 1790 CASE "w" 1800 CALL TI 1810 CALL TA 1820 CALL TA 1830 CASE "v" 1840 CALL TI 1850 CALL TI 1860 CALL TI 1870 CALL TA 1880 CASE "x" 1890 CALL TA 1900 CALL TI 1910 CALL TI 1920 CALL TA 1930 CASE "y" 1940 CALL TA 1950 CALL TI 1960 CALL TA 1970 CALL TA 1980 CASE "z" 1990 CALL TA 2000 CALL TA 2010 CALL TI 2020 CALL TI 2030 CASE ELSE 2040 SOUND PITCH126,DURATIONE*2 2050 END SELECT 2060 SOUND PITCH126,DURATIONE 2070 !LOOP 2080 NEXT I 2090 GOTO 140 2100 DEF TI 2110 SOUND PITCH65,DURATIONE 2120 SOUND PITCH126,DURATIONE 2130 END DEF 2140 DEF TA 2150 SOUND PITCH65,DURATION2*E 2160 SOUND PITCH126,DURATIONE 2170 END DEF 2180 END
EXOS header pos/serial: #1 at 0x90e 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)