910 GOTO 32767 1000 ! & ! & ! SUBROUTINE: preliminaries & ! & ! 1100 ! & !some constants & ! 1110 TRUE% = -1% \ & FALSE% = 0% 1120 BELL$ = CHR$(7%) 1200 ! & !values for DEL% option & !(the specific values are meaningless. They only need to be & !different) & ! 1210 ALL% = 1% 1220 NONE% = 0% 1230 ASK% = 2% 1990 RETURN 2000 ! & ! & ! SUBROUTINE: Find size of file and maybe print & ! & ! 2100 ! & !Data from Name Blockette & ! 2110 N$ = RAD$(U%(PTR%,1%)) + RAD$(U%(PTR%,2%)) + "." & + RAD$(U%(PTR%,3%)) & !file name and extension 2200 ! & !find the size & ! 2210 AB% = FNLINK%(U%(PTR%,6%)) & !get location of Accounting Blockette 2220 SIZE = U%(AB%,2%) \ & SIZE = SIZE + 65536. IF SIZE < 0 & !get size and adjust for "negatives" 2230 SIZE = SIZE + 65536. * U%(AB%,6%) UNLESS U%(AB%,5%) & !if a large file, add high order part. 2300 ! & !print it out if big enough & ! 2310 IF SIZE < MINSIZE THEN RETURN 2320 PRINT USING "[ ###", PROJ%; \ & PRINT ","; \ & PRINT USING "### ] ", PROG%; 2330 PRINT N$; TAB(22%); 2340 PRINT USING "######", SIZE; 2350 IF DEL% = ASK% & THEN PRINT " ";DATE$(U%(AB%,3%)); " "; TIME$(U%(AB%,4%)); 2400 ! & !go to deletion routine if desired & ! 2410 IF DEL% = ALL% & THEN GOSUB 5000 \ & PRINT " deleted." \ & RETURN 2420 IF DEL% = ASK% & THEN GOSUB 4000 \ & RETURN 2430 PRINT !to cancel last semicolon in case no deletion was requested 2990 RETURN 4000 ! & ! & ! SUBROUTINE: delete on request & ! & ! 4100 ! & !print the question and get answer & ! 4110 INPUT " Delete (Y/N)";ANSWER$ \ & ANSWER$ = CVT$$(LEFT(ANSWER$,1%),-1%) 4200 ! & !if answer is NO then return & ! 4210 IF ANSWER$ = "N" THEN RETURN 4300 ! & !if answer isn't yes, ask again & ! 4310 IF ANSWER$ = "Y" THEN GOTO 4400 4320 PRINT 'Please answer "Y" to delete or "N" to save.' 4330 GOTO 4110 4400 ! & !delete it & ! 4410 GOSUB 5000 4420 PRINT "File ";FILE$;" deleted." \ & PRINT 4990 RETURN 5000 ! & ! & ! SUBROUTINE: delete current file & ! ( [PROJ%,PROG%]N$ ) & ! & ! 5010 FILE$ = "[" + NUM1$(PROJ%) + "," + NUM1$(PROG%) + "]" + N$ 5020 KILL FILE$ 5990 RETURN 8000 ! & ! & ! FUNCTIONS & ! & ! 8010 ! & !convert link word to Blockette number & ! & !bits 9 to 11 are the cluster number. The first line gets & ! these bits and multiplies by cluster size & !bits 12 to 15 are block number. The next line gets these and & ! multiplies by 32 (number of blockettes per block) & !bits 4 to 8 are the blockette number. The last line adds & ! this. & !the other bits of the link are not relevant here & ! 8020 DEF FNLINK%(L%) = & ((( L% AND 3584%) / 512% ) * CLU% & + ( SWAP%( L% AND -4096% ) / 16% )) * 32% & + (( L% AND 496%) / 16%) 9000 ! & ! & ! Error Routine & ! & ! 9100 ! & !^C error & ! 9110 IF ERR = 28 & THEN PRINT "Aborted by ^C." \ & GOTO 32767 9200 ! & !Expected errors (by line number) & ! 9210 IF ERL = 520 THEN RESUME 900 & !account wasn't there 9220 IF ERL = 5020 THEN RESUME 5990 & !file couldn't be killed 9600 ! & !Expected errors (by type) & ! 9900 ! & !Unexpected errors & ! 9910 Z$ = SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)) 9920 ERROR$ = RIGHT(Z$,3%) 9930 PRINT " ***** Whoops! *****" \ & PRINT " "; ERROR$; " at line";ERL 9990 GOTO 32767 32767 END BIGFILBAS[.050021]BIGFIL.BAS[.050021]    X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@ggh<i|o<m<4p<p<k|Zn<l fr rwx<x<x<x޺<w@]@@fjnr]Ze@@|> | |v<H|  |  |xz|  |zt f r   < &^ @&@'*/V,"?Lh:hmBmz|z{x`y~|fN|@@|@͂|@ ݃ƃ<ns<|Ŏ |️|ep|u|-@率|<ﾲ2ֻr||ZRM | ntB|xyvZw|J=|R>|J? nnaa|bddf