0 'BARKING DOG - T.McKOSKY
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
10 CLS
100 GOSUB 400
110 PRINT @84,"Enter the file you wish to view: "
120 PRINT @134,"";
125 INPUT FN$
128 IF LEN(FN$)> 6 THEN PRINT @134,SPACE$(20): BEEP: GOTO 120
130 IF RIGHT$(FN$,3) <>".DO" THEN FN$=FN$+".DO"
140 CLS
150 OPEN FN$ FOR INPUT AS 1
160 INPUT #1, X,Y,X2,Y2
170 LINE (X,Y)-(X2,Y2),1
180 IF NOT EOF (1) GOTO 160
185 CLOSE 1:BEEP
190 A$=INKEY$: IF A$="" THEN GOTO 190
200 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