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

File name: /tmp/php6gtRUb (3850 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/php6gtRUb.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 EA 0E 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0xeea bytes.
100 TEXT 40 110 CLEAR SOUND 120 ENVELOPE NUMBER6;0,63,63,1;0,-63,-63,10 130 PRINT AT2,10:"H*U*N*G*R*Y**M*E*N" 140 PRINT AT4,8:"☀*********************☀" 150 PRINT AT6,4:"Use keyboard and külsö joystick" 160 PRINT AT7,13:"to move men" 161 PRINT AT9,5:"Keys:" 162 PRINT AT10,8:"Q-up A-down O-left P-right" 170 PRINT AT14,8:"Push '1' key to start game" 180 RESTORE 190 FOR I=1TO87 200 READ G,M 210 SOUND PITCHG-.09,DURATIONM,ENVELOPE6,SYNC1,SOURCE2,LEFT0 220 SOUND PITCHG+.09,DURATIONM,ENVELOPE6,SYNC1,SOURCE1,LEFT0 230 SOUND PITCHG,DURATIONM,LEFT150,RIGHT0 240 IF INKEY$="1"THENGOTO 410 250 NEXT 260 DATA 41,10,41,20,41,10,39,20,37,20,41,10,41,20,41,10,39,20,37,20,42,10,42,20 270 DATA 42,10,41,20 280 DATA 41,10,41,20,41,10,39,20,37,20,41,10,41,20,41,10,39,20,37,20,42,10,42,20 290 DATA 42,10,41,20,39,20,44,10,44,20 300 DATA 44,10,42,20,41,20,46,10,46,20 310 DATA 46,10,44,20,42,20,49,10,49,20 320 DATA 49,10,46,20,43,20,40,10,41,20 330 DATA 41,10,41,20,41,10,39,20,37,20,41,10,41,20,41,10,39,20,37,20,42,10,42,20 340 DATA 42,10,41,20,40,20,44,10,44,20 350 DATA 44,10,42,20,41,20,46,10,46,20 360 DATA 46,10,44,20,43,20,48,10,48,20 370 DATA 48,10,46,20,45,20,49,10,49,20 380 DATA 49,10,48,20,44,20,40,10,40,20,37,10,37,10,37,20,37,10 390 WAIT 8 400 ENVELOPE NUMBER6;0,63,63,1;0,-63,-63,10 410 ENVELOPE NUMBER4;0,63,63,1;-20,63,63,1 420 TEXT 430 CLEAR SOUND 440 PRINT AT13,15:"PREPARE !!" 450 FOR A=1TO100 460 SOUND PITCHA,INTERRUPT,STYLEA,ENVELOPE4,DURATION2 470 NEXT 480 LET PLA1$="Player1":LET PLA2$="Player2" 490 SET KEYDELAY5:SET KEYCLICKOFF 500 DEF KERET 510 PRINT #102,AT1,1:"llllllllllllllllllllllllllllllllllllll" 520 FOR A=2TO23 530 SOUND PITCHA+19.1,SOURCE1,INTERRUPT 540 SOUND INTERRUPT,PITCHA+20.1 550 PRINT #102,ATA,1:"l l" 560 NEXT 570 PRINT #102,AT24,1:"llllllllllllllllllllllllllllllllllllll"; 580 END DEF 590 ENVELOPE NUMBER1;RELEASE;0,63,63,1;-10,-63,63,20;-3,63,-63,5 600 ENVELOPE NUMBER2;RELEASE;0,63,63,1;10,-63,63,20;3,63,-63,5 610 ENVELOPE NUMBER3;RELEASE;0,-63,63,1;10,-63,63,20;-10,63,63,5 620 TEXT 630 RANDOMIZE 640 CALL KERET 650 FOR A=1TO201 660 LET M=RND(21)+2:LET N=RND(36)+2 670 PRINT #102,ATM,N:; 680 GET #102:A$ 690 IF A$="*"THENGOTO 660 700 IF A$<>"*"THENPRINT #102,ATM,N:"*" 710 SOUND ENVELOPERND(3)+1,PITCHRND(50),INTERRUPT,SOURCERND(3) 720 NEXT 730 LET X=2:LET Y=2:LET P=0:LET X1=2:LET Y1=37:LET P1=0 740 TIME "00:00:00" 750 DO 760 SELECT CASEJOY(1) 770 CASE 8 780 LET X=X-1 790 CASE 4 800 LET X=X+1 810 CASE 1 820 LET Y=Y+1 830 CASE 2 840 LET Y=Y-1 850 CASE ELSE 860 PRINT #102,ATX,Y:"" 870 END SELECT 880 PRINT #102,ATX1,Y1:"" 890 PRINT #102,ATX,Y:; 900 GET #102:A$ 910 IF A$="*"THENLET P=P+1:SOUND ENVELOPE1,DURATION1,PITCH50 920 IF A$="l"THENCALL END 930 PRINT #102,ATX,Y:"" 940 PRINT #102,ATX,Y:" " 950 PRINT #102,ATX1,Y1:" " 960 IF TIME$="00:01:00"THENCALL TIMEOUT 970 LET INK$=INKEY$ 980 SELECT CASEINK$ 990 CASE "q" 1000 LET X1=X1-1 1010 CASE "a" 1020 LET X1=X1+1 1030 CASE "p" 1040 LET Y1=Y1+1 1050 CASE "o" 1060 LET Y1=Y1-1 1070 CASE ELSE 1080 PRINT #102,ATX1,Y1:"" 1090 END SELECT 1100 PRINT #102,ATX,Y:"" 1110 PRINT #102,ATX1,Y1:; 1120 GET #102:A$ 1130 IF A$="*"THENLET P1=P1+1:SOUND ENVELOPE1,DURATION1,PITCH55 1140 IF A$="l"THENCALL END 1150 PRINT #102,ATX1,Y1:"" 1160 PRINT #102,ATX1,Y1:" " 1170 PRINT #102,ATX,Y:" " 1180 IF TIME$="00:01:00"THENCALL TIMEOUT 1190 LOOP 1200 DEF TIMEOUT 1210 FOR W=1TO5 1220 SET 0,31 1230 PRINT #102,AT13,13:"time out" 1240 PRINT #102,AT13,13:"TIME OUT" 1250 SET 0,30 1260 SOUND STYLEW*15,PITCHW*15,ENVELOPE1,DURATION1 1270 NEXT 1280 CALL END 1290 END DEF 1300 DEF END 1310 ENVELOPE NUMBER5;0,63,63,1;10,-63,-63,10 1320 FOR A=63TO20STEP-5 1330 SOUND PITCHA,DURATION10,ENVELOPE5,STYLEA 1340 NEXT 1350 PRINT #102,AT13,3:PLA1$"="P"pont,"PLA2$"="P1"pont." 1360 WAIT 3 1370 RUN 1380 END DEF
EXOS header pos/serial: #1 at 0xefa 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)