26-05-89/GRDPlot

Home » CEEFAX disks » telesoftware16.adl » 26-05-89/GRDPlot

26-05-89/GRDPlot

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware16.adl
Filename:	26-05-89/GRDPlot
Read OK:	✔
File size:	05EC bytes
Load address:	FFFF1100
Exec address:	FFFF802B

File contents

   10REM Four little Graphics planning
   20REM sheets.Plotmate & Rom vers.1.9
   30REM by Tom Measures 7th Jan.1987.
   40:
   50MODE0:VDU19,0,4;0;0;:VDU29,0;0;
   55REM *PLTMATE
   60VDU29,0;544;
   70VDU23,255,3,2,0,0,10,4,0,120
   80GCOL0,0
   90VDU23,255,0,0,0,0,0,5,0,0
  100GCOL0,1
  110A%=0:REPEAT:A%=A%+1
  120FOR X=60 TO 475 STEP 41.5
  130MOVE X,45:DRAW X,460
  140NEXT
  150FOR Y=45 TO 460 STEP 41.5
  160MOVE 60,Y:DRAW 475,Y
  170NEXT
  180VDU29,456;544;
  190UNTIL A%=2
  200VDU29,0;78;
  210A%=0:REPEAT:A%=A%+1
  220FOR X=60 TO 475 STEP 41.5
  230MOVE X,45:DRAW X,460
  240NEXT
  250FOR Y=45 TO 460 STEP 41.5
  260MOVE 60,Y:DRAW 475,Y
  270NEXT
  280VDU29,456;78;
  290UNTIL A%=2
  300VDU29,0;547;
  310A%=0:REPEAT:A%=A%+1
  320REM Y Parameters.
  330VDU5:MOVE56,33:PRINT"O"
  340MOVE95,33:PRINT"1"
  350MOVE137,33:PRINT"2"
  360MOVE178,33:PRINT"3"
  370MOVE221,33:PRINT"4"
  380MOVE262,33:PRINT"5"
  390MOVE304,33:PRINT"6"
  400MOVE345,33:PRINT"7"
  410MOVE387,33:PRINT"8"
  420MOVE428,33:PRINT"9"
  430MOVE460,33:PRINT"1O"
  440MOVE36,56:PRINT"O":REM X Params.
  450MOVE36,97:PRINT"1"
  460MOVE36,140:PRINT"2"
  470MOVE36,182:PRINT"3"
  480MOVE36,223:PRINT"4"
  490MOVE36,265:PRINT"5"
  500MOVE36,307:PRINT"6"
  510MOVE36,347:PRINT"7"
  520MOVE36,388:PRINT"8"
  530MOVE36,429:PRINT"9"
  540MOVE22,472:PRINT"1O"
  550VDU29,456;547;
  560UNTIL A%=2:MOVE100,33
  570VDU29,0;81;
  580A%=0:REPEAT:A%=A%+1
  590MOVE56,33:PRINT"O":REM Y Params.
  600MOVE95,33:PRINT"1"
  610MOVE137,33:PRINT"2"
  620MOVE178,33:PRINT"3"
  630MOVE221,33:PRINT"4"
  640MOVE262,33:PRINT"5"
  650MOVE304,33:PRINT"6"
  660MOVE345,33:PRINT"7"
  670MOVE387,33:PRINT"8"
  680MOVE428,33:PRINT"9"
  690MOVE460,33:PRINT"1O"
  700MOVE36,56:PRINT"O":REM X Params.
  710MOVE36,97:PRINT"1"
  720MOVE36,140:PRINT"2"
  730MOVE36,182:PRINT"3"
  740MOVE36,223:PRINT"4"
  750MOVE36,265:PRINT"5"
  760MOVE36,307:PRINT"6"
  770MOVE36,347:PRINT"7"
  780MOVE36,387:PRINT"8"
  790MOVE36,430:PRINT"9"
  800MOVE22,472:PRINT"1O"
  810VDU29,456;81;
  820UNTIL A%=2:VDU4:VDU29,0;0;
  830REM *PARK
  840REM *OFF.
  850PRINTTAB(4,30);"Choose whether you use the numbers as Tens or Hundreds"
  860VDU7:END


