REM OLD digitize
 REM OLD digitize.GGB
 100 INPUT "Picture file name: ", N$
 102 IF INSTR(N$,".")=0 THEN N$=N$+".pic"
 104 CTRLC : CTRLO : O=1 : P$="" : S$="s(e)p[0,0]w(i(m))"
 110 PRINT ESC$; "PrTL1"; GON$; S$
 112 PRINT "@.@:M w(m4i(y))p(b)55v1111p(e)p(b)77v3333p(e)w(m1i(m)) @;"
 114 PRINT #2, "REM SAVE "; N$
 120 PRINT "r(p(i))";
 130 C$=INKEY$ W
 140 IF C$<>"[" THEN GOTO 170
 150    IF O=4 THEN R$="c[](e)p[" ELSE R$="p["
 160    O=1 : GOTO 300
 170 IF C$<>"2" THEN GOTO 200
 180    IF O=1 OR 3 THEN R$="v" ELSE IF O=4 THEN R$="c[](e)v"
 190    O=2 : GOTO 300
 200 IF C$<>"4" THEN GOTO 230
 210    IF O=4 THEN R$="c[](e)c" ELSE R$="c"
 220    O=3 : GOTO 300
 230 IF C$<>"8" THEN GOTO 260
 240    IF O<>4 THEN R$="c(s)[]" ELSE R$="c"
 250    O=4 : GOTO 300
 260 IF C$<>" " THEN GOTO 270
 262    WHILE C$<>"]" : C$=INKEY$ W : WEND : C$=INKEY$ W
 264    IF LEN(S$)>0 THEN PRINT #2, "1 "; S$
 Your wish has been granted, O Master.
 REM SAVE digitize
 REM SAVE digitize.GGB
 100 INPUT "Picture file name: ", N$
 102 IF INSTR(N$,".")=0 THEN N$=N$+".pic"
 104 CTRLC : CTRLO : O=1 : P$="" : S$="s(e)p[0,0]w(i(m))"
 110 PRINT ESC$; "PrTL1"; GON$; S$
 112 PRINT "@.@:M w(m4i(y))p(b)55v1111p(e)p(b)77v3333p(e)w(m1i(m)) @;"
 114 PRINT #2, "REM SAVE "; N$
 120 PRINT "r(p(i))";
 130 C$=INKEY$ W
 140 IF C$<>"[" THEN GOTO 170
 150    IF O=4 THEN R$="c[](e)p[" ELSE R$="p["
 160    O=1 : GOTO 300
 170 IF C$<>"2" THEN GOTO 200
 180    IF O=1 OR 3 THEN R$="v" ELSE IF O=4 THEN R$="c[](e)v"
 190    O=2 : GOTO 300
 200 IF C$<>"4" THEN GOTO 230
 210    IF O=4 THEN R$="c[](e)c" ELSE R$="c"
 220    O=3 : GOTO 300
 230 IF C$<>"8" THEN GOTO 260
 240    IF O<>4 THEN R$="c(s)[]" ELSE R$="c"
 250    O=4 : GOTO 300
 260 IF C$<>" " THEN GOTO 270
 262    WHILE C$<>"]" : C$=INKEY$ W : WEND : C$=INKEY$ W
 264    IF LEN(S$)>0 THEN PRINT #2, "1 "; S$
 REM END SAVE
 It's been saved!
 REM HOST