10 PRINT CHR$(26)
20 PRINT TAB(23)"SKETCH"
30 PRINT TAB(19)"BY DAVID ANNING"
40 PRINT TAB(20)"JULY 1, 1982"
50 PRINT
60 PRINT"    'SKETCH' IS JUST LIKE AN ETCH-A-SKETCH. USE THE"
70 PRINT"NUMARIC KEY PAD FOR THE DIRECTION OF YOUR CHARACTER"
80 PRINT"TO BE PRINTED IN. THERE ARE ALSO OTHER OPERATIONS."
90 PRINT:PRINT:PRINT TAB(19)"IN SKETCH MODE:":PRINT
100 PRINT"'1-4','6-9' PRINT A CHARACTOR IN THEIR DIRECTION"
110 PRINT"'5'-TYPE A CHARACTOR'S NUMBER <CR>. IN THE BACK OF"
120 PRINT"    THE OSBORNE MANUAL, STARTING THE NINTH TO LAST"      
130 PRINT"    AND ENDING AT THE FIFTH TO LAST PAGE, ARE THE"
140 PRINT"    CHARACTORS.THE FIRST ONE, 0, IS A BOX."
150 PRINT"'B'-TYPE B, THEN THE NUMBER  IN THE DIRECTION YOU"
160 PRINT"    WANT AND IT WILL PRINT A BLANK AT THAT PLACE"
170 PRINT"'C'-TYPE C, AND THE SCREEN WILL CLEAR"
180 PRINT"'F'-TYPE F, WHEN YOU ARE FINISHED"
190 PRINT:PRINT
200 PRINT TAB(16)"TO CONTINUE HIT RETURN"
210 X$=INKEY$
220 IF X$=CHR$(13)THEN GOTO 870
230 GOTO 210
240 DIM ROW(1000):DIM COL(1000):DIM C(500):DIM M(500)
250 CLOSE#1
260 OPEN"O",1,"B:PICT.BAS
270 FILES "B:PICT.BAS
280 PRINT CHR$(26)
290 ROW=12
300 NUM=128
310 BASE=61440!
320 COL=25
330 C=22
340 GOTO 400
350 INPUT;C
360 PRINT CHR$(30)
370 PRINT"     "
380 PRINT CHR$(30)
390 GOTO 400
400 A$=INPUT$(1)
410 IF A$="1" THEN ROW=ROW+1
420 IF A$="1" THEN COL=COL-1
430 IF A$="2" THEN ROW=ROW+1
440 IF A$="3" THEN ROW=ROW+1
450 IF A$="3" THEN COL=COL+1
460 IF A$="4" THEN COL=COL-1
470 IF A$="5" THEN GOTO 350
480 IF A$="6" THEN COL=COL+1
490 IF A$="7" THEN ROW=ROW-1
500 IF A$="7" THEN COL=COL-1
510 IF A$="8" THEN ROW=ROW-1
520 IF A$="9" THEN ROW=ROW-1
530 IF A$="9" THEN COL=COL+1
540 IF ROW>23 THEN ROW=1
550 IF ROW<1 THEN ROW=23
560 IF COL>51 THEN COL=1
570 IF COL<1 THEN COL=51
580 IF A$="C" THEN GOTO 1630
590 IF A$="F" THEN 870
600 IF C=<0 THEN C=22
610 IF C=>255 THEN C=22
620 IF A$="B"THEN GOTO 670
630 POKE ROW*NUM+BASE+COL,C    
640 PRINT#1,ROW;COL;C;
650 GOTO 400
660 GOTO 400
670 FOR X=1 TO 300
680 NEXT
690 CA=32
700 M=32
710 POKE ROW*NUM+BASE+COL,CA
720 PRINT#1,ROW;COL;M;
730 GOTO 400
740 CLOSE#1
750 OPEN"I",1,"B:PICT.BAS
760 PRINT CHR$(26)
770 IF EOF(1)THEN GOTO 810
780 INPUT#1,ROW,COL,C
790 POKE ROW*128+61440!+COL,C
800 GOTO 770
810 PRINT TAB(7) "TYPE 'R' TO RETURN OR 'P' TO REPRINT "
820 CLOSE#1
830 C$=INKEY$
840 IF C$="R" THEN GOTO 870
850 IF C$="P" THEN GOTO 740
860 GOTO 830
870 PRINT CHR$(26)
880 A=1
890 A=A+1
900 POKE 0*128+61440!+A,22
910 IF A=52 THEN 930
920 GOTO  890
930 B=1
940 B=B+1
950 POKE B*128+61440!+51,22
960 IF B=24 THEN 980
970 GOTO 940
980 C=52
990 C=C-1
1000 POKE 23*128+61440!+C,22
1010 IF C=0 THEN 1030
1020 GOTO 990
1030 D=24 
1040 D=D-1
1050 POKE D*128+61440!+0,22
1060 IF D=0 THEN GOTO 1080
1070 GOTO 1040
1080 FOR F=1 TO 5
1090 PRINT CHR$(13)
1100 NEXT
1110 PRINT TAB(18)"1 -MAKE A PICTURE":PRINT
1120 PRINT TAB(18)"2 -PRINT A  FILE":PRINT
1130 PRINT TAB(18)"3 -RETURN TO BEGINNING": PRINT
1140 PRINT TAB(18)"4 -QUIT":PRINT
1150 PRINT TAB(18)"5 -IMFORMATION"
1160 A=1
1170 A=A+1
1180 POKE A*128+61440!+0,22
1190 IF A=24 THEN 1210
1200 GOTO 1170
1210 PRINT CHR$(30)
1220 A=1
1230 A=A+1
1240 POKE 0*128+61440!+A,22
1250 IF A=30 THEN GOTO 1270
1260 GOTO 1230
1270 POKE 23*128+61440!+1,22
1280 E$=INKEY$
1290 POKE 0*128+61440!+1,22
1300 POKE 1*128+61440!+51,22
1310 IF E$="1" THEN 260
1320 IF E$="2" THEN 740
1330 IF E$="3" THEN 10  
1340 IF E$="4"THEN GOTO 1370
1350 IF E$="5"THEN 1430
1360 GOTO 1280
1370 PRINT CHR$(26) "DO YOU REALLY WANT TO QUIT":INPUT G$
1380 IF G$="Y" THEN 1650
1390 IF G$="N"THEN 870
1400 IF G$="NO" THEN 870
1410 IF G$="YES" THEN 1650
1420 GOTO 1370
1430 PRINT CHR$(26):PRINT"    WHEN YOU SKETCH A PICTURE, AND THEN SKETCH "
1440 PRINT"ANOTHER PICTURE, IT SAVES THE NEW PICTURE OVER THE"
1450 PRINT"OLD PICTURE. IF YOU WANT TO SAVE TO A DIFFERENT "
1460 PRINT"FILE YOU HAVE TO DO SOME EDITTING. HERE IS WHAT TO "
1470 PRINT"CHANGE:"
1480 PRINT:PRINT
1490 PRINT"' IS USED INSTEAD OF DOUBLE BECAUSE OF PRINT"
1500 PRINT"  STATEMENT":PRINT
1510 PRINT"  REPLACE 'B:PICT.BAS' WITH 'B:(NEWFILE).BAS'"
1520 PRINT:PRINT
1530 PRINT TAB(12)"260 OPEN 'I',1,'B:PICT.BAS
1540 PRINT TAB(12)"270 FILES'B:PICT.BAS"
1550 PRINT TAB(12)"750 OPEN'I',1,'B:PICT.BAS"
1560 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1570 PRINT TAB(17)"HIT RETURN"
1580 K$=INKEY$
1590 IF K$=CHR$(13) THEN 870
1600 GOTO 1580
1610 PRINT CHR$(26)
1620 GOTO 770
1630 CLOSE#1
1640 GOTO 260
1650 PRINT CHR$(26):END
$=CHR$(13) THEN 870
1