Source Code
1 PRINT AT 9,6;"INSTRUCTIONS Y/N ?"
2 PAUSE 4E4
3 IF CODE INKEY$=51 THEN GOTO 8
4 CLS
5 SLOW
6 GOSUB 1000
8 SLOW
9 CLS
10 LET A=1
20 LET X=0
30 LET Y=0
40 LET P=A
50 PLOT X,Y
60 UNPLOT X,Y
70 IF P=A THEN PLOT X,Y
80 IF INKEY$="R" THEN GOTO 10
90 IF INKEY$="8" THEN LET X=X+1
100 IF INKEY$="7" THEN LET Y=Y+1
110 IF INKEY$="6" THEN LET Y=Y-1
120 IF INKEY$="5" THEN LET X=X-1
130 IF INKEY$="4" THEN GOTO 270
140 IF INKEY$="3" THEN GOTO 300
150 IF INKEY$="2" THEN GOTO 330
160 IF INKEY$="1" THEN GOTO 360
170 IF INKEY$="U" THEN LET P=0
180 IF INKEY$="P" THEN LET P=1
190 LET B=1
200 LET N=X
210 LET I=Y
220 IF INKEY$="C" THEN GOTO 390
230 IF INKEY$="D" THEN GOTO 480
240 IF X>=63 THEN LET X=63
245 IF X<=0 THEN LET X=0
250 IF Y>=43 THEN LET Y=43
255 IF Y<=0 THEN LET Y=0
260 GOTO 50
270 LET X=X+1
280 LET Y=Y+1
290 GOTO 240
300 LET X=X+1
310 LET Y=Y-1
320 GOTO 240
330 LET X=X-1
340 LET Y=Y+1
350 GOTO 240
360 LET X=X-1
370 LET Y=Y-1
380 GOTO 240
390 LET X=10+N-10*COS (B/16*PI)
400 LET Y=I-10*SIN (B/16*PI)
410 IF X>=63 THEN LET X=63
413 IF Y>=43 THEN LET Y=43
416 IF X=63 OR Y=43 THEN GOTO 50
419 IF X<=0 THEN LET X=0
422 IF Y<=0 THEN LET Y=0
425 IF X=0 OR Y=0 THEN GOTO 50
430 PLOT X,Y
440 LET B=B+1
450 IF B>32 THEN GOTO 50
460 IF INKEY$="C" THEN GOTO 390
470 GOTO 50
480 LET X=10+N-10*COS (B/16*PI)
490 LET Y=I+10*SIN (B/16*PI)
500 IF X>=63 THEN LET X=63
503 IF Y>=43 THEN LET Y=43
506 IF X=63 OR Y=43 THEN GOTO 50
509 IF X<=0 THEN LET X=0
512 IF Y<=0 THEN LET Y=0
515 IF X=0 OR Y=0 THEN GOTO 50
520 PLOT X,Y
530 LET B=B+1
540 IF B>32 THEN GOTO 50
550 IF INKEY$="D" THEN GOTO 480
560 GOTO 50
\n1000 PRINT AT 0,8;"TO PLOT LINES";AT 2,0;"KEYS 5-6-7-8 FOR VERT OR HORZ"
\n1010 PRINT AT 4,3;"TO PLOT 45\ ' DIAGONAL LINES"
\n1015 PRINT AT 6,0;"KEY 4 FOR LEFT-RIGHT UPWARD LINEKEY 3 FOR LEFT-RIGHT DOWNWARD KEY 2 FOR RIGHT-LEFT UPWARD KEY 1 FOR RIGHT-LEFT DOWNWARD"
\n1020 PRINT AT 11,7;"TO PLOT CIRCLES"
\n1025 PRINT AT 13,0;"KEY C PLOTS COUNTERCLOCKWISE KEY D PLOTS CLOCKWISE"
\n1030 PRINT AT 16,8;"FUNCTION KEY"
\n1035 PRINT AT 18,0;"KEY R RETURN PIXEL TO START POS.KEY P PUTS COMPUTER IN PLOT KEY U PUTS COMPUTER IN UNPLOT"
\n1040 PRINT AT 21,4;"%P%R%E%S%S% %A%N%Y% %K%E%Y% %T%O% %S%T%A%R%T"
\n1045 PAUSE 4E4
\n1050 CLS
\n1055 RETURN
\n1060 CLEAR
\n1070 SAVE "1028%0"
\n1080 RUN
