100 TIME "00:00:00"
  110 STRING Q$*120
  120 STRING X$(10,20)*1
  130 DIM PIP(20)
  140 DIM MSC(128)
  150 FOR X=1TO20
  160   LET PIP(X)=0
  170 NEXT X
  180 CALL MUSINIT
  190 ! back to menu
  200 SET STATUSOFF
  210 LET MUSCO=1
  220 ENVELOPE NUMBER1;0,63,63,1;-1,-30,-30,1;1,-30,-30,5
  230 ENVELOPE NUMBER2;1,63,63,1;5,-10,-10,1;1,-40,-40,10
  231 ! 3 es 4 a zene
  240 ENVELOPE NUMBER3;0,63,23,1;0,-20,-10,1;0,-40,-40,15
  241 ENVELOPE NUMBER4;0,23,63,1;0,-10,-20,2;0,-40,-40,25
  242 ENVELOPE NUMBER10;0,63,63,5;-5,-30,-30,5;5,-30,-30,5
  243 ENVELOPE NUMBER11;0,63,63,1;0,-30,-30,2;5,-30,-30,20
  244 CLEAR SOUND
  245 SOUND PITCH40,ENVELOPE4,DURATION30
  246 SOUND PITCH46,ENVELOPE4,DURATION30
  247 SOUND PITCH52,ENVELOPE4,DURATION30
  250 TEXT 40
  260 SET BORDER64
  270 LET JO=0
  280 !poke 49144,201
  290 SET KEYCLICKOFF
  300 !SET INTERRUPT STOP OFF
  310 LET PO=7:LET LEV=0
  320 CALL MENU
  330 GRAPHICS HIRES16
  340 CALL HUDINIT
  350 !SET #102:PALETTE 64,64,64,64,64
  360 CALL FONT3
  370 LET I=1:LET GI=-1:LET MI=0:LET TAI=1
  380 !next level
  390 LET MOR=120
  400 CLEAR GRAPHICS:LET LEV=LEV+1
  410 SET LINEMODE3
  420 CALL LEVRESTORE
  430 LET VAN=0:LET FEL=0:LET BBB=0
  440 SET PALETTE64
  450 SET BIAS255
  460 !CALL RASZT
  470 SET PALETTE64,192,248,7,56,199,255,192
  480 CALL HUD
  490 FOR X=1TO10
  500   READ A$
  510   SET INK4
  520   SET CHARACTERORD("▮"),66,209,57,115,121,83,1,171,126
  530   SET CHARACTERORD("■"),238,136,136,0,238,136,136,0,0
  540   SET CHARACTER32,0,62,104,64,96,64,96,64
  550   SET CHARACTERORD("π"),66,66,66,66,66,66,66,66,66
  560   PRINT #101,ATX,1:A$
  570   SET INK2
  580   SET CHARACTERORD("π"),66,126,66,66,126,66,66,126,66
  590   SET CHARACTER255,255,234,132,30,21,1
  600   SET CHARACTERORD("▮"),60,126,254,252,254,252,254,84,0
  610   SET CHARACTERORD("■"),255,255,238,204,255,255,238,204,0
  620   SET CHARACTER32,0
  630   PRINT #101,ATX,1:A$
  640   FOR Y=1TO20
  650     LET X$(X,Y)=A$(Y)
  660     IF X$(X,Y)=" "THEN 760
  670     IF X$(X,Y)="☀"THENSET INK6:PRINT #101,ATX,Y:"☀":LET X$(X,Y)=" ":LET A=X:LET S=Y:GOTO  760
  680     IF X$(X,Y)="■"THENLET VAN=VAN+1:SET INK3:PRINT #101,ATX,Y:"■":GOTO  760
  690     IF X$(X,Y)="π"THENSET INK8:PRINT #101,ATX,Y:"π":GOTO  760
  700     IF X$(X,Y)="Σ"THENLET TA1=X:LET TA2=Y:GOTO  760
  710     IF X$(X,Y)="à"THENLET K1=X:LET K2=Y:LET X$(X,Y)=" ":GOTO  760
  720     IF X$(X,Y)="ƒ"THENLET MA=X:LET M=Y:LET X$(X,Y)=" ":GOTO  760
  730     IF X$(X,Y)="Ç"THENLET GA=X:LET G=Y:LET X$(X,Y)=" ":GOTO  760
  740     IF X$(X,Y)="→"THENLET NY=X:LET N=Y:LET X$(X,Y)=" "
  750     IF X$(X,Y)="Å"THENSET INK1:PRINT #101,ATX,Y:"Å"
  760   NEXT 
  770 NEXT 
  780 LET KEZA=A:LET KEZS=S
  790 SET INK6
  800 PRINT #101,ATK1,K2:"à":PRINT #101,ATGA,G:"Ç":PRINT #101,ATNY,N:"→":PRINT #101,ATMA,M:"ƒ":PRINT #101,ATTA1,TA2:"Σ":LET TAI=1
  810 !LET A=3:LET S=19
  820 SET INK9:PRINT #101,ATMA,M:"ƒ"
  830 SET INK11:PRINT #101,ATGA,G:"Ç"
  840 SET INK10:PRINT #101,ATNY,N:"→"
  850 !SET INK 13:PRINT #101,AT TA1,TA2:"Σ"
  860 !SET INK 6:PRINT #101,AT A,S:"☀"
  870 CALL RASZT
  880 LET A=KEZA:LET S=KEZS:CALL EMB
  890 !SET INK 15
  900 IF GA=AANDG=STHEN 1640
  910 FOR X=0TO40
  920   LET JOJ=JOY(0)
  930   IF JOJ<>0THENEXIT FOR
  940 NEXT X
  950 IF INKEY$=CHR$(27)THENGOTO  1770
  960 IF NY=AANDN=STHEN 1640
  970 IF MA=AANDM=STHEN 1640
  980 IF JOJBAND4ANDX$(A+1,S)="π"THENCALL EMB:LET A=A+1:CALL EMB:GOTO  1020
  990 IF JOJBAND8ANDX$(A-1,S)="π"THENCALL EMB:LET A=A-1:CALL EMB:GOTO  1020
 1000 IF JOJBAND2ANDX$(A,S-1)<>"ƒ"ANDX$(A,S-1)<>"▮"THENCALL EMB:LET S=S-1:CALL EMB:GOTO  1020
 1010 IF JOJBAND1ANDX$(A,S+1)<>"ƒ"ANDX$(A,S+1)<>"▮"THENCALL EMB:LET S=S+1:CALL EMB:GOTO  1020
 1020 IF X$(A+1,S)=" "THENCALL EMB:LET A=A+1:CALL EMB
 1030 IF X$(A+1,S)="↑"THENGOTO  1640
 1040 IF X$(A,S)="Å"THEN
 1050   CALL HUDRE:LET MOR=MOR+1:CALL HUDRE
 1060 ELSE 
 1070   CALL HUDRE:LET MOR=MOR-1:CALL HUDRE
 1080 END IF 
 1090 IF INKEY$="Ö"THENLET BBB=1
 1100 IF BBB=1ANDK1=AANDK2=STHENLET PIP(LEV)=1:CLOSE #1:GOTO  190
 1110 IF X$(A+1,S)="■"THENLET X$(A+1,S)="-":SET INK10:PRINT #101,ATA+1,S:"æ":LET FEL=FEL+1:CALL VIZS
 1120 IF JOJBAND16ANDX$(A+1,S)<>" "THEN 1270
 1130 IF GA=AANDG=STHEN 1640
 1140 IF NY=AANDN=STHEN 1640
 1150 IF MA=AANDM=STHEN 1640
 1160 IF TA1>A-1ANDTA2=STHEN 1640
 1170 CALL MANO
 1180 CALL GOL
 1190 CALL TAPOS
 1200 CALL NYI
 1210 CALL MUS
 1220 GOTO  900
 1230 DEF EMB
 1240   SET INK15
 1250   PRINT #101,ATA,S:"☀"
 1260 END DEF 
 1270 SOUND SOURCE2,ENVELOPE2,DURATION10,PITCH25
 1280 IF MA=AANDM=STHEN 1640
 1290 IF X$(A-1,S)=" "ORX$(A-1,S)="■"ORX$(A-1,S)="-"THENCALL EMB:LET A=A-1:CALL EMB
 1300 IF GA=AANDG=STHEN 1640
 1310 IF NY=AANDN=STHEN 1640
 1320 IF MA=AANDM=STHEN 1640
 1330 IF X$(A-1,S)=" "ORX$(A-1,S)="■"ORX$(A-1,S)="-"THENCALL EMB:LET A=A-1:CALL EMB
 1340 GOTO  1130
 1350 DEF MANO
 1360   SET INK9
 1370   PRINT #101,ATMA,M:"ƒ"
 1380   LET M=M+I
 1390   IF X$(MA+1,M+I)=" "THENLET I=-I
 1400   PRINT #101,ATMA,M:"ƒ"
 1410 END DEF 
 1420 DEF GOL
 1430   SET INK11
 1440   PRINT #101,ATGA,G:"Ç"
 1450   LET GA=GA+GI
 1460   IF X$(GA+GI,G)<>" "THENLET GI=-GI:SOUND ENVELOPE1,SOURCE2,DURATION6,STYLE77,PITCH55+RND(10),LEFT40,RIGHT40
 1470   PRINT #101,ATGA,G:"Ç"
 1490 END DEF 
 1500 DEF NYI
 1510   SET INK10
 1520   PRINT #101,ATNY,N:"→"
 1530   LET N=N+1
 1550   IF N=20THENLET N=2:SOUND STYLE30,ENVELOPE10,PITCH90,DURATION10,SOURCE2,LEFT40,RIGHT20
 1560   PRINT #101,ATNY,N:"→"
 1570 END DEF 
 1580 DEF TAPOS
 1590   SET INK11
 1600   PRINT #101,ATTA1,TA2:"Σ"
 1610   LET TA1=TA1+TAI
 1620   IF X$(TA1+TAI,TA2)<>" "THENLET TAI=-TAI:PRINT #101,ATTA1,TA2:"Σ":SOUND DURATION6,SOURCE3,STYLE44,LEFT50,RIGHT50,ENVELOPE1
 1630 END DEF 
 1640 ! Szivas
 1650 SOUND DURATION10,STYLE30,ENVELOPE1
 1660 SOUND DURATION10,STYLE30,ENVELOPE1
 1670 SOUND DURATION10,STYLE30,ENVELOPE1
 1680 SOUND DURATION10,STYLE30,ENVELOPE1
 1690 LET MI=0
 1700 FOR OO=1TO25
 1710   SET INK15
 1720   PRINT #101,ATA,S:"☀"
 1730 NEXT 
 1740 LET MOR=MOR-10:CALL HUDNEG
 1750 IF MOR<=0THENGOTO  1770
 1760 GOTO  880
 1770 CLOSE #1
 1780 GOTO  190
 1790 DEF VIZS
 1791   SOUND SOURCE2,ENVELOPE10,STYLE32,DURATION15,PITCHRND(20)+30
 1800   IF FEL<VANTHENEXIT DEF
 1810   PING 
 1820   LET BBB=1
 1821   SOUND SOURCE2,DURATION30,ENVELOPE11,PITCH70
 1830   SET INK1
 1840   PRINT #101,ATK1,K2:"à"
 1850   SET INK255
 1860 END DEF 
 1870 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 1880 DATA "▮π   →  Σ          ▮"
 1890 DATA "▮π■■■■■■ ▮   ■■■   ▮"
 1900 DATA "▮π       ▮ π■   ■▮▮▮"
 1910 DATA "▮π     π ▮àπ     ▮▮▮"
 1920 DATA "▮▮▮Ç■■■π ▮▮π ƒ    Å▮"
 1930 DATA "▮▮▮    π   π■■■■ ▮▮▮"
 1940 DATA "▮▮  ■■■■■■■π   ☀  ▮▮"
 1950 DATA "▮Å         π   ▮   ▮"
 1960 DATA "▮■■■■■■■■■■■■■■▮■■■▮"
 1970 !2
 1980 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 1990 DATA "▮               Σ  ▮"
 2000 DATA "▮→       à    Ç   ■▮"
 2010 DATA "▮▮▮  ■■■■π■■■■    ■▮"
 2020 DATA "▮   ■    π    ■   ■▮"
 2030 DATA "▮Å       πƒ        ▮"
 2040 DATA "▮■■    ■■■■■    ■▮ ▮"
 2050 DATA "▮■■■  ■     ■  ■■▮ ▮"
 2060 DATA "▮■■■■    ☀    ■■■ Å▮"
 2070 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2080 !3
 2090 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2100 DATA "▮           Å   Σ  ▮"
 2110 DATA "▮ π■■      ■■      ▮"
 2120 DATA "▮ π  ■■  ■■      ■ ▮"
 2130 DATA "▮Åπ    ■■      π ☀Å▮"
 2140 DATA "▮▮π      Ç     π ▮▮▮"
 2150 DATA "▮ π     π    ƒ π   ▮"
 2160 DATA "▮ π ■  ■π■  ■■■■■■ ▮"
 2170 DATA "▮ π →   π        à ▮"
 2180 DATA "▮■■■■↑↑↑■■↑↑↑■■■■■■▮"
 2190 !4
 2200 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2210 DATA "▮ ▮  ▮  ▮      Σ   ▮"
 2220 DATA "▮ →     Å          ▮"
 2230 DATA "▮ ■■■■■■▮          ▮"
 2240 DATA "▮ ▮☀    ▮ ƒ        ▮"
 2250 DATA "▮ ▮▮▮▮  ▮■■▮▮▮  Å  ▮"
 2260 DATA "▮ ▮   Ç      ▮▮ ▮ ■▮"
 2270 DATA "▮ ▮■■■   ■■■■▮  ▮  ▮"
 2280 DATA "▮à Å           ■▮■ ▮"
 2290 DATA "▮▮▮▮■■■■■■■■■■■■▮■■▮"
 2300 !5
 2310 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2320 DATA "▮ Σ  →         π   ▮"
 2330 DATA "▮    ■■■■■■  ■ π   ▮"
 2340 DATA "▮Å  ■   Å    àƒπ ☀ ▮"
 2350 DATA "▮▮   Ç ▮▮▮  ▮▮▮π ▮▮▮"
 2360 DATA "▮  ▮▮ ■ ▮  ■ ▮ π   ▮"
 2370 DATA "▮ π▮▮   ▮    ▮Åπ   ▮"
 2380 DATA "▮ π▮ ■  ▮ ■ ▮▮▮π   ▮"
 2390 DATA "▮Åπ▮    ▮   ▮ ▮π   ▮"
 2400 DATA "▮■■▮↑↑■↑▮■■■▮▮▮■↑■■▮"
 2410 !6
 2420 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2430 DATA "▮▮▮▮▮▮▮▮▮Σ▮▮▮▮▮▮▮▮▮▮"
 2440 DATA "▮▮    π      ƒ  à ▮▮"
 2450 DATA "▮ ■■■■π■■ Ç  ■■■■  ▮"
 2460 DATA "▮ Å   π           ☀▮"
 2470 DATA "▮ ■■■■π■■ ■■■    ■▮▮"
 2480 DATA "▮     π   ▮▮▮■  ■▮▮▮"
 2490 DATA "▮▮■■■■π■■ ▮▮▮▮■■▮▮▮▮"
 2500 DATA "▮▮▮  →π      Å▮▮▮▮▮▮"
 2510 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2520 !7
 2530 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2540 DATA "▮ Σ                ▮"
 2550 DATA "▮          ☀    à  ▮"
 2560 DATA "▮   ■■■■■■■■■■■■■■■▮"
 2570 DATA "▮Å       →         ▮"
 2580 DATA "▮▮ ▮  π  ƒ  πÇ    ▮▮"
 2590 DATA "▮   ▮ π■■■■■π  ■■▮▮▮"
 2600 DATA "▮     π     π  ▮▮▮▮▮"
 2610 DATA "▮  ▮  π  Å  π      ▮"
 2620 DATA "▮■■▮■■▮▮▮▮▮▮▮■■■■■■▮"
 2630 !8
 2640 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2650 DATA "▮Σ              π  ▮"
 2660 DATA "▮  Å   ƒ        π■■▮"
 2670 DATA "▮  ▮ ■■■■■ ▮  ■■π  ▮"
 2680 DATA "▮ ■▮▮▮▮▮▮▮▮▮    π■■▮"
 2690 DATA "▮ ▮        ▮■■■■π  ▮"
 2700 DATA "▮          ☀    π■■▮"
 2710 DATA "▮■■   Ç   ▮▮▮   π  ▮"
 2720 DATA "▮     → à       π Å▮"
 2730 DATA "▮■■▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2740 !9
 2750 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2760 DATA "▮ Σ    π   π       ▮"
 2770 DATA "▮   Ç  π ƒ π     à ▮"
 2780 DATA "▮      π■■■π ☀  ■■■▮"
 2790 DATA "▮  Å   π π   π■■   ▮"
 2800 DATA "▮  ▮   π π   π     ▮"
 2810 DATA "▮→     π π   πÅ    ▮"
 2820 DATA "▮■■      π   π▮ ■■■▮"
 2830 DATA "▮                  ▮"
 2840 DATA "▮↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑▮"
 2850 !10
 2860 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2870 DATA "▮π   →  π       Σ  ▮"
 2880 DATA "▮π▮▮▮   π▮   ƒ     ▮"
 2890 DATA "▮π▮   ☀ π▮ ▮▮▮▮▮   ▮"
 2900 DATA "▮π▮ ▮▮▮▮π▮         ▮"
 2910 DATA "▮π▮▮▮  ▮π    ▮ Ç   ▮"
 2920 DATA "▮π  ▮  ▮πÅ ▮ ▮   à ▮"
 2930 DATA "▮π  ▮   π▮ ▮     ▮▮▮"
 2940 DATA "▮πÅ ▮Å  π▮ ▮▮      ▮"
 2950 DATA "▮▮▮■▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2960 !11
 2970 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 2980 DATA "▮Σ  →    π         ▮"
 2990 DATA "▮ ■■■■■■■π■■■■■■■■ ▮"
 3000 DATA "▮     ƒ  π     ▮  ☀▮"
 3010 DATA "▮ ■■■■■■■π■■■■  ▮ ▮▮"
 3020 DATA "▮        π à  ▮π▮  ▮"
 3030 DATA "▮■■■■■■■■π■■■■▮π▮■Ç▮"
 3040 DATA "▮        π    ▮π   ▮"
 3050 DATA "▮Å       π    ▮π  Å▮"
 3060 DATA "▮▮■■■■■■■■■■■■▮■■■▮▮"
 3070 !12
 3080 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3090 DATA "▮   Σ             π▮"
 3100 DATA "▮         ƒ       π▮"
 3110 DATA "▮      ▮▮▮▮▮      π▮"
 3120 DATA "▮■■    ▮ ☀ ▮ ■ Ç■■π▮"
 3130 DATA "▮      ▮ ▮        π▮"
 3140 DATA "▮■■■  ■▮   ▮■     π▮"
 3150 DATA "▮     ▮▮▮ ▮▮▮   Å π▮"
 3160 DATA "▮  →      à    ÅÅÅπ▮"
 3170 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮↑▮▮▮▮▮▮"
 3180 !13
 3190 DATA "äää▮▮▮▮▮▮▮▮▮▮▮▮▮▮äää"
 3200 DATA "ää▮          Σ   ▮ää"
 3210 DATA "ä▮   →            ▮ä"
 3220 DATA "▮ π      ■π■       ▮"
 3230 DATA "▮ π   ☀   π     Å π▮"
 3240 DATA "▮ π  ▮▮▮Ç■π■  ■▮▮▮π▮"
 3250 DATA "▮ π   ▮   π     ▮ π▮"
 3260 DATA "▮ π   ▮  ▮▮▮    ▮ π▮"
 3270 DATA "▮ π à▮ ▮  ƒ    ▮ ▮π▮"
 3280 DATA "▮▮▮▮▮   ▮▮■■■▮▮   ▮▮"
 3290 !14
 3300 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3310 DATA "▮        ☀   Σ     ▮"
 3320 DATA "▮  Å     ▮▮     Å  ▮"
 3330 DATA "▮ ■■■   ▮  ▮   ■■■ ▮"
 3340 DATA "▮      ▮  à ▮      ▮"
 3350 DATA "▮■■■■■   ▮▮Ç  ■■■■■▮"
 3360 DATA "▮    ƒ  ■▮▮        ▮"
 3370 DATA "▮   ■■■■ ▮▮ ■■■■   ▮"
 3380 DATA "▮    →             ▮"
 3390 DATA "▮■■■■■■■■■■■■■■■■■■▮"
 3400 !15
 3410 DATA "ä▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮ä"
 3420 DATA "▮    →   Σ   Å     ▮"
 3430 DATA "▮ ■■        ▮▮▮    ▮"
 3440 DATA "▮     ■■■   ▮ ▮▮▮ ☀▮"
 3450 DATA "▮  ■■      Ç▮   ▮▮▮▮"
 3460 DATA "▮    ■      ▮ ■    ▮"
 3470 DATA "▮       ■■■ ▮      ▮"
 3480 DATA "▮  ■■ ■     ▮■    ■▮"
 3490 DATA "▮Å      ▮   ƒ  ▮ à ▮"
 3500 DATA "ä▮▮▮▮▮▮▮ ▮▮▮▮▮▮ ▮▮▮ä"
 3510 !16
 3520 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3530 DATA "▮             Σ    ▮"
 3540 DATA "▮       à       ■ ■▮"
 3550 DATA "▮■ Ç  ƒ ▮       ■ ■▮"
 3560 DATA "▮     ▮▮▮▮▮     ■ ■▮"
 3570 DATA "▮■■  ■  ▮  ■ ☀■■■■■▮"
 3580 DATA "▮   ■  Å▮   ■■     ▮"
 3590 DATA "▮  ■   ▮▮        → ▮"
 3600 DATA "▮               ■■■▮"
 3610 DATA "▮▮▮▮▮▮▮▮▮▮↑▮▮▮▮▮▮▮▮▮"
 3620 !17
 3630 DATA "ä▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮ä"
 3640 DATA "▮         Σ        ▮"
 3650 DATA "▮  ☀               ▮"
 3660 DATA "▮  ▮■■      ■■■    ▮"
 3670 DATA "▮Å ▮           ƒ   ▮"
 3680 DATA "▮▮ ▮■ soft ■Ç■■■■■ ▮"
 3690 DATA "▮  ▮               ▮"
 3700 DATA "▮  ▮■■    ■■■■■■■■ ▮"
 3710 DATA "▮à →              Å▮"
 3720 DATA "ä▮▮▮▮▮▮↑▮▮▮▮▮▮▮▮▮▮▮ä"
 3730 !18
 3740 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3750 DATA "▮             ☀  Σ ▮"
 3760 DATA "▮        π   ▮▮▮   ▮"
 3770 DATA "▮■■      π   ▮π▮   ▮"
 3780 DATA "▮■ Ç Å  ■π■   π    ▮"
 3790 DATA "▮    ■■■ π ■■■π ▮▮▮▮"
 3800 DATA "▮■■     ■π■  àπ    ▮"
 3810 DATA "▮   → ƒ  π   ▮π▮   ▮"
 3820 DATA "▮  ▮▮▮▮  π   ▮▮▮ Å ▮"
 3830 DATA "▮■■▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3840 !19
 3850 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3860 DATA "▮    →          Σ  ▮"
 3870 DATA "▮■■■■▮             ▮"
 3880 DATA "▮  ☀  ▮   Ç π  ▮ ▮ ▮"
 3890 DATA "▮  ▮  ƒ    ▮π ▮  Å ▮"
 3900 DATA "▮■  ▮▮▮▮▮▮  π▮ ■ ▮ ▮"
 3910 DATA "▮           π    ▮ ▮"
 3920 DATA "▮ ■   Å     π  ■ ▮▮▮"
 3930 DATA "▮    ▮■▮    π     à▮"
 3940 DATA "▮▮■■■▮▮▮■■■■■■▮▮▮▮▮▮"
 3950 !20
 3960 DATA "▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮▮"
 3970 DATA "▮               Σ  ▮"
 3980 DATA "▮     ■■   ■■      ▮"
 3990 DATA "▮    ■  ■ π  π     ▮"
 4000 DATA "▮ à     ■ π  π   ☀ ▮"
 4010 DATA "▮▮▮Ç   ■  π  π   ▮▮▮"
 4020 DATA "▮     ■ƒ           ▮"
 4030 DATA "▮    ■■■■  ■■      ▮"
 4040 DATA "▮ →   Å            ▮"
 4050 DATA "▮↑■↑■■■■■↑■■■↑■↑■↑■▮"
 4060 GRAPHICS HIRES16
 4070 SET PALETTE0,1,2,3,4,5,6,7
 4080 SET INK2:PLOT 0,719,
 4090 PRINT #101:"  ▮▮  ■■ ▮   ▮ÇÇÇ"
 4100 SET INK1
 4110 PRINT #101:" ▮  ▮■  ■▮▮ ▮▮Ç  "
 4120 SET INK2
 4130 PRINT #101:" ▮   ■■■■▮ ▮ ▮ÇÇ "
 4140 SET INK3
 4150 PRINT #101:" ▮ ▮▮■  ■▮   ▮Ç  "
 4160 SET INK4
 4170 PRINT #101:"  ▮▮ ■  ■▮   ▮ÇÇÇ"
 4180 SET INK5
 4190 PRINT #101:"  ↑  à à ƒƒƒ →→→   "
 4200 SET INK6
 4210 PRINT #101:" ↑ ↑ à à ƒ   →  →  "
 4220 SET INK7
 4230 PRINT #101:" ↑ ↑ à à ƒƒ  →→→   "
 4240 SET INK1
 4250 PRINT #101:" ↑ ↑ à à ƒ   → →   "
 4260 SET INK2
 4270 PRINT #101:"  ↑   à  ƒƒƒ →  →"
 4280 FOR X=1TO200
 4290   SET PALETTE0,X,X+1,X+2,X+3,X+4,X+5,X+6
 4300 NEXT 
 4310 IF JOY(JO)=0THEN 4310
 4320 RUN 
 4330 DATA "E-software programs: Pac-Man     Fred-1,2,3     A kuldetes     A kiraly koronaja     TRON     Entermusic     etc    "
 4340 DEF FONT
 4350   REM        ! col2 csak masodik col4 csak elso / col6 mix
 4360   PRINT BIN(VAL("11110000"));
 4370   PRINT BIN(VAL("11110000"));
 4380   PRINT BIN(VAL("11110000"));
 4390   PRINT BIN(VAL("11110000"));
 4400   PRINT BIN(VAL("00001111"));
 4410   PRINT BIN(VAL("00001111"));
 4420   PRINT BIN(VAL("00001111"));
 4430   PRINT BIN(VAL("00001111"));
 4440   PRINT BIN(VAL("00000000"));
 4450   PRINT :PRINT 
 4460   PRINT BIN(VAL("11111001"));
 4470   PRINT BIN(VAL("10111101"));
 4480   PRINT BIN(VAL("11111001"));
 4490   PRINT BIN(VAL("10111101"));
 4500   PRINT BIN(VAL("11111001"));
 4510   PRINT BIN(VAL("10111101"));
 4520   PRINT BIN(VAL("11111001"));
 4530   PRINT BIN(VAL("10111101"));
 4540   PRINT BIN(VAL("11111001"));
 4550 END DEF 
 4560 DEF FONT3
 4570   SET CHARACTER143,56,124,214,254,170,130,170,254,108:! szorny
 4580   SET CHARACTERORD("Ç"),60,126,255,253,250,253,106,52,0
 4590   SET CHARACTER140,0,8,140,206,255,206,140,8:!  nyil
 4600   SET CHARACTER138,60,126,255,243,242,251,254,253,170:! kulcs
 4610   SET CHARACTERORD("☀"),60,126,153,153,255,227,255,36,102
 4620   SET CHARACTERORD("↑"),0,64,68,84,85,68,17,68
 4630   SET CHARACTERORD("Σ"),249,189,249,189,249,189,249,189,249
 4640   SET CHARACTERORD("æ"),126,255,85,255,85,0,85,0
 4650   SET CHARACTERORD("Å"),110,253,250,253,250,245,106,52,16
 4660   SET CHARACTERORD("ä"),0
 4670 END DEF 
 4680 DEF RASZT
 4690   LET P=27376
 4700   FOR X=1TO10
 4710     POKE 20000+P+8,8
 4720     POKE 20000+P+9,34 !
 4730     POKE 20000+P+11,129 ! mano
 4740     POKE 20000+P+12,1
 4750     POKE 20000+P+13,114 !
 4760     POKE 20000+P+10,25
 4770     POKE 20000+P+14,251
 4780     POKE 20000+P+15,201 ! sziv
 4790     !
 4800     LET P=P+16
 4810     POKE 20000+P+8,64
 4820     POKE 20000+P+9,128+16 !
 4830     POKE 20000+P+11,193 ! mano
 4840     POKE 20000+P+12,33
 4850     POKE 20000+P+13,209 !
 4860     POKE 20000+P+10,25+32
 4870     POKE 20000+P+14,139
 4880     POKE 20000+P+15,9 ! sziv
 4890     LET P=P+16
 4900   NEXT X
 4910 END DEF 
 4920 DEF PAL
 4930   GRAPHICS 256
 4940   LET C=0
 4950   FOR X=0TO15
 4960     FOR Y=0TO15
 4970       SET INKC
 4980       PRINT C
 4990       LET C=C+1
 5000       PLOT X*50,Y*30+99,
 5010       PRINT #101:"."
 5020       !  IF INKEY$="" THEN GOTO 4841
 5030     NEXT Y
 5040   NEXT X
 5050 END DEF 
 5060 DEF LEVRESTORE
 5070   SELECT CASELEV
 5080   CASE 1
 5090     RESTORE  1870
 5100   CASE 2
 5110     RESTORE  1980
 5120   CASE 3
 5130     RESTORE  2090
 5140   CASE 4
 5150     RESTORE  2200
 5160   CASE 5
 5170     RESTORE  2310
 5180   CASE 6
 5190     RESTORE  2420
 5200   CASE 7
 5210     RESTORE  2530
 5220   CASE 8
 5230     RESTORE  2640
 5240   CASE 9
 5250     RESTORE  2750
 5260   CASE 10
 5270     RESTORE  2860
 5280   CASE 11
 5290     RESTORE  2970
 5300   CASE 12
 5310     RESTORE  3080
 5320   CASE 13
 5330     RESTORE  3190
 5340   CASE 14
 5350     RESTORE  3300
 5360   CASE 15
 5370     RESTORE  3410
 5380   CASE 16
 5390     RESTORE  3520
 5400   CASE 17
 5410     RESTORE  3630
 5420   CASE 18
 5430     RESTORE  3740
 5440   CASE 19
 5450     RESTORE  3850
 5460   CASE 20
 5470     RESTORE  3960
 5480   CASE ELSE
 5490     !
 5500   END SELECT 
 5510 END DEF 
 5520 DEF HUD
 5530   SET #1:PALETTE40,0,255,8,201
 5540   SET #102:PALETTE64,64,64,64,64
 5550   DISPLAY #1:AT22FROM2TO5
 5560   SET #1:INK1
 5570   PLOT #1:20,20;1250,20;1250,120;20,120;20,20
 5580   PLOT #1:20,24;1250,24;1250,116;20,116;20,24
 5590   SET #1:INK3
 5600   PLOT #1:40,40,PAINT
 5610   SET #1:INK2
 5620   PRINT #1,AT2,2:"☀"
 5630   !  SET #1:LINE MODE 0
 5640   SET #1:INK4
 5650   FOR Y=0TO30STEP4
 5660     PLOT #1:200,57+Y;200+MOR*8,57+Y
 5670   NEXT Y
 5680   !SET #1:INK 0
 5690 END DEF 
 5700 DEF HUDRE
 5710   IF MOR>120THENLET MOR=120
 5720   IF MOR<0THENLET MOR=0
 5730   SET #1:INK4
 5740   PLOT #1:200+MOR*8,57;200+MOR*8,86,
 5750   SET #1:INK1
 5760   PLOT #1:200+MOR*8+8,57;200+MOR*8+8,86,
 5770 END DEF 
 5780 DEF HUDNEG
 5790   IF MOR<0THENLET MOR=0
 5800   SET #1:INK1
 5810   FOR Y=0TO30STEP4
 5820     PLOT #1:200+120*8,57+Y;200+MOR*8,57+Y
 5830   NEXT Y
 5840 END DEF 
 5850 DEF HUDINIT
 5860   SET VIDEOX40
 5870   SET VIDEOY5
 5880   OPEN #1:"video:"
 5890 END DEF 
 5900 DEF MENU
 5910   GRAPHICS HIRES16
 5920   CLEAR FONT
 5930   SET CHARACTERORD("Σ"),0,126,66,66,66,66,66,126
 5940   SET CHARACTERORD("æ"),255,129,129,129,129,129,129,129,255
 5950   SET #102:PALETTE64,14,64,64
 5960   SET #101:PALETTE64,201,0,255
 5970   SET INK2
 5980   PLOT 100,100;600,140;1100,100;1000,400;1100,600;600,650;100,600;150,450;100,100,500,500,PAINT
 5990   SET INK1
 6000   PRINT #101,AT1,4:"  MINER 2013!"
 6010   PRINT #101,AT2,4:"a game by Endi"
 6020   PRINT #101,AT4,3:"Select level and"
 6030   PRINT #101,AT5,1:"press fire to start!"
 6040   PRINT "  Help: fill the platforms, then find    the door.";
 6050   PRINT "Watch your energy! Without      energy, the enemies are lethal.";
 6060   LET P=27376
 6070   FOR X=1TO10
 6080     FOR Y=1TO2
 6090       PRINT #101,ATY+6,X+5:"Σ"
 6100       IF PIP(X+(Y-1)*10)<>0THENPRINT #101,ATY+6,X+5:"x"
 6110     NEXT X
 6120   NEXT Y
 6130   LET X=1:LET Y=1
 6140   ! SET PALETTE 64,129,255
 6150   SET INK15
 6160   SET LINEMODE3
 6170   PRINT #101,ATY+6,X+5:"æ"
 6180   LET J=JOY(0)
 6190   IF J<>0THENSOUND PITCH77,STYLE55,DURATION2
 6200   POKE 20000+P+9+RND(24)*16,RND(50)+200
 6210   ! POKE 20000+P+8+RND(24)*16,RND(5)*16
 6220   PRINT #101,ATY+6,X+5:"æ"
 6230   LET T$=TIME$
 6240   PRINT #101,AT9,7:T$
 6250   IF J=1THENLET X=X+1
 6260   IF J=2THENLET X=X-1
 6270   IF J=4THENLET Y=Y+1
 6280   IF J=8THENLET Y=Y-1
 6290   IF X>10THENLET X=10
 6300   IF Y>2THENLET Y=2
 6310   IF X<1THENLET X=1
 6320   IF Y<1THENLET Y=1
 6330   PRINT #101,ATY+6,X+5:"æ"
 6340   IF J=16THENGOTO  6370
 6350   PRINT #101,AT9,7:T$
 6360   GOTO  6180
 6370   LET LEV=X+(Y-1)*10-1
 6380 END DEF 
 6390 DEF MUS
 6400   LET PIC=MSC(MUSCO)
 6410   LET MUSCO=MUSCO+1
 6411   LET MUSCO1=MUSCOBAND1
 6412   IF MUSCO=33THENLET MUSCO=1
 6430   SOUND PITCHPIC+12,ENVELOPE3+MUSCO1,DURATIONMUSCO1*20+5,SOURCEMUSCO1
 6440 END DEF 
 6450 DATA 30,32,30,34,30,32,30,28
 6460 DATA 30,32,30,34,30,32,30,33
 6470 DATA 20,22,20,22,24,26,24,26
 6480 DATA 28,30,28,30,29,31,29,31
 6490 DEF MUSINIT
 6500   RESTORE  6450
 6510   FOR X=1TO32
 6520     READ A
 6530     LET MSC(X)=A
 6540   NEXT X
 6550 END DEF