10 ' SUPCOPIM par B. LE BOURHIS 20 ' créé le 15/08/89 sur 6128+DMP 2000 30 FOR n=1 TO 27:READ a:PRINT#8,CHR$(a);:NEXT 40 MODE 2:INPUT "Nom de l'écran ";n$:CLS:LOAD n$ 50 FOR x=0 TO 600 60 FOR y=238 TO 398 STEP 2 70 IF TEST(x,y)=1 THEN PRINT#8,CHR$(5); ELSE PRINT#8," "; 80 NEXT:PRINT#8:NEXT 90 DATA 27,51,5,27,38,0,5,5,11,248,0,248,0,248,0,248,0,248,0,248,27,37,1,0,27,73,1