Plot

Gallery

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
1000 PRINT AT 0,8;"TO PLOT LINES";AT 2,0;"KEYS  5-6-7-8  FOR VERT OR HORZ"
1010 PRINT AT 4,3;"TO PLOT 45\ ' DIAGONAL LINES"
1015 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"
1020 PRINT AT 11,7;"TO PLOT CIRCLES"
1025 PRINT AT 13,0;"KEY C PLOTS COUNTERCLOCKWISE    KEY D PLOTS CLOCKWISE"
1030 PRINT AT 16,8;"FUNCTION KEY"
1035 PRINT AT 18,0;"KEY R RETURN PIXEL TO START POS.KEY P PUTS COMPUTER IN PLOT     KEY U PUTS COMPUTER IN UNPLOT"
1040 PRINT AT 21,4;"%P%R%E%S%S% %A%N%Y% %K%E%Y% %T%O% %S%T%A%R%T"
1045 PAUSE 4E4
1050 CLS 
1055 RETURN 
1060 CLEAR 
1070 SAVE "1028%0"
1080 RUN