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)