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

File name: /tmp/php4NiafJ (2034 bytes) Options: bin=None cset='BRD' dasm='' html='' info='' out='/tmp/php4NiafJ.out' EP-ASCII: BRD EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 D2 07 01 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x1, size: 0x7d2 bytes.
100 LET CF=10:LET CN=35 110 TEXT 40 120 SET #102:PALETTE0,255,0,56 130 SET STATUSOFF 140 OPTION ANGLEDEGREES 150 SET VIDEOX6 160 SET VIDEOY6 170 SET VIDEOMODE1 180 SET VIDEOCOLOR0 190 FOR I=CFTOCF+CN 200 OPEN #I:"video:" 210 SET #I:PALETTE0,109 220 NEXT I 230 LET LX,LY,LZ=0 240 LET CX=96 250 LET CY=108 260 LET G=2.83 270 DIM P(20,5) 280 LET PN=0 290 RESTORE 720 300 FOR I=1TO20 310 READ P(I,0) 320 IF P(I,0)=9000000000THEN 330 LET PN=I-1 340 LET I=20 350 EXIT FOR 360 END IF 370 FOR J=1TO5 380 READ P(I,J) 390 NEXT J 400 NEXT I 410 LET CH=CF 420 SET #102:INK3 430 PRINT #102,AT20,23:"FRAME TO GO" 440 SET #102:INK1 450 FOR O=0TO359STEP360/(CN+1) 460 PRINT #102,AT20,19:CN+CF-CH; 470 LET LZ,LX=O 480 LET A1=COS(LZ)*COS(LY) 490 LET A2=-COS(LZ)*SIN(LY) 500 LET A3=SIN(LZ) 510 LET B1=COS(LX)*SIN(LY)+SIN(LX)*SIN(LZ)*COS(LY) 520 LET B2=COS(LX)*COS(LY)-SIN(LX)*SIN(LZ)*SIN(LY) 530 LET B3=-SIN(LX)*COS(LZ) 540 LET C1=SIN(LX)*SIN(LY)-COS(LX)*SIN(LZ)*COS(LY) 550 LET C2=SIN(LX)*COS(LY)+COS(LX)*SIN(LZ)*SIN(LY) 560 LET C3=COS(LX)*COS(LZ) 570 FOR I=1TOPN 580 LET X1=CX+(A2*P(I,2)+B2*P(I,0)+C2*P(I,1)) 590 LET Y1=CY+(A3*P(I,2)+B3*P(I,0)+C3*P(I,1)) 600 LET Z1=A1*P(I,2)+B1*P(I,0)+C1*P(I,1) 610 LET X2=CX+(A2*P(I,5)+B2*P(I,3)+C2*P(I,4)) 620 LET Y2=CY+(A3*P(I,5)+B3*P(I,3)+C3*P(I,4)) 630 LET Z2=A1*P(I,5)+B1*P(I,3)+C1*P(I,4) 640 PLOT #CH:X1-Z1/G,Y1-Z1/G;X2-Z2/G,Y2-Z2/G; 650 NEXT 660 TEXT 670 FOR I=0TOCN 680 DISPLAY #CF+I:AT5FROM1TO6 690 DISPLAY #CF+CN-I:AT14FROM1TO6 700 NEXT 710 GOTO 670 720 DATA -50,-50,-50,-50,-50,-50 730 DATA 50,-50,-50,50,50,-50 740 DATA 50,50,-50,-50,50,-50 750 DATA -50,50,-50,-50,-50,-50 760 DATA -50,-50,50,50,-50,50 770 DATA 50,-50,50,50,50,50 780 DATA 50,50,50,-50,50,50 790 DATA -50,50,50,-50,-50,50 800 DATA -50,50,-50,-50,50,50 810 DATA 50,50,-50,50,50,50 820 DATA 50,-50,-50,50,-50,50 830 DATA -50,-50,-50,-50,-50,50 840 DATA 9E60
EXOS header pos/serial: #1 at 0x7e2 EXOS type/header: 0xa [00 0A 00 00 01 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)