RSPLOTTER.LOGO
FILE INFORMATION
FILENAME(S): RSPLOTTER.LOGO
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:06:56
APPEARS ON: 1 disk(s)
FILE HASH
f954c315b6f57085b66d93316d767517f81b33828c848ed8c485b5d3cfa625af
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0020B | RSPLOTTER.LOGO | PRG | DuncanTwain | 23 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 30 54 4F 20 48 45 4C 50 0D 20 4E 4F 44 52 41 |.0TO HELP. NODRA| 00000010: 57 0D 20 50 52 49 4E 54 20 5B 52 41 44 49 4F 20 |W. PRINT [RADIO | 00000020: 53 48 41 43 4B 20 43 4F 4C 4F 52 20 50 4C 4F 54 |SHACK COLOR PLOT| 00000030: 54 45 52 20 50 52 4F 43 45 44 55 52 45 53 3A 5D |TER PROCEDURES:]| 00000040: 0D 20 50 52 49 4E 54 20 5B 53 45 54 55 50 20 4E |. PRINT [SETUP N| 00000050: 45 57 50 41 47 45 20 50 44 52 41 57 20 50 43 53 |EWPAGE PDRAW PCS| 00000060: 5D 0D 20 50 52 49 4E 54 20 5B 50 46 44 20 50 42 |]. PRINT [PFD PB| 00000070: 4B 20 50 52 54 20 50 50 55 20 50 50 44 20 50 50 |K PRT PPU PPD PP| 00000080: 43 5D 0D 20 50 52 49 4E 54 20 5B 50 53 45 54 58 |C]. PRINT [PSETX| 00000090: 59 20 50 53 45 54 48 45 41 44 49 4E 47 5D 0D 20 |Y PSETHEADING]. | 000000A0: 50 52 49 4E 54 20 5B 50 58 43 4F 52 20 50 59 43 |PRINT [PXCOR PYC| 000000B0: 4F 52 20 50 48 45 41 44 49 4E 47 5D 0D 20 50 52 |OR PHEADING]. PR| 000000C0: 49 4E 54 20 5B 54 58 54 4D 4F 44 45 20 47 52 4D |INT [TXTMODE GRM| 000000D0: 4F 44 45 5D 0D 20 50 52 49 4E 54 20 44 50 52 49 |ODE]. PRINT DPRI| 000000E0: 4E 54 20 44 50 52 49 4E 54 31 20 44 50 4F 0D 20 |NT DPRINT1 DPO. | 000000F0: 50 52 49 4E 54 20 5B 5D 0D 20 50 52 49 4E 54 20 |PRINT []. PRINT | 00000100: 5B 54 59 50 45 20 53 45 54 55 50 20 54 4F 20 49 |[TYPE SETUP TO I| 00000110: 4E 49 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 |NITIALIZE PRINTE| 00000120: 52 2E 5D 0D 20 50 52 49 4E 54 20 5B 50 4F 4C 59 |R.]. PRINT [POLY| 00000130: 53 50 49 20 49 53 20 41 20 53 41 4D 50 4C 45 20 |SPI IS A SAMPLE | 00000140: 50 4C 4F 54 54 45 52 20 50 52 4F 43 45 44 55 52 |PLOTTER PROCEDUR| 00000150: 45 2E 5D 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 55 |E.].END..TO SETU| 00000160: 50 0D 20 4D 41 4B 45 20 22 42 4C 41 43 4B 20 30 |P. MAKE "BLACK 0| 00000170: 0D 20 4D 41 4B 45 20 22 42 4C 55 45 20 31 0D 20 |. MAKE "BLUE 1. | 00000180: 4D 41 4B 45 20 22 47 52 45 45 4E 20 32 0D 20 4D |MAKE "GREEN 2. M| 00000190: 41 4B 45 20 22 52 45 44 20 33 0D 20 4D 41 4B 45 |AKE "RED 3. MAKE| 000001A0: 20 22 50 45 4E 44 4F 57 4E 3F 20 22 54 52 55 45 | "PENDOWN? "TRUE| 000001B0: 0D 20 50 2E 52 45 53 45 54 0D 20 50 44 52 41 57 |. P.RESET. PDRAW| 000001C0: 0D 45 4E 44 0D 0D 54 4F 20 4E 45 57 50 41 47 45 |.END..TO NEWPAGE| 000001D0: 0D 20 54 58 54 4D 4F 44 45 0D 20 52 45 50 45 41 |. TXTMODE. REPEA| 000001E0: 54 20 31 39 20 5B 44 50 52 49 4E 54 20 5B 5D 5D |T 19 [DPRINT []]| 000001F0: 0D 20 50 44 52 41 57 0D 45 4E 44 0D 0D 54 4F 20 |. PDRAW.END..TO | 00000200: 50 44 52 41 57 0D 20 4D 41 4B 45 20 22 50 58 43 |PDRAW. MAKE "PXC| 00000210: 4F 52 20 30 0D 20 4D 41 4B 45 20 22 50 59 43 4F |OR 0. MAKE "PYCO| 00000220: 52 20 30 0D 20 53 45 54 4F 52 49 47 49 4E 0D 20 |R 0. SETORIGIN. | 00000230: 50 53 45 54 48 45 41 44 49 4E 47 20 30 0D 20 50 |PSETHEADING 0. P| 00000240: 50 43 20 31 0D 45 4E 44 0D 0D 54 4F 20 50 43 53 |PC 1.END..TO PCS| 00000250: 0D 20 50 50 55 0D 20 50 53 45 54 58 59 20 30 20 |. PPU. PSETXY 0 | 00000260: 30 0D 20 50 50 44 0D 20 50 53 45 54 48 45 41 44 |0. PPD. PSETHEAD| 00000270: 49 4E 47 20 30 0D 45 4E 44 0D 0D 54 4F 20 50 42 |ING 0.END..TO PB| 00000280: 4B 20 3A 44 49 53 54 0D 20 50 46 44 20 2D 20 3A |K :DIST. PFD - :| 00000290: 44 49 53 54 0D 45 4E 44 0D 0D 54 4F 20 50 50 55 |DIST.END..TO PPU| 000002A0: 0D 20 4D 41 4B 45 20 22 50 45 4E 44 4F 57 4E 3F |. MAKE "PENDOWN?| 000002B0: 20 22 46 41 4C 53 45 0D 45 4E 44 0D 0D 54 4F 20 | "FALSE.END..TO | 000002C0: 50 50 44 0D 20 4D 41 4B 45 20 22 50 45 4E 44 4F |PPD. MAKE "PENDO| 000002D0: 57 4E 3F 20 22 54 52 55 45 0D 45 4E 44 0D 0D 54 |WN? "TRUE.END..T| 000002E0: 4F 20 50 50 43 20 3A 50 45 4E 0D 20 47 52 4D 4F |O PPC :PEN. GRMO| 000002F0: 44 45 0D 20 4E 4F 49 4E 54 53 0D 20 44 50 52 49 |DE. NOINTS. DPRI| 00000300: 4E 54 20 57 4F 52 44 20 22 43 20 3A 50 45 4E 0D |NT WORD "C :PEN.| 00000310: 20 4D 41 4B 45 20 22 50 45 4E 43 4F 4C 4F 52 20 | MAKE "PENCOLOR | 00000320: 3A 50 45 4E 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D |:PEN. INTS.END..| 00000330: 54 4F 20 50 48 45 41 44 49 4E 47 0D 20 4F 55 54 |TO PHEADING. OUT| 00000340: 50 55 54 20 3A 50 48 45 41 44 49 4E 47 0D 45 4E |PUT :PHEADING.EN| 00000350: 44 0D 0D 54 4F 20 44 50 4F 20 3A 50 52 4F 43 0D |D..TO DPO :PROC.| 00000360: 20 4E 4F 49 4E 54 53 0D 20 4F 55 54 44 45 56 20 | NOINTS. OUTDEV | 00000370: 31 0D 20 52 55 4E 20 4C 49 53 54 20 22 50 4F 20 |1. RUN LIST "PO | 00000380: 3A 50 52 4F 43 0D 20 4F 55 54 44 45 56 20 30 0D |:PROC. OUTDEV 0.| 00000390: 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 50 46 | INTS.END..TO PF| 000003A0: 44 20 3A 44 49 53 54 0D 20 4D 41 4B 45 20 22 44 |D :DIST. MAKE "D| 000003B0: 49 53 54 20 3A 44 49 53 54 20 2A 20 32 0D 20 50 |IST :DIST * 2. P| 000003C0: 4D 4F 56 45 20 3A 44 49 53 54 20 2A 20 53 49 4E |MOVE :DIST * SIN| 000003D0: 20 50 48 45 41 44 49 4E 47 20 3A 44 49 53 54 20 | PHEADING :DIST | 000003E0: 2A 20 43 4F 53 20 50 48 45 41 44 49 4E 47 0D 45 |* COS PHEADING.E| 000003F0: 4E 44 0D 0D 54 4F 20 50 4F 4C 59 53 50 49 20 3A |ND..TO POLYSPI :| 00000400: 53 49 44 45 20 3A 41 4E 47 4C 45 0D 20 49 46 20 |SIDE :ANGLE. IF | 00000410: 3A 53 49 44 45 20 3E 20 31 32 35 20 53 54 4F 50 |:SIDE > 125 STOP| 00000420: 0D 20 50 46 44 20 3A 53 49 44 45 0D 20 50 52 54 |. PFD :SIDE. PRT| 00000430: 20 3A 41 4E 47 4C 45 0D 20 50 4F 4C 59 53 50 49 | :ANGLE. POLYSPI| 00000440: 20 3A 53 49 44 45 20 DB 20 32 20 3A 41 4E 47 4C | :SIDE . 2 :ANGL| 00000450: 45 0D 45 4E 44 0D 0D 54 4F 20 50 52 54 20 3A 41 |E.END..TO PRT :A| 00000460: 4E 47 4C 45 0D 20 50 53 45 54 48 45 41 44 49 4E |NGLE. PSETHEADIN| 00000470: 47 20 50 48 45 41 44 49 4E 47 20 2B 20 3A 41 4E |G PHEADING + :AN| 00000480: 47 4C 45 0D 45 4E 44 0D 0D 54 4F 20 50 4C 54 20 |GLE.END..TO PLT | 00000490: 3A 41 4E 47 4C 45 0D 20 50 52 54 20 2D 20 3A 41 |:ANGLE. PRT - :A| 000004A0: 4E 47 4C 45 0D 45 4E 44 0D 0D 54 4F 20 50 59 43 |NGLE.END..TO PYC| 000004B0: 4F 52 0D 20 4F 50 20 3A 50 59 43 4F 52 0D 45 4E |OR. OP :PYCOR.EN| 000004C0: 44 0D 0D 54 4F 20 50 58 43 4F 52 0D 20 4F 50 20 |D..TO PXCOR. OP | 000004D0: 3A 50 58 43 4F 52 0D 45 4E 44 0D 0D 54 4F 20 50 |:PXCOR.END..TO P| 000004E0: 4D 4F 56 45 20 3A 44 58 20 3A 44 59 0D 20 47 52 |MOVE :DX :DY. GR| 000004F0: 4D 4F 44 45 0D 20 4E 4F 49 4E 54 53 0D 20 4D 41 |MODE. NOINTS. MA| 00000500: 4B 45 20 22 50 58 43 4F 52 20 3A 50 58 43 4F 52 |KE "PXCOR :PXCOR| 00000510: 20 2B 20 3A 44 58 0D 20 4D 41 4B 45 20 22 50 59 | + :DX. MAKE "PY| 00000520: 43 4F 52 20 3A 50 59 43 4F 52 20 2B 20 3A 44 59 |COR :PYCOR + :DY| 00000530: 0D 20 54 45 53 54 20 3A 50 45 4E 44 4F 57 4E 3F |. TEST :PENDOWN?| 00000540: 0D 20 49 46 54 52 55 45 20 44 50 52 49 4E 54 20 |. IFTRUE DPRINT | 00000550: 28 20 57 4F 52 44 20 22 44 20 52 4F 55 4E 44 20 |( WORD "D ROUND | 00000560: 3A 50 58 43 4F 52 20 22 2C 20 52 4F 55 4E 44 20 |:PXCOR ", ROUND | 00000570: 3A 50 59 43 4F 52 20 29 0D 20 49 46 46 41 4C 53 |:PYCOR ). IFFALS| 00000580: 45 20 44 50 52 49 4E 54 20 28 20 57 4F 52 44 20 |E DPRINT ( WORD | 00000590: 22 4D 20 52 4F 55 4E 44 20 3A 50 58 43 4F 52 20 |"M ROUND :PXCOR | 000005A0: 22 2C 20 52 4F 55 4E 44 20 3A 50 59 43 4F 52 20 |", ROUND :PYCOR | 000005B0: 29 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D 54 4F 20 |). INTS.END..TO | 000005C0: 4E 4F 49 4E 54 53 0D 20 2E 44 45 50 4F 53 49 54 |NOINTS. .DEPOSIT| 000005D0: 20 32 33 33 20 31 20 2B 20 2E 45 58 41 4D 49 4E | 233 1 + .EXAMIN| 000005E0: 45 20 32 33 33 0D 45 4E 44 0D 0D 54 4F 20 49 4E |E 233.END..TO IN| 000005F0: 54 53 0D 20 2E 44 45 50 4F 53 49 54 20 32 33 33 |TS. .DEPOSIT 233| 00000600: 20 28 20 2E 45 58 41 4D 49 4E 45 20 32 33 33 20 | ( .EXAMINE 233 | 00000610: 29 20 2D 20 31 0D 20 49 46 20 28 20 2E 45 58 41 |) - 1. IF ( .EXA| 00000620: 4D 49 4E 45 20 32 33 33 20 29 20 3D 20 30 20 49 |MINE 233 ) = 0 I| 00000630: 46 20 52 43 3F 20 49 46 20 52 43 20 3D 20 43 48 |F RC? IF RC = CH| 00000640: 41 52 20 37 20 50 52 49 4E 54 20 22 53 54 4F 50 |AR 7 PRINT "STOP| 00000650: 50 45 44 21 20 54 4F 50 4C 45 56 45 4C 0D 45 4E |PED! TOPLEVEL.EN| 00000660: 44 0D 0D 54 4F 20 44 50 52 49 4E 54 31 20 3A 49 |D..TO DPRINT1 :I| 00000670: 54 0D 20 4E 4F 49 4E 54 53 0D 20 4F 55 54 44 45 |T. NOINTS. OUTDE| 00000680: 56 20 31 0D 20 50 52 49 4E 54 31 20 3A 49 54 0D |V 1. PRINT1 :IT.| 00000690: 20 4F 55 54 44 45 56 20 30 0D 20 49 4E 54 53 0D | OUTDEV 0. INTS.| 000006A0: 45 4E 44 0D 0D 54 4F 20 54 58 54 4D 4F 44 45 0D |END..TO TXTMODE.| 000006B0: 20 44 50 52 49 4E 54 31 20 43 48 41 52 20 31 37 | DPRINT1 CHAR 17| 000006C0: 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 4F 52 49 47 |.END..TO SETORIG| 000006D0: 49 4E 0D 20 54 58 54 4D 4F 44 45 0D 20 44 50 52 |IN. TXTMODE. DPR| 000006E0: 49 4E 54 20 5B 5D 0D 20 44 50 52 49 4E 54 31 20 |INT []. DPRINT1 | 000006F0: 43 48 41 52 20 31 31 0D 20 47 52 4D 4F 44 45 0D |CHAR 11. GRMODE.| 00000700: 20 44 50 52 49 4E 54 20 22 52 32 34 30 2C 30 0D | DPRINT "R240,0.| 00000710: 20 44 50 52 49 4E 54 20 22 49 0D 45 4E 44 0D 0D | DPRINT "I.END..| 00000720: 54 4F 20 44 50 52 49 4E 54 20 3A 49 54 0D 20 4E |TO DPRINT :IT. N| 00000730: 4F 49 4E 54 53 0D 20 4F 55 54 44 45 56 20 31 0D |OINTS. OUTDEV 1.| 00000740: 20 50 52 49 4E 54 20 3A 49 54 0D 20 4F 55 54 44 | PRINT :IT. OUTD| 00000750: 45 56 20 30 0D 20 49 4E 54 53 0D 45 4E 44 0D 0D |EV 0. INTS.END..| 00000760: 54 4F 20 47 52 4D 4F 44 45 0D 20 44 50 52 49 4E |TO GRMODE. DPRIN| 00000770: 54 31 20 43 48 41 52 20 31 38 0D 45 4E 44 0D 0D |T1 CHAR 18.END..| 00000780: 54 4F 20 50 2E 52 45 53 45 54 0D 20 47 52 4D 4F |TO P.RESET. GRMO| 00000790: 44 45 0D 20 44 50 52 49 4E 54 20 22 41 0D 45 4E |DE. DPRINT "A.EN| 000007A0: 44 0D 0D 54 4F 20 50 53 45 54 48 45 41 44 49 4E |D..TO PSETHEADIN| 000007B0: 47 20 3A 48 0D 20 49 46 20 3A 48 20 3C 20 30 20 |G :H. IF :H < 0 | 000007C0: 50 53 45 54 48 45 41 44 49 4E 47 20 3A 48 20 2B |PSETHEADING :H +| 000007D0: 20 33 36 30 20 53 54 4F 50 0D 20 4D 41 4B 45 20 | 360 STOP. MAKE | 000007E0: 22 50 48 45 41 44 49 4E 47 20 52 45 4D 41 49 4E |"PHEADING REMAIN| 000007F0: 44 45 52 20 3A 48 20 33 36 30 0D 45 4E 44 0D 0D |DER :H 360.END..| 00000800: 54 4F 20 50 53 45 54 58 59 20 3A 58 20 3A 59 0D |TO PSETXY :X :Y.| 00000810: 20 4D 41 4B 45 20 22 44 58 20 3A 58 20 2D 20 50 | MAKE "DX :X - P| 00000820: 58 43 4F 52 0D 20 4D 41 4B 45 20 22 44 59 20 3A |XCOR. MAKE "DY :| 00000830: 59 20 2D 20 50 59 43 4F 52 0D 20 50 4D 4F 56 45 |Y - PYCOR. PMOVE| 00000840: 20 3A 44 58 20 3A 44 59 0D 45 4E 44 0D 0D 54 4F | :DX :DY.END..TO| 00000850: 20 50 48 4F 4D 45 0D 20 50 53 45 54 58 59 20 30 | PHOME. PSETXY 0| 00000860: 20 30 0D 20 50 53 45 54 48 45 41 44 49 4E 47 20 | 0. PSETHEADING | 00000870: 30 0D 45 4E 44 0D 0D 00 |0.END... |
.0TO HELP. NODRAW. PRINT [RADIO SHACK CO LOR PLOTTER PROCEDURES:]. PRINT [SETUP N EWPAGE PDRAW PCS]. PRINT [PFD PBK PRT PP U PPD PPC]. PRINT [PSETXY PSETHEADING]. PRINT [PXCOR PYCOR PHEADING]. PRINT [TXT MODE GRMODE]. PRINT DPRINT DPRINT1 DPO. PRINT []. PRINT [TYPE SETUP TO INITIALIZ E PRINTER.]. PRINT [POLYSPI IS A SAMPLE PLOTTER PROCEDURE.].END..TO SETUP. MAKE "BLACK 0. MAKE "BLUE 1. MAKE "GREEN 2. M AKE "RED 3. MAKE "PENDOWN? "TRUE. P.RESE T. PDRAW.END..TO NEWPAGE. TXTMODE. REPEA T 19 [DPRINT []]. PDRAW.END..TO PDRAW. M AKE "PXCOR 0. MAKE "PYCOR 0. SETORIGIN. PSETHEADING 0. PPC 1.END..TO PCS. PPU. P SETXY 0 0. PPD. PSETHEADING 0.END..TO PB K :DIST. PFD - :DIST.END..TO PPU. MAKE " PENDOWN? "FALSE.END..TO PPD. MAKE "PENDO WN? "TRUE.END..TO PPC :PEN. GRMODE. NOIN TS. DPRINT WORD "C :PEN. MAKE "PENCOLOR :PEN. INTS.END..TO PHEADING. OUTPUT :PHE ADING.END..TO DPO :PROC. NOINTS. OUTDEV 1. RUN LIST "PO :PROC. OUTDEV 0. INTS.EN D..TO PFD :DIST. MAKE "DIST :DIST * 2. P MOVE :DIST * SIN PHEADING :DIST * COS PH EADING.END..TO POLYSPI :SIDE :ANGLE. IF :SIDE > 125 STOP. PFD :SIDE. PRT :ANGLE. POLYSPI :SIDE . 2 :ANGLE.END..TO PRT :A NGLE. PSETHEADING PHEADING + :ANGLE.END. .TO PLT :ANGLE. PRT - :ANGLE.END..TO PYC OR. OP :PYCOR.END..TO PXCOR. OP :PXCOR.E ND..TO PMOVE :DX :DY. GRMODE. NOINTS. MA KE "PXCOR :PXCOR + :DX. MAKE "PYCOR :PYC OR + :DY. TEST :PENDOWN?. IFTRUE DPRINT ( WORD "D ROUND :PXCOR ", ROUND :PYCOR ) . IFFALSE DPRINT ( WORD "M ROUND :PXCOR ", ROUND :PYCOR ). INTS.END..TO NOINTS. .DEPOSIT 233 1 + .EXAMINE 233.END..TO IN TS. .DEPOSIT 233 ( .EXAMINE 233 ) - 1. I F ( .EXAMINE 233 ) = 0 IF RC? IF RC = CH AR 7 PRINT "STOPPED! TOPLEVEL.END..TO DP RINT1 :IT. NOINTS. OUTDEV 1. PRINT1 :IT. OUTDEV 0. INTS.END..TO TXTMODE. DPRINT1 CHAR 17.END..TO SETORIGIN. TXTMODE. DPR INT []. DPRINT1 CHAR 11. GRMODE. DPRINT "R240,0. DPRINT "I.END..TO DPRINT :IT. N OINTS. OUTDEV 1. PRINT :IT. OUTDEV 0. IN TS.END..TO GRMODE. DPRINT1 CHAR 18.END.. TO P.RESET. GRMODE. DPRINT "A.END..TO PS ETHEADING :H. IF :H < 0 PSETHEADING :H + 360 STOP. MAKE "PHEADING REMAINDER :H 3 60.END..TO PSETXY :X :Y. MAKE "DX :X - P XCOR. MAKE "DY :Y - PYCOR. PMOVE :DX :DY .END..TO PHOME. PSETXY 0 0. PSETHEADING 0.END...
> CLICK IMAGE PREVIEW FOR FULL MODAL