Enterprise-128 EXOS file analyzer, lister and disassembler

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

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

Program: 0x0, size: 0x5ddf bytes.

110 SET 27,73 120 DIM L(40),GL(5),JL(5),GS(5,1),JS(5,1),EG(5),EP(5),CSG(3),CSP(3) 130 LET PG,PP=100:LET TP,TG,CSEREP,CSEREG,POR=0 140 CLEAR TEXT:PING 150 SET #102:PALETTEBLUE,YELLOW,RED,RED 160 SET KEYCLICKOFF 170 SET 26,255 180 SET VIDEOMODE1 190 SET VIDEOCOLOUR3 200 SET VIDEOX40:SET VIDEOY24 210 OPEN #1:"video:" 220 DISPLAY #1:AT1FROM1TO24 230 SET #1:INKRED 240 GOSUB 5260 250 FOR H=1TO12 260 SET #1:INKH 270 PRINT #1,ATH,1:"ΣäöüåΣäöüå"; 280 NEXT H 290 FOR E=1TO6 300 CALL ZENE(E) 310 NEXT E 320 DISPLAY TEXT 330 PRINT AT24,1:"" 340 CLOSE #1 350 SET VIDEOMODE1 360 SET VIDEOCOLOUR1 370 SET VIDEOX40:SET VIDEOY23 380 OPEN #1:"video:" 390 DISPLAY #1:AT1FROM1TO23 400 SET VIDEOMODE1 410 SET VIDEOCOLOUR3 420 SET VIDEOX40:SET VIDEOY2 430 OPEN #3:"video:" 440 !SET £1:PALETTE BLUE,WHITE,RED,BLACK 450 SET #3:PAPERBLUE:CLEAR #3 460 CALL KEP 470 LET POR=0 480 SET #1:INK0 490 FOR H=1TO6 500 PRINT #1,ATH,1:"■■■■■■■■■■■■■■■■■■■■■■■■" 510 NEXT 520 FOR H=15TO21 530 PRINT #1,ATH,1:"■■■■■■■■■■■■■■■■■■■■■■■■" 540 NEXT 550 SET #1:INK1 560 GOSUB 3070 570 SET #1:INK0:PRINT #1,AT23,1:"■■■■■■■■■■■■■■■■■■■■■■■■" 580 LET N=0 590 FOR H=1TO5 600 LET GL(H)=LAPOT(0) 610 CALL RAJZ(1,H*5-4,0) 620 LET JL(H)=LAPOT(0) 630 CALL RAJZ(16,H*5-4,JL(H)) 640 NEXT H 650 LET CSEREG=4 660 SET #1:INK1:PRINT #1,AT11,24:"GONDOLKOZOM" 670 GOSUB 3210 680 SET #1:INK0:PRINT #1,AT11,24:"■■■■■■■■■■■" 690 IF CSEREG=0THEN 1480 700 ON ESET+1GOTO 710, 860, 1050, 1290 710 CALL PORGEG 720 IF RND(2)=1THEN 770 730 PRINT :PRINT "EZ A LAP NEM KELL : /SPACE/"; 740 CALL SPACE 750 LET LAP=LAPOT(0) 760 GOTO 810 770 PRINT :PRINT "NEKEM EZ KELL : /SPACE/"; 780 CALL SPACE 790 CALL PORGETORL 800 LET LAP=POR 810 FOR H=1TO5 820 IF REM(GL(H),5)=REM(POR,5)THENLET GL(H)=POR 830 NEXT H 840 LET POR=0 850 GOTO 1480 860 PRINT :PRINT "EZ A LAP NEM KELL : /SPACE/"; 870 CALL SPACE 880 LET LAP=LAPOT(0) 890 IF REM(POR,5)+1<>MIR1THEN 960 900 FOR H=1TO5 910 IF MIR1=REM(GL(H),5)+1THEN 930 920 LET G=H 930 NEXT H 940 LET GL(G)=POR 950 GOTO 1480 960 IF REM(POR,5)+1<>MIR2THEN 1010 970 FOR H=1TO5 980 IF REM(GL(H),5)+1=MIR3THENLET GL(H)=POR 990 NEXT H 1000 GOTO 1480 1010 FOR H=1TO5 1020 IF REM(GL(H),5)+1=MIR2THENLET GL(H)=POR 1030 NEXT H 1040 GOTO 1480 1050 CALL PORGEG 1060 IF REM(POR,5)+1<>MIR1THEN 1150 1070 FOR H=1TO5 1080 IF MIR1=REM(GL(H),5)+1THEN 1100 1090 LET G=H 1100 NEXT H 1110 LET GL(G)=POR 1120 PRINT :PRINT "NEKEM EZ KELL : /SPACE/"; 1130 LET POR=0:CALL PORGETORL 1140 GOTO 1480 1150 IF REM(POR,5)+1<>MIR2THEN 1220 1160 FOR H=1TO5 1170 IF REM(GL(H),5)+1=MIR3THENLET GL(H)=POR 1180 NEXT H 1190 PRINT :PRINT "NEKEM EZ KELL : /SPACE/"; 1200 LET POR=0 1210 GOTO 1480 1220 IF REM(POR,5)+1<>MIR3THEN 860 1230 FOR H=1TO5 1240 IF REM(GL(H),5)+1=MIR2THENLET GL(H)=POR 1250 NEXT H 1260 PRINT :PRINT "NEKEM EZ KELL : /SPACE/"; 1270 LET POR=0 1280 GOTO 1480 1290 IF CSEREG>1THEN 1450 1300 CALL PORGEG 1310 IF REM(POR,5)+1=MIR1ORREM(POR,5)+1=MIR2THEN 1380 1320 PRINT :PRINT "EZ A LAP NEM KELL : /SPACE/"; 1330 CALL SPACE 1340 LET GL(MIT)=LAPOT(0) 1350 GOTO 1480 1360 CALL SPACE 1370 CALL PORGETORL 1380 PRINT :PRINT "NEKEM EZ KELL : /SPACE/"; 1390 CALL SPACE 1400 CALL PORGETORL 1410 LET GL(MIT)=POR:LET POR=0:GOTO 1440 1420 CALL SPACE 1430 CALL PORGETORL 1440 GOTO 1480 1450 FOR H=1TOCSEREG 1460 LET GL(CSG(H))=LAPOT(0) 1470 NEXT H 1480 GOSUB 3210 1490 PRINT :PRINT CSEREG;"LAPOT CSERELTEM /SPACE/"; 1500 CALL SPACE 1510 SET #1:INK3:PRINT #1,AT7,34:"■■■" 1520 SET #1:INK1:PRINT #1,AT7,34:CSEREG 1530 ! JATEKOS J\N 1540 PRINT :PRINT "HANYAT CSEREL ? /0;1;2;3;5/"; 1550 GET A$ 1560 IF A$="2"ORA$="3"THEN 1740 1570 IF A$="1"THEN 2010 1580 IF A$="5"THEN 1620 1590 IF A$<>"0"THEN 1550 1600 LET CSEREP=0:GOTO 2340 1610 GOTO 1550 1620 PRINT :PRINT "5 LAPOT CSEREL: HA OK:/I/ HA NEM:/N/"; 1630 GET A$ 1640 IF A$="i"THEN 1670 1650 IF A$="n"THEN 1530 1660 GOTO 1630 1670 FOR H=1TO5 1680 LET JL(H)=LAPOT(0) 1690 CALL RAJZ(16,H*5-4,JL(H)) 1700 NEXT H 1710 LET CSEREP=5 1720 GOTO 2340 1730 END 1740 LET CSEREP=VAL(A$) 1750 SET #1:INK0:PRINT #1,AT23,1:"■■■■■■■■■■■■■■■■■■■■■■■■" 1760 PRINT :PRINT CSEREP;"LAPOT CSEREL MELYIK HELYETT ? SZAM"; 1770 FOR H=1TO3 1780 LET CSP(H)=0 1790 NEXT H 1800 FOR H=1TOCSEREP 1810 GET A$ 1820 LET POP=VAL(A$) 1830 IF POP<1ORPOP>5THEN 1810 1840 LET N=0 1850 FOR G=1TOH 1860 IF POP=CSP(G)THENLET N=1 1870 NEXT G 1880 IF N=1THEN 1750 1890 LET CSP(H)=POP 1900 SET #1:INK1:PRINT #1,AT23,POP*5-2:"■" 1910 NEXT H 1920 PRINT :PRINT "HA OK: /I/ HA NEM: /N/ "; 1930 GET A$ 1940 IF A$="n"THEN 1530 1950 IF A$<>"i"THEN 1930 1960 FOR H=1TOCSEREP 1970 LET JL(CSP(H))=LAPOT(0) 1980 CALL RAJZ(16,CSP(H)*5-4,JL(CSP(H))) 1990 NEXT H 2000 GOTO 2340 2010 LET CSEREP=1 2020 IF POR=0THEN 2170 2030 LET JEL=1 2040 PRINT :PRINT "KERI AZ EN PORGETETT LAPOM ? /I:N/"; 2050 GET A$ 2060 IF A$="i"THEN 2250 2070 IF A$<>"n"THEN 2050 2080 LET POKOR=23:CALL PORGEJ 2090 PRINT :PRINT "KERI A 2=IK PORGETETT LAPOT ? /I:N/"; 2100 GET A$ 2110 IF A$="i"THEN 2250 2120 IF A$<>"n"THEN 2100 2130 PRINT :PRINT "A CSUSZTATOTT LAPJAT ADOM : /SPACE/"; 2140 CALL SPACE 2150 CALL CSUSZ 2160 LET JEL=3:GOTO 2250 2170 CALL PORGEJ 2180 PRINT :PRINT "KERI A PORGETETT LAPOT ? /I:N/"; 2190 LET JEL=1 2200 GET A$ 2210 IF A$="i"THEN 2250 2220 IF A$<>"n"THEN 2200 2230 CALL CSUSZ 2240 LET JEL=3 2250 PRINT :PRINT "MIT DOB EL HELYETTE ? SZAM"; 2260 GET A$ 2270 LET IOP=VAL(A$) 2280 IF IOP<1ORIOP>5THEN 2260 2290 SET #1:INK0:PRINT #1,AT23,1:"■■■■■■■■■■■■■■■■■■■■■■■■" 2300 SET #1:INK1:PRINT #1,AT23,IOP*5-2:"■" 2310 LET JL(IOP)=POR 2320 CALL CLIR 2330 CALL RAJZ(16,IOP*5-4,POR) 2340 SET #1:INK3:PRINT #1,AT21,34:"■■■" 2350 SET #1:INK1:PRINT #1,AT21,34:CSEREP 2360 FOR JEL=1TO3 2370 CALL CLIR 2380 NEXT JEL 2390 CALL MUSIC 2400 GOSUB 4410 2410 FOR H=1TO5 2420 CALL RAJZ(1,H*5-4,GL(H)) 2430 NEXT 2440 IF LEVELP=LEVELGTHENGOSUB 2940 2450 IF LEVELP>LEVELGTHEN 2490 2460 IF LEVELP<LEVELGTHEN 2610 2470 CALL DON 2480 GOTO 2730 2490 CALL ON 2500 LET H=10 2510 LET PG=PG-1:LET H=H-1:LET PP=PP+1 2520 SET #1:INK3:PRINT #1,AT3,34:"■■■■" 2530 SET #1:INK1:PRINT #1,AT3,34:PG 2540 SET #1:INK3:PRINT #1,AT17,34:"■■■■" 2550 SET #1:INK1:PRINT #1,AT17,34:PP 2560 CALL BEEP 2570 IF PG=0THEN 2600 2580 IF H<>0THEN 2510 2590 GOTO 2730 2600 GOTO 2890 2610 CALL EN 2620 LET H=10 2630 LET PP=PP-1:LET H=H-1:LET PG=PG+1 2640 SET #1:INK3:PRINT #1,AT17,34:"■■■■" 2650 SET #1:INK1:PRINT #1,AT17,34:PP 2660 SET #1:INK3:PRINT #1,AT3,34:"■■■■" 2670 SET #1:INK1:PRINT #1,AT3,34:PG 2680 CALL BEEP 2690 IF PP=0THEN 2720 2700 IF H<>0THEN 2630 2710 GOTO 2730 2720 GOTO 2780 2730 PRINT :PRINT " UJ KEVERES /SPACE/"; 2740 CALL SPACE 2750 PRINT 2760 DISPLAY #1:AT1FROM1TO23 2770 GOTO 470 2780 CLEAR #3 2790 SET #3:INKRED 2800 PRINT #3,AT1,1:"\NNEK VEGE" 2810 DISPLAY #3:AT11FROM1TO2 2820 CALL HANGOK 2830 PRINT :PRINT " UJ JATSZMA ? /I:N/"; 2840 GET A$ 2850 IF A$="i"THENRUN 2860 IF A$<>"n"THEN 2840 2870 CLEAR FONT 2880 TEXT :STOP 2890 CLEAR #3 2900 SET #3:INKRED 2910 PRINT #3,AT1,1:"KIFOSZTOTT" 2920 DISPLAY #3:AT11FROM1TO2 2930 GOTO 2820 2940 IF LEVELP=5THENRETURN 2950 LET MED=1 2960 IF LEVELP=4THENLET MED=2 2970 IF LEVELP=6THENLET MED=2 2980 FOR H=1TOMED 2990 LET TIP=(6-GS(H,1))/(10^H) 3000 IF GS(H,1)=1THENLET TIP=0 3010 LET LEVELG=LEVELG+TIP 3020 LET TIP=(6-JS(H,1))/(10^H) 3030 IF JS(H,1)=1THENLET TIP=0 3040 LET LEVELP=LEVELP+TIP 3050 NEXT H 3060 RETURN 3070 RANDOMIZE 3080 CALL BACH(1) 3090 SET #1:INK1 3100 PRINT #1,AT11,28:"KEVEREK" 3110 FOR I=1TO40 3120 LET L(I)=I 3130 NEXT 3140 FOR K=1TO160 3150 LET V1=RND(40)+1:LET V2=RND(40)+1 3160 LET B=L(V1):LET L(V1)=L(V2):LET L(V2)=B 3170 NEXT 3180 SET #1:INK0 3190 PRINT #1,AT11,28:"■■■■■■■" 3200 RETURN 3210 !SET £1:INK 1:PRINT £1,AT 11,24:"GONDOLKOZOM" 3220 FOR H=1TO5 3230 LET EG(H)=0 3240 NEXT H 3250 FOR H=1TO5 3260 LET EG(REM(GL(H),5)+1)=EG(REM(GL(H),5)+1)+1 3270 NEXT H 3280 FOR H=1TO5 3290 LET GS(H,0)=EG(H) 3300 NEXT H 3310 FOR H=1TO4 3320 FOR Q=4TOHSTEP-1 3330 IF GS(Q+1,0)<=GS(Q,0)THEN 3350 3340 LET D=GS(Q+1,0):LET GS(Q+1,0)=GS(Q,0):LET GS(Q,0)=D 3350 NEXT Q 3360 NEXT H 3370 LET H=1 3380 LET D=1 3390 IF GS(H,0)<>EG(D)THEN 3420 3400 LET GS(H,1)=D:LET EG(D)=EG(D)*10 3410 GOTO 3440 3420 LET D=D+1 3430 IF D<6THEN 3390 3440 LET H=H+1 3450 IF H>5ORGS(H,0)=0THEN 3470 3460 GOTO 3380 3470 ! KIERTEKELES 3480 ON GS(1,0)GOTO 3490, 3590, 3620, 3650, 3660 3490 FOR H=1TO5 3500 IF REM(GL(H),5)=1THENLET U=GL(H) 3510 NEXT H 3520 LET Z=0 3530 FOR H=1TO5 3540 IF GL(H)<UORGL(H)>U+4THENLET Z=1 3550 NEXT H 3560 IF Z=0THENLET LEVELG=8 3570 IF Z=1THENLET LEVELG=5 3580 GOTO 3670 3590 IF GS(2,0)=2THEN 3610 3600 LET LEVELG=1:GOTO 3670 3610 LET LEVELG=2:GOTO 3670 3620 IF GS(2,0)=2THEN 3640 3630 LET LEVELG=3:GOTO 3670 3640 LET LEVELG=4:GOTO 3670 3650 LET LEVELG=6:GOTO 3670 3660 LET LEVELG=7 3670 REM 3680 IF CSEREG<>4THENRETURN 3690 LET ESET=3 3700 ON LEVELGGOSUB 3720, 3890, 4030, 4150, 4250, 4300, 4370, 4390 3710 RETURN 3720 IF RND(6)>1THEN 3800 3730 LET CSEREG=3 3740 LET G=0 3750 FOR H=1TO5 3760 IF REM(GL(H),5)+1=GS(1,1)THEN 3780 3770 LET G=G+1:LET CSG(G)=H 3780 NEXT H 3790 RETURN 3800 LET CSEREG=1 3810 FOR H=1TO5 3820 IF REM(GL(H),5)+1=GS(1,1)THENLET MIT=H 3830 NEXT H 3840 FOR H=1TO5 3850 IF EG(H)=0THENLET MIR1=H 3860 NEXT H 3870 LET MIR2=MIR1 3880 RETURN 3890 IF RND(7)>1THEN 3970 3900 LET G=0 3910 LET CSEREG=3 3920 FOR H=1TO5 3930 IF REM(GL(H),5)+1=GS(1,1)THEN 3950 3940 LET G=G+1:LET CSG(G)=H 3950 NEXT H 3960 RETURN 3970 LET CSEREG=1 3980 FOR H=1TO5 3990 IF REM(GL(H),5)+1=GS(3,1)THENLET MIT=H 4000 NEXT H 4010 LET MIR1=GS(1,1):LET MIR2=GS(2,1) 4020 RETURN 4030 IF RND(5)>1THEN 4110 4040 LET CSEREG=2 4050 LET G=0 4060 FOR H=1TO5 4070 IF REM(GL(H),5)+1=GS(1,1)THEN 4090 4080 LET G=G+1:LET CSG(G)=H 4090 NEXT H 4100 RETURN 4110 LET CSEREG=1 4120 LET MIR1=GS(1,1):LET MIR2=GS(2,1):LET MIR3=GS(3,1) 4130 LET ESET=2 4140 RETURN 4150 IF RND(1)=1THEN 4180 4160 LET CSEREG=0 4170 RETURN 4180 LET CSEREG=1 4190 LET MIR1=GS(1,1):LET MIR2=GS(2,1) 4200 FOR H=1TO5 4210 IF REM(GL(H),5)+1=GS(1,1)THEN 4230 4220 LET MIT=H 4230 NEXT H 4240 RETURN 4250 IF RND(1)=1THEN 4280 4260 LET CSEREG=0 4270 RETURN 4280 LET ESET=0:LET CSEREG=1 4290 RETURN 4300 LET CSEREG=1 4310 FOR H=1TO5 4320 IF REM(GL(H),5)+1=GS(1,1)THEN 4340 4330 LET MIT=H 4340 NEXT H 4350 LET MIR1=GS(1,1):LET MIR2=MIR1 4360 RETURN 4370 LET CSEREG=0 4380 RETURN 4390 LET CSEREG=0 4400 RETURN 4410 !SET £1:INK 1:PRINT £1,AT 11,24:"GONDOLKOZOM" 4420 FOR H=1TO5 4430 LET EP(H)=0 4440 NEXT H 4450 FOR H=1TO5 4460 LET EP(REM(JL(H),5)+1)=EP(REM(JL(H),5)+1)+1 4470 NEXT H 4480 FOR H=1TO5 4490 LET JS(H,0)=EP(H) 4500 NEXT H 4510 FOR H=1TO4 4520 FOR Q=4TOHSTEP-1 4530 IF JS(Q+1,0)<=JS(Q,0)THEN 4550 4540 LET D=JS(Q+1,0):LET JS(Q+1,0)=JS(Q,0):LET JS(Q,0)=D 4550 NEXT Q 4560 NEXT H 4570 LET H=1 4580 LET D=1 4590 IF JS(H,0)<>EP(D)THEN 4620 4600 LET JS(H,1)=D:LET EP(D)=EP(D)*10 4610 GOTO 4640 4620 LET D=D+1 4630 IF D<6THEN 4590 4640 LET H=H+1 4650 IF H>5ORJS(H,0)=0THEN 4670 4660 GOTO 4580 4670 ! KIERTEKELES 4680 ON JS(1,0)GOTO 4690, 4790, 4820, 4850, 4860 4690 FOR H=1TO5 4700 IF REM(JL(H),5)=1THENLET U=JL(H) 4710 NEXT H 4720 LET Z=0 4730 FOR H=1TO5 4740 IF JL(H)<UORJL(H)>U+4THENLET Z=1 4750 NEXT H 4760 IF Z=0THENLET LEVELP=8 4770 IF Z=1THENLET LEVELP=5 4780 GOTO 4870 4790 IF JS(2,0)=2THEN 4810 4800 LET LEVELP=1:GOTO 4870 4810 LET LEVELP=2:GOTO 4870 4820 IF JS(2,0)=2THEN 4840 4830 LET LEVELP=3:GOTO 4870 4840 LET LEVELP=4:GOTO 4870 4850 LET LEVELP=6:GOTO 4870 4860 LET LEVELP=7 4870 RETURN 4880 STOP 4890 DEF BEEP 4900 ENVELOPE NUMBER13;0,63,63,1;0,-50,-50,4;0,-23,-23,30 4910 SOUND PITCH70,LEFT255,RIGHT255,ENVELOPE13,DURATION10 4920 END DEF 4930 DEF DON 4940 CLEAR #3 4950 SET #3:INKCYAN 4960 PRINT #3,AT1,1:"D\NTETLEN" 4970 DISPLAY #3:AT11FROM1TO2 4980 END DEF 4990 DEF ON 5000 CLEAR #3 5010 SET #3:INKYELLOW 5020 PRINT #3,AT1,1:"\N GY\Z\TT" 5030 DISPLAY #3:AT11FROM1TO2 5040 END DEF 5050 DEF EN 5060 CLEAR #3 5070 SET #3:INKGREEN 5080 PRINT #3,AT1,1:" GY\ZTEM" 5090 DISPLAY #3:AT11FROM1TO2 5100 END DEF 5110 DEF HANGOK 5120 CALL BACH(2) 5130 CALL BACH(2) 5140 CALL HAPPY 5150 CALL MUSIC 5160 ENVELOPE NUMBER15;0,63,63,1;70,63,63,70 5170 FOR H=1TO3 5180 SOUND PITCH1,LEFT255,RIGHT255,DURATION71,ENVELOPE15 5190 NEXT H 5200 FOR J=0TO3 5210 FOR H=0TO255 5220 SET BORDERH 5230 NEXT H 5240 NEXT J 5250 END DEF 5260 FOR J=33TO46 5270 READ A,B,C,D,E,F,G,H,I 5280 SET CHARACTERJ,BIN(A),BIN(B),BIN(C),BIN(D),BIN(E),BIN(F),BIN(G),BIN(H),BIN(I) 5290 NEXT J 5300 FOR J=94TO125 5310 READ A,B,C,D,E,F,G,H,I 5320 SET CHARACTERJ,BIN(A),BIN(B),BIN(C),BIN(D),BIN(E),BIN(F),BIN(G),BIN(H),BIN(I) 5330 NEXT J 5340 FOR J=129TO149 5350 READ A,B,C,D,E,F,G,H,I 5360 SET CHARACTERJ,BIN(A),BIN(B),BIN(C),BIN(D),BIN(E),BIN(F),BIN(G),BIN(H),BIN(I) 5370 NEXT J 5380 RETURN 5390 DATA 1001100,11010010,1010010,1010010,1010010,1010010,1001100,0,0 5400 DATA 0,0,0110010,1001010,1001010,1001010,1001010,1001011,110010 5410 DATA 0,0,111110,1100110,1100110,111110,1100110,1100110,1111110 5420 DATA 111100,1100110,1100010,1011010,1000110,1100110,111100,0,0 5430 DATA 0,0,111100,1100110,1100010,1011010,1000110,1100110,111100 5440 DATA 0,0,1100110,110110,11110,1110,11110,110110,1100110 5450 DATA 0,0,1100110,1100110,1111110,1100110,1100110,111100,11000 5460 DATA 0,0,0,0,0,1111,111111,1111111,1111111 5470 DATA 0,0,0,0,0,11110000,11111100,11111110,11111110 5480 DATA 11111110,11111110,11111100,11110000,0,0,0,0,0 5490 DATA 1111111,1111111,111111,1111,0,0,0,0,0 5500 DATA 0,0,0,0,0,11111111,11111111,11111111,11111111 5510 DATA 11111111,11111111,11111111,11111111,0,0,0,0,0 5520 DATA 11001100,11001100,110011,110011,10101010,11001100,11001100,110011,110011 5530 DATA 110110,1111111,1111111,111110,11100,11100,1000,0,0 5540 DATA 0,0,10000,111000,111000,1111100,11111110,11111110,1101100 5550 DATA 1000,11100,111110,1111111,111110,11100,1000,0,0 5560 DATA 0,0,10000,111000,1111100,11111110,1111100,111000,10000 5570 DATA 1000,11100,111110,1111111,1111111,110110,1000,1000,0 5580 DATA 0,10000,10000,1101100,11111110,11111110,1111100,111000,10000 5590 DATA 11100,11100,1000,1101011,1111111,1101011,1000,11100,0 5600 DATA 0,111000,10000,11010110,11111110,11010110,10000,111000,111000 5610 DATA 1001,101,11,10,1000111,1000010,1000011,1000011,1000101 5620 DATA 1001000,1010000,11100000,10100000,1100000,1010000,101000,11010000,1011000 5630 DATA 1000001,1000011,1000010,11100010,1111010,1111111,111111,111,11010 5640 DATA 1100000,11110000,11111000,11101000,11111000,11101100,11010100,11101100,10010100 5650 DATA 00101001,110111,101011,110111,11111,10111,11111,1111,110 5660 DATA 1011000,11100000,11111100,11111110,1011110,1000111,1000010,11000010,10000010 5670 DATA 11010,1011,10100,1010,110,101,111,1010,10010 5680 DATA 10100010,11000010,11000010,1000010,11100010,1000000,11000000,10100000,10010000 5690 DATA 1001,101,11,100,1110,10100,1101,110011,101 5700 DATA 100000,1000000,10000000,1000000,11100000,1010000,1100000,10011000,1000101 5710 DATA 11100,111000,1011111,1011101,1011010,1011101,1011010,10110101,10110110 5720 DATA 01110010,110101,11111010,1110111,10111010,1110010,10111010,1111110,10111110 5730 DATA 1111101,1111110,1011101,1001110,1011101,11101110,1011111,10101100,1001110 5740 DATA 1101101,10101101,1011010,10111010,1011010,10111010,11111010,11100,111000 5750 DATA 10100010,11001,110,1010,111,10,1,10,100 5760 DATA 10100000,11001100,10110000,101000,1110000,100000,11000000,10100000,10010000 5770 DATA 11,111,1111,10,11,110,1010,110,1001 5780 DATA 1100000,11110000,11111000,100000,1100000,110000,10101000,111000,11011100 5790 DATA 10,11110,10001,100000,100000,100000,100100,11001000,1111 5800 DATA 1101010,1101010,10101010,1111111,1001001,1001001,1001001,1111111,11001001 5810 DATA 10010011,11111110,10010010,10010010,10010010,11111110,1010101,1010110,1010110 5820 DATA 11110000,10011,100100,100,100,100,1000,1111000,1000000 5830 DATA 111011,11100,10101,1100,110,100,11111,1111,110 5840 DATA 10010000,1100000,1010000,1100000,11000000,1000000,11110000,11100000,11000000 5850 DATA 0,1,11,111,1111,11111,111111,1111111,11111111 5860 DATA 0,10000000,11000000,11100000,11110000,11111000,11111100,11111110,11111111 5870 DATA 11111111,1111111,111111,11111,1111,111,11,1,0 5880 DATA 11111111,11111110,11111100,11111000,11110000,11100000,11000000,10000000,0 5890 DATA 1,11,111,111,11,1,110001,1111001,11111111 5900 DATA 10000000,11000000,11100000,11100000,11000000,10000000,10001100,10011110,11111111 5910 DATA 11111111,1111001,110001,1,1,1,111,111,0 5920 DATA 11111111,10011110,10001100,10000000,10000000,10000000,11100000,11100000,0 5930 DATA 1,1,11,111,1111,11111,111111,1111111,1111111 5940 DATA 10000000,10000000,11000000,11100000,11110000,11111000,11111100,11111110,11111110 5950 DATA 11111111,11111111,1111111,1111111,111001,1,1,1,1 5960 DATA 11111111,11111111,11111110,11111110,10011100,10000000,10000000,10000000,10000000 5970 DATA 0,0,1100,111100,111110,1111110,11111111,11111111,11111111 5980 DATA 0,0,11000,111110,1111110,1111111,11111111,11111111,11111111 5990 DATA 1111111,111111,11111,1111,111,11,11,1,1 6000 DATA 11111110,11111100,11111000,11110000,11100000,11000000,11000000,10000000,10000000 6010 DATA 111,100,100,100,1000,1111,10000,10010000,01100000 6020 DATA 11000000,100000,100000,100000,1001110,11110001,100001,1000001,111110 6030 DATA 10000,10000,100000,100010,100100,1111000,11100001,1111001,10000110 6040 DATA 0,0,0,10000,1101000,10001001,110001,11000001,11111110 6050 DATA 0,0,0,10011110,11100001,101,010,0,0 6060 DEF ZENE(SZ) 6070 ON SZGOTO 6080, 6100, 6120, 6140, 6160, 6180 6080 RESTORE 6290 6090 GOTO 6200 6100 RESTORE 6330 6110 GOTO 6200 6120 RESTORE 6370 6130 GOTO 6200 6140 RESTORE 6380 6150 GOTO 6200 6160 RESTORE 6390 6170 GOTO 6200 6180 RESTORE 6400 6190 ! 6200 ENVELOPE NUMBER1;0,43,43,1;0,-20,-20,10;0,-23,-23,50 6210 FOR I=0TO22 6220 READ M,H 6230 IF M=0THEN 6270 6240 SOUND SOURCE0,DURATIONH*8,PITCHM+24,ENVELOPE1,LEFT255,RIGHT255 6250 SOUND SOURCE1,DURATIONH*8,PITCHM+12,ENVELOPE1,LEFT255,RIGHT255 6260 GOTO 6280 6270 SOUND SOURCE2,DURATIONH*8,LEFT0,RIGHT0 6280 NEXT I 6290 DATA 37,1,42,2,41,1,42,1,44,2,42,1,44,1 6300 DATA 46,2,47,1,46,1,39,2,44,1,44,1 6310 DATA 42,2,42,1,42,1,41,2,39,1,41,1,42,8 6320 DATA 0,1,0,1,0,1 6330 DATA 37,1,37,1,42,2,41,1,42,1,44,2,42,1,44,1 6340 DATA 46,2,47,1,46,1,39,2,44,1,44,1 6350 DATA 42,2,42,1,42,1,41,1,39,1,41,2,42,8 6360 DATA 0,1,0,1 6370 DATA 46,1,47,1,49,2,46,1,44,1,42,2,41,1,42,1,44,1,42,1,41,1,39,1,37,1,46,1,47,1,49,2,46,1,44,1,42,1,42,1,41,1,42,1,44,8 6380 DATA 37,1,37,1,42,2,0,2,44,2,0,2,46,1,46,1,46,1,47,1,46,1,39,2,44,1,44,1,42,4,41,4,42,8,0,1,0,1,0,1,0,1,0,1,0,1 6390 DATA 37,1,37,1,42,2,37,1,37,1,39,2,37,1,37,1,34,1,37,1,37,2,0,3,37,1,42,2,37,1,37,1,39,2,37,1,37,1,34,1,37,1,37,4,0,1 6400 DATA 37,1,37,1,42,2,0,2,44,2,0,2,46,1,46,1,46,1,47,1,46,1,39,2,44,2,44,2,42,4,41,4,42,8,0,1,0,1,0,1,0,1,0,1,0,1 6410 END DEF 6420 DEF RAJZ(Y,X,M) 6430 SET #1:INK1 6440 PRINT #1,ATY,X:"(,,)" 6450 FOR I=Y+1TOY+4 6460 PRINT #1,ATI,X:"■■■■" 6470 NEXT I 6480 PRINT #1,ATI,X:"+--*" 6490 IF M=0THEN 7150 6500 IF M>20THENLET M=M-20 6510 LET A=INT((M+4)/5) 6520 ON AGOSUB 6950, 7000, 7050, 7100 6530 SET #1:INK3 6540 LET A=REM(M,5)+1 6550 ON AGOSUB 6570, 6800, 6690, 6750, 6640 6560 GOTO 7190 6570 SET #1:INK3:PRINT #1,ATY+1,X+3:"!" 6580 SET #1:INKIN:PRINT #1,ATY+2,X+1:Y$;Y$ 6590 PRINT #1,ATY+3,X+1:Z$;Z$ 6600 SET #1:INK3:PRINT #1,ATY+4,X:CHR$(34) 6610 RETURN 6620 ! 6630 ! 6640 PRINT #1,ATY+1,X+1:"vw";"B" 6650 PRINT #1,ATY+2,X+1:"xy" 6660 PRINT #1,ATY+3,X+1:"z{" 6670 PRINT #1,ATY+4,X:"£";"|}" 6680 RETURN 6690 PRINT #1,ATY+1,X+1:"fg";"K" 6700 PRINT #1,ATY+2,X+1:"hi" 6710 PRINT #1,ATY+3,X+1:"jk" 6720 PRINT #1,ATY+4,X:"&";"lm" 6730 RETURN 6740 ! 6750 PRINT #1,ATY+1,X+1:"no";"$" 6760 PRINT #1,ATY+2,X+1:"pq" 6770 PRINT #1,ATY+3,X+1:"rs" 6780 PRINT #1,ATY+4,X:"%";"tu" 6790 RETURN 6800 PRINT #1,ATY+1,X+3:"A" 6810 PRINT #1,ATY+4,X:"'" 6820 LET A=INT((M+4)/5) 6830 ON AGOSUB 6870, 6890, 6910, 6930 6840 SET #1:INKIN:PRINT #1,ATY+2,X+1:Y$ 6850 PRINT #1,ATY+3,X+1:Z$ 6860 RETURN 6870 LET Y$="Ω▮":LET Z$="ƒπ":LET IN=2 6880 RETURN 6890 LET Y$="#Ä":LET Z$="ÖÜ":LET IN=2 6900 RETURN 6910 LET Y$="Çà":LET Z$="↑→":LET IN=3 6920 RETURN 6930 LET Y$="ÅØ":LET Z$="Æé":LET IN=3 6940 RETURN 6950 LET IN=2:SET #1:INKIN 6960 PRINT #1,ATY+1,X:"^" 6970 PRINT #1,ATY+4,X+3:"_" 6980 LET Y$="^":LET Z$="_" 6990 RETURN 7000 LET IN=2:SET #1:INKIN 7010 PRINT #1,ATY+1,X:"`" 7020 PRINT #1,ATY+4,X+3:"a" 7030 LET Y$="`":LET Z$="a" 7040 RETURN 7050 LET IN=3:SET #1:INKIN 7060 PRINT #1,ATY+1,X:"b" 7070 PRINT #1,ATY+4,X+3:"c" 7080 LET Y$="b":LET Z$="c" 7090 RETURN 7100 LET IN=3:SET #1:INKIN 7110 PRINT #1,ATY+1,X:"d" 7120 PRINT #1,ATY+4,X+3:"e" 7130 LET Y$="d":LET Z$="e" 7140 RETURN 7150 SET #1:INK3 7160 FOR I=Y+1TOY+4 7170 PRINT #1,ATI,X+1:".." 7180 NEXT I 7190 END DEF 7200 DEF KEP 7210 SET #1:PALETTEBLUE,BLUE,BLUE,BLUE 7220 DISPLAY #1:AT1FROM1TO23 7230 SET #1:INK3 7240 FOR I=1TO8 7250 PRINT #1,ATI,26:"■■■■■■■■■■■■■■■"; 7260 NEXT I 7270 SET #1:INK1 7280 PLOT #1:802,827;802,538;1279,538 7290 SET #1:INK3 7300 FOR I=15TO23 7310 PRINT #1,ATI,26:"■■■■■■■■■■■■■■■"; 7320 NEXT I 7330 SET #1:INK1 7340 PLOT #1:802,0;802,328;1279,328 7350 CALL RAJZ(9,36,0) 7360 SET #1:INK1 7370 PRINT #1,AT1,28:"Σäöüå MESTER" 7380 PRINT #1,AT15,28:" JATEKOS " 7390 SET #1:INK2 7400 PRINT #1,AT3,27:" PENZ: ";PG 7410 PRINT #1,AT17,27:" PENZ: ";PP 7420 SET #1:INK0 7430 PRINT #1,AT5,27:" TET : ";TG 7440 PRINT #1,AT19,27:" TET : ";TP 7450 SET #1:INK2 7460 PRINT #1,AT7,27:" CSERE:";CSEREG 7470 PRINT #1,AT21,27:" CSERE:";CSEREP 7480 SET #1:INK2 7490 FOR H=1TO5 7500 PRINT #1,AT22,H*5-3:H 7510 NEXT H 7520 SET #1:PALETTEBLUE,WHITE,RED,BLACK 7530 END DEF 7540 DEF LAPOT(Q) 7550 LET N=N+1 7560 LET LAPOT=L(N) 7570 END DEF 7580 DEF SPACE 7590 IF INKEY$<>" "THEN 7590 7600 END DEF 7610 DEF PORGEG 7620 LET POR=LAPOT(0) 7630 CALL HAPPY 7640 PRINT :PRINT "PORGETETTET KEREK : /SPACE/"; 7650 CALL RAJZ(9,30,POR) 7660 CALL SPACE 7670 END DEF 7680 DEF PORGETORL 7690 SET #1:INK0 7700 PRINT #1,AT9,30:",,,," 7710 FOR H=1TO4 7720 PRINT #1,AT9+H,30:"■■■■" 7730 NEXT H 7740 PRINT #1,AT14,30:"----" 7750 END DEF 7760 DEF HAPPY 7770 RESTORE 7850 7780 ! CLEAR SOUND 7790 ENVELOPE NUMBER10;0,63,63,1;0,-43,-43,4;0,0,0,100 7800 FOR SA=1TO15 7810 READ M1,H1 7820 SOUND SOURCE2,PITCHM1+36,DURATIONH1*5,ENVELOPE10,LEFT200,RIGHT100 7830 SOUND SOURCE0,PITCHM1+36,DURATIONH1*5,ENVELOPE10,LEFT100,RIGHT200,STYLE160 7840 NEXT SA 7850 DATA 49,1,51,2,49,1,46,2,54,2,51,2,49,1,49,4,49,1,51,1,49,1,51,1,49,2,54,2,53,4 7860 END DEF 7870 DEF PORGEJ 7880 CALL HAPPY 7890 IF POR=0THEN 7920 7900 LET POR=LAPOT(0):CALL RAJZ(9,24,POR) 7910 GOTO 7930 7920 LET POR=LAPOT(0):CALL RAJZ(9,30,POR) 7930 END DEF 7940 DEF CSUSZ 7950 LET POR=LAPOT(0) 7960 CALL RAJZ(9,18,POR) 7970 END DEF 7980 DEF CLIR 7990 ON JELGOSUB 8000, 8020, 8030 8000 CALL PORGETORL 8010 GOTO 8030 8020 LET YA=24:GOTO 8040 8030 LET YA=18 8040 SET #1:INK0 8050 PRINT #1,AT9,YA:",,,," 8060 FOR H=10TO13 8070 PRINT #1,ATH,YA:"■■■■" 8080 NEXT H 8090 PRINT #1,AT14,YA:"----" 8100 END DEF 8110 DEF MUSIC 8120 RESTORE 8200 8130 ENVELOPE NUMBER6;0,63,63,1;0,-30,-30,2;0,-20,-20,5;0,0,0,30 8140 ENVELOPE NUMBER4;0,63,63,1;0,-20,-20,1;0,0,0,30 8150 FOR H=1TO5 8160 READ M,G 8170 SOUND PITCHM-12,DURATIONG*3,LEFT10,RIGHT150,ENVELOPE4 8180 SOUND SOURCE2,DURATIONG*3,PITCHM-36,LEFT200,RIGHT50,ENVELOPE4,STYLE128 8190 NEXT H 8200 DATA 46,6,39,2,43,2,46,2,44,8 8210 END DEF 8220 DEF BACH(X) 8230 IF X=1THEN 8260 8240 RESTORE 8350 8250 GOTO 8270 8260 RESTORE 8380 8270 ENVELOPE NUMBER8;0,60,60,1;0,-20,-20,2;0,-10,-10,1;0,-10,-10,10;0,0,0,20 8280 ENVELOPE NUMBER9;0,60,60,1;0,-10,-10,2;0,0,0,1;0,-10,-10,10;0,0,0,30 8290 READ H,ST,O1,O2,DU 8300 FOR G=1TOH 8310 READ M,H 8320 SOUND PITCHM+O1,DURATIONH*DU,LEFT40,RIGHT200,ENVELOPE8 8330 SOUND PITCHM+O2,DURATIONH*DU,LEFT200,RIGHT40,ENVELOPE9,SOURCE2,STYLEST 8340 NEXT G 8350 DATA 29,0,-24,-36,4 8360 DATA 39,4,44,4,46,4,48,4,49,8,46,4,48,4,44,4,46,4,44,2,43,2,41,2,39,2,41,2,42,2 8370 DATA 44,4,46,4,48,4,49,4,46,2,44,1,46,1,48,4,44,2,43,1,44,1,46,4,43,4,44,8 8380 DATA 64,0,+24,-24,4 8390 DATA 34,20,46,2,46,1,46,1,46,2,46,1,46,1,46,2,39,2,42,2,46,2 8400 DATA 44,2,44,1,44,1,44,2,44,1,44,1,44,2,37,2,41,2,44,2 8410 DATA 46,2,46,1,46,1,46,2,46,1,46,1,46,2,48,2,49,2,51,2 8420 DATA 49,2,46,2,44,2,41,2,39,4,39,4,46,4,46,3,46,1 8430 DATA 46,2,39,2,42,2,46,2,44,4,44,3,44,1 8440 DATA 44,2,37,2,41,2,44,2,46,4,46,3,46,1 8450 DATA 46,2,48,2,49,2,51,2,49,2,46,2,44,2,41,2,39,4,39,4 8460 END DEF

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