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

File name: /tmp/phpPr5xnY (3082 bytes) Options: bin=None cset='BRD' dasm='' html='' info='' out='/tmp/phpPr5xnY.out' EP-ASCII: BRD EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 EA 0B 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0xbea bytes.
100 ! 110 ! 120 ! 130 ! 140 ! 150 ! 160 ! 170 ! 180 ! 190 ! 200 ! 210 ! 220 ! 230 LET CF=10:LET CN=67 240 !goto 1310 250 TEXT 40 260 SET #102:PALETTE0,255,0,56 270 SET STATUSOFF 280 OPTION ANGLEDEGREES 290 SET VIDEOX6 300 SET VIDEOY6 310 SET VIDEOMODE1 320 SET VIDEOCOLOR0 330 FOR I=CFTOCF+CN 340 OPEN #I:"video:" 350 SET #I:PALETTE0,109 360 NEXT I 370 ! 380 ! 390 ! 400 ! 410 CLEAR FONT 420 !FOR I=46208 TO 46719 430 ! SPOKE 255,I,SPEEK(255,I/2) 440 !NEXT I 450 ! 460 ! 470 ! 480 ! 490 LET LX,LY,LZ=0 500 LET CX=96 510 LET CY=108 520 LET G=2.83 530 ! 540 ! 550 ! 560 ! 570 SET 0,0 580 DIM P(100,5),SN(359),CS(359) 590 FOR I=0TO359 600 LET SN(I)=SIN(I):LET CS(I)=COS(I) 610 NEXT 620 ! 630 ! 640 ! 650 ! 660 LET PN=0 670 RESTORE 1430 680 FOR I=1TO100 690 READ P(I,0) 700 IF P(I,0)=9000000000THEN 710 LET PN=I-1 720 LET I=100 730 EXIT FOR 740 END IF 750 FOR J=1TO5 760 READ P(I,J) 770 NEXT J 780 NEXT I 790 IF NOT(PN)THEN 800 PRINT AT10,12:" Nincs grafika" 810 SET 0,48 820 OUT 180,48 830 END 840 END IF 850 ! 860 ! 870 ! 880 ! 890 LET CH=CF 900 SET #102:INK3 910 PRINT #102,AT20,23:"FRAME TO GO" 920 SET #102:INK1 930 FOR O=0TO359STEP360/(CN+1) 940 PRINT #102,AT20,19:CN+CF-CH; 950 LET LZ,LX=O 960 LET A1=CS(LZ)*CS(LY) 970 LET A2=-CS(LZ)*SN(LY) 980 LET A3=SN(LZ) 990 LET B1=CS(LX)*SN(LY)+SN(LX)*SN(LZ)*CS(LY) 1000 LET B2=CS(LX)*CS(LY)-SN(LX)*SN(LZ)*SN(LY) 1010 LET B3=-SN(LX)*CS(LZ) 1020 LET C1=SN(LX)*SN(LY)-CS(LX)*SN(LZ)*CS(LY) 1030 LET C2=SN(LX)*CS(LY)+CS(LX)*SN(LZ)*SN(LY) 1040 LET C3=CS(LX)*CS(LZ) 1050 ! 1090 FOR I=1TOPN 1100 LET X1=CX+(A2*P(I,2)+B2*P(I,0)+C2*P(I,1)) 1110 LET Y1=CY+(A3*P(I,2)+B3*P(I,0)+C3*P(I,1)) 1120 LET Z1=A1*P(I,2)+B1*P(I,0)+C1*P(I,1) 1130 LET X2=CX+(A2*P(I,5)+B2*P(I,3)+C2*P(I,4)) 1140 LET Y2=CY+(A3*P(I,5)+B3*P(I,3)+C3*P(I,4)) 1150 LET Z2=A1*P(I,5)+B1*P(I,3)+C1*P(I,4) 1200 PLOT #CH:X1-Z1/G,Y1-Z1/G;X2-Z2/G,Y2-Z2/G 1210 NEXT 1215 DISPLAY #CH:AT1FROM1TO6 1220 LET CH=CH+1 1230 NEXT 1250 SET 0,48 1260 OUT 180,48 1310 TEXT 1340 FOR I=0TOCN 1350 DISPLAY #CF+I:AT5FROM1TO6 1360 DISPLAY #CF+CN-I:AT14FROM1TO6 1370 NEXT 1380 GOTO 1340 1430 DATA -50,-50,-50,-50,-50,-50 1440 DATA 50,-50,-50,50,50,-50 1450 DATA 50,50,-50,-50,50,-50 1460 DATA -50,50,-50,-50,-50,-50 1470 DATA -50,-50,50,50,-50,50 1480 DATA 50,-50,50,50,50,50 1490 DATA 50,50,50,-50,50,50 1500 DATA -50,50,50,-50,-50,50 1510 DATA -50,50,-50,-50,50,50 1520 DATA 50,50,-50,50,50,50 1530 DATA 50,-50,-50,50,-50,50 1540 DATA -50,-50,-50,-50,-50,50 1550 DATA 9E60 1600 DATA -50,50,0,50,50,0 1610 DATA 50,50,0,50,17,0 1620 DATA 50,17,0,-17,17,0 1630 DATA 17,17,0,17,-17,0 1640 DATA 17,-17,0,-17,-17,0 1650 DATA -17,-17,0,-17,-50,0 1660 DATA -17,-50,0,-50,-50,0 1670 DATA -50,-50,0,-50,50,0 1680 DATA 33,5,16,0,50,0,0 1690 DATA 50,0,0,50,-33,5,0 1700 DATA 50,-33,5,0,33,5,-50,0 1710 DATA 33,5,-50,0,-16,-50,0, 1720 DATA -16,-50,0,0,-33,5,0, 1730 DATA 0,-33,5,0,-16,-18,0 1740 DATA -16,-18,0,17,-18,0 1750 DATA 17,-18,0,17,0,0 1760 DATA 17,0,0,33,5,16,0 1770 DATA 9E60
EXOS header pos/serial: #1 at 0xbfa 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)