0 'BARKING DOG - T.McKOSKY 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' 3 'Make text file called LOOK.DO First 4 'line should be either RAM or DISK 5 'After that, list the the BDVIEW 6 'files you wish to see. If the first 7 'line is RAM then BDVIEW files must 8 'be in RAM. If the first line is DISK 9 'then BDVIEW files must be on DISK. 10 CLS 100 GOSUB 400 110 OPEN "LOOK.DO" FOR INPUT AS 1 120 INPUT #1,LO$ 130 P=P+1 140 INPUT #1,P$(P) 150 IF RIGHT$(P$(P),3)><".DO" THEN P$(P)=P$(P)+".DO" 160 IF LO$="DISK" THEN P$(P)="0:"+P$(P) 200 IF NOT EOF(1) THEN GOTO 130 210 CLOSE 1 220 FOR F=1 TO P 230 OPEN P$(F) FOR INPUT AS 1:C=0 240 INPUT #1, X,Y,X2,Y2 250 IF Y>C THEN C=Y:LINE(0,Y)-(239,Y),0 260 LINE (X,Y)-(X2,Y2),1 270 IF NOT EOF (1) GOTO 240 280 CLOSE 1 290 NEXT F 295 BEEP 300 A$=INKEY$:IF A$="" THEN GOTO 300 310 MENU 399 END 400 PRINT@200,CHR$(251)+CHR$(239)+CHR$(253)+CHR$(32)+CHR$(47);:PRINT@240,CHR$(32)+CHR$(236)+CHR$(239)+CHR$(239);:PRINT@280,CHR$(32)+CHR$(238)+CHR$(32)+CHR$(238);:PRINT@245,"Barking Dog Software";:PRINT@292,CHR$(171)+" 1988"; 401 PRESET(7,43):PRESET(10,43):PRESET(8,47):PRESET(9,47):PRESET(9,52):PRESET(10,52):PRESET(11,52):PRESET(12,52):PRESET(12,51):PRESET(12,50):PRESET(12,49):PRESET(12,48):PRESET(8,51):PRESET(9,51) 402 RETURN