PLOTTER.LOGO

FILE INFORMATION

FILENAME(S): PLOTTER.LOGO

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-11-02 16:30:34

APPEARS ON: 1 disk(s)

FILE HASH

0f0a972bf1bc07c720e7e09a78af817cdefbfb88eec8bd1678150a71af99ade0

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
NG USERS 11A	PLOTTER.LOGO	PRG	Treasure Chest - OzzyC64	24	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 50 4C 4F  46 46 0D 20 4E 4F 50 52  |. TO PLOFF. NOPR|
00000010: 49 4E 54 45 52 0D 20 2E  4F 50 54 49 4F 4E 20 22  |INTER. .OPTION "|
00000020: 50 52 49 4E 54 45 52 20  30 20 34 0D 20 2E 4F 50  |PRINTER 0 4. .OP|
00000030: 54 49 4F 4E 20 22 50 52  49 4E 54 45 52 20 31 20  |TION "PRINTER 1 |
00000040: 30 0D 20 2E 4F 50 54 49  4F 4E 20 22 50 52 49 4E  |0. .OPTION "PRIN|
00000050: 54 45 52 20 32 20 30 0D  45 4E 44 0D 0D 54 4F 20  |TER 2 0.END..TO |
00000060: 50 54 45 53 54 0D 20 2E  4F 50 54 49 4F 4E 20 22  |PTEST. .OPTION "|
00000070: 50 52 49 4E 54 45 52 20  30 20 36 0D 20 50 50 43  |PRINTER 0 6. PPC|
00000080: 31 20 30 0D 20 54 58 54  4D 4F 44 45 0D 20 50 52  |1 0. TXTMODE. PR|
00000090: 49 4E 54 20 22 48 49 0D  20 50 50 43 31 20 33 0D  |INT "HI. PPC1 3.|
000000A0: 20 54 58 54 4D 4F 44 45  0D 20 50 52 49 4E 54 20  | TXTMODE. PRINT |
000000B0: 22 48 49 0D 45 4E 44 0D  0D 54 4F 20 50 48 4F 4D  |"HI.END..TO PHOM|
000000C0: 45 0D 20 50 53 45 54 58  59 20 30 20 30 0D 20 50  |E. PSETXY 0 0. P|
000000D0: 53 45 54 48 45 41 44 49  4E 47 20 30 0D 45 4E 44  |SETHEADING 0.END|
000000E0: 0D 0D 54 4F 20 50 4C 54  20 3A 41 4E 47 4C 45 0D  |..TO PLT :ANGLE.|
000000F0: 20 50 52 54 20 2D 20 3A  41 4E 47 4C 45 0D 45 4E  | PRT - :ANGLE.EN|
00000100: 44 0D 0D 54 4F 20 50 4D  4F 56 45 20 3A 44 58 20  |D..TO PMOVE :DX |
00000110: 3A 44 59 0D 20 4E 4F 49  4E 54 53 0D 20 4D 41 4B  |:DY. NOINTS. MAK|
00000120: 45 20 22 50 58 43 4F 52  20 3A 50 58 43 4F 52 20  |E "PXCOR :PXCOR |
00000130: 2B 20 3A 44 58 0D 20 4D  41 4B 45 20 22 50 59 43  |+ :DX. MAKE "PYC|
00000140: 4F 52 20 3A 50 59 43 4F  52 20 2B 20 3A 44 59 0D  |OR :PYCOR + :DY.|
00000150: 20 54 45 53 54 20 3A 50  45 4E 44 4F 57 4E 3F 0D  | TEST :PENDOWN?.|
00000160: 20 49 46 54 52 55 45 20  44 50 52 49 4E 54 20 28  | IFTRUE DPRINT (|
00000170: 20 57 4F 52 44 20 22 4A  2C 20 52 4F 55 4E 44 20  | WORD "J, ROUND |
00000180: 3A 50 58 43 4F 52 20 22  2C 20 52 4F 55 4E 44 20  |:PXCOR ", ROUND |
00000190: 3A 50 59 43 4F 52 20 29  0D 20 49 46 46 41 4C 53  |:PYCOR ). IFFALS|
000001A0: 45 20 44 50 52 49 4E 54  20 28 20 57 4F 52 44 20  |E DPRINT ( WORD |
000001B0: 22 52 2C 20 52 4F 55 4E  44 20 3A 50 58 43 4F 52  |"R, ROUND :PXCOR|
000001C0: 20 22 2C 20 52 4F 55 4E  44 20 3A 50 59 43 4F 52  | ", ROUND :PYCOR|
000001D0: 20 29 0D 20 49 4E 54 53  0D 45 4E 44 0D 0D 54 4F  | ). INTS.END..TO|
000001E0: 20 44 50 4F 20 3A 50 52  4F 43 0D 20 4E 4F 49 4E  | DPO :PROC. NOIN|
000001F0: 54 53 0D 20 52 55 4E 20  4C 49 53 54 20 22 50 4F  |TS. RUN LIST "PO|
00000200: 20 3A 50 52 4F 43 0D 20  49 4E 54 53 0D 45 4E 44  | :PROC. INTS.END|
00000210: 0D 0D 54 4F 20 44 50 52  49 4E 54 31 20 3A 49 54  |..TO DPRINT1 :IT|
00000220: 0D 20 4E 4F 49 4E 54 53  0D 20 50 52 49 4E 54 31  |. NOINTS. PRINT1|
00000230: 20 3A 49 54 0D 20 49 4E  54 53 0D 45 4E 44 0D 0D  | :IT. INTS.END..|
00000240: 54 4F 20 49 4E 54 53 0D  20 2E 4F 50 54 49 4F 4E  |TO INTS. .OPTION|
00000250: 20 22 52 43 20 30 20 33  0D 45 4E 44 0D 0D 54 4F  | "RC 0 3.END..TO|
00000260: 20 4E 4F 49 4E 54 53 0D  20 2E 4F 50 54 49 4F 4E  | NOINTS. .OPTION|
00000270: 20 22 52 43 20 30 20 30  0D 45 4E 44 0D 0D 54 4F  | "RC 0 0.END..TO|
00000280: 20 53 45 54 4F 52 49 47  49 4E 0D 20 44 50 52 49  | SETORIGIN. DPRI|
00000290: 4E 54 20 22 48 0D 20 44  50 52 49 4E 54 20 22 4D  |NT "H. DPRINT "M|
000002A0: 32 34 30 30 0D 20 44 50  52 49 4E 54 20 22 49 0D  |2400. DPRINT "I.|
000002B0: 45 4E 44 0D 0D 54 4F 20  44 50 52 49 4E 54 20 3A  |END..TO DPRINT :|
000002C0: 49 54 0D 20 4E 4F 49 4E  54 53 0D 20 50 52 49 4E  |IT. NOINTS. PRIN|
000002D0: 54 20 3A 49 54 0D 20 49  4E 54 53 0D 45 4E 44 0D  |T :IT. INTS.END.|
000002E0: 0D 54 4F 20 50 2E 52 45  53 45 54 0D 20 4E 4F 50  |.TO P.RESET. NOP|
000002F0: 52 49 4E 54 45 52 0D 20  2E 4F 50 54 49 4F 4E 20  |RINTER. .OPTION |
00000300: 22 50 52 49 4E 54 45 52  20 30 20 36 0D 20 50 52  |"PRINTER 0 6. PR|
00000310: 49 4E 54 45 52 0D 45 4E  44 0D 0D 54 4F 20 50 4F  |INTER.END..TO PO|
00000320: 4C 59 53 50 49 20 3A 53  49 44 45 20 3A 41 4E 47  |LYSPI :SIDE :ANG|
00000330: 4C 45 0D 20 49 46 20 3A  53 49 44 45 20 3E 20 31  |LE. IF :SIDE > 1|
00000340: 32 35 20 4E 4F 50 52 49  4E 54 45 52 20 53 54 4F  |25 NOPRINTER STO|
00000350: 50 0D 20 50 46 44 20 3A  53 49 44 45 0D 20 50 52  |P. PFD :SIDE. PR|
00000360: 54 20 3A 41 4E 47 4C 45  0D 20 50 4F 4C 59 53 50  |T :ANGLE. POLYSP|
00000370: 49 20 3A 53 49 44 45 20  2B 20 32 20 3A 41 4E 47  |I :SIDE + 2 :ANG|
00000380: 4C 45 0D 45 4E 44 0D 0D  54 4F 20 47 52 4D 4F 44  |LE.END..TO GRMOD|
00000390: 45 0D 20 4E 4F 50 52 49  4E 54 45 52 0D 20 2E 4F  |E. NOPRINTER. .O|
000003A0: 50 54 49 4F 4E 20 22 50  52 49 4E 54 45 52 20 31  |PTION "PRINTER 1|
000003B0: 20 31 0D 20 50 52 49 4E  54 45 52 0D 20 50 52 49  | 1. PRINTER. PRI|
000003C0: 4E 54 20 5B 5D 0D 45 4E  44 0D 0D 54 4F 20 54 58  |NT [].END..TO TX|
000003D0: 54 4D 4F 44 45 0D 20 4E  4F 50 52 49 4E 54 45 52  |TMODE. NOPRINTER|
000003E0: 0D 20 2E 4F 50 54 49 4F  4E 20 22 50 52 49 4E 54  |. .OPTION "PRINT|
000003F0: 45 52 20 31 20 30 0D 20  50 52 49 4E 54 45 52 0D  |ER 1 0. PRINTER.|
00000400: 20 50 52 49 4E 54 20 5B  5D 0D 45 4E 44 0D 0D 54  | PRINT [].END..T|
00000410: 4F 20 50 48 45 41 44 49  4E 47 0D 20 4F 55 54 50  |O PHEADING. OUTP|
00000420: 55 54 20 3A 50 48 45 41  44 49 4E 47 0D 45 4E 44  |UT :PHEADING.END|
00000430: 0D 0D 54 4F 20 50 59 43  4F 52 0D 20 4F 50 20 3A  |..TO PYCOR. OP :|
00000440: 50 59 43 4F 52 0D 45 4E  44 0D 0D 54 4F 20 50 58  |PYCOR.END..TO PX|
00000450: 43 4F 52 0D 20 4F 50 20  3A 50 58 43 4F 52 0D 45  |COR. OP :PXCOR.E|
00000460: 4E 44 0D 0D 54 4F 20 50  53 45 54 48 45 41 44 49  |ND..TO PSETHEADI|
00000470: 4E 47 20 3A 48 0D 20 49  46 20 3A 48 20 3C 20 30  |NG :H. IF :H < 0|
00000480: 20 50 53 45 54 48 45 41  44 49 4E 47 20 3A 48 20  | PSETHEADING :H |
00000490: 2B 20 33 36 30 20 53 54  4F 50 0D 20 4D 41 4B 45  |+ 360 STOP. MAKE|
000004A0: 20 22 50 48 45 41 44 49  4E 47 20 52 45 4D 41 49  | "PHEADING REMAI|
000004B0: 4E 44 45 52 20 3A 48 20  33 36 30 0D 45 4E 44 0D  |NDER :H 360.END.|
000004C0: 0D 54 4F 20 50 53 45 54  58 59 20 3A 58 20 3A 59  |.TO PSETXY :X :Y|
000004D0: 0D 20 4D 41 4B 45 20 22  44 58 20 3A 58 20 2D 20  |. MAKE "DX :X - |
000004E0: 50 58 43 4F 52 0D 20 4D  41 4B 45 20 22 44 59 20  |PXCOR. MAKE "DY |
000004F0: 3A 59 20 2D 20 50 59 43  4F 52 0D 20 50 4D 4F 56  |:Y - PYCOR. PMOV|
00000500: 45 20 3A 44 58 20 3A 44  59 0D 45 4E 44 0D 0D 54  |E :DX :DY.END..T|
00000510: 4F 20 50 50 43 20 3A 50  45 4E 0D 20 4E 4F 49 4E  |O PPC :PEN. NOIN|
00000520: 54 53 0D 20 4E 4F 50 52  49 4E 54 45 52 0D 20 2E  |TS. NOPRINTER. .|
00000530: 4F 50 54 49 4F 4E 20 22  50 52 49 4E 54 45 52 20  |OPTION "PRINTER |
00000540: 31 20 32 0D 20 50 52 49  4E 54 45 52 0D 20 44 50  |1 2. PRINTER. DP|
00000550: 52 49 4E 54 20 5B 5D 0D  20 44 50 52 49 4E 54 20  |RINT []. DPRINT |
00000560: 3A 50 45 4E 0D 20 4E 4F  50 52 49 4E 54 45 52 0D  |:PEN. NOPRINTER.|
00000570: 20 4D 41 4B 45 20 22 50  45 4E 43 4F 4C 4F 52 20  | MAKE "PENCOLOR |
00000580: 3A 50 45 4E 0D 20 47 52  4D 4F 44 45 0D 20 49 4E  |:PEN. GRMODE. IN|
00000590: 54 53 0D 45 4E 44 0D 0D  54 4F 20 50 50 44 0D 20  |TS.END..TO PPD. |
000005A0: 4D 41 4B 45 20 22 50 45  4E 44 4F 57 4E 3F 20 22  |MAKE "PENDOWN? "|
000005B0: 54 52 55 45 0D 45 4E 44  0D 0D 54 4F 20 50 50 55  |TRUE.END..TO PPU|
000005C0: 0D 20 4D 41 4B 45 20 22  50 45 4E 44 4F 57 4E 3F  |. MAKE "PENDOWN?|
000005D0: 20 22 46 41 4C 53 45 0D  45 4E 44 0D 0D 54 4F 20  | "FALSE.END..TO |
000005E0: 50 42 4B 20 3A 44 49 53  54 0D 20 50 46 44 20 2D  |PBK :DIST. PFD -|
000005F0: 20 3A 44 49 53 54 0D 45  4E 44 0D 0D 54 4F 20 50  | :DIST.END..TO P|
00000600: 43 53 0D 20 50 50 55 0D  20 50 53 45 54 58 59 20  |CS. PPU. PSETXY |
00000610: 30 20 30 0D 20 50 50 44  0D 20 50 53 45 54 48 45  |0 0. PPD. PSETHE|
00000620: 41 44 49 4E 47 20 30 0D  45 4E 44 0D 0D 54 4F 20  |ADING 0.END..TO |
00000630: 50 44 52 41 57 0D 20 4D  41 4B 45 20 22 50 58 43  |PDRAW. MAKE "PXC|
00000640: 4F 52 20 30 0D 20 4D 41  4B 45 20 22 50 59 43 4F  |OR 0. MAKE "PYCO|
00000650: 52 20 30 0D 20 53 45 54  4F 52 49 47 49 4E 0D 20  |R 0. SETORIGIN. |
00000660: 50 53 45 54 48 45 41 44  49 4E 47 20 30 0D 20 50  |PSETHEADING 0. P|
00000670: 50 43 20 32 0D 45 4E 44  0D 0D 54 4F 20 4E 45 57  |PC 2.END..TO NEW|
00000680: 50 41 47 45 0D 20 54 58  54 4D 4F 44 45 0D 20 52  |PAGE. TXTMODE. R|
00000690: 45 50 45 41 54 20 31 39  20 5B 44 50 52 49 4E 54  |EPEAT 19 [DPRINT|
000006A0: 20 5B 5D 5D 0D 20 50 44  52 41 57 0D 45 4E 44 0D  | []]. PDRAW.END.|
000006B0: 0D 54 4F 20 53 45 54 55  50 0D 20 4D 41 4B 45 20  |.TO SETUP. MAKE |
000006C0: 22 42 4C 41 43 4B 20 30  0D 20 4D 41 4B 45 20 22  |"BLACK 0. MAKE "|
000006D0: 42 4C 55 45 20 31 0D 20  4D 41 4B 45 20 22 47 52  |BLUE 1. MAKE "GR|
000006E0: 45 45 4E 20 32 0D 20 4D  41 4B 45 20 22 52 45 44  |EEN 2. MAKE "RED|
000006F0: 20 33 0D 20 4D 41 4B 45  20 22 50 45 4E 44 4F 57  | 3. MAKE "PENDOW|
00000700: 4E 3F 20 22 54 52 55 45  0D 20 2E 4F 50 54 49 4F  |N? "TRUE. .OPTIO|
00000710: 4E 20 22 50 52 49 4E 54  45 52 20 32 20 31 0D 20  |N "PRINTER 2 1. |
00000720: 50 2E 52 45 53 45 54 0D  20 47 52 4D 4F 44 45 0D  |P.RESET. GRMODE.|
00000730: 20 50 44 52 41 57 0D 45  4E 44 0D 0D 54 4F 20 48  | PDRAW.END..TO H|
00000740: 45 4C 50 0D 20 4E 4F 44  52 41 57 0D 20 50 52 49  |ELP. NODRAW. PRI|
00000750: 4E 54 20 5B 43 4F 4D 4D  4F 44 4F 52 45 20 43 4F  |NT [COMMODORE CO|
00000760: 4C 4F 52 20 50 4C 4F 54  54 45 52 20 50 52 4F 43  |LOR PLOTTER PROC|
00000770: 45 44 55 52 45 53 3A 5D  0D 20 50 52 49 4E 54 20  |EDURES:]. PRINT |
00000780: 5B 53 45 54 55 50 20 4E  45 57 50 41 47 45 20 50  |[SETUP NEWPAGE P|
00000790: 44 52 41 57 20 50 43 53  5D 0D 20 50 52 49 4E 54  |DRAW PCS]. PRINT|
000007A0: 20 5B 50 46 44 20 50 42  4B 20 50 52 54 20 50 50  | [PFD PBK PRT PP|
000007B0: 55 20 50 50 44 20 50 50  43 5D 0D 20 50 52 49 4E  |U PPD PPC]. PRIN|
000007C0: 54 20 5B 50 53 45 54 58  59 20 50 53 45 54 48 45  |T [PSETXY PSETHE|
000007D0: 41 44 49 4E 47 5D 0D 20  50 52 49 4E 54 20 5B 50  |ADING]. PRINT [P|
000007E0: 58 43 4F 52 20 50 59 43  4F 52 20 50 48 45 41 44  |XCOR PYCOR PHEAD|
000007F0: 49 4E 47 5D 0D 20 50 52  49 4E 54 20 5B 54 58 54  |ING]. PRINT [TXT|
00000800: 4D 4F 44 45 20 47 52 4D  4F 44 45 5D 0D 20 50 52  |MODE GRMODE]. PR|
00000810: 49 4E 54 20 5B 5D 0D 20  50 52 49 4E 54 20 5B 5D  |INT []. PRINT []|
00000820: 0D 20 50 52 49 4E 54 20  5B 54 59 50 45 20 53 45  |. PRINT [TYPE SE|
00000830: 54 55 50 20 54 4F 20 49  4E 49 54 49 41 4C 49 5A  |TUP TO INITIALIZ|
00000840: 45 20 50 52 49 4E 54 45  52 2E 5D 0D 20 50 52 49  |E PRINTER.]. PRI|
00000850: 4E 54 20 5B 50 4F 4C 59  53 50 49 20 49 53 20 41  |NT [POLYSPI IS A|
00000860: 20 53 41 4D 50 4C 45 20  50 4C 4F 54 54 45 52 20  | SAMPLE PLOTTER |
00000870: 50 52 4F 43 45 44 55 52  45 2E 5D 0D 45 4E 44 0D  |PROCEDURE.].END.|
00000880: 0D 54 4F 20 50 52 54 20  3A 41 4E 47 4C 45 0D 20  |.TO PRT :ANGLE. |
00000890: 50 53 45 54 48 45 41 44  49 4E 47 20 50 48 45 41  |PSETHEADING PHEA|
000008A0: 44 49 4E 47 20 2B 20 3A  41 4E 47 4C 45 0D 45 4E  |DING + :ANGLE.EN|
000008B0: 44 0D 0D 54 4F 20 50 46  44 20 3A 44 49 53 54 0D  |D..TO PFD :DIST.|
000008C0: 20 4D 41 4B 45 20 22 44  49 53 54 20 3A 44 49 53  | MAKE "DIST :DIS|
000008D0: 54 20 2A 20 32 0D 20 50  4D 4F 56 45 20 3A 44 49  |T * 2. PMOVE :DI|
000008E0: 53 54 20 2A 20 53 49 4E  20 50 48 45 41 44 49 4E  |ST * SIN PHEADIN|
000008F0: 47 20 3A 44 49 53 54 20  2A 20 43 4F 53 20 50 48  |G :DIST * COS PH|
00000900: 45 41 44 49 4E 47 0D 45  4E 44 0D 0D 4D 41 4B 45  |EADING.END..MAKE|
00000910: 20 22 50 45 4E 44 4F 57  4E 3F 20 22 54 52 55 45  | "PENDOWN? "TRUE|
00000920: 0D 4D 41 4B 45 20 22 52  45 44 20 28 33 29 0D 4D  |.MAKE "RED (3).M|
00000930: 41 4B 45 20 22 47 52 45  45 4E 20 28 32 29 0D 4D  |AKE "GREEN (2).M|
00000940: 41 4B 45 20 22 42 4C 55  45 20 28 31 29 0D 4D 41  |AKE "BLUE (1).MA|
00000950: 4B 45 20 22 42 4C 41 43  4B 20 28 30 29 0D 4D 41  |KE "BLACK (0).MA|
00000960: 4B 45 20 22 50 48 45 41  44 49 4E 47 20 28 30 29  |KE "PHEADING (0)|
00000970: 0D 4D 41 4B 45 20 22 50  59 43 4F 52 20 28 30 29  |.MAKE "PYCOR (0)|
00000980: 0D 4D 41 4B 45 20 22 50  58 43 4F 52 20 28 30 29  |.MAKE "PXCOR (0)|
00000990: 0D 4D 41 4B 45 20 22 50  45 4E 43 4F 4C 4F 52 20  |.MAKE "PENCOLOR |
000009A0: 28 32 29 0D 45 41 4D                              |(2).EAM         |

