PLOT DRIVER
FILE INFORMATION
FILENAME(S): PLOT DRIVER
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
4b06fbbdb15356461de7e5ecc15ae72c3f900ef54f336db5ff977a8d4370b6fb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | PLOT DRIVER | PRG | Radd Maxx | 17 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 25 04 01 00 50 25 B2 33 39 3A 51 25 B2 31 |..%...P%.39:Q%.1|
00000010: 39 3A 52 25 B2 30 3A 58 25 B2 30 3A 59 25 B2 30 |9:R%.0:X%.0:Y%.0|
00000020: 3A 5A 25 B2 30 00 65 04 02 00 8F 20 50 25 2C 51 |:Z%.0.e.... P%,Q|
00000030: 25 2C 52 25 2C 58 25 2C 59 25 2C 5A 25 20 4D 55 |%,R%,X%,Y%,Z% MU|
00000040: 53 54 20 42 45 20 54 48 45 20 31 53 54 56 41 52 |ST BE THE 1STVAR|
00000050: 49 41 42 4C 45 53 20 49 4E 20 54 48 45 20 50 52 |IABLES IN THE PR|
00000060: 4F 47 52 41 4D 00 94 04 05 00 99 22 93 11 11 11 |OGRAM......"....|
00000070: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 12 33 |.... .3|
00000080: 20 44 49 4D 45 4E 53 49 4F 4E 41 4C 20 50 4C 4F | DIMENSIONAL PLO|
00000090: 54 54 45 52 00 C9 04 06 00 99 22 11 11 11 11 20 |TTER......".... |
000000A0: 46 52 4F 4D 20 12 4D 49 43 52 4F 92 2C 20 53 45 |FROM .MICRO., SE|
000000B0: 50 54 2C 31 39 37 39 20 42 59 20 4A 4F 48 4E 20 |PT,1979 BY JOHN |
000000C0: 53 48 45 52 42 55 52 4E 45 00 F9 04 0A 00 97 35 |SHERBURNE......5|
000000D0: 33 2C 33 32 3A 97 35 32 2C 30 3A 8F 20 4B 45 45 |3,32:.52,0:. KEE|
000000E0: 50 20 42 41 53 49 43 20 20 20 4F 55 54 20 4F 46 |P BASIC OUT OF|
000000F0: 20 50 4C 4F 54 54 45 52 23 00 13 05 0F 00 8D 31 | PLOTTER#......1|
00000100: 30 30 30 30 3A 8F 20 49 4E 53 54 52 55 43 54 49 |0000:. INSTRUCTI|
00000110: 4F 4E 53 00 3F 05 64 00 99 22 93 20 20 20 20 20 |ONS.?.d..". |
00000120: 12 2A 2A 2A 2A 33 20 44 49 4D 45 4E 53 49 4F 4E |.****3 DIMENSION|
00000130: 41 4C 20 50 4C 4F 54 54 45 52 2A 2A 2A 2A 22 00 |AL PLOTTER****".|
00000140: 7B 05 69 00 99 22 11 11 59 4F 55 20 4D 41 59 20 |{.i.."..YOU MAY |
00000150: 43 48 4F 4F 53 45 20 46 52 4F 4D 20 54 48 45 20 |CHOOSE FROM THE |
00000160: 46 4F 4C 4C 4F 57 49 4E 47 20 20 20 20 20 20 20 |FOLLOWING |
00000170: 20 20 46 49 47 55 52 45 53 3A 22 00 9F 05 6E 00 | FIGURES:"...n.|
00000180: 99 22 20 20 20 20 31 2E 20 20 59 3D 53 49 4E 28 |." 1. Y=SIN(|
00000190: 58 29 20 20 28 53 49 44 45 20 56 49 45 57 29 00 |X) (SIDE VIEW).|
000001A0: C4 05 78 00 99 22 20 20 20 20 32 2E 20 20 59 3D |..x.." 2. Y=|
000001B0: 53 49 4E 28 58 29 20 20 28 46 52 4F 4E 54 20 56 |SIN(X) (FRONT V|
000001C0: 49 45 57 29 00 DE 05 82 00 99 22 20 20 20 20 33 |IEW)......" 3|
000001D0: 2E 20 20 58 5E 32 2B 59 5E 32 3D 52 5E 32 00 FB |. X^2+Y^2=R^2..|
000001E0: 05 8C 00 99 22 20 20 20 20 34 2E 20 20 59 3D 31 |...." 4. Y=1|
000001F0: 35 2A 45 58 50 28 2D 58 2F 33 29 00 1D 06 96 00 |5*EXP(-X/3).....|
00000200: 99 22 20 20 20 20 35 2E 20 20 59 3D 31 2F 32 43 |." 5. Y=1/2C|
00000210: 4F 53 28 33 58 29 2B 43 4F 53 28 58 29 00 44 06 |OS(3X)+COS(X).D.|
00000220: BE 00 99 22 20 20 20 20 39 2E 20 20 52 45 43 41 |..." 9. RECA|
00000230: 4C 4C 20 41 20 53 54 4F 52 45 44 20 46 49 47 55 |LL A STORED FIGU|
00000240: 52 45 2E 22 00 76 06 C8 00 99 22 11 11 11 11 20 |RE.".v....".... |
00000250: 41 46 54 45 52 20 54 48 45 20 46 49 47 55 52 45 |AFTER THE FIGURE|
00000260: 20 49 53 20 43 4F 4D 50 4C 45 54 45 2C 20 59 4F | IS COMPLETE, YO|
00000270: 55 20 43 41 4E 22 00 A4 06 D2 00 99 22 53 41 56 |U CAN"......"SAV|
00000280: 45 20 49 54 20 46 4F 52 20 49 4E 53 54 41 4E 54 |E IT FOR INSTANT|
00000290: 20 52 45 43 41 4C 4C 20 42 59 20 50 52 45 53 53 | RECALL BY PRESS|
000002A0: 49 4E 47 22 00 D3 06 DC 00 99 22 41 20 4E 55 4D |ING"......"A NUM|
000002B0: 42 45 52 20 28 31 2D 37 20 41 52 45 20 4C 45 47 |BER (1-7 ARE LEG|
000002C0: 41 4C 2D 2D 54 48 45 20 46 49 47 55 52 45 53 20 |AL--THE FIGURES |
000002D0: 41 52 45 00 F1 06 E1 00 99 22 91 53 54 4F 52 45 |ARE......".STORE|
000002E0: 44 20 41 54 20 24 32 30 30 30 2D 24 33 43 30 30 |D AT $2000-$3C00|
000002F0: 29 00 1F 07 E6 00 99 22 11 41 4C 54 45 52 4E 41 |)......".ALTERNA|
00000300: 54 49 56 45 4C 59 2C 20 50 52 45 53 53 20 41 4E |TIVELY, PRESS AN|
00000310: 59 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 22 00 |Y OTHER KEY TO".|
00000320: 3A 07 F0 00 99 22 47 45 54 20 42 41 43 4B 20 54 |:...."GET BACK T|
00000330: 48 49 53 20 4D 45 4E 55 2E 22 00 5D 07 FA 00 85 |HIS MENU.".]....|
00000340: 22 11 11 57 48 49 43 48 20 44 4F 20 59 4F 55 20 |"..WHICH DO YOU |
00000350: 57 41 4E 54 22 3B 49 3A 99 22 93 22 3B 00 96 07 |WANT";I:.".";...|
00000360: 04 01 91 49 8D 31 30 30 30 2C 32 30 30 30 2C 33 |...I.1000,2000,3|
00000370: 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 30 |000,4000,5000,60|
00000380: 30 30 2C 37 30 30 30 2C 38 30 30 30 2C 39 30 30 |00,7000,8000,900|
00000390: 30 2C 39 30 30 30 00 A4 07 0E 01 8B 49 B3 39 A7 |0,9000......I.9.|
000003A0: 8D 35 30 30 00 AD 07 18 01 89 31 30 30 00 D1 07 |.500......100...|
000003B0: F4 01 81 5A 49 B2 AB 5A 50 A4 5A 50 3A 5A 25 B2 |...ZI..ZP.ZP:Z%.|
000003C0: 5A 49 3A 5A 54 B2 5A 25 AC 5A 46 3A 59 53 B2 59 |ZI:ZT.Z%.ZF:YS.Y|
000003D0: 42 00 ED 07 FE 01 58 4C B2 B5 28 2E 35 AA BA 28 |B.....XL..(.5..(|
000003E0: 58 50 AC 58 50 AB 5A 54 AC 5A 54 29 29 00 02 08 |XP.XP.ZT.ZT))...|
000003F0: 08 02 81 58 49 B2 AB 58 4C A4 58 4C 3A 58 25 B2 |...XI..XL.XL:X%.|
00000400: 58 49 00 1B 08 12 02 58 54 B2 58 46 AC BA 28 58 |XI.....XT.XF..(X|
00000410: 25 AC 58 25 AA 5A 54 AC 5A 54 29 00 29 08 1C 02 |%.X%.ZT.ZT).)...|
00000420: 59 54 B2 A5 50 28 58 54 29 00 45 08 26 02 8B 59 |YT..P(XT).E.&..Y|
00000430: 53 B3 59 54 A7 59 31 B2 59 53 3A 59 32 B2 59 54 |S.YT.Y1.YS:Y2.YT|
00000440: 3A 89 35 37 30 00 55 08 30 02 59 31 B2 59 54 3A |:.570.U.0.Y1.YT:|
00000450: 59 32 B2 59 53 00 75 08 3A 02 81 59 49 B2 59 32 |Y2.YS.u.:..YI.Y2|
00000460: A4 59 31 A9 AB 31 3A 59 25 B2 59 49 3A 9E 31 35 |.Y1..1:Y%.YI:.15|
00000470: 38 37 32 3A 82 00 87 08 44 02 59 53 B2 59 54 3A |872:....D.YS.YT:|
00000480: 82 58 49 3A 82 5A 49 00 9A 08 4E 02 81 49 B2 31 |.XI:.ZI...N..I.1|
00000490: A4 31 32 3A A1 47 24 3A 82 49 00 AD 08 58 02 A1 |.12:.G$:.I...X..|
000004A0: 47 24 3A 8B 47 24 B2 22 22 89 36 30 30 00 C6 08 |G$:.G$."".600...|
000004B0: 62 02 49 B2 C5 28 47 24 29 AB 31 3A 8B 49 B3 30 |b.I..(G$).1:.I.0|
000004C0: B0 49 B1 37 A7 8E 00 DF 08 6C 02 97 31 38 38 2C |.I.7.....l..188,|
000004D0: 33 32 AA 34 AC 49 3A 9E 31 35 39 33 36 3A 8E 00 |32.4.I:.15936:..|
000004E0: EE 08 E8 03 8F 20 59 3D 53 49 4E 28 58 29 00 12 |..... Y=SIN(X)..|
000004F0: 09 F2 03 5A 50 B2 31 36 3A 58 52 B2 31 2E 35 AC |...ZP.16:XR.1.5.|
00000500: FF 3A 58 50 B2 33 35 3A 59 52 B2 31 3A 59 50 B2 |.:XP.35:YR.1:YP.|
00000510: 31 34 00 31 09 FC 03 5A 46 B2 58 50 AD 5A 50 3A |14.1...ZF.XP.ZP:|
00000520: 58 46 B2 58 52 AD 58 50 3A 59 46 B2 59 50 AD 59 |XF.XR.XP:YF.YP.Y|
00000530: 52 00 4D 09 06 04 59 42 B2 AB 59 50 3A 50 25 B2 |R.M...YB..YP:P%.|
00000540: 33 39 3A 51 25 B2 31 39 3A 52 25 B2 30 00 61 09 |39:Q%.19:R%.0.a.|
00000550: 10 04 96 20 A5 50 28 58 29 B2 BF 28 58 29 AC 59 |... .P(X)..(X).Y|
00000560: 46 00 67 09 1A 04 8E 00 76 09 D0 07 8F 20 59 3D |F.g.....v.... Y=|
00000570: 53 49 4E 28 58 29 00 9A 09 DA 07 5A 50 B2 31 36 |SIN(X).....ZP.16|
00000580: 3A 58 52 B2 31 2E 35 AC FF 3A 58 50 B2 33 35 3A |:XR.1.5..:XP.35:|
00000590: 59 52 B2 31 3A 59 50 B2 31 34 00 B9 09 E4 07 5A |YR.1:YP.14.....Z|
000005A0: 46 B2 58 50 AD 5A 50 3A 58 46 B2 58 52 AD 58 50 |F.XP.ZP:XF.XR.XP|
000005B0: 3A 59 46 B2 59 50 AD 59 52 00 D5 09 EE 07 59 42 |:YF.YP.YR.....YB|
000005C0: B2 AB 59 50 3A 50 25 B2 33 39 3A 51 25 B2 31 39 |..YP:P%.39:Q%.19|
000005D0: 3A 52 25 B2 31 00 E9 09 F8 07 96 20 A5 50 28 58 |:R%.1...... .P(X|
000005E0: 29 B2 BF 28 58 29 AC 59 46 00 EF 09 02 08 8E 00 |)..(X).YF.......|
000005F0: 01 0A B8 0B 8F 20 58 5E 32 2B 59 5E 32 3D 52 5E |..... X^2+Y^2=R^|
00000600: 32 00 24 0A C2 0B 5A 50 B2 31 30 3A 58 52 B2 39 |2.$...ZP.10:XR.9|
00000610: 2E 39 3A 58 50 B2 33 30 3A 59 52 B2 31 30 3A 59 |.9:XP.30:YR.10:Y|
00000620: 50 B2 33 30 00 43 0A CC 0B 5A 46 B2 58 50 AD 5A |P.30.C...ZF.XP.Z|
00000630: 50 3A 58 46 B2 58 52 AD 58 50 3A 59 46 B2 59 50 |P:XF.XR.XP:YF.YP|
00000640: AD 59 52 00 5D 0A D6 0B 59 42 B2 35 3A 50 25 B2 |.YR.]...YB.5:P%.|
00000650: 33 38 3A 51 25 B2 34 32 3A 52 25 B2 30 00 77 0A |38:Q%.42:R%.0.w.|
00000660: E0 0B 96 20 A5 50 28 58 29 B2 BA 28 31 30 34 AB |... .P(X)..(104.|
00000670: 58 AC 58 29 AC 59 46 00 7D 0A EA 0B 8E 00 92 0A |X.X).YF.}.......|
00000680: A0 0F 8F 20 59 3D 31 35 2A 45 58 50 28 2D 58 2F |... Y=15*EXP(-X/|
00000690: 33 29 00 B4 0A AA 0F 5A 50 B2 31 36 3A 58 52 B2 |3).....ZP.16:XR.|
000006A0: 31 30 3A 58 50 B2 33 33 3A 59 52 B2 31 35 3A 59 |10:XP.33:YR.15:Y|
000006B0: 50 B2 33 32 00 D3 0A B4 0F 5A 46 B2 58 50 AD 5A |P.32.....ZF.XP.Z|
000006C0: 50 3A 58 46 B2 58 52 AD 58 50 3A 59 46 B2 59 50 |P:XF.XR.XP:YF.YP|
000006D0: AD 59 52 00 ED 0A BE 0F 59 42 B2 31 3A 50 25 B2 |.YR.....YB.1:P%.|
000006E0: 34 32 3A 51 25 B2 33 32 3A 52 25 B2 30 00 07 0B |42:Q%.32:R%.0...|
000006F0: C8 0F 96 20 A5 50 28 58 29 B2 31 35 AC BD 28 AB |... .P(X).15..(.|
00000700: 58 AD 33 29 AC 59 46 00 0D 0B D2 0F 8E 00 27 0B |X.3).YF.......'.|
00000710: 88 13 8F 20 59 3D 2E 35 2A 43 4F 53 28 33 58 29 |... Y=.5*COS(3X)|
00000720: 2B 43 4F 53 28 58 29 00 49 0B 92 13 5A 50 B2 31 |+COS(X).I...ZP.1|
00000730: 34 3A 58 52 B2 FF 3A 58 50 B2 33 30 3A 59 52 B2 |4:XR..:XP.30:YR.|
00000740: 31 2E 35 3A 59 50 B2 31 37 00 68 0B 9C 13 5A 46 |1.5:YP.17.h...ZF|
00000750: B2 58 50 AD 5A 50 3A 58 46 B2 58 52 AD 58 50 3A |.XP.ZP:XF.XR.XP:|
00000760: 59 46 B2 59 50 AD 59 52 00 84 0B A6 13 59 42 B2 |YF.YP.YR.....YB.|
00000770: AB 59 50 3A 50 25 B2 34 32 3A 51 25 B2 31 37 3A |.YP:P%.42:Q%.17:|
00000780: 52 25 B2 30 00 A4 0B B0 13 96 20 A5 50 28 58 29 |R%.0...... .P(X)|
00000790: B2 28 2E 35 AC BE 28 33 AC 58 29 AA BE 28 58 29 |.(.5..(3.X)..(X)|
000007A0: 29 AC 59 46 00 AA 0B BA 13 8E 00 DC 0B 28 23 99 |).YF.........(#.|
000007B0: 22 93 11 11 11 20 20 20 52 45 43 41 4C 4C 20 41 |".... RECALL A|
000007C0: 4E 59 20 50 52 45 56 49 4F 55 53 4C 59 20 53 54 |NY PREVIOUSLY ST|
000007D0: 4F 52 45 44 20 46 49 47 55 52 45 22 00 05 0C 32 |ORED FIGURE"...2|
000007E0: 23 99 22 42 59 20 50 52 45 53 53 49 4E 47 20 54 |#."BY PRESSING T|
000007F0: 48 45 20 4E 55 4D 42 45 52 20 4B 45 59 20 49 54 |HE NUMBER KEY IT|
00000800: 20 57 41 53 22 00 33 0C 3C 23 99 22 53 54 4F 52 | WAS".3.<#."STOR|
00000810: 45 44 20 49 4E 2E 20 20 41 46 54 45 52 20 49 54 |ED IN. AFTER IT|
00000820: 20 49 53 20 4F 4E 20 54 48 45 20 53 43 52 45 45 | IS ON THE SCREE|
00000830: 4E 2C 22 00 5C 0C 46 23 99 22 59 4F 55 20 4D 41 |N,".\.F#."YOU MA|
00000840: 59 20 49 4D 4D 45 44 49 41 54 45 4C 59 20 52 45 |Y IMMEDIATELY RE|
00000850: 50 4C 41 43 45 20 49 54 20 42 59 22 00 82 0C 50 |PLACE IT BY"...P|
00000860: 23 99 22 50 52 45 53 53 49 4E 47 20 41 4E 59 20 |#."PRESSING ANY |
00000870: 4F 54 48 45 52 20 4E 55 4D 42 45 52 20 4B 45 59 |OTHER NUMBER KEY|
00000880: 2E 22 00 B0 0C 5A 23 99 22 11 11 20 20 20 50 52 |."...Z#.".. PR|
00000890: 45 53 53 20 41 20 4E 4F 4E 2D 4E 55 4D 42 45 52 |ESS A NON-NUMBER|
000008A0: 20 4B 45 59 20 54 4F 20 47 45 54 20 54 48 45 22 | KEY TO GET THE"|
000008B0: 00 C2 0C 64 23 99 22 4D 45 4E 55 20 42 41 43 4B |...d#."MENU BACK|
000008C0: 2E 22 00 D6 0C 8C 23 A1 47 24 3A 8B 47 24 B2 22 |."....#.G$:.G$."|
000008D0: 22 A7 39 31 30 30 00 E9 0C 96 23 8B C5 28 47 24 |".9100....#..(G$|
000008E0: 29 B2 30 A7 49 B2 39 3A 8E 00 F7 0C A0 23 49 B2 |).0.I.9:.....#I.|
000008F0: C5 28 47 24 29 AB 31 00 0E 0D AA 23 97 31 38 36 |.(G$).1....#.186|
00000900: 2C 33 32 AA 34 AC 49 3A 9E 31 35 39 34 36 00 18 |,32.4.I:.15946..|
00000910: 0D B4 23 47 24 B2 22 22 00 22 0D BE 23 89 39 31 |..#G$.""."..#.91|
00000920: 30 30 00 40 0D 10 27 99 22 11 11 11 11 11 20 20 |00.@..'."..... |
00000930: 20 20 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 3F | INSTRUCTIONS?|
00000940: 00 55 0D 1A 27 A1 47 24 3A 8B 47 24 B2 22 22 A7 |.U..'.G$:.G$."".|
00000950: 31 30 30 31 30 00 63 0D 24 27 8B 47 24 B2 22 4E |10010.c.$'.G$."N|
00000960: 22 A7 8E 00 92 0D 2E 27 99 22 93 20 20 20 54 48 |"......'.". TH|
00000970: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 41 20 |IS PROGRAM IS A |
00000980: 42 41 53 49 43 20 44 52 49 56 45 52 20 46 4F 52 |BASIC DRIVER FOR|
00000990: 20 41 00 C1 0D 38 27 99 22 4D 41 43 48 49 4E 45 | A...8'."MACHINE|
000009A0: 20 4C 41 4E 47 55 41 47 45 20 50 52 4F 47 52 41 | LANGUAGE PROGRA|
000009B0: 4D 20 4E 41 4D 45 44 20 12 50 4C 4F 54 54 45 52 |M NAMED .PLOTTER|
000009C0: 23 00 E3 0D 42 27 99 22 57 48 49 43 48 20 4D 55 |#...B'."WHICH MU|
000009D0: 53 54 20 42 45 20 4C 4F 41 44 45 44 20 46 49 52 |ST BE LOADED FIR|
000009E0: 53 54 2E 00 11 0E 4C 27 99 22 11 20 20 20 54 4F |ST....L'.". TO|
000009F0: 47 45 54 48 45 52 20 54 48 45 59 20 50 52 4F 44 |GETHER THEY PROD|
00000A00: 55 43 45 20 33 44 20 50 4C 4F 54 53 20 4F 4E 20 |UCE 3D PLOTS ON |
00000A10: 41 00 34 0E 56 27 99 22 43 4F 4F 52 44 49 4E 41 |A.4.V'."COORDINA|
00000A20: 54 45 20 53 59 53 54 45 4D 20 4C 49 4B 45 20 54 |TE SYSTEM LIKE T|
00000A30: 48 49 53 3A 00 63 0E 60 27 47 24 B2 22 A5 11 9D |HIS:.c.`'G$."...|
00000A40: 22 3A 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |":.".. |
00000A50: 20 59 11 22 3B 3A 81 49 B2 31 A4 36 3A 99 47 24 | Y.";:.I.1.6:.G$|
00000A60: 3B 3A 82 00 8C 0E 6A 27 99 22 CC A4 A4 A4 A4 A4 |;:....j'."......|
00000A70: A4 A4 A4 20 58 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |... X...........|
00000A80: 9D CD 11 CD 11 CD 11 CD 11 CD 11 5A 00 97 0E 74 |...........Z...t|
00000A90: 27 8D 31 31 30 30 30 00 C1 0E 7E 27 99 22 93 20 |'.11000...~'.". |
00000AA0: 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 | THIS PROGRAM I|
00000AB0: 4E 43 4C 55 44 45 53 20 41 20 4D 45 4E 55 20 4F |NCLUDES A MENU O|
00000AC0: 46 00 EE 0E 88 27 99 22 46 49 47 55 52 45 53 20 |F....'."FIGURES |
00000AD0: 54 4F 20 50 4C 4F 54 20 41 4E 44 20 54 4F 20 53 |TO PLOT AND TO S|
00000AE0: 54 4F 52 45 20 46 4F 52 20 51 55 49 43 4B 00 1C |TORE FOR QUICK..|
00000AF0: 0F 92 27 99 22 44 49 53 50 4C 41 59 2C 20 42 55 |..'."DISPLAY, BU|
00000B00: 54 20 54 48 45 20 4D 41 49 4E 20 46 55 4E 20 57 |T THE MAIN FUN W|
00000B10: 49 4C 4C 20 42 45 20 54 4F 20 44 4F 00 48 0F 9C |ILL BE TO DO.H..|
00000B20: 27 99 22 59 4F 55 52 20 4F 57 4E 20 53 48 41 50 |'."YOUR OWN SHAP|
00000B30: 45 53 2E 20 20 54 4F 20 44 4F 20 54 48 41 54 20 |ES. TO DO THAT |
00000B40: 59 4F 55 20 57 49 4C 4C 00 74 0F A6 27 99 22 4E |YOU WILL.t..'."N|
00000B50: 45 45 44 20 54 4F 20 4B 4E 4F 57 20 48 4F 57 20 |EED TO KNOW HOW |
00000B60: 54 4F 20 55 53 45 20 27 12 50 4C 4F 54 54 45 52 |TO USE '.PLOTTER|
00000B70: 23 92 27 2E 00 A7 0F B0 27 99 22 11 11 20 20 20 |#.'.....'.".. |
00000B80: 54 48 45 20 42 41 53 49 43 20 50 52 4F 47 52 41 |THE BASIC PROGRA|
00000B90: 4D 20 43 41 4C 4C 53 20 12 50 4C 4F 54 54 45 52 |M CALLS .PLOTTER|
00000BA0: 23 92 20 4F 4E 43 45 00 D5 0F BA 27 99 22 91 46 |#. ONCE....'.".F|
00000BB0: 4F 52 20 45 41 43 48 20 50 4F 49 4E 54 20 54 4F |OR EACH POINT TO|
00000BC0: 20 42 45 20 50 4C 4F 54 54 45 44 2C 20 57 49 54 | BE PLOTTED, WIT|
00000BD0: 48 20 54 48 45 00 03 10 C4 27 99 22 43 4F 4D 4D |H THE....'."COMM|
00000BE0: 41 4E 44 20 27 53 59 53 31 35 38 37 32 27 2E 20 |AND 'SYS15872'. |
00000BF0: 20 50 52 49 4F 52 20 54 4F 20 54 48 41 54 2C 20 | PRIOR TO THAT, |
00000C00: 54 48 45 00 30 10 CE 27 99 22 46 4F 4C 4C 4F 57 |THE.0..'."FOLLOW|
00000C10: 49 4E 47 20 56 41 52 49 41 42 4C 45 53 20 4D 55 |ING VARIABLES MU|
00000C20: 53 54 20 42 45 20 53 50 45 43 49 46 49 45 44 3A |ST BE SPECIFIED:|
00000C30: 00 72 10 D8 27 99 22 11 20 20 20 50 25 20 2D 20 |.r..'.". P% - |
00000C40: 54 48 45 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 50 |THE HORIZONTAL P|
00000C50: 4F 53 49 54 49 4F 4E 20 4F 46 20 54 48 45 20 20 |OSITION OF THE |
00000C60: 43 45 4E 54 45 52 20 4F 46 20 54 48 45 20 50 4C |CENTER OF THE PL|
00000C70: 4F 54 00 B3 10 E2 27 99 22 20 20 20 51 25 20 2D |OT....'." Q% -|
00000C80: 20 54 48 45 20 56 45 52 54 49 43 41 4C 20 50 4F | THE VERTICAL PO|
00000C90: 53 49 54 49 4F 4E 20 4F 46 20 54 48 45 20 20 20 |SITION OF THE |
00000CA0: 20 43 45 4E 54 45 52 20 4F 46 20 54 48 45 20 50 | CENTER OF THE P|
00000CB0: 4C 4F 54 00 F2 10 EC 27 99 22 20 20 20 52 25 20 |LOT....'." R% |
00000CC0: 2D 20 53 45 54 20 54 4F 20 30 20 46 4F 52 20 34 |- SET TO 0 FOR 4|
00000CD0: 35 20 44 45 47 52 45 45 20 56 49 45 57 20 4F 52 |5 DEGREE VIEW OR|
00000CE0: 20 31 46 4F 52 20 48 45 41 44 20 4F 4E 20 56 49 | 1FOR HEAD ON VI|
00000CF0: 45 57 00 36 11 F6 27 99 22 20 20 20 58 25 2C 20 |EW.6..'." X%, |
00000D00: 59 25 2C 20 5A 25 20 2D 20 54 48 45 20 50 4C 4F |Y%, Z% - THE PLO|
00000D10: 54 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 54 48 |T POSITION OF TH|
00000D20: 45 50 4F 49 4E 54 20 54 4F 20 42 45 20 50 4C 4F |EPOINT TO BE PLO|
00000D30: 54 54 45 44 11 11 00 41 11 00 28 8D 31 31 30 30 |TTED...A..(.1100|
00000D40: 30 00 70 11 0A 28 99 22 93 20 20 20 4C 49 4E 45 |0.p..(.". LINE|
00000D50: 53 20 35 30 30 2D 35 38 30 20 4F 46 20 54 48 49 |S 500-580 OF THI|
00000D60: 53 20 50 52 4F 47 52 41 4D 20 46 4F 52 4D 20 41 |S PROGRAM FORM A|
00000D70: 00 9D 11 14 28 99 22 47 45 4E 45 52 41 4C 20 52 |....(."GENERAL R|
00000D80: 4F 55 54 49 4E 45 20 46 4F 52 20 50 4C 4F 54 54 |OUTINE FOR PLOTT|
00000D90: 49 4E 47 20 53 4F 4C 49 44 53 20 4F 46 00 CA 11 |ING SOLIDS OF...|
00000DA0: 1E 28 99 22 52 45 56 4F 4C 55 54 49 4F 4E 3B 20 |.(."REVOLUTION; |
00000DB0: 54 48 41 54 20 49 53 2C 20 46 49 47 55 52 45 53 |THAT IS, FIGURES|
00000DC0: 20 57 48 49 43 48 20 41 52 45 00 F4 11 28 28 99 | WHICH ARE...((.|
00000DD0: 22 47 45 4E 45 52 41 54 45 44 20 42 59 20 52 4F |"GENERATED BY RO|
00000DE0: 54 41 54 49 4E 47 20 53 49 4E 47 4C 45 20 56 41 |TATING SINGLE VA|
00000DF0: 4C 55 45 44 00 20 12 32 28 99 22 46 55 4E 43 54 |LUED. .2(."FUNCT|
00000E00: 49 4F 4E 53 20 4F 46 20 59 20 49 4E 20 58 20 41 |IONS OF Y IN X A|
00000E10: 42 4F 55 54 20 54 48 45 20 59 20 41 58 49 53 2E |BOUT THE Y AXIS.|
00000E20: 00 51 12 3C 28 99 22 11 11 20 20 20 41 20 54 59 |.Q.<(.".. A TY|
00000E30: 50 49 43 41 4C 20 53 45 54 55 50 20 46 4F 52 20 |PICAL SETUP FOR |
00000E40: 54 48 49 53 20 52 4F 55 54 49 4E 45 20 49 53 20 |THIS ROUTINE IS |
00000E50: 41 00 80 12 46 28 99 22 91 53 55 42 52 4F 55 54 |A...F(.".SUBROUT|
00000E60: 49 4E 45 20 4C 49 4B 45 20 54 48 41 54 20 42 45 |INE LIKE THAT BE|
00000E70: 47 49 4E 4E 4E 49 4E 47 20 41 54 20 4C 49 4E 45 |GINNNING AT LINE|
00000E80: 00 A9 12 50 28 99 22 32 30 30 30 2E 20 20 54 48 |...P(."2000. TH|
00000E90: 49 53 20 53 55 42 52 4F 55 54 49 4E 45 20 44 45 |IS SUBROUTINE DE|
00000EA0: 46 49 4E 45 53 20 54 48 45 00 D6 12 5A 28 99 22 |FINES THE...Z(."|
00000EB0: 46 55 4E 43 54 49 4F 4E 20 54 4F 20 42 45 20 50 |FUNCTION TO BE P|
00000EC0: 4C 4F 54 54 45 44 20 41 4E 44 20 53 45 54 53 20 |LOTTED AND SETS |
00000ED0: 55 50 20 54 48 45 00 02 13 64 28 99 22 50 4C 4F |UP THE...d(."PLO|
00000EE0: 54 20 50 41 52 41 4D 45 54 45 52 53 2E 20 20 49 |T PARAMETERS. I|
00000EF0: 20 53 55 47 47 45 53 54 20 59 4F 55 20 4C 45 41 | SUGGEST YOU LEA|
00000F00: 52 4E 00 2A 13 6E 28 99 22 48 4F 57 20 54 48 45 |RN.*.n(."HOW THE|
00000F10: 59 20 57 4F 52 4B 20 42 59 20 56 41 52 59 49 4E |Y WORK BY VARYIN|
00000F20: 47 20 54 48 45 4D 20 41 4E 44 00 55 13 78 28 99 |G THEM AND.U.x(.|
00000F30: 22 4F 42 53 45 52 56 49 4E 47 20 54 48 45 49 52 |"OBSERVING THEIR|
00000F40: 20 45 46 46 45 43 54 53 20 4F 4E 20 54 48 45 20 | EFFECTS ON THE |
00000F50: 50 4C 4F 54 2E 00 83 13 82 28 99 22 11 20 20 20 |PLOT.....(.". |
00000F60: 54 4F 20 53 41 56 45 20 50 4C 4F 54 54 45 52 23 |TO SAVE PLOTTER#|
00000F70: 2C 20 45 4E 54 45 52 20 54 48 45 20 4D 4F 4E 49 |, ENTER THE MONI|
00000F80: 54 4F 52 00 AC 13 8C 28 99 22 57 49 54 48 20 41 |TOR....(."WITH A|
00000F90: 20 27 53 59 53 34 27 20 41 4E 44 20 55 53 45 20 | 'SYS4' AND USE |
00000FA0: 54 48 45 20 43 4F 4D 4D 41 4E 44 3A 00 E1 13 96 |THE COMMAND:....|
00000FB0: 28 99 22 20 20 20 20 20 12 2E 53 20 22 3B C7 28 |(." ..S ";.(|
00000FC0: 33 34 29 3B 22 50 4C 4F 54 54 45 52 23 22 C7 28 |34);"PLOTTER#".(|
00000FD0: 33 34 29 22 2C 30 31 2C 33 45 30 30 2C 33 46 46 |34)",01,3E00,3FF|
00000FE0: 38 00 08 14 9B 28 99 22 20 20 20 20 20 28 30 38 |8....(." (08|
00000FF0: 20 49 4E 53 54 45 41 44 20 30 46 20 30 31 20 46 | INSTEAD 0F 01 F|
00001000: 4F 52 20 44 49 53 4B 29 00 35 14 A0 28 99 22 11 |OR DISK).5..(.".|
00001010: 20 20 20 53 41 56 45 20 54 48 45 20 42 41 53 49 | SAVE THE BASI|
00001020: 43 20 50 52 4F 47 52 41 4D 20 41 53 20 55 53 55 |C PROGRAM AS USU|
00001030: 41 4C 2E 11 22 00 56 14 F8 2A 99 22 11 50 52 45 |AL..".V..*.".PRE|
00001040: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001050: 4E 54 49 4E 55 45 00 6B 14 02 2B A1 47 24 3A 8B |NTINUE.k..+.G$:.|
00001060: 47 24 B2 22 22 A7 31 31 30 31 30 00 71 14 0C 2B |G$."".11010.q..+|
00001070: 8E 00 00 00 A9 2F 8D 1B 02 A9 04 8D 1C 02 A9 0C |...../..........|
00001080: 85 7D A9 75 85 7C A9 64 85 25 A9 04 85 26 A9 43 |.}.u.|.d.%...&.C|
00001090: 85 23 D0 12 A9 42 85 23 D8 4A 68 85 1D 68 85 1C |.#...B.#.Jh..h..|
000010A0: 68 85 1B 68 85 1A 68 69 FF 85 18 68 69 FF 85 19 |h..h..hi...hi...|
000010B0: BA 86 1E 58 20 E2 05 A5 23 20 E4 05 A9 2A 85 21 |...X ...# ...*.!|
000010C0: 20 E4 05 A9 52 85 0C D0 1D A9 3F 20 E4 05 A9 00 | ...R.....? ....|
000010D0: 85 CA 85 0C 85 0A A2 44 20 1B 09 20 51 06 C9 2E |.......D .. Q...|
000010E0: F0 F9 C9 20 F0 F5 A2 12 DD 3C 0C D0 0F A5 1F 85 |... .....<......|
000010F0: 0D 86 1F BD 4F 0C 48 BD 62 0C 48 60 CA 10 E9 6C |....O.H.b.H`...l|
00001100: 25 00 38 A5 12 E5 10 85 0B A5 13 E5 11 A8 05 0B |%.8.............|
00001110: 60 A5 10 85 18 A5 11 85 19 60 85 23 A0 00 20 FA |`........`.#.. .|
00001120: 05 B1 10 20 CB 05 20 FB 04 C6 23 D0 F1 60 20 51 |... .. ...#..` Q|
00001130: 06 20 18 06 90 0E 60 20 27 06 90 0D A2 00 81 10 |. ....` '.......|
00001140: C1 10 F0 05 68 68 4C 64 04 20 FB 04 C6 23 60 A9 |....hhLd. ...#`.|
00001150: 1A 85 10 A9 |.... |
..%...P%.39:Q%.19:R%.0:X%.0:Y%.0:Z%.0.E.
... P%,Q%,R%,X%,Y%,Z% MUST BE THE 1STVAR
IABLES IN THE PROGRAM......"........
.3 DIMENSIONAL PLOTTER.I...."....
FROM .MICRO., SEPT,1979 BY JOHN SHERBURN
E......53,32:.52,0:. KEEP BASIC OUT OF
PLOTTER#......10000:. INSTRUCTIONS.?.D.
.". .****3 DIMENSIONAL PLOTTER****".
{.I.."..YOU MAY CHOOSE FROM THE FOLLOWIN
G FIGURES:"...N.." 1. Y=SIN(
X) (SIDE VIEW).D.X.." 2. Y=SIN(X)
(FRONT VIEW)......" 3. X^2+Y^2=R^2..
...." 4. Y=15*EXP(-X/3)......" 5.
Y=1/2COS(3X)+COS(X).D...." 9. RECA
LL A STORED FIGURE.".V.H..".... AFTER TH
E FIGURE IS COMPLETE, YOU CAN"...R.."SAV
E IT FOR INSTANT RECALL BY PRESSING".S..
.."A NUMBER (1-7 ARE LEGAL--THE FIGURES
ARE......".STORED AT $2000-$3C00)......"
.ALTERNATIVELY, PRESS ANY OTHER KEY TO".
:...."GET BACK THIS MENU.".]...."..WHICH
DO YOU WANT";I:.".";......I.1000,2000,3
000,4000,5000,6000,7000,8000,9000,9000..
....I.9..500......100.Q....ZI..ZP.ZP:Z%.
ZI:ZT.Z%.ZF:YS.YB.....XL..(.5..(XP.XP.ZT
.ZT))......XI..XL.XL:X%.XI.....XT.XF..(X
%.X%.ZT.ZT).)...YT..P(XT).E.&..YS.YT.Y1.
YS:Y2.YT:.570.U.0.Y1.YT:Y2.YS.U.:..YI.Y2
.Y1..1:Y%.YI:.15872:....D.YS.YT:.XI:.ZI.
..N..I.1.12:.G$:.I...X..G$:.G$."".600.F.
B.I.E(G$).1:.I.0.I.7.....L..188,32.4.I:.
15936:....... Y=SIN(X).....ZP.16:XR.1.5.
.:XP.35:YR.1:YP.14.1...ZF.XP.ZP:XF.XR.XP
:YF.YP.YR.M...YB..YP:P%.39:Q%.19:R%.0.A.
... .P(X)..(X).YF.G.....V.P.. Y=SIN(X)..
.Z.ZP.16:XR.1.5..:XP.35:YR.1:YP.14.....Z
F.XP.ZP:XF.XR.XP:YF.YP.YR.U...YB..YP:P%.
39:Q%.19:R%.1...... .P(X)..(X).YF.......
..... X^2+Y^2=R^2.$.B.ZP.10:XR.9.9:XP.30
:YR.10:YP.30.C.L.ZF.XP.ZP:XF.XR.XP:YF.YP
.YR.].V.YB.5:P%.38:Q%.42:R%.0.W.... .P(X
)..(104.X.X).YF.}....... .. Y=15*EXP(-X/
3).....ZP.16:XR.10:XP.33:YR.15:YP.32.S..
.ZF.XP.ZP:XF.XR.XP:YF.YP.YR.....YB.1:P%.
42:Q%.32:R%.0...H.. .P(X).15..(.X.3).YF.
..R...'.... Y=.5*COS(3X)+COS(X).I...ZP.1
4:XR..:XP.30:YR.1.5:YP.17.H...ZF.XP.ZP:X
F.XR.XP:YF.YP.YR.....YB..YP:P%.42:Q%.17:
R%.0...... .P(X).(.5..(3.X)..(X)).YF....
.....(#.".... RECALL ANY PREVIOUSLY ST
ORED FIGURE"...2#."BY PRESSING THE NUMBE
R KEY IT WAS".3.<#."STORED IN. AFTER IT
IS ON THE SCREEN,".\.F#."YOU MAY IMMEDI
ATELY REPLACE IT BY"...P#."PRESSING ANY
OTHER NUMBER KEY."...Z#.".. PRESS A NO
N-NUMBER KEY TO GET THE".B.D#."MENU BACK
.".V..#.G$:.G$."".9100....#.E(G$).0.I.9:
.... #I.E(G$).1....#.186,32.4.I:.15946..
..#G$.""."..#.9100.@..'."..... INSTR
UCTIONS?.U..'.G$:.G$."".10010.C.$'.G$."N
"......'.". THIS PROGRAM IS A BASIC DR
IVER FOR A.A.8'."MACHINE LANGUAGE PROGRA
M NAMED .PLOTTER#...B'."WHICH MUST BE LO
ADED FIRST....L'.". TOGETHER THEY PROD
UCE 3D PLOTS ON A.4.V'."COORDINATE SYSTE
M LIKE THIS:.C.`'G$."...":."..
Y.";:.I.1.6:.G$;:....J'."L........ X...
.........M.M.M.M.M.Z...T'.11000.A.~'.".
THIS PROGRAM INCLUDES A MENU OF....'."
FIGURES TO PLOT AND TO STORE FOR QUICK..
..'."DISPLAY, BUT THE MAIN FUN WILL BE T
O DO.H..'."YOUR OWN SHAPES. TO DO THAT
YOU WILL.T..'."NEED TO KNOW HOW TO USE '
.PLOTTER#.'.....'.".. THE BASIC PROGRA
M CALLS .PLOTTER#. ONCE.U..'.".FOR EACH
POINT TO BE PLOTTED, WITH THE...D'."COMM
AND 'SYS15872'. PRIOR TO THAT, THE.0.N'
."FOLLOWING VARIABLES MUST BE SPECIFIED:
.R.X'.". P% - THE HORIZONTAL POSITION
OF THE CENTER OF THE PLOT....'." Q% -
THE VERTICAL POSITION OF THE CENTER
OF THE PLOT....'." R% - SET TO 0 FOR 4
5 DEGREE VIEW OR 1FOR HEAD ON VIEW.6..'.
" X%, Y%, Z% - THE PLOT POSITION OF TH
EPOINT TO BE PLOTTED...A..(.11000.P..(."
. LINES 500-580 OF THIS PROGRAM FORM A
....(."GENERAL ROUTINE FOR PLOTTING SOLI
DS OF.J..(."REVOLUTION; THAT IS, FIGURES
WHICH ARE...((."GENERATED BY ROTATING S
INGLE VALUED. .2(."FUNCTIONS OF Y IN X A
BOUT THE Y AXIS..Q.<(.".. A TYPICAL SE
TUP FOR THIS ROUTINE IS A...F(.".SUBROUT
INE LIKE THAT BEGINNNING AT LINE...P(."2
000. THIS SUBROUTINE DEFINES THE.V.Z(."
FUNCTION TO BE PLOTTED AND SETS UP THE..
.D(."PLOT PARAMETERS. I SUGGEST YOU LEA
RN.*.N(."HOW THEY WORK BY VARYING THEM A
ND.U.X(."OBSERVING THEIR EFFECTS ON THE
PLOT.....(.". TO SAVE PLOTTER#, ENTER
THE MONITOR....(."WITH A 'SYS4' AND USE
THE COMMAND:....(." ..S ";G(34);"PLO
TTER#"G(34)",01,3E00,3FF8....(." (08
INSTEAD 0F 01 FOR DISK).5. (.". SAVE
THE BASIC PROGRAM AS USUAL..".V..*.".PRE
SS ANY KEY TO CONTINUE.K..+.G$:.G$."".11
010.Q..+...../...........}.U.|.D.%...&.C
.#P..B.#XJH..H..H..H..HI...HI......X ...
# ...*.! ...R..P..? .....J.....D .. Q.I.
..I .....<.P........O.H.B.H`J..L%.8.....
........`........`.# . .... K. ..F#P.` Q
. ....` '.......A...HHLD. ..F#`.....
> CLICK IMAGE PREVIEW FOR FULL MODAL