epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler
File name: /tmp/phpSKg0RL (8692 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpSKg0RL.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 D4 21 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x21d4 bytes.
100 WHEN EXCEPTIONUSEERROR
110 SET STATUSOFF
120 CALL MENU
130 DEF M1
140 RESTORE 410
150 FOR FUTTATAS=1TO2
160 LET H=2:LET M=42
170 FOR Y=1TO2
180 RESTORE 410
190 FOR X=1TO6
200 READ A
210 CALL H1(A+M,H)
220 NEXT
230 READ A
240 CALL H1(A+M,H*2)
250 NEXT
260 FOR X=1TO6
270 READ A
280 CALL H1(A+M,H)
290 NEXT
300 FOR X=1TO4
310 READ A
320 CALL H1(A+M,H)
330 NEXT
340 FOR X=1TO4
350 READ A
360 CALL H1(A+M,H)
370 NEXT
380 READ A
390 CALL H1(A+M,H*2)
400 NEXT FUTTATAS
410 DATA 9,7,9,4,0,4,-3
420 DATA 9,11,12,11,12,9
430 DATA 11,9,11,7
440 DATA 9,7,4,7,9
450 DEF H1(M,H)
460 FOR WW=1TOH
470 SOUND PITCHM,DURATION1
480 SOUND SOURCE1,PITCHM+12,DURATION1
490 NEXT
500 END DEF
510 END DEF
520 DEF M2
530 FOR FUT=0TO1
540 RESTORE 840
550 LET H=2:LET M=42
560 FOR Y=1TO2
570 RESTORE 840
580 SOUND PITCH27,SOURCE2,DURATION65
590 FOR X=1TO6
600 READ A
610 CALL H1(A+M,H)
620 NEXT
630 READ A
640 CALL H1(A+M,H*2)
650 NEXT
660 SOUND PITCH30,SOURCE2,DURATION55
670 FOR X=1TO6
680 READ A
690 CALL H1(A+M,H)
700 NEXT
710 SOUND PITCH29,SOURCE2,DURATION40
720 FOR X=1TO4
730 READ A
740 CALL H1(A+M,H)
750 NEXT
760 SOUND PITCH27,SOURCE2,DURATION42
770 FOR X=1TO4
780 READ A
790 CALL H1(A+M,H)
800 NEXT
810 READ A
820 CALL H1(A+M,H*2)
830 NEXT FUT
840 DATA 9,7,9,4,0,4,-3
850 DATA 9,11,12,11,12,9
860 DATA 11,9,11,7
870 DATA 9,7,4,7,9
880 END DEF
890 DEF M3
900 RESTORE 970
910 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,4;0,-40,-40,20
920 READ VALT
930 FOR CIKL=1TOVALT
940 READ A,B
950 SOUND ENVELOPE1,PITCHA,DURATIONB
960 NEXT
970 DATA 70
980 DATA 54,6,53,6,53,12
990 DATA 54,6,53,6,53,12
1000 DATA 54,6,53,6,53,12
1010 DATA 61,24
1020 DATA 61,6,60,6,58,12
1030 DATA 58,6,56,6,54,12
1040 DATA 54,6,53,6,51,36
1050 !
1060 DATA 53,6,51,6,51,12
1070 DATA 53,6,51,6,51,12
1080 DATA 53,6,51,6,51,12
1090 DATA 60,24
1100 DATA 60,6,58,6,57,12
1110 DATA 57,6,54,6,53,12
1120 DATA 53,6,51,6,49,36
1130 !
1140 DATA 61,6,60,6,60,12,63,12,57,12,60,12,58,12,53,24
1150 DATA 61,6,60,6,60,12,63,12,57,12,60,12,58,12,53,24
1160 DATA 59,6,58,6,58,12
1170 DATA 59,6,58,6,58,12
1180 DATA 59,6,58,6,58,12
1190 DATA 66,18,63,6,62,18,65,6,58,18,62,6,63,36
1200 END DEF
1210 DEF M4
1220 RESTORE 1290
1230 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,24;0,-40,-40,40
1240 READ VALT
1250 FOR CIKL=1TOVALT
1260 READ A,B
1270 SOUND ENVELOPE1,PITCHA,DURATIONB
1280 NEXT
1290 DATA 25
1300 DATA 20,40,22,20,23,20,22,30,20,10,20,40
1310 DATA 20,40,18,20,15,10,18,10,20,60,20,20
1320 DATA 20,40,22,20,23,20,22,30,20,10,20,40
1330 DATA 20,20,23,7,20,7,23,7,27,20,15,20,20,80
1340 END DEF
1350 DEF M5
1360 RESTORE 1430
1370 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,24;0,-40,-40,40
1380 READ VALT
1390 FOR CIKL=1TOVALT
1400 READ A,B
1410 SOUND ENVELOPE1,PITCHA,DURATIONB
1420 NEXT
1430 DATA 50
1440 DATA 30,20,35,13,37,13,39,13,37,50,34,60
1450 DATA 30,20,35,13,37,13,39,13,37,60
1460 DATA 30,20,35,13,37,13,39,13,37,50,34,60
1470 DATA 34,20,35,13,34,13,30,13,30,60
1480 !
1490 DATA 42,20,41,13,39,13,37,13
1500 DATA 41,30,37,15,39,30,35,15,37,30
1510 DATA 42,20,41,13,39,13,37,13,41,60
1520 DATA 42,20,41,13,39,13,37,13
1530 DATA 41,30,37,15,39,30,35,15,37,30
1540 DATA 34,20,35,13,34,13,30,13,30,60
1550 END DEF
1560 DEF M6
1570 RESTORE 1620
1580 FOR BING=1TO148
1590 READ MAGASSAG,HOSSZ,BAL,JOBB
1600 SOUND PITCHMAGASSAG,DURATIONHOSSZ,RIGHTBAL,LEFTJOBB
1610 NEXT BING
1620 DATA 44,16,200,200,44,8,0,0,39,8,200,200,44,16,200,200,44,8,0,0,39,8, 200,200,44,8,200,200,39,8,200,200,44,8,200,200,48,8,200,200,51,16,200,200,51,16,0,0
1630 DATA 49,16,200,200,49,8,0,0,46,8,200,200,49,16,200,200,49,8,0,0,46,8, 200,200,49,8,200,200,46,8,200,200,43,8,200,200,46,8,200,200,39,16,200, 200,39,16,0,0
1640 DATA 44,8,200,200,44,10,0,0,44,20,200,200,44,2,0,0,48,8,200,200,46,8,200,200,48,1,0,0,44,8,200,200,46,1,0,0,44,8,200,200,43,8,200,200,43,1,0,0,43,16,200,200
1650 DATA 46,8,200,200,49,8,200,200,43,1,0,0,43,8,200,200,43,1,0,0,46,8,200,200,44,8,200,200,44,1,0,0,44,16,200,200,48,8,200,200,46,8,200,200,46,1,0,0,44,8,200,200
1660 DATA 44,1,0,0,44,8,200,200,43,8,200,200,43,1,0,0,43,16,200,200,43,1,0,0,46,8,200,200,49,8,200,200,49,1,0,0,43,8,200,200,43,1,0,0
1670 DATA 44,8,200,200,44,1,0,0,44,8,200,200,44,1,0,0,44,5,200,200,43,5,200,200,41,5,200,200,43,5,200,200,43,1,0,0,44,8,200,200,44,1,0,0,44,8,200,200,44,1,0,0,48,5,200,200,46,5,200,200,44,5,200,200,46,5,200,200
1680 DATA 49,1,0,0,48,8,200,200,49,1,0,0,48,8,200,200,51,5,200,200,49,5,200,200,48,5,200,200,49,5,200,200,49,1,0,0,51,16,200,200,51,16,0,0
1690 DATA 51,32,200,200,53,32,200,200,53,1,0,0,51,5,200,200,49,8,200,200,49,3,0,0,49,16,200,200,49,1,0,0,49,5,200,200,48,8,200,200,48,3,0,0,48,16,200,200,48,1,0,0
1700 DATA 48,5,200,200,46,8,200,200,46,3,0,0,46,16,200,200,46,1,0,0,44,8,200,200,43,8,200,200,43,1,0,0,41,8,200,200,41,1,0,0,43,8,200,200,43,1,0,0,44,8,200,200,44,8,0,0,46,8,200,200,46,8,0,0,48,8,200,200,48,24,0,0
1710 DATA 51,32,200,200,53,32,200,200,51,8,200,200,49,8,200,200,49,1,0,0,49,8,200,200,49,1,0,0,49,8,200,200,49,1,0,0,49,8,200,200,48,8,200,200,48,1,0,0,48,8,200,200,48,1,0,0,48,8,200,200,48,1,0,0
1720 DATA 48,8,200,200,46,8,200,200,46,1,0,0,46,8,200,200,46,1,0,0,46,8,200,200,46,1,0,0,44,8,200,200,43,8,200,200,41,8,200,200,43,8,200,200,44,32,200,200
1730 END DEF
1740 DEF M7
1750 RESTORE 1800
1760 FOR BANG=1TO126
1770 READ MAGASSAG,HOSSZ,BAL,JOBB
1780 SOUND PITCHMAGASSAG,DURATIONHOSSZ,RIGHTBAL,LEFTJOBB
1790 NEXT BANG
1800 DATA 37,48,0,0,37,24,200,200,42,48,200,200,37,24,200,200,37,4,0,0,44,48,200,200,37,24,200,200,37,4,0,0,46,48,200,200,47,12,200,200,44,12,200,200,42,24,200,200,41,24,200,200,44,24,200,200,47,48,200,200,44,24,200,200
1810 DATA 41,48,200,200,44,12,200,200,41,12,200,200,38,1,0,0,37,48,200,200,35,24,200,200,34,48,200,200,34,24,0,0
1820 DATA 42,24,200,200,42,1,0,0,42,24,200,200,46,24,200,200,36,48,200,200,39,12,200,200,36,12,200,200,36,1,0,0,32,48,200,200,42,24,200,200,39,24,200,200,41,24,200,200,41,24,0,0
1830 DATA 37,24,200,200,41,24,200,200,44,24,200,200,34,48,200,200,42,12,200,200,39,12,200,200,39,1,0,0,37,48,200,200,39,24,200,200,39,1,0,0,39,24,200,200,41,24,200,200,36,24,0,0
1840 DATA 37,24,200,200,36,24,200,200,34,24,200,200,33,24,200,200,34,24,200,200,30,1,0,0,30,24,200,200,32,48,200,200,32,1,0,0,32,24,200,200,37,48,200,200,34,72,0,0
1850 DATA 44,24,200,200,46,24,200,200,47,24,200,200,49,48,200,200,46,12,200,200,43,12,200,200,43,1,0,0,39,48,200,200,37,24,200,200,37,1,0,0,37,24,200,200,35,24,200,200,35,36,0,0
1860 DATA 47,24,200,200,44,24,200,200,41,24,200,200,42,48,200,200,37,24,200,200,33,48,200,200,30,24,200,200,38,24,200,200,37,24,200,200,37,24,0,0
1870 DATA 37,24,200,200,42,24,200,200,46,24,200,200,46,1,0,0,46,12,200,200,44,12,200,200,44,1,0,0,44,24,200,200,44,24,0,0,37,24,200,200,44,24,200,200,44,1,0,0,47,24,200,200,47,1,0,0,47,24,200,200,46,24,200,200,46,24,0,0
1880 DATA 42,24,200,200,46,24,200,200,49,24,200,200,39,48,200,200,47,12,200,200,44,12,200,200,44,1,0,0,42,48,200,200,44,24,200,200,44,1,0,0,44,24,200,200,46,24,200,200,46,24,0,0
1890 DATA 42,24,200,200,41,24,200,200,39,24,200,200,38,24,200,200,39,24,200,200,35,1,0,0,35,24,200,200,37,48,200,200,37,1,0,0,37,24,200,200,30,48,200,200
1900 END DEF
1910 REM **MUSIC BOX**
1920 DEF MBOX
1930 SET KEYCLICKOFF
1940 SET KEYDELAY1:SET KEYRATE1
1950 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,4;0,-40,-40,20
1960 LET BURK=255
1970 TEXT
1980 PRINT AT5,10:"1 TO 8 SOUND"
1990 PRINT AT7,10:"A AND B MUSICAL INSTRUMENT"
2000 PRINT AT9,10:"C REM1 ON"
2010 PRINT AT11,10:"D REM1 OFF"
2020 DO
2030 GET A$
2040 IF A$="1"THENSOUND PITCH37,INTERRUPT,ENVELOPEBURK
2050 IF A$="2"THENSOUND PITCH39,INTERRUPT,ENVELOPEBURK
2060 IF A$="3"THENSOUND PITCH41,INTERRUPT,ENVELOPEBURK
2070 IF A$="4"THENSOUND PITCH42,INTERRUPT,ENVELOPEBURK
2080 IF A$="5"THENSOUND PITCH44,INTERRUPT,ENVELOPEBURK
2090 IF A$="6"THENSOUND PITCH46,INTERRUPT,ENVELOPEBURK
2100 IF A$="7"THENSOUND PITCH48,INTERRUPT,ENVELOPEBURK
2110 IF A$="8"THENSOUND PITCH49,INTERRUPT,ENVELOPEBURK
2120 IF A$=""THENSOUND PITCH-131,INTERRUPT
2130 IF A$="a"THENLET BURK=1
2140 IF A$="b"THENLET BURK=255
2150 IF A$="c"THENSET REM1ON
2160 IF A$="d"THENSET REM1OFF
2170 LOOP
2180 END DEF
2190 DEF MENU
2200 SET KEYRATE30
2210 SET KEYDELAY30
2220 SOUND DURATION1,INTERRUPT
2230 TEXT
2240 PRINT AT5,10:"1 TO 7 MUSIC"
2250 PRINT AT7,12:"M MUSIC BOX"
2260 PRINT AT9,11:"STOP RETURN MENU"
2261 PRINT AT11,12:"A REM1 ON"
2262 PRINT AT13,12:"B REM1 OFF"
2263 PRINT AT15,12:"C SPEAKER ON"
2264 PRINT AT17,12:"D SPEAKER OFF"
2270 GET A$
2280 IF A$="1"THENCALL M1
2290 IF A$="2"THENCALL M2
2300 IF A$="3"THENCALL M3
2310 IF A$="4"THENCALL M4
2320 IF A$="5"THENCALL M5
2330 IF A$="6"THENCALL M6
2340 IF A$="7"THENCALL M7
2350 IF A$="m"THENCALL MBOX
2351 IF A$="a"THENSET REM1ON
2352 IF A$="b"THENSET REM1OFF
2353 IF A$="c"THENSET SPEAKERON
2354 IF A$="d"THENSET SPEAKEROFF
2360 GOTO 2270
2370 END DEF
2380 END WHEN
2390 HANDLER ERROR
2400 GOTO 100
2410 END HANDLER
EXOS header pos/serial: #1 at 0x21e4
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)