10 REM *************************
20 REM *                       *
30 REM *        M O V E        *
40 REM *                       *
50 REM *par Pascal Chevallereau*
60 REM *  AM-MAG hors serie 7  *
70 REM *************************
80 REM
90 DEFINT a-z
100 REM
110 REM *************************
120 REM *      presentation     *
130 REM *************************
140 REM
150 MODE 1: INK 0,0: INK 1,0: INK 2,20:INK 3,6:BORDER 0:PAPER 0
160 ENV 1,1,15,1,1,0,1,15,-1,1
170 ENV 4,1,15,1,5,-1,3,10,-1,2
180 SYMBOL 255,252,252,252,252,252,252,0,0
190 SYMBOL 254,0,3,3,3,3,3,63,63
200 c1$=CHR$(15)+CHR$(3)+CHR$(255)
210 c2$=CHR$(15)+CHR$(2)+CHR$(254)
220 c3$=CHR$(15)+CHR$(2)+CHR$(255)
230 c4$=CHR$(15)+CHR$(3)+CHR$(254)
240 trans$=CHR$(22)+CHR$(1)
250 norm$=CHR$(22)+CHR$(0)
260 RESTORE 770
270 ad=&8000
280 FOR n=0 TO 223:READ donnee$:POKE ad+n,VAL("&"+donnee$):NEXT n
290 RESTORE 1010:g=2:p=1
300 EVERY 10 GOSUB 960
310 PEN 1:LOCATE 1,1:PRINT"MOVE"
320 PRINT trans$
330 x=5:y=10
340 FOR n=398 TO 386 STEP -2
350 FOR i=0 TO 62 STEP 2
360 IF TEST(i,n)=1 THEN LOCATE x,y:PRINT c1$:LOCATE x,y:PRINT c2$
370 x=x+1
380 NEXT i
390 x=5:y=y+1
400 NEXT n
410 x=5:y=10
420 FOR n=398 TO 386 STEP -2
430 FOR i=0 TO 62 STEP 2
440 IF TEST(i,n)=1 THEN LOCATE x,y:PRINT c3$:LOCATE x,y:PRINT c4$
450 x=x+1
460 NEXT i
470 x=5:y=y+1
480 NEXT n
490 PRINT norm$
500 LOCATE 1,1:PRINT"     "
510 LOCATE 1,25:FOR n=l TO 8:PRINT:FOR tp=1 TO 80:NEXT tp,n
520 PEN 1:LOCATE 19,15:PRINT"PAR"
530 a$="PASCAL CHEVALLEREAU":a=LEN(a$)
540 PRINT CHR$(23)+CHR$(3):TAG:PLOT -2,-2,1
550 MOVE (640-a*16)/2,100:PRINT a$; 
560 MOVE ((640-a*16)/2)-2,98:PRINT a$;
570 MOVE ((640-a*16)/2)-2,98:PRINT a$;
580 TAGOFF:PRINT CHR$(23)+CHR$(1):TAG
590 MOVE (640-a*16)/2,100:PRINT a$; 
600 TAGOFF:PRINT CHR$(23)+CHR$(0)
610 INK 1,26 
620 MOVE 0,0:DRAW 0,399:DRAW 639,399:DRAW 639,0:DRAW 0,0
630 FOR n=1 TO 100:x=RND*639:y=RND*399
640 IF TEST(x,y)=0 THEN PLOT x,y
650 NEXT n
660 LOCATE 17,25:PRINT"[SPACE]"
670 WHILE INKEY(47)<>0 AND INKEY(47)<>32: WEND
680 FOR n=0 TO 50:t$=INKEY$:NEXT n
690 a=REMAIN(0)
700 LOCATE 15,25:PRINT"[CHARGEMENT]"
710 RUN"!move2.bas"
720 REM
730 REM ************************
740 REM *   data routine L.M.  *
750 REM ************************
760 REM
770 DATA 3e,01,32,e0,80,3a,e1,80,fe,00,c2,13,80,3a,e2,80
780 DATA c3,14,80,3d,32,e1,80,3e,00,32,38,b3,cd,74,80,3a
790 DATA e2,80,4f,3a,e1,80,b9,c2,2f,80,3e,00,c3,30,80,3c
800 DATA 32,e1,80,3e,ff,32,38,b3,cd,74,80,3a,e3,80,47,3a
810 DATA e0,80,b8,ca,4d,80,3c,32,e0,80,c3,05,80,3a,e2,80
820 DATA 4f,3a,e1,80,b9,c2,59,80,c9,3c,32,e1,80,2a,e6,80
830 DATA 7c,fe,00,ca,6a,80,2b,c3,60,80,7d,fe,00,ca,00,80
840 DATA 2b,c3,6a,80,16,00,3a,e3,80,5f,0e,00,3a,e1,80,06
850 DATA 10,21,00,00,cb,39,1f,d2,8b,80,19,eb,29,eb,05,c2 
860 DATA 84,80,3a,e0,80,4f,06,00,09,2b,22,e4,80,01,ff,80
870 DATA 2a,e4,80,29,09,5e,23,56,eb,22,2c,b3,01,ff,88,2a
880 DATA e4,80,29,09,5e,23,56,eb,22,2e,b3,01,ff,90,2a,e4
890 DATA 80,29,09,5e,23,56,01,ff,98,2a,e4,80,29,09,4e,23
900 DATA 66,69,cd,f6,bb,c9,00,00,00,00,00,00,00,00,00,00
910 REM
920 REM ************************
930 REM *       musique        *
940 REM ************************
950 REM
960 DI:IF (SQ(1) AND 7)=0 THEN EI:RETURN ELSE READ myenvel,mynote
970 SOUND 1,mynote+3,0,0,myenvel,0,0
980 SOUND 2,mynote/g,0,0,myenvel,0,0
990 p=p+1:IF p=43 THEN p=1:RESTORE 1010:g=g+2:IF g=6 THEN g=2
1000 RETURN
1010 DATA 1,239,1,253,4,239,4,478,4,478,1,319,1,359,1,379,1,319,1,239,1,253,4,239
1020 DATA 1,213,1,255,1,213,4,426,4,426,1,294,1,253,1,294,4,319
1030 DATA 1,239,1,253,4,239,4,478,4,478,1,319,1,359,1,379,1,319,1,239,1,253,4,239
1040 DATA 1,213,1,255,1,213,4,426,1,239,1,253,1,294,1,253,4,239
1050 DATA 70,140,242,344,399,500,602