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

File name: /tmp/phpXndT3K (3932 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpXndT3K.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 3C 0F 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0xf3c bytes.
  100 PROGRAM "analogo.bas"
  110 ALLOCATE 88
  120 SET INTERRUPTSTOPOFF
  130 CODE OJ=HEX$("f3,ed,4b,38,00,c5,dd,e5")
  140 CODE =HEX$("fd,e5,dd,21,01,b9,fd,21")
  150 CODE =HEX$("01,ba,01,37,c9,ed,43,38")
  160 CODE =HEX$("00,21,01,00,3e,30,d3,b4")
  170 CODE =HEX$("fb,76,fd,cb,00,fe,dd,cb")
  180 CODE =HEX$("00,fe,3e,30,d3,b4,fb,76")
  190 CODE =HEX$("3e,30,d3,b4,fb,af,23,30")
  200 CODE =HEX$("fd,fd,cb,00,be,dd,cb,00")
  210 CODE =HEX$("be,fd,e1,dd,e1,c1,ed,43")
  220 CODE =HEX$("38,00,3e,08,32,01,b9,fb,c9")
  230 LET MHZ=USR(OJ,0)/512
  240 IF MHZ<4.2THENOUT 191,4
  250 IF MHZ>4.5THENOUT 191,6
  260 SET BORDER40
  270 TEXT 40
  280 SET STATUSOFF
  290 SET #102:PALETTE40,70,83,83
  300 WHEN EXCEPTIONUSEHIBA
  310   INPUT AT10,6,PROMPT"beallitas: ora (1-23)":AU
  320   LET AU=INT(ABS(AU)):LET AU$=""
  330   IF AU<0ORAU>23THEN 310
  340   IF AU<10THENLET AU$="0"
  350   LET AU$=AU$&STR$(AU)
  360   INPUT AT12,6,PROMPT"beallitas: perc (0-59)":AM
  370   LET AM=INT(ABS(AM)):LET AM$=""
  380   IF AM<0ORAM>59THEN 360
  390   IF AM<10THENLET AM$="0"
  400   LET AM$=AM$&STR$(AM)
  410   INPUT AT14,6,PROMPT"beallitas: masodperc (0-59)":AS
  420   LET AS=INT(ABS(AS)):LET AS$=""
  430   IF AS<0ORAS>59THEN 410
  440   IF AS<10THENLET AS$="0"
  450   LET AS$=AS$&STR$(AS)
  460   TIME AU$&":"&AM$&":"&AS$
  470 END WHEN 
  480 OPTION ANGLEDEGREES
  490 ENVELOPE NUMBER1;0,63,63,1;0,-63,-63,69
  500 SOUND ENVELOPE1,PITCH79.5,DURATION70
  510 SOUND ENVELOPE1,PITCH81,DURATION70
  520 SOUND ENVELOPE1,PITCH83,DURATION70
  530 SOUND ENVELOPE1,PITCH84,DURATION70
  540 SET VIDEOMODE1
  550 SET VIDEOCOLOR1
  560 SET VIDEOX30
  570 SET VIDEOY25
  580 OPEN #10:"video:"
  590 SET VIDEOMODE0
  600 SET VIDEOCOLOR0
  610 SET VIDEOX8
  620 SET VIDEOY2
  630 OPEN #11:"video:"
  640 SET #10:PALETTE34,11,255,20
  650 SET #11:PALETTE81,255,81,81
  660 SET #10:INK2
  670 PLOT #10:480,450,ELLIPSE400,400,ELLIPSE420,420,
  680 SET #10:INK1
  690 PLOT #10:480,40,PAINT
  700 SET #10:INK3
  710 PLOT #10:480,450,PAINT
  720 DISPLAY #10:AT1FROM1TO25
  730 DISPLAY #11:AT26FROM1TO2
  740 SET BORDER81
  750 SET STATUSOFF
  760 SET #10:INK2
  770 FOR S=31TO361STEP30
  780   LET X=370*SIN(S):LET Y=370*COS(S)
  790   LET S$=STR$((S-1)/30)
  800   IF VAL(S$)>10THENLET X=X-(VAL(S$)-10)*15
  810   IF VAL(S$)=10THENLET X=X-10
  820   PLOT #10:470+X,460+Y,
  830   PRINT #10:S$
  840 NEXT 
  850 LET UA=480:LET UB=450:LET MA=480:LET MB=450:LET SA=480:LET SB=450:LET S=0
  860 LET MC=VAL(TIME$(4:5))*6
  870 LET UP=VAL(TIME$(1:2))
  880 IF UP>12THENLET UP=UP-12
  890 IF UP=0THENLET UP=12
  900 LET UC=UP*30+MC/12
  910 LET MX=SIN(MC)*320+480:LET MY=COS(MC)*320+450
  920 LET UX=SIN(UC)*250+480:LET UY=COS(UC)*250+450
  930 WHEN EXCEPTIONUSEHIBA2
  940   SET INTERRUPTSTOPON
  950   DO 
  960     LET SEC=VAL(TIME$(7:8)):LET SC=SEC*6
  970     LET MC=VAL(TIME$(4:5))*6
  980     LET UP=VAL(TIME$(1:2))
  990     IF UP>12THENLET UP=UP-12
 1000     IF UP=0THENLET UP=12
 1010     LET UC=UP*30+MC/12
 1020     SET #10:INK3
 1030     LET SX=SIN(SC)*320+480:LET SY=COS(SC)*320+450
 1040     IF SEC=0THEN
 1050       LET MX=SIN(MC)*320+480:LET MY=COS(MC)*320+450
 1060       IF MC/90=INT(MC/90)THEN
 1070         LET UX=SIN(UC)*250+480:LET UY=COS(UC)*250+450
 1080         IF MC=0ANDSEC=0THENLET S=UP
 1090         PLOT #10:480,450;UA,UB
 1100       END IF 
 1110       PLOT #10:480,450;MA,MB
 1120     END IF 
 1130     PLOT #10:480,450;SA,SB
 1140     SET #10:INK0
 1150     PLOT #10:480,450;SX,SY
 1160     SOUND PITCH10,DURATION1,SOURCE1
 1170     SET #10:INK2
 1180     PLOT #10:480,450;MX,MY
 1190     PLOT #10:480,450;UX,UY
 1200     PLOT #10:480,450,ELLIPSE10,10
 1210     PRINT #11:CHR$(30);TIME$;
 1220     IF S>0THEN
 1230       SOUND ENVELOPE1,PITCH27,DURATION70
 1240       LET S=S-1
 1250     END IF 
 1260     LET SA=SX:LET SB=SY
 1270     LET MA=MX:LET MB=MY
 1280     LET UA=UX:LET UB=UY
 1290     DO 
 1300     LOOP WHILESEC=VAL(TIME$(7:8))
 1310   LOOP 
 1320 END WHEN 
 1330 HANDLER HIBA
 1340   CONTINUE 
 1350 END HANDLER 
 1360 HANDLER HIBA2
 1370   TEXT 
 1380   SET BORDER0
 1390   CLOSE #10
 1400   CLOSE #11
 1410   SET STATUSON
 1420   END 
 1430 END HANDLER 
 1440 REM  Mi e`s a sza`mito`ge`p- programsuga`rza`s - 88:03:01
 1450 REM******************************
 1460 REM MTV:ITV-STUDIUM: 1810. Bp.

EXOS header pos/serial: #1 at 0xf4c
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)