10 REM CAT#8
20 REM by J N Macklin (modified from AA10) 30 REM Amstrad Action April 1989 110 CLS:LOCATE 1,2 120 PRINT"Insert disk to be catalogued and press R" 130 r$=INKEY$:IF r$="" THEN 130 140 IF r$="R" OR r$="r" THEN 150 150 z=3:p$="":t$="":u$="":MODE 2:CAT 160 INPUT"Disk No ";n 170 INPUT"Side No ";a$ 180 WHILE p$<>" ":z=z+1:LOCATE 1,z:GOSUB 310:WEND 190 FOR x=1 TO 16:LOCATE x,2:GOSUB 310:t$=t$+p$:NEXT 200 FOR x=1 TO 9:LOCATE x,z+1:GOSUB 310:u$=u$+p$:NEXT 210 GOSUB 320:PRINT #8," CATALOGUE";TAB(33);t$;TAB(70);u$:GOSUB 320 220 PRINT #8," Disk No ";n;TAB(33);"Side No: ";a$:GOSUB 320 230 FOR y=4 TO z-1:FOR x=1 TO 80 240 LOCATE x,y:GOSUB 310:v$=v$+p$:NEXT 250 PRINT#8,v$:v$="":NEXT 260 GOSUB 320 270 CLS:LOCATE 2,20 280 INPUT "Catalogue another disk Y/N ",y$ 290 IF y$="Y" OR y$="y" THEN 110 ELSE 300 300 MODE 1:END 310 p$=COPYCHR$(#0):RETURN 320 PRINT #8,STRING$(80,"-"):RETURN |