PLOTTER

100 DIM X(100),Y(100)
110 CLS: PRINT@5,"POINT GRAPH PROGRAM"
120 PRINT@32,"INPUT MAXIMUM X VALUE";:INPUT MX
130 IF (MX<0 OR MX>1000000) THEN PRINT@32,"":GOTO 120
140 PRINT@64,"INPUT MAXIMUM Y VALUE";:INPUT MY
150 IF (MY<0 OR MY>1000000) THEN PRINT@64,"":GOTO 140
160 SX=(MX/59): SY=(MY/25)
170 PRINT@96,"COLOR OF POINTS (1-8)";:INPUT C
180 IF (C<1 OR C>8) THEN PRINT@96,"":GOTO 170
190 J=0
200 PRINT@128,"X,Y (END WITH -1,-1";:INPUT X,Y
210 IF (X=-1 AND Y=-1) THEN 290
220 IF (X<0 OR X>MX) THEN 240
230 IF (Y>=0 AND Y<=MY) THEN 280
240 PRINT@480,"INVALID X,Y - TRY AGAIN";
250 FOR I=0 TO 300: NEXT I
260 PRINT@48O,""
270 PRINT@ 128,"": PRINT: PRINT: PRINT: PRINT: GOTO 200
280 X(J)=X: Y(J)=Y: J=J+1: GOTO 270
290 CLS0: A$="":B$=""
300 FOR I=2 TO 30
310 A$=A$+CHR$(128+1)
320 B$=B$+CHR$(128+4)
330 NEXT I
340 FOR I=2 TO 26
350 IF INT(I/2)=I/2 THEN SET(0,I,0):SET(I,I,0):SET(62,I,0):SET(63,I,0)
360 NEXT I
370 PRINT@1,A$;:PRINT@449,B$;
380 PRINT@480,"X:";SX;"Y:";SY;
390 IF J=0 THEN 470
400 FOR I=0 TO J-1
410 X=X(I): Y=Y(I): XD=(59/MX)*X: YD=(25/MY)*Y
420 IF XD-INT(XD)>.5 THEN XD=XD+1
430 IF YD-INT(YD)>.5 THEN YD=YD+1
440 XD=INT(XD)+2:YD=27-INT(YD) :SET(XD,YD,C)
450 SOUND 100,3
460 NEXT I
470 A$=INKEY$:IF A$="" THEN 470
480 IF A$="C" THEN CLS:GOTO 270
490 GOTO 110