#� Four little Graphics planning
$� sheets.Plotmate & Rom vers.1.9
#� by Tom Measures 7th Jan.1987.
(:
2�0:�19,0,4;0;0;:�29,0;0;
7� *PLTMATE
<�29,0;544;
F�23,255,3,2,0,0,10,4,0,120
P�0,0
Z�23,255,0,0,0,0,0,5,0,0
d�0,1
nA%=0:�:A%=A%+1
x� X=60 � 475 � 41.5
�� X,45:� X,460
��
�� Y=45 � 460 � 41.5
�� 60,Y:� 475,Y
��
��29,456;544;
�
� A%=2
�
�29,0;78;
�A%=0:�:A%=A%+1
�� X=60 � 475 � 41.5
�� X,45:� X,460
��
�� Y=45 � 460 � 41.5
� 60,Y:� 475,Y
�
�29,456;78;
"
� A%=2
,�29,0;547;
6A%=0:�:A%=A%+1
@� Y Parameters.
J�5:�56,33:�"O"
T�95,33:�"1"
^�137,33:�"2"
h�178,33:�"3"
r�221,33:�"4"
|�262,33:�"5"
��304,33:�"6"
��345,33:�"7"
��387,33:�"8"
��428,33:�"9"
��460,33:�"1O"
��36,56:�"O":� X Params.
��36,97:�"1"
��36,140:�"2"
��36,182:�"3"
��36,223:�"4"
��36,265:�"5"
��36,307:�"6"
��36,347:�"7"
�36,388:�"8"
�36,429:�"9"
�22,472:�"1O"
&�29,456;547;
0� A%=2:�100,33
:
�29,0;81;
DA%=0:�:A%=A%+1
N�56,33:�"O":� Y Params.
X�95,33:�"1"
b�137,33:�"2"
l�178,33:�"3"
v�221,33:�"4"
��262,33:�"5"
��304,33:�"6"
��345,33:�"7"
��387,33:�"8"
��428,33:�"9"
��460,33:�"1O"
��36,56:�"O":� X Params.
��36,97:�"1"
��36,140:�"2"
��36,182:�"3"
��36,223:�"4"
��36,265:�"5"
��36,307:�"6"
�36,347:�"7"
�36,387:�"8"
�36,430:�"9"
 �22,472:�"1O"
*�29,456;81;
4� A%=2:�4:�29,0;0;
>� *PARK
H� *OFF.
RD�4,30);"Choose whether you use the numbers as Tens or Hundreds"
\�7:�
�

