10 DIM file$(64),name$(64):temp=0::' LISTCAT by Andrew Price for ACU 20 MODE 2:CAT:INPUT"(L)oad or (I)nsert catalogue text";y$:lo$=UPPER$(y$):IF lo$="L" THEN 50 ELSE IF lo$="I" THEN 30 ELSE GOTO 20 30 temp=temp+1:MODE 2:PRINT"LISTCAT":INPUT"Enter filename: ";file$(temp):INPUT"Enter note (no more than 50 chars): ";name$(temp):PRINT:PRINT file$(temp);" ... ";name$(temp):PRINT:INPUT"O.K.";y$:IF LOWER$(y$)="y" THEN 40 ELSE 30 40 PRINT:INPUT"Another name and file";y$:IF LOWER$(y$)="y" THEN 30 ELSE 70 50 POKE &A701,78:OPENIN"catlist1.bin":FOR a=1 TO 64:INPUT#9,file$(a):INPUT#9,name$(a):NEXT:INPUT#9,temp:CLOSEIN:POKE&A701,a XOR a:INPUT"(E)dit or (L)ist";y$:lo$=UPPER$(y$):IF lo$="E" THEN 20 ELSE IF lo$="L" THEN 60 ELSE GOTO 20 60 MODE 2:PRINT"LISTCAT CATALOGUE:":FOR a=1 TO temp:PRINT file$(a);" .... ";name$(a):NEXT:INPUT"(R)un or (E)nd";y$:lo$=UPPER$(y$):IF lo$="R" THEN RUN ELSE END 70 POKE &A701,78:OPENOUT"catlist1.bin":FOR a=1 TO 64:PRINT#9,file$(a):PRINT#9,name$(a):NEXT:PRINT#9,temp:CLOSEOUT:POKE &A701,a XOR a:PRINT"End of Editing....":END