1 'IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM;
2 ':  A File Listing Program        3    FILELIST.BAS          Version 1.1   :
3 'GDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6
4 ':  (C) Copyright 1982            3 CREATED 03/30/82     UPDATED 07/05/82  :
5 ':  Webb B. Blackman,Jr.          3 Written for the IBM Personal Computer  :
6 ':  10330 Qualla Road             3   with one disk drive/48K RAM/IBM PC   :
7 ':  Chesterfield, VA 23832        3   DOS                                  :
8 ':  (804) 790-1007                3 Author:  Webb B. Blackman,Jr.          :
9 'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<
10  CLS:KEY OFF: GOTO 35
11  '**STRINGS
12  A% = 1:GOTO 15
13  '**NUMBERS
14 A%=0
15 Y% = CSRLIN:X%=1+POS(0):TT$="":TTA$="":I%=0
16 T$ = INKEY$:IF T$="" THEN 16
17 IF T$ =CHR$(13) THEN IF A%=0 THEN 27 ELSE 26
18 IF T$ =CHR$(8) THEN 23
19 IF T$ =CHR$(0)+CHR$(75) THEN 23
20 IF T$=CHR$(44) THEN TTA$=TTA$+T$:TT$=TT$+CHR$(32):GOTO 22
21 TT$ =TT$ + T$:TTA$=TTA$ + T$
22 I%=I%+1:LOCATE Y%,X%:PRINT TTA$:GOTO 16
23 I% = I% -1:IF I% < 0 THEN I%=1
24 TTA$ = MID$(TTA$,1,I%):TT$ = MID$(TT$,1,I%)
25 LOCATE Y%,(X%+I%):PRINT " ":GOTO 16
26 DAT0$ = TTA$:RETURN
27 DAT0# = VAL(TT$):RETURN
28 '*BOX SUB**
29 CLS:LOCATE 2,2,0:A$=CHR$(201)+STRING$(75,205)+CHR$(187):PRINT A$;
30 A$=CHR$(186):FOR I%=1 TO 20:LOCATE 2+I%,2:PRINT A$;:LOCATE 2+I%,78
31 PRINT A$;:   NEXT:LOCATE 23,2,0:A$=CHR$(200)+STRING$(75,205)+CHR$(188):PRINT    A$;:RETURN
32 '**CONT**
33 LOCATE 23,28,0:COLOR 16,7,0:PRINT"Press Space Bar To Continue";:COLOR 7,0,0
34 MT$=INKEY$:IF MT$="" THEN 34 ELSE IF MT$=" " THEN RETURN ELSE 34
35 '**TITLE
36 GOSUB 28:LOCATE 5,31:PRINT "<<< File List >>>":LOCATE 12,30:PRINT "Webb B. Blackman,Jr."
37 LOCATE 18,33:PRINT"July 5, 1982"
38 LOCATE 20,34:PRINT"Version 1.1":GOSUB 32:CLS
39 GOSUB 28:LOCATE 3,27,0:COLOR 16,7,0:PRINT "<<< Filecopy Selection >>>"
40 COLOR 7,0,0:LOCATE 6,5,0:PRINT "Selection:"
41 LOCATE 8,10,0:COLOR 16,7,0:PRINT "S";:COLOR 7,0,0:PRINT "elect File,";
42 COLOR 16,7,0:PRINT "L";:COLOR 7,0,0:PRINT "ist File,";:COLOR 16,7,0:PRINT "E ";:COLOR 7,0,0
43 PRINT"nd :  ";:COLOR 0,7,0:PRINT"   ";:LOCATE 8,39,0:SL$=INKEY$:COLOR 7,0,0
44 IF SL$<>"S" AND SL$<>"s" AND SL$<>"L" AND SL$<>"l" AND SL$<>"E" AND             SL$<>"e" THEN 41
45 IF SL$="S" OR SL$="s" THEN GOSUB 56:GOTO 39
46 IF SL$="E" OR SL$="e" THEN CLS:SYSTEM:END
47 '**Listing of File
48 CLS:LINENUM = 1
49 IF EOF(1) THEN 55 ELSE LINE INPUT #1,L$:PRINT L$
50 IF INKEY$ = CHR$(27) THEN 39 ELSE IF L$="" THEN LINENUM=LINENUM+1:GOTO 52
51 LINENUM = LINENUM + INT((LEN(L$)+79)/80)
52 IF LINENUM > 21 THEN LINENUM = 1 ELSE 49
53 LOCATE 25,21:COLOR 16,7:PRINT "Press Control Bar To Continue Listing";
54 T$=INKEY$:IF T$=""THEN 54 ELSE IF T$ = CHR$(32) THEN COLOR 7,0,0:CLS            :GOTO 49 ELSE 54
55 CLOSE #1:GOSUB 32:CLS:GOTO 39
56 'Select File
57 GOSUB 28:LOCATE 3,28,0:COLOR 16,7
58 PRINT"<<< File Entry Mode >>>":COLOR 7,0,0
59 LOCATE 6,5,0:PRINT "Drive (A or B)       :";:COLOR 0,7,0:PRINT "   ";
60 LOCATE 6,27,0:GOSUB 11:COLOR 7,0,0:DRV$=MID$(DAT0$,1,1)
61 IF DRV$ <> "A" AND DRV$ <>"B" AND DRV$<>"b" AND DRV$<>"a" THEN 59
62 LOCATE 8,5,0:PRINT "Enter File Name      :";:COLOR 0,7,0:PRINT "        ";
63 LOCATE 8,27,0:GOSUB 11:COLOR 7,0,0:FIL$ = DAT0$
64 LOCATE 10,5,0:PRINT "Enter File Extension :";:COLOR 0,7:PRINT "    ";
65 LOCATE 10,27,0:GOSUB 11:COLOR 7,0,0:EXT$ = DAT0$
66 OPEN "I",#1,DRV$+":"+FIL$+"."+EXT$:GOSUB 32:CLS:RETURN
67 END
"    ";
65 LOCATE 10,27,0:GOSUB 11:COLOR 7,0,0:EXT$