0 REM ******** E T U D E ********** 1 REM ***************************** 2 POKE553281,15 3 DIM M(51) 4 DIM AD(80) 5 DIM H(153) 6 DIM W(15) 7 DIM K(2) 8 PRINT CHR$(147) 9 X=51 : S=54272 10 FOR L=S TO S+24:POKE L,0:NEXT:POKE S+24,15 12 FOR I=0 TO 2:K(I)=INT(RND(0)*15):NEXT I 20 FOR I=0 TO 51:READM(I):NEXT 21 FOR I=0 TO 49:POKE M(I),160 22 KL=INT(RND(0)*2) 24 POKE 55296+M(I)-1024,K(KL):NEXT 25 POKEM(50),118:POKE55296+M(50)-1024,K(INT(RND(1)*3)) 26 POKEM(51),118:POKE55296+M(51)-1024,K(INT(RND(1)*3)) 30 FOR I=0 TO 80:AD(I)=INT(RND(0)*120+80):NEXT 35 FOR I=0 TO 153:H(I)=INT(RND(0)*40+10):NEXT 40 FOR I=0 TO 9:W(I)=17:NEXT 41 FOR I=10 TO 12:W(I)=33:NEXT 42 W(13)=129:W(14)=17:W(15)=129 50 FOR A=0 TO 1:FOR B = 0 TO 2 51 POKE S+5+B*7+A, AD(INT(RND(0)*80)) 52 NEXTB:NEXTA 60 FOR A=0 TO 1:FOR B = 0 TO 2 61 POKE S+B*7+A, H(INT(RND(0)*153)) 62 NEXTB:NEXTA 70 FOR A=0 TO 2:POKES+4+A*7,W(INT(RND(0)*15)):NEXT 75 A=INT(RND(0)*X):B=M(A):IF X=1 THEN 89 80 FOR I=A TO X-1:M(I)=M(I+1):NEXT 85 POKEB,96 87 DR=INT(RND(0)*1800+10) 89 X=X-1 90 IF X=0 THEN DR=3000 92 IF DR=3000 THEN POKE M(1), 96 95 FOR I=0 TO DR:NEXT:FOR A=0 TO 2:POKES+4+A*7,0:NEXT 100 IF X=0 THEN 110 105 GOTO60 110 POKE M(0), 96 112 RESTORE 113 FOR I=1 TO 4000:NEXT 114 GOTO8 115 REM 200 DATA 1435,1436,1437,1439,1440,1441,1443,1445 201 DATA 1447,1448,1449,1451,1452,1453,1475,1480 202 DATA 1483,1485,1487,1489,1491,1515,1516,1520 203 DATA…
