THE USEFUL 1520
FILE INFORMATION
FILENAME(S): THE USEFUL 1520
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-10-20 14:32:02
APPEARS ON: 1 disk(s)
FILE HASH
6c2e92f467800e0c0029527f9bb642c9ff023275361ffcfab590c6efe3245d66
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0055GR | THE USEFUL 1520 | PRG | Treasure Chest - Klaus Der Suhler | 14 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 17 1C 0A 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.| 00000010: 35 33 32 38 31 2C 31 00 45 1C 14 00 9F 34 2C 36 |53281,1.E....4,6| 00000020: 2C 30 3A 9F 31 2C 36 2C 31 3A 9F 32 2C 36 2C 32 |,0:.1,6,1:.2,6,2| 00000030: 3A 9F 33 2C 36 2C 33 3A 9F 35 2C 36 2C 35 3A 9F |:.3,6,3:.5,6,5:.| 00000040: 36 2C 36 2C 36 00 7D 1C 1E 00 48 B2 32 30 30 3A |6,6,6.}...H.200:| 00000050: 4C B2 AB 32 30 30 3A 49 B2 34 37 39 3A 46 24 B2 |L..200:I.479:F$.| 00000060: 22 5F 22 3A 81 58 B2 31 A4 38 3A 41 24 28 58 29 |"_":.X.1.8:A$(X)| 00000070: B2 22 5F 22 3A 82 3A 54 24 B2 22 5F 22 00 86 1C |."_":.:T$."_"...| 00000080: 28 00 89 32 36 30 00 B4 1C 32 00 99 22 43 48 4F |(..260...2.."CHO| 00000090: 49 43 45 53 20 41 56 41 49 4C 41 42 4C 45 20 49 |ICES AVAILABLE I| 000000A0: 4E 20 50 52 49 4E 54 49 4E 47 20 53 45 51 20 28 |N PRINTING SEQ (| 000000B0: 50 45 54 22 00 E3 1C 3C 00 99 22 41 53 43 49 49 |PET"...<.."ASCII| 000000C0: 29 20 46 49 4C 45 53 20 41 52 45 20 43 48 41 52 |) FILES ARE CHAR| 000000D0: 41 43 54 45 52 20 53 49 5A 45 20 41 4E 44 20 50 |ACTER SIZE AND P| 000000E0: 45 4E 22 00 12 1D 46 00 99 22 43 4F 4C 4F 52 2E |EN"...F.."COLOR.| 000000F0: 54 48 45 53 45 20 50 41 52 41 4D 45 54 45 52 53 |THESE PARAMETERS| 00000100: 20 4D 41 59 20 42 45 20 53 41 56 45 44 20 41 4E | MAY BE SAVED AN| 00000110: 44 22 00 36 1D 50 00 99 22 4C 4F 41 44 45 44 20 |D".6.P.."LOADED | 00000120: 46 52 4F 4D 20 54 48 45 20 4D 41 49 4E 20 4D 45 |FROM THE MAIN ME| 00000130: 4E 55 2E 22 3A 99 00 63 1D 5A 00 99 22 54 4F 20 |NU.":..c.Z.."TO | 00000140: 49 4D 50 52 4F 56 45 20 4C 45 47 49 42 49 4C 49 |IMPROVE LEGIBILI| 00000150: 54 59 20 49 4E 20 50 4C 4F 54 54 49 4E 47 20 58 |TY IN PLOTTING X| 00000160: 2C 59 22 00 8E 1D 64 00 99 22 44 41 54 41 2C 20 |,Y"...d.."DATA, | 00000170: 41 20 4D 41 58 49 4D 55 4D 20 4F 46 20 38 20 52 |A MAXIMUM OF 8 R| 00000180: 45 43 4F 52 44 53 20 4D 41 59 20 42 45 22 00 BC |ECORDS MAY BE"..| 00000190: 1D 6E 00 99 22 50 4C 4F 54 54 45 44 20 4F 4E 20 |.n.."PLOTTED ON | 000001A0: 54 48 45 20 53 41 4D 45 20 47 52 49 44 2E 20 57 |THE SAME GRID. W| 000001B0: 48 45 4E 20 59 4F 55 20 41 52 45 22 00 EB 1D 78 |HEN YOU ARE"...x| 000001C0: 00 99 22 46 49 4E 49 53 48 45 44 20 45 4E 54 45 |.."FINISHED ENTE| 000001D0: 52 49 4E 47 20 44 41 54 41 20 46 4F 52 20 41 4E |RING DATA FOR AN| 000001E0: 59 20 31 20 52 45 43 4F 52 44 22 00 1C 1E 82 00 |Y 1 RECORD".....| 000001F0: 99 22 45 4E 54 45 52 20 12 5F 92 20 54 4F 20 43 |."ENTER ._. TO C| 00000200: 4F 4E 54 49 4E 55 45 20 4F 4E 54 4F 20 54 48 45 |ONTINUE ONTO THE| 00000210: 20 4E 45 58 54 2E 49 54 20 49 53 22 00 49 1E 8C | NEXT.IT IS".I..| 00000220: 00 99 22 48 45 4C 50 46 55 4C 20 54 4F 20 44 45 |.."HELPFUL TO DE| 00000230: 53 49 47 4E 41 54 45 20 54 48 45 20 48 49 47 48 |SIGNATE THE HIGH| 00000240: 20 41 4E 44 20 4C 4F 57 22 00 77 1E 96 00 99 22 | AND LOW".w...."| 00000250: 52 41 4E 47 45 53 20 28 59 20 41 58 49 53 20 2D |RANGES (Y AXIS -| 00000260: 20 4D 41 58 2E 20 52 41 4E 47 45 20 49 53 20 2B | MAX. RANGE IS +| 00000270: 32 30 30 20 54 4F 22 00 A0 1E A0 00 99 22 2D 32 |200 TO"......"-2| 00000280: 30 30 29 20 41 4E 44 20 54 48 45 20 4E 55 4D 42 |00) AND THE NUMB| 00000290: 45 52 20 4F 46 20 49 4E 54 45 52 56 41 4C 53 22 |ER OF INTERVALS"| 000002A0: 00 CD 1E AA 00 99 22 28 58 20 41 58 49 53 20 2D |......"(X AXIS -| 000002B0: 20 4D 41 58 2E 20 34 37 39 29 2E 20 59 4F 55 20 | MAX. 479). YOU | 000002C0: 57 49 4C 4C 20 41 4C 53 4F 20 42 45 22 00 FA 1E |WILL ALSO BE"...| 000002D0: B4 00 99 22 41 53 4B 45 44 20 54 4F 20 53 55 50 |..."ASKED TO SUP| 000002E0: 50 4C 59 20 41 20 54 49 54 4C 45 20 41 4E 44 20 |PLY A TITLE AND | 000002F0: 4E 41 4D 45 20 45 41 43 48 22 00 29 1F BE 00 99 |NAME EACH".)....| 00000300: 22 52 45 43 4F 52 44 2E 49 46 20 59 4F 55 20 44 |"RECORD.IF YOU D| 00000310: 4F 20 4E 4F 54 20 53 45 54 20 54 48 45 20 50 41 |O NOT SET THE PA| 00000320: 52 41 4D 45 54 45 52 53 22 00 56 1F C8 00 99 22 |RAMETERS".V...."| 00000330: 54 48 45 20 44 45 46 41 55 4C 54 20 56 41 4C 55 |THE DEFAULT VALU| 00000340: 45 53 20 57 49 4C 4C 20 42 45 20 55 53 45 44 2E |ES WILL BE USED.| 00000350: 20 59 4F 55 52 22 00 96 1F D2 00 99 22 50 41 52 | YOUR"......"PAR| 00000360: 41 4D 45 54 45 52 53 20 4D 41 59 20 42 45 20 53 |AMETERS MAY BE S| 00000370: 41 56 45 44 20 41 4E 44 20 4C 4F 41 44 45 44 20 |AVED AND LOADED | 00000380: 46 52 4F 4D 22 3A 99 22 54 48 45 20 4D 41 49 4E |FROM":."THE MAIN| 00000390: 20 4D 45 4E 55 22 00 C8 1F DC 00 99 3A 99 22 54 | MENU"......:."T| 000003A0: 48 52 4F 55 47 48 4F 55 54 20 54 48 45 20 50 52 |HROUGHOUT THE PR| 000003B0: 4F 47 52 41 4D 2C 20 12 5F 92 20 28 42 41 43 4B |OGRAM, ._. (BACK| 000003C0: 20 41 52 52 4F 57 29 22 00 F4 1F E6 00 99 22 41 | ARROW)"......"A| 000003D0: 42 4F 52 54 53 20 41 43 54 49 56 49 54 59 20 41 |BORTS ACTIVITY A| 000003E0: 4E 44 20 52 45 54 55 52 4E 53 20 54 48 45 20 4D |ND RETURNS THE M| 000003F0: 45 4E 55 22 00 07 20 F0 00 A1 4B 24 3A 8B 4B 24 |ENU".. ...K$:.K$| 00000400: B2 22 22 A7 32 34 30 00 18 20 FA 00 8B 4B 24 B3 |."".240.. ...K$.| 00000410: B1 22 5F 22 A7 32 34 30 00 39 20 04 01 99 22 93 |."_".240.9 ...".| 00000420: 22 3A 99 A3 31 32 29 22 97 54 48 45 20 55 53 45 |":..12)".THE USE| 00000430: 46 55 4C 20 31 35 32 30 22 00 60 20 0E 01 99 A3 |FUL 1520".` ....| 00000440: 36 29 22 56 31 2E 30 20 20 28 43 29 20 42 59 20 |6)"V1.0 (C) BY | 00000450: 54 4F 4D 20 54 52 45 56 4F 52 52 4F 57 22 3A 99 |TOM TREVORROW":.| 00000460: 00 95 20 18 01 99 22 12 46 31 92 20 50 4C 4F 54 |.. ...".F1. PLOT| 00000470: 20 58 2C 59 20 44 41 54 41 20 20 20 20 20 20 12 | X,Y DATA .| 00000480: 46 32 92 20 50 52 49 4E 54 20 53 45 51 20 46 49 |F2. PRINT SEQ FI| 00000490: 4C 45 22 3A 99 00 BF 20 22 01 99 22 20 20 20 20 |LE":... ".." | 000004A0: 20 20 20 20 5E 20 20 20 20 20 20 20 20 20 20 20 | ^ | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 5E 22 3A 99 00 | ^":..| 000004C0: F5 20 2C 01 99 22 12 46 33 92 20 4C 4F 41 44 20 |. ,..".F3. LOAD | 000004D0: 50 41 52 41 4D 45 54 45 52 53 20 20 20 20 12 46 |PARAMETERS .F| 000004E0: 34 92 20 4C 4F 41 44 20 50 41 52 41 4D 45 54 45 |4. LOAD PARAMETE| 000004F0: 52 53 22 3A 99 00 2D 21 36 01 99 22 12 46 35 92 |RS":..-!6..".F5.| 00000500: 20 53 41 56 45 20 50 41 52 41 4D 45 54 45 52 53 | SAVE PARAMETERS| 00000510: 20 20 20 20 12 46 36 92 20 53 41 56 45 20 50 41 | .F6. SAVE PA| 00000520: 52 41 4D 45 54 45 52 53 22 3A 99 3A 99 00 67 21 |RAMETERS":.:..g!| 00000530: 40 01 99 A3 31 32 29 22 12 46 37 92 20 44 4F 43 |@...12)".F7. DOC| 00000540: 55 4D 45 4E 54 41 54 49 4F 4E 22 3A 99 3A 99 A3 |UMENTATION":.:..| 00000550: 31 32 29 22 12 46 38 92 20 52 45 53 45 54 20 50 |12)".F8. RESET P| 00000560: 52 4F 47 52 41 4D 22 00 6D 21 4A 01 99 00 80 21 |ROGRAM".m!J....!| 00000570: 54 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 34 30 |T..K$:.K$."".340| 00000580: 00 9D 21 5E 01 8B 4B 24 B3 C7 28 31 33 33 29 B0 |..!^..K$..(133).| 00000590: 4B 24 B1 C7 28 31 34 30 29 A7 33 34 30 00 B6 21 |K$..(140).340..!| 000005A0: 68 01 8B 4B 24 B2 C7 28 31 33 33 29 A7 98 33 2C |h..K$..(133)..3,| 000005B0: 30 3A 89 36 32 30 00 D6 21 72 01 8B 4B 24 B2 C7 |0:.620..!r..K$..| 000005C0: 28 31 33 34 29 A7 53 24 B2 22 52 22 3A 50 B2 31 |(134).S$."R":P.1| 000005D0: 3A 89 31 33 36 30 00 F6 21 7C 01 8B 4B 24 B2 C7 |:.1360..!|..K$..| 000005E0: 28 31 33 35 29 A7 53 24 B2 22 57 22 3A 50 B2 31 |(135).S$."W":P.1| 000005F0: 3A 89 31 33 33 30 00 0E 22 86 01 8B 4B 24 B2 C7 |:.1330.."...K$..| 00000600: 28 31 33 36 29 A7 99 22 93 22 3A 89 35 30 00 29 |(136)..".":.50.)| 00000610: 22 90 01 8B 4B 24 B2 C7 28 31 33 37 29 A7 53 24 |"...K$..(137).S$| 00000620: B2 22 52 22 3A 89 34 35 30 00 59 22 9A 01 8B 4B |."R":.450.Y"...K| 00000630: 24 B2 C7 28 31 33 38 29 A7 50 50 B2 31 3A 53 24 |$..(138).PP.1:S$| 00000640: B2 22 52 22 3A 8D 31 32 33 30 3A 84 31 30 2C 51 |."R":.1230:.10,Q| 00000650: 24 2C 42 24 3A 89 34 34 30 00 84 22 A4 01 8B 4B |$,B$:.440.."...K| 00000660: 24 B2 C7 28 31 33 39 29 A7 53 24 B2 22 57 22 3A |$..(139).S$."W":| 00000670: 8D 31 32 33 30 3A 98 31 30 2C 51 24 2C 42 24 3A |.1230:.10,Q$,B$:| 00000680: 89 34 34 30 00 95 22 AE 01 8B 4B 24 B2 C7 28 31 |.440.."...K$..(1| 00000690: 34 30 29 A7 8A 00 A6 22 B8 01 A0 31 30 3A A0 31 |40)...."...10:.1| 000006A0: 35 3A 89 32 36 30 00 B8 22 C2 01 81 58 B2 31 A4 |5:.260.."...X.1.| 000006B0: 31 30 3A 98 34 3A 82 58 00 C6 22 CC 01 8B 50 50 |10:.4:.X.."...PP| 000006C0: B2 31 A7 35 36 30 00 FD 22 D6 01 99 22 11 43 48 |.1.560.."...".CH| 000006D0: 41 52 41 43 54 45 52 53 20 2F 20 4C 49 4E 45 3A |ARACTERS / LINE:| 000006E0: 20 12 30 92 20 38 30 20 12 31 92 20 34 30 20 12 | .0. 80 .1. 40 .| 000006F0: 32 92 20 32 30 20 12 33 92 20 31 30 22 00 10 23 |2. 20 .3. 10"..#| 00000700: E0 01 A1 51 24 3A 8B 51 24 B2 22 22 A7 34 38 30 |...Q$:.Q$."".480| 00000710: 00 20 23 EA 01 8B 51 24 B2 22 5F 22 A7 32 36 30 |. #...Q$."_".260| 00000720: 00 37 23 F4 01 8B 51 24 B3 22 30 22 B0 51 24 B1 |.7#...Q$."0".Q$.| 00000730: 22 33 22 A7 34 38 30 00 6E 23 FE 01 99 22 11 43 |"3".480.n#...".C| 00000740: 4F 4C 4F 52 3A 20 12 30 92 20 42 4C 41 43 4B 20 |OLOR: .0. BLACK | 00000750: 20 12 31 92 20 42 4C 55 45 20 20 12 32 92 20 47 | .1. BLUE .2. G| 00000760: 52 45 45 4E 20 20 12 33 92 20 52 45 44 22 00 81 |REEN .3. RED"..| 00000770: 23 08 02 A1 42 24 3A 8B 42 24 B2 22 22 A7 35 32 |#...B$:.B$."".52| 00000780: 30 00 91 23 12 02 8B 42 24 B2 22 5F 22 A7 32 36 |0..#...B$."_".26| 00000790: 30 00 A8 23 1C 02 8B 42 24 B3 22 30 22 B0 42 24 |0..#...B$."0".B$| 000007A0: B1 22 33 22 A7 35 32 30 00 C3 23 26 02 98 33 2C |."3".520..#&..3,| 000007B0: C5 28 51 24 29 3A 98 32 2C C5 28 42 24 29 3A 98 |.(Q$):.2,.(B$):.| 000007C0: 36 2C 31 00 E0 23 30 02 8D 31 32 33 30 3A 98 34 |6,1..#0..1230:.4| 000007D0: 2C 46 24 3A 81 58 B2 31 A4 35 3A 98 34 3A 82 58 |,F$:.X.1.5:.4:.X| 000007E0: 00 F1 23 3A 02 A1 23 31 30 2C 43 24 3A 45 B2 53 |..#:..#10,C$:E.S| 000007F0: 54 00 05 24 44 02 A1 4B 24 3A 8B 4B 24 B2 22 5F |T..$D..K$:.K$."_| 00000800: 22 A7 34 34 30 00 19 24 4E 02 98 34 2C 43 24 3B |".440..$N..4,C$;| 00000810: 3A 8B 45 B2 30 A7 35 37 30 00 45 24 58 02 8B 45 |:.E.0.570.E$X..E| 00000820: B3 B1 36 34 A7 99 22 11 52 45 41 44 20 45 52 52 |..64..".READ ERR| 00000830: 4F 52 22 3A 81 58 B2 31 A4 33 30 30 30 3A 82 58 |OR":.X.1.3000:.X| 00000840: 3A 89 34 34 30 00 4E 24 62 02 89 34 34 30 00 60 |:.440.N$b..440.`| 00000850: 24 6C 02 81 58 B2 31 A4 33 35 3A 98 34 3A 82 58 |$l..X.1.35:.4:.X| 00000860: 00 84 24 76 02 98 31 2C 22 4D 22 3A 98 31 2C 22 |..$v..1,"M":.1,"| 00000870: 4A 22 2C 34 37 39 2C 30 3A 98 31 2C 22 48 22 3A |J",479,0:.1,"H":| 00000880: 98 36 2C 30 00 91 24 80 02 8B 50 B2 31 A7 37 36 |.6,0..$...P.1.76| 00000890: 30 00 B4 24 8A 02 85 22 11 45 4E 54 45 52 20 54 |0..$...".ENTER T| 000008A0: 48 45 20 54 49 54 4C 45 20 4F 46 20 50 4C 4F 54 |HE TITLE OF PLOT| 000008B0: 22 3B 54 24 00 C4 24 94 02 8B 54 24 B2 22 5F 22 |";T$..$...T$."_"| 000008C0: A7 32 36 30 00 E3 24 9E 02 85 22 11 48 49 20 52 |.260..$...".HI R| 000008D0: 41 4E 47 45 20 28 2B 31 20 54 4F 20 32 30 30 29 |ANGE (+1 TO 200)| 000008E0: 22 3B 48 00 F6 24 A8 02 8B 48 B3 31 B0 48 B1 32 |";H..$...H.1.H.2| 000008F0: 30 30 A7 36 37 30 00 19 25 B2 02 85 22 11 4C 4F |00.670..%...".LO| 00000900: 20 52 41 4E 47 45 20 20 20 20 28 2D 31 20 54 4F | RANGE (-1 TO| 00000910: 20 2D 32 30 30 29 22 3B 4C 00 2E 25 BC 02 8B 4C | -200)";L..%...L| 00000920: B3 AB 32 30 30 B0 4C B1 AB 31 A7 36 39 30 00 54 |..200.L..1.690.T| 00000930: 25 C6 02 85 22 11 4E 4F 2E 20 4F 46 20 49 4E 54 |%...".NO. OF INT| 00000940: 45 52 56 41 4C 53 20 28 4D 41 58 2E 20 34 37 39 |ERVALS (MAX. 479| 00000950: 29 22 3B 49 00 63 25 D0 02 8B 49 B1 34 37 39 A7 |)";I.c%...I.479.| 00000960: 37 31 30 00 85 25 DA 02 81 58 B2 31 A4 38 3A 99 |710..%...X.1.8:.| 00000970: 22 11 4E 41 4D 45 20 4F 46 20 52 45 43 4F 52 44 |".NAME OF RECORD| 00000980: 20 23 22 3B 58 00 A8 25 E4 02 85 22 20 20 20 20 | #";X..%..." | 00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009A0: 91 22 3B 41 24 28 58 29 00 BC 25 EE 02 8B 41 24 |.";A$(X)..%...A$| 000009B0: 28 58 29 B2 22 5F 22 A7 31 30 34 30 00 CC 25 F8 |(X)."_".1040..%.| 000009C0: 02 8B 50 B2 31 A7 81 58 B2 31 A4 38 00 EC 25 02 |..P.1..X.1.8..%.| 000009D0: 03 8B 50 B2 31 AF 41 24 28 58 29 B2 22 5F 22 A7 |..P.1.A$(X)."_".| 000009E0: 98 31 2C 22 48 22 3A 89 31 30 34 30 00 06 26 0C |.1,"H":.1040..&.| 000009F0: 03 8B 50 B2 31 A7 99 22 11 22 3B 41 24 28 58 29 |..P.1..".";A$(X)| 00000A00: 3B 22 3A 22 3A 99 00 14 26 16 03 8B 58 B2 31 A7 |;":":...&...X.1.| 00000A10: 98 32 2C 30 00 22 26 20 03 8B 58 B2 32 A7 98 32 |.2,0."& ..X.2..2| 00000A20: 2C 33 00 30 26 2A 03 8B 58 B2 33 A7 98 32 2C 32 |,3.0&*..X.3..2,2| 00000A30: 00 3E 26 34 03 8B 58 B2 34 A7 98 32 2C 31 00 51 |.>&4..X.4..2,1.Q| 00000A40: 26 3E 03 8B 58 B2 35 A7 98 32 2C 30 3A 98 35 2C |&>..X.5..2,0:.5,| 00000A50: 35 00 64 26 48 03 8B 58 B2 36 A7 98 32 2C 33 3A |5.d&H..X.6..2,3:| 00000A60: 98 35 2C 35 00 77 26 52 03 8B 58 B2 37 A7 98 32 |.5,5.w&R..X.7..2| 00000A70: 2C 32 3A 98 35 2C 35 00 8A 26 5C 03 8B 58 B2 38 |,2:.5,5..&\..X.8| 00000A80: A7 98 32 2C 31 3A 98 35 2C 35 00 99 26 66 03 5A |..2,1:.5,5..&f.Z| 00000A90: B2 B5 28 34 37 39 AD 49 29 00 A8 26 70 03 85 22 |..(479.I)..&p.."| 00000AA0: 44 41 54 41 22 3B 43 24 00 B9 26 7A 03 8B 43 24 |DATA";C$..&z..C$| 00000AB0: B2 22 5F 22 A7 31 30 33 30 00 C5 26 84 03 43 B2 |."_".1030..&..C.| 00000AC0: C5 28 43 24 29 00 D2 26 8E 03 8B 43 B1 48 A7 43 |.(C$)..&...C.H.C| 00000AD0: B2 48 00 DF 26 98 03 8B 43 B3 4C A7 43 B2 4C 00 |.H..&...C.L.C.L.| 00000AE0: F8 26 A2 03 8B 43 B2 30 A7 98 31 2C 22 52 22 2C |.&...C.0..1,"R",| 00000AF0: 5A 2C 30 3A 89 39 35 30 00 16 27 AC 03 98 31 2C |Z,0:.950..'...1,| 00000B00: 22 52 22 2C 5A 2C 28 B5 28 39 39 38 AD 28 48 AC |"R",Z,(.(998.(H.| 00000B10: 34 29 29 29 AC 43 00 25 27 B6 03 85 22 44 41 54 |4))).C.%'..."DAT| 00000B20: 41 22 3B 43 24 00 36 27 C0 03 8B 43 24 B2 22 5F |A";C$.6'...C$."_| 00000B30: 22 A7 31 30 33 30 00 42 27 CA 03 43 B2 C5 28 43 |".1030.B'..C..(C| 00000B40: 24 29 00 4F 27 D4 03 8B 43 B1 48 A7 43 B2 48 00 |$).O'...C.H.C.H.| 00000B50: 5C 27 DE 03 8B 43 B3 4C A7 43 B2 4C 00 79 27 E8 |\'...C.L.C.L.y'.| 00000B60: 03 8B 43 B2 30 A7 98 31 2C 22 4A 22 2C B5 28 34 |..C.0..1,"J",.(4| 00000B70: 37 39 AD 49 29 AA 5A 2C 30 00 A0 27 F2 03 98 31 |79.I).Z,0..'...1| 00000B80: 2C 22 4A 22 2C B5 28 34 37 39 AD 49 29 AA 5A 2C |,"J",.(479.I).Z,| 00000B90: 28 B5 28 39 39 38 AD 28 48 AC 34 29 29 29 AC 43 |(.(998.(H.4))).C| 00000BA0: 00 B6 27 FC 03 5A B2 5A AA B5 28 34 37 39 AD 49 |..'..Z.Z..(479.I| 00000BB0: 29 3A 89 39 35 30 00 C4 27 06 04 98 31 2C 22 48 |):.950..'...1,"H| 00000BC0: 22 3A 82 58 00 D2 27 10 04 98 33 2C 31 3A 98 35 |":.X..'...3,1:.5| 00000BD0: 2C 30 00 E7 27 1A 04 98 31 2C 22 52 22 2C 30 2C |,0..'...1,"R",0,| 00000BE0: AB 33 33 33 3A 98 34 00 F2 27 24 04 81 58 B2 31 |.333:.4..'$..X.1| 00000BF0: A4 38 00 0B 28 2E 04 8B 41 24 28 58 29 B2 22 5F |.8..(...A$(X)."_| 00000C00: 22 A7 41 24 28 58 29 B2 22 20 22 00 12 28 38 04 |".A$(X)." "..(8.| 00000C10: 82 58 00 24 28 42 04 98 32 2C 30 3A 98 34 2C 41 |.X.$(B..2,0:.4,A| 00000C20: 24 28 31 29 00 36 28 4C 04 98 32 2C 33 3A 98 34 |$(1).6(L..2,3:.4| 00000C30: 2C 41 24 28 32 29 00 48 28 56 04 98 32 2C 32 3A |,A$(2).H(V..2,2:| 00000C40: 98 34 2C 41 24 28 33 29 00 5A 28 60 04 98 32 2C |.4,A$(3).Z(`..2,| 00000C50: 31 3A 98 34 2C 41 24 28 34 29 00 71 28 6A 04 98 |1:.4,A$(4).q(j..| 00000C60: 32 2C 30 3A 98 35 2C 35 3A 98 34 2C 41 24 28 35 |2,0:.5,5:.4,A$(5| 00000C70: 29 00 88 28 74 04 98 32 2C 33 3A 98 35 2C 35 3A |)..(t..2,3:.5,5:| 00000C80: 98 34 2C 41 24 28 36 29 00 9F 28 7E 04 98 32 2C |.4,A$(6)..(~..2,| 00000C90: 32 3A 98 35 2C 35 3A 98 34 2C 41 24 28 37 29 00 |2:.5,5:.4,A$(7).| 00000CA0: B6 28 88 04 98 32 2C 31 3A 98 35 2C 35 3A 98 34 |.(...2,1:.5,5:.4| 00000CB0: 2C 41 24 28 38 29 00 C1 28 92 04 81 58 B2 31 A4 |,A$(8)..(...X.1.| 00000CC0: 38 00 DA 28 9C 04 8B 41 24 28 58 29 B2 22 20 22 |8..(...A$(X)." "| 00000CD0: A7 41 24 28 58 29 B2 22 5F 22 00 E1 28 A6 04 82 |.A$(X)."_"..(...| 00000CE0: 58 00 FD 28 B0 04 98 32 2C 30 3A 98 35 2C 30 3A |X..(...2,0:.5,0:| 00000CF0: 98 33 2C 32 3A 98 34 3A 98 34 2C 54 24 00 2E 29 |.3,2:.4:.4,T$..)| 00000D00: BA 04 98 33 2C 31 3A 98 34 2C 22 52 41 4E 47 45 |...3,1:.4,"RANGE| 00000D10: 20 3D 20 22 3B 4C 3B 22 54 4F 22 3B 48 3B 22 20 | = ";L;"TO";H;" | 00000D20: 20 49 4E 54 45 52 56 41 4C 20 3D 22 3B 49 00 37 | INTERVAL =";I.7| 00000D30: 29 C4 04 89 34 34 30 00 5F 29 CE 04 99 22 11 44 |)...440._)...".D| 00000D40: 49 53 4B 20 44 52 49 56 45 20 4E 55 4D 42 45 52 |ISK DRIVE NUMBER| 00000D50: 3A 20 20 20 20 12 38 92 20 20 20 12 39 92 22 00 |: .8. .9.".| 00000D60: 73 29 D8 04 A1 44 24 3A 8B 44 24 B2 22 22 A7 31 |s)...D$:.D$."".1| 00000D70: 32 34 30 00 83 29 E2 04 8B 44 24 B2 22 5F 22 A7 |240..)...D$."_".| 00000D80: 32 36 30 00 9B 29 EC 04 8B 44 24 B3 22 38 22 B0 |260..)...D$."8".| 00000D90: 44 24 B1 22 39 22 A7 31 32 34 30 00 B3 29 F6 04 |D$."9".1240..)..| 00000DA0: 85 22 11 4E 41 4D 45 20 4F 46 20 46 49 4C 45 22 |.".NAME OF FILE"| 00000DB0: 3B 46 24 00 C3 29 00 05 8B 46 24 B2 22 5F 22 A7 |;F$..)...F$."_".| 00000DC0: 32 36 30 00 D4 29 0A 05 9F 31 35 2C C5 28 44 24 |260..)...15,.(D$| 00000DD0: 29 2C 31 35 00 F6 29 14 05 9F 31 30 2C C5 28 44 |),15..)...10,.(D| 00000DE0: 24 29 2C 31 30 2C 22 30 3A 22 AA 46 24 AA 22 2C |$),10,"0:".F$.",| 00000DF0: 53 2C 22 AA 53 24 00 30 2A 1E 05 84 31 35 2C 4B |S,".S$.0*...15,K| 00000E00: 24 3A 8B 4B 24 B3 B1 22 30 30 22 A7 99 22 11 44 |$:.K$.."00"..".D| 00000E10: 49 53 4B 20 45 52 52 4F 52 20 22 3B 4B 24 3A 81 |ISK ERROR ";K$:.| 00000E20: 58 B2 31 A4 33 30 30 30 3A 82 58 3A 89 34 34 30 |X.1.3000:.X:.440| 00000E30: 00 36 2A 28 05 8E 00 65 2A 32 05 8D 31 32 33 30 |.6*(...e*2..1230| 00000E40: 3A 98 31 30 2C 54 24 3A 98 31 30 2C 41 24 28 31 |:.10,T$:.10,A$(1| 00000E50: 29 3A 98 31 30 2C 41 24 28 32 29 3A 98 31 30 2C |):.10,A$(2):.10,| 00000E60: 41 24 28 33 29 00 91 2A 3C 05 98 31 30 2C 41 24 |A$(3)..*<..10,A$| 00000E70: 28 34 29 3A 98 31 30 2C 41 24 28 35 29 3A 98 31 |(4):.10,A$(5):.1| 00000E80: 30 2C 41 24 28 36 29 3A 98 31 30 2C 41 24 28 37 |0,A$(6):.10,A$(7| 00000E90: 29 00 B6 2A 46 05 98 31 30 2C 41 24 28 38 29 3A |)..*F..10,A$(8):| 00000EA0: 98 31 30 2C 48 3A 98 31 30 2C 4C 3A 98 31 30 2C |.10,H:.10,L:.10,| 00000EB0: 49 3A 89 34 34 30 00 E5 2A 50 05 8D 31 32 33 30 |I:.440..*P..1230| 00000EC0: 3A 84 31 30 2C 54 24 3A 84 31 30 2C 41 24 28 31 |:.10,T$:.10,A$(1| 00000ED0: 29 3A 84 31 30 2C 41 24 28 32 29 3A 84 31 30 2C |):.10,A$(2):.10,| 00000EE0: 41 24 28 33 29 00 11 2B 5A 05 84 31 30 2C 41 24 |A$(3)..+Z..10,A$| 00000EF0: 28 34 29 3A 84 31 30 2C 41 24 28 35 29 3A 84 31 |(4):.10,A$(5):.1| 00000F00: 30 2C 41 24 28 36 29 3A 84 31 30 2C 41 24 28 37 |0,A$(6):.10,A$(7| 00000F10: 29 00 36 2B 64 05 84 31 30 2C 41 24 28 38 29 3A |).6+d..10,A$(8):| 00000F20: 84 31 30 2C 48 3A 84 31 30 2C 4C 3A 84 31 30 2C |.10,H:.10,L:.10,| 00000F30: 49 3A 89 34 34 30 00 00 00 |I:.440... |
.......53280,1:.53281,1.E....4,6,0:.1,6,
1:.2,6,2:.3,6,3:.5,6,5:.6,6,6.}...H.200:
L..200:I.479:F$."_":.X.1.8:A$(X)."_":.:T
$."_"...(..260...2.."CHOICES AVAILABLE I
N PRINTING SEQ (PET"...<.."ASCII) FILES
ARE CHARACTER SIZE AND PEN"...F.."COLOR.
THESE PARAMETERS MAY BE SAVED AND".6.P..
"LOADED FROM THE MAIN MENU.":..C.Z.."TO
IMPROVE LEGIBILITY IN PLOTTING X,Y"...D.
."DATA, A MAXIMUM OF 8 RECORDS MAY BE"..
.N.."PLOTTED ON THE SAME GRID. WHEN YOU
ARE"...X.."FINISHED ENTERING DATA FOR AN
Y 1 RECORD"......"ENTER ._. TO CONTINUE
ONTO THE NEXT.IT IS".I...."HELPFUL TO DE
SIGNATE THE HIGH AND LOW".W...."RANGES (
Y AXIS - MAX. RANGE IS +200 TO". . .."-2
00) AND THE NUMBER OF INTERVALS".M...."(
X AXIS - MAX. 479). YOU WILL ALSO BE"...
..."ASKED TO SUPPLY A TITLE AND NAME EAC
H".)...."RECORD.IF YOU DO NOT SET THE PA
RAMETERS".V.H.."THE DEFAULT VALUES WILL
BE USED. YOUR"...R.."PARAMETERS MAY BE S
AVED AND LOADED FROM":."THE MAIN MENU".H
....:."THROUGHOUT THE PROGRAM, ._. (BACK
ARROW)"......"ABORTS ACTIVITY AND RETUR
NS THE MENU".. ...K$:.K$."".240.. ...K$.
."_".240.9 ...".":..12)".THE USEFUL 1520
".` ....6)"V1.0 (C) BY TOM TREVORROW":.
.. ...".F1. PLOT X,Y DATA .F2. PRIN
T SEQ FILE":... ".." ^
^":... ,..".F3. LOAD PARAMETE
RS .F4. LOAD PARAMETERS":..-!6..".F5.
SAVE PARAMETERS .F6. SAVE PARAMETERS
":.:..G!@...12)".F7. DOCUMENTATION":.:..
12)".F8. RESET PROGRAM".M!J....!T..K$:.K
$."".340..!^..K$.G(133).K$.G(140).340..!
H..K$.G(133)..3,0:.620.V!R..K$.G(134).S$
."R":P.1:.1360..!|..K$.G(135).S$."W":P.1
:.1330.."...K$.G(136)..".":.50.)"...K$.G
(137).S$."R":.450.Y"...K$.G(138).PP.1:S$
."R":.1230:.10,Q$,B$:.440.."...K$.G(139)
.S$."W":.1230:.10,Q$,B$:.440.."...K$.G(1
40)....".. 10: 15:.260.."B..X.1.10:.4:.X
.F"L..PP.1.560.."V..".CHARACTERS / LINE:
.0. 80 .1. 40 .2. 20 .3. 10"..#...Q$:.Q
$."".480. #...Q$."_".260.7#...Q$."0".Q$.
"3".480.N#...".COLOR: .0. BLACK .1. BLU
E .2. GREEN .3. RED"..#...B$:.B$."".52
0..#...B$."_".260..#...B$."0".B$."3".520
.C#&..3,E(Q$):.2,E(B$):.6,1..#0..1230:.4
,F$:.X.1.5:.4:.X..#:..#10,C$:E.ST..$D..K
$:.K$."_".440..$N..4,C$;:.E.0.570.E$X..E
..64..".READ ERROR":.X.1.3000:.X:.440.N$
B..440.`$L..X.1.35:.4:.X..$V..1,"M":.1,"
J",479,0:.1,"H":.6,0..$...P.1.760..$..."
.ENTER THE TITLE OF PLOT";T$.D$...T$."_"
.260..$...".HI RANGE (+1 TO 200)";H..$..
.H.1.H.200.670..%...".LO RANGE (-1 TO
-200)";L..%...L..200.L..1.690.T%F..".NO
. OF INTERVALS (MAX. 479)";I.C%P..I.479.
710..%Z..X.1.8:.".NAME OF RECORD #";X..%
..." .";A$(X)..%...A$
(X)."_".1040.L%...P.1..X.1.8..%...P.1.A$
(X)."_"..1,"H":.1040..&...P.1..".";A$(X)
;":":...&...X.1..2,0."& ..X.2..2,3.0&*..
X.3..2,2.>&4..X.4..2,1.Q&>..X.5..2,0:.5,
5.D&H..X.6..2,3:.5,5.W&R..X.7..2,2:.5,5.
.&\..X.8..2,1:.5,5..&F.Z..(479.I)..&P.."
DATA";C$..&Z..C$."_".1030.E&..C.E(C$).R&
...C.H.C.H..&...C.L.C.L..&...C.0..1,"R",
Z,0:.950..'...1,"R",Z,(.(998.(H.4))).C.%
'..."DATA";C$.6'...C$."_".1030.B'J.C.E(C
$).O'T..C.H.C.H.\'...C.L.C.L.Y'...C.0..1
,"J",.(479.I).Z,0. '...1,"J",.(479.I).Z,
(.(998.(H.4))).C..'..Z.Z..(479.I):.950.D
'...1,"H":.X.R'...3,1:.5,0..'...1,"R",0,
.333:.4..'$..X.1.8..(...A$(X)."_".A$(X).
" "..(8..X.$(B..2,0:.4,A$(1).6(L..2,3:.4
,A$(2).H(V..2,2:.4,A$(3).Z(`..2,1:.4,A$(
4).Q(J..2,0:.5,5:.4,A$(5)..(T..2,3:.5,5:
.4,A$(6)..(~..2,2:.5,5:.4,A$(7)..(...2,1
:.5,5:.4,A$(8).A(...X.1.8.Z(...A$(X)." "
.A$(X)."_"..(...X..(...2,0:.5,0:.3,2:.4:
.4,T$..)...3,1:.4,"RANGE = ";L;"TO";H;"
INTERVAL =";I.7)D..440._)N..".DISK DRIV
E NUMBER: .8. .9.".S)X..D$:.D$."".1
240..)...D$."_".260..)...D$."8".D$."9".1
240..)...".NAME OF FILE";F$.C)...F$."_".
260.T)...15,E(D$),15..)...10,E(D$),10,"0
:".F$.",S,".S$.0*...15,K$:.K$.."00"..".D
ISK ERROR ";K$:.X.1.3000:.X:.440.6*(...E
*2..1230:.10,T$:.10,A$(1):.10,A$(2):.10,
A$(3)..*<..10,A$(4):.10,A$(5):.10,A$(6):
.10,A$(7)..*F..10,A$(8):.10,H:.10,L:.10,
I:.440..*P..1230:.10,T$:.10,A$(1):.10,A$
(2):.10,A$(3)..+Z..10,A$(4):.10,A$(5):.1
0,A$(6):.10,A$(7).6+D..10,A$(8):.10,H:.1
0,L:.10,I:.440...
> CLICK IMAGE PREVIEW FOR FULL MODAL