#11 Article 626 Posted at 1987/11/22 20:26:59 by JIONG & OCT (MAP604) [PRG.FIL]
Subject: FILE ｾｲﾘ ﾖｳﾃﾞｽｶﾞ...
1000 '"***** Disk Files 1 Line display Tool Vol. 1.5a*****"
1010 ' ***** OCT SYSTEM SOFT MEDIA (JIONG) *****
1020 ' ***** 1986/11/22 UP Paching *****
1030 ' ***** ﾊﾝｶｸANKｦｾﾞﾝｶｸﾆ ｶｴﾏｽ
1040 ' ***** OPEN FILE ﾊ 2 ｲｼﾞｮｳ ｱｹﾃ ｸﾀﾞｻｲ
1050 ' ***** ASCII FILE ﾉﾐｼｶ ﾋｮｳｼﾞ ﾃﾞｷﾏｾﾝ(1000ｷﾞｮｳﾒ ｻﾝｺｳ ﾆｼﾃ ｸﾀﾞｻｲ)
1060 ' ***** FILE ﾆ ｼﾀﾗ ｿﾉ FILE ﾊ LOAD ﾃﾞｷ. RUN ﾃﾞ PRINT ｻﾚﾏｽ
1070 ' ***** ｺﾉ SOFT ﾊ OCT SYSTEM MEDIA (C) ﾁｮｻｸ ﾃﾞｽｶﾞ ﾄﾞﾝﾄﾞﾝ
1080 ' ***** COPY ｼﾃ ﾐﾝﾅﾆ ﾂｶｯﾃ ﾓﾗｯﾃ ｸﾀﾞｻｲ (ﾎｶﾉ BBS/PDS ﾆ ｶｲﾃﾓ ｲｲﾃﾞｽｶﾞ)
1090 ' ***** ﾁｭｳｲ!! *R/*H ﾉ ｢ｶﾝｼﾞBASIC｣ ﾃﾞ ｼﾖｳ ｼﾃｸﾀﾞｻｲ AKCNV$ｦ ﾄﾚﾊﾞ
1100 ' ***** ﾄﾞﾉ BASIC ﾃﾞﾓ ﾃﾞｷﾏｽ (PCｹｲﾚﾂｮ)
1110 ' ***** 1000-1120 ｷﾞｮｳ ﾏﾃﾞ ｦ ｹｻﾅｲﾃﾞ ｸﾀﾞｻｲ｡
1120 ' ***** ﾏﾆﾗﾐｷ ｾｽﾗﾏｲｿｶ ｼB ｶﾅﾜｴﾌﾔ ｺﾝ ﾗｿｶ ﾄﾝﾄｶｲﾓ ﾓｲｼﾆﾁ *****
1130 '* Program
1140 CONSOLE 0,25,0,1:WIDTH 80:DEFINT B-Z:DR=1:SR=1:TR=18
1150 A=1.5
1160 INPUT "ﾌﾟﾘﾝﾀｰ ﾆ ｼｭﾂﾘｮｸ ｼﾏｽｶ? (Y=Y/N=RET)";PP$
1170 IF PP$="Y" THEN PP=1
1180 INPUT "CRT=RET:FILE=F";FG$
1190 OK$="SCRN:"
1200 IF FG$="F" THEN INPUT "FILE NAME (ANK 6Bytes):";OK2$:OK$="2:"+OK2$+".FIL"
1210 OPEN ""+OK$ FOR OUTPUT AS #2
1220 CLS
1230 COLOR 4:IF FG$<>"F" THEN PRINT #2,"*****";:COLOR 5:PRINT #2," Disk Files 1 Line Display Tool Vol. ";A;" ";:COLOR 4:PRINT #2,"*****"
1240 IF PP=1 THEN LPRINT "***** Disk Files 1 Line display Tool Vol.";A;" *****"
1250 PRINT #2," "
1260 IF PP=1 THEN LPRINT
1270 DIM ID$(15),NAM$(15),TYPE$(15),PNAME$(256)
1280 FOR I=0 TO 15
1290 FIELD 0,(16*I) AS D$,1 AS ID$(I), 8 AS NAM$(I), 1 AS TYPE$(I)
1300 NEXT I
1310 SC=1:PNO=1
1320 D$=DSKI$(DR,SR,TR,SC)
1330 FOR I=0 TO 15
1340 CC=7
1350 IF ASC(ID$(I))=0 THEN GOTO *PPL.
1360 IF ASC(ID$(I))=&HFF THEN *END.
1370 IF ASC(TYPE$(I))<>0 THEN GOTO *PPL.
1380 F$=ID$(I)+LEFT$(NAM$(I),5)+"."+RIGHT$(NAM$(I),3)
1390 ON ERROR GOTO *END.
1400 CLOSE #1
1410 IF FG$="F" THEN PO=PO+1:PRINT #2,RIGHT$(" "+STR$(PO),3);"PRINT ";CHR$(34);:PRINT #2,F$;CHR$(34);";:";
1420 IF FG$<>"F" THEN PO=PO+1:COLOR 7:PRINT #2,RIGHT$(" "+STR$(PO),3);"･･";:PRINT #2,F$;":";
1430 IF PP=1 THEN LPRINT F$;":";
1440 OPEN ""+F$ FOR INPUT AS #1
1450 LINE INPUT #1,A$
1460 FOR X=1 TO LEN(A$)
1470 IF MID$(A$,X,1)=CHR$(34) OR MID$(A$,X,1)=CHR$(13) OR MID$(A$,X,1)=")" THEN FF=FF+1:IF MID$(A$,X,1)<>")" THEN MID$(A$,X,1)=" "
1480 IF FF>0 THEN CA$=CA$+MID$(A$,X,1)
1490 IF FF=2 AND FG$="F" THEN PRINT #2," PRINT ";CHR$(34)+AKCNV$(CA$):PRINT AKCNV$(CA$)
1500 IF FF=2 AND OK$="SCRN:" THEN COLOR 5:PRINT ^E(CA$)
1510 IF FF=2 AND PP=1 THEN LPRINT AKCNV$(CA$)
1520 IF FF=2 THEN CA$="":FF=0:CLOSE #1:GOTO *PPL.
1530 NEXT X:PRINT:GOTO *PPL.
1540 *PPL.:KL=KL+1: IF KL=5 THEN KL=0
1550 PNAME$(PNO)=ID$(I)+NAM$(I) : PNO=PNO+1
1560 NEXT I:SC=SC+1:GOTO 1320
1570 *END.
1580 PRINT ERR;ERL
1590 COLOR 7:PRINT: PRINT"FILE END"
1600 IF PP=1 THEN LPRINT: LPRINT"FILE END":CLOSE:END
1610 CLOSE:END
9999 'SAVE "FFILE.TFM"
ｵｵｯﾄ 1580ｷﾞｮｳﾊ ﾌﾖｳﾃﾞｽｯﾁｬ ﾃﾞﾘｰﾄ ｼﾃ RENUM ｶｹﾃ ｸﾀﾞｼｬﾝｾ
CG ﾉ FILE ﾆ ｶﾝｹｲﾅｲｹﾄﾞ PROGRAM ﾆ NL3/NL2 ﾅﾄﾞﾉ ｾｲﾘﾆ ﾊ ｲｲｶﾓｼﾚﾏｾﾝ
ｱﾄ C*PY T**L ﾉ FILER ｾｲﾘ (T*e F**E MAS*** ﾅﾄﾞ)
ﾆﾊ ｶﾝﾍﾟｷﾆ ﾊﾏﾘﾏｽ
MAP604 JIONG ﾃﾞﾋﾀ