10 DATA 3E,1,CD,59,BC,CD,99,90,3E,0,32,BB,90,32,BC,90,CD,1E,BB,28,7,3E,2,32,BC,90,18,C,3E,2,CD,1E,BB,28,5,3E,4,32,BC,90,3E,8,CD,1E,BB,28,7,3E,4,32,BB,90,18,C,3E,1,CD,1E,BB,28,5,3E,2,32,BB,90,3A,BB,90,FE,0,20,7,3A,BC,90,FE,0,28,B8,CD,99,90 15 DATA 3A,BB,90,FE,0,28 20 FOR i=&9000 TO &90BA:READ a$:POKE i,VAL("&"+a$):NEXT:c=1:MODE 1:PRINT"COL 1  SAVE LOAD":DATA 14,FE,2,20,9,2A,B7,90,23,22,B7,90,18,7,2A,B7,90,2B,22,B7,90,3A,BC,90,FE,0,28,14,FE,2,20,9,2A,B9,90,23,22,B9,90,18,7,2A,B9,90,2B,22,B9,90,3E 30 CALL &9000:f=0:x=XPOS*2:y=YPOS*2:IF INKEY(68)=0 THEN IF y<384 THEN PLOT x,y,c ELSE f=1:IF x<90 THEN c=(c+1) MOD 4:LOCATE 4,1:PRINT c:BORDER 10:FOR d=1 TO 200:NEXT:BORDER 1:DATA 0,CD,59,BC,ED,5B,B7,90,2A,B9,90,CD,C0,BB,C9,3E,FF,11,0,0,1,3F,1,2A 40 IF f=1 THEN IF x>110 AND x<178 THEN SAVE "!SC",b,&C000,&3F80:GOTO 30 ELSE IF x>190 AND x<258 THEN LOAD"!",&C000:GOTO 30 ELSE 30 ELSE 30:DATA B9,90,CD,5F,BC,3E,FF,ED,5B,B7,90,21,0,0,1,C7,0,CD,62,BC,C9,A0,0,64,0 ' 4 Line Doodle - by S. Yousaf (c)1991