1 BORDER 0:MODE 2:CAT:INPUT"NOM DU DESSIN ";n$:MODE 0:TAG:x=26:y=22:p=4:WHILE 1:a$="":WHILE"/">a$OR"9"<a$AND"@">a$OR"F"<a$:a$=UPPER$(INKEY$):m=x*8-2:n=y*8:IF"L"=a$ THEN LOAD n$ ELSE IF"S"=a$ THEN SAVE n$,b,&C000,&3FFF ELSE IF a$=CHR$(127)THEN PAPER p:CLS
2 CALL &BC59,1:FOR z=1 TO 2:PLOT m+8,n+4,p-(p=0):PRINT CHR$(&CD);:NEXT:x=MAX(0,MIN(x+INKEY(1)-INKEY(8),79)):y=MAX(0,MIN(y+INKEY(0)-INKEY(2),49)):k=INKEY(47):WHILE k=0:CALL &BC59:PLOT m+2,n,p:DRAWR 0,6:MOVER 4,0:DRAWR 0,-6:k=9:WEND:WEND:p=VAL("&"+a$):WEND