https://www.cocopedia.com/wiki/index.php?action=history&feed=atom&title=PLOTTER
PLOTTER - Revision history
2026-05-02T14:05:48Z
Revision history for this page on the wiki
MediaWiki 1.45.1
https://www.cocopedia.com/wiki/index.php?title=PLOTTER&diff=7417&oldid=prev
Polluks: Category
2015-09-10T21:22:41Z
<p>Category</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 17:22, 10 September 2015</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l39">Line 39:</td>
<td colspan="2" class="diff-lineno">Line 39:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 480 IF A$="C" THEN CLS:GOTO 270</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 480 IF A$="C" THEN CLS:GOTO 270</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 490 GOTO 110</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 490 GOTO 110</div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:BASIC]]</ins></div></td></tr>
</table>
Polluks
https://www.cocopedia.com/wiki/index.php?title=PLOTTER&diff=5347&oldid=prev
Luis46coco: Created page with " 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 PRIN..."
2013-03-25T15:13:12Z
<p>Created page with " 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 PRIN..."</p>
<p><b>New page</b></p><div> 100 DIM X(100),Y(100)<br />
110 CLS: PRINT@5,"POINT GRAPH PROGRAM"<br />
120 PRINT@32,"INPUT MAXIMUM X VALUE";:INPUT MX<br />
130 IF (MX<0 OR MX>1000000) THEN PRINT@32,"":GOTO 120<br />
140 PRINT@64,"INPUT MAXIMUM Y VALUE";:INPUT MY<br />
150 IF (MY<0 OR MY>1000000) THEN PRINT@64,"":GOTO 140<br />
160 SX=(MX/59): SY=(MY/25)<br />
170 PRINT@96,"COLOR OF POINTS (1-8)";:INPUT C<br />
180 IF (C<1 OR C>8) THEN PRINT@96,"":GOTO 170<br />
190 J=0<br />
200 PRINT@128,"X,Y (END WITH -1,-1";:INPUT X,Y<br />
210 IF (X=-1 AND Y=-1) THEN 290<br />
220 IF (X<0 OR X>MX) THEN 240<br />
230 IF (Y>=0 AND Y<=MY) THEN 280<br />
240 PRINT@480,"INVALID X,Y - TRY AGAIN";<br />
250 FOR I=0 TO 300: NEXT I<br />
260 PRINT@48O,""<br />
270 PRINT@ 128,"": PRINT: PRINT: PRINT: PRINT: GOTO 200<br />
280 X(J)=X: Y(J)=Y: J=J+1: GOTO 270<br />
290 CLS0: A$="":B$=""<br />
300 FOR I=2 TO 30<br />
310 A$=A$+CHR$(128+1)<br />
320 B$=B$+CHR$(128+4)<br />
330 NEXT I<br />
340 FOR I=2 TO 26<br />
350 IF INT(I/2)=I/2 THEN SET(0,I,0):SET(I,I,0):SET(62,I,0):SET(63,I,0)<br />
360 NEXT I<br />
370 PRINT@1,A$;:PRINT@449,B$;<br />
380 PRINT@480,"X:";SX;"Y:";SY;<br />
390 IF J=0 THEN 470<br />
400 FOR I=0 TO J-1<br />
410 X=X(I): Y=Y(I): XD=(59/MX)*X: YD=(25/MY)*Y<br />
420 IF XD-INT(XD)>.5 THEN XD=XD+1<br />
430 IF YD-INT(YD)>.5 THEN YD=YD+1<br />
440 XD=INT(XD)+2:YD=27-INT(YD) :SET(XD,YD,C)<br />
450 SOUND 100,3<br />
460 NEXT I<br />
470 A$=INKEY$:IF A$="" THEN 470<br />
480 IF A$="C" THEN CLS:GOTO 270<br />
490 GOTO 110</div>
Luis46coco