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

File name: /tmp/php8nbYZJ (2149 bytes) Options: bin=None cset='BRD' dasm='' html='' info='' out='/tmp/php8nbYZJ.out' EP-ASCII: BRD EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 45 08 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x845 bytes.
100 LET CF=10:LET CN=3 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=10TO80 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(12,5) 280 LET PN=0 290 RESTORE 760 300 FOR I=1TO12 310 READ P(I,0) 320 LET PN=12 330 FOR J=1TO5 340 READ P(I,J) 350 NEXT J 360 NEXT I 370 LET CH=CF 380 SET #102:INK3 390 PRINT #102,AT20,23:"FRAME TO GO" 400 SET #102:INK1 410 FOR O=0TO359STEP360/(CN+1) 420 PRINT #102,AT20,19:CN+CF-CH; 430 LET LZ,LX=O 440 LET A1=COS(LZ)*COS(LY) 450 LET A2=-COS(LZ)*SIN(LY) 460 LET A3=SIN(LZ) 470 LET B1=COS(LX)*SIN(LY)+SIN(LX)*SIN(LZ)*COS(LY) 480 LET B2=COS(LX)*COS(LY)-SIN(LX)*SIN(LZ)*SIN(LY) 490 LET B3=-SIN(LX)*COS(LZ) 500 LET C1=SIN(LX)*SIN(LY)-COS(LX)*SIN(LZ)*COS(LY) 510 LET C2=SIN(LX)*COS(LY)+COS(LX)*SIN(LZ)*SIN(LY) 520 LET C3=COS(LX)*COS(LZ) 530 FOR I=1TOPN 540 LET X1=CX+(A2*P(I,2)+B2*P(I,0)+C2*P(I,1)) 550 LET Y1=CY+(A3*P(I,2)+B3*P(I,0)+C3*P(I,1)) 560 LET Z1=A1*P(I,2)+B1*P(I,0)+C1*P(I,1) 570 LET X2=CX+(A2*P(I,5)+B2*P(I,3)+C2*P(I,4)) 580 LET Y2=CY+(A3*P(I,5)+B3*P(I,3)+C3*P(I,4)) 590 LET Z2=A1*P(I,5)+B1*P(I,3)+C1*P(I,4) 600 PLOT #CH:X1-Z1/G,Y1-Z1/G;X2-Z2/G,Y2-Z2/G; 610 NEXT 620 DISPLAY #CH:AT1FROM1TO6 630 LET CH=CH+1 640 NEXT 650 TEXT 660 FOR I=0TOCN 670 DISPLAY #CF+I:AT5FROM1TO6 680 DISPLAY #CF+CN-I:AT14FROM1TO6 690 NEXT 700 GET BILL$ 710 LET A$=BILL$ 720 IF A$="+"THENLET CH=CH+1 730 IF A$="+"THENLET CF=CF+1 740 IF A$="*"THENLET CN=CN+1 750 GOTO 660 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 -50,50,-50,-50,50,50 850 DATA 50,50,-50,50,50,50 860 DATA 50,-50,-50,50,-50,50 870 DATA -50,-50,-50,-50,-50,50 880 DATA 9E60
EXOS header pos/serial: #1 at 0x855 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)