QL Etcher

HOW TO USE THIS PROGRAM

This is a drawing program for the QL, and is self-explanatory–with directions in the program itself. You can view the program on a TV (F2) or a monitor on F2. The most important thing is to have your CAPS LOCK ON! Just follow the programs built in prompts.

Anyone who wants a copy of this program on Microdrive, just send a formatted cartridge to: D. Johnson, [address omitted]. Include $1.00 for shipping.

1 MODE 256: CLS:PAPER 0:PAPER #0;0:INK 7:CLS #0:PRINT"           SINCLAIR QL"
2 AT 3,0:PRINT "-----------------------------------":PRINT:PRINT:PRINT"     THIS IS AN ETCH-A-SKETCH"
3 PRINT"  PROGRAM CREATED FOR THE STRANGE"
4 PRINT" AND  DEMENTED; POSSIBLY FOR THOSE"
11 PRINT"   WE BELIEVE  THAT THIS PROGRAM "
12 PRINT" WILL PROVIDE  MINUTES OF ENJOY-"
13 PRINT"  MENT, SECONDS OF ECSTACY, AND A"
14 PRINT" BETTER  OUTLOOK ON LIFE, THE UNI-"
15 PRINT"      VERSE, AND EVERYTHING."
16 PRINT"           ( TV MODE )":PRINT:PRINT
17 FOR K=1 TO 35
18 PRINT "-";"";
19 NEXT K
20 PAUSE 100
22 PRINT"DO YOU WISH TO SEE THE DIRECTIONS";,"(Y/N)":INPUT DI$
23 IF DI$="N" THEN GO TO 40
24 CLS:CLS #0:PRINT"    DIRECTIONS ARE AS FOLLOWS:"
25 PRINT:PRINT:PRINT"              USE:"
26 PRINT:PRINT "0-FOR UP"
27 PRINT:PRINT "L-FOR DOWN"
28 PRINT:PRINT "P-FOR RIGHT"
29 PRINT:PRINT "O-FOR LEFT"
30 PRINT:PRINT "Q-FOR DRAWING COMMANDS"
35 PRINT:PRINT "T-FOR TEXT COMMANDS"
40 PAUSE 300: CLS:CLS #0
42 PRINT "TO BEGIN"
43 PRINT:PRINT"1) DRAWING"
44 PRINT:PRINT"2) SEE A PICTURE"
45 PRINT:PRINT"PRESS 1 OR 2":INPUT YES$
46 IF YES$="1" THEN GO TO 349
47 IF YES$="2" THEN GO TO 150
48 GO TO 40
120 IF E$="Y" THEN GO TO 150
130 IF E$="N" THEN GO TO 322
140 GO TO 110
150 LET D$ = CHR$(93):LET L$ = CHR$(93)
160 PRINT D$;"OPEN POINTS1"
170 PRINT D$;"READ POINTS1"
180 LBYTES mdv1_POINTS1,131072
210 PRINT D$;"CLOSE POINTS1"
211 PAUSE 100
349 CLS:MODE 512
350 PAPER #0;7:INK #0;0:CLS #0: PRINT #0; "0=UP, L=DN, O=←, P=→, Q=STOP FOR COMMANDS"
370 LET Y=1
390 LET X=Y
395 LET Y$=INKEY$
400 IF Y$="" THEN GO TO 395
420 IF Y$="0" THEN LET Y=Y+1
425 IF Y$="L" THEN LET Y=Y-1
430 IF Y$="O" THEN LET X=X-1
435 IF Y$="P" THEN LET X=X+1
436 IF Y$="Q" THEN GO TO 560
437 IF Y$="T" THEN TEXT
520 POINT X,Y
521 PRINT #0;"X=";X;" Y=";Y
522 INK 7
550 GO TO 395
560 CLS #0:PRINT #0;"DO YOU WISH TO PLACE A CIRCLE AT X";X;"Y";Y;" ?  (Y,N)":INPUT #0; C$
565 IF C$="Y" THEN GO TO 570
566 IF C$="N" THEN GO TO 600
570 PRINT #0;"CIRCLE PARAMETERS: RADIUS, ECCENTRICITY, ANGLE":INPUT #0; Z,W,V
575 CIRCLE X;Y;Z,W,V:PRINT #0;"DO YOU WISH TO FILL ? (Y/N)"
576 INPUT #0;C$:IF C$="Y" THEN PAINT
577 IF C$="N" THEN GO TO 395
600 PRINT #0:PRINT #0;"DO YOU WISH TO CHANGE X & Y ?  (Y/N)"
601 INPUT #0; C$:IF C$="Y" THEN GO TO 610
602 IF C$="N" THEN GO TO 395
610 PRINT #0;"YOU ARE NOW AT X";X;"Y";Y;" INPUT NEW X":INPUT #0; X
611 PRINT #0;"NEW Y ??":INPUT #0; Y:GO TO 395
13000 DEFine PROCedure PAINT
13010 PRINT #0;" WHAT COLOR ? ( 0 - 7 )":INPUT #0;COLOR
13015 INK COLOR:FILL 1:CIRCLE X;Y;Z,W,V:FILL 0
13020 END DEFine
13999 REMark *************************************
14000 REMark BY David Johnson and Robert Johnson
14500 REMark for the Sinclair QL : 1986
14510 REMark ************************************
15000 DEFine PROCedure TEXT
15010 PRINT #0;"TEXT AT CURRENT X ";X;"Y ";Y;" POSITION ?? (Y/N)"
15015 INPUT #0;TEX$:IF TEX$="Y" THEN GO TO 15017
15016 IF TEX$="N" THEN GO TO 600
15017 PRINT #0;"INK ? (0-7)":INPUT #0;COLOR:INK COLOR
15030 PRINT #0;"INPUT YOUR TEXT: ":INPUT #0;TE$
15035 CURSOR X,Y:PRINT TE$
15040 END DEFine