10 '************************ 20 '* THE LIVING DAYLIGHTS * 30 '*    Invincibilite!    * 40 '*  007 disquette par   * 50 '*  Jean-Francois Lacou * 60 '************************ 70 MODE 1 80 FOR n=&9000 TO &9105 90 READ a$:a=VAL("&"+a$):POKE n,a:sum=sum+a 100 NEXT:FOR l=1 TO 8:READ a$:lev(l)=VAL("&"+a$):NEXT 110 IF sum<>&74DD THEN PRINT CHR$(7);"Erreur dans les datas!!!":END 120 INPUT "INVINCIBILITE (O/N) ";a$:IF UPPER$(a$)="N" THEN POKE &9038,&D 130 INPUT "LEVEL DE DEPART (1-8) ";l:IF l<1 OR l>8 THEN 130 ELSE POKE &904B,lev(l) 140 PRINT "Inserez la disquette 007 et pressez une touche...":CALL &BB06 150 CALL &9000:|CPM 160 DATA 21,0C,90,06,B9,7E,EE,7A,77,23,10,F9 170 DATA 6C,6B,74,7F,B7,2D,EA,40,7A,FA,84,7C 180 DATA B2,84,7E,52,1A,84,9F,5A,7E,D5,48,7A 190 DATA FA,5B,7A,FA,4E,6C,6B,74,7F,B7,19,EA 200 DATA 6C,73,74,7F,B7,2D,EA,44,7A,48,97,FA 210 DATA 6C,73,74,7F,B7,19,EA,6C,7D,74,78,B7 220 DATA 2D,EA,44,79,48,5D,FB,6C,7D,74,78,B7 230 DATA 19,EA,B3,64,7A,5B,7A,FA,A5,1A,EA,B3 240 DATA 1C,BC,7D,64,7A,5B,7A,FA,A5,16,EA,B3 250 DATA 34,BC,7D,64,7A,6C,68,5B,7A,C1,A5,00 260 DATA EA,B3,28,BC,7D,6C,7A,74,3B,B7,2D,EA 270 DATA 5B,7A,FA,7C,85,04,94,5D,0D,59,6A,83 280 DATA 6C,6B,74,7F,B7,19,EA,6C,7D,74,78,B7 290 DATA 2D,EA,5B,CE,EA,6B,7A,FA,7B,29,7A,97 300 DATA CA,6C,7A,74,3B,B7,19,EA,B7,15,EA,B3 310 DATA 5B,6B,7B,7C,3B,04,94,5D,B7,20,C1,59 320 DATA 6A,8D,89,62,84,23,26,38,2C,20,66,6A 330 DATA 0A,6A,66,60,07,64,00,62,74,73,07,69 340 DATA 72,6B,38,2C,2A,71,6E,71,62,07,66,6A 350 DATA 74,73,75,66,63,07,16,17,17,07,02,38 360 DATA 2C,34,64,68,69,74,62,75,71,62,7D,07 370 DATA 64,62,07,63,6E,74,6C,09,09,09,7A,7B 380 DATA 78,79,7E,7F,7C,7D,00,00,00,00,00,00