LG-RSPLOTTER
FILE INFORMATION
FILENAME(S): LG-RSPLOTTER
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
ad48158cc7dc91e18b61464475cec058ddaa9893d3e39a7c9125c6d301cb6992
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-RSPLOTTER | PRG | DuncanTwain | 25 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 50 48 4F 4D 45 0D 20 50 53 45 54 |. TO PHOME. PSET| 00000010: 58 59 20 30 20 30 0D 20 50 53 45 54 48 45 41 44 |XY 0 0. PSETHEAD| 00000020: 49 4E 47 20 30 0D 45 4E 44 0D 0D 54 4F 20 50 4C |ING 0.END..TO PL| 00000030: 54 20 3A 41 4E 47 4C 45 0D 20 50 52 54 20 2D 20 |T :ANGLE. PRT - | 00000040: 3A 41 4E 47 4C 45 0D 45 4E 44 0D 0D 54 4F 20 50 |:ANGLE.END..TO P| 00000050: 4D 4F 56 45 20 3A 44 58 20 3A 44 59 0D 20 47 52 |MOVE :DX :DY. GR| 00000060: 4D 4F 44 45 0D 20 4E 4F 49 4E 54 53 0D 20 4D 41 |MODE. NOINTS. MA| 00000070: 4B 45 20 22 50 58 43 4F 52 20 3A 50 58 43 4F 52 |KE "PXCOR :PXCOR| 00000080: 20 2B 20 3A 44 58 0D 20 4D 41 4B 45 20 22 50 59 | + :DX. MAKE "PY| 00000090: 43 4F 52 20 3A 50 59 43 4F 52 20 2B 20 3A 44 59 |COR :PYCOR + :DY| 000000A0: 0D 20 54 45 53 54 20 3A 50 45 4E 44 4F 57 4E 3F |. TEST :PENDOWN?| 000000B0: 0D 20 49 46 54 52 55 45 20 44 50 52 49 4E 54 20 |. IFTRUE DPRINT | 000000C0: 28 20 57 4F 52 44 20 22 44 20 52 4F 55 4E 44 20 |( WORD "D ROUND | 000000D0: 3A 50 58 43 4F 52 20 22 2C 20 52 4F 55 4E 44 20 |:PXCOR ", ROUND | 000000E0: 3A 50 59 43 4F 52 20 29 0D 20 49 46 46 41 4C 53 |:PYCOR ). IFFALS| 000000F0: 45 20 44 50 52 49 4E 54 20 28 20 57 4F 52 44 20 |E DPRINT ( WORD | 00000100: 22 4D 20 52 4F 55 4E 44 20 3A 50 58 43 4F 52 20 |"M ROUND :PXCOR | 00000110: 22 2C 20 52 4F 55 4E 44 20 3A 50 59 43 4F 52 20 |", ROUND :PYCOR | 00000120: 29 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 |). INTS.END..TO | 00000130: 49 4E 54 53 0D 20 2E 44 45 50 4F 53 49 54 20 32 |INTS. .DEPOSIT 2| 00000140: 33 33 20 28 20 2E 45 58 41 4D 49 4E 45 20 32 33 |33 ( .EXAMINE 23| 00000150: 33 20 29 20 2D 20 31 0D 20 49 46 20 28 20 2E 45 |3 ) - 1. IF ( .E| 00000160: 58 41 4D 49 4E 45 20 32 33 33 20 29 20 3D 20 30 |XAMINE 233 ) = 0| 00000170: 20 49 46 20 52 43 3F 20 49 46 20 52 43 20 3D 20 | IF RC? IF RC = | 00000180: 43 48 41 52 20 37 20 50 52 49 4E 54 20 22 53 54 |CHAR 7 PRINT "ST| 00000190: 4F 50 50 45 44 21 20 54 4F 50 4C 45 56 45 4C 0D |OPPED! TOPLEVEL.| 000001A0: 45 4E 44 0D 0D 54 4F 20 4E 4F 49 4E 54 53 0D 20 |END..TO NOINTS. | 000001B0: 2E 44 45 50 4F 53 49 54 20 32 33 33 20 31 20 2B |.DEPOSIT 233 1 +| 000001C0: 20 2E 45 58 41 4D 49 4E 45 20 32 33 33 0D 45 4E | .EXAMINE 233.EN| 000001D0: 44 0D 0D 54 4F 20 53 45 54 4F 52 49 47 49 4E 0D |D..TO SETORIGIN.| 000001E0: 20 54 58 54 4D 4F 44 45 0D 20 44 50 52 49 4E 54 | TXTMODE. DPRINT| 000001F0: 20 5B 5D 0D 20 44 50 52 49 4E 54 31 20 43 48 41 | []. DPRINT1 CHA| 00000200: 52 20 31 31 0D 20 47 52 4D 4F 44 45 0D 20 44 50 |R 11. GRMODE. DP| 00000210: 52 49 4E 54 20 22 52 32 34 30 2C 30 0D 20 44 50 |RINT "R240,0. DP| 00000220: 52 49 4E 54 20 22 49 0D 45 4E 44 0D 0D 54 4F 20 |RINT "I.END..TO | 00000230: 50 2E 52 45 53 45 54 0D 20 47 52 4D 4F 44 45 0D |P.RESET. GRMODE.| 00000240: 20 44 50 52 49 4E 54 20 22 41 0D 45 4E 44 0D 0D | DPRINT "A.END..| 00000250: 54 4F 20 50 4F 4C 59 53 50 49 20 3A 53 49 44 45 |TO POLYSPI :SIDE| 00000260: 20 3A 41 4E 47 4C 45 0D 20 49 46 20 3A 53 49 44 | :ANGLE. IF :SID| 00000270: 45 20 3E 20 31 32 35 20 53 54 4F 50 0D 20 50 46 |E > 125 STOP. PF| 00000280: 44 20 3A 53 49 44 45 0D 20 50 52 54 20 3A 41 4E |D :SIDE. PRT :AN| 00000290: 47 4C 45 0D 20 50 4F 4C 59 53 50 49 20 3A 53 49 |GLE. POLYSPI :SI| 000002A0: 44 45 20 DB 20 32 20 3A 41 4E 47 4C 45 0D 45 4E |DE . 2 :ANGLE.EN| 000002B0: 44 0D 0D 54 4F 20 44 50 4F 20 3A 50 52 4F 43 0D |D..TO DPO :PROC.| 000002C0: 20 4E 4F 49 4E 54 53 0D 20 4F 55 54 44 45 56 20 | NOINTS. OUTDEV | 000002D0: 31 0D 20 52 55 4E 20 4C 49 53 54 20 22 50 4F 20 |1. RUN LIST "PO | 000002E0: 3A 50 52 4F 43 0D 20 4F 55 54 44 45 56 20 30 0D |:PROC. OUTDEV 0.| 000002F0: 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 44 50 | INTS.END..TO DP| 00000300: 52 49 4E 54 31 20 3A 49 54 0D 20 4E 4F 49 4E 54 |RINT1 :IT. NOINT| 00000310: 53 0D 20 4F 55 54 44 45 56 20 31 0D 20 50 52 49 |S. OUTDEV 1. PRI| 00000320: 4E 54 31 20 3A 49 54 0D 20 4F 55 54 44 45 56 20 |NT1 :IT. OUTDEV | 00000330: 30 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 |0. INTS.END..TO | 00000340: 44 50 52 49 4E 54 20 3A 49 54 0D 20 4E 4F 49 4E |DPRINT :IT. NOIN| 00000350: 54 53 0D 20 4F 55 54 44 45 56 20 31 0D 20 50 52 |TS. OUTDEV 1. PR| 00000360: 49 4E 54 20 3A 49 54 0D 20 4F 55 54 44 45 56 20 |INT :IT. OUTDEV | 00000370: 30 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 |0. INTS.END..TO | 00000380: 47 52 4D 4F 44 45 0D 20 44 50 52 49 4E 54 31 20 |GRMODE. DPRINT1 | 00000390: 43 48 41 52 20 31 38 0D 45 4E 44 0D 0D 54 4F 20 |CHAR 18.END..TO | 000003A0: 54 58 54 4D 4F 44 45 0D 20 44 50 52 49 4E 54 31 |TXTMODE. DPRINT1| 000003B0: 20 43 48 41 52 20 31 37 0D 45 4E 44 0D 0D 54 4F | CHAR 17.END..TO| 000003C0: 20 50 48 45 41 44 49 4E 47 0D 20 4F 55 54 50 55 | PHEADING. OUTPU| 000003D0: 54 20 3A 50 48 45 41 44 49 4E 47 0D 45 4E 44 0D |T :PHEADING.END.| 000003E0: 0D 54 4F 20 50 59 43 4F 52 0D 20 4F 50 20 3A 50 |.TO PYCOR. OP :P| 000003F0: 59 43 4F 52 0D 45 4E 44 0D 0D 54 4F 20 50 58 43 |YCOR.END..TO PXC| 00000400: 4F 52 0D 20 4F 50 20 3A 50 58 43 4F 52 0D 45 4E |OR. OP :PXCOR.EN| 00000410: 44 0D 0D 54 4F 20 50 53 45 54 48 45 41 44 49 4E |D..TO PSETHEADIN| 00000420: 47 20 3A 48 0D 20 49 46 20 3A 48 20 3C 20 30 20 |G :H. IF :H < 0 | 00000430: 50 53 45 54 48 45 41 44 49 4E 47 20 3A 48 20 2B |PSETHEADING :H +| 00000440: 20 33 36 30 20 53 54 4F 50 0D 20 4D 41 4B 45 20 | 360 STOP. MAKE | 00000450: 22 50 48 45 41 44 49 4E 47 20 52 45 4D 41 49 4E |"PHEADING REMAIN| 00000460: 44 45 52 20 3A 48 20 33 36 30 0D 45 4E 44 0D 0D |DER :H 360.END..| 00000470: 54 4F 20 50 53 45 54 58 59 20 3A 58 20 3A 59 0D |TO PSETXY :X :Y.| 00000480: 20 4D 41 4B 45 20 22 44 58 20 3A 58 20 2D 20 50 | MAKE "DX :X - P| 00000490: 58 43 4F 52 0D 20 4D 41 4B 45 20 22 44 59 20 3A |XCOR. MAKE "DY :| 000004A0: 59 20 2D 20 50 59 43 4F 52 0D 20 50 4D 4F 56 45 |Y - PYCOR. PMOVE| 000004B0: 20 3A 44 58 20 3A 44 59 0D 45 4E 44 0D 0D 54 4F | :DX :DY.END..TO| 000004C0: 20 50 50 43 20 3A 50 45 4E 0D 20 47 52 4D 4F 44 | PPC :PEN. GRMOD| 000004D0: 45 0D 20 4E 4F 49 4E 54 53 0D 20 44 50 52 49 4E |E. NOINTS. DPRIN| 000004E0: 54 20 57 4F 52 44 20 22 43 20 3A 50 45 4E 0D 20 |T WORD "C :PEN. | 000004F0: 4D 41 4B 45 20 22 50 45 4E 43 4F 4C 4F 52 20 3A |MAKE "PENCOLOR :| 00000500: 50 45 4E 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 |PEN. INTS.END..T| 00000510: 4F 20 50 50 44 0D 20 4D 41 4B 45 20 22 50 45 4E |O PPD. MAKE "PEN| 00000520: 44 4F 57 4E 3F 20 22 54 52 55 45 0D 45 4E 44 0D |DOWN? "TRUE.END.| 00000530: 0D 54 4F 20 50 50 55 0D 20 4D 41 4B 45 20 22 50 |.TO PPU. MAKE "P| 00000540: 45 4E 44 4F 57 4E 3F 20 22 46 41 4C 53 45 0D 45 |ENDOWN? "FALSE.E| 00000550: 4E 44 0D 0D 54 4F 20 50 52 54 20 3A 41 4E 47 4C |ND..TO PRT :ANGL| 00000560: 45 0D 20 50 53 45 54 48 45 41 44 49 4E 47 20 50 |E. PSETHEADING P| 00000570: 48 45 41 44 49 4E 47 20 2B 20 3A 41 4E 47 4C 45 |HEADING + :ANGLE| 00000580: 0D 45 4E 44 0D 0D 54 4F 20 50 42 4B 20 3A 44 49 |.END..TO PBK :DI| 00000590: 53 54 0D 20 50 46 44 20 2D 20 3A 44 49 53 54 0D |ST. PFD - :DIST.| 000005A0: 45 4E 44 0D 0D 54 4F 20 50 46 44 20 3A 44 49 53 |END..TO PFD :DIS| 000005B0: 54 0D 20 4D 41 4B 45 20 22 44 49 53 54 20 3A 44 |T. MAKE "DIST :D| 000005C0: 49 53 54 20 2A 20 32 0D 20 50 4D 4F 56 45 20 3A |IST * 2. PMOVE :| 000005D0: 44 49 53 54 20 2A 20 53 49 4E 20 50 48 45 41 44 |DIST * SIN PHEAD| 000005E0: 49 4E 47 20 3A 44 49 53 54 20 2A 20 43 4F 53 20 |ING :DIST * COS | 000005F0: 50 48 45 41 44 49 4E 47 0D 45 4E 44 0D 0D 54 4F |PHEADING.END..TO| 00000600: 20 50 43 53 0D 20 50 50 55 0D 20 50 53 45 54 58 | PCS. PPU. PSETX| 00000610: 59 20 30 20 30 0D 20 50 50 44 0D 20 50 53 45 54 |Y 0 0. PPD. PSET| 00000620: 48 45 41 44 49 4E 47 20 30 0D 45 4E 44 0D 0D 54 |HEADING 0.END..T| 00000630: 4F 20 50 44 52 41 57 0D 20 4D 41 4B 45 20 22 50 |O PDRAW. MAKE "P| 00000640: 58 43 4F 52 20 30 0D 20 4D 41 4B 45 20 22 50 59 |XCOR 0. MAKE "PY| 00000650: 43 4F 52 20 30 0D 20 53 45 54 4F 52 49 47 49 4E |COR 0. SETORIGIN| 00000660: 0D 20 50 53 45 54 48 45 41 44 49 4E 47 20 30 0D |. PSETHEADING 0.| 00000670: 20 50 50 43 20 31 0D 45 4E 44 0D 0D 54 4F 20 4E | PPC 1.END..TO N| 00000680: 45 57 50 41 47 45 0D 20 54 58 54 4D 4F 44 45 0D |EWPAGE. TXTMODE.| 00000690: 20 52 45 50 45 41 54 20 31 39 20 5B 44 50 52 49 | REPEAT 19 [DPRI| 000006A0: 4E 54 20 5B 5D 5D 0D 20 50 44 52 41 57 0D 45 4E |NT []]. PDRAW.EN| 000006B0: 44 0D 0D 54 4F 20 53 45 54 55 50 0D 20 4D 41 4B |D..TO SETUP. MAK| 000006C0: 45 20 22 42 4C 41 43 4B 20 30 0D 20 4D 41 4B 45 |E "BLACK 0. MAKE| 000006D0: 20 22 42 4C 55 45 20 31 0D 20 4D 41 4B 45 20 22 | "BLUE 1. MAKE "| 000006E0: 47 52 45 45 4E 20 32 0D 20 4D 41 4B 45 20 22 52 |GREEN 2. MAKE "R| 000006F0: 45 44 20 33 0D 20 4D 41 4B 45 20 22 50 45 4E 44 |ED 3. MAKE "PEND| 00000700: 4F 57 4E 3F 20 22 54 52 55 45 0D 20 50 2E 52 45 |OWN? "TRUE. P.RE| 00000710: 53 45 54 0D 20 50 44 52 41 57 0D 45 4E 44 0D 0D |SET. PDRAW.END..| 00000720: 54 4F 20 48 45 4C 50 0D 20 4E 4F 44 52 41 57 0D |TO HELP. NODRAW.| 00000730: 20 50 52 49 4E 54 20 5B 52 41 44 49 4F 20 53 48 | PRINT [RADIO SH| 00000740: 41 43 4B 20 43 4F 4C 4F 52 20 50 4C 4F 54 54 45 |ACK COLOR PLOTTE| 00000750: 52 20 50 52 4F 43 45 44 55 52 45 53 3A 5D 0D 20 |R PROCEDURES:]. | 00000760: 50 52 49 4E 54 20 5B 53 45 54 55 50 20 4E 45 57 |PRINT [SETUP NEW| 00000770: 50 41 47 45 20 50 44 52 41 57 20 50 43 53 5D 0D |PAGE PDRAW PCS].| 00000780: 20 50 52 49 4E 54 20 5B 50 46 44 20 50 42 4B 20 | PRINT [PFD PBK | 00000790: 50 52 54 20 50 50 55 20 50 50 44 20 50 50 43 5D |PRT PPU PPD PPC]| 000007A0: 0D 20 50 52 49 4E 54 20 5B 50 53 45 54 58 59 20 |. PRINT [PSETXY | 000007B0: 50 53 45 54 48 45 41 44 49 4E 47 5D 0D 20 50 52 |PSETHEADING]. PR| 000007C0: 49 4E 54 20 5B 50 58 43 4F 52 20 50 59 43 4F 52 |INT [PXCOR PYCOR| 000007D0: 20 50 48 45 41 44 49 4E 47 5D 0D 20 50 52 49 4E | PHEADING]. PRIN| 000007E0: 54 20 5B 54 58 54 4D 4F 44 45 20 47 52 4D 4F 44 |T [TXTMODE GRMOD| 000007F0: 45 5D 0D 20 50 52 49 4E 54 20 44 50 52 49 4E 54 |E]. PRINT DPRINT| 00000800: 20 44 50 52 49 4E 54 31 20 44 50 4F 0D 20 50 52 | DPRINT1 DPO. PR| 00000810: 49 4E 54 20 5B 5D 0D 20 50 52 49 4E 54 20 5B 54 |INT []. PRINT [T| 00000820: 59 50 45 20 53 45 54 55 50 20 54 4F 20 49 4E 49 |YPE SETUP TO INI| 00000830: 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 52 2E |TIALIZE PRINTER.| 00000840: 5D 0D 20 50 52 49 4E 54 20 5B 50 4F 4C 59 53 50 |]. PRINT [POLYSP| 00000850: 49 20 49 53 20 41 20 53 41 4D 50 4C 45 20 50 4C |I IS A SAMPLE PL| 00000860: 4F 54 54 45 52 20 50 52 4F 43 45 44 55 52 45 2E |OTTER PROCEDURE.| 00000870: 5D 0D 45 4E 44 0D 0D |].END.. |
. TO PHOME. PSETXY 0 0. PSETHEADING 0.EN D..TO PLT :ANGLE. PRT - :ANGLE.END..TO P MOVE :DX :DY. GRMODE. NOINTS. MAKE "PXCO R :PXCOR + :DX. MAKE "PYCOR :PYCOR + :DY . TEST :PENDOWN?. IFTRUE DPRINT ( WORD " D ROUND :PXCOR ", ROUND :PYCOR ). IFFALS E DPRINT ( WORD "M ROUND :PXCOR ", ROUND :PYCOR ). INTS.END..TO INTS. .DEPOSIT 2 33 ( .EXAMINE 233 ) - 1. IF ( .EXAMINE 2 33 ) = 0 IF RC? IF RC = CHAR 7 PRINT "ST OPPED! TOPLEVEL.END..TO NOINTS. .DEPOSIT 233 1 + .EXAMINE 233.END..TO SETORIGIN. TXTMODE. DPRINT []. DPRINT1 CHAR 11. GR MODE. DPRINT "R240,0. DPRINT "I.END..TO P.RESET. GRMODE. DPRINT "A.END..TO POLYS PI :SIDE :ANGLE. IF :SIDE > 125 STOP. PF D :SIDE. PRT :ANGLE. POLYSPI :SIDE . 2 : ANGLE.END..TO DPO :PROC. NOINTS. OUTDEV 1. RUN LIST "PO :PROC. OUTDEV 0. INTS.EN D..TO DPRINT1 :IT. NOINTS. OUTDEV 1. PRI NT1 :IT. OUTDEV 0. INTS.END..TO DPRINT : IT. NOINTS. OUTDEV 1. PRINT :IT. OUTDEV 0. INTS.END..TO GRMODE. DPRINT1 CHAR 18. END..TO TXTMODE. DPRINT1 CHAR 17.END..TO PHEADING. OUTPUT :PHEADING.END..TO PYCO R. OP :PYCOR.END..TO PXCOR. OP :PXCOR.EN D..TO PSETHEADING :H. IF :H < 0 PSETHEAD ING :H + 360 STOP. MAKE "PHEADING REMAIN DER :H 360.END..TO PSETXY :X :Y. MAKE "D X :X - PXCOR. MAKE "DY :Y - PYCOR. PMOVE :DX :DY.END..TO PPC :PEN. GRMODE. NOINT S. DPRINT WORD "C :PEN. MAKE "PENCOLOR : PEN. INTS.END..TO PPD. MAKE "PENDOWN? "T RUE.END..TO PPU. MAKE "PENDOWN? "FALSE.E ND..TO PRT :ANGLE. PSETHEADING PHEADING + :ANGLE.END..TO PBK :DIST. PFD - :DIST. END..TO PFD :DIST. MAKE "DIST :DIST * 2. PMOVE :DIST * SIN PHEADING :DIST * COS PHEADING.END..TO PCS. PPU. PSETXY 0 0. P PD. PSETHEADING 0.END..TO PDRAW. MAKE "P XCOR 0. MAKE "PYCOR 0. SETORIGIN. PSETHE ADING 0. PPC 1.END..TO NEWPAGE. TXTMODE. REPEAT 19 [DPRINT []]. PDRAW.END..TO SE TUP. MAKE "BLACK 0. MAKE "BLUE 1. MAKE " GREEN 2. MAKE "RED 3. MAKE "PENDOWN? "TR UE. P.RESET. PDRAW.END..TO HELP. NODRAW. PRINT [RADIO SHACK COLOR PLOTTER PROCED URES:]. PRINT [SETUP NEWPAGE PDRAW PCS]. PRINT [PFD PBK PRT PPU PPD PPC]. PRINT [PSETXY PSETHEADING]. PRINT [PXCOR PYCOR PHEADING]. PRINT [TXTMODE GRMODE]. PRIN T DPRINT DPRINT1 DPO. PRINT []. PRINT [T YPE SETUP TO INITIALIZE PRINTER.]. PRINT [POLYSPI IS A SAMPLE PLOTTER PROCEDURE. ].END..
> CLICK IMAGE PREVIEW FOR FULL MODAL