EQUIP
FILE INFORMATION
FILENAME(S): EQUIP
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:07:11
APPEARS ON: 1 disk(s)
FILE HASH
bf541ccc9be5f6515ae89a63d917271cfb44cfbf0d5f8469fd59b4be6602ddff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CURSOR 4 | EQUIP | PRG | DuncanTwain | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 11 04 00 00 9C 3A 97 35 39 34 36 38 2C 31 |.......:.59468,1|
00000010: 32 00 3A 04 01 00 8F 20 45 51 55 49 50 20 43 4F |2.:.... EQUIP CO|
00000020: 50 59 52 49 47 48 54 28 43 29 31 39 38 30 20 47 |PYRIGHT(C)1980 G|
00000030: 4C 45 4E 20 46 49 53 48 45 52 00 54 04 05 00 8F |LEN FISHER.T....|
00000040: 20 43 55 52 53 4F 52 20 23 32 30 2C 4D 41 59 2C | CURSOR #20,MAY,|
00000050: 31 39 38 30 00 72 04 06 00 8F 20 42 4F 58 20 35 |1980.r.... BOX 5|
00000060: 35 30 2C 47 4F 4C 45 54 41 2C 43 41 2E 39 33 30 |50,GOLETA,CA.930|
00000070: 31 37 00 87 04 0A 00 8F 20 41 53 20 4F 46 20 37 |17...... AS OF 7|
00000080: 20 4A 55 4E 20 38 30 00 A7 04 5A 00 50 47 24 B2 | JUN 80...Z.PG$.|
00000090: 22 45 51 55 49 50 22 3A 4E 4D 24 B2 22 32 30 22 |"EQUIP":NM$."20"|
000000A0: 3A 8D 36 32 30 30 30 00 C6 04 64 00 46 44 B2 31 |:.62000...d.FD.1|
000000B0: 3A 44 52 24 B2 22 30 3A 22 3A 4D 4E B2 31 35 30 |:DR$."0:":MN.150|
000000C0: 3A 4D 49 B2 31 32 00 DB 04 C8 00 4F 46 B2 34 3A |:MI.12.....OF.4:|
000000D0: 43 48 24 B2 22 22 3A 46 43 B2 30 00 00 05 D2 00 |CH$."":FC.0.....|
000000E0: 87 54 24 3A 8B 54 24 B3 B1 22 22 A7 43 48 24 B2 |.T$:.T$.."".CH$.|
000000F0: 43 48 24 AA C8 28 54 24 2C 31 29 3A 89 32 31 30 |CH$..(T$,1):.210|
00000100: 00 1F 05 04 01 87 54 24 2C 54 3A 8B 54 24 B3 B1 |......T$,T:.T$..|
00000110: 22 22 A7 46 43 B2 46 43 AA 31 3A 89 32 36 30 00 |"".FC.FC.1:.260.|
00000120: 50 05 2C 01 48 46 B2 46 43 AB 31 3A 86 44 54 24 |P.,.HF.FC.1:.DT$|
00000130: 28 4D 49 AB 31 2C 48 46 29 2C 46 4C 24 28 48 46 |(MI.1,HF),FL$(HF|
00000140: 29 2C 46 50 28 48 46 29 2C 49 54 24 28 48 46 29 |),FP(HF),IT$(HF)|
00000150: 00 69 05 36 01 8C 3A 81 49 B2 30 A4 C3 28 43 48 |.i.6..:.I.0..(CH|
00000160: 24 29 3A 87 54 24 3A 82 49 00 86 05 40 01 81 49 |$):.T$:.I...@..I|
00000170: B2 30 A4 48 46 3A 87 46 4C 24 28 49 29 2C 46 50 |.0.HF:.FL$(I),FP|
00000180: 28 49 29 3A 82 49 00 AC 05 F4 01 99 22 54 4F 44 |(I):.I......"TOD|
00000190: 41 59 27 53 20 44 41 54 45 3F 20 22 3B 3A 8D 36 |AY'S DATE? ";:.6|
000001A0: 30 30 30 30 3A 54 44 24 B2 49 4E 24 00 DC 05 E8 |0000:TD$.IN$....|
000001B0: 03 46 49 24 B2 22 4E 4F 4E 41 4D 45 22 3A 43 54 |.FI$."NONAME":CT|
000001C0: 24 B2 22 22 3A 44 43 24 B2 54 44 24 3A 43 49 B2 |$."":DC$.TD$:CI.|
000001D0: 30 3A 53 56 B2 30 3A 89 32 30 30 30 00 E7 05 08 |0:SV.0:.2000....|
000001E0: 07 8D 35 30 33 30 30 00 F8 05 6C 07 81 49 B2 31 |..50300...l..I.1|
000001F0: A4 31 36 30 30 3A 82 49 00 26 06 9E 07 8B 4F 46 |.1600:.I.&....OF|
00000200: 24 B3 B1 22 22 A7 46 49 24 B2 4F 46 24 3A 43 54 |$.."".FI$.OF$:CT|
00000210: 24 B2 4F 43 24 3A 44 43 24 B2 4F 44 24 3A 53 56 |$.OC$:DC$.OD$:SV|
00000220: B2 B6 28 53 56 29 00 36 06 D0 07 8B 53 56 A7 44 |..(SV).6....SV.D|
00000230: 43 24 B2 54 44 24 00 5E 06 DA 07 99 22 93 46 49 |C$.TD$.^....".FI|
00000240: 4C 45 3A 20 22 46 49 24 3A 99 22 11 4C 41 53 54 |LE: "FI$:.".LAST|
00000250: 20 43 48 41 4E 47 45 44 3A 20 22 44 43 24 00 92 | CHANGED: "DC$..|
00000260: 06 EE 07 99 22 11 43 4F 4E 54 41 49 4E 53 3A 20 |....".CONTAINS: |
00000270: 22 43 54 24 3A 99 22 11 48 41 53 22 43 49 22 49 |"CT$:.".HAS"CI"I|
00000280: 54 45 4D 22 3B 3A 8B 43 49 B3 B1 31 A7 99 22 53 |TEM";:.CI..1.."S|
00000290: 22 3B 00 B2 06 34 08 8C 3A 54 B2 32 3A 99 22 11 |";...4..:T.2:.".|
000002A0: 11 22 3A 81 49 B2 31 A4 C3 28 43 48 24 29 3A 87 |.":.I.1..(CH$):.|
000002B0: 54 24 00 D4 06 3E 08 99 A3 54 29 22 91 A4 11 9D |T$...>...T)"....|
000002C0: 12 22 C8 28 54 24 2C 31 29 22 92 22 CA 28 54 24 |.".(T$,1)".".(T$|
000002D0: 2C 32 29 3B 00 ED 06 48 08 54 B2 54 AA 32 30 3A |,2);...H.T.T.20:|
000002E0: 8B 54 B1 34 30 A7 54 B2 32 3A 99 3A 99 00 F4 06 |.T.40.T.2:.:....|
000002F0: 52 08 82 49 00 38 07 98 08 99 22 13 11 11 11 11 |R..I.8....".....|
00000300: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 22 00 5D 07 A2 08 99 22 91 | ".]....".|
00000340: 43 48 4F 49 43 45 3F 20 22 3B 3A 8D 36 30 30 30 |CHOICE? ";:.6000|
00000350: 30 3A 5A 24 B2 C8 28 49 4E 24 2C 31 29 00 81 07 |0:Z$..(IN$,1)...|
00000360: AC 08 81 49 B2 31 A4 C3 28 43 48 24 29 3A 8B 5A |...I.1..(CH$):.Z|
00000370: 24 B2 CA 28 43 48 24 2C 49 2C 31 29 A7 32 33 30 |$..(CH$,I,1).230|
00000380: 30 00 8E 07 B6 08 82 49 3A 89 32 32 30 30 00 A4 |0......I:.2200..|
00000390: 07 FC 08 8B 5A 24 B3 B1 50 43 24 A7 53 56 B2 B6 |....Z$..PC$.SV..|
000003A0: 28 53 56 29 00 E1 07 2E 09 50 43 24 B2 5A 24 3A |(SV).....PC$.Z$:|
000003B0: 91 49 89 34 30 30 30 2C 35 30 30 30 2C 39 30 30 |.I.4000,5000,900|
000003C0: 30 2C 31 30 30 30 30 2C 38 30 30 30 2C 31 31 30 |0,10000,8000,110|
000003D0: 30 30 2C 36 30 30 30 2C 33 30 30 30 2C 37 30 30 |00,6000,3000,700|
000003E0: 30 00 05 08 60 09 99 22 11 43 48 4F 49 43 45 22 |0...`..".CHOICE"|
000003F0: 49 22 49 53 4E 27 54 20 54 48 45 52 45 2E 22 3A |I"ISN'T THERE.":|
00000400: 89 31 39 30 30 00 22 08 6A 09 99 22 11 4F 55 54 |.1900.".j..".OUT|
00000410: 20 4F 46 20 4D 45 4D 4F 52 59 21 22 3A 89 31 39 | OF MEMORY!":.19|
00000420: 30 30 00 62 08 C4 09 99 22 11 46 49 4C 45 20 48 |00.b....".FILE H|
00000430: 41 53 4E 27 54 20 42 45 45 4E 20 53 41 56 45 44 |ASN'T BEEN SAVED|
00000440: 2E 20 22 3A 99 22 54 48 49 53 20 49 53 20 59 4F |. ":."THIS IS YO|
00000450: 55 52 20 12 4F 4E 4C 59 92 20 57 41 52 4E 49 4E |UR .ONLY. WARNIN|
00000460: 47 2E 00 76 08 CE 09 53 56 B2 AB B6 28 53 56 29 |G..v...SV...(SV)|
00000470: 3A 89 31 39 30 30 00 85 08 B8 0B 8B 53 56 B1 30 |:.1900......SV.0|
00000480: A7 32 35 30 30 00 90 08 C2 0B 99 22 93 22 3A 80 |.2500......".":.|
00000490: 00 9F 08 A0 0F 8B 53 56 B1 30 A7 32 35 30 30 00 |......SV.0.2500.|
000004A0: C0 08 AA 0F 99 22 93 22 3A 4F 46 24 B2 46 49 24 |.....".":OF$.FI$|
000004B0: 3A 4F 43 24 B2 43 54 24 3A 4F 44 24 B2 44 43 24 |:OC$.CT$:OD$.DC$|
000004C0: 00 F8 08 B4 0F 99 22 11 4E 41 4D 45 20 4F 46 20 |......".NAME OF |
000004D0: 4E 45 57 20 46 49 4C 45 3F 20 22 3B 3A 8D 36 30 |NEW FILE? ";:.60|
000004E0: 30 30 30 3A 46 49 24 B2 49 4E 24 3A 8B 49 4E 24 |000:FI$.IN$:.IN$|
000004F0: B2 22 22 A7 31 39 35 30 00 08 09 C8 0F 8B 46 44 |."".1950......FD|
00000500: B3 B2 32 A7 34 31 30 30 00 29 09 D2 0F 44 52 B2 |..2.4100.)...DR.|
00000510: AB 31 3A 8D 35 30 31 30 30 3A 8D 35 30 33 30 30 |.1:.50100:.50300|
00000520: 3A 8B 45 52 A7 34 31 30 30 00 43 09 E6 0F 99 22 |:.ER.4100.C...."|
00000530: 11 4E 41 4D 45 20 41 4C 52 45 41 44 59 20 54 48 |.NAME ALREADY TH|
00000540: 45 52 45 00 7B 09 F0 0F 50 52 24 B2 22 11 57 41 |ERE.{...PR$.".WA|
00000550: 4E 54 20 54 4F 20 55 53 45 20 49 54 20 41 4E 59 |NT TO USE IT ANY|
00000560: 57 41 59 3F 20 22 3A 8D 35 31 30 30 30 3A 8B 49 |WAY? ":.51000:.I|
00000570: 4E 24 B2 22 4E 22 A7 34 30 32 30 00 B7 09 04 10 |N$."N".4020.....|
00000580: 99 22 11 57 48 41 54 20 57 49 4C 4C 20 49 54 20 |.".WHAT WILL IT |
00000590: 43 4F 4E 54 41 49 4E 3F 20 22 3B 3A 8D 36 30 30 |CONTAIN? ";:.600|
000005A0: 30 30 3A 43 54 24 B2 49 4E 24 3A 8B 43 54 24 B2 |00:CT$.IN$:.CT$.|
000005B0: 22 22 A7 31 39 35 30 00 DA 09 68 10 44 43 24 B2 |"".1950...h.DC$.|
000005C0: 54 44 24 3A 43 49 B2 30 3A 53 56 B2 30 3A 4F 46 |TD$:CI.0:SV.0:OF|
000005D0: 24 B2 22 22 3A 89 32 30 30 30 00 E2 09 88 13 99 |$."":.2000......|
000005E0: 22 93 00 11 0A EC 13 8B 43 49 B2 4D 49 A7 99 22 |".......CI.MI.."|
000005F0: 11 12 4F 4E 4C 59 22 3B 4D 49 3B 22 49 54 45 4D |..ONLY";MI;"ITEM|
00000600: 53 20 41 4C 4C 4F 57 45 44 92 22 3A 89 31 39 30 |S ALLOWED.":.190|
00000610: 30 00 23 0A F6 13 8B B8 28 30 29 B3 4D 4E A7 32 |0.#.....(0).MN.2|
00000620: 34 31 30 00 38 0A 50 14 99 22 11 49 54 45 4D 22 |410.8.P..".ITEM"|
00000630: 43 49 AA 31 22 9D 3A 11 00 69 0A 5A 14 81 49 B2 |CI.1".:..i.Z..I.|
00000640: 30 A4 48 46 3A 99 46 4C 24 28 49 29 22 3A 20 22 |0.HF:.FL$(I)": "|
00000650: 3B 3A 8D 36 30 30 30 30 3A 8B 49 4E 24 B2 22 22 |;:.60000:.IN$.""|
00000660: AF 49 B2 30 A7 32 30 30 30 00 8B 0A 78 14 49 54 |.I.0.2000...x.IT|
00000670: 24 28 49 29 B2 49 4E 24 3A 82 49 3A 8B 43 49 B3 |$(I).IN$:.I:.CI.|
00000680: 31 A7 49 B2 30 3A 89 35 37 30 30 00 BA 0A BE 14 |1.I.0:.5700.....|
00000690: 81 49 B2 43 49 AB 31 A4 30 A9 AB 31 3A 8B 44 54 |.I.CI.1.0..1:.DT|
000006A0: 24 28 49 2C 30 29 B3 B2 49 54 24 28 30 29 A7 49 |$(I,0)..IT$(0).I|
000006B0: B2 49 AA 31 3A 89 35 37 30 30 00 EA 0A D2 14 81 |.I.1:.5700......|
000006C0: 4A B2 30 A4 48 46 3A 44 54 24 28 49 AA 31 2C 4A |J.0.HF:DT$(I.1,J|
000006D0: 29 B2 44 54 24 28 49 2C 4A 29 3A 82 4A 3A 99 22 |).DT$(I,J):.J:."|
000006E0: 2E 22 3B 3A 82 49 3A 49 B2 30 00 1E 0B 44 16 81 |.";:.I:I.0...D..|
000006F0: 4A B2 30 A4 48 46 3A 44 54 24 28 49 2C 4A 29 B2 |J.0.HF:DT$(I,J).|
00000700: 49 54 24 28 4A 29 3A 82 4A 3A 99 3A 53 56 B2 31 |IT$(J):.J:.:SV.1|
00000710: 3A 43 49 B2 43 49 AA 31 3A 89 35 31 30 30 00 43 |:CI.CI.1:.5100.C|
00000720: 0B 70 17 8B 43 49 B2 30 A7 99 22 11 4E 4F 54 48 |.p..CI.0..".NOTH|
00000730: 49 4E 47 20 54 4F 20 4C 49 53 54 2E 22 3A 89 31 |ING TO LIST.":.1|
00000740: 39 30 30 00 5C 0B 7A 17 49 B2 30 3A 50 47 B2 32 |900.\.z.I.0:PG.2|
00000750: 33 3A 57 44 B2 34 30 3A 9F 31 2C 33 00 8A 0B D4 |3:WD.40:.1,3....|
00000760: 17 99 22 93 22 3B 3A 8D 34 31 30 30 30 3A 99 A3 |..".";:.41000:..|
00000770: 38 29 22 12 50 52 45 53 53 20 52 45 54 55 52 4E |8)".PRESS RETURN|
00000780: 20 46 4F 52 20 4D 4F 52 45 2E 00 A7 0B FC 17 8D | FOR MORE.......|
00000790: 35 32 30 30 30 3A 8B 5A 24 B2 43 52 24 AF 49 B3 |52000:.Z$.CR$.I.|
000007A0: 43 49 A7 36 31 30 30 00 B4 0B 06 18 A0 31 3A 89 |CI.6100......1:.|
000007B0: 32 30 30 30 00 DA 0B 58 1B 8B 43 49 B2 30 A7 99 |2000...X..CI.0..|
000007C0: 22 11 4E 4F 54 48 49 4E 47 20 54 4F 20 50 52 49 |".NOTHING TO PRI|
000007D0: 4E 54 2E 22 3A 89 31 39 30 30 00 F3 0B 62 1B 49 |NT.":.1900...b.I|
000007E0: B2 30 3A 50 47 B2 36 30 3A 57 44 B2 38 30 3A 9F |.0:PG.60:WD.80:.|
000007F0: 31 2C 34 00 22 0C 6C 1B 99 22 41 44 4A 55 53 54 |1,4.".l.."ADJUST|
00000800: 20 50 41 50 45 52 2C 20 41 4E 44 20 50 52 45 53 | PAPER, AND PRES|
00000810: 53 20 12 52 45 54 55 52 4E 92 22 3A 8D 35 32 30 |S .RETURN.":.520|
00000820: 30 30 00 49 0C BC 1B 8D 34 31 30 30 30 3A 8B 4C |00.I....41000:.L|
00000830: 4E B3 50 47 AA 36 A7 81 54 B2 4C 4E AA 31 A4 50 |N.PG.6..T.LN.1.P|
00000840: 47 AA 36 3A 98 31 3A 82 54 00 58 0C D0 1B 8B 49 |G.6:.1:.T.X....I|
00000850: B3 43 49 A7 37 31 30 30 00 65 0C DA 1B A0 31 3A |.CI.7100.e....1:|
00000860: 89 32 30 30 30 00 75 0C 40 1F 8B 46 44 B3 B2 32 |.2000.u.@..FD..2|
00000870: A7 38 32 30 30 00 8D 0C AE 1F 54 24 B2 C8 28 46 |.8200.....T$..(F|
00000880: 49 24 2C 31 32 29 AA 22 2E 4F 4C 44 22 00 BE 0C |I$,12).".OLD"...|
00000890: B8 1F 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |...15,8,15:.15,"|
000008A0: 53 22 44 52 24 54 24 3A 98 31 35 2C 22 52 22 44 |S"DR$T$:.15,"R"D|
000008B0: 52 24 54 24 22 3D 22 46 49 24 3A A0 31 35 00 CE |R$T$"="FI$:.15..|
000008C0: 0C 08 20 44 52 B2 31 3A 8D 35 30 31 30 30 00 FC |.. DR.1:.50100..|
000008D0: 0C 12 20 98 31 2C 22 2A 45 51 55 49 50 2A 22 43 |.. .1,"*EQUIP*"C|
000008E0: 52 24 3B 3A 8D 35 30 30 30 30 3A 98 31 2C 43 54 |R$;:.50000:.1,CT|
000008F0: 24 43 52 24 3B 3A 8D 35 30 30 30 30 00 2A 0D 1C |$CR$;:.50000.*..|
00000900: 20 98 31 2C 44 43 24 43 52 24 3B 3A 8D 35 30 30 | .1,DC$CR$;:.500|
00000910: 30 30 3A 98 31 2C 43 49 3B 43 52 24 46 43 3B 43 |00:.1,CI;CR$FC;C|
00000920: 52 24 3B 3A 8D 35 30 30 30 30 00 5C 0D 30 20 81 |R$;:.50000.\.0 .|
00000930: 49 B2 30 A4 43 49 AB 31 3A 99 22 2E 22 3B 3A 81 |I.0.CI.1:.".";:.|
00000940: 4A B2 30 A4 48 46 3A 98 31 2C 44 54 24 28 49 2C |J.0.HF:.1,DT$(I,|
00000950: 4A 29 43 52 24 3B 3A 82 4A 3A 82 49 00 72 0D 4E |J)CR$;:.J:.I.r.N|
00000960: 20 8D 35 30 33 30 30 3A 53 56 B2 30 3A 89 32 30 | .50300:SV.0:.20|
00000970: 30 30 00 81 0D 28 23 8B 53 56 B1 30 A7 32 35 30 |00...(#.SV.0.250|
00000980: 30 00 A1 0D 32 23 4F 46 24 B2 46 49 24 3A 4F 43 |0...2#OF$.FI$:OC|
00000990: 24 B2 43 54 24 3A 4F 44 24 B2 44 43 24 3A 99 22 |$.CT$:OD$.DC$:."|
000009A0: 93 00 D5 0D 3C 23 99 22 11 4E 41 4D 45 20 4F 46 |....<#.".NAME OF|
000009B0: 20 46 49 4C 45 3F 20 22 3B 3A 8D 36 30 30 30 30 | FILE? ";:.60000|
000009C0: 3A 46 49 24 B2 49 4E 24 3A 8B 49 4E 24 B2 22 22 |:FI$.IN$:.IN$.""|
000009D0: A7 31 39 35 30 00 EE 0D 50 23 44 52 B2 30 3A 8D |.1950...P#DR.0:.|
000009E0: 35 30 31 30 30 3A 8B 45 52 A7 39 30 32 30 00 2B |50100:.ER.9020.+|
000009F0: 0E 64 23 8D 39 35 30 30 3A 8B 49 4E 24 B3 B1 22 |.d#.9500:.IN$.."|
00000A00: 2A 45 51 55 49 50 2A 22 A7 99 22 11 49 20 44 49 |*EQUIP*"..".I DI|
00000A10: 44 4E 27 54 20 4D 41 4B 45 20 54 48 41 54 20 46 |DN'T MAKE THAT F|
00000A20: 49 4C 45 21 22 3A 89 31 38 30 30 00 46 0E 8C 23 |ILE!":.1800.F..#|
00000A30: 8D 39 35 30 30 3A 43 54 24 B2 49 4E 24 3A 8B 53 |.9500:CT$.IN$:.S|
00000A40: 54 A7 39 34 30 30 00 61 0E 96 23 8D 39 35 30 30 |T.9400.a..#.9500|
00000A50: 3A 44 43 24 B2 49 4E 24 3A 8B 53 54 A7 39 34 30 |:DC$.IN$:.ST.940|
00000A60: 30 00 7E 0E A0 23 8D 39 35 30 30 3A 4E 49 B2 C5 |0.~..#.9500:NI..|
00000A70: 28 49 4E 24 29 3A 8B 53 54 A7 39 34 30 30 00 AC |(IN$):.ST.9400..|
00000A80: 0E A5 23 8B 4E 49 B1 4D 49 A7 99 22 11 46 49 4C |..#.NI.MI..".FIL|
00000A90: 45 20 48 41 53 20 54 4F 4F 20 4D 41 4E 59 20 49 |E HAS TOO MANY I|
00000AA0: 54 45 4D 53 2E 22 3A 89 31 38 30 30 00 BF 0E AA |TEMS.":.1800....|
00000AB0: 23 8D 39 35 30 30 3A 8B 53 54 A7 39 34 30 30 00 |#.9500:.ST.9400.|
00000AC0: F9 0E B4 23 8B 46 43 B3 B1 C5 28 49 4E 24 29 A7 |...#.FC...(IN$).|
00000AD0: 99 22 11 57 52 4F 4E 47 20 4E 55 4D 42 45 52 20 |.".WRONG NUMBER |
00000AE0: 4F 46 20 46 49 45 4C 44 53 20 |OF FIELDS |
.......:.59468,12.:.... EQUIP COPYRIGHT(
C)1980 GLEN FISHER.T.... CURSOR #20,MAY,
1980.R.... BOX 550,GOLETA,CA.93017......
AS OF 7 JUN 80...Z.PG$."EQUIP":NM$."20"
:.62000.F.D.FD.1:DR$."0:":MN.150:MI.12..
.H.OF.4:CH$."":FC.0...R..T$:.T$.."".CH$.
CH$.H(T$,1):.210......T$,T:.T$.."".FC.FC
.1:.260.P.,.HF.FC.1:.DT$(MI.1,HF),FL$(HF
),FP(HF),IT$(HF).I.6..:.I.0.C(CH$):.T$:.
I...@..I.0.HF:.FL$(I),FP(I):.I......"TOD
AY'S DATE? ";:.60000:TD$.IN$.....FI$."NO
NAME":CT$."":DC$.TD$:CI.0:SV.0:.2000....
..50300...L..I.1.1600:.I.&....OF$.."".FI
$.OF$:CT$.OC$:DC$.OD$:SV..(SV).6.P..SV.D
C$.TD$.^.Z..".FILE: "FI$:.".LAST CHANGED
: "DC$......".CONTAINS: "CT$:.".HAS"CI"I
TEM";:.CI..1.."S";...4..:T.2:."..":.I.1.
C(CH$):.T$.T.>...T)"....."H(T$,1)"."J(T$
,2);...H.T.T.20:.T.40.T.2:.:....R..I.8..
..".....................
".]....".CHOICE?
";:.60000:Z$.H(IN$,1)......I.1.C(CH$):.Z
$.J(CH$,I,1).2300......I:.2200......Z$..
PC$.SV..(SV).....PC$.Z$:.I.4000,5000,900
0,10000,8000,11000,6000,3000,7000...`.."
.CHOICE"I"ISN'T THERE.":.1900.".J..".OUT
OF MEMORY!":.1900.B.D..".FILE HASN'T BE
EN SAVED. ":."THIS IS YOUR .ONLY. WARNIN
G..V.N.SV...(SV):.1900......SV.0.2500...
B..".":.... ..SV.0.2500......".":OF$.FI$
:OC$.CT$:OD$.DC$......".NAME OF NEW FILE
? ";:.60000:FI$.IN$:.IN$."".1950...H..FD
..2.4100.).R.DR..1:.50100:.50300:.ER.410
0.C....".NAME ALREADY THERE.{...PR$.".WA
NT TO USE IT ANYWAY? ":.51000:.IN$."N".4
020......".WHAT WILL IT CONTAIN? ";:.600
00:CT$.IN$:.CT$."".1950.Z.H.DC$.TD$:CI.0
:SV.0:OF$."":.2000......".......CI.MI.."
..ONLY";MI;"ITEMS ALLOWED.":.1900.#.....
(0).MN.2410.8.P..".ITEM"CI.1".:..I.Z..I.
0.HF:.FL$(I)": ";:.60000:.IN$."".I.0.200
0...X.IT$(I).IN$:.I:.CI.1.I.0:.5700.....
.I.CI.1.0..1:.DT$(I,0)..IT$(0).I.I.1:.57
00...R..J.0.HF:DT$(I.1,J).DT$(I,J):.J:."
.";:.I:I.0...D..J.0.HF:DT$(I,J).IT$(J):.
J:.:SV.1:CI.CI.1:.5100.C.P..CI.0..".NOTH
ING TO LIST.":.1900.\.Z.I.0:PG.23:WD.40:
.1,3...T..".";:.41000:..8)".PRESS RETURN
FOR MORE.......52000:.Z$.CR$.I.CI.6100.
.... 1:.2000.Z.X..CI.0..".NOTHING TO PRI
NT.":.1900...B.I.0:PG.60:WD.80:.1,4.".L.
."ADJUST PAPER, AND PRESS .RETURN.":.520
00.I....41000:.LN.PG.6..T.LN.1.PG.6:.1:.
T.X.P..I.CI.7100.E.Z. 1:.2000.U.@..FD..2
.8200.....T$.H(FI$,12).".OLD"......15,8,
15:.15,"S"DR$T$:.15,"R"DR$T$"="FI$: 15.N
.. DR.1:.50100.... .1,"*EQUIP*"CR$;:.500
00:.1,CT$CR$;:.50000.*.. .1,DC$CR$;:.500
00:.1,CI;CR$FC;CR$;:.50000.\.0 .I.0.CI.1
:.".";:.J.0.HF:.1,DT$(I,J)CR$;:.J:.I.R.N
.50300:SV.0:.2000...(#.SV.0.2500...2#OF
$.FI$:OC$.CT$:OD$.DC$:."..U.<#.".NAME OF
FILE? ";:.60000:FI$.IN$:.IN$."".1950...
P#DR.0:.50100:.ER.9020.+.D#.9500:.IN$.."
*EQUIP*"..".I DIDN'T MAKE THAT FILE!":.1
800.F..#.9500:CT$.IN$:.ST.9400.A..#.9500
:DC$.IN$:.ST.9400.~. #.9500:NI.E(IN$):.S
T.9400....#.NI.MI..".FILE HAS TOO MANY I
TEMS.":.1800....#.9500:.ST.9400....#.FC.
.E(IN$)..".WRONG NUMBER OF FIELDS
> CLICK IMAGE PREVIEW FOR FULL MODAL