PLOTTER.LOGO
FILE INFORMATION
FILENAME(S): PLOTTER.LOGO
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 5 disk(s)
FILE HASH
e33e156fbbddb148b4a15eddaadc71cba24a4f0a3446ca87f6b05035e5bb90f5
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES DISK | PLOTTER.LOGO | PRG | Radd Maxx | 12 | 8 | DOWNLOAD FILE |
| COMMODORE LOGO | PLOTTER.LOGO | PRG | High Voltage Complete C64 Collection | 7 | 3 | DOWNLOAD FILE |
| LOGO | PLOTTER.LOGO | PRG | Curtcool, LPN | 28 | 12 | DOWNLOAD FILE |
| BLACKSOFT 025 A | PLOTTER.LOGO | PRG | DuncanTwain | 28 | 12 | DOWNLOAD FILE |
| HENNIE 521 | PLOTTER.LOGO | PRG | DuncanTwain | 12 | 8 | 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 |(2). |
. 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).
> CLICK IMAGE PREVIEW FOR FULL MODAL