MULTI REC
FILE INFORMATION
FILENAME(S): MULTI REC
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:11:19
APPEARS ON: 1 disk(s)
FILE HASH
038490b44299a4083fd7aba310009f38c517f08e5c1849ed29f4cd46e3aab199
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROG UTILITY 2 | MULTI REC | PRG | DuncanTwain | 22 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 11 04 64 00 86 20 41 24 28 31 30 30 2C 35 |....d.. A$(100,5|
00000010: 29 00 1D 04 6E 00 99 C7 28 31 34 37 29 00 49 04 |)...n...(147).I.|
00000020: 78 00 99 22 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |x.."............|
00000030: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000040: A3 A3 A3 A3 A3 A3 A3 A3 D0 00 76 04 82 00 99 22 |..........v...."|
00000050: A5 43 52 45 41 54 45 20 46 49 4C 45 20 20 20 20 |.CREATE FILE |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 31 A7 22 00 A2 04 8C 00 99 22 A5 20 20 | 1."......". |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 A7 00 CF 04 96 00 99 22 A5 53 41 56 45 20 46 | .......".SAVE F|
000000B0: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |ILE |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 32 A7 22 00 | 2.".|
000000D0: FB 04 A0 00 99 22 A5 20 20 20 20 20 20 20 20 20 |.....". |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 A7 00 28 05 AA 00 | ..(...|
00000100: 99 22 A5 4C 4F 41 44 20 46 49 4C 45 20 20 20 20 |.".LOAD FILE |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 33 A7 22 00 54 05 B4 00 99 22 A5 | 3.".T....".|
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 A7 00 81 05 BE 00 99 22 A5 44 49 53 50 | .......".DISP|
00000160: 4C 41 59 20 46 49 4C 45 20 20 20 20 20 20 20 20 |LAY FILE |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 A7 | 4.|
00000180: 22 00 AD 05 C8 00 99 22 A5 20 20 20 20 20 20 20 |"......". |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 A7 00 DA 05 | ....|
000001B0: D2 00 99 22 A5 52 45 54 52 49 45 56 45 20 52 45 |...".RETRIEVE RE|
000001C0: 43 4F 52 44 2F 53 20 20 20 20 20 20 20 20 20 20 |CORD/S |
000001D0: 20 20 20 20 20 20 20 35 A7 22 00 06 06 DC 00 99 | 5."......|
000001E0: 22 A5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 A7 00 33 06 E6 00 99 22 A5 4D 4F | ..3....".MO|
00000210: 44 49 46 59 20 52 45 43 4F 52 44 20 20 20 20 20 |DIFY RECORD |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 36 A7 22 00 5F 06 F0 00 99 22 A5 20 20 20 20 20 |6."._....". |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 00 | ..|
00000260: 8B 06 FA 00 99 22 A5 53 4F 52 54 20 43 4F 4C 55 |.....".SORT COLU|
00000270: 4D 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |MN |
00000280: 20 20 20 20 20 20 20 20 20 37 A7 00 B7 06 04 01 | 7......|
00000290: 99 22 A5 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 A7 00 E3 06 0E 01 99 22 A5 43 | .......".C|
000002C0: 4F 4C 55 4D 4E 20 54 4F 54 41 4C 53 2F 41 56 45 |OLUMN TOTALS/AVE|
000002D0: 52 41 47 45 53 20 20 20 20 20 20 20 20 20 20 20 |RAGES |
000002E0: 20 38 A7 00 16 07 18 01 99 22 CC A4 A4 A4 A4 A4 | 8......."......|
000002F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000300: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 BA 22 |..............."|
00000310: 3A 99 3A 99 3A 99 00 4D 07 22 01 99 22 12 20 20 |:.:.:..M."..". |
00000320: 20 20 20 20 20 20 92 22 3B 22 45 4E 54 45 52 20 | .";"ENTER |
00000330: 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 22 3B 22 |OPTION NUMBER";"|
00000340: 12 20 20 20 20 20 20 20 20 20 20 92 22 00 60 07 |. .".`.|
00000350: 2C 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 30 30 |,..K$:.K$."".300|
00000360: 00 7C 07 36 01 45 24 B2 22 49 4E 50 55 54 20 55 |.|.6.E$."INPUT U|
00000370: 4E 41 43 43 45 50 54 41 42 4C 45 22 00 A0 07 40 |NACCEPTABLE"...@|
00000380: 01 8B C5 28 4B 24 29 B3 31 B0 C5 28 4B 24 29 B1 |...(K$).1..(K$).|
00000390: 38 A7 99 45 24 3A 99 3A 99 3A 99 3A 89 32 39 30 |8..E$:.:.:.:.290|
000003A0: 00 D2 07 4A 01 91 20 C5 28 4B 24 29 89 20 33 34 |...J.. .(K$). 34|
000003B0: 30 2C 36 38 30 2C 39 38 30 2C 31 37 38 30 2C 31 |0,680,980,1780,1|
000003C0: 38 33 30 2C 32 31 38 30 2C 31 32 35 30 2C 31 35 |830,2180,1250,15|
000003D0: 30 30 00 E6 07 54 01 8F 2A 2A 49 4E 50 55 54 20 |00...T..**INPUT |
000003E0: 4C 49 4D 49 54 53 00 0E 08 5E 01 52 24 B2 22 4C |LIMITS...^.R$."L|
000003F0: 49 4D 49 54 20 49 53 20 31 30 30 21 22 3A 43 24 |IMIT IS 100!":C$|
00000400: B2 22 4C 49 4D 49 54 20 49 53 20 34 21 22 00 21 |."LIMIT IS 4!".!|
00000410: 08 68 01 99 C7 28 31 34 37 29 3A 99 A3 32 34 30 |.h...(147):..240|
00000420: 29 00 46 08 72 01 99 22 48 4F 57 20 4D 41 4E 59 |).F.r.."HOW MANY|
00000430: 20 52 45 43 4F 52 44 53 3F 22 3B A3 32 35 29 3B | RECORDS?";.25);|
00000440: 3A 8D 32 33 38 30 00 5B 08 7C 01 99 3A 59 B2 C5 |:.2380.[.|..:Y..|
00000450: 28 41 24 28 52 2C 43 29 29 3A 99 00 77 08 86 01 |(A$(R,C)):..w...|
00000460: 8B 59 B3 31 B0 59 B1 31 30 30 A7 99 52 24 3A 99 |.Y.1.Y.100..R$:.|
00000470: 3A 99 3A 89 33 37 30 00 9C 08 90 01 99 22 48 4F |:.:.370......"HO|
00000480: 57 20 4D 41 4E 59 20 43 4F 4C 55 4D 4E 53 3F 22 |W MANY COLUMNS?"|
00000490: 3B A3 32 35 29 3B 3A 8D 32 33 38 30 00 B1 08 9A |;.25);:.2380....|
000004A0: 01 99 3A 58 B2 C5 28 41 24 28 52 2C 43 29 29 3A |..:X..(A$(R,C)):|
000004B0: 99 00 CB 08 A4 01 8B 58 B3 31 B0 58 B1 34 A7 99 |.......X.1.X.4..|
000004C0: 43 24 3A 99 3A 99 3A 89 34 30 30 00 DB 08 AE 01 |C$:.:.:.400.....|
000004D0: 99 C7 28 31 34 37 29 3A 4D B2 31 00 02 09 B8 01 |..(147):M.1.....|
000004E0: 99 22 47 49 56 45 20 43 4F 4C 55 4D 4E 20 54 49 |."GIVE COLUMN TI|
000004F0: 54 4C 45 22 3B 4D 3B A3 32 35 29 3B 3A 8D 32 33 |TLE";M;.25);:.23|
00000500: 38 30 00 19 09 C2 01 99 3A 99 3A 43 31 24 28 4D |80......:.:C1$(M|
00000510: 29 B2 41 24 28 52 2C 43 29 00 28 09 CC 01 54 31 |).A$(R,C).(...T1|
00000520: 24 B2 43 31 24 28 31 29 00 36 09 D6 01 8B 20 4D |$.C1$(1).6.... M|
00000530: B2 58 A7 34 39 30 00 45 09 E0 01 4D B2 4D AA 31 |.X.490.E...M.M.1|
00000540: 3A 89 34 34 30 00 65 09 EA 01 8F 2A 2A 49 4E 50 |:.440.e....**INP|
00000550: 55 54 54 54 49 4E 47 20 45 4E 54 49 52 45 20 52 |UTTTING ENTIRE R|
00000560: 45 43 4F 52 44 00 71 09 F4 01 99 C7 28 31 34 37 |ECORD.q.....(147|
00000570: 29 00 A1 09 FE 01 99 22 B8 B8 B8 B8 B8 B8 B8 B8 |)......"........|
00000580: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000590: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000005A0: 22 00 CB 09 08 02 99 22 20 20 20 20 20 20 20 43 |"......" C|
000005B0: 4F 4D 4D 45 4E 43 45 20 45 4E 54 45 52 49 4E 47 |OMMENCE ENTERING|
000005C0: 20 52 45 43 4F 52 44 53 22 3A 99 00 FB 09 12 02 | RECORDS":......|
000005D0: 99 22 20 20 20 20 20 20 20 50 52 45 53 53 20 12 |." PRESS .|
000005E0: 52 45 54 55 52 4E 92 20 41 46 54 45 52 20 45 41 |RETURN. AFTER EA|
000005F0: 43 48 20 45 4E 54 52 59 22 3A 99 00 2A 0A 1C 02 |CH ENTRY":..*...|
00000600: 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |."..............|
00000610: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000620: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 66 0A 26 02 57 |...........f.&.W|
00000630: 24 B2 22 12 57 41 52 4E 49 4E 47 92 2E 44 41 54 |$.".WARNING..DAT|
00000640: 41 20 41 43 43 45 50 54 45 44 2E 49 4E 43 4F 4E |A ACCEPTED.INCON|
00000650: 56 45 4E 49 45 4E 54 2E 22 3A 49 52 24 B2 22 45 |VENIENT.":IR$."E|
00000660: 4E 54 45 52 20 22 00 72 0A 30 02 81 20 52 B2 31 |NTER ".r.0.. R.1|
00000670: A4 59 00 7D 0A 3A 02 81 43 B2 31 A4 58 00 8B 0A |.Y.}.:..C.1.X...|
00000680: 44 02 8B 43 B3 B1 31 A7 36 31 30 00 A5 0A 4E 02 |D..C..1.610...N.|
00000690: 99 49 52 24 3B 54 31 24 3B A3 32 35 29 3B 3A 8D |.IR$;T1$;.25);:.|
000006A0: 20 32 33 38 30 00 B1 0A 58 02 99 3A 89 20 36 34 | 2380...X..:. 64|
000006B0: 30 00 D0 0A 62 02 99 3A 99 49 52 24 3B 43 31 24 |0...b..:.IR$;C1$|
000006C0: 28 43 29 3B A3 32 35 29 3B 3A 8D 20 32 33 38 30 |(C);.25);:. 2380|
000006D0: 00 EA 0A 6C 02 99 3A 8B 20 C3 28 41 24 28 52 2C |...l..:. .(A$(R,|
000006E0: 43 29 29 B3 37 A7 20 36 34 30 00 F4 0A 76 02 99 |C)).7. 640...v..|
000006F0: 3A 99 57 24 00 FA 0A 80 02 82 00 2B 0B 8A 02 99 |:.W$.......+....|
00000700: 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |:.".............|
00000710: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000720: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 31 0B 94 02 |..........".1...|
00000730: 82 00 3A 0B 9E 02 89 31 31 30 00 4B 0B A8 02 8F |..:....110.K....|
00000740: 2A 2A 53 41 56 45 20 46 49 4C 45 00 62 0B B2 02 |**SAVE FILE.b...|
00000750: 99 C7 28 31 34 37 29 3A 99 A3 32 34 30 29 3A 54 |..(147):..240):T|
00000760: B2 32 00 87 0B BC 02 99 3A 99 22 45 4E 54 45 52 |.2......:."ENTER|
00000770: 20 46 49 4C 45 20 4E 41 4D 45 22 3B A3 31 38 29 | FILE NAME";.18)|
00000780: 3B 3A 8D 32 33 38 30 00 C1 0B C6 02 99 C7 28 31 |;:.2380.......(1|
00000790: 34 37 29 3A 99 A3 32 34 30 29 3A 99 22 57 49 4C |47):..240):."WIL|
000007A0: 4C 20 54 48 49 53 20 42 45 20 4C 41 53 54 20 46 |L THIS BE LAST F|
000007B0: 49 4C 45 20 4F 4E 20 54 48 49 53 20 54 41 50 45 |ILE ON THIS TAPE|
000007C0: 3F 00 E1 0B D0 02 99 22 41 4E 53 57 45 52 20 59 |?......"ANSWER Y|
000007D0: 28 59 45 53 29 20 4F 52 20 4E 28 4E 4F 29 22 3A |(YES) OR N(NO)":|
000007E0: 99 00 F7 0B DA 02 A1 20 4B 24 3A 8B 20 4B 24 B2 |....... K$:. K$.|
000007F0: 22 22 A7 20 37 33 30 00 09 0C E4 02 8B 20 4B 24 |"". 730...... K$|
00000800: B2 22 4E 22 A7 20 54 B2 31 00 14 0C EE 02 99 A3 |."N". T.1.......|
00000810: 31 32 30 29 00 3B 0C F8 02 99 22 48 41 56 45 20 |120).;...."HAVE |
00000820: 59 4F 55 20 49 4E 53 45 52 54 45 44 20 41 20 43 |YOU INSERTED A C|
00000830: 41 53 53 45 54 54 45 3F 22 3A 99 00 6C 0C 02 03 |ASSETTE?":..l...|
00000840: 99 22 48 41 56 45 20 59 4F 55 20 52 45 57 4F 55 |."HAVE YOU REWOU|
00000850: 4E 44 20 49 54 20 54 4F 20 44 45 53 49 52 45 44 |ND IT TO DESIRED|
00000860: 20 50 4F 53 49 54 49 4F 4E 22 3A 99 00 94 0C 0C | POSITION":.....|
00000870: 03 99 22 48 41 56 45 20 59 4F 55 20 53 57 49 54 |.."HAVE YOU SWIT|
00000880: 43 48 45 44 20 4D 4F 54 4F 52 20 4F 46 46 3F 22 |CHED MOTOR OFF?"|
00000890: 3A 99 3A 99 00 B8 0C 16 03 99 22 12 59 4F 55 20 |:.:.......".YOU |
000008A0: 4D 55 53 54 20 4E 4F 57 20 41 4E 53 57 45 52 20 |MUST NOW ANSWER |
000008B0: 59 28 59 45 53 29 92 22 00 CE 0C 20 03 A1 4B 24 |Y(YES)."... ..K$|
000008C0: 3A 8B 4B 24 B3 B1 22 59 22 A7 20 38 30 30 00 DD |:.K$.."Y". 800..|
000008D0: 0C 2A 03 46 24 B2 41 24 28 52 2C 43 29 00 F0 0C |.*.F$.A$(R,C)...|
000008E0: 34 03 99 C7 28 31 34 37 29 3A 99 A3 32 34 30 29 |4...(147):..240)|
000008F0: 00 FB 0C 3E 03 8D 20 31 36 35 30 00 09 0D 48 03 |...>.. 1650...H.|
00000900: 9F 31 2C 31 2C 54 2C 46 24 00 17 0D 52 03 98 31 |.1,1,T,F$...R..1|
00000910: 2C 59 3A 98 31 2C 58 00 23 0D 5C 03 81 20 52 B2 |,Y:.1,X.#.\.. R.|
00000920: 31 A4 59 00 2F 0D 66 03 81 20 43 B2 31 A4 58 00 |1.Y./.f.. C.1.X.|
00000930: 3E 0D 70 03 98 31 2C 41 24 28 52 2C 43 29 00 46 |>.p..1,A$(R,C).F|
00000940: 0D 7A 03 82 3A 82 00 51 0D 84 03 81 48 B2 31 A4 |.z..:..Q....H.1.|
00000950: 58 00 5F 0D 8E 03 98 31 2C 43 31 24 28 48 29 00 |X._....1,C1$(H).|
00000960: 65 0D 98 03 82 00 70 0D A2 03 8D 20 31 36 37 30 |e.....p.... 1670|
00000970: 00 77 0D AC 03 A0 31 00 93 0D B6 03 99 3A 99 3A |.w....1......:.:|
00000980: 99 22 44 41 54 41 20 4E 4F 57 20 4F 4E 20 54 41 |."DATA NOW ON TA|
00000990: 50 45 22 00 9E 0D C0 03 8D 20 32 36 32 30 00 A8 |PE"...... 2620..|
000009A0: 0D CA 03 89 20 31 31 30 00 C3 0D D4 03 99 C7 28 |.... 110.......(|
000009B0: 31 34 37 29 3A 99 3A 8F 2A 2A 4C 4F 41 44 20 54 |147):.:.**LOAD T|
000009C0: 41 50 45 00 E7 0D DE 03 99 22 45 4E 54 45 52 20 |APE......"ENTER |
000009D0: 46 49 4C 45 20 4E 41 4D 45 22 3B A3 31 39 29 3B |FILE NAME";.19);|
000009E0: 3A 8D 20 32 33 38 30 00 F4 0D E8 03 99 3A 99 A3 |:. 2380......:..|
000009F0: 32 34 30 29 00 FC 0D F2 03 8F 2A 2A 00 1F 0E FC |240)......**....|
00000A00: 03 99 22 49 53 20 54 48 49 53 20 46 49 4C 45 20 |.."IS THIS FILE |
00000A10: 49 4E 20 43 41 53 53 45 54 54 45 3F 22 3A 99 00 |IN CASSETTE?":..|
00000A20: 37 0E 06 04 99 22 49 53 20 49 54 20 52 45 57 4F |7...."IS IT REWO|
00000A30: 55 4E 44 3F 22 3A 99 00 5F 0E 10 04 99 22 49 53 |UND?":.._...."IS|
00000A40: 20 54 48 45 20 4D 4F 54 4F 52 20 53 57 49 54 43 | THE MOTOR SWITC|
00000A50: 48 45 44 20 4F 46 46 3F 22 3A 99 3A 99 3A 99 00 |HED OFF?":.:.:..|
00000A60: 7A 0E 1A 04 99 22 49 46 20 53 4F 2C 41 4E 53 57 |z...."IF SO,ANSW|
00000A70: 45 52 20 59 28 59 45 53 29 22 00 91 0E 24 04 A1 |ER Y(YES)"...$..|
00000A80: 20 48 24 3A 8B 20 48 24 B2 22 22 A7 20 31 30 36 | H$:. H$."". 106|
00000A90: 30 00 A5 0E 2E 04 8B 20 48 24 B3 B1 22 59 22 A7 |0...... H$.."Y".|
00000AA0: 20 31 30 36 30 00 B8 0E 38 04 99 C7 28 31 34 37 | 1060...8...(147|
00000AB0: 29 3A 99 A3 32 34 30 29 00 C7 0E 42 04 46 24 B2 |):..240)...B.F$.|
00000AC0: 41 24 28 52 2C 43 29 00 D5 0E 4C 04 9F 31 2C 31 |A$(R,C)...L..1,1|
00000AD0: 2C 30 2C 46 24 00 E5 0E 56 04 84 31 2C 59 24 3A |,0,F$...V..1,Y$:|
00000AE0: 84 31 2C 58 24 00 F0 0E 60 04 8D 20 31 37 34 30 |.1,X$...`.. 1740|
00000AF0: 00 04 0F 6A 04 59 B2 C5 28 59 24 29 3A 58 B2 C5 |...j.Y..(Y$):X..|
00000B00: 28 58 24 29 00 10 0F 74 04 81 20 52 B2 31 A4 59 |(X$)...t.. R.1.Y|
00000B10: 00 1C 0F 7E 04 81 20 43 B2 31 A4 58 00 2B 0F 88 |...~.. C.1.X.+..|
00000B20: 04 84 31 2C 41 24 28 52 2C 43 29 00 36 0F 92 04 |..1,A$(R,C).6...|
00000B30: 8D 20 31 37 34 30 00 3E 0F 9C 04 82 3A 82 00 4B |. 1740.>....:..K|
00000B40: 0F A6 04 81 20 48 B2 31 A4 20 58 00 59 0F B0 04 |.... H.1. X.Y...|
00000B50: 84 31 2C 43 31 24 28 48 29 00 64 0F BA 04 8D 20 |.1,C1$(H).d.... |
00000B60: 31 37 34 30 00 6A 0F C4 04 82 00 78 0F CE 04 A0 |1740.j.....x....|
00000B70: 31 3A 8D 20 32 36 32 30 00 82 0F D8 04 89 20 31 |1:. 2620...... 1|
00000B80: 31 30 00 95 0F E2 04 8F 2A 2A 42 55 42 42 4C 45 |10......**BUBBLE|
00000B90: 20 53 4F 52 54 00 A1 0F EC 04 99 C7 28 31 34 37 | SORT.......(147|
00000BA0: 29 00 C3 0F F6 04 99 22 45 4E 54 45 52 20 43 4F |)......"ENTER CO|
00000BB0: 4C 55 4D 4E 20 48 45 41 44 49 4E 47 22 3B A3 33 |LUMN HEADING";.3|
00000BC0: 30 29 3B 00 CE 0F 00 05 8D 20 32 33 38 30 00 D9 |0);...... 2380..|
00000BD0: 0F 0A 05 8D 20 32 36 32 30 00 FE 0F 14 05 99 C7 |.... 2620.......|
00000BE0: 28 31 34 37 29 3A 99 A3 32 35 30 29 3B 22 53 4F |(147):..250);"SO|
00000BF0: 52 54 20 50 52 4F 43 45 45 44 49 4E 47 22 00 0D |RT PROCEEDING"..|
00000C00: 10 1E 05 44 24 B2 41 24 28 52 2C 43 29 00 19 10 |...D$.A$(R,C)...|
00000C10: 28 05 81 20 4D B2 31 A4 58 00 2E 10 32 05 8B 20 |(.. M.1.X...2.. |
00000C20: 44 24 B2 43 31 24 28 4D 29 A7 20 43 B2 4D 00 34 |D$.C1$(M). C.M.4|
00000C30: 10 3C 05 82 00 3F 10 46 05 81 4A B2 32 A4 59 00 |.<...?.F..J.2.Y.|
00000C40: 49 10 50 05 52 B2 4A AB 31 00 58 10 5A 05 41 24 |I.P.R.J.1.X.Z.A$|
00000C50: B2 41 24 28 4A 2C 43 29 00 6E 10 64 05 8B 41 24 |.A$(J,C).n.d..A$|
00000C60: B1 B2 41 24 28 52 2C 43 29 A7 31 34 37 30 00 84 |..A$(R,C).1470..|
00000C70: 10 6E 05 41 24 28 52 AA 31 2C 43 29 B2 41 24 28 |.n.A$(R.1,C).A$(|
00000C80: 52 2C 43 29 00 8F 10 78 05 81 4C B2 31 A4 58 00 |R,C)...x..L.1.X.|
00000C90: 9E 10 82 05 54 24 B2 41 24 28 52 2C 4C 29 00 B4 |....T$.A$(R,L)..|
00000CA0: 10 8C 05 41 24 28 52 2C 4C 29 B2 41 24 28 52 AA |...A$(R,L).A$(R.|
00000CB0: 31 2C 4C 29 00 C5 10 96 05 41 24 28 52 AA 31 2C |1,L).....A$(R.1,|
00000CC0: 4C 29 B2 54 24 00 CC 10 A0 05 82 4C 00 D6 10 AA |L).T$......L....|
00000CD0: 05 52 B2 52 AB 31 00 E6 10 B4 05 8B 20 52 B1 30 |.R.R.1...... R.0|
00000CE0: A7 20 31 33 38 30 00 F7 10 BE 05 41 24 28 52 AA |. 1380.....A$(R.|
00000CF0: 31 2C 43 29 B2 41 24 00 FE 10 C8 05 82 4A 00 07 |1,C).A$......J..|
00000D00: 11 D2 05 89 31 31 30 00 13 11 DC 05 99 C7 28 31 |....110.......(1|
00000D10: 34 37 29 00 23 11 E6 05 99 22 54 4F 54 41 4C 53 |47).#...."TOTALS|
00000D20: 22 3A 99 00 2E 11 F0 05 8D 20 32 36 36 30 00 57 |":....... 2660.W|
00000D30: 11 FA 05 99 54 35 28 31 29 3B A3 31 35 29 54 35 |....T5(1);.15)T5|
00000D40: 28 32 29 3B A3 32 33 29 54 35 28 33 29 3B A3 33 |(2);.23)T5(3);.3|
00000D50: 31 29 54 35 28 34 29 00 8B 11 04 06 99 22 B8 B8 |1)T5(4)......"..|
00000D60: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000D70: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000D80: B8 B8 B8 B8 B8 B8 22 3A 99 3A 99 00 9D 11 0E 06 |......":.:......|
00000D90: 99 22 41 56 45 52 41 47 45 53 22 3A 99 00 A7 11 |."AVERAGES":....|
00000DA0: 18 06 8D 32 36 36 30 00 B8 11 22 06 8B 59 B2 30 |...2660..."..Y.0|
00000DB0: A7 59 B2 31 45 AB 33 30 00 C3 11 2C 06 81 47 B2 |.Y.1E.30...,..G.|
00000DC0: 31 A4 58 00 EC 11 36 06 54 35 28 47 29 B2 54 35 |1.X...6.T5(G).T5|
00000DD0: 28 47 29 AD 59 3A 54 35 28 47 29 B2 B5 28 31 30 |(G).Y:T5(G)..(10|
00000DE0: 30 AC 54 35 28 47 29 29 AD 31 30 30 00 F2 11 40 |0.T5(G)).100...@|
00000DF0: 06 82 00 1B 12 4A 06 99 54 35 28 31 29 3B A3 31 |.....J..T5(1);.1|
00000E00: 35 29 54 35 28 32 29 3B A3 32 33 29 54 35 28 33 |5)T5(2);.23)T5(3|
00000E10: 29 3B A3 33 31 29 54 35 28 34 29 00 4B 12 54 06 |);.31)T5(4).K.T.|
00000E20: 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |."..............|
00000E30: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000E40: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 55 12 5E 06 |..........".U.^.|
00000E50: 8D 32 36 32 30 00 5E 12 68 06 89 31 31 30 00 7B |.2620.^.h..110.{|
00000E60: 12 72 06 8F 2A 2A 50 52 45 50 41 52 45 20 54 4F |.r..**PREPARE TO|
00000E70: 20 4F 50 45 4E 20 57 52 49 54 45 00 90 12 7C 06 | OPEN WRITE...|.|
00000E80: 97 20 32 31 34 2C 31 32 32 3A 97 32 31 35 2C 32 |. 214,122:.215,2|
00000E90: 00 AE 12 86 06 8F 2A 2A 50 52 45 50 41 52 45 20 |......**PREPARE |
00000EA0: 54 4F 20 43 4C 4F 53 45 20 57 52 49 54 45 00 C4 |TO CLOSE WRITE..|
00000EB0: 12 90 06 8B 20 C2 28 31 38 37 29 B1 31 38 30 A7 |.... .(187).180.|
00000EC0: 31 37 30 30 00 CA 12 9A 06 8E 00 DF 12 A4 06 97 |1700............|
00000ED0: 20 35 39 34 31 31 2C 35 33 3A 54 38 B2 54 49 00 | 59411,53:T8.TI.|
00000EE0: F1 12 AE 06 8B 54 49 AB 54 38 B3 36 A7 31 37 31 |.....TI.T8.6.171|
00000EF0: 30 00 FF 12 B8 06 97 35 39 34 31 31 2C 36 31 00 |0......59411,61.|
00000F00: 05 13 C2 06 8E 00 21 13 CC 06 8F 2A 2A 46 4F 4C |......!....**FOL|
00000F10: 4C 4F 57 20 49 4E 50 55 54 23 31 20 42 52 45 41 |LOW INPUT#1 BREA|
00000F20: 4B 00 3E 13 D6 06 8B 20 28 53 54 29 B2 30 20 B0 |K.>.... (ST).0 .|
00000F30: 20 28 53 54 29 B2 36 34 A7 20 31 37 37 30 00 52 | (ST).64. 1770.R|
00000F40: 13 E0 06 99 22 53 54 41 54 55 53 20 45 52 52 4F |...."STATUS ERRO|
00000F50: 52 22 00 58 13 EA 06 8E 00 6A 13 F4 06 8F 2A 2A |R".X.....j....**|
00000F60: 50 52 49 4E 54 20 46 49 4C 45 00 75 13 FE 06 8D |PRINT FILE.u....|
00000F70: 20 32 34 34 30 00 7B 13 08 07 99 00 86 13 12 07 | 2440.{.........|
00000F80: 8D 20 32 36 32 30 00 8F 13 1C 07 89 31 31 30 00 |. 2620......110.|
00000F90: A4 13 26 07 8F 2A 2A 53 45 4C 45 43 54 20 52 45 |..&..**SELECT RE|
00000FA0: 43 4F 52 44 00 AF 13 30 07 8D 20 31 38 37 30 00 |CORD...0.. 1870.|
00000FB0: BA 13 3A 07 8D 20 32 36 32 30 00 C4 13 44 07 89 |..:.. 2620...D..|
00000FC0: 20 31 31 30 00 DA 13 4E 07 8F 2A 2A 45 58 41 4D | 110...N..**EXAM|
00000FD0: 49 4E 45 20 52 45 43 4F 52 44 00 ED 13 58 07 99 |INE RECORD...X..|
00000FE0: C7 28 31 34 37 29 3A 99 3A 4D 32 B2 30 00 FC 13 |.(147):.:M2.0...|
00000FF0: 62 07 8B 4D 32 B2 31 A7 31 39 38 30 00 24 14 6C |b..M2.1.1980.$.l|
00001000: 07 99 3A 99 3A 99 3A 99 22 45 4E 54 45 52 20 43 |..:.:.:."ENTER C|
00001010: 4F 4C 55 4D 4E 20 48 45 41 44 49 4E 47 2E 2E 2E |OLUMN HEADING...|
00001020: 2E 2E 22 3B 00 34 14 76 07 4A B2 30 3A 5A B2 30 |..";.4.v.J.0:Z.0|
00001030: 3A 4B B2 30 00 3F 14 80 07 8D 20 32 33 38 30 00 |:K.0.?.... 2380.|
00001040: 56 14 8A 07 46 24 B2 41 24 28 52 2C 43 29 3A 99 |V...F$.A$(R,C):.|
00001050: 3A 4D 24 B2 46 24 00 61 14 94 07 81 4D B2 31 A4 |:M$.F$.a....M.1.|
00001060: 58 00 7A 14 9E 07 8B 20 46 24 B2 43 31 24 28 4D |X.z.... F$.C1$(M|
00001070: 29 A7 20 51 B2 4D 3A 4A B2 31 00 80 14 A8 07 82 |). Q.M:J.1......|
00001080: 00 AE 14 B2 07 8B 20 4A B2 30 A7 99 3A 99 22 4E |...... J.0..:."N|
00001090: 4F 20 53 55 43 48 20 43 4F 4C 55 4D 4E 20 45 58 |O SUCH COLUMN EX|
000010A0: 49 53 54 53 22 3A 99 3A 89 20 31 39 30 30 00 CE |ISTS":.:. 1900..|
000010B0: 14 BC 07 99 3A 99 22 45 4E 54 45 52 20 53 45 41 |....:."ENTER SEA|
000010C0: 52 43 48 20 44 41 54 41 2E 2E 2E 2E 22 3B 00 DA |RCH DATA....";..|
000010D0: 14 C6 07 5A B2 30 3A 4B B2 30 00 E5 14 D0 07 8D |...Z.0:K.0......|
000010E0: 20 32 33 38 30 00 F0 14 DA 07 99 3A 44 31 B2 30 | 2380......:D1.0|
000010F0: 00 03 15 E4 07 99 C7 28 31 34 37 29 3A 99 A3 31 |.......(147):..1|
00001100: 32 30 29 00 0E 15 EE 07 8D 20 32 36 36 30 00 1D |20)...... 2660..|
00001110: 15 F8 07 52 24 B2 41 24 28 52 2C 43 29 00 28 15 |...R$.A$(R,C).(.|
00001120: 02 08 81 52 B2 31 A4 59 00 30 15 0C 08 5A B2 30 |...R.1.Y.0...Z.0|
00001130: 00 3B 15 16 08 81 43 B2 31 A4 58 00 6D 15 20 08 |.;....C.1.X.m. .|
00001140: 8B 20 41 24 28 52 2C 51 29 B2 52 24 A7 20 99 41 |. A$(R,Q).R$. .A|
00001150: 24 28 52 2C 43 29 3B A3 30 38 AA 38 AC 43 29 3A |$(R,C);.08.8.C):|
00001160: 5A B2 31 3A 52 31 B2 52 3A 44 31 B2 31 00 73 15 |Z.1:R1.R:D1.1.s.|
00001170: 2A 08 82 00 81 15 34 08 8B 5A B2 30 A7 32 31 32 |*.....4..Z.0.212|
00001180: 30 00 87 15 3E 08 99 00 8D 15 48 08 82 00 BD 15 |0...>.....H.....|
00001190: 52 08 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |R.."............|
000011A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000011B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 E3 15 |............"...|
000011C0: 5C 08 99 3A 8B 44 31 B2 30 A7 99 22 52 45 43 4F |\..:.D1.0.."RECO|
000011D0: 52 44 20 4E 4F 54 20 4F 4E 20 46 49 4C 45 22 3A |RD NOT ON FILE":|
000011E0: 47 B2 31 00 E9 15 66 08 8E 00 F4 15 70 08 8D 20 |G.1...f.....p.. |
000011F0: 32 36 32 30 00 FD 15 7A 08 89 31 31 30 00 0E 16 |2620...z..110...|
00001200: 84 08 8F 2A 2A 4D 4F 44 49 46 20 52 45 43 00 1B |...**MODIF REC..|
00001210: 16 8E 08 4D 32 B2 31 3A 51 B2 31 00 27 16 98 08 |...M2.1:Q.1.'...|
00001220: 99 C7 28 31 34 37 29 00 53 16 A2 08 99 22 54 48 |..(147).S...."TH|
00001230: 45 20 54 45 52 4D 20 53 45 41 52 43 48 20 44 41 |E TERM SEARCH DA|
00001240: 54 41 20 42 45 4C 4F 57 20 52 45 46 4F 52 53 20 |TA BELOW REFORS |
00001250: 54 4F 22 00 6F 16 AC 08 99 22 20 20 20 20 20 20 |TO".o...." |
00001260: 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 | ...........".|
00001270: 84 16 B6 08 99 22 57 48 49 43 48 20 22 3B 43 31 |....."WHICH ";C1|
00001280: 24 28 31 29 00 8E 16 C0 08 8D 31 39 38 30 00 94 |$(1)......1980..|
00001290: 16 CA 08 99 00 A5 16 D4 08 8B 44 31 B3 B1 30 A7 |..........D1..0.|
000012A0: 20 32 32 39 30 00 B2 16 DE 08 99 3A 8D 20 32 36 | 2290......:. 26|
000012B0: 32 30 00 BB 16 E8 08 89 31 31 30 00 C9 16 F2 08 |20......110.....|
000012C0: 46 24 B2 43 31 24 28 31 29 00 E4 16 FC 08 99 22 |F$.C1$(1)......"|
000012D0: 50 52 4F 43 45 45 44 20 54 4F 20 4D 4F 44 49 46 |PROCEED TO MODIF|
000012E0: 59 22 3A 99 00 EF 16 06 09 81 43 B2 31 A4 58 00 |Y":.......C.1.X.|
000012F0: 0F 17 10 09 99 49 52 24 3B 22 22 3B 43 31 24 28 |.....IR$;"";C1$(|
00001300: 43 29 3B 22 2E 2E 2E 2E 2E 22 3B A3 32 30 29 00 |C);".....";.20).|
00001310: 19 17 1A 09 8D 32 33 38 30 00 28 17 24 09 4C 24 |.....2380.(.$.L$|
00001320: B2 41 24 28 52 2C 43 29 00 3C 17 2E 09 41 24 28 |.A$(R,C).<...A$(|
00001330: 52 31 2C 43 29 B2 4C 24 3A 99 3A 99 00 42 17 38 |R1,C).L$:.:..B.8|
00001340: 09 82 00 4C 17 42 09 89 20 31 31 30 00 65 17 4C |...L.B.. 110.e.L|
00001350: 09 8F 2A 2A 43 52 41 53 48 20 50 52 4F 4F 46 20 |..**CRASH PROOF |
00001360: 49 4E 50 55 54 00 6E 17 56 09 9F 31 2C 30 00 7D |INPUT.n.V..1,0.}|
00001370: 17 60 09 84 31 2C 41 24 28 52 2C 43 29 00 92 17 |.`..1,A$(R,C)...|
00001380: 6A 09 8B 41 24 28 52 2C 43 29 B2 22 22 A7 32 34 |j..A$(R,C)."".24|
00001390: 30 30 00 9A 17 74 09 A0 20 31 00 A0 17 7E 09 8E |00...t.. 1...~..|
000013A0: 00 B9 17 88 09 8F 20 2A 2A 53 52 20 54 4F 20 50 |...... **SR TO P|
000013B0: 52 49 4E 54 20 46 49 4C 45 00 C5 17 92 09 99 C7 |RINT FILE.......|
000013C0: 28 31 34 37 29 00 D0 17 9C 09 8D 20 32 36 36 30 |(147)...... 2660|
000013D0: 00 FC 17 A6 09 53 B2 31 |.....S.1 |
....D.. A$(100,5)...N..G(147).I.X.."O...
................................P.V...."
.CREATE FILE 1."..
....".
..O....".SAVE FILE
2."... ..".
..(....".LOAD FILE
3.".T....".
.......".DISPLAY FILE
4."...H..".
..Z.R..".RET
RIEVE RECORD/S 5."......
". ..3
....".MODIFY RECORD
6."._....".
.......".SORT COLUMN
7.......".
.......".COLUMN TOTALS/AVE
RAGES 8......."L.............
.......................":.:.:..M."..".
.";"ENTER OPTION NUMBER";".
.".`.,..K$:.K$."".300.|.6.E$."INPUT U
NACCEPTABLE". .@..E(K$).1.E(K$).8..E$:.:
.:.:.290.R.J.. E(K$). 340,680,980,1780,1
830,2180,1250,1500...T..**INPUT LIMITS..
.^.R$."LIMIT IS 100!":C$."LIMIT IS 4!".!
.H..G(147):..240).F.R.."HOW MANY RECORDS
?";.25);:.2380.[.|..:Y.E(A$(R,C)):..W...
.Y.1.Y.100..R$:.:.:.370......"HOW MANY C
OLUMNS?";.25);:.2380......:X.E(A$(R,C)):
..K....X.1.X.4..C$:.:.:.400......G(147):
M.1......"GIVE COLUMN TITLE";M;.25);:.23
80...B..:.:C1$(M).A$(R,C).(.L.T1$.C1$(1)
.6.V.. M.X.490.E...M.M.1:.440.E....**INP
UTTTING ENTIRE RECORD.Q....G(147)......"
........................................
".K...." COMMENCE ENTERING RECORDS
":......." PRESS .RETURN. AFTER EA
CH ENTRY":..*...."......................
...................F.&.W$.".WARNING..DAT
A ACCEPTED.INCONVENIENT.":IR$."ENTER ".R
.0.. R.1.Y.}.:..C.1.X...D..C..1.610...N.
.IR$;T1$;.25);:. 2380...X..:. 640.P.B..:
.IR$;C1$(C);.25);:. 2380...L..:. C(A$(R,
C)).7. 640...V..:.W$.......+....:.".....
..................................".1...
..:....110.K....**SAVE FILE.B....G(147):
..240):T.2......:."ENTER FILE NAME";.18)
;:.2380.A.F..G(147):..240):."WILL THIS B
E LAST FILE ON THIS TAPE?...P.."ANSWER Y
(YES) OR N(NO)":....Z.. K$:. K$."". 730.
..... K$."N". T.1.......120).;...."HAVE
YOU INSERTED A CASSETTE?":..L...."HAVE Y
OU REWOUND IT TO DESIRED POSITION":.....
.."HAVE YOU SWITCHED MOTOR OFF?":.:.....
..".YOU MUST NOW ANSWER Y(YES).".N. ..K$
:.K$.."Y". 800...*.F$.A$(R,C)...4..G(147
):..240)...>.. 1650...H..1,1,T,F$...R..1
,Y:.1,X.#.\.. R.1.Y./.F.. C.1.X.>.P..1,A
$(R,C).F.Z..:..Q....H.1.X._....1,C1$(H).
E.....P.... 1670.W... 1......:.:."DATA N
OW ON TAPE"...... 2620...J.. 110.C.T..G(
147):.:.**LOAD TAPE......"ENTER FILE NAM
E";.19);:. 2380......:..240)......**....
.."IS THIS FILE IN CASSETTE?":..7...."IS
IT REWOUND?":.._...."IS THE MOTOR SWITC
HED OFF?":.:.:..Z...."IF SO,ANSWER Y(YES
)"...$.. H$:. H$."". 1060...... H$.."Y".
1060...8..G(147):..240).G.B.F$.A$(R,C).
U.L..1,1,0,F$...V..1,Y$:.1,X$...`.. 1740
...J.Y.E(Y$):X.E(X$)...T.. R.1.Y...~.. C
.1.X.+....1,A$(R,C).6.... 1740.>....:..K
.... H.1. X.Y....1,C1$(H).D.... 1740.J.D
...X.N. 1:. 2620...X.. 110......**BUBBLE
SORT......G(147).C...."ENTER COLUMN HEA
DING";.30);.N.... 2380.Y.... 2620......G
(147):..250);"SORT PROCEEDING".....D$.A$
(R,C)...(.. M.1.X...2.. D$.C1$(M). C.M.4
.<...?.F..J.2.Y.I.P.R.J.1.X.Z.A$.A$(J,C)
.N.D..A$..A$(R,C).1470...N.A$(R.1,C).A$(
R,C)...X..L.1.X.....T$.A$(R,L).....A$(R,
L).A$(R.1,L).E...A$(R.1,L).T$.L. ..L.V..
.R.R.1...... R.0. 1380.....A$(R.1,C).A$.
..H..J...R..110......G(147).#...."TOTALS
":....... 2660.W....T5(1);.15)T5(2);.23)
T5(3);.31)T5(4)......"..................
......................":.:......."AVERAG
ES":.......2660..."..Y.0.Y.1E.30.C.,..G.
1.X...6.T5(G).T5(G).Y:T5(G)..(100.T5(G))
.100...@.....J..T5(1);.15)T5(2);.23)T5(3
);.31)T5(4).K.T.."......................
..................".U.^..2620.^.H..110.{
.R..**PREPARE TO OPEN WRITE...|.. 214,12
2:.215,2......**PREPARE TO CLOSE WRITE.D
.... B(187).180.1700.J.......... 59411,5
3:T8.TI......TI.T8.6.1710......59411,61.
..B...!.L..**FOLLOW INPUT#1 BREAK.>.V..
(ST).0 . (ST).64. 1770.R...."STATUS ERRO
R".X.....J....**PRINT FILE.U.... 2440.{.
......... 2620......110...&..**SELECT RE
CORD...0.. 1870...:.. 2620.D.D.. 110.Z.N
..**EXAMINE RECORD...X..G(147):.:M2.0...
B..M2.1.1980.$.L..:.:.:."ENTER COLUMN HE
ADING.....";.4.V.J.0:Z.0:K.0.?.... 2380.
V...F$.A$(R,C):.:M$.F$.A....M.1.X.Z....
F$.C1$(M). Q.M:J.1............ J.0..:."N
O SUCH COLUMN EXISTS":.:. 1900.N....:."E
NTER SEARCH DATA....";.Z.F.Z.0:K.0...P..
2380...Z..:D1.0......G(147):..120).....
. 2660.....R$.A$(R,C).(....R.1.Y.0...Z.0
.;....C.1.X.M. .. A$(R,Q).R$. .A$(R,C);.
08.8.C):Z.1:R1.R:D1.1.S.*.....4..Z.0.212
0...>.....H.....R.."....................
...................."...\..:.D1.0.."RECO
RD NOT ON FILE":G.1...F.....P.. 2620...Z
..110......**MODIF REC.....M2.1:Q.1.'...
.G(147).S...."THE TERM SEARCH DATA BELOW
REFORS TO".O...." ...........".
....."WHICH ";C1$(1)......1980...J.....T
..D1..0. 2290......:. 2620......110.I...
F$.C1$(1)......"PROCEED TO MODIFY":.....
..C.1.X......IR$;"";C1$(C);".....";.20).
.....2380.(.$.L$.A$(R,C).<...A$(R1,C).L$
:.:..B.8...L.B.. 110.E.L..**CRASH PROOF
INPUT.N.V..1,0.}.`..1,A$(R,C)...J..A$(R,
C)."".2400...T. 1. .~........ **SR TO P
RINT FILE.E....G(147).P.... 2660.....S.1
> CLICK IMAGE PREVIEW FOR FULL MODAL