00000000  0d 00 0a 23 f4 20 46 6f  75 72 20 6c 69 74 74 6c  |...#. Four littl|
00000010  65 20 47 72 61 70 68 69  63 73 20 70 6c 61 6e 6e  |e Graphics plann|
00000020  69 6e 67 0d 00 14 24 f4  20 73 68 65 65 74 73 2e  |ing...$. sheets.|
00000030  50 6c 6f 74 6d 61 74 65  20 26 20 52 6f 6d 20 76  |Plotmate & Rom v|
00000040  65 72 73 2e 31 2e 39 0d  00 1e 23 f4 20 62 79 20  |ers.1.9...#. by |
00000050  54 6f 6d 20 4d 65 61 73  75 72 65 73 20 37 74 68  |Tom Measures 7th|
00000060  20 4a 61 6e 2e 31 39 38  37 2e 0d 00 28 05 3a 0d  | Jan.1987...(.:.|
00000070  00 32 1c eb 30 3a ef 31  39 2c 30 2c 34 3b 30 3b  |.2..0:.19,0,4;0;|
00000080  30 3b 3a ef 32 39 2c 30  3b 30 3b 0d 00 37 0e f4  |0;:.29,0;0;..7..|
00000090  20 2a 50 4c 54 4d 41 54  45 0d 00 3c 0e ef 32 39  | *PLTMATE..<..29|
000000a0  2c 30 3b 35 34 34 3b 0d  00 46 1e ef 32 33 2c 32  |,0;544;..F..23,2|
000000b0  35 35 2c 33 2c 32 2c 30  2c 30 2c 31 30 2c 34 2c  |55,3,2,0,0,10,4,|
000000c0  30 2c 31 32 30 0d 00 50  08 e6 30 2c 30 0d 00 5a  |0,120..P..0,0..Z|
000000d0  1b ef 32 33 2c 32 35 35  2c 30 2c 30 2c 30 2c 30  |..23,255,0,0,0,0|
000000e0  2c 30 2c 35 2c 30 2c 30  0d 00 64 08 e6 30 2c 31  |,0,5,0,0..d..0,1|
000000f0  0d 00 6e 12 41 25 3d 30  3a f5 3a 41 25 3d 41 25  |..n.A%=0:.:A%=A%|
00000100  2b 31 0d 00 78 17 e3 20  58 3d 36 30 20 b8 20 34  |+1..x.. X=60 . 4|
00000110  37 35 20 88 20 34 31 2e  35 0d 00 82 12 ec 20 58  |75 . 41.5..... X|
00000120  2c 34 35 3a df 20 58 2c  34 36 30 0d 00 8c 05 ed  |,45:. X,460.....|
00000130  0d 00 96 17 e3 20 59 3d  34 35 20 b8 20 34 36 30  |..... Y=45 . 460|
00000140  20 88 20 34 31 2e 35 0d  00 a0 12 ec 20 36 30 2c  | . 41.5..... 60,|
00000150  59 3a df 20 34 37 35 2c  59 0d 00 aa 05 ed 0d 00  |Y:. 475,Y.......|
00000160  b4 10 ef 32 39 2c 34 35  36 3b 35 34 34 3b 0d 00  |...29,456;544;..|
00000170  be 0a fd 20 41 25 3d 32  0d 00 c8 0d ef 32 39 2c  |... A%=2.....29,|
00000180  30 3b 37 38 3b 0d 00 d2  12 41 25 3d 30 3a f5 3a  |0;78;....A%=0:.:|
00000190  41 25 3d 41 25 2b 31 0d  00 dc 17 e3 20 58 3d 36  |A%=A%+1..... X=6|
000001a0  30 20 b8 20 34 37 35 20  88 20 34 31 2e 35 0d 00  |0 . 475 . 41.5..|
000001b0  e6 12 ec 20 58 2c 34 35  3a df 20 58 2c 34 36 30  |... X,45:. X,460|
000001c0  0d 00 f0 05 ed 0d 00 fa  17 e3 20 59 3d 34 35 20  |.......... Y=45 |
000001d0  b8 20 34 36 30 20 88 20  34 31 2e 35 0d 01 04 12  |. 460 . 41.5....|
000001e0  ec 20 36 30 2c 59 3a df  20 34 37 35 2c 59 0d 01  |. 60,Y:. 475,Y..|
000001f0  0e 05 ed 0d 01 18 0f ef  32 39 2c 34 35 36 3b 37  |........29,456;7|
00000200  38 3b 0d 01 22 0a fd 20  41 25 3d 32 0d 01 2c 0e  |8;..".. A%=2..,.|
00000210  ef 32 39 2c 30 3b 35 34  37 3b 0d 01 36 12 41 25  |.29,0;547;..6.A%|
00000220  3d 30 3a f5 3a 41 25 3d  41 25 2b 31 0d 01 40 13  |=0:.:A%=A%+1..@.|
00000230  f4 20 59 20 50 61 72 61  6d 65 74 65 72 73 2e 0d  |. Y Parameters..|
00000240  01 4a 12 ef 35 3a ec 35  36 2c 33 33 3a f1 22 4f  |.J..5:.56,33:."O|
00000250  22 0d 01 54 0f ec 39 35  2c 33 33 3a f1 22 31 22  |"..T..95,33:."1"|
00000260  0d 01 5e 10 ec 31 33 37  2c 33 33 3a f1 22 32 22  |..^..137,33:."2"|
00000270  0d 01 68 10 ec 31 37 38  2c 33 33 3a f1 22 33 22  |..h..178,33:."3"|
00000280  0d 01 72 10 ec 32 32 31  2c 33 33 3a f1 22 34 22  |..r..221,33:."4"|
00000290  0d 01 7c 10 ec 32 36 32  2c 33 33 3a f1 22 35 22  |..|..262,33:."5"|
000002a0  0d 01 86 10 ec 33 30 34  2c 33 33 3a f1 22 36 22  |.....304,33:."6"|
000002b0  0d 01 90 10 ec 33 34 35  2c 33 33 3a f1 22 37 22  |.....345,33:."7"|
000002c0  0d 01 9a 10 ec 33 38 37  2c 33 33 3a f1 22 38 22  |.....387,33:."8"|
000002d0  0d 01 a4 10 ec 34 32 38  2c 33 33 3a f1 22 39 22  |.....428,33:."9"|
000002e0  0d 01 ae 11 ec 34 36 30  2c 33 33 3a f1 22 31 4f  |.....460,33:."1O|
000002f0  22 0d 01 b8 1b ec 33 36  2c 35 36 3a f1 22 4f 22  |".....36,56:."O"|
00000300  3a f4 20 58 20 50 61 72  61 6d 73 2e 0d 01 c2 0f  |:. X Params.....|
00000310  ec 33 36 2c 39 37 3a f1  22 31 22 0d 01 cc 10 ec  |.36,97:."1".....|
00000320  33 36 2c 31 34 30 3a f1  22 32 22 0d 01 d6 10 ec  |36,140:."2".....|
00000330  33 36 2c 31 38 32 3a f1  22 33 22 0d 01 e0 10 ec  |36,182:."3".....|
00000340  33 36 2c 32 32 33 3a f1  22 34 22 0d 01 ea 10 ec  |36,223:."4".....|
00000350  33 36 2c 32 36 35 3a f1  22 35 22 0d 01 f4 10 ec  |36,265:."5".....|
00000360  33 36 2c 33 30 37 3a f1  22 36 22 0d 01 fe 10 ec  |36,307:."6".....|
00000370  33 36 2c 33 34 37 3a f1  22 37 22 0d 02 08 10 ec  |36,347:."7".....|
00000380  33 36 2c 33 38 38 3a f1  22 38 22 0d 02 12 10 ec  |36,388:."8".....|
00000390  33 36 2c 34 32 39 3a f1  22 39 22 0d 02 1c 11 ec  |36,429:."9".....|
000003a0  32 32 2c 34 37 32 3a f1  22 31 4f 22 0d 02 26 10  |22,472:."1O"..&.|
000003b0  ef 32 39 2c 34 35 36 3b  35 34 37 3b 0d 02 30 12  |.29,456;547;..0.|
000003c0  fd 20 41 25 3d 32 3a ec  31 30 30 2c 33 33 0d 02  |. A%=2:.100,33..|
000003d0  3a 0d ef 32 39 2c 30 3b  38 31 3b 0d 02 44 12 41  |:..29,0;81;..D.A|
000003e0  25 3d 30 3a f5 3a 41 25  3d 41 25 2b 31 0d 02 4e  |%=0:.:A%=A%+1..N|
000003f0  1b ec 35 36 2c 33 33 3a  f1 22 4f 22 3a f4 20 59  |..56,33:."O":. Y|
00000400  20 50 61 72 61 6d 73 2e  0d 02 58 0f ec 39 35 2c  | Params...X..95,|
00000410  33 33 3a f1 22 31 22 0d  02 62 10 ec 31 33 37 2c  |33:."1"..b..137,|
00000420  33 33 3a f1 22 32 22 0d  02 6c 10 ec 31 37 38 2c  |33:."2"..l..178,|
00000430  33 33 3a f1 22 33 22 0d  02 76 10 ec 32 32 31 2c  |33:."3"..v..221,|
00000440  33 33 3a f1 22 34 22 0d  02 80 10 ec 32 36 32 2c  |33:."4".....262,|
00000450  33 33 3a f1 22 35 22 0d  02 8a 10 ec 33 30 34 2c  |33:."5".....304,|
00000460  33 33 3a f1 22 36 22 0d  02 94 10 ec 33 34 35 2c  |33:."6".....345,|
00000470  33 33 3a f1 22 37 22 0d  02 9e 10 ec 33 38 37 2c  |33:."7".....387,|
00000480  33 33 3a f1 22 38 22 0d  02 a8 10 ec 34 32 38 2c  |33:."8".....428,|
00000490  33 33 3a f1 22 39 22 0d  02 b2 11 ec 34 36 30 2c  |33:."9".....460,|
000004a0  33 33 3a f1 22 31 4f 22  0d 02 bc 1b ec 33 36 2c  |33:."1O".....36,|
000004b0  35 36 3a f1 22 4f 22 3a  f4 20 58 20 50 61 72 61  |56:."O":. X Para|
000004c0  6d 73 2e 0d 02 c6 0f ec  33 36 2c 39 37 3a f1 22  |ms......36,97:."|
000004d0  31 22 0d 02 d0 10 ec 33  36 2c 31 34 30 3a f1 22  |1".....36,140:."|
000004e0  32 22 0d 02 da 10 ec 33  36 2c 31 38 32 3a f1 22  |2".....36,182:."|
000004f0  33 22 0d 02 e4 10 ec 33  36 2c 32 32 33 3a f1 22  |3".....36,223:."|
00000500  34 22 0d 02 ee 10 ec 33  36 2c 32 36 35 3a f1 22  |4".....36,265:."|
00000510  35 22 0d 02 f8 10 ec 33  36 2c 33 30 37 3a f1 22  |5".....36,307:."|
00000520  36 22 0d 03 02 10 ec 33  36 2c 33 34 37 3a f1 22  |6".....36,347:."|
00000530  37 22 0d 03 0c 10 ec 33  36 2c 33 38 37 3a f1 22  |7".....36,387:."|
00000540  38 22 0d 03 16 10 ec 33  36 2c 34 33 30 3a f1 22  |8".....36,430:."|
00000550  39 22 0d 03 20 11 ec 32  32 2c 34 37 32 3a f1 22  |9".. ..22,472:."|
00000560  31 4f 22 0d 03 2a 0f ef  32 39 2c 34 35 36 3b 38  |1O"..*..29,456;8|
00000570  31 3b 0d 03 34 16 fd 20  41 25 3d 32 3a ef 34 3a  |1;..4.. A%=2:.4:|
00000580  ef 32 39 2c 30 3b 30 3b  0d 03 3e 0b f4 20 2a 50  |.29,0;0;..>.. *P|
00000590  41 52 4b 0d 03 48 0b f4  20 2a 4f 46 46 2e 0d 03  |ARK..H.. *OFF...|
000005a0  52 44 f1 8a 34 2c 33 30  29 3b 22 43 68 6f 6f 73  |RD..4,30);"Choos|
000005b0  65 20 77 68 65 74 68 65  72 20 79 6f 75 20 75 73  |e whether you us|
000005c0  65 20 74 68 65 20 6e 75  6d 62 65 72 73 20 61 73  |e the numbers as|
000005d0  20 54 65 6e 73 20 6f 72  20 48 75 6e 64 72 65 64  | Tens or Hundred|
000005e0  73 22 0d 03 5c 08 ef 37  3a e0 0d ff              |s"..\..7:...|
000005ec

26-05-89/GRDPlot.m0

26-05-89/GRDPlot.m1

26-05-89/GRDPlot.m2

26-05-89/GRDPlot.m4

26-05-89/GRDPlot.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .