Home » Personal collection » Acorn DFS disks » dfs_box03_disk01b_utilities_disk.scp » W.SKETCH
W.SKETCH
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn DFS disks » dfs_box03_disk01b_utilities_disk.scp |
| Filename: | W.SKETCH |
| Read OK: | ✔ |
| File size: | 0750 bytes |
| Load address: | FF1900 |
| Exec address: | FF801F |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn DFS disks » dfs_box03_disk01_utilities_disk.scp » W.SKETCH
- Personal collection » Acorn DFS disks » dfs_box03_disk02_format_some_games.scp » W.SKETCH
- Personal collection » Acorn DFS disks » dfs_box03_disk01b_utilities_disk.scp » W.SKETCH
- Personal collection » Acorn DFS disks » dfs_box03_disk02b_format_some_games.scp » W.SKETCH
File contents
10 REM SKETCH/Sketch Program
12 REM Program by David Tee & Jerry Temple-Fry (NETHERHALL SCHOOL) & Richard G Warner
13 REM Version 1.5 - 15th October 1981
14 REM For BBC Model A Microcomputer 16K Minimum
40 ON ERROR GOTO50
50 MODE7
60 CLS:ON ERROR GOTO800
100 PROCTITLEPAGE:PROCINSTRUCTIONS
110 MODE5:PROCSETUP
130 X=600:Y=512:Z=5
150 MX=1220:MY=1020:S=10
200 REPEAT
210 K=INKEY(0):K=K-128:IF K<=0 THEN 500
220 ON K GOTO 310,310,310,320,340,500,500,230,240,250,260
230 IF X>10 THEN X=X-S
235 GOTO270
240 IF X<MX THEN X=X+S
245 GOTO270
250 IF Y>10 THEN Y=Y-S
255 GOTO270
260 IF Y<MY THEN Y=Y+S
270 PLOTZ,X,Y:GOTO210
300 REM
310 GCOL0,K:Z=5:GOTO 500
320 IF Z=4 THEN Z=5 ELSE Z=4
330 GOTO500
340 IF Z=7 THEN Z=5 ELSE Z=7
500 MOVEX,Y+10:PLOT6,X,Y-10:MOVEX-10,Y:PLOT6,X+10,Y:MOVEX,Y+10:PLOT6,X,Y-10:MOVEX-10,Y:PLOT6,X+10,Y:MOVEX,Y
530 UNTIL FALSE
800 MODE7:IF ERR<>17 THEN REPORT:PRINT" in line ";ERL:END
900 CLS
910 PRINTTAB(5,9);
920 PRINT"Do you want to go on to"
930 PRINT" the next program (Y/N)? ";
940 PROCYN:IF Y%=0 THEN 100
970 CHAIN "CALC"
990 CHAIN""
1100 DEFPROCSETUP
1110 *KEY 0 "|!|A"
1120 *KEY 1 "|!|B"
1130 *KEY 2 "|!|C"
1140 *KEY 4 "|!|D"
1150 *KEY 9 "|!|E"
1160 *FX 4 1
1200 VDU5,19,3,6,0,0,0,19,2,3,0,0,0
1299 ENDPROC
2000 DEFPROCINSTRUCTIONS
2020 CLS:PRINT'''
2100 PRINT" This program is like the popular"
2110 PRINT" game 'ETCHA SKETCH'. You use the"
2120 PRINT" four cursor control keys to"
2130 PRINT" draw pictures on the screen."
2150 PRINT'" The RED keys at the top of the"
2160 PRINT" keyboard control the colour of"
2170 PRINT" of the line (f0-f2), and the"
2180 PRINT" move (f4) and erase (f9)"
2190 PRINT" facilities.":PROCSPACE
2199 ENDPROC
8000 DEFPROCDBL(X$,X,Y)
8010 PRINTTAB(X-1,Y);CHR$(141);X$
8020 PRINTTAB(X-1,Y+1);CHR$(141);X$
8099 ENDPROC
8200 DEFPROCSPACE
8220 PRINTTAB(3,22);"Press the SPACE BAR to continue";:PROCKCL
8240 REPEAT UNTIL GET$=" "
8299 ENDPROC
8300 DEFPROCTITLEPAGE
8310 CLS:PROCDBL("Sketch",12,8):PROCDBL("Drawing",11,11)
8320 PROCOFF:I%=INKEY(500)
8399 ENDPROC
8800 DEFPROCKCL
8810 IF INKEY$(0)>"" THEN 8810
8899 ENDPROC
8900 DEFPROCOFF
8910 VDU23;8202;0;0;0;:ENDPROC
9200 DEFPROCYN
9210 Y%=-1
9220 X%=GET:IF X%=13 AND Y%>=0 THENENDPROC
9230 X%=X%AND&DF:IFX%<>78ANDX%<>89THEN9220
9240 Y%=1:IFX%=78THENY%=0
9250 PRINTCHR$X%;CHR$8;:GOTO9220
� SKETCH/Sketch Program
U � Program by David Tee & Jerry Temple-Fry (NETHERHALL SCHOOL) & Richard G Warner
& � Version 1.5 - 15th October 1981
0 � For BBC Model A Microcomputer 16K Minimum
( � � �Tr@
2 �7
< �:� � �T`C
d �TITLEPAGE:�INSTRUCTIONS
n �5:�SETUP
� X=600:Y=512:Z=5
� MX=1220:MY=1020:S=10
� �
�! K=�(0):K=K-128:� K<=0 � �dtA
�A � K � �TvA,�TvA,�TvA,�D@A,�DTA,�dtA,�dtA,�df@,�dp@,�dz@,�TDA
� � X>10 � X=X-S
�
�TNA
� � X<MX � X=X+S
�
�TNA
� � Y>10 � Y=Y-S
�
�TNA
� Y<MY � Y=Y+S
�Z,X,Y:�dR@
, �
6 �0,K:Z=5:� �dtA
@ � Z=4 � Z=5 � Z=4
J
�dtA
T � Z=7 � Z=5 � Z=7
�Q �X,Y+10:�6,X,Y-10:�X-10,Y:�6,X+10,Y:�X,Y+10:�6,X,Y-10:�X-10,Y:�6,X+10,Y:�X,Y
� �
$ �7:� �<>17 � �:�" in line ";�:�
� �
� �5,9);
� �"Do you want to go on to"
�& �" the next program (Y/N)? ";
� �YN:� Y%=0 � �Dd@
�
� "CALC"
� �""
L ��SETUP
V *KEY 0 "|!|A"
` *KEY 1 "|!|B"
j *KEY 2 "|!|C"
t *KEY 4 "|!|D"
~ *KEY 9 "|!|E"
� *FX 4 1
�! �5,19,3,6,0,0,0,19,2,3,0,0,0
�
� ��INSTRUCTIONS
� �:�'''
4, �" This program is like the popular"
>, �" game 'ETCHA SKETCH'. You use the"
H' �" four cursor control keys to"
R( �" draw pictures on the screen."
f+ �'" The RED keys at the top of the"
p* �" keyboard control the colour of"
z( �" of the line (f0-f2), and the"
�$ �" move (f4) and erase (f9)"
� �" facilities.":�SPACE
� �
@ ��DBL(X$,X,Y)
J �X-1,Y);�(141);X$
T �X-1,Y+1);�(141);X$
� �
��SPACE
4 �3,22);"Press the SPACE BAR to continue";:�KCL
0 � � �=" "
k �
l ��TITLEPAGE
v0 �:�DBL("Sketch",12,8):�DBL("Drawing",11,11)
� �OFF:I%=�(500)
� �
"`
��KCL
"j � �(0)>"" � �Djb
"� �
"�
��OFF
"� �23;8202;0;0;0;:�
#� ��YN
#�
Y%=-1
$ X%=�:� X%=13 � Y%>=0 ��
$" X%=X%�&DF:�X%<>78�X%<>89��TDd
$ Y%=1:�X%=78�Y%=0
$" �X%;�8;:�TDd
� 00000000 0d 00 0a 1c 20 f4 20 53 4b 45 54 43 48 2f 53 6b |.... . SKETCH/Sk|
00000010 65 74 63 68 20 50 72 6f 67 72 61 6d 0d 00 0c 55 |etch Program...U|
00000020 20 f4 20 50 72 6f 67 72 61 6d 20 62 79 20 44 61 | . Program by Da|
00000030 76 69 64 20 54 65 65 20 26 20 4a 65 72 72 79 20 |vid Tee & Jerry |
00000040 54 65 6d 70 6c 65 2d 46 72 79 20 28 4e 45 54 48 |Temple-Fry (NETH|
00000050 45 52 48 41 4c 4c 20 53 43 48 4f 4f 4c 29 20 26 |ERHALL SCHOOL) &|
00000060 20 52 69 63 68 61 72 64 20 47 20 57 61 72 6e 65 | Richard G Warne|
00000070 72 0d 00 0d 26 20 f4 20 56 65 72 73 69 6f 6e 20 |r...& . Version |
00000080 31 2e 35 20 2d 20 31 35 74 68 20 4f 63 74 6f 62 |1.5 - 15th Octob|
00000090 65 72 20 31 39 38 31 0d 00 0e 30 20 f4 20 46 6f |er 1981...0 . Fo|
000000a0 72 20 42 42 43 20 4d 6f 64 65 6c 20 41 20 4d 69 |r BBC Model A Mi|
000000b0 63 72 6f 63 6f 6d 70 75 74 65 72 20 31 36 4b 20 |crocomputer 16K |
000000c0 4d 69 6e 69 6d 75 6d 0d 00 28 0e 20 ee 20 85 20 |Minimum..(. . . |
000000d0 e5 8d 54 72 40 0d 00 32 07 20 eb 37 0d 00 3c 10 |..Tr@..2. .7..<.|
000000e0 20 db 3a ee 20 85 20 e5 8d 54 60 43 0d 00 64 1d | .:. . ..T`C..d.|
000000f0 20 f2 54 49 54 4c 45 50 41 47 45 3a f2 49 4e 53 | .TITLEPAGE:.INS|
00000100 54 52 55 43 54 49 4f 4e 53 0d 00 6e 0e 20 eb 35 |TRUCTIONS..n. .5|
00000110 3a f2 53 45 54 55 50 0d 00 82 14 20 58 3d 36 30 |:.SETUP.... X=60|
00000120 30 3a 59 3d 35 31 32 3a 5a 3d 35 0d 00 96 19 20 |0:Y=512:Z=5.... |
00000130 4d 58 3d 31 32 32 30 3a 4d 59 3d 31 30 32 30 3a |MX=1220:MY=1020:|
00000140 53 3d 31 30 0d 00 c8 06 20 f5 0d 00 d2 21 20 4b |S=10.... ....! K|
00000150 3d a6 28 30 29 3a 4b 3d 4b 2d 31 32 38 3a e7 20 |=.(0):K=K-128:. |
00000160 4b 3c 3d 30 20 8c 20 8d 64 74 41 0d 00 dc 41 20 |K<=0 . .dtA...A |
00000170 ee 20 4b 20 e5 20 8d 54 76 41 2c 8d 54 76 41 2c |. K . .TvA,.TvA,|
00000180 8d 54 76 41 2c 8d 44 40 41 2c 8d 44 54 41 2c 8d |.TvA,.D@A,.DTA,.|
00000190 64 74 41 2c 8d 64 74 41 2c 8d 64 66 40 2c 8d 64 |dtA,.dtA,.df@,.d|
000001a0 70 40 2c 8d 64 7a 40 2c 8d 54 44 41 0d 00 e6 13 |p@,.dz@,.TDA....|
000001b0 20 e7 20 58 3e 31 30 20 8c 20 58 3d 58 2d 53 0d | . X>10 . X=X-S.|
000001c0 00 eb 0a 20 e5 8d 54 4e 41 0d 00 f0 13 20 e7 20 |... ..TNA.... . |
000001d0 58 3c 4d 58 20 8c 20 58 3d 58 2b 53 0d 00 f5 0a |X<MX . X=X+S....|
000001e0 20 e5 8d 54 4e 41 0d 00 fa 13 20 e7 20 59 3e 31 | ..TNA.... . Y>1|
000001f0 30 20 8c 20 59 3d 59 2d 53 0d 00 ff 0a 20 e5 8d |0 . Y=Y-S.... ..|
00000200 54 4e 41 0d 01 04 13 20 e7 20 59 3c 4d 59 20 8c |TNA.... . Y<MY .|
00000210 20 59 3d 59 2b 53 0d 01 0e 11 20 f0 5a 2c 58 2c | Y=Y+S.... .Z,X,|
00000220 59 3a e5 8d 64 52 40 0d 01 2c 06 20 f4 0d 01 36 |Y:..dR@..,. ...6|
00000230 14 20 e6 30 2c 4b 3a 5a 3d 35 3a e5 20 8d 64 74 |. .0,K:Z=5:. .dt|
00000240 41 0d 01 40 16 20 e7 20 5a 3d 34 20 8c 20 5a 3d |A..@. . Z=4 . Z=|
00000250 35 20 8b 20 5a 3d 34 0d 01 4a 0a 20 e5 8d 64 74 |5 . Z=4..J. ..dt|
00000260 41 0d 01 54 16 20 e7 20 5a 3d 37 20 8c 20 5a 3d |A..T. . Z=7 . Z=|
00000270 35 20 8b 20 5a 3d 37 0d 01 f4 51 20 ec 58 2c 59 |5 . Z=7...Q .X,Y|
00000280 2b 31 30 3a f0 36 2c 58 2c 59 2d 31 30 3a ec 58 |+10:.6,X,Y-10:.X|
00000290 2d 31 30 2c 59 3a f0 36 2c 58 2b 31 30 2c 59 3a |-10,Y:.6,X+10,Y:|
000002a0 ec 58 2c 59 2b 31 30 3a f0 36 2c 58 2c 59 2d 31 |.X,Y+10:.6,X,Y-1|
000002b0 30 3a ec 58 2d 31 30 2c 59 3a f0 36 2c 58 2b 31 |0:.X-10,Y:.6,X+1|
000002c0 30 2c 59 3a ec 58 2c 59 0d 02 12 08 20 fd 20 a3 |0,Y:.X,Y.... . .|
000002d0 0d 03 20 24 20 eb 37 3a e7 20 9f 3c 3e 31 37 20 |.. $ .7:. .<>17 |
000002e0 8c 20 f6 3a f1 22 20 69 6e 20 6c 69 6e 65 20 22 |. .:." in line "|
000002f0 3b 9e 3a e0 0d 03 84 08 20 db 20 20 0d 03 8e 0c |;.:..... . ....|
00000300 20 f1 8a 35 2c 39 29 3b 0d 03 98 1f 20 f1 22 44 | ..5,9);.... ."D|
00000310 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 67 6f |o you want to go|
00000320 20 6f 6e 20 74 6f 22 0d 03 a2 26 20 f1 22 20 20 | on to"...& ." |
00000330 20 20 20 74 68 65 20 6e 65 78 74 20 70 72 6f 67 | the next prog|
00000340 72 61 6d 20 28 59 2f 4e 29 3f 20 22 3b 0d 03 ac |ram (Y/N)? ";...|
00000350 16 20 f2 59 4e 3a e7 20 59 25 3d 30 20 8c 20 8d |. .YN:. Y%=0 . .|
00000360 44 64 40 0d 03 ca 0d 20 d7 20 22 43 41 4c 43 22 |Dd@.... . "CALC"|
00000370 0d 03 de 08 20 d7 22 22 0d 04 4c 0c 20 dd f2 53 |.... .""..L. ..S|
00000380 45 54 55 50 0d 04 56 12 20 2a 4b 45 59 20 30 20 |ETUP..V. *KEY 0 |
00000390 22 7c 21 7c 41 22 0d 04 60 12 20 2a 4b 45 59 20 |"|!|A"..`. *KEY |
000003a0 31 20 22 7c 21 7c 42 22 0d 04 6a 12 20 2a 4b 45 |1 "|!|B"..j. *KE|
000003b0 59 20 32 20 22 7c 21 7c 43 22 0d 04 74 12 20 2a |Y 2 "|!|C"..t. *|
000003c0 4b 45 59 20 34 20 22 7c 21 7c 44 22 0d 04 7e 12 |KEY 4 "|!|D"..~.|
000003d0 20 2a 4b 45 59 20 39 20 22 7c 21 7c 45 22 0d 04 | *KEY 9 "|!|E"..|
000003e0 88 0c 20 2a 46 58 20 34 20 31 0d 04 b0 21 20 ef |.. *FX 4 1...! .|
000003f0 35 2c 31 39 2c 33 2c 36 2c 30 2c 30 2c 30 2c 31 |5,19,3,6,0,0,0,1|
00000400 39 2c 32 2c 33 2c 30 2c 30 2c 30 0d 05 13 06 20 |9,2,3,0,0,0.... |
00000410 e1 0d 07 d0 13 20 dd f2 49 4e 53 54 52 55 43 54 |..... ..INSTRUCT|
00000420 49 4f 4e 53 0d 07 e4 0b 20 db 3a f1 27 27 27 0d |IONS.... .:.'''.|
00000430 08 34 2c 20 f1 22 20 20 20 20 54 68 69 73 20 70 |.4, ." This p|
00000440 72 6f 67 72 61 6d 20 69 73 20 6c 69 6b 65 20 74 |rogram is like t|
00000450 68 65 20 70 6f 70 75 6c 61 72 22 0d 08 3e 2c 20 |he popular"..>, |
00000460 f1 22 20 20 20 20 67 61 6d 65 20 27 45 54 43 48 |." game 'ETCH|
00000470 41 20 53 4b 45 54 43 48 27 2e 20 59 6f 75 20 75 |A SKETCH'. You u|
00000480 73 65 20 74 68 65 22 0d 08 48 27 20 f1 22 20 20 |se the"..H' ." |
00000490 20 20 66 6f 75 72 20 63 75 72 73 6f 72 20 63 6f | four cursor co|
000004a0 6e 74 72 6f 6c 20 6b 65 79 73 20 74 6f 22 0d 08 |ntrol keys to"..|
000004b0 52 28 20 f1 22 20 20 20 20 64 72 61 77 20 70 69 |R( ." draw pi|
000004c0 63 74 75 72 65 73 20 6f 6e 20 74 68 65 20 73 63 |ctures on the sc|
000004d0 72 65 65 6e 2e 22 0d 08 66 2b 20 f1 27 22 20 20 |reen."..f+ .'" |
000004e0 20 20 54 68 65 20 52 45 44 20 6b 65 79 73 20 61 | The RED keys a|
000004f0 74 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 |t the top of the|
00000500 22 0d 08 70 2a 20 f1 22 20 20 20 20 6b 65 79 62 |"..p* ." keyb|
00000510 6f 61 72 64 20 63 6f 6e 74 72 6f 6c 20 74 68 65 |oard control the|
00000520 20 63 6f 6c 6f 75 72 20 6f 66 22 0d 08 7a 28 20 | colour of"..z( |
00000530 f1 22 20 20 20 20 6f 66 20 74 68 65 20 6c 69 6e |." of the lin|
00000540 65 20 28 66 30 2d 66 32 29 2c 20 61 6e 64 20 74 |e (f0-f2), and t|
00000550 68 65 22 0d 08 84 24 20 f1 22 20 20 20 20 6d 6f |he"...$ ." mo|
00000560 76 65 20 28 66 34 29 20 61 6e 64 20 65 72 61 73 |ve (f4) and eras|
00000570 65 20 28 66 39 29 22 0d 08 8e 1e 20 f1 22 20 20 |e (f9)".... ." |
00000580 20 20 66 61 63 69 6c 69 74 69 65 73 2e 22 3a f2 | facilities.":.|
00000590 53 50 41 43 45 0d 08 97 06 20 e1 0d 1f 40 12 20 |SPACE.... ...@. |
000005a0 dd f2 44 42 4c 28 58 24 2c 58 2c 59 29 0d 1f 4a |..DBL(X$,X,Y)..J|
000005b0 17 20 f1 8a 58 2d 31 2c 59 29 3b bd 28 31 34 31 |. ..X-1,Y);.(141|
000005c0 29 3b 58 24 0d 1f 54 19 20 f1 8a 58 2d 31 2c 59 |);X$..T. ..X-1,Y|
000005d0 2b 31 29 3b bd 28 31 34 31 29 3b 58 24 0d 1f a3 |+1);.(141);X$...|
000005e0 06 20 e1 0d 20 08 0c 20 dd f2 53 50 41 43 45 0d |. .. .. ..SPACE.|
000005f0 20 1c 34 20 f1 8a 33 2c 32 32 29 3b 22 50 72 65 | .4 ..3,22);"Pre|
00000600 73 73 20 74 68 65 20 53 50 41 43 45 20 42 41 52 |ss the SPACE BAR|
00000610 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 3b 3a f2 | to continue";:.|
00000620 4b 43 4c 0d 20 30 0e 20 f5 20 fd 20 be 3d 22 20 |KCL. 0. . . .=" |
00000630 22 0d 20 6b 06 20 e1 0d 20 6c 10 20 dd f2 54 49 |". k. .. l. ..TI|
00000640 54 4c 45 50 41 47 45 0d 20 76 30 20 db 3a f2 44 |TLEPAGE. v0 .:.D|
00000650 42 4c 28 22 53 6b 65 74 63 68 22 2c 31 32 2c 38 |BL("Sketch",12,8|
00000660 29 3a f2 44 42 4c 28 22 44 72 61 77 69 6e 67 22 |):.DBL("Drawing"|
00000670 2c 31 31 2c 31 31 29 0d 20 80 13 20 f2 4f 46 46 |,11,11). .. .OFF|
00000680 3a 49 25 3d a6 28 35 30 30 29 0d 20 cf 06 20 e1 |:I%=.(500). .. .|
00000690 0d 22 60 0a 20 dd f2 4b 43 4c 0d 22 6a 15 20 e7 |."`. ..KCL."j. .|
000006a0 20 bf 28 30 29 3e 22 22 20 8c 20 8d 44 6a 62 0d | .(0)>"" . .Djb.|
000006b0 22 c3 06 20 e1 0d 22 c4 0a 20 dd f2 4f 46 46 0d |".. ..".. ..OFF.|
000006c0 22 ce 16 20 ef 32 33 3b 38 32 30 32 3b 30 3b 30 |".. .23;8202;0;0|
000006d0 3b 30 3b 3a e1 0d 23 f0 09 20 dd f2 59 4e 0d 23 |;0;:..#.. ..YN.#|
000006e0 fa 0a 20 59 25 3d 2d 31 0d 24 04 1c 20 58 25 3d |.. Y%=-1.$.. X%=|
000006f0 a5 3a e7 20 58 25 3d 31 33 20 80 20 59 25 3e 3d |.:. X%=13 . Y%>=|
00000700 30 20 8c e1 0d 24 0e 22 20 58 25 3d 58 25 80 26 |0 ...$." X%=X%.&|
00000710 44 46 3a e7 58 25 3c 3e 37 38 80 58 25 3c 3e 38 |DF:.X%<>78.X%<>8|
00000720 39 8c 8d 54 44 64 0d 24 18 15 20 59 25 3d 31 3a |9..TDd.$.. Y%=1:|
00000730 e7 58 25 3d 37 38 8c 59 25 3d 30 0d 24 22 13 20 |.X%=78.Y%=0.$". |
00000740 f1 bd 58 25 3b bd 38 3b 3a e5 8d 54 44 64 0d ff |..X%;.8;:..TDd..|
00000750 
W.SKETCH.m0
W.SKETCH.m1
W.SKETCH.m2
W.SKETCH.m4
W.SKETCH.m5
.