:59468,12: EQUIP COPYRIGHT(C)1980 GLEN FISHERT CURSOR #20,MAY,1980r BOX 550,GOLETA,CA.93017 AS OF 7 JUN 80ZPG$"EQUIP":NM$"20":62000dFD1:DR$"0:":MN150:MI12OF4:CH$"":FC0T$:T$""CH$CH$(T$,1):210T$,T:T$""FCFC1:260P,HFFC1:DT$(MI1,HF),FL$(HF),FP(HF),IT$(HF)i6:I0(CH$):T$:I@I0HF:FL$(I),FP(I):I"TODAY'S DATE? ";:60000:TD$IN$FI$"NONAME":CT$"":DC$TD$:CI0:SV0:200050300lI11600:I&OF$""FI$OF$:CT$OC$:DC$OD$:SV(SV)6SVDC$TD$^"FILE: "FI$:"LAST CHANGED: "DC$"CONTAINS: "CT$:"HAS"CI"ITEM";:CI1"S";4:T2:"":I1(CH$):T$>T)""(T$,1)""(T$,2);HTT20:T40T2::RI8" "]"CHOICE? ";:60000:Z$(IN$,1)I1(CH$):Z$(CH$,I,1)2300I:2200Z$PC$SV(SV). PC$Z$:I4000,5000,9000,10000,8000,11000,6000,3000,7000` "CHOICE"I"ISN'T THERE.":1900"j "OUT OF MEMORY!":1900b "FILE HASN'T BEEN SAVED. ":"THIS IS YOUR ONLY WARNING.v SV(SV):1900 SV02500 "":SV02500"":OF$FI$:OC$CT$:OD$DC$"NAME OF NEW FILE? ";:60000:FI$IN$:IN$""1950 FD24100) DR1:50100:50300:ER4100C "NAME ALREADY THERE{ PR$"WANT TO USE IT ANYWAY? ":51000:IN$"N"4020 "WHAT WILL IT CONTAIN? ";:60000:CT$IN$:CT$""1950 hDC$TD$:CI0:SV0:OF$"":2000 " CIMI"ONLY";MI;"ITEMS ALLOWED":1900# (0)MN24108 P"ITEM"CI1":i ZI0HF:FL$(I)": ";:60000:IN$""I02000 xIT$(I)IN$:I:CI1I0:5700 ICI101:DT$(I,0)IT$(0)II1:5700 J0HF:DT$(I1,J)DT$(I,J):J:".";:I:I0 DJ0HF:DT$(I,J)IT$(J):J::SV1:CICI1:5100C pCI0"NOTHING TO LIST.":1900\ zI0:PG23:WD40:1,3 "";:41000:8)"PRESS RETURN FOR MORE. 52000:Z$CR$ICI6100 1:2000 XCI0"NOTHING TO PRINT.":1900 bI0:PG60:WD80:1,4" l"ADJUST PAPER, AND PRESS RETURN":52000I 41000:LNPG6TLN1PG6:1:TX ICI7100e 1:2000u @FD28200 T$(FI$,12)".OLD" 15,8,15:15,"S"DR$T$:15,"R"DR$T$"="FI$:15  DR1:50100  1,"*EQUIP*"CR$;:50000:1,CT$CR$;:50000*  1,DC$CR$;:50000:1,CI;CR$FC;CR$;:50000\ 0 I0CI1:".";:J0HF:1,DT$(I,J)CR$;:J:Ir N 50300:SV0:2000 (#SV02500 2#OF$FI$:OC$CT$:OD$DC$:" <#"NAME OF FILE? ";:60000:FI$IN$:IN$""1950 P#DR0:50100:ER9020+d#9500:IN$"*EQUIP*""I DIDN'T MAKE THAT FILE!":1800F#9500:CT$IN$:ST9400a#9500:DC$IN$:ST9400~#9500:NI(IN$):ST9400#NIMI"FILE HAS TOO MANY ITEMS.":1800#9500:ST9400#FC(IN$)"WRONG NUMBER OF FIELDS IN FILE.":18000#CINI:SV0:OF$"":I0CI1:".";:J0HF:ST9300Z$9500:DT$(I,J)IN$:J:I:50300:2000T$""CII"ITEMS WERE LOST SOMEHOW.!:CI=I:GOTO1800$"FILE TOO SHORT!":1800%IN$""&%#1,Z$:Z$CR$ST0IN$IN$Z$:95100%'"!'"DELETE WHICH ITEM? ";:60000:IN$""2000T.'T(IN$)1:T0TCI"NO SUCH ITEM.":10010L'"ITEM"T1":":J0HF:FL$(J)": "DT$(T,J):J`'PR$"DELETE IT? ":51000:IN$"N"2000t'TCI110200~'IT1CI1:".";:J0HF:DT$(I1,J)DT$(I,J):J:I-'CICI1:SV1:J0HF:DT$(CI,J)"":J:20005*"G+(0)MN2410x +"CHANGE WHICH ITEM? ";:60000:IN$""2000+T(IN$)1:T0TCI"NO SUCH ITEM.":11020\+"ITEM"T1":":J0HF:IT$(J)DT$(T,J):FL$(J)": "IT$(J)p+FL$(J)": ";:60000:IN$""IT$(J)IN$:SV1"+J1+T111300O+DT$(T1,0)IT$(0)11300+J0HF:DT$(T,J)DT$(T1,J):J:".";:TT1:11200$,TCI111400.,IT$(0)DT$(T1,0)114008,J0HF:DT$(T,J)DT$(T1,J):J:".";:TT1:11300,J0HF:DT$(T,J)IT$(J):J:20003@T1:P0:J0HF:FP(J)PTT1L^P(FP(J))(IT$(J))khPWDTT1:PPWD:40040|J:LNTPGT0:P0:J0HF:FP(J)040900C(FP(J))OF1:40700:IT$IT$(J):40600:J:40900:P(IT$)WD40650"40800:1,(IT$,WDP);:IT$(IT$,WDP1)9PWD:40900:40600UʞIT$""40800:1,IT$;fޞPP(IT$):wPC40900CWD40900:CCWDOF:4070540800:TCP:T01,T);PC:`POFjIT01,(" "(IT),OF1)" ";tIT01,OF);~IT1:POF:,ğPWD40800:1>ΟLNLN1:P0:m(LN0:IT1:J0HF:IT$(J)FL$(J):J:40000z