. TO PLOFF. NOPRINTER. .OPTION "PRINTER 
0 4. .OPTION "PRINTER 1 0. .OPTION "PRIN
TER 2 0.END..TO PTEST. .OPTION "PRINTER 
0 6. PPC1 0. TXTMODE. PRINT "HI. PPC1 3.
 TXTMODE. PRINT "HI.END..TO PHOME. PSETX
Y 0 0. PSETHEADING 0.END..TO PLT :ANGLE.
 PRT - :ANGLE.END..TO PMOVE :DX :DY. NOI
NTS. MAKE "PXCOR :PXCOR + :DX. MAKE "PYC
OR :PYCOR + :DY. TEST :PENDOWN?. IFTRUE 
DPRINT ( WORD "J, ROUND :PXCOR ", ROUND 
:PYCOR ). IFFALSE DPRINT ( WORD "R, ROUN
D :PXCOR ", ROUND :PYCOR ). INTS.END..TO
 DPO :PROC. NOINTS. RUN LIST "PO :PROC. 
INTS.END..TO DPRINT1 :IT. NOINTS. PRINT1
 :IT. INTS.END..TO INTS. .OPTION "RC 0 3
.END..TO NOINTS. .OPTION "RC 0 0.END..TO
 SETORIGIN. DPRINT "H. DPRINT "M2400. DP
RINT "I.END..TO DPRINT :IT. NOINTS. PRIN
T :IT. INTS.END..TO P.RESET. NOPRINTER. 
.OPTION "PRINTER 0 6. PRINTER.END..TO PO
LYSPI :SIDE :ANGLE. IF :SIDE > 125 NOPRI
NTER STOP. PFD :SIDE. PRT :ANGLE. POLYSP
I :SIDE + 2 :ANGLE.END..TO GRMODE. NOPRI
NTER. .OPTION "PRINTER 1 1. PRINTER. PRI
NT [].END..TO TXTMODE. NOPRINTER. .OPTIO
N "PRINTER 1 0. PRINTER. PRINT [].END..T
O PHEADING. OUTPUT :PHEADING.END..TO PYC
OR. OP :PYCOR.END..TO PXCOR. OP :PXCOR.E
ND..TO PSETHEADING :H. IF :H < 0 PSETHEA
DING :H + 360 STOP. MAKE "PHEADING REMAI
NDER :H 360.END..TO PSETXY :X :Y. MAKE "
DX :X - PXCOR. MAKE "DY :Y - PYCOR. PMOV
E :DX :DY.END..TO PPC :PEN. NOINTS. NOPR
INTER. .OPTION "PRINTER 1 2. PRINTER. DP
RINT []. DPRINT :PEN. NOPRINTER. MAKE "P
ENCOLOR :PEN. GRMODE. INTS.END..TO PPD. 
MAKE "PENDOWN? "TRUE.END..TO PPU. MAKE "
PENDOWN? "FALSE.END..TO PBK :DIST. PFD -
 :DIST.END..TO PCS. PPU. PSETXY 0 0. PPD
. PSETHEADING 0.END..TO PDRAW. MAKE "PXC
OR 0. MAKE "PYCOR 0. SETORIGIN. PSETHEAD
ING 0. PPC 2.END..TO NEWPAGE. TXTMODE. R
EPEAT 19 [DPRINT []]. PDRAW.END..TO SETU
P. MAKE "BLACK 0. MAKE "BLUE 1. MAKE "GR
EEN 2. MAKE "RED 3. MAKE "PENDOWN? "TRUE
. .OPTION "PRINTER 2 1. P.RESET. GRMODE.
 PDRAW.END..TO HELP. NODRAW. PRINT [COMM
ODORE COLOR PLOTTER PROCEDURES:]. PRINT 
[SETUP NEWPAGE PDRAW PCS]. PRINT [PFD PB
K PRT PPU PPD PPC]. PRINT [PSETXY PSETHE
ADING]. PRINT [PXCOR PYCOR PHEADING]. PR
INT [TXTMODE GRMODE]. PRINT []. PRINT []
. PRINT [TYPE SETUP TO INITIALIZE PRINTE
R.]. PRINT [POLYSPI IS A SAMPLE PLOTTER 
PROCEDURE.].END..TO PRT :ANGLE. PSETHEAD
ING PHEADING + :ANGLE.END..TO PFD :DIST.
 MAKE "DIST :DIST * 2. PMOVE :DIST * SIN
 PHEADING :DIST * COS PHEADING.END..MAKE
 "PENDOWN? "TRUE.MAKE "RED (3).MAKE "GRE
EN (2).MAKE "BLUE (1).MAKE "BLACK (0).MA
KE "PHEADING (0).MAKE "PYCOR (0).MAKE "P
XCOR (0).MAKE "PENCOLOR (2).EAM

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL