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)