10 GOTO 100
20 a=9000+(k-1)*10:b=int(a/256):c=a AND 255:POKE 19012,c:POKE 19013,b:RESTORE 9000:READ b$,c$,d$
25 CURSORX 9:CURSORY 20:PRINT CHR$(4);:CURSORX 9:CURSORY 21:PRINT CHR$(4);
26 TX 6,0:CURSORX 10:CURSORY 3:PRINT "                    ";
30 CURSORX 9:CURSORY 20:PRINT b$:CURSORX 9:PRINT c$;
40 a=LEN(d$):CURSORX 10+INT((21-a)/2):ET 7,0:CURSORY 3:PRINT d$;:RETURN

100 CLEAR 50,&"65FF":DISKLOAD"LEADE2"
105 INIT 4,4:CALL &"6600":ok=0
110 EG 3,1,0:CURSORX 0:CURSORY 15:FOR i=1 TO 40:PRINT CHR$(127);:NEXT i
120 EG 6,5,0:CURSORX 0:CURSORY 18:FOR i=1 TO 40:PRINT CHR$(126);:NEXT i
130 TX 7,0:CURSORX 2:CURSORY 16:PRINT "Press key <A> to <Z> to select music"
140 TX 7,0:CURSORX 1:PRINT "<+> List tunes <ESPACE> stop listening"
150 TX 7,0:CURSORX 1:CURSORY 20:PRINT "Title :"
160 TX 7,0:CURSORX 1:PRINT "Author: "
170 EG 3,2,0:CURSORX 0:CURSORY 23:FOR i=1 TO 40:PRINT CHR$(127);:NEXT i
180 GOSUB 7010

200 k=KEY(0):IF K=43 THEN 8000
205 K=K AND 223:IF k<65 OR k>90 THEN 200
210 IF k=ok THEN POKE -31173,sa:GOTO 250
220 ok=k:A$=CHR$(k):DISKLOAD a$:k=k-64:GOSUB 20:sa=PEEK(-31173)
230 b$="[["+a$+a$+"]]":ET 7,3:CURSORX 1:CURSORY 6:PRINT b$;:ET 6,3:CURSORX 1:CURSORY 7:PRINT b$;
240 ET 7,3:CURSORX 34:CURSORY 6:PRINT b$;:ET 6,3:CURSORX 34:CURSORY 7:PRINT b$;
250 FOR i=1 TO 200:NEXT i
260 CALL &"6603":GOTO 200

rem 7000 SETET 126,"0404040404041C3C3C18"
7000 SETET 32,"00000000000000000000"
7010 ET 7,0:CURSORX 1:CURSORY 1:PRINT CHR$(126);:CURSORX 3:CURSORY 3:PRINT CHR$(126);
7020 ET 7,0:CURSORX 2:CURSORY 9:PRINT CHR$(126);:CURSORX 5:CURSORY 10:PRINT CHR$(126);
7030 ET 0,0:CURSORX 3:CURSORY 12:PRINT CHR$(126);:ET 7,0:CURSORX 6:CURSORY 13:PRINT CHR$(126);
7040 ET 7,0:CURSORX 36:CURSORY 2:PRINT CHR$(126);:CURSORX 34:CURSORY 4:PRINT CHR$(126);
7050 ET 7,0:CURSORX 38:CURSORY 9:PRINT CHR$(126);:CURSORX 35:CURSORY 11:PRINT CHR$(126);
7060 ET 0,0:CURSORX 5:CURSORY 2:PRINT CHR$(126);:CURSORX 38:CURSORY 12:PRINT CHR$(126);
7070 ET 0,0:CURSORX 38:CURSORY 3:PRINT CHR$(126);:CURSORX 36:CURSORY 13:PRINT CHR$(126);
rem 7080 SETEG 127,"00000077777700000000"
rem 7090 SETEG 126,"000000BBBBBB00000000"
7100 RETURN

8000 INIT 4,4:RESTORE 9000:j=65
8010 ET 3,3:CURSORX 9:CURSORY 1:PRINT "TTAAPPEE  LLEEAADDEERR":ET 2,3:CURSORX 9:PRINT "TTAAPPEE  LLEEAADDEERR"
8011 TX 7,2:CURSORY 4:CURSORX 9:PRINT "ppllaayyiinngg  lliisstt"
8020 TX 6,0:FOR i=1 TO 13:read b$,b$,a$,b$,b$,c$
8030 CURSORX 1:CURSORY i+6:TX7:?CHR$(j);" ";:TX6:?a$;:CURSORX 20:TX7:? CHR$(j+1);" ";:TX6:?c$:j=j+2:NEXT i
8040 TX 7,0:CURSORX 9:CURSORY 22:PRINT "<ESPACE> to go back"
8050 A=KEY(0):IF A=32 THEN 105
8060 GOTO 8050


9000 DATA Prehistorik 2,BSC,PREHISTORIK II
9010 DATA Demoniak 6,Tom et Jerry/GPA,DEMONIAK 6
9020 DATA Elysium (Jester/Amiga),Shap/OVL,ELYSIUM
9030 DATA Cybernoid 2 (Jeroen Tel/C64),BSC,CYBERNOID 2
9040 DATA Sarel,Tom et Jerry/GPA,SAREL
9050 DATA Return of light,Tom et Jerry/GPA,RETURN OF LIGHT
9060 DATA Resonance,Targhan/Arkos,RESONANCE
9070 DATA Space debris,BSC (Captain/Amiga),SPACE  DEBRIS
9080 DATA Virus menu,Tom et Jerry/GPA,VIRUS
9090 DATA Heppe,Kangaroo,H E P P E
9100 DATA Stripped (Depeche Mode),Tom et Jerry/GPA,STRIPPED
9110 DATA Byte'96 Hardcore,Tom et Jerry/GPA,BYTE'96
9120 DATA Pollux,Tom et Jerry/GPA,POLLUX
9130 DATA Alpha-Flight,BSC (?/Amiga ?),ALPHA-FLIGHT
9140 DATA The deep dungeon,Targhan (Madmax/ST),THE DEEP DUNGEON
9150 DATA Sea of love,Targhan (Moby/Amiga),SEA OF LOVE
9160 DATA Basic demo 2,Shap/OVL,BASIC DEMO II
9170 DATA 2nd reality (Purple Motion/PC),Targhan/Arkos,SeCoND  ReaLiTy
9180 DATA It was so nice...,Shap/OVL,It was so nice
9190 DATA Albert,Kangaroo,A L B E R T
9200 DATA Checknobank,Targhan (Laxity/Amiga),CheckNoBank
9210 DATA Prep,Tom et Jerry/GPA,P r e p
9220 DATA ASM 1 2K8,Shap/OVL,ASM1 2K8
9230 DATA Burger party,Zik/Futurs,BURGER PARTY
9240 DATA Croco chanel 1,Epsilon/Power System,CROCO CHANEL 1
9250 DATA Citadelle ending,Tom et Jerry/GPA,Citadelle ending
