REM IM 1 IN A MILLION CLUB TAPE 9
REM TAPECAT
5  REM    APF TAPE CATALOG
10  DIM A$(1),B$(31): POKE 24578,54
15  CALL 17046: GOSUB 90
20  FOR I=1 TO 9: READ B$
25  IF B$="EOF" THEN 50
30  PRINT B$: NEXT I
35  PRINT : PRINT "PRESS RETURN TO CONTINUE"
40 A$= KEY$ (0): IF A$="" THEN 40
45  GOTO 15
50  PRINT : PRINT "THE END - WANT A PRINTOUT?"
55 A$= KEY$ (0): IF A$="" THEN 55
60  IF A$<>"Y" THEN  STOP 
65  PRINT =1: RESTORE 
70  GOSUB 90: PRINT 
75  READ B$
80  IF B$="EOF" THEN  PRINT =0: STOP 
85  PRINT B$: GOTO 75
90  PRINT " A P F  PROGRAM TAPE CATALOG "
95  PRINT "-----------------------------"
100  PRINT "  NAME           TYPE   POSITION": RETURN 
1000  DATA PROGRAM-FILES...CATOLOG.000-009
1010  DATA ARTIST&EASEL....GRAPHIC........
1015  DATA ..(1CLOAD-RUN-GOTO100)..010-019
1020  DATA STAR-TREK........GAME...020-029
1030  DATA MOON-LANDER......GAME...030-039
1040  DATA EDITOR..........PGM-AID.040-049
1050  DATA BACK-UP.........PGM-AID.050-059
1060  DATA SPACE-DESTROYERS.GAME...060-069
1070  DATA TYPING-TUTOR.....EDUC...070-079
1080  DATA MAILING-LIST.....BUSS...080-089
1090  DATA BILLBOARDS.......MISC...090-099
1100  DATA PAC-MAN..........GAME...100-109
2000  REM      ENTER NEW PROGRAMS  RIGHT BEFORE THIS REMARK - ENTER31 CHARACTERS & DO NOT USE ANY BLANKS
2010  DATA EOF
2020  END 
