; want.seg.s ; created 05/30/87 on nocar goto no.car goto start no.car log "a:":link "main.seg","off" link.main log "a:":link "main.seg","return" show.file setint(1):copy f$:setint(""):return start log "b:":gf=0 open #1,"u.wants":a=mark(1):close:if not a goto start1 create "u.wants":open #1,"u.wants":position #1,31,0:print #1,"0" position #1,31,1:print #1,date$:close start1 open #1,"u.wants":position #1,31,1:input #1,a$:close print \"Wants List - "a$\:bb=0 print "Brief mode ";:if gf print "ON"\:else print "OFF"\ print "[L]ist, [A]dd, [D]elete,"\"[S]can, [H]elp, [Q]uit," input @0 "[T]oggle brief mode :" i$ if i$="Q" goto link.main if i$="H" f$="wants.hlp":gosub show.file:goto start1 if i$="L" goto list if i$="A" goto add if i$="D" goto delete if i$="S" bb=1:goto list if (i$="T") and gf gf=0:goto start1 if (i$="T") and not gf gf=1:goto start1 print \"%> Invalid Command <%":goto start1 list if not bb print \"Want List"\\md$:goto list2 print \"Scan Want List"\:input @2 "Enter program to search for :" i$:if not i$ goto start1 print \"Scanning..."\md$ list2 open #1,"u.wants":position #1,31,0:input #1,a:if not a close:print "No requests on file!":goto start1 for b=2 to a position #1,31,b:input #1,a$:if a$="EMPTY" next:close:goto start1 if bb and (not(instr(i$,a$))) next:close:goto start1 print "Entry #"b-1\"Program name :"a$:if not gf close if gf print md$:next:close:goto start1 f$="want"+str$(b):gosub show.file open #1,"u.wants" print \md$:next:close:goto start1 delete open #1,"u.wants":position #1,31,0:input #1,a:if not a close:print "No requests on file!":goto start1 print \"Delete a Request"\ input @1 "Enter entry # to delete :" b:if (b<1) or (b>a) close:goto start1 print \"Deleting..."; b=b+1 position #1,31,b:print #1,"EMPTY":close f$="want"+str$(b):kill f$ print chr$(8,6)"ed. ":goto start1 add print \"Add to Want List"\ open #1,"u.wants":position #1,31,0:input #1,a if not a x=2:position #1,31,0:print #1,x:goto add1 for b=2 to a:position #1,31,b:input #1,a$:if a$="EMPTY" x=b:b=a:next:goto add1 next:x=(a+1):position #1,31,0:print #1,x add1 input @3 "Enter name of ware :" i$:if not i$ print \"No turning back now!":goto add1 position #1,31,x:print #1,i$:close type print \"Program type -"\ open #1,"types":position #1,31,0:input #1,b:if b for a=1 to b:position #1,31,a:input #1,i$:print "["a") "i$:next if not b close:x$="Unknown":print x$:create "types":open #1,"types":position #1,31,0:print #1,"1":position #1,31,1:print #1,"Unknown":close:goto type1 print \"Program's type (1-"b;:input @0 ") #" a:if (a<1) or (a>b) close:goto type position #1,31,a:input #1,x$:close type1 input @0 \"[F]ile(s) or [D]isk(s)? " a$ if a$="D" input @1 "Side(s) needed (Sx-y,ALL) :" i$ if a$="D" a$="Disk(s)":else a$="File(s)" print \"Editor -- Enter a description"\".a = abort|.s = save|.h = help" edit(0):edit(1):if not edit(2) print "No description provided." print \"Saving..."; f$="want"+str$(x):create f$:open #1,f$ print #1,"User Name :"a1$" "a2$ print #1,"Date :"date$" "time$ print #1,"Program type :"x$ print #1,"Files or Disks :"a$ if a$="Disk(s)" print #1,"Side(s) needed :"i$ if not edit(2) print #1,"Program description : (None)":close:goto add.end print #1,"Program description -"\ copy #8,#1:close add.end print chr$(8,6)"ed. ":goto start1