LG-PLOTTER
FILE INFORMATION
FILENAME(S): LG-PLOTTER
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
43f6b2b8cc3dbc2748d3785308e6627a83eb387c45ffa5fe62220abe18ff6099
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-PLOTTER | PRG | DuncanTwain | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 48 45 4C 50 0D 20 4E 4F 44 52 41 |. TO HELP. NODRA| 00000010: 57 0D 20 50 52 49 4E 54 20 5B 43 4F 4D 4D 4F 44 |W. PRINT [COMMOD| 00000020: 4F 52 45 20 43 4F 4C 4F 52 20 50 4C 4F 54 54 45 |ORE COLOR PLOTTE| 00000030: 52 20 50 52 4F 43 45 44 55 52 45 53 3A 5D 0D 20 |R PROCEDURES:]. | 00000040: 50 52 49 4E 54 20 5B 53 45 54 55 50 20 4E 45 57 |PRINT [SETUP NEW| 00000050: 50 41 47 45 20 50 44 52 41 57 20 50 43 53 5D 0D |PAGE PDRAW PCS].| 00000060: 20 50 52 49 4E 54 20 5B 50 46 44 20 50 42 4B 20 | PRINT [PFD PBK | 00000070: 50 52 54 20 50 50 55 20 50 50 44 20 50 50 43 5D |PRT PPU PPD PPC]| 00000080: 0D 20 50 52 49 4E 54 20 5B 50 53 45 54 58 59 20 |. PRINT [PSETXY | 00000090: 50 53 45 54 48 45 41 44 49 4E 47 5D 0D 20 50 52 |PSETHEADING]. PR| 000000A0: 49 4E 54 20 5B 50 58 43 4F 52 20 50 59 43 4F 52 |INT [PXCOR PYCOR| 000000B0: 20 50 48 45 41 44 49 4E 47 5D 0D 20 50 52 49 4E | PHEADING]. PRIN| 000000C0: 54 20 5B 54 58 54 4D 4F 44 45 20 47 52 4D 4F 44 |T [TXTMODE GRMOD| 000000D0: 45 5D 0D 20 50 52 49 4E 54 20 5B 5D 0D 20 50 52 |E]. PRINT []. PR| 000000E0: 49 4E 54 20 5B 5D 0D 20 50 52 49 4E 54 20 5B 54 |INT []. PRINT [T| 000000F0: 59 50 45 20 53 45 54 55 50 20 54 4F 20 49 4E 49 |YPE SETUP TO INI| 00000100: 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 52 2E |TIALIZE PRINTER.| 00000110: 5D 0D 20 50 52 49 4E 54 20 5B 50 4F 4C 59 53 50 |]. PRINT [POLYSP| 00000120: 49 20 49 53 20 41 20 53 41 4D 50 4C 45 20 50 4C |I IS A SAMPLE PL| 00000130: 4F 54 54 45 52 20 50 52 4F 43 45 44 55 52 45 2E |OTTER PROCEDURE.| 00000140: 5D 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 55 50 0D |].END..TO SETUP.| 00000150: 20 4D 41 4B 45 20 22 42 4C 41 43 4B 20 30 0D 20 | MAKE "BLACK 0. | 00000160: 4D 41 4B 45 20 22 42 4C 55 45 20 31 0D 20 4D 41 |MAKE "BLUE 1. MA| 00000170: 4B 45 20 22 47 52 45 45 4E 20 32 0D 20 4D 41 4B |KE "GREEN 2. MAK| 00000180: 45 20 22 52 45 44 20 33 0D 20 4D 41 4B 45 20 22 |E "RED 3. MAKE "| 00000190: 50 45 4E 44 4F 57 4E 3F 20 22 54 52 55 45 0D 20 |PENDOWN? "TRUE. | 000001A0: 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 |.OPTION "PRINTER| 000001B0: 20 32 20 31 0D 20 50 2E 52 45 53 45 54 0D 20 47 | 2 1. P.RESET. G| 000001C0: 52 4D 4F 44 45 0D 20 50 44 52 41 57 0D 45 4E 44 |RMODE. PDRAW.END| 000001D0: 0D 0D 54 4F 20 4E 45 57 50 41 47 45 0D 20 54 58 |..TO NEWPAGE. TX| 000001E0: 54 4D 4F 44 45 0D 20 52 45 50 45 41 54 20 31 39 |TMODE. REPEAT 19| 000001F0: 20 5B 44 50 52 49 4E 54 20 5B 5D 5D 0D 20 50 44 | [DPRINT []]. PD| 00000200: 52 41 57 0D 45 4E 44 0D 0D 54 4F 20 50 44 52 41 |RAW.END..TO PDRA| 00000210: 57 0D 20 4D 41 4B 45 20 22 50 58 43 4F 52 20 30 |W. MAKE "PXCOR 0| 00000220: 0D 20 4D 41 4B 45 20 22 50 59 43 4F 52 20 30 0D |. MAKE "PYCOR 0.| 00000230: 20 53 45 54 4F 52 49 47 49 4E 0D 20 50 53 45 54 | SETORIGIN. PSET| 00000240: 48 45 41 44 49 4E 47 20 30 0D 20 50 50 43 20 32 |HEADING 0. PPC 2| 00000250: 0D 45 4E 44 0D 0D 54 4F 20 50 43 53 0D 20 50 50 |.END..TO PCS. PP| 00000260: 55 0D 20 50 53 45 54 58 59 20 30 20 30 0D 20 50 |U. PSETXY 0 0. P| 00000270: 50 44 0D 20 50 53 45 54 48 45 41 44 49 4E 47 20 |PD. PSETHEADING | 00000280: 30 0D 45 4E 44 0D 0D 54 4F 20 50 42 4B 20 3A 44 |0.END..TO PBK :D| 00000290: 49 53 54 0D 20 50 46 44 20 2D 20 3A 44 49 53 54 |IST. PFD - :DIST| 000002A0: 0D 45 4E 44 0D 0D 54 4F 20 50 50 55 0D 20 4D 41 |.END..TO PPU. MA| 000002B0: 4B 45 20 22 50 45 4E 44 4F 57 4E 3F 20 22 46 41 |KE "PENDOWN? "FA| 000002C0: 4C 53 45 0D 45 4E 44 0D 0D 54 4F 20 50 50 44 0D |LSE.END..TO PPD.| 000002D0: 20 4D 41 4B 45 20 22 50 45 4E 44 4F 57 4E 3F 20 | MAKE "PENDOWN? | 000002E0: 22 54 52 55 45 0D 45 4E 44 0D 0D 54 4F 20 50 50 |"TRUE.END..TO PP| 000002F0: 43 20 3A 50 45 4E 0D 20 4E 4F 49 4E 54 53 0D 20 |C :PEN. NOINTS. | 00000300: 4E 4F 50 52 49 4E 54 45 52 0D 20 2E 4F 50 54 49 |NOPRINTER. .OPTI| 00000310: 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 32 0D |ON "PRINTER 1 2.| 00000320: 20 50 52 49 4E 54 45 52 0D 20 44 50 52 49 4E 54 | PRINTER. DPRINT| 00000330: 20 5B 5D 0D 20 44 50 52 49 4E 54 20 3A 50 45 4E | []. DPRINT :PEN| 00000340: 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 4D 41 4B |. NOPRINTER. MAK| 00000350: 45 20 22 50 45 4E 43 4F 4C 4F 52 20 3A 50 45 4E |E "PENCOLOR :PEN| 00000360: 0D 20 47 52 4D 4F 44 45 0D 20 49 4E 54 53 0D 45 |. GRMODE. INTS.E| 00000370: 4E 44 0D 0D 54 4F 20 50 48 45 41 44 49 4E 47 0D |ND..TO PHEADING.| 00000380: 20 4F 55 54 50 55 54 20 3A 50 48 45 41 44 49 4E | OUTPUT :PHEADIN| 00000390: 47 0D 45 4E 44 0D 0D 54 4F 20 47 52 4D 4F 44 45 |G.END..TO GRMODE| 000003A0: 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 2E 4F 50 |. NOPRINTER. .OP| 000003B0: 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 |TION "PRINTER 1 | 000003C0: 31 0D 20 50 52 49 4E 54 45 52 0D 20 50 52 49 4E |1. PRINTER. PRIN| 000003D0: 54 20 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 50 46 44 |T [].END..TO PFD| 000003E0: 20 3A 44 49 53 54 0D 20 4D 41 4B 45 20 22 44 49 | :DIST. MAKE "DI| 000003F0: 53 54 20 3A 44 49 53 54 20 2A 20 32 0D 20 50 4D |ST :DIST * 2. PM| 00000400: 4F 56 45 20 3A 44 49 53 54 20 2A 20 53 49 4E 20 |OVE :DIST * SIN | 00000410: 50 48 45 41 44 49 4E 47 20 3A 44 49 53 54 20 2A |PHEADING :DIST *| 00000420: 20 43 4F 53 20 50 48 45 41 44 49 4E 47 0D 45 4E | COS PHEADING.EN| 00000430: 44 0D 0D 54 4F 20 50 4F 4C 59 53 50 49 20 3A 53 |D..TO POLYSPI :S| 00000440: 49 44 45 20 3A 41 4E 47 4C 45 0D 20 49 46 20 3A |IDE :ANGLE. IF :| 00000450: 53 49 44 45 20 3E 20 31 32 35 20 4E 4F 50 52 49 |SIDE > 125 NOPRI| 00000460: 4E 54 45 52 20 53 54 4F 50 0D 20 50 46 44 20 3A |NTER STOP. PFD :| 00000470: 53 49 44 45 0D 20 50 52 54 20 3A 41 4E 47 4C 45 |SIDE. PRT :ANGLE| 00000480: 0D 20 50 4F 4C 59 53 50 49 20 3A 53 49 44 45 20 |. POLYSPI :SIDE | 00000490: 2B 20 32 20 3A 41 4E 47 4C 45 0D 45 4E 44 0D 0D |+ 2 :ANGLE.END..| 000004A0: 54 4F 20 50 2E 52 45 53 45 54 0D 20 4E 4F 50 52 |TO P.RESET. NOPR| 000004B0: 49 4E 54 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 |INTER. .OPTION "| 000004C0: 50 52 49 4E 54 45 52 20 30 20 36 0D 20 50 52 49 |PRINTER 0 6. PRI| 000004D0: 4E 54 45 52 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 |NTER.END..TO SET| 000004E0: 4F 52 49 47 49 4E 0D 20 44 50 52 49 4E 54 20 22 |ORIGIN. DPRINT "| 000004F0: 48 0D 20 44 50 52 49 4E 54 20 22 4D 32 34 30 30 |H. DPRINT "M2400| 00000500: 0D 20 44 50 52 49 4E 54 20 22 49 0D 45 4E 44 0D |. DPRINT "I.END.| 00000510: 0D 54 4F 20 44 50 52 49 4E 54 31 20 3A 49 54 0D |.TO DPRINT1 :IT.| 00000520: 20 4E 4F 49 4E 54 53 0D 20 50 52 49 4E 54 31 20 | NOINTS. PRINT1 | 00000530: 3A 49 54 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 |:IT. INTS.END..T| 00000540: 4F 20 44 50 4F 20 3A 50 52 4F 43 0D 20 4E 4F 49 |O DPO :PROC. NOI| 00000550: 4E 54 53 0D 20 52 55 4E 20 4C 49 53 54 20 22 50 |NTS. RUN LIST "P| 00000560: 4F 20 3A 50 52 4F 43 0D 20 49 4E 54 53 0D 45 4E |O :PROC. INTS.EN| 00000570: 44 0D 0D 54 4F 20 49 4E 54 53 0D 20 2E 4F 50 54 |D..TO INTS. .OPT| 00000580: 49 4F 4E 20 22 52 43 20 30 20 33 0D 45 4E 44 0D |ION "RC 0 3.END.| 00000590: 0D 54 4F 20 44 50 52 49 4E 54 20 3A 49 54 0D 20 |.TO DPRINT :IT. | 000005A0: 4E 4F 49 4E 54 53 0D 20 50 52 49 4E 54 20 3A 49 |NOINTS. PRINT :I| 000005B0: 54 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 |T. INTS.END..TO | 000005C0: 50 59 43 4F 52 0D 20 4F 50 20 3A 50 59 43 4F 52 |PYCOR. OP :PYCOR| 000005D0: 0D 45 4E 44 0D 0D 54 4F 20 50 58 43 4F 52 0D 20 |.END..TO PXCOR. | 000005E0: 4F 50 20 3A 50 58 43 4F 52 0D 45 4E 44 0D 0D 54 |OP :PXCOR.END..T| 000005F0: 4F 20 4E 4F 49 4E 54 53 0D 20 2E 4F 50 54 49 4F |O NOINTS. .OPTIO| 00000600: 4E 20 22 52 43 20 30 20 30 0D 45 4E 44 0D 0D 54 |N "RC 0 0.END..T| 00000610: 4F 20 50 4D 4F 56 45 20 3A 44 58 20 3A 44 59 0D |O PMOVE :DX :DY.| 00000620: 20 4E 4F 49 4E 54 53 0D 20 4D 41 4B 45 20 22 50 | NOINTS. MAKE "P| 00000630: 58 43 4F 52 20 3A 50 58 43 4F 52 20 2B 20 3A 44 |XCOR :PXCOR + :D| 00000640: 58 0D 20 4D 41 4B 45 20 22 50 59 43 4F 52 20 3A |X. MAKE "PYCOR :| 00000650: 50 59 43 4F 52 20 2B 20 3A 44 59 0D 20 54 45 53 |PYCOR + :DY. TES| 00000660: 54 20 3A 50 45 4E 44 4F 57 4E 3F 0D 20 49 46 54 |T :PENDOWN?. IFT| 00000670: 52 55 45 20 44 50 52 49 4E 54 20 28 20 57 4F 52 |RUE DPRINT ( WOR| 00000680: 44 20 22 4A 2C 20 52 4F 55 4E 44 20 3A 50 58 43 |D "J, ROUND :PXC| 00000690: 4F 52 20 22 2C 20 52 4F 55 4E 44 20 3A 50 59 43 |OR ", ROUND :PYC| 000006A0: 4F 52 20 29 0D 20 49 46 46 41 4C 53 45 20 44 50 |OR ). IFFALSE DP| 000006B0: 52 49 4E 54 20 28 20 57 4F 52 44 20 22 52 2C 20 |RINT ( WORD "R, | 000006C0: 52 4F 55 4E 44 20 3A 50 58 43 4F 52 20 22 2C 20 |ROUND :PXCOR ", | 000006D0: 52 4F 55 4E 44 20 3A 50 59 43 4F 52 20 29 0D 20 |ROUND :PYCOR ). | 000006E0: 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 50 52 54 |INTS.END..TO PRT| 000006F0: 20 3A 41 4E 47 4C 45 0D 20 50 53 45 54 48 45 41 | :ANGLE. PSETHEA| 00000700: 44 49 4E 47 20 50 48 45 41 44 49 4E 47 20 2B 20 |DING PHEADING + | 00000710: 3A 41 4E 47 4C 45 0D 45 4E 44 0D 0D 54 4F 20 50 |:ANGLE.END..TO P| 00000720: 4C 54 20 3A 41 4E 47 4C 45 0D 20 50 52 54 20 2D |LT :ANGLE. PRT -| 00000730: 20 3A 41 4E 47 4C 45 0D 45 4E 44 0D 0D 54 4F 20 | :ANGLE.END..TO | 00000740: 50 53 45 54 48 45 41 44 49 4E 47 20 3A 48 0D 20 |PSETHEADING :H. | 00000750: 49 46 20 3A 48 20 3C 20 30 20 50 53 45 54 48 45 |IF :H < 0 PSETHE| 00000760: 41 44 49 4E 47 20 3A 48 20 2B 20 33 36 30 20 53 |ADING :H + 360 S| 00000770: 54 4F 50 0D 20 4D 41 4B 45 20 22 50 48 45 41 44 |TOP. MAKE "PHEAD| 00000780: 49 4E 47 20 52 45 4D 41 49 4E 44 45 52 20 3A 48 |ING REMAINDER :H| 00000790: 20 33 36 30 0D 45 4E 44 0D 0D 54 4F 20 50 53 45 | 360.END..TO PSE| 000007A0: 54 58 59 20 3A 58 20 3A 59 0D 20 4D 41 4B 45 20 |TXY :X :Y. MAKE | 000007B0: 22 44 58 20 3A 58 20 2D 20 50 58 43 4F 52 0D 20 |"DX :X - PXCOR. | 000007C0: 4D 41 4B 45 20 22 44 59 20 3A 59 20 2D 20 50 59 |MAKE "DY :Y - PY| 000007D0: 43 4F 52 0D 20 50 4D 4F 56 45 20 3A 44 58 20 3A |COR. PMOVE :DX :| 000007E0: 44 59 0D 45 4E 44 0D 0D 54 4F 20 50 48 4F 4D 45 |DY.END..TO PHOME| 000007F0: 0D 20 50 53 45 54 58 59 20 30 20 30 0D 20 50 53 |. PSETXY 0 0. PS| 00000800: 45 54 48 45 41 44 49 4E 47 20 30 0D 45 4E 44 0D |ETHEADING 0.END.| 00000810: 0D 54 4F 20 54 58 54 4D 4F 44 45 0D 20 4E 4F 50 |.TO TXTMODE. NOP| 00000820: 52 49 4E 54 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 |RINTER. .OPTION | 00000830: 22 50 52 49 4E 54 45 52 20 31 20 30 0D 20 50 52 |"PRINTER 1 0. PR| 00000840: 49 4E 54 45 52 0D 20 50 52 49 4E 54 20 5B 5D 0D |INTER. PRINT [].| 00000850: 45 4E 44 0D 0D 54 4F 20 50 54 45 53 54 0D 20 2E |END..TO PTEST. .| 00000860: 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 |OPTION "PRINTER | 00000870: 30 20 36 0D 20 50 50 43 31 20 30 0D 20 54 58 54 |0 6. PPC1 0. TXT| 00000880: 4D 4F 44 45 0D 20 50 52 49 4E 54 20 22 48 49 0D |MODE. PRINT "HI.| 00000890: 20 50 50 43 31 20 33 0D 20 54 58 54 4D 4F 44 45 | PPC1 3. TXTMODE| 000008A0: 0D 20 50 52 49 4E 54 20 22 48 49 0D 45 4E 44 0D |. PRINT "HI.END.| 000008B0: 0D 54 4F 20 50 4C 4F 46 46 0D 20 4E 4F 50 52 49 |.TO PLOFF. NOPRI| 000008C0: 4E 54 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 |NTER. .OPTION "P| 000008D0: 52 49 4E 54 45 52 20 30 20 34 0D 20 2E 4F 50 54 |RINTER 0 4. .OPT| 000008E0: 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 30 |ION "PRINTER 1 0| 000008F0: 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 |. .OPTION "PRINT| 00000900: 45 52 20 32 20 30 0D 45 4E 44 0D 0D 4D 41 4B 45 |ER 2 0.END..MAKE| 00000910: 20 22 52 45 44 20 28 33 29 0D 4D 41 4B 45 20 22 | "RED (3).MAKE "| 00000920: 47 52 45 45 4E 20 28 32 29 0D 4D 41 4B 45 20 22 |GREEN (2).MAKE "| 00000930: 42 4C 55 45 20 28 31 29 0D 4D 41 4B 45 20 22 42 |BLUE (1).MAKE "B| 00000940: 4C 41 43 4B 20 28 30 29 0D 4D 41 4B 45 20 22 50 |LACK (0).MAKE "P| 00000950: 48 45 41 44 49 4E 47 20 28 30 29 0D 4D 41 4B 45 |HEADING (0).MAKE| 00000960: 20 22 50 45 4E 44 4F 57 4E 3F 20 22 54 52 55 45 | "PENDOWN? "TRUE| 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 HELP. NODRAW. PRINT [COMMODORE COLO R PLOTTER PROCEDURES:]. PRINT [SETUP NEW PAGE PDRAW PCS]. PRINT [PFD PBK PRT PPU PPD PPC]. PRINT [PSETXY PSETHEADING]. PR INT [PXCOR PYCOR PHEADING]. PRINT [TXTMO DE GRMODE]. PRINT []. PRINT []. PRINT [T YPE SETUP TO INITIALIZE PRINTER.]. PRINT [POLYSPI IS A SAMPLE PLOTTER PROCEDURE. ].END..TO SETUP. MAKE "BLACK 0. MAKE "BL UE 1. MAKE "GREEN 2. MAKE "RED 3. MAKE " PENDOWN? "TRUE. .OPTION "PRINTER 2 1. P. RESET. GRMODE. PDRAW.END..TO NEWPAGE. TX TMODE. REPEAT 19 [DPRINT []]. PDRAW.END. .TO PDRAW. MAKE "PXCOR 0. MAKE "PYCOR 0. SETORIGIN. PSETHEADING 0. PPC 2.END..TO PCS. PPU. PSETXY 0 0. PPD. PSETHEADING 0.END..TO PBK :DIST. PFD - :DIST.END..TO PPU. MAKE "PENDOWN? "FALSE.END..TO PPD. MAKE "PENDOWN? "TRUE.END..TO PPC :PEN. NOINTS. NOPRINTER. .OPTION "PRINTER 1 2. PRINTER. DPRINT []. DPRINT :PEN. NOPRIN TER. MAKE "PENCOLOR :PEN. GRMODE. INTS.E ND..TO PHEADING. OUTPUT :PHEADING.END..T O GRMODE. NOPRINTER. .OPTION "PRINTER 1 1. PRINTER. PRINT [].END..TO PFD :DIST. MAKE "DIST :DIST * 2. PMOVE :DIST * SIN PHEADING :DIST * COS PHEADING.END..TO PO LYSPI :SIDE :ANGLE. IF :SIDE > 125 NOPRI NTER STOP. PFD :SIDE. PRT :ANGLE. POLYSP I :SIDE + 2 :ANGLE.END..TO P.RESET. NOPR INTER. .OPTION "PRINTER 0 6. PRINTER.END ..TO SETORIGIN. DPRINT "H. DPRINT "M2400 . DPRINT "I.END..TO DPRINT1 :IT. NOINTS. PRINT1 :IT. INTS.END..TO DPO :PROC. NOI NTS. RUN LIST "PO :PROC. INTS.END..TO IN TS. .OPTION "RC 0 3.END..TO DPRINT :IT. NOINTS. PRINT :IT. INTS.END..TO PYCOR. O P :PYCOR.END..TO PXCOR. OP :PXCOR.END..T O NOINTS. .OPTION "RC 0 0.END..TO PMOVE :DX :DY. NOINTS. MAKE "PXCOR :PXCOR + :D X. MAKE "PYCOR :PYCOR + :DY. TEST :PENDO WN?. IFTRUE DPRINT ( WORD "J, ROUND :PXC OR ", ROUND :PYCOR ). IFFALSE DPRINT ( W ORD "R, ROUND :PXCOR ", ROUND :PYCOR ). INTS.END..TO PRT :ANGLE. PSETHEADING PHE ADING + :ANGLE.END..TO PLT :ANGLE. PRT - :ANGLE.END..TO PSETHEADING :H. IF :H < 0 PSETHEADING :H + 360 STOP. MAKE "PHEAD ING REMAINDER :H 360.END..TO PSETXY :X : Y. MAKE "DX :X - PXCOR. MAKE "DY :Y - PY COR. PMOVE :DX :DY.END..TO PHOME. PSETXY 0 0. PSETHEADING 0.END..TO TXTMODE. NOP RINTER. .OPTION "PRINTER 1 0. PRINTER. P RINT [].END..TO PTEST. .OPTION "PRINTER 0 6. PPC1 0. TXTMODE. PRINT "HI. PPC1 3. TXTMODE. PRINT "HI.END..TO PLOFF. NOPRI NTER. .OPTION "PRINTER 0 4. .OPTION "PRI NTER 1 0. .OPTION "PRINTER 2 0.END..MAKE "RED (3).MAKE "GREEN (2).MAKE "BLUE (1) .MAKE "BLACK (0).MAKE "PHEADING (0).MAKE "PENDOWN? "TRUE.MAKE "PYCOR (0).MAKE "P XCOR (0).MAKE "PENCOLOR (2).
> CLICK IMAGE PREVIEW FOR FULL MODAL