100 PRINT"[147]":POKE 53280,6:POKE 53281,1
110 PRINT TAB(3)"D I R E C T O R Y"
140 L$=""
150 A=A+1:B=B+1:READ PR$
160 PRINT LEFT$(L$,B+5)TAB(0)"[144]";A;"- [154]"PR$
165 IF B=10 THEN 175
170 GOTO 150
175 IF A>=10 THEN RESTORE:A=0
180 PRINT LEFT$(L$,21)" DOUBLE L SOFTWARE  "
190 PRINT LEFT$(L$,24)TAB(1)"[144](C)ION INT'L INC."
200 PRINT LEFT$(L$,19)TAB(1)"CHOOSE # OR RETURN[146]";
210 INPUT AN$:AN=VAL(AN$)
220 IF AN$="" THEN B=0:GOTO 100
240 RESTORE:FOR A=1 TO AN:READ PR$:NEXT A
245 PRINT"[147]"
250 PRINT "LOAD";CHR$(34);PR$;CHR$(34);",8"
260 PRINT "RUN":PRINT"[145][145][145][145][145][145][145][145][145][145]"
270 POKE 631,13:POKE 632,13:POKE 198,2:END
500 DATA VIC BUG REP,FLANKSPEED,F-SPEED OVER,VIC WINDOWS,VIC SAWING WOOD
510 DATA VIC GUNSHOT,VIC SPACE SHOT,VIC HELICOPTER,VIC BOINK,MENU-VIC