00000000  20 20 20 20 31 52 45 4d  20 3e 44 4f 53 64 69 73  |    1REM >DOSdis|
00000010  6b 0d 20 20 20 20 32 52  45 4d 20 4d 53 2d 44 4f  |k.    2REM MS-DO|
00000020  53 20 37 32 30 4b 20 52  45 41 44 2f 57 52 49 54  |S 720K READ/WRIT|
00000030  45 0d 20 20 20 31 30 4d  4f 44 45 20 31 32 38 0d  |E.   10MODE 128.|
00000040  20 20 20 32 30 73 70 65  65 64 3d 30 3a 6e 73 68  |   20speed=0:nsh|
00000050  6f 77 3d 31 36 3a 62 75  66 6c 65 6e 3d 26 31 30  |ow=16:buflen=&10|
00000060  30 30 3a 54 25 3d 32 35  35 3a 52 45 4d 20 77 68  |00:T%=255:REM wh|
00000070  65 72 65 20 6e 6f 77 3f  0d 20 20 20 33 30 44 49  |ere now?.   30DI|
00000080  4d 20 70 61 72 20 26 31  38 2c 20 66 61 74 20 32  |M par &18, fat 2|
00000090  30 34 38 2c 20 64 69 72  20 33 35 38 34 2c 20 62  |048, dir 3584, b|
000000a0  75 66 20 62 75 66 6c 65  6e 2c 20 62 61 63 6b 20  |uf buflen, back |
000000b0  26 31 30 30 2c 69 64 78  20 26 31 30 30 2c 20 6f  |&100,idx &100, o|
000000c0  70 74 25 28 39 29 0d 20  20 20 33 35 21 62 61 63  |pt%(9).   35!bac|
000000d0  6b 3d 34 3a 74 69 74 6c  65 24 3d 22 22 3a 50 52  |k=4:title$="":PR|
000000e0  4f 43 64 65 66 5f 6f 70  74 73 0d 20 20 20 34 30  |OCdef_opts.   40|
000000f0  43 4c 53 3a 50 52 49 4e  54 20 54 41 42 28 32 35  |CLS:PRINT TAB(25|
00000100  2c 31 29 22 4d 53 2d 44  4f 53 20 37 32 30 4b 20  |,1)"MS-DOS 720K |
00000110  44 69 73 63 20 52 65 61  64 65 72 22 0d 20 20 20  |Disc Reader".   |
00000120  35 30 50 52 49 4e 54 20  54 41 42 28 32 35 2c 32  |50PRINT TAB(25,2|
00000130  29 3b 20 20 20 22 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |);   "==========|
00000140  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 22 0d 20  |=============". |
00000150  20 20 36 30 50 52 49 4e  54 20 54 41 42 28 31 35  |  60PRINT TAB(15|
00000160  2c 34 29 22 44 4f 53 20  69 6e 20 44 72 69 76 65  |,4)"DOS in Drive|
00000170  20 31 2c 20 41 44 46 53  20 69 6e 20 44 72 69 76  | 1, ADFS in Driv|
00000180  65 20 30 22 0d 20 20 20  37 30 50 52 49 4e 54 20  |e 0".   70PRINT |
00000190  54 41 42 28 31 35 2c 32  35 29 22 50 72 65 73 73  |TAB(15,25)"Press|
000001a0  20 53 70 61 63 65 20 77  68 65 6e 20 52 65 61 64  | Space when Read|
000001b0  79 2e 2e 2e 22 0d 20 20  20 38 30 49 46 47 45 54  |y...".   80IFGET|
000001c0  0d 20 20 20 39 30 50 52  4f 43 72 65 61 64 5f 64  |.   90PROCread_d|
000001d0  6f 73 28 66 61 74 2c 31  29 0d 20 20 31 30 30 49  |os(fat,1).  100I|
000001e0  46 20 66 61 74 3f 32 31  3c 3e 26 46 39 20 50 52  |F fat?21<>&F9 PR|
000001f0  49 4e 54 20 54 41 42 28  32 30 2c 31 30 29 22 2a  |INT TAB(20,10)"*|
00000200  2a 2a 4e 4f 54 20 44 4f  53 20 37 32 30 4b 2a 2a  |**NOT DOS 720K**|
00000210  2a 22 3a 45 4e 44 0d 20  20 31 30 35 50 52 49 4e  |*":END.  105PRIN|
00000220  54 20 22 52 65 61 64 69  6e 67 20 46 41 54 2e 2e  |T "Reading FAT..|
00000230  2e 22 3b 3a 70 61 74 68  24 3d 22 5c 22 0d 20 20  |.";:path$="\".  |
00000240  31 31 30 62 61 63 6b 21  28 21 62 61 63 6b 29 3d  |110back!(!back)=|
00000250  30 3a 62 61 63 6b 21 28  28 21 62 61 63 6b 29 2b  |0:back!((!back)+|
00000260  34 29 3d 30 3a 50 52 4f  43 66 61 74 3a 50 52 49  |4)=0:PROCfat:PRI|
00000270  4e 54 20 22 4f 4b 22 0d  20 20 31 31 35 4f 4e 20  |NT "OK".  115ON |
00000280  45 52 52 4f 52 20 49 46  20 45 52 52 3c 3e 31 37  |ERROR IF ERR<>17|
00000290  20 52 45 50 4f 52 54 3a  50 52 49 4e 54 20 22 20  | REPORT:PRINT " |
000002a0  40 20 22 3b 45 52 4c 3a  45 4e 44 0d 20 20 31 32  |@ ";ERL:END.  12|
000002b0  30 52 45 50 45 41 54 3a  56 44 55 20 31 35 3a 50  |0REPEAT:VDU 15:P|
000002c0  52 49 4e 54 20 22 52 65  61 64 69 6e 67 20 44 49  |RINT "Reading DI|
000002d0  52 2e 2e 2e 22 3b 0d 20  20 31 33 30 50 52 4f 43  |R...";.  130PROC|
000002e0  64 69 72 3a 73 74 61 72  74 3d 62 61 63 6b 3f 28  |dir:start=back?(|
000002f0  28 21 62 61 63 6b 29 2b  34 29 3a 65 6e 74 72 79  |(!back)+4):entry|
00000300  3d 62 61 63 6b 3f 28 28  21 62 61 63 6b 29 2b 35  |=back?((!back)+5|
00000310  29 3a 50 52 49 4e 54 20  22 4f 4b 22 0d 20 20 31  |):PRINT "OK".  1|
00000320  34 30 50 52 4f 43 64 69  73 70 5f 64 69 72 28 73  |40PROCdisp_dir(s|
00000330  74 61 72 74 2c 65 6e 74  72 79 29 0d 20 20 31 35  |tart,entry).  15|
00000340  30 52 45 50 45 41 54 0d  20 20 31 35 35 50 52 4f  |0REPEAT.  155PRO|
00000350  43 75 70 64 61 74 65 5f  64 69 72 28 73 74 61 72  |Cupdate_dir(star|
00000360  74 2c 65 6e 74 72 79 29  0d 20 20 31 36 30 50 52  |t,entry).  160PR|
00000370  4f 43 77 69 6e 28 32 29  3a 50 52 49 4e 54 20 22  |OCwin(2):PRINT "|
00000380  55 70 2f 44 6f 77 6e 2c  20 4c 65 66 74 2f 52 69  |Up/Down, Left/Ri|
00000390  67 68 74 2c 20 43 6f 70  79 2c 20 65 58 69 74 2c  |ght, Copy, eXit,|
000003a0  20 4e 65 77 2c 20 4f 70  74 69 6f 6e 73 2e 2e 2e  | New, Options...|
000003b0  3f 22 0d 20 20 31 37 30  52 45 50 45 41 54 20 53  |?".  170REPEAT S|
000003c0  25 3d 28 49 4e 4b 45 59  28 2d 31 29 20 41 4e 44  |%=(INKEY(-1) AND|
000003d0  20 31 29 4f 52 28 49 4e  4b 45 59 28 2d 32 29 20  | 1)OR(INKEY(-2) |
000003e0  41 4e 44 20 32 29 0d 20  20 31 38 30 4b 25 3d 28  |AND 2).  180K%=(|
000003f0  49 4e 4b 45 59 28 2d 34  32 29 20 41 4e 44 20 31  |INKEY(-42) AND 1|
00000400  29 4f 52 28 49 4e 4b 45  59 28 2d 35 38 29 41 4e  |)OR(INKEY(-58)AN|
00000410  44 20 32 29 0d 20 20 31  39 30 4b 25 3d 4b 25 20  |D 2).  190K%=K% |
00000420  4f 52 20 28 49 4e 4b 45  59 28 2d 32 36 29 20 41  |OR (INKEY(-26) A|
00000430  4e 44 20 34 29 4f 52 28  49 4e 4b 45 59 28 2d 31  |ND 4)OR(INKEY(-1|
00000440  32 32 29 20 41 4e 44 20  38 29 0d 20 20 32 30 30  |22) AND 8).  200|
00000450  4b 25 3d 4b 25 20 4f 52  20 28 49 4e 4b 45 59 28  |K%=K% OR (INKEY(|
00000460  2d 36 37 29 20 41 4e 44  20 31 36 29 4f 52 28 49  |-67) AND 16)OR(I|
00000470  4e 4b 45 59 28 2d 38 36  29 20 41 4e 44 20 33 32  |NKEY(-86) AND 32|
00000480  29 0d 20 20 32 30 32 4b  25 3d 4b 25 20 4f 52 20  |).  202K%=K% OR |
00000490  28 49 4e 4b 45 59 28 2d  31 30 36 29 20 41 4e 44  |(INKEY(-106) AND|
000004a0  20 36 34 29 4f 52 28 49  4e 4b 45 59 28 2d 35 35  | 64)OR(INKEY(-55|
000004b0  29 20 41 4e 44 20 26 38  30 29 0d 20 20 32 30 38  |) AND &80).  208|
000004c0  55 4e 54 49 4c 20 4b 25  3c 3e 30 0d 20 20 32 31  |UNTIL K%<>0.  21|
000004d0  30 69 6e 63 3d 28 28 4b  25 3d 32 29 2d 28 4b 25  |0inc=((K%=2)-(K%|
000004e0  3d 31 29 29 2a 28 31 2d  28 28 6e 73 68 6f 77 2d  |=1))*(1-((nshow-|
000004f0  31 29 2a 28 53 25 3d 31  29 29 29 0d 20 20 32 32  |1)*(S%=1))).  22|
00000500  30 49 46 20 28 53 25 3d  32 29 41 4e 44 28 4b 25  |0IF (S%=2)AND(K%|
00000510  3c 33 29 20 65 6e 74 72  79 3d 39 39 39 2a 69 6e  |<3) entry=999*in|
00000520  63 20 45 4c 53 45 20 65  6e 74 72 79 3d 65 6e 74  |c ELSE entry=ent|
00000530  72 79 2b 69 6e 63 0d 20  20 32 33 30 49 46 20 65  |ry+inc.  230IF e|
00000540  6e 74 72 79 3e 6d 61 78  20 65 6e 74 72 79 3d 6d  |ntry>max entry=m|
00000550  61 78 20 45 4c 53 45 20  49 46 20 65 6e 74 72 79  |ax ELSE IF entry|
00000560  3c 30 20 65 6e 74 72 79  3d 30 0d 20 20 32 34 30  |<0 entry=0.  240|
00000570  49 46 20 65 6e 74 72 79  3c 73 74 61 72 74 20 73  |IF entry<start s|
00000580  74 61 72 74 3d 65 6e 74  72 79 0d 20 20 32 34 35  |tart=entry.  245|
00000590  49 46 20 65 6e 74 72 79  3e 28 73 74 61 72 74 2b  |IF entry>(start+|
000005a0  6e 73 68 6f 77 29 20 54  48 45 4e 20 73 74 61 72  |nshow) THEN star|
000005b0  74 3d 28 65 6e 74 72 79  2d 6e 73 68 6f 77 29 0d  |t=(entry-nshow).|
000005c0  20 20 32 34 36 62 61 63  6b 3f 28 28 21 62 61 63  |  246back?((!bac|
000005d0  6b 29 2b 34 29 3d 73 74  61 72 74 3a 62 61 63 6b  |k)+4)=start:back|
000005e0  3f 28 28 21 62 61 63 6b  29 2b 35 29 3d 65 6e 74  |?((!back)+5)=ent|
000005f0  72 79 0d 20 20 32 35 30  49 46 20 28 4b 25 3d 34  |ry.  250IF (K%=4|
00000600  29 41 4e 44 28 21 62 61  63 6b 3e 34 29 20 21 62  |)AND(!back>4) !b|
00000610  61 63 6b 3d 28 21 62 61  63 6b 29 2d 36 3a 50 52  |ack=(!back)-6:PR|
00000620  4f 43 62 61 63 6b 5f 70  61 74 68 0d 20 20 32 36  |OCback_path.  26|
00000630  30 49 46 20 28 4b 25 3d  34 29 20 41 4e 44 20 28  |0IF (K%=4) AND (|
00000640  53 25 3e 30 29 20 21 62  61 63 6b 3d 34 3a 70 61  |S%>0) !back=4:pa|
00000650  74 68 24 3d 22 5c 22 0d  20 20 32 37 30 49 46 20  |th$="\".  270IF |
00000660  28 4b 25 3d 38 29 20 49  46 20 46 4e 69 73 64 69  |(K%=8) IF FNisdi|
00000670  72 28 69 64 78 3f 65 6e  74 72 79 29 20 50 52 4f  |r(idx?entry) PRO|
00000680  43 73 65 6c 5f 64 69 72  28 69 64 78 3f 65 6e 74  |Csel_dir(idx?ent|
00000690  72 79 29 0d 20 20 32 37  32 49 46 20 28 4b 25 3d  |ry).  272IF (K%=|
000006a0  36 34 29 20 41 4e 44 20  28 53 25 3d 31 29 20 50  |64) AND (S%=1) P|
000006b0  52 4f 43 70 75 74 5f 66  69 6c 65 0d 20 20 32 37  |ROCput_file.  27|
000006c0  34 49 46 20 28 4b 25 3d  36 34 29 20 41 4e 44 20  |4IF (K%=64) AND |
000006d0  28 53 25 3d 30 29 20 49  46 20 46 4e 69 73 66 69  |(S%=0) IF FNisfi|
000006e0  6c 65 28 69 64 78 3f 65  6e 74 72 79 29 20 50 52  |le(idx?entry) PR|
000006f0  4f 43 67 65 74 5f 66 69  6c 65 28 69 64 78 3f 65  |OCget_file(idx?e|
00000700  6e 74 72 79 29 0d 20 20  32 37 36 49 46 20 28 4b  |ntry).  276IF (K|
00000710  25 3d 26 38 30 29 20 50  52 4f 43 6f 70 74 69 6f  |%=&80) PROCoptio|
00000720  6e 73 0d 20 20 32 38 30  55 4e 54 49 4c 20 28 4b  |ns.  280UNTIL (K|
00000730  25 3e 33 29 0d 20 20 32  39 30 55 4e 54 49 4c 20  |%>3).  290UNTIL |
00000740  28 4b 25 3d 31 36 29 4f  52 28 4b 25 3d 33 32 29  |(K%=16)OR(K%=32)|
00000750  0d 20 20 32 39 35 2a 46  58 32 31 2c 30 0d 20 20  |.  295*FX21,0.  |
00000760  33 30 30 49 46 20 4b 25  3d 33 32 20 52 55 4e 20  |300IF K%=32 RUN |
00000770  45 4c 53 45 20 45 4e 44  0d 20 20 33 31 30 3a 0d  |ELSE END.  310:.|
00000780  20 20 33 32 30 44 45 46  20 50 52 4f 43 77 69 6e  |  320DEF PROCwin|
00000790  28 6e 25 29 0d 20 20 33  33 30 49 46 20 6e 25 3d  |(n%).  330IF n%=|
000007a0  31 20 56 44 55 32 38 2c  30 2c 32 38 2c 37 39 2c  |1 VDU28,0,28,79,|
000007b0  36 2c 31 32 0d 20 20 33  34 30 49 46 20 6e 25 3d  |6,12.  340IF n%=|
000007c0  32 20 56 44 55 32 38 2c  30 2c 33 31 2c 37 39 2c  |2 VDU28,0,31,79,|
000007d0  32 39 2c 31 32 0d 20 20  33 34 32 49 46 20 6e 25  |29,12.  342IF n%|
000007e0  3d 33 20 56 44 55 32 38  2c 30 2c 32 36 2c 37 39  |=3 VDU28,0,26,79|
000007f0  2c 39 0d 20 20 33 34 35  49 46 20 6e 25 3d 34 20  |,9.  345IF n%=4 |
00000800  56 44 55 32 38 2c 30 2c  32 38 2c 37 39 2c 36 0d  |VDU28,0,28,79,6.|
00000810  20 20 33 35 30 45 4e 44  50 52 4f 43 0d 20 20 33  |  350ENDPROC.  3|
00000820  36 30 3a 0d 20 20 33 37  30 44 45 46 20 50 52 4f  |60:.  370DEF PRO|
00000830  43 72 65 61 64 5f 64 6f  73 28 61 64 64 72 2c 64  |Cread_dos(addr,d|
00000840  73 65 63 29 0d 20 20 33  38 30 74 72 6b 3d 28 64  |sec).  380trk=(d|
00000850  73 65 63 2d 31 29 20 44  49 56 20 39 3a 73 65 63  |sec-1) DIV 9:sec|
00000860  3d 28 64 73 65 63 2d 31  29 20 4d 4f 44 20 39 20  |=(dsec-1) MOD 9 |
00000870  2b 31 0d 20 20 33 39 30  50 52 4f 43 72 77 5f 73  |+1.  390PROCrw_s|
00000880  65 63 28 61 64 64 72 2c  31 2c 28 74 72 6b 20 4d  |ec(addr,1,(trk M|
00000890  4f 44 20 32 29 2c 28 74  72 6b 20 44 49 56 20 32  |OD 2),(trk DIV 2|
000008a0  29 2c 73 65 63 2c 31 2c  54 52 55 45 2c 54 52 55  |),sec,1,TRUE,TRU|
000008b0  45 29 0d 20 20 34 30 30  45 4e 44 50 52 4f 43 0d  |E).  400ENDPROC.|
000008c0  20 20 34 31 30 3a 0d 20  20 34 32 30 44 45 46 50  |  410:.  420DEFP|
000008d0  52 4f 43 72 77 5f 73 65  63 28 61 64 64 72 2c 64  |ROCrw_sec(addr,d|
000008e0  72 76 2c 73 64 65 2c 74  72 6b 2c 73 65 63 2c 63  |rv,sde,trk,sec,c|
000008f0  6e 74 2c 6d 66 6d 2c 72  64 29 0d 20 20 34 33 30  |nt,mfm,rd).  430|
00000900  3f 70 61 72 3d 28 4e 4f  54 20 72 64 29 41 4e 44  |?par=(NOT rd)AND|
00000910  20 31 0d 20 20 34 34 30  70 61 72 21 31 3d 61 64  | 1.  440par!1=ad|
00000920  64 72 0d 20 20 34 35 30  70 61 72 3f 35 3d 28 64  |dr.  450par?5=(d|
00000930  72 76 20 41 4e 44 20 33  29 4f 52 28 28 73 64 65  |rv AND 3)OR((sde|
00000940  3d 31 29 41 4e 44 20 34  29 4f 52 28 28 4e 4f 54  |=1)AND 4)OR((NOT|
00000950  20 6d 66 6d 29 41 4e 44  20 38 29 0d 20 20 34 36  | mfm)AND 8).  46|
00000960  30 70 61 72 3f 36 3d 74  72 6b 3a 70 61 72 3f 37  |0par?6=trk:par?7|
00000970  3d 73 65 63 0d 20 20 34  37 30 70 61 72 3f 38 3d  |=sec.  470par?8=|
00000980  63 6e 74 3a 70 61 72 3f  39 3d 73 70 65 65 64 0d  |cnt:par?9=speed.|
00000990  20 20 34 38 30 70 61 72  3f 31 30 3d 54 25 0d 20  |  480par?10=T%. |
000009a0  20 34 39 30 41 25 3d 31  31 36 3a 58 25 3d 28 70  | 490A%=116:X%=(p|
000009b0  61 72 20 4d 4f 44 20 32  35 36 29 0d 20 20 35 30  |ar MOD 256).  50|
000009c0  30 59 25 3d 28 70 61 72  20 44 49 56 20 32 35 36  |0Y%=(par DIV 256|
000009d0  29 3a 43 41 4c 4c 20 26  46 46 46 31 0d 20 20 35  |):CALL &FFF1.  5|
000009e0  31 30 49 46 20 3f 70 61  72 3c 3e 32 35 35 20 54  |10IF ?par<>255 T|
000009f0  25 3d 70 61 72 3f 31 30  3a 45 4e 44 50 52 4f 43  |%=par?10:ENDPROC|
00000a00  0d 20 20 35 32 30 54 25  3d 32 35 35 3a 49 46 20  |.  520T%=255:IF |
00000a10  70 61 72 3f 31 3d 31 37  20 50 52 49 4e 54 20 22  |par?1=17 PRINT "|
00000a20  45 73 63 61 70 65 2e 2e  2e 22 0d 20 20 35 33 30  |Escape...".  530|
00000a30  50 52 49 4e 54 20 22 45  72 72 6f 72 20 22 3b 3f  |PRINT "Error ";?|
00000a40  70 61 72 3b 22 2e 22 3b  70 61 72 3f 31 3b 22 2e  |par;".";par?1;".|
00000a50  2e 2e 22 3a 49 46 47 45  54 0d 20 20 35 34 30 45  |..":IFGET.  540E|
00000a60  4e 44 50 52 4f 43 0d 20  20 35 35 30 3a 0d 20 20  |NDPROC.  550:.  |
00000a70  35 36 30 44 45 46 50 52  4f 43 66 61 74 0d 20 20  |560DEFPROCfat.  |
00000a80  35 37 30 50 52 4f 43 72  65 61 64 5f 64 6f 73 28  |570PROCread_dos(|
00000a90  66 61 74 2c 32 29 3a 50  52 4f 43 72 65 61 64 5f  |fat,2):PROCread_|
00000aa0  64 6f 73 28 66 61 74 2b  35 31 32 2c 33 29 0d 20  |dos(fat+512,3). |
00000ab0  20 35 38 30 50 52 4f 43  72 65 61 64 5f 64 6f 73  | 580PROCread_dos|
00000ac0  28 66 61 74 2b 31 30 32  34 2c 34 29 3a 45 4e 44  |(fat+1024,4):END|
00000ad0  50 52 4f 43 0d 20 20 35  39 30 3a 0d 20 20 36 30  |PROC.  590:.  60|
00000ae0  30 44 45 46 50 52 4f 43  64 69 72 0d 20 20 36 31  |0DEFPROCdir.  61|
00000af0  30 4c 4f 43 41 4c 20 69  25 2c 73 25 0d 20 20 36  |0LOCAL i%,s%.  6|
00000b00  32 30 73 25 3d 62 61 63  6b 21 28 21 62 61 63 6b  |20s%=back!(!back|
00000b10  29 3a 49 46 20 73 25 3c  3e 30 20 50 52 4f 43 64  |):IF s%<>0 PROCd|
00000b20  69 72 32 28 73 25 29 3a  45 4e 44 50 52 4f 43 0d  |ir2(s%):ENDPROC.|
00000b30  20 20 36 32 35 73 25 3d  38 0d 20 20 36 33 30 46  |  625s%=8.  630F|
00000b40  4f 52 20 69 25 3d 30 20  54 4f 20 36 0d 20 20 36  |OR i%=0 TO 6.  6|
00000b50  34 30 50 52 4f 43 72 65  61 64 5f 64 6f 73 28 28  |40PROCread_dos((|
00000b60  64 69 72 2b 28 35 31 32  2a 69 25 29 29 2c 28 73  |dir+(512*i%)),(s|
00000b70  25 2b 69 25 29 29 0d 20  20 36 35 30 4e 45 58 54  |%+i%)).  650NEXT|
00000b80  3a 6d 61 78 3d 46 4e 69  6e 64 65 78 28 26 36 46  |:max=FNindex(&6F|
00000b90  29 0d 20 20 36 36 30 45  4e 44 50 52 4f 43 0d 20  |).  660ENDPROC. |
00000ba0  20 36 37 30 3a 0d 20 20  36 38 30 44 45 46 46 4e  | 670:.  680DEFFN|
00000bb0  69 73 64 69 72 28 6e 29  3d 28 28 28 28 3f 28 64  |isdir(n)=((((?(d|
00000bc0  69 72 2b 28 33 32 2a 6e  29 2b 31 31 29 29 41 4e  |ir+(32*n)+11))AN|
00000bd0  44 20 26 31 30 29 3c 3e  30 29 41 4e 44 28 28 3f  |D &10)<>0)AND((?|
00000be0  28 64 69 72 2b 28 33 32  2a 6e 29 29 29 3c 3e 26  |(dir+(32*n)))<>&|
00000bf0  45 35 29 29 0d 20 20 36  39 30 3a 0d 20 20 37 30  |E5)).  690:.  70|
00000c00  30 44 45 46 20 50 52 4f  43 64 69 73 70 5f 64 69  |0DEF PROCdisp_di|
00000c10  72 28 73 74 25 2c 68 6c  74 25 29 0d 20 20 37 31  |r(st%,hlt%).  71|
00000c20  30 4c 4f 43 41 4c 20 73  25 2c 6c 25 2c 69 25 0d  |0LOCAL s%,l%,i%.|
00000c30  20 20 37 31 35 50 52 4f  43 77 69 6e 28 31 29 0d  |  715PROCwin(1).|
00000c40  20 20 37 32 30 43 4c 53  3a 50 52 49 4e 54 20 22  |  720CLS:PRINT "|
00000c50  50 61 74 68 3a 22 3b 70  61 74 68 24 27 0d 20 20  |Path:";path$'.  |
00000c60  37 32 35 50 52 49 4e 54  20 22 23 20 3a 20 20 20  |725PRINT "# :   |
00000c70  20 46 69 6c 65 6e 61 6d  65 45 78 74 3a 54 70 40  | FilenameExt:Tp@|
00000c80  43 6c 75 73 2e 20 20 20  20 20 44 61 74 65 20 53  |Clus.     Date S|
00000c90  74 61 6d 70 20 20 20 20  20 2e 4c 65 6e 22 0d 20  |tamp     .Len". |
00000ca0  20 37 34 30 46 4f 52 20  6c 25 3d 73 74 25 20 54  | 740FOR l%=st% T|
00000cb0  4f 20 73 74 25 2b 6e 73  68 6f 77 0d 20 20 37 35  |O st%+nshow.  75|
00000cc0  30 73 25 3d 69 64 78 3f  6c 25 0d 20 20 37 36 30  |0s%=idx?l%.  760|
00000cd0  50 52 4f 43 64 69 73 70  5f 65 6e 74 72 79 28 6c  |PROCdisp_entry(l|
00000ce0  25 2c 73 25 2c 6c 25 3d  68 6c 74 25 29 0d 20 20  |%,s%,l%=hlt%).  |
00000cf0  37 38 30 4e 45 58 54 3a  43 4f 4c 4f 55 52 20 31  |780NEXT:COLOUR 1|
00000d00  3a 43 4f 4c 4f 55 52 20  31 32 38 0d 20 20 37 39  |:COLOUR 128.  79|
00000d10  30 6f 6c 64 5f 73 74 61  72 74 3d 73 74 25 3a 6f  |0old_start=st%:o|
00000d20  6c 64 5f 65 6e 74 72 79  3d 68 6c 74 25 0d 20 20  |ld_entry=hlt%.  |
00000d30  38 33 30 45 4e 44 50 52  4f 43 0d 20 20 38 34 30  |830ENDPROC.  840|
00000d40  3a 0d 20 20 38 35 30 44  45 46 20 50 52 4f 43 62  |:.  850DEF PROCb|
00000d50  61 63 6b 5f 70 61 74 68  0d 20 20 38 36 30 4c 4f  |ack_path.  860LO|
00000d60  43 41 4c 20 70 25 2c 6e  25 2c 6f 25 0d 20 20 38  |CAL p%,n%,o%.  8|
00000d70  37 30 6e 25 3d 49 4e 53  54 52 28 70 61 74 68 24  |70n%=INSTR(path$|
00000d80  2c 22 5c 22 29 3a 6f 25  3d 6e 25 0d 20 20 38 38  |,"\"):o%=n%.  88|
00000d90  30 52 45 50 45 41 54 20  6f 25 3d 70 25 3a 70 25  |0REPEAT o%=p%:p%|
00000da0  3d 6e 25 0d 20 20 38 39  30 6e 25 3d 49 4e 53 54  |=n%.  890n%=INST|
00000db0  52 28 70 61 74 68 24 2c  22 5c 22 2c 70 25 2b 31  |R(path$,"\",p%+1|
00000dc0  29 0d 20 20 39 30 30 55  4e 54 49 4c 20 6e 25 3c  |).  900UNTIL n%<|
00000dd0  31 0d 20 20 39 31 30 70  61 74 68 24 3d 4c 45 46  |1.  910path$=LEF|
00000de0  54 24 28 70 61 74 68 24  2c 6f 25 29 0d 20 20 39  |T$(path$,o%).  9|
00000df0  31 35 45 4e 44 50 52 4f  43 0d 20 20 39 32 30 3a  |15ENDPROC.  920:|
00000e00  0d 20 20 39 33 30 44 45  46 20 46 4e 64 61 74 65  |.  930DEF FNdate|
00000e10  28 78 25 29 0d 20 20 39  34 30 4c 4f 43 41 4c 20  |(x%).  940LOCAL |
00000e20  79 25 2c 6d 25 2c 64 25  2c 68 25 2c 6e 25 2c 73  |y%,m%,d%,h%,n%,s|
00000e30  25 2c 6f 24 0d 20 20 39  35 30 73 25 3d 28 78 25  |%,o$.  950s%=(x%|
00000e40  20 41 4e 44 20 26 31 46  29 2a 32 3a 78 25 3d 78  | AND &1F)*2:x%=x|
00000e50  25 20 44 49 56 20 33 32  3a 6e 25 3d 78 25 20 41  |% DIV 32:n%=x% A|
00000e60  4e 44 20 26 33 46 3a 78  25 3d 78 25 20 44 49 56  |ND &3F:x%=x% DIV|
00000e70  20 36 34 0d 20 20 39 36  30 68 25 3d 28 78 25 20  | 64.  960h%=(x% |
00000e80  41 4e 44 20 26 31 46 29  3a 78 25 3d 78 25 20 44  |AND &1F):x%=x% D|
00000e90  49 56 20 33 32 3a 64 25  3d 78 25 20 41 4e 44 20  |IV 32:d%=x% AND |
00000ea0  26 31 46 3a 78 25 3d 78  25 20 44 49 56 20 33 32  |&1F:x%=x% DIV 32|
00000eb0  0d 20 20 39 37 30 6d 25  3d 28 78 25 20 41 4e 44  |.  970m%=(x% AND|
00000ec0  20 26 46 29 3a 79 25 3d  28 78 25 20 44 49 56 20  | &F):y%=(x% DIV |
00000ed0  31 36 29 2b 31 39 38 30  0d 20 20 39 38 30 6f 24  |16)+1980.  980o$|
00000ee0  3d 4d 49 44 24 28 22 4d  30 30 4a 61 6e 46 65 62  |=MID$("M00JanFeb|
00000ef0  4d 61 72 41 70 72 4d 61  79 4a 75 6e 4a 75 6c 41  |MarAprMayJunJulA|
00000f00  75 67 53 65 70 4f 63 74  4e 6f 76 44 65 63 4d 31  |ugSepOctNovDecM1|
00000f10  33 4d 31 34 4d 31 35 22  2c 28 6d 25 29 2a 33 2b  |3M14M15",(m%)*3+|
00000f20  31 2c 33 29 0d 20 20 39  39 30 3d 46 4e 64 32 28  |1,3).  990=FNd2(|
00000f30  68 25 29 2b 22 3a 22 2b  46 4e 64 32 28 6e 25 29  |h%)+":"+FNd2(n%)|
00000f40  2b 22 3a 22 2b 46 4e 64  32 28 73 25 29 2b 22 20  |+":"+FNd2(s%)+" |
00000f50  22 2b 46 4e 64 32 28 64  25 29 2b 22 20 22 2b 6f  |"+FNd2(d%)+" "+o|
00000f60  24 2b 22 20 22 2b 53 54  52 24 79 25 0d 20 31 30  |$+" "+STR$y%. 10|
00000f70  30 30 3a 0d 20 31 30 31  30 44 45 46 20 46 4e 64  |00:. 1010DEF FNd|
00000f80  32 28 6e 25 29 20 3d 52  49 47 48 54 24 28 22 30  |2(n%) =RIGHT$("0|
00000f90  22 2b 53 54 52 24 6e 25  2c 32 29 0d 20 31 30 32  |"+STR$n%,2). 102|
00000fa0  30 3a 0d 20 31 30 33 30  44 45 46 20 50 52 4f 43  |0:. 1030DEF PROC|
00000fb0  64 69 72 32 28 63 25 29  0d 20 31 30 34 30 4c 4f  |dir2(c%). 1040LO|
00000fc0  43 41 4c 20 73 25 2c 69  25 2c 6e 25 0d 20 31 30  |CAL s%,i%,n%. 10|
00000fd0  35 30 69 25 3d 30 3a 6e  25 3d 30 3a 52 45 50 45  |50i%=0:n%=0:REPE|
00000fe0  41 54 0d 20 31 30 36 30  49 46 20 28 28 69 25 20  |AT. 1060IF ((i% |
00000ff0  4d 4f 44 20 32 29 3d 30  29 20 41 4e 44 20 28 69  |MOD 2)=0) AND (i|
00001000  25 3c 3e 30 29 20 63 25  3d 46 4e 6e 63 6c 75 73  |%<>0) c%=FNnclus|
00001010  28 63 25 29 0d 20 31 30  37 30 49 46 20 28 63 25  |(c%). 1070IF (c%|
00001020  3c 3e 26 46 46 46 29 20  41 4e 44 20 28 28 69 25  |<>&FFF) AND ((i%|
00001030  20 4d 4f 44 20 32 29 3d  30 29 20 6e 25 3d 6e 25  | MOD 2)=0) n%=n%|
00001040  2b 31 3a 73 25 3d 46 4e  73 65 63 28 63 25 29 0d  |+1:s%=FNsec(c%).|
00001050  20 31 30 38 30 49 46 20  63 25 3c 3e 26 46 46 46  | 1080IF c%<>&FFF|
00001060  20 50 52 4f 43 72 65 61  64 5f 64 6f 73 28 64 69  | PROCread_dos(di|
00001070  72 2b 28 35 31 32 2a 69  25 29 2c 28 73 25 2b 28  |r+(512*i%),(s%+(|
00001080  69 25 20 4d 4f 44 20 32  29 29 29 0d 20 31 30 39  |i% MOD 2))). 109|
00001090  30 69 25 3d 69 25 2b 31  0d 20 31 31 30 30 55 4e  |0i%=i%+1. 1100UN|
000010a0  54 49 4c 20 69 25 3d 37  20 4f 52 20 63 25 3d 26  |TIL i%=7 OR c%=&|
000010b0  46 46 46 0d 20 31 31 31  30 6d 61 78 3d 46 4e 69  |FFF. 1110max=FNi|
000010c0  6e 64 65 78 28 28 6e 25  2a 33 32 29 2d 31 29 3a  |ndex((n%*32)-1):|
000010d0  45 4e 44 50 52 4f 43 0d  20 31 31 32 30 3a 0d 20  |ENDPROC. 1120:. |
000010e0  31 31 33 30 44 45 46 20  50 52 4f 43 73 65 6c 5f  |1130DEF PROCsel_|
000010f0  64 69 72 28 6e 29 0d 20  31 31 35 30 21 62 61 63  |dir(n). 1150!bac|
00001100  6b 3d 28 21 62 61 63 6b  29 2b 36 0d 20 31 31 36  |k=(!back)+6. 116|
00001110  30 62 61 63 6b 21 28 21  62 61 63 6b 29 3d 28 64  |0back!(!back)=(d|
00001120  69 72 21 28 32 36 2b 6e  2a 33 32 29 29 41 4e 44  |ir!(26+n*32))AND|
00001130  20 26 46 46 46 46 0d 20  31 31 37 30 70 61 74 68  | &FFFF. 1170path|
00001140  24 3d 70 61 74 68 24 2b  46 4e 6e 61 6d 65 28 6e  |$=path$+FNname(n|
00001150  29 2b 22 5c 22 0d 20 31  32 30 35 62 61 63 6b 21  |)+"\". 1205back!|
00001160  28 28 21 62 61 63 6b 29  2b 34 29 3d 30 0d 20 31  |((!back)+4)=0. 1|
00001170  32 31 30 45 4e 44 50 52  4f 43 0d 20 31 32 32 30  |210ENDPROC. 1220|
00001180  3a 0d 20 31 32 33 30 44  45 46 20 46 4e 73 65 63  |:. 1230DEF FNsec|
00001190  28 63 25 29 20 3d 32 2a  63 25 2b 38 2b 33 0d 20  |(c%) =2*c%+8+3. |
000011a0  31 32 34 30 3a 0d 20 31  32 35 30 44 45 46 20 46  |1240:. 1250DEF F|
000011b0  4e 6e 63 6c 75 73 28 63  25 29 3a 4c 4f 43 41 4c  |Nnclus(c%):LOCAL|
000011c0  20 76 25 0d 20 31 32 36  30 21 26 37 30 3d 66 61  | v%. 1260!&70=fa|
000011d0  74 21 28 33 2a 28 63 25  20 44 49 56 20 32 29 29  |t!(3*(c% DIV 2))|
000011e0  3a 21 26 37 33 3d 30 0d  20 31 32 37 30 49 46 20  |:!&73=0. 1270IF |
000011f0  63 25 20 4d 4f 44 20 32  3d 30 20 3a 3d 21 26 37  |c% MOD 2=0 :=!&7|
00001200  30 20 41 4e 44 20 26 46  46 46 20 3a 45 4c 53 45  |0 AND &FFF :ELSE|
00001210  20 3a 3d 28 21 26 37 31  20 44 49 56 20 31 36 29  | :=(!&71 DIV 16)|
00001220  20 41 4e 44 20 26 46 46  46 0d 20 31 32 38 30 3a  | AND &FFF. 1280:|
00001230  0d 20 31 32 39 30 44 45  46 50 52 4f 43 75 70 64  |. 1290DEFPROCupd|
00001240  61 74 65 5f 64 69 72 28  73 74 25 2c 68 74 25 29  |ate_dir(st%,ht%)|
00001250  0d 20 31 32 39 32 4c 4f  43 41 4c 20 69 25 0d 20  |. 1292LOCAL i%. |
00001260  31 32 39 35 50 52 4f 43  77 69 6e 28 33 29 0d 20  |1295PROCwin(3). |
00001270  31 33 30 30 49 46 20 73  74 25 3d 6f 6c 64 5f 73  |1300IF st%=old_s|
00001280  74 61 72 74 20 41 4e 44  20 68 74 25 3d 6f 6c 64  |tart AND ht%=old|
00001290  5f 65 6e 74 72 79 20 45  4e 44 50 52 4f 43 0d 20  |_entry ENDPROC. |
000012a0  31 33 31 30 50 52 49 4e  54 54 41 42 28 30 2c 6f  |1310PRINTTAB(0,o|
000012b0  6c 64 5f 65 6e 74 72 79  2d 6f 6c 64 5f 73 74 61  |ld_entry-old_sta|
000012c0  72 74 29 3b 0d 20 31 33  32 30 50 52 4f 43 64 69  |rt);. 1320PROCdi|
000012d0  73 70 5f 65 6e 74 72 79  28 6f 6c 64 5f 65 6e 74  |sp_entry(old_ent|
000012e0  72 79 2c 69 64 78 3f 6f  6c 64 5f 65 6e 74 72 79  |ry,idx?old_entry|
000012f0  2c 30 29 0d 20 31 33 33  30 49 46 20 73 74 25 3d  |,0). 1330IF st%=|
00001300  6f 6c 64 5f 73 74 61 72  74 20 50 52 49 4e 54 54  |old_start PRINTT|
00001310  41 42 28 30 2c 68 74 25  2d 73 74 25 29 3b 0d 20  |AB(0,ht%-st%);. |
00001320  31 33 34 30 49 46 20 73  74 25 3d 6f 6c 64 5f 73  |1340IF st%=old_s|
00001330  74 61 72 74 20 50 52 4f  43 64 69 73 70 5f 65 6e  |tart PROCdisp_en|
00001340  74 72 79 28 68 74 25 2c  69 64 78 3f 68 74 25 2c  |try(ht%,idx?ht%,|
00001350  2d 31 29 0d 20 31 33 35  30 49 46 20 73 74 25 3d  |-1). 1350IF st%=|
00001360  6f 6c 64 5f 73 74 61 72  74 20 6f 6c 64 5f 65 6e  |old_start old_en|
00001370  74 72 79 3d 68 74 25 3a  45 4e 44 50 52 4f 43 0d  |try=ht%:ENDPROC.|
00001380  20 31 33 36 30 49 46 20  41 42 53 28 73 74 25 2d  | 1360IF ABS(st%-|
00001390  6f 6c 64 5f 73 74 61 72  74 29 3e 6e 73 68 6f 77  |old_start)>nshow|
000013a0  2f 32 20 50 52 4f 43 64  69 73 70 5f 64 69 72 28  |/2 PROCdisp_dir(|
000013b0  73 74 25 2c 68 74 25 29  3a 45 4e 44 50 52 4f 43  |st%,ht%):ENDPROC|
000013c0  0d 20 31 33 37 30 49 46  20 73 74 25 3c 6f 6c 64  |. 1370IF st%<old|
000013d0  5f 73 74 61 72 74 20 56  44 55 33 30 3a 46 4f 52  |_start VDU30:FOR|
000013e0  20 69 25 3d 31 20 54 4f  20 6f 6c 64 5f 73 74 61  | i%=1 TO old_sta|
000013f0  72 74 2d 73 74 25 3a 56  44 55 20 31 31 3a 4e 45  |rt-st%:VDU 11:NE|
00001400  58 54 0d 20 31 33 38 30  49 46 20 73 74 25 3e 6f  |XT. 1380IF st%>o|
00001410  6c 64 5f 73 74 61 72 74  20 50 52 49 4e 54 54 41  |ld_start PRINTTA|
00001420  42 28 30 2c 31 35 29 3a  56 44 55 31 30 3a 46 4f  |B(0,15):VDU10:FO|
00001430  52 20 69 25 3d 31 20 54  4f 20 73 74 25 2d 6f 6c  |R i%=1 TO st%-ol|
00001440  64 5f 73 74 61 72 74 3a  56 44 55 31 30 3a 4e 45  |d_start:VDU10:NE|
00001450  58 54 0d 20 31 33 39 30  49 46 20 73 74 25 3c 6f  |XT. 1390IF st%<o|
00001460  6c 64 5f 73 74 61 72 74  20 46 4f 52 20 69 25 3d  |ld_start FOR i%=|
00001470  73 74 25 20 54 4f 20 6f  6c 64 5f 73 74 61 72 74  |st% TO old_start|
00001480  2d 31 3a 50 52 49 4e 54  54 41 42 28 30 2c 69 25  |-1:PRINTTAB(0,i%|
00001490  2d 73 74 25 29 3b 3a 50  52 4f 43 64 69 73 70 5f  |-st%);:PROCdisp_|
000014a0  65 6e 74 72 79 28 69 25  2c 69 64 78 3f 69 25 2c  |entry(i%,idx?i%,|
000014b0  69 25 3d 68 74 25 29 3a  4e 45 58 54 0d 20 31 34  |i%=ht%):NEXT. 14|
000014c0  30 30 49 46 20 73 74 25  3e 6f 6c 64 5f 73 74 61  |00IF st%>old_sta|
000014d0  72 74 20 46 4f 52 20 69  25 3d 6f 6c 64 5f 73 74  |rt FOR i%=old_st|
000014e0  61 72 74 2b 6e 73 68 6f  77 2b 31 20 54 4f 20 73  |art+nshow+1 TO s|
000014f0  74 25 2b 6e 73 68 6f 77  3a 50 52 49 4e 54 54 41  |t%+nshow:PRINTTA|
00001500  42 28 30 2c 69 25 2d 73  74 25 29 3b 3a 50 52 4f  |B(0,i%-st%);:PRO|
00001510  43 64 69 73 70 5f 65 6e  74 72 79 28 69 25 2c 69  |Cdisp_entry(i%,i|
00001520  64 78 3f 69 25 2c 69 25  3d 68 74 25 29 3a 4e 45  |dx?i%,i%=ht%):NE|
00001530  58 54 0d 20 31 34 31 30  6f 6c 64 5f 73 74 61 72  |XT. 1410old_star|
00001540  74 3d 73 74 25 3a 6f 6c  64 5f 65 6e 74 72 79 3d  |t=st%:old_entry=|
00001550  68 74 25 3a 45 4e 44 50  52 4f 43 0d 20 31 34 32  |ht%:ENDPROC. 142|
00001560  30 3a 0d 20 31 34 33 30  44 45 46 20 46 4e 69 73  |0:. 1430DEF FNis|
00001570  66 69 6c 65 28 6e 29 20  3a 3d 28 28 28 28 3f 28  |file(n) :=((((?(|
00001580  64 69 72 2b 28 33 32 2a  6e 29 2b 31 31 29 29 41  |dir+(32*n)+11))A|
00001590  4e 44 20 26 32 30 29 3c  3e 30 29 41 4e 44 28 28  |ND &20)<>0)AND((|
000015a0  3f 28 64 69 72 2b 28 33  32 2a 6e 29 29 29 3c 3e  |?(dir+(32*n)))<>|
000015b0  26 45 35 29 29 0d 20 31  34 34 30 3a 0d 20 32 32  |&E5)). 1440:. 22|
000015c0  30 30 44 45 46 50 52 4f  43 64 69 73 70 5f 6c 6f  |00DEFPROCdisp_lo|
000015d0  6e 67 28 73 25 29 0d 20  32 32 31 30 4c 4f 43 41  |ng(s%). 2210LOCA|
000015e0  4c 20 69 25 0d 20 32 32  32 30 46 4f 52 20 69 25  |L i%. 2220FOR i%|
000015f0  3d 31 20 54 4f 20 33 31  20 53 54 45 50 20 32 0d  |=1 TO 31 STEP 2.|
00001600  20 32 32 33 30 49 46 20  69 25 3d 31 31 20 4f 52  | 2230IF i%=11 OR|
00001610  20 69 25 3d 31 32 20 4f  52 20 69 25 3d 31 33 20  | i%=12 OR i%=13 |
00001620  69 25 3d 31 34 20 45 4c  53 45 20 49 46 20 69 25  |i%=14 ELSE IF i%|
00001630  3d 32 36 20 4f 52 20 69  25 3d 32 37 20 69 25 3d  |=26 OR i%=27 i%=|
00001640  32 38 0d 20 32 32 34 30  49 46 20 28 28 73 25 3f  |28. 2240IF ((s%?|
00001650  69 25 29 3c 26 32 30 29  4f 52 28 28 73 25 3f 69  |i%)<&20)OR((s%?i|
00001660  25 29 3e 26 37 38 29 20  56 44 55 28 41 53 43 22  |%)>&78) VDU(ASC"|
00001670  5c 22 29 20 45 4c 53 45  20 56 44 55 28 73 25 3f  |\") ELSE VDU(s%?|
00001680  69 25 29 0d 20 32 32 35  30 4e 45 58 54 3a 50 52  |i%). 2250NEXT:PR|
00001690  49 4e 54 20 3b 22 22 0d  20 32 32 36 30 43 4f 4c  |INT ;"". 2260COL|
000016a0  4f 55 52 31 3a 43 4f 4c  4f 55 52 31 32 38 0d 20  |OUR1:COLOUR128. |
000016b0  32 32 37 30 45 4e 44 50  52 4f 43 0d 20 32 32 38  |2270ENDPROC. 228|
000016c0  30 3a 0d 20 32 32 39 30  44 45 46 50 52 4f 43 64  |0:. 2290DEFPROCd|
000016d0  69 73 70 5f 65 6e 74 72  79 28 6e 25 2c 73 25 2c  |isp_entry(n%,s%,|
000016e0  68 6c 74 25 29 0d 20 32  33 30 30 4c 4f 43 41 4c  |hlt%). 2300LOCAL|
000016f0  20 69 25 2c 6d 25 0d 20  32 33 31 30 6d 25 3d 64  | i%,m%. 2310m%=d|
00001700  69 72 2b 28 73 25 2a 33  32 29 3a 49 46 20 6e 25  |ir+(s%*32):IF n%|
00001710  3e 6d 61 78 20 50 52 49  4e 54 20 22 20 20 20 20  |>max PRINT "    |
00001720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001740  20 20 20 20 22 3a 45 4e  44 50 52 4f 43 0d 20 32  |    ":ENDPROC. 2|
00001750  33 39 30 49 46 20 68 6c  74 25 20 43 4f 4c 4f 55  |390IF hlt% COLOU|
00001760  52 20 30 3a 43 4f 4c 4f  55 52 20 31 32 39 20 45  |R 0:COLOUR 129 E|
00001770  4c 53 45 20 43 4f 4c 4f  55 52 20 31 3a 43 4f 4c  |LSE COLOUR 1:COL|
00001780  4f 55 52 20 31 32 38 0d  20 32 33 39 32 50 52 49  |OUR 128. 2392PRI|
00001790  4e 54 20 52 49 47 48 54  24 28 22 30 22 2b 53 54  |NT RIGHT$("0"+ST|
000017a0  52 24 7e 6e 25 2c 32 29  2b 22 3a 22 3b 0d 20 32  |R$~n%,2)+":";. 2|
000017b0  33 39 35 49 46 20 4e 4f  54 20 6f 70 74 25 28 33  |395IF NOT opt%(3|
000017c0  29 20 45 4c 53 45 20 50  52 49 4e 54 20 46 4e 6e  |) ELSE PRINT FNn|
000017d0  61 6d 65 28 73 25 29 3b  3a 49 46 20 46 4e 69 73  |ame(s%);:IF FNis|
000017e0  64 69 72 28 73 25 29 20  50 52 49 4e 54 20 3b 22  |dir(s%) PRINT ;"|
000017f0  5c 22 3a 45 4c 53 45 20  50 52 49 4e 54 20 3b 22  |\":ELSE PRINT ;"|
00001800  22 0d 20 32 33 39 37 49  46 20 6f 70 74 25 28 33  |". 2397IF opt%(3|
00001810  29 20 43 4f 4c 4f 55 52  31 3a 43 4f 4c 4f 55 52  |) COLOUR1:COLOUR|
00001820  31 32 38 3a 45 4e 44 50  52 4f 43 0d 20 32 34 30  |128:ENDPROC. 240|
00001830  30 50 52 49 4e 54 20 22  28 22 2b 52 49 47 48 54  |0PRINT "("+RIGHT|
00001840  24 28 22 30 22 2b 53 54  52 24 7e 28 3f 6d 25 29  |$("0"+STR$~(?m%)|
00001850  2c 32 29 2b 22 29 22 3b  0d 20 32 34 30 35 49 46  |,2)+")";. 2405IF|
00001860  20 6d 25 3f 31 31 3d 26  30 46 20 41 4e 44 20 6f  | m%?11=&0F AND o|
00001870  70 74 25 28 30 29 3a 50  52 4f 43 64 69 73 70 5f  |pt%(0):PROCdisp_|
00001880  6c 6f 6e 67 28 6d 25 29  3a 45 4e 44 50 52 4f 43  |long(m%):ENDPROC|
00001890  0d 20 32 34 30 36 49 46  20 28 3f 6d 25 3d 30 29  |. 2406IF (?m%=0)|
000018a0  20 41 4e 44 20 6f 70 74  25 28 32 29 20 50 52 49  | AND opt%(2) PRI|
000018b0  4e 54 20 3b 22 2d 2d 2d  20 45 6d 70 74 79 20 2d  |NT ;"--- Empty -|
000018c0  2d 2d 22 3a 43 4f 4c 4f  55 52 31 3a 43 4f 4c 4f  |--":COLOUR1:COLO|
000018d0  55 52 31 32 38 3a 45 4e  44 50 52 4f 43 0d 20 32  |UR128:ENDPROC. 2|
000018e0  34 31 30 46 4f 52 20 69  25 3d 30 20 54 4f 20 31  |410FOR i%=0 TO 1|
000018f0  30 0d 20 32 34 32 30 49  46 20 28 28 6d 25 3f 69  |0. 2420IF ((m%?i|
00001900  25 29 3c 26 32 30 29 4f  52 28 28 6d 25 3f 69 25  |%)<&20)OR((m%?i%|
00001910  29 3e 26 37 45 29 20 54  48 45 4e 20 56 44 55 28  |)>&7E) THEN VDU(|
00001920  41 53 43 22 5c 22 29 20  45 4c 53 45 20 56 44 55  |ASC"\") ELSE VDU|
00001930  28 6d 25 3f 69 25 29 0d  20 32 34 33 30 4e 45 58  |(m%?i%). 2430NEX|
00001940  54 0d 20 32 34 33 35 49  46 20 28 3f 6d 25 3d 26  |T. 2435IF (?m%=&|
00001950  45 35 29 20 41 4e 44 20  6f 70 74 25 28 31 29 20  |E5) AND opt%(1) |
00001960  50 52 49 4e 54 20 3b 22  3a 22 2b 46 4e 68 32 28  |PRINT ;":"+FNh2(|
00001970  6d 25 3f 31 31 29 2b 22  20 2a 2a 20 44 65 6c 65  |m%?11)+" ** Dele|
00001980  74 65 64 20 2a 2a 22 3a  43 4f 4c 4f 55 52 20 31  |ted **":COLOUR 1|
00001990  3a 43 4f 4c 4f 55 52 20  31 32 38 3a 45 4e 44 50  |:COLOUR 128:ENDP|
000019a0  52 4f 43 0d 20 32 34 34  30 50 52 49 4e 54 20 3b  |ROC. 2440PRINT ;|
000019b0  22 3a 22 2b 52 49 47 48  54 24 28 22 30 22 2b 53  |":"+RIGHT$("0"+S|
000019c0  54 52 24 7e 28 6d 25 3f  31 31 29 2c 32 29 2b 22  |TR$~(m%?11),2)+"|
000019d0  40 22 2b 52 49 47 48 54  24 28 22 30 30 30 22 2b  |@"+RIGHT$("000"+|
000019e0  53 54 52 24 7e 28 28 6d  25 21 32 36 29 41 4e 44  |STR$~((m%!26)AND|
000019f0  20 26 46 46 46 46 29 2c  34 29 2b 22 2e 22 2b 46  | &FFFF),4)+"."+F|
00001a00  4e 64 61 74 65 28 6d 25  21 32 32 29 2b 22 3a 22  |Ndate(m%!22)+":"|
00001a10  2b 53 54 52 24 7e 28 6d  25 21 32 38 29 0d 20 32  |+STR$~(m%!28). 2|
00001a20  34 35 30 43 4f 4c 4f 55  52 31 3a 43 4f 4c 4f 55  |450COLOUR1:COLOU|
00001a30  52 31 32 38 3a 45 4e 44  50 52 4f 43 0d 20 32 34  |R128:ENDPROC. 24|
00001a40  36 30 3a 0d 20 32 34 37  30 44 45 46 50 52 4f 43  |60:. 2470DEFPROC|
00001a50  64 65 66 5f 6f 70 74 73  0d 20 32 34 38 30 4c 4f  |def_opts. 2480LO|
00001a60  43 41 4c 20 69 25 0d 20  32 34 39 30 46 4f 52 20  |CAL i%. 2490FOR |
00001a70  69 25 3d 30 20 54 4f 20  39 3a 6f 70 74 25 28 69  |i%=0 TO 9:opt%(i|
00001a80  25 29 3d 30 3a 4e 45 58  54 0d 20 32 35 30 30 6f  |%)=0:NEXT. 2500o|
00001a90  70 74 25 28 30 29 3d 2d  31 3a 6f 70 74 25 28 31  |pt%(0)=-1:opt%(1|
00001aa0  29 3d 2d 31 3a 6f 70 74  25 28 32 29 3d 2d 31 0d  |)=-1:opt%(2)=-1.|
00001ab0  20 32 35 31 30 45 4e 44  50 52 4f 43 0d 20 32 35  | 2510ENDPROC. 25|
00001ac0  32 30 3a 0d 20 32 35 33  30 44 45 46 20 50 52 4f  |20:. 2530DEF PRO|
00001ad0  43 67 65 74 5f 66 69 6c  65 28 6e 25 29 0d 20 32  |Cget_file(n%). 2|
00001ae0  35 34 30 4c 4f 43 41 4c  20 76 25 2c 61 25 2c 66  |540LOCAL v%,a%,f|
00001af0  24 2c 6c 25 2c 66 25 2c  64 25 2c 63 25 2c 73 25  |$,l%,f%,d%,c%,s%|
00001b00  2c 69 25 2c 61 6d 25 0d  20 32 35 35 30 2a 46 58  |,i%,am%. 2550*FX|
00001b10  32 31 2c 30 0d 20 32 35  36 30 50 52 49 4e 54 22  |21,0. 2560PRINT"|
00001b20  56 69 65 77 2f 53 61 76  65 3f 20 22 3b 0d 20 32  |View/Save? ";. 2|
00001b30  35 37 30 52 45 50 45 41  54 20 76 25 3d 46 4e 75  |570REPEAT v%=FNu|
00001b40  63 28 47 45 54 29 3a 55  4e 54 49 4c 20 76 25 3d  |c(GET):UNTIL v%=|
00001b50  41 53 43 22 56 22 20 4f  52 20 76 25 3d 41 53 43  |ASC"V" OR v%=ASC|
00001b60  22 53 22 3a 56 44 55 20  76 25 0d 20 32 35 38 30  |"S":VDU v%. 2580|
00001b70  50 52 49 4e 54 27 22 42  69 6e 61 72 79 2f 41 73  |PRINT'"Binary/As|
00001b80  63 69 69 20 54 72 61 6e  73 66 65 72 3f 20 22 3b  |cii Transfer? ";|
00001b90  0d 20 32 35 39 30 52 45  50 45 41 54 20 61 25 3d  |. 2590REPEAT a%=|
00001ba0  46 4e 75 63 28 47 45 54  29 3a 55 4e 54 49 4c 20  |FNuc(GET):UNTIL |
00001bb0  61 25 3d 41 53 43 22 42  22 20 4f 52 20 61 25 3d  |a%=ASC"B" OR a%=|
00001bc0  41 53 43 22 41 22 3a 56  44 55 20 61 25 0d 20 32  |ASC"A":VDU a%. 2|
00001bd0  36 30 30 49 46 20 76 25  3d 41 53 43 22 53 22 20  |600IF v%=ASC"S" |
00001be0  49 4e 50 55 54 27 22 46  69 6c 65 6e 61 6d 65 20  |INPUT'"Filename |
00001bf0  74 6f 20 53 61 76 65 20  61 73 3a 22 66 24 20 45  |to Save as:"f$ E|
00001c00  4c 53 45 20 50 52 4f 43  77 69 6e 28 31 29 3a 56  |LSE PROCwin(1):V|
00001c10  44 55 31 34 0d 20 32 36  31 30 64 25 3d 30 3a 6c  |DU14. 2610d%=0:l|
00001c20  25 3d 21 28 64 69 72 2b  28 33 32 2a 6e 25 29 2b  |%=!(dir+(32*n%)+|
00001c30  32 38 29 3a 63 25 3d 28  64 69 72 21 28 32 36 2b  |28):c%=(dir!(26+|
00001c40  6e 25 2a 33 32 29 29 41  4e 44 20 26 46 46 46 46  |n%*32))AND &FFFF|
00001c50  0d 20 32 36 32 30 49 46  20 76 25 3d 41 53 43 22  |. 2620IF v%=ASC"|
00001c60  53 22 20 4f 53 43 4c 49  28 22 43 52 45 41 54 45  |S" OSCLI("CREATE|
00001c70  20 22 2b 66 24 2b 22 20  22 2b 53 54 52 24 7e 6c  | "+f$+" "+STR$~l|
00001c80  25 29 0d 20 32 36 33 30  49 46 20 76 25 3d 41 53  |%). 2630IF v%=AS|
00001c90  43 22 53 22 20 66 25 3d  4f 50 45 4e 55 50 28 66  |C"S" f%=OPENUP(f|
00001ca0  24 29 0d 20 32 36 34 30  52 45 50 45 41 54 20 69  |$). 2640REPEAT i|
00001cb0  25 3d 2d 31 0d 20 32 36  34 35 52 45 50 45 41 54  |%=-1. 2645REPEAT|
00001cc0  20 69 25 3d 69 25 2b 31  0d 20 32 36 35 30 73 25  | i%=i%+1. 2650s%|
00001cd0  3d 46 4e 73 65 63 28 63  25 29 3a 50 52 4f 43 72  |=FNsec(c%):PROCr|
00001ce0  65 61 64 5f 64 6f 73 28  62 75 66 2b 28 31 30 32  |ead_dos(buf+(102|
00001cf0  34 2a 69 25 29 2c 73 25  29 3a 50 52 4f 43 72 65  |4*i%),s%):PROCre|
00001d00  61 64 5f 64 6f 73 28 62  75 66 2b 35 31 32 2b 28  |ad_dos(buf+512+(|
00001d10  31 30 32 34 2a 69 25 29  2c 73 25 2b 31 29 0d 20  |1024*i%),s%+1). |
00001d20  32 36 36 30 63 25 3d 46  4e 6e 63 6c 75 73 28 63  |2660c%=FNnclus(c|
00001d30  25 29 3a 55 4e 54 49 4c  20 63 25 3e 26 46 46 37  |%):UNTIL c%>&FF7|
00001d40  20 4f 52 20 69 25 3d 28  28 62 75 66 6c 65 6e 20  | OR i%=((buflen |
00001d50  44 49 56 20 31 30 32 34  29 2d 31 29 0d 20 32 36  |DIV 1024)-1). 26|
00001d60  37 30 49 46 20 76 25 3d  41 53 43 22 56 22 20 50  |70IF v%=ASC"V" P|
00001d70  52 4f 43 76 69 65 77 5f  62 75 66 28 6e 25 2c 64  |ROCview_buf(n%,d|
00001d80  25 2c 6c 25 2c 61 25 2c  62 75 66 6c 65 6e 29 20  |%,l%,a%,buflen) |
00001d90  45 4c 53 45 20 50 52 4f  43 73 61 76 65 5f 62 75  |ELSE PROCsave_bu|
00001da0  66 28 66 25 2c 64 25 2c  6c 25 2c 61 25 2c 62 75  |f(f%,d%,l%,a%,bu|
00001db0  66 6c 65 6e 29 0d 20 32  36 38 30 49 46 20 64 25  |flen). 2680IF d%|
00001dc0  2b 62 75 66 6c 65 6e 3c  6c 25 20 64 25 3d 64 25  |+buflen<l% d%=d%|
00001dd0  2b 62 75 66 6c 65 6e 20  45 4c 53 45 20 64 25 3d  |+buflen ELSE d%=|
00001de0  6c 25 0d 20 32 36 39 30  50 52 4f 43 77 69 6e 28  |l%. 2690PROCwin(|
00001df0  32 29 3a 50 52 49 4e 54  20 22 44 6f 6e 65 20 22  |2):PRINT "Done "|
00001e00  2b 53 54 52 24 28 64 25  20 44 49 56 20 31 30 32  |+STR$(d% DIV 102|
00001e10  34 29 2b 22 4b 20 6f 66  20 22 2b 53 54 52 24 28  |4)+"K of "+STR$(|
00001e20  6c 25 20 44 49 56 20 31  30 32 34 29 2b 22 4b 20  |l% DIV 1024)+"K |
00001e30  28 22 2b 53 54 52 24 49  4e 54 28 28 64 25 2f 6c  |("+STR$INT((d%/l|
00001e40  25 29 2a 31 30 30 29 2b  22 25 29 22 0d 20 32 37  |%)*100)+"%)". 27|
00001e50  30 30 55 4e 54 49 4c 20  64 25 3d 6c 25 20 4f 52  |00UNTIL d%=l% OR|
00001e60  20 63 25 3e 26 46 46 37  0d 20 32 37 31 30 50 52  | c%>&FF7. 2710PR|
00001e70  49 4e 54 20 22 2e 2e 2e  46 69 6e 69 73 68 65 64  |INT "...Finished|
00001e80  22 0d 20 32 37 32 30 49  46 20 76 25 3d 41 53 43  |". 2720IF v%=ASC|
00001e90  22 53 22 20 43 4c 4f 53  45 23 66 25 0d 20 32 37  |"S" CLOSE#f%. 27|
00001ea0  33 30 56 44 55 31 35 3a  45 4e 44 50 52 4f 43 0d  |30VDU15:ENDPROC.|
00001eb0  20 32 37 34 30 3a 0d 20  32 37 35 30 44 45 46 20  | 2740:. 2750DEF |
00001ec0  46 4e 75 63 28 63 25 29  0d 20 32 37 36 30 49 46  |FNuc(c%). 2760IF|
00001ed0  20 63 25 3e 39 36 20 41  4e 44 20 63 25 3c 31 32  | c%>96 AND c%<12|
00001ee0  33 20 54 48 45 4e 20 3d  28 63 25 2d 33 32 29 20  |3 THEN =(c%-32) |
00001ef0  45 4c 53 45 20 3d 63 25  0d 20 32 37 37 30 3a 0d  |ELSE =c%. 2770:.|
00001f00  20 32 37 38 30 44 45 46  20 50 52 4f 43 76 69 65  | 2780DEF PROCvie|
00001f10  77 5f 62 75 66 28 6e 25  2c 64 25 2c 6c 25 2c 61  |w_buf(n%,d%,l%,a|
00001f20  25 2c 62 25 29 0d 20 32  37 39 30 4c 4f 43 41 4c  |%,b%). 2790LOCAL|
00001f30  20 70 25 2c 6d 25 2c 69  25 2c 6a 25 2c 72 25 3a  | p%,m%,i%,j%,r%:|
00001f40  72 25 3d 30 0d 20 32 37  39 35 50 52 4f 43 77 69  |r%=0. 2795PROCwi|
00001f50  6e 28 31 29 0d 20 32 38  30 30 6d 25 3d 64 25 2b  |n(1). 2800m%=d%+|
00001f60  62 25 2d 31 3a 49 46 20  6d 25 3e 6c 25 20 6d 25  |b%-1:IF m%>l% m%|
00001f70  3d 6c 25 0d 20 32 38 31  30 46 4f 52 20 69 25 3d  |=l%. 2810FOR i%=|
00001f80  64 25 20 54 4f 20 6d 25  20 53 54 45 50 20 38 0d  |d% TO m% STEP 8.|
00001f90  20 32 38 32 30 49 46 20  61 25 3d 41 53 43 22 42  | 2820IF a%=ASC"B|
00001fa0  22 20 50 52 49 4e 54 20  27 46 4e 68 36 28 69 25  |" PRINT 'FNh6(i%|
00001fb0  29 2b 22 3a 22 3b 0d 20  32 38 33 30 70 25 3d 62  |)+":";. 2830p%=b|
00001fc0  75 66 2b 69 25 2d 64 25  0d 20 32 38 34 30 46 4f  |uf+i%-d%. 2840FO|
00001fd0  52 20 6a 25 3d 30 20 54  4f 20 37 0d 20 32 38 35  |R j%=0 TO 7. 285|
00001fe0  30 49 46 20 61 25 3d 41  53 43 22 42 22 20 50 52  |0IF a%=ASC"B" PR|
00001ff0  49 4e 54 3b 46 4e 68 32  28 70 25 3f 6a 25 29 3b  |INT;FNh2(p%?j%);|
00002000  22 20 22 3b 0d 20 32 38  36 30 49 46 20 61 25 3d  |" ";. 2860IF a%=|
00002010  41 53 43 22 41 22 20 41  4e 44 20 72 25 20 56 44  |ASC"A" AND r% VD|
00002020  55 20 31 33 2c 31 30 0d  20 32 38 37 30 49 46 20  |U 13,10. 2870IF |
00002030  61 25 3c 3e 41 53 43 22  41 22 20 45 4c 53 45 20  |a%<>ASC"A" ELSE |
00002040  49 46 20 28 28 70 25 3f  6a 25 29 3c 26 32 30 20  |IF ((p%?j%)<&20 |
00002050  4f 52 20 28 70 25 3f 6a  25 29 3e 26 37 45 29 41  |OR (p%?j%)>&7E)A|
00002060  4e 44 28 28 70 25 3f 6a  25 29 3c 3e 31 33 20 41  |ND((p%?j%)<>13 A|
00002070  4e 44 20 28 70 25 3f 6a  25 29 3c 3e 31 30 29 20  |ND (p%?j%)<>10) |
00002080  56 44 55 41 53 43 22 2e  22 20 45 4c 53 45 20 49  |VDUASC"." ELSE I|
00002090  46 20 28 28 70 25 3f 6a  25 29 3c 3e 31 33 20 41  |F ((p%?j%)<>13 A|
000020a0  4e 44 20 28 70 25 3f 6a  25 29 3c 3e 31 30 29 20  |ND (p%?j%)<>10) |
000020b0  56 44 55 20 28 70 25 3f  6a 25 29 0d 20 32 38 38  |VDU (p%?j%). 288|
000020c0  30 72 25 3d 28 70 25 3f  6a 25 29 3d 31 33 0d 20  |0r%=(p%?j%)=13. |
000020d0  32 38 39 30 49 46 20 6a  25 2b 69 25 3d 6c 25 20  |2890IF j%+i%=l% |
000020e0  6a 25 3d 39 39 39 0d 20  32 39 30 30 4e 45 58 54  |j%=999. 2900NEXT|
000020f0  0d 20 32 39 31 30 49 46  20 61 25 3d 41 53 43 22  |. 2910IF a%=ASC"|
00002100  42 22 20 50 52 49 4e 54  20 3b 22 20 3a 20 22 3b  |B" PRINT ;" : ";|
00002110  0d 20 32 39 32 30 46 4f  52 20 6a 25 3d 30 20 54  |. 2920FOR j%=0 T|
00002120  4f 20 37 0d 20 32 39 33  30 49 46 20 61 25 3c 3e  |O 7. 2930IF a%<>|
00002130  41 53 43 22 42 22 20 45  4c 53 45 20 49 46 20 28  |ASC"B" ELSE IF (|
00002140  28 70 25 3f 6a 25 29 3c  26 32 30 20 4f 52 20 28  |(p%?j%)<&20 OR (|
00002150  70 25 3f 6a 25 29 3e 26  37 45 29 20 56 44 55 41  |p%?j%)>&7E) VDUA|
00002160  53 43 22 2e 22 20 45 4c  53 45 20 56 44 55 28 70  |SC"." ELSE VDU(p|
00002170  25 3f 6a 25 29 0d 20 32  39 33 35 49 46 20 6a 25  |%?j%). 2935IF j%|
00002180  2b 69 25 3d 6c 25 20 6a  25 3d 39 39 39 0d 20 32  |+i%=l% j%=999. 2|
00002190  39 34 30 4e 45 58 54 0d  20 32 39 35 30 4e 45 58  |940NEXT. 2950NEX|
000021a0  54 3a 52 45 50 45 41 54  20 55 4e 54 49 4c 20 49  |T:REPEAT UNTIL I|
000021b0  4e 4b 45 59 28 2d 31 29  0d 20 32 39 36 30 45 4e  |NKEY(-1). 2960EN|
000021c0  44 50 52 4f 43 0d 20 32  39 37 30 3a 0d 20 32 39  |DPROC. 2970:. 29|
000021d0  38 30 44 45 46 20 46 4e  68 36 28 6e 25 29 20 3d  |80DEF FNh6(n%) =|
000021e0  52 49 47 48 54 24 28 22  30 30 30 30 30 22 2b 53  |RIGHT$("00000"+S|
000021f0  54 52 24 7e 6e 25 2c 36  29 0d 20 32 39 39 30 44  |TR$~n%,6). 2990D|
00002200  45 46 20 46 4e 68 32 28  6e 25 29 20 3d 52 49 47  |EF FNh2(n%) =RIG|
00002210  48 54 24 28 22 30 22 2b  53 54 52 24 7e 6e 25 2c  |HT$("0"+STR$~n%,|
00002220  32 29 0d 20 33 30 30 30  3a 0d 20 33 30 31 30 44  |2). 3000:. 3010D|
00002230  45 46 20 50 52 4f 43 6f  70 74 69 6f 6e 73 0d 20  |EF PROCoptions. |
00002240  33 30 32 30 4c 4f 43 41  4c 20 6f 25 2c 6f 24 0d  |3020LOCAL o%,o$.|
00002250  20 33 30 33 30 50 52 4f  43 77 69 6e 28 31 29 0d  | 3030PROCwin(1).|
00002260  20 33 30 34 30 50 52 49  4e 54 20 54 41 42 28 31  | 3040PRINT TAB(1|
00002270  35 29 22 4f 70 74 69 6f  6e 73 20 4d 65 6e 75 22  |5)"Options Menu"|
00002280  0d 20 33 30 35 30 50 52  49 4e 54 20 22 23 3a 4f  |. 3050PRINT "#:O|
00002290  70 74 69 6f 6e 22 3b 54  41 42 28 35 35 29 3b 22  |ption";TAB(55);"|
000022a0  53 65 74 22 27 0d 20 33  30 36 30 52 45 53 54 4f  |Set"'. 3060RESTO|
000022b0  52 45 0d 20 33 30 37 30  46 4f 52 20 6f 25 3d 30  |RE. 3070FOR o%=0|
000022c0  20 54 4f 20 39 0d 20 33  30 38 30 52 45 41 44 20  | TO 9. 3080READ |
000022d0  6f 24 0d 20 33 30 39 30  50 52 49 4e 54 20 53 54  |o$. 3090PRINT ST|
000022e0  52 24 6f 25 2b 22 3a 22  2b 6f 24 3b 54 41 42 28  |R$o%+":"+o$;TAB(|
000022f0  35 35 29 3b 0d 20 33 31  30 30 49 46 20 6f 70 74  |55);. 3100IF opt|
00002300  25 28 6f 25 29 20 50 52  49 4e 54 20 3b 22 59 65  |%(o%) PRINT ;"Ye|
00002310  73 22 20 45 4c 53 45 20  50 52 49 4e 54 20 3b 22  |s" ELSE PRINT ;"|
00002320  4e 6f 20 22 0d 20 33 31  31 30 4e 45 58 54 0d 20  |No ". 3110NEXT. |
00002330  33 31 32 30 50 52 4f 43  77 69 6e 28 32 29 3a 50  |3120PROCwin(2):P|
00002340  52 49 4e 54 20 22 54 6f  67 67 6c 65 20 4f 70 74  |RINT "Toggle Opt|
00002350  69 6f 6e 2c 20 6f 72 20  65 58 69 74 3f 22 3a 50  |ion, or eXit?":P|
00002360  52 4f 43 77 69 6e 28 33  29 0d 20 33 31 33 30 52  |ROCwin(3). 3130R|
00002370  45 50 45 41 54 20 52 45  50 45 41 54 0d 20 33 31  |EPEAT REPEAT. 31|
00002380  34 30 2a 46 58 32 31 2c  30 0d 20 33 31 34 35 6f  |40*FX21,0. 3145o|
00002390  25 3d 47 45 54 0d 20 33  31 35 30 55 4e 54 49 4c  |%=GET. 3150UNTIL|
000023a0  20 28 28 6f 25 3e 34 37  29 20 41 4e 44 20 28 6f  | ((o%>47) AND (o|
000023b0  25 3c 35 38 29 29 20 4f  52 20 28 6f 25 3d 38 38  |%<58)) OR (o%=88|
000023c0  29 20 4f 52 20 28 6f 25  3d 31 32 30 29 0d 20 33  |) OR (o%=120). 3|
000023d0  31 36 30 49 46 20 6f 25  3c 35 38 20 6f 25 3d 6f  |160IF o%<58 o%=o|
000023e0  25 2d 34 38 0d 20 33 31  37 30 49 46 20 6f 25 3c  |%-48. 3170IF o%<|
000023f0  31 30 20 6f 70 74 25 28  6f 25 29 3d 4e 4f 54 20  |10 opt%(o%)=NOT |
00002400  6f 70 74 25 28 6f 25 29  0d 20 33 31 38 30 49 46  |opt%(o%). 3180IF|
00002410  20 6f 25 3e 39 20 45 4c  53 45 20 50 52 49 4e 54  | o%>9 ELSE PRINT|
00002420  20 54 41 42 28 35 35 2c  6f 25 29 3b 3a 49 46 20  | TAB(55,o%);:IF |
00002430  6f 70 74 25 28 6f 25 29  20 50 52 49 4e 54 20 3b  |opt%(o%) PRINT ;|
00002440  22 59 65 73 22 20 45 4c  53 45 20 50 52 49 4e 54  |"Yes" ELSE PRINT|
00002450  20 3b 22 4e 6f 20 22 0d  20 33 31 39 30 55 4e 54  | ;"No ". 3190UNT|
00002460  49 4c 20 6f 25 3e 39 3a  50 52 4f 43 77 69 6e 28  |IL o%>9:PROCwin(|
00002470  32 29 0d 20 33 32 30 30  45 4e 44 50 52 4f 43 0d  |2). 3200ENDPROC.|
00002480  20 33 32 31 30 3a 0d 20  33 32 32 30 44 41 54 41  | 3210:. 3220DATA|
00002490  20 22 44 69 73 70 6c 61  79 20 6c 6f 6e 67 20 66  | "Display long f|
000024a0  69 6c 65 6e 61 6d 65 73  22 2c 22 49 64 65 6e 74  |ilenames","Ident|
000024b0  69 66 79 20 64 65 6c 65  74 65 64 20 6f 62 6a 65  |ify deleted obje|
000024c0  63 74 73 22 0d 20 33 32  33 30 44 41 54 41 20 22  |cts". 3230DATA "|
000024d0  49 64 65 6e 74 69 66 79  20 65 6d 70 74 79 20 6f  |Identify empty o|
000024e0  62 6a 65 63 74 73 22 2c  20 22 27 43 6f 72 72 65  |bjects", "'Corre|
000024f0  63 74 27 20 4c 69 73 74  69 6e 67 22 0d 20 33 32  |ct' Listing". 32|
00002500  34 30 44 41 54 41 20 22  41 6c 70 68 61 20 53 6f  |40DATA "Alpha So|
00002510  72 74 22 2c 20 22 44 69  72 73 20 46 69 72 73 74  |rt", "Dirs First|
00002520  22 0d 20 33 32 35 30 44  41 54 41 20 22 45 78 74  |". 3250DATA "Ext|
00002530  72 61 63 74 20 54 69 74  6c 65 22 2c 20 22 52 65  |ract Title", "Re|
00002540  73 65 72 76 65 64 22 0d  20 33 32 36 30 44 41 54  |served". 3260DAT|
00002550  41 20 22 52 65 73 65 72  76 65 64 22 2c 20 22 52  |A "Reserved", "R|
00002560  65 73 65 72 76 65 64 22  0d 20 33 32 37 30 3a 0d  |eserved". 3270:.|
00002570  20 33 32 38 30 44 45 46  20 50 52 4f 43 73 61 76  | 3280DEF PROCsav|
00002580  65 5f 62 75 66 28 66 25  2c 64 25 2c 6c 25 2c 61  |e_buf(f%,d%,l%,a|
00002590  25 2c 62 25 29 0d 20 33  32 39 30 4c 4f 43 41 4c  |%,b%). 3290LOCAL|
000025a0  20 69 25 2c 6d 25 2c 70  25 3a 52 45 4d 20 64 69  | i%,m%,p%:REM di|
000025b0  64 20 77 65 20 66 6f 72  67 65 74 20 61 73 63 69  |d we forget asci|
000025c0  69 20 63 6f 6e 76 65 72  73 69 6f 6e 2e 2e 2e 3f  |i conversion...?|
000025d0  0d 20 33 33 30 30 6d 25  3d 64 25 2b 62 25 2d 31  |. 3300m%=d%+b%-1|
000025e0  3a 49 46 20 6d 25 3e 6c  25 20 6d 25 3d 6c 25 0d  |:IF m%>l% m%=l%.|
000025f0  20 33 33 31 30 3f 70 61  72 3d 66 25 3a 70 61 72  | 3310?par=f%:par|
00002600  21 31 3d 62 75 66 0d 20  33 33 32 30 70 61 72 21  |!1=buf. 3320par!|
00002610  35 3d 6d 25 2d 64 25 3a  70 61 72 21 39 3d 50 54  |5=m%-d%:par!9=PT|
00002620  52 23 66 25 0d 20 33 33  33 30 58 25 3d 28 70 61  |R#f%. 3330X%=(pa|
00002630  72 20 4d 4f 44 20 32 35  36 29 3a 59 25 3d 28 70  |r MOD 256):Y%=(p|
00002640  61 72 20 44 49 56 20 32  35 36 29 0d 20 33 33 34  |ar DIV 256). 334|
00002650  30 41 25 3d 32 3a 43 41  4c 4c 20 26 46 46 44 31  |0A%=2:CALL &FFD1|
00002660  0d 20 33 33 35 30 45 4e  44 50 52 4f 43 0d 20 33  |. 3350ENDPROC. 3|
00002670  33 36 30 3a 0d 20 33 33  37 30 44 45 46 20 46 4e  |360:. 3370DEF FN|
00002680  69 6e 64 65 78 28 6d 61  78 29 0d 20 33 33 38 30  |index(max). 3380|
00002690  4c 4f 43 41 4c 20 6e 24  2c 69 25 2c 6e 25 2c 6f  |LOCAL n$,i%,n%,o|
000026a0  25 0d 20 33 33 38 35 64  69 72 5f 6d 61 78 3d 6d  |%. 3385dir_max=m|
000026b0  61 78 0d 20 33 33 39 30  6e 25 3d 2d 31 3a 46 4f  |ax. 3390n%=-1:FO|
000026c0  52 20 69 25 3d 30 20 54  4f 20 26 46 46 20 53 54  |R i%=0 TO &FF ST|
000026d0  45 50 20 34 3a 69 64 78  21 69 25 3d 26 46 46 46  |EP 4:idx!i%=&FFF|
000026e0  46 46 46 46 46 3a 4e 45  58 54 0d 20 33 34 30 30  |FFFFF:NEXT. 3400|
000026f0  46 4f 52 20 69 25 3d 30  20 54 4f 20 6d 61 78 0d  |FOR i%=0 TO max.|
00002700  20 33 34 31 30 49 46 20  64 69 72 3f 28 69 25 2a  | 3410IF dir?(i%*|
00002710  33 32 29 3d 30 20 69 25  3d 39 39 39 39 3a 4e 45  |32)=0 i%=9999:NE|
00002720  58 54 3a 3d 6e 25 2d 28  6e 25 3d 2d 31 29 0d 20  |XT:=n%-(n%=-1). |
00002730  33 34 32 30 6f 25 3d 28  28 64 69 72 3f 28 69 25  |3420o%=((dir?(i%|
00002740  2a 33 32 2b 31 31 29 29  3d 26 30 46 29 4f 52 28  |*32+11))=&0F)OR(|
00002750  28 64 69 72 3f 28 69 25  2a 33 32 2b 31 31 29 29  |(dir?(i%*32+11))|
00002760  3d 26 30 38 29 4f 52 28  28 64 69 72 3f 28 69 25  |=&08)OR((dir?(i%|
00002770  2a 33 32 29 29 3d 26 45  35 29 0d 20 33 34 33 30  |*32))=&E5). 3430|
00002780  6f 25 3d 28 4e 4f 54 20  6f 25 29 20 4f 52 20 28  |o%=(NOT o%) OR (|
00002790  4e 4f 54 20 6f 70 74 25  28 33 29 29 0d 20 33 34  |NOT opt%(3)). 34|
000027a0  34 30 6e 25 3d 6e 25 2d  6f 25 0d 20 33 34 35 30  |40n%=n%-o%. 3450|
000027b0  49 46 20 6f 25 20 50 52  4f 43 61 64 64 74 6f 69  |IF o% PROCaddtoi|
000027c0  64 78 28 69 25 2c 6e 25  29 0d 20 33 34 36 30 49  |dx(i%,n%). 3460I|
000027d0  46 20 6f 70 74 25 28 36  29 20 41 4e 44 20 28 64  |F opt%(6) AND (d|
000027e0  69 72 3f 28 69 25 2a 33  32 2b 31 31 29 29 3d 26  |ir?(i%*32+11))=&|
000027f0  30 38 20 74 69 74 6c 65  24 3d 46 4e 6e 61 6d 65  |08 title$=FNname|
00002800  28 69 25 29 0d 20 33 34  37 30 4e 45 58 54 0d 20  |(i%). 3470NEXT. |
00002810  33 34 38 30 3d 6e 25 0d  20 33 34 39 30 3a 0d 20  |3480=n%. 3490:. |
00002820  33 35 30 30 44 45 46 20  46 4e 6e 61 6d 65 28 69  |3500DEF FNname(i|
00002830  25 29 0d 20 33 35 31 30  4c 4f 43 41 4c 20 70 25  |%). 3510LOCAL p%|
00002840  2c 6c 25 2c 6a 25 2c 6e  24 3a 6e 24 3d 22 22 0d  |,l%,j%,n$:n$="".|
00002850  20 33 35 32 30 6c 25 3d  6f 70 74 25 28 33 29 20  | 3520l%=opt%(3) |
00002860  41 4e 44 20 28 69 25 3e  30 29 20 41 4e 44 20 28  |AND (i%>0) AND (|
00002870  28 64 69 72 3f 28 28 69  25 2d 31 29 2a 33 32 2b  |(dir?((i%-1)*32+|
00002880  31 31 29 29 3d 26 30 46  29 0d 20 33 35 33 30 70  |11))=&0F). 3530p|
00002890  25 3d 64 69 72 2b 28 69  25 2a 33 32 29 0d 20 33  |%=dir+(i%*32). 3|
000028a0  35 34 30 49 46 20 6c 25  20 3a 45 4c 53 45 3a 46  |540IF l% :ELSE:F|
000028b0  4f 52 20 6a 25 3d 30 20  54 4f 20 31 30 3a 6e 24  |OR j%=0 TO 10:n$|
000028c0  3d 6e 24 2b 43 48 52 24  28 70 25 3f 6a 25 29 3a  |=n$+CHR$(p%?j%):|
000028d0  49 46 20 6a 25 3d 37 20  3a 6e 24 3d 6e 24 2b 22  |IF j%=7 :n$=n$+"|
000028e0  2e 22 3a 4e 45 58 54 3a  45 4c 53 45 3a 4e 45 58  |.":NEXT:ELSE:NEX|
000028f0  54 3a 3d 6e 24 0d 20 33  35 35 30 70 25 3d 70 25  |T:=n$. 3550p%=p%|
00002900  2d 33 32 0d 20 33 35 36  30 46 4f 52 20 6a 25 3d  |-32. 3560FOR j%=|
00002910  31 20 54 4f 20 33 31 20  53 54 45 50 20 32 0d 20  |1 TO 31 STEP 2. |
00002920  33 35 37 30 49 46 20 6a  25 3d 31 31 20 4f 52 20  |3570IF j%=11 OR |
00002930  6a 25 3d 31 32 20 4f 52  20 6a 25 3d 31 33 20 6a  |j%=12 OR j%=13 j|
00002940  25 3d 31 34 20 45 4c 53  45 20 49 46 20 6a 25 3d  |%=14 ELSE IF j%=|
00002950  32 36 20 4f 52 20 6a 25  3d 32 37 20 6a 25 3d 32  |26 OR j%=27 j%=2|
00002960  38 0d 20 33 35 38 30 49  46 20 28 28 70 25 3f 6a  |8. 3580IF ((p%?j|
00002970  25 29 3c 26 32 30 29 4f  52 28 28 70 25 3f 6a 25  |%)<&20)OR((p%?j%|
00002980  29 3e 26 37 45 29 20 6e  24 3d 6e 24 2b 22 5f 22  |)>&7E) n$=n$+"_"|
00002990  20 45 4c 53 45 20 6e 24  3d 6e 24 2b 43 48 52 24  | ELSE n$=n$+CHR$|
000029a0  28 70 25 3f 6a 25 29 0d  20 33 35 38 35 49 46 20  |(p%?j%). 3585IF |
000029b0  28 70 25 3f 6a 25 29 3d  30 20 6a 25 3d 39 39 39  |(p%?j%)=0 j%=999|
000029c0  3a 6e 24 3d 4c 45 46 54  24 28 6e 24 2c 4c 45 4e  |:n$=LEFT$(n$,LEN|
000029d0  28 6e 24 29 2d 31 29 0d  20 33 35 39 30 4e 45 58  |(n$)-1). 3590NEX|
000029e0  54 0d 20 33 36 30 30 49  46 20 6a 25 3c 39 39 39  |T. 3600IF j%<999|
000029f0  20 41 4e 44 20 69 25 3e  31 20 41 4e 44 20 28 28  | AND i%>1 AND ((|
00002a00  64 69 72 3f 28 28 69 25  2d 32 29 2a 33 32 2b 31  |dir?((i%-2)*32+1|
00002a10  31 29 29 3d 26 30 46 29  20 6e 24 3d 6e 24 2b 46  |1))=&0F) n$=n$+F|
00002a20  4e 6e 61 6d 65 28 69 25  2d 31 29 0d 20 33 36 31  |Nname(i%-1). 361|
00002a30  30 20 3d 6e 24 0d 20 33  36 32 30 3a 0d 20 33 36  |0 =n$. 3620:. 36|
00002a40  33 30 44 45 46 20 50 52  4f 43 61 64 64 74 6f 69  |30DEF PROCaddtoi|
00002a50  64 78 28 69 25 2c 6e 25  29 0d 20 33 36 34 30 4c  |dx(i%,n%). 3640L|
00002a60  4f 43 41 4c 20 6a 25 2c  61 25 2c 62 25 2c 6f 25  |OCAL j%,a%,b%,o%|
00002a70  2c 64 25 2c 67 25 0d 20  33 36 35 30 49 46 20 4e  |,d%,g%. 3650IF N|
00002a80  4f 54 20 6f 70 74 25 28  33 29 20 69 64 78 3f 6e  |OT opt%(3) idx?n|
00002a90  25 3d 69 25 3a 45 4e 44  50 52 4f 43 0d 20 33 36  |%=i%:ENDPROC. 36|
00002aa0  36 30 6a 25 3d 2d 31 3a  52 45 50 45 41 54 3a 6a  |60j%=-1:REPEAT:j|
00002ab0  25 3d 6a 25 2b 31 0d 20  33 36 37 30 64 25 3d 30  |%=j%+1. 3670d%=0|
00002ac0  3a 6f 25 3d 46 41 4c 53  45 0d 20 33 36 38 30 49  |:o%=FALSE. 3680I|
00002ad0  46 20 28 69 64 78 3f 6a  25 29 3c 3e 26 46 46 20  |F (idx?j%)<>&FF |
00002ae0  41 4e 44 20 6f 70 74 25  28 34 29 20 6f 25 3d 46  |AND opt%(4) o%=F|
00002af0  4e 6e 61 6d 65 28 69 25  29 3c 46 4e 6e 61 6d 65  |Nname(i%)<FNname|
00002b00  28 69 64 78 3f 6a 25 29  0d 20 33 36 39 30 49 46  |(idx?j%). 3690IF|
00002b10  20 28 69 64 78 3f 6a 25  29 3c 3e 26 46 46 20 41  | (idx?j%)<>&FF A|
00002b20  4e 44 20 6f 70 74 25 28  35 29 20 64 25 3d 46 4e  |ND opt%(5) d%=FN|
00002b30  69 73 64 69 72 28 69 25  29 2d 46 4e 69 73 64 69  |isdir(i%)-FNisdi|
00002b40  72 28 69 64 78 3f 6a 25  29 0d 20 33 37 30 30 67  |r(idx?j%). 3700g|
00002b50  25 3d 28 64 25 3d 2d 31  29 20 4f 52 20 28 28 64  |%=(d%=-1) OR ((d|
00002b60  25 3d 30 29 20 41 4e 44  20 6f 25 29 0d 20 33 37  |%=0) AND o%). 37|
00002b70  31 30 55 4e 54 49 4c 20  67 25 20 4f 52 20 28 69  |10UNTIL g% OR (i|
00002b80  64 78 3f 6a 25 3d 26 46  46 29 0d 20 33 37 32 30  |dx?j%=&FF). 3720|
00002b90  49 46 20 69 64 78 3f 6a  25 3d 26 46 46 20 69 64  |IF idx?j%=&FF id|
00002ba0  78 3f 6a 25 3d 69 25 3a  45 4e 44 50 52 4f 43 0d  |x?j%=i%:ENDPROC.|
00002bb0  20 33 37 33 30 61 25 3d  6a 25 3a 52 45 50 45 41  | 3730a%=j%:REPEA|
00002bc0  54 3a 61 25 3d 61 25 2b  31 3a 55 4e 54 49 4c 20  |T:a%=a%+1:UNTIL |
00002bd0  69 64 78 3f 61 25 3d 26  46 46 0d 20 33 37 34 30  |idx?a%=&FF. 3740|
00002be0  46 4f 52 20 62 25 3d 61  25 20 54 4f 20 6a 25 2b  |FOR b%=a% TO j%+|
00002bf0  31 20 53 54 45 50 20 2d  31 0d 20 33 37 35 30 69  |1 STEP -1. 3750i|
00002c00  64 78 3f 62 25 3d 69 64  78 3f 28 62 25 2d 31 29  |dx?b%=idx?(b%-1)|
00002c10  0d 20 33 37 36 30 4e 45  58 54 0d 20 33 37 37 30  |. 3760NEXT. 3770|
00002c20  69 64 78 3f 6a 25 3d 69  25 0d 20 33 37 38 30 45  |idx?j%=i%. 3780E|
00002c30  4e 44 50 52 4f 43 0d 20  33 37 39 30 3a 0d 20 33  |NDPROC. 3790:. 3|
00002c40  38 30 30 44 45 46 20 50  52 4f 43 70 75 74 5f 66  |800DEF PROCput_f|
00002c50  69 6c 65 0d 20 33 38 31  30 4c 4f 43 41 4c 20 64  |ile. 3810LOCAL d|
00002c60  24 2c 20 66 24 2c 20 6c  25 2c 20 73 24 2c 20 64  |$, f$, l%, s$, d|
00002c70  25 2c 20 69 25 2c 20 70  25 2c 20 63 25 2c 20 66  |%, i%, p%, c%, f|
00002c80  25 2c 20 6e 25 2c 20 74  25 2c 20 6e 6f 5f 6c 66  |%, n%, t%, no_lf|
00002c90  6e 0d 3f 20 33 38 32 30  2a 46 58 32 31 2c 30 0d  |n.? 3820*FX21,0.|
00002ca0  20 33 38 33 30 49 4e 50  55 54 20 27 22 41 44 46  | 3830INPUT '"ADF|
00002cb0  53 20 46 69 6c 65 6e 61  6d 65 20 74 6f 20 54 72  |S Filename to Tr|
00002cc0  61 6e 73 66 65 72 3a 22  66 24 0d 20 33 38 34 30  |ansfer:"f$. 3840|
00002cd0  6c 25 3d 46 4e 67 65 74  5f 6c 65 6e 67 74 68 28  |l%=FNget_length(|
00002ce0  66 24 29 0d 20 33 38 35  30 49 46 20 6c 25 3c 30  |f$). 3850IF l%<0|
00002cf0  20 56 44 55 37 3a 50 52  49 4e 54 20 22 2d 3e 20  | VDU7:PRINT "-> |
00002d00  4e 6f 74 20 61 20 76 61  6c 69 64 20 66 69 6c 65  |Not a valid file|
00002d10  21 22 3a 45 4e 44 50 52  4f 43 0d 20 33 38 35 35  |!":ENDPROC. 3855|
00002d20  50 52 49 4e 54 20 22 43  68 65 63 6b 69 6e 67 20  |PRINT "Checking |
00002d30  44 4f 53 20 46 72 65 65  20 53 70 61 63 65 2e 2e  |DOS Free Space..|
00002d40  2e 22 0d 20 33 38 36 30  49 46 20 28 6c 25 2b 31  |.". 3860IF (l%+1|
00002d50  30 32 33 29 44 49 56 31  30 32 34 20 3e 20 46 4e  |023)DIV1024 > FN|
00002d60  64 6f 73 5f 66 72 65 65  20 56 44 55 37 3a 50 52  |dos_free VDU7:PR|
00002d70  49 4e 54 22 20 2d 3e 20  4e 6f 74 20 65 6e 6f 75  |INT" -> Not enou|
00002d80  67 68 20 72 6f 6f 6d 20  6f 6e 20 44 4f 53 20 64  |gh room on DOS d|
00002d90  69 73 6b 21 22 3a 45 4e  44 50 52 4f 43 0d 20 33  |isk!":ENDPROC. 3|
00002da0  38 37 30 49 4e 50 55 54  20 22 44 4f 53 20 66 69  |870INPUT "DOS fi|
00002db0  6c 65 6e 61 6d 65 20 74  6f 20 75 73 65 3a 22 64  |lename to use:"d|
00002dc0  24 0d 20 33 38 38 30 73  24 3d 46 4e 73 68 6f 72  |$. 3880s$=FNshor|
00002dd0  74 5f 6e 61 6d 65 28 64  24 29 0d 20 33 38 38 35  |t_name(d$). 3885|
00002de0  50 52 49 4e 54 20 22 55  73 69 6e 67 20 27 22 3b  |PRINT "Using '";|
00002df0  73 24 3b 22 27 20 61 73  20 74 68 65 20 44 4f 53  |s$;"' as the DOS|
00002e00  2d 4d 6f 64 65 20 66 69  6c 65 6e 61 6d 65 2e 2e  |-Mode filename..|
00002e10  2e 22 0d 20 33 38 39 30  49 46 20 6e 6f 5f 6c 66  |.". 3890IF no_lf|
00002e20  6e 20 64 25 3d 31 20 45  4c 53 45 20 64 25 3d 31  |n d%=1 ELSE d%=1|
00002e30  2b 28 28 4c 45 4e 28 64  24 29 2b 31 32 29 44 49  |+((LEN(d$)+12)DI|
00002e40  56 31 33 29 0d 20 33 38  39 35 50 52 49 4e 54 20  |V13). 3895PRINT |
00002e50  22 53 63 61 6e 6e 69 6e  67 20 63 61 74 61 6c 6f  |"Scanning catalo|
00002e60  67 75 65 20 66 6f 72 20  22 3b 64 25 3b 22 20 66  |gue for ";d%;" f|
00002e70  72 65 65 20 73 6c 6f 74  73 2e 2e 2e 22 0d 20 33  |ree slots...". 3|
00002e80  39 30 30 46 4f 52 20 69  25 3d 30 20 54 4f 20 64  |900FOR i%=0 TO d|
00002e90  69 72 5f 6d 61 78 3a 49  46 20 46 4e 69 73 65 6d  |ir_max:IF FNisem|
00002ea0  70 74 79 28 69 25 29 20  70 25 3d 69 25 3a 63 25  |pty(i%) p%=i%:c%|
00002eb0  3d 63 25 2b 31 3a 45 4c  53 45 20 63 25 3d 30 0d  |=c%+1:ELSE c%=0.|
00002ec0  20 33 39 31 30 49 46 20  63 25 3d 64 25 20 69 25  | 3910IF c%=d% i%|
00002ed0  3d 39 39 39 39 0d 20 33  39 32 30 4e 45 58 54 3a  |=9999. 3920NEXT:|
00002ee0  49 46 20 63 25 3c 64 25  20 56 44 55 37 3a 50 52  |IF c%<d% VDU7:PR|
00002ef0  49 4e 54 20 22 2d 3e 20  43 61 74 61 6c 6f 67 75  |INT "-> Catalogu|
00002f00  65 20 66 75 6c 6c 21 22  3a 45 4e 44 50 52 4f 43  |e full!":ENDPROC|
00002f10  0d 20 33 39 33 30 69 25  3d 70 25 3a 70 25 3d 64  |. 3930i%=p%:p%=d|
00002f20  69 72 2b 28 69 25 2a 33  32 29 0d 20 33 39 34 30  |ir+(i%*32). 3940|
00002f30  50 52 49 4e 54 20 22 57  72 69 74 69 6e 67 20 64  |PRINT "Writing d|
00002f40  69 72 65 63 74 6f 72 79  20 65 6e 74 72 79 20 66  |irectory entry f|
00002f50  6f 72 20 27 22 3b 73 24  3b 22 27 2e 2e 2e 22 0d  |or '";s$;"'...".|
00002f60  20 33 39 35 30 66 25 3d  46 4e 6e 65 78 74 5f 66  | 3950f%=FNnext_f|
00002f70  72 65 65 5f 63 6c 75 73  0d 20 33 39 36 30 24 28  |ree_clus. 3960$(|
00002f80  70 25 29 3d 28 4c 45 46  54 24 28 73 24 2c 38 29  |p%)=(LEFT$(s$,8)|
00002f90  2b 52 49 47 48 54 24 28  73 24 2c 33 29 29 0d 20  |+RIGHT$(s$,3)). |
00002fa0  33 39 37 30 70 25 3f 31  31 3d 26 32 30 3a 70 25  |3970p%?11=&20:p%|
00002fb0  21 31 32 3d 30 3a 70 25  21 31 36 3d 30 3a 70 25  |!12=0:p%!16=0:p%|
00002fc0  21 32 30 3d 30 0d 20 33  39 38 30 70 25 21 32 32  |!20=0. 3980p%!22|
00002fd0  3d 46 4e 74 69 6d 65 5f  73 74 61 6d 70 0d 20 33  |=FNtime_stamp. 3|
00002fe0  39 39 30 70 25 21 32 36  3d 66 25 3a 70 25 21 32  |990p%!26=f%:p%!2|
00002ff0  38 3d 6c 25 0d 20 34 30  30 30 49 46 20 64 25 3e  |8=l%. 4000IF d%>|
00003000  31 20 50 52 4f 43 77 72  69 74 65 5f 6c 66 6e 28  |1 PROCwrite_lfn(|
00003010  69 25 2c 20 64 24 29 0d  20 34 30 31 30 50 52 4f  |i%, d$). 4010PRO|
00003020  43 70 75 74 5f 63 6c 75  73 28 66 25 2c 20 26 46  |Cput_clus(f%, &F|
00003030  46 46 29 0d 20 34 30 32  30 6c 25 3d 28 6c 25 2b  |FF). 4020l%=(l%+|
00003040  31 30 32 33 29 44 49 56  31 30 32 34 3a 74 25 3d  |1023)DIV1024:t%=|
00003050  6c 25 0d 20 34 30 32 35  50 52 49 4e 54 20 22 54  |l%. 4025PRINT "T|
00003060  72 61 6e 73 66 65 72 72  69 6e 67 20 66 69 6c 65  |ransferring file|
00003070  20 2d 20 50 6c 65 61 73  65 20 77 61 69 74 2e 2e  | - Please wait..|
00003080  2e 22 0d 20 34 30 33 30  63 25 3d 66 25 3a 66 25  |.". 4030c%=f%:f%|
00003090  3d 4f 50 45 4e 49 4e 28  66 24 29 0d 20 34 30 34  |=OPENIN(f$). 404|
000030a0  30 52 45 50 45 41 54 3a  0d 20 34 30 35 30 50 52  |0REPEAT:. 4050PR|
000030b0  4f 43 66 69 6c 6c 5f 62  75 66 28 62 75 66 2c 66  |OCfill_buf(buf,f|
000030c0  25 2c 31 30 32 34 29 3a  0d 20 34 30 36 30 50 52  |%,1024):. 4060PR|
000030d0  4f 43 77 72 69 74 65 5f  64 6f 73 28 62 75 66 2c  |OCwrite_dos(buf,|
000030e0  20 46 4e 73 65 63 28 63  25 29 29 3a 0d 20 34 30  | FNsec(c%)):. 40|
000030f0  36 32 50 52 4f 43 77 72  69 74 65 5f 64 6f 73 28  |62PROCwrite_dos(|
00003100  62 75 66 2b 35 31 32 2c  20 46 4e 73 65 63 28 63  |buf+512, FNsec(c|
00003110  25 29 2b 31 29 0d 20 34  30 37 30 49 46 20 6c 25  |%)+1). 4070IF l%|
00003120  3e 31 20 6e 25 3d 46 4e  6e 65 78 74 5f 66 72 65  |>1 n%=FNnext_fre|
00003130  65 5f 63 6c 75 73 3a 50  52 4f 43 70 75 74 5f 63  |e_clus:PROCput_c|
00003140  6c 75 73 28 63 25 2c 20  6e 25 29 3a 50 52 4f 43  |lus(c%, n%):PROC|
00003150  70 75 74 5f 63 6c 75 73  28 6e 25 2c 20 26 46 46  |put_clus(n%, &FF|
00003160  46 29 0d 20 34 30 38 30  63 25 3d 6e 25 3a 6c 25  |F). 4080c%=n%:l%|
00003170  3d 6c 25 2d 31 3a 50 52  4f 43 77 69 6e 28 32 29  |=l%-1:PROCwin(2)|
00003180  3a 50 52 49 4e 54 20 22  44 6f 6e 65 20 22 3b 28  |:PRINT "Done ";(|
00003190  74 25 2d 6c 25 29 3b 22  4b 20 6f 75 74 20 6f 66  |t%-l%);"K out of|
000031a0  20 22 3b 74 25 3b 22 4b  20 2e 2e 2e 22 3b 0d 20  | ";t%;"K ...";. |
000031b0  34 30 39 30 55 4e 54 49  4c 20 6c 25 3c 3d 30 20  |4090UNTIL l%<=0 |
000031c0  3a 20 50 52 49 4e 54 20  3b 22 46 69 6e 69 73 68  |: PRINT ;"Finish|
000031d0  65 64 22 27 22 57 72 69  74 69 6e 67 20 62 61 63  |ed"'"Writing bac|
000031e0  6b 20 66 61 74 2e 2e 2e  22 3a 50 52 4f 43 77 72  |k fat...":PROCwr|
000031f0  69 74 65 5f 66 61 74 0d  20 34 31 30 30 50 52 49  |ite_fat. 4100PRI|
00003200  4e 54 20 22 57 72 69 74  69 6e 67 20 62 61 63 6b  |NT "Writing back|
00003210  20 64 69 72 2e 2e 2e 22  3a 50 52 4f 43 77 72 69  | dir...":PROCwri|
00003220  74 65 5f 64 69 72 3a 50  52 49 4e 54 20 22 2e 2e  |te_dir:PRINT "..|
00003230  2e 44 6f 6e 65 2e 22 0d  20 34 31 31 30 43 4c 4f  |.Done.". 4110CLO|
00003240  53 45 20 23 66 25 0d 20  34 31 32 30 45 4e 44 50  |SE #f%. 4120ENDP|
00003250  52 4f 43 0d 20 34 31 33  30 3a 0d 20 34 31 39 30  |ROC. 4130:. 4190|
00003260  44 45 46 20 50 52 4f 43  77 72 69 74 65 5f 66 61  |DEF PROCwrite_fa|
00003270  74 0d 20 34 32 30 30 50  52 4f 43 77 72 69 74 65  |t. 4200PROCwrite|
00003280  5f 64 6f 73 28 66 61 74  2c 32 29 3a 50 52 4f 43  |_dos(fat,2):PROC|
00003290  77 72 69 74 65 5f 64 6f  73 28 66 61 74 2b 35 31  |write_dos(fat+51|
000032a0  32 2c 33 29 3a 50 52 4f  43 77 72 69 74 65 5f 64  |2,3):PROCwrite_d|
000032b0  6f 73 28 66 61 74 2b 31  30 32 34 2c 34 29 0d 20  |os(fat+1024,4). |
000032c0  34 32 31 30 50 52 4f 43  77 72 69 74 65 5f 64 6f  |4210PROCwrite_do|
000032d0  73 28 66 61 74 2c 35 29  3a 50 52 4f 43 77 72 69  |s(fat,5):PROCwri|
000032e0  74 65 5f 64 6f 73 28 66  61 74 2b 35 31 32 2c 36  |te_dos(fat+512,6|
000032f0  29 3a 50 52 4f 43 77 72  69 74 65 5f 64 6f 73 28  |):PROCwrite_dos(|
00003300  66 61 74 2b 31 30 32 34  2c 37 29 0d 20 34 32 32  |fat+1024,7). 422|
00003310  30 45 4e 44 50 52 4f 43  0d 20 34 32 33 30 3a 0d  |0ENDPROC. 4230:.|
00003320  20 34 32 34 30 44 45 46  20 50 52 4f 43 77 72 69  | 4240DEF PROCwri|
00003330  74 65 5f 64 69 72 0d 20  34 32 35 30 4c 4f 43 41  |te_dir. 4250LOCA|
00003340  4c 20 69 25 2c 20 73 25  0d 20 34 32 36 30 73 25  |L i%, s%. 4260s%|
00003350  3d 62 61 63 6b 21 28 21  62 61 63 6b 29 3a 20 49  |=back!(!back): I|
00003360  46 20 73 25 3c 3e 30 20  50 52 4f 43 77 72 69 74  |F s%<>0 PROCwrit|
00003370  65 5f 64 69 72 32 28 73  25 29 3a 45 4e 44 50 52  |e_dir2(s%):ENDPR|
00003380  4f 43 0d 20 34 32 37 30  73 25 3d 38 0d 20 34 32  |OC. 4270s%=8. 42|
00003390  38 30 46 4f 52 20 69 25  3d 30 20 54 4f 20 36 0d  |80FOR i%=0 TO 6.|
000033a0  20 34 32 39 30 50 52 4f  43 77 72 69 74 65 5f 64  | 4290PROCwrite_d|
000033b0  6f 73 28 28 64 69 72 2b  28 35 31 32 2a 69 25 29  |os((dir+(512*i%)|
000033c0  29 2c 28 73 25 2b 69 25  29 29 0d 20 34 33 30 30  |),(s%+i%)). 4300|
000033d0  4e 45 58 54 3a 6d 61 78  3d 46 4e 69 6e 64 65 78  |NEXT:max=FNindex|
000033e0  28 26 36 46 29 0d 20 34  33 31 30 45 4e 44 50 52  |(&6F). 4310ENDPR|
000033f0  4f 43 0d 20 34 33 32 30  3a 0d 20 34 33 33 30 44  |OC. 4320:. 4330D|
00003400  45 46 20 50 52 4f 43 77  72 69 74 65 5f 64 69 72  |EF PROCwrite_dir|
00003410  32 28 63 25 29 0d 20 34  33 34 30 4c 4f 43 41 4c  |2(c%). 4340LOCAL|
00003420  20 73 25 2c 69 25 2c 6e  25 0d 20 34 33 35 30 69  | s%,i%,n%. 4350i|
00003430  25 3d 30 3a 6e 25 3d 30  3a 52 45 50 45 41 54 0d  |%=0:n%=0:REPEAT.|
00003440  20 34 33 36 30 49 46 20  28 28 69 25 20 4d 4f 44  | 4360IF ((i% MOD|
00003450  20 32 29 3d 30 29 20 41  4e 44 20 28 69 25 3c 3e  | 2)=0) AND (i%<>|
00003460  30 29 20 63 25 3d 46 4e  6e 63 6c 75 73 28 63 25  |0) c%=FNnclus(c%|
00003470  29 0d 20 34 33 37 30 49  46 20 28 63 25 3c 3e 26  |). 4370IF (c%<>&|
00003480  46 46 46 29 20 41 4e 44  20 28 28 69 25 20 4d 4f  |FFF) AND ((i% MO|
00003490  44 20 32 29 3d 30 29 20  6e 25 3d 6e 25 2b 31 3a  |D 2)=0) n%=n%+1:|
000034a0  73 25 3d 46 4e 73 65 63  28 63 25 29 0d 20 34 33  |s%=FNsec(c%). 43|
000034b0  38 30 49 46 20 63 25 3c  3e 26 46 46 46 20 50 52  |80IF c%<>&FFF PR|
000034c0  4f 43 77 72 69 74 65 5f  64 6f 73 28 64 69 72 2b  |OCwrite_dos(dir+|
000034d0  28 35 31 32 2a 69 25 29  2c 28 73 25 2b 28 69 25  |(512*i%),(s%+(i%|
000034e0  20 4d 4f 44 20 32 29 29  29 0d 20 34 33 39 30 69  | MOD 2))). 4390i|
000034f0  25 3d 69 25 2b 31 0d 20  34 34 30 30 55 4e 54 49  |%=i%+1. 4400UNTI|
00003500  4c 20 69 25 3d 37 20 4f  52 20 63 25 3d 26 46 46  |L i%=7 OR c%=&FF|
00003510  46 20 4f 52 20 6e 25 3e  3d 64 69 72 5f 6d 61 78  |F OR n%>=dir_max|
00003520  0d 20 34 34 31 30 45 4e  44 50 52 4f 43 0d 20 34  |. 4410ENDPROC. 4|
00003530  34 32 30 3a 0d 20 34 34  33 30 44 45 46 20 50 52  |420:. 4430DEF PR|
00003540  4f 43 77 72 69 74 65 5f  64 6f 73 28 61 64 64 72  |OCwrite_dos(addr|
00003550  2c 20 64 73 65 63 29 0d  20 34 34 34 30 74 72 6b  |, dsec). 4440trk|
00003560  3d 28 64 73 65 63 2d 31  29 20 44 49 56 20 39 3a  |=(dsec-1) DIV 9:|
00003570  73 65 63 3d 28 64 73 65  63 2d 31 29 20 4d 4f 44  |sec=(dsec-1) MOD|
00003580  20 39 20 2b 31 0d 20 34  34 35 30 50 52 4f 43 72  | 9 +1. 4450PROCr|
00003590  77 5f 73 65 63 28 61 64  64 72 2c 31 2c 28 74 72  |w_sec(addr,1,(tr|
000035a0  6b 20 4d 4f 44 20 32 29  2c 28 74 72 6b 20 44 49  |k MOD 2),(trk DI|
000035b0  56 20 32 29 2c 73 65 63  2c 31 2c 54 52 55 45 2c  |V 2),sec,1,TRUE,|
000035c0  46 41 4c 53 45 29 0d 20  34 34 36 30 45 4e 44 50  |FALSE). 4460ENDP|
000035d0  52 4f 43 0d 20 34 34 37  30 3a 0d 20 34 34 38 30  |ROC. 4470:. 4480|
000035e0  44 45 46 20 50 52 4f 43  70 75 74 5f 63 6c 75 73  |DEF PROCput_clus|
000035f0  28 63 25 2c 20 76 25 29  0d 20 34 34 39 30 21 26  |(c%, v%). 4490!&|
00003600  37 30 3d 66 61 74 21 28  33 2a 28 63 25 20 44 49  |70=fat!(3*(c% DI|
00003610  56 20 32 29 29 0d 20 34  35 30 30 49 46 20 63 25  |V 2)). 4500IF c%|
00003620  20 4d 4f 44 20 32 3d 30  20 54 48 45 4e 20 21 26  | MOD 2=0 THEN !&|
00003630  37 30 3d 28 21 26 37 30  20 41 4e 44 20 26 46 46  |70=(!&70 AND &FF|
00003640  46 46 46 30 30 30 29 20  4f 52 20 76 25 20 45 4c  |FFF000) OR v% EL|
00003650  53 45 20 21 26 37 30 3d  28 21 26 37 30 20 41 4e  |SE !&70=(!&70 AN|
00003660  44 20 26 46 46 30 30 30  46 46 46 29 20 4f 52 20  |D &FF000FFF) OR |
00003670  34 30 39 36 2a 76 25 0d  20 34 35 31 30 66 61 74  |4096*v%. 4510fat|
00003680  21 28 33 2a 28 63 25 20  44 49 56 20 32 29 29 3d  |!(3*(c% DIV 2))=|
00003690  21 26 37 30 0d 20 34 35  32 30 45 4e 44 50 52 4f  |!&70. 4520ENDPRO|
000036a0  43 0d 20 34 35 33 30 3a  0d 20 34 35 34 30 44 45  |C. 4530:. 4540DE|
000036b0  46 20 50 52 4f 43 77 72  69 74 65 5f 6c 66 6e 28  |F PROCwrite_lfn(|
000036c0  69 25 2c 6e 24 29 0d 20  34 35 35 30 4c 4f 43 41  |i%,n$). 4550LOCA|
000036d0  4c 20 6c 25 2c 20 70 25  0d 20 34 35 36 30 69 25  |L l%, p%. 4560i%|
000036e0  3d 69 25 2d 31 3a 70 25  3d 64 69 72 2b 28 69 25  |=i%-1:p%=dir+(i%|
000036f0  2a 33 32 29 0d 20 34 35  37 30 46 4f 52 20 6c 25  |*32). 4570FOR l%|
00003700  3d 30 20 54 4f 20 33 31  20 53 54 45 50 20 34 3a  |=0 TO 31 STEP 4:|
00003710  70 25 21 6c 25 3d 30 3a  4e 45 58 54 0d 20 34 35  |p%!l%=0:NEXT. 45|
00003720  38 30 70 25 3f 31 31 3d  26 30 46 3a 0d 20 34 35  |80p%?11=&0F:. 45|
00003730  39 30 46 4f 52 20 6c 25  3d 31 20 54 4f 20 33 31  |90FOR l%=1 TO 31|
00003740  20 53 54 45 50 20 32 3a  49 46 20 6c 25 3d 31 31  | STEP 2:IF l%=11|
00003750  20 6c 25 3d 31 34 20 45  4c 53 45 20 49 46 20 6c  | l%=14 ELSE IF l|
00003760  25 3d 32 36 20 6c 25 3d  32 38 0d 20 34 36 30 30  |%=26 l%=28. 4600|
00003770  70 25 3f 6c 25 3d 41 53  43 28 4c 45 46 54 24 28  |p%?l%=ASC(LEFT$(|
00003780  6e 24 2c 31 29 29 3a 6e  24 3d 4d 49 44 24 28 6e  |n$,1)):n$=MID$(n|
00003790  24 2c 32 29 0d 20 34 36  31 30 49 46 20 6e 24 3d  |$,2). 4610IF n$=|
000037a0  22 22 20 6c 25 3d 39 39  39 0d 20 34 36 32 30 4e  |"" l%=999. 4620N|
000037b0  45 58 54 3a 49 46 20 6e  24 3c 3e 22 22 20 50 52  |EXT:IF n$<>"" PR|
000037c0  4f 43 77 72 69 74 65 5f  6c 66 6e 28 69 25 2c 6e  |OCwrite_lfn(i%,n|
000037d0  24 29 0d 20 34 36 32 35  3f 70 25 3d 38 38 0d 20  |$). 4625?p%=88. |
000037e0  34 36 33 30 45 4e 44 50  52 4f 43 0d 20 34 36 34  |4630ENDPROC. 464|
000037f0  30 3a 0d 20 34 36 35 30  44 45 46 20 46 4e 74 69  |0:. 4650DEF FNti|
00003800  6d 65 5f 73 74 61 6d 70  0d 20 34 36 36 30 4c 4f  |me_stamp. 4660LO|
00003810  43 41 4c 20 6c 25 0d 20  34 36 37 30 58 25 3d 26  |CAL l%. 4670X%=&|
00003820  37 30 3a 59 25 3d 30 3a  41 25 3d 31 34 3a 3f 26  |70:Y%=0:A%=14:?&|
00003830  37 30 3d 31 3a 43 41 4c  4c 20 26 46 46 46 31 0d  |70=1:CALL &FFF1.|
00003840  20 34 36 38 30 46 4f 52  20 6c 25 3d 30 20 54 4f  | 4680FOR l%=0 TO|
00003850  20 36 3a 6c 25 3f 26 37  30 3d 6c 25 3f 26 37 30  | 6:l%?&70=l%?&70|
00003860  20 44 49 56 31 36 2a 31  30 20 2b 20 6c 25 3f 26  | DIV16*10 + l%?&|
00003870  37 30 20 4d 4f 44 20 31  36 3a 4e 45 58 54 0d 20  |70 MOD 16:NEXT. |
00003880  34 36 39 30 3d 28 3f 26  37 36 20 44 49 56 20 32  |4690=(?&76 DIV 2|
00003890  29 2b 28 33 32 2a 3f 26  37 35 29 2b 28 32 30 34  |)+(32*?&75)+(204|
000038a0  38 2a 3f 26 37 34 29 2b  28 36 35 35 33 36 2a 28  |8*?&74)+(65536*(|
000038b0  3f 26 37 32 2b 28 33 32  2a 3f 26 37 31 29 2b 28  |?&72+(32*?&71)+(|
000038c0  35 31 32 2a 28 3f 26 37  30 2d 38 30 29 29 29 29  |512*(?&70-80))))|
000038d0  0d 20 34 37 30 30 3a 0d  20 34 37 31 30 44 45 46  |. 4700:. 4710DEF|
000038e0  20 46 4e 6e 65 78 74 5f  66 72 65 65 5f 63 6c 75  | FNnext_free_clu|
000038f0  73 0d 20 34 37 32 30 4c  4f 43 41 4c 20 69 25 0d  |s. 4720LOCAL i%.|
00003900  20 34 37 33 30 69 25 3d  2d 31 3a 52 45 50 45 41  | 4730i%=-1:REPEA|
00003910  54 3a 69 25 3d 69 25 2b  31 0d 20 34 37 34 30 55  |T:i%=i%+1. 4740U|
00003920  4e 54 49 4c 20 69 25 3e  37 31 34 20 4f 52 20 46  |NTIL i%>714 OR F|
00003930  4e 6e 63 6c 75 73 28 69  25 29 3d 30 0d 20 34 37  |Nnclus(i%)=0. 47|
00003940  35 30 49 46 20 69 25 3c  3d 37 31 34 20 3a 3d 69  |50IF i%<=714 :=i|
00003950  25 20 45 4c 53 45 20 50  52 49 4e 54 20 22 2a 2a  |% ELSE PRINT "**|
00003960  2a 20 66 61 74 61 6c 20  65 72 72 6f 72 3a 20 6e  |* fatal error: n|
00003970  6f 20 66 72 65 65 20 63  6c 75 73 74 65 72 73 21  |o free clusters!|
00003980  20 2a 2a 2a 22 3a 45 4e  44 0d 20 34 37 36 30 3d  | ***":END. 4760=|
00003990  30 0d 20 34 37 37 30 3a  0d 20 34 37 38 30 44 45  |0. 4770:. 4780DE|
000039a0  46 20 46 4e 69 73 65 6d  70 74 79 28 6e 29 20 3a  |F FNisempty(n) :|
000039b0  3d 28 28 28 3f 28 64 69  72 2b 28 33 32 2a 6e 29  |=(((?(dir+(32*n)|
000039c0  2b 31 31 29 29 3d 30 29  4f 52 28 28 3f 28 64 69  |+11))=0)OR((?(di|
000039d0  72 2b 28 33 32 2a 6e 29  29 29 3d 26 45 35 29 29  |r+(32*n)))=&E5))|
000039e0  0d 20 34 37 39 30 3a 0d  20 34 38 30 30 44 45 46  |. 4790:. 4800DEF|
000039f0  20 46 4e 64 6f 73 5f 66  72 65 65 0d 20 34 38 31  | FNdos_free. 481|
00003a00  30 4c 4f 43 41 4c 20 69  25 2c 20 74 25 0d 20 34  |0LOCAL i%, t%. 4|
00003a10  38 32 30 46 4f 52 20 69  25 3d 31 20 54 4f 20 37  |820FOR i%=1 TO 7|
00003a20  31 34 3a 49 46 20 46 4e  6e 63 6c 75 73 28 69 25  |14:IF FNnclus(i%|
00003a30  29 3d 30 20 74 25 3d 74  25 2b 31 0d 20 34 38 33  |)=0 t%=t%+1. 483|
00003a40  30 4e 45 58 54 3a 3d 74  25 0d 20 34 38 34 30 3a  |0NEXT:=t%. 4840:|
00003a50  0d 20 34 38 35 30 44 45  46 20 46 4e 73 68 6f 72  |. 4850DEF FNshor|
00003a60  74 5f 6e 61 6d 65 28 6c  24 29 0d 20 34 38 36 30  |t_name(l$). 4860|
00003a70  4c 4f 43 41 4c 20 66 25  2c 20 70 25 2c 20 6f 24  |LOCAL f%, p%, o$|
00003a80  2c 20 69 25 0d 20 34 38  37 30 66 25 3d 28 49 4e  |, i%. 4870f%=(IN|
00003a90  53 54 52 28 6c 24 2c 22  2e 22 29 3c 3d 39 29 41  |STR(l$,".")<=9)A|
00003aa0  4e 44 28 49 4e 53 54 52  28 6c 24 2c 22 2e 22 2c  |ND(INSTR(l$,".",|
00003ab0  28 49 4e 53 54 52 28 6c  24 2c 22 2e 22 29 2b 31  |(INSTR(l$,".")+1|
00003ac0  29 29 3c 31 29 0d 20 34  38 38 30 66 25 3d 66 25  |))<1). 4880f%=f%|
00003ad0  20 41 4e 44 28 49 4e 53  54 52 28 6c 24 2c 22 20  | AND(INSTR(l$," |
00003ae0  22 29 3c 31 29 41 4e 44  28 4c 45 4e 28 4d 49 44  |")<1)AND(LEN(MID|
00003af0  24 28 6c 24 2c 49 4e 53  54 52 28 6c 24 2c 22 2e  |$(l$,INSTR(l$,".|
00003b00  22 29 29 29 3c 3d 34 29  0d 20 34 38 39 30 49 46  |")))<=4). 4890IF|
00003b10  20 66 25 20 54 48 45 4e  20 6e 6f 5f 6c 66 6e 3d  | f% THEN no_lfn=|
00003b20  54 52 55 45 3a 3d 46 4e  69 73 5f 73 68 6f 72 74  |TRUE:=FNis_short|
00003b30  28 6c 24 29 3a 45 4c 53  45 20 6e 6f 5f 6c 66 6e  |(l$):ELSE no_lfn|
00003b40  3d 46 41 4c 53 45 0d 20  34 39 30 30 66 25 3d 49  |=FALSE. 4900f%=I|
00003b50  4e 53 54 52 28 6c 24 2c  22 2e 22 29 3a 70 25 3d  |NSTR(l$,"."):p%=|
00003b60  66 25 0d 20 34 39 31 30  49 46 20 66 25 3e 30 20  |f%. 4910IF f%>0 |
00003b70  52 45 50 45 41 54 3a 70  25 3d 66 25 3a 66 25 3d  |REPEAT:p%=f%:f%=|
00003b80  49 4e 53 54 52 28 6c 24  2c 22 2e 22 2c 70 25 2b  |INSTR(l$,".",p%+|
00003b90  31 29 3a 55 4e 54 49 4c  20 66 25 3c 31 0d 20 34  |1):UNTIL f%<1. 4|
00003ba0  39 32 30 49 46 20 70 25  3c 31 20 6f 24 3d 22 2e  |920IF p%<1 o$=".|
00003bb0  20 20 20 22 20 45 4c 53  45 20 6f 24 3d 22 2e 22  |   " ELSE o$="."|
00003bc0  2b 4d 49 44 24 28 6c 24  2c 70 25 2b 31 2c 33 29  |+MID$(l$,p%+1,3)|
00003bd0  0d 20 34 39 33 30 49 46  20 4c 45 4e 6f 24 3c 34  |. 4930IF LENo$<4|
00003be0  20 6f 24 3d 6f 24 2b 53  54 52 49 4e 47 24 28 34  | o$=o$+STRING$(4|
00003bf0  2d 4c 45 4e 6f 24 2c 22  20 22 29 0d 20 34 39 34  |-LENo$," "). 494|
00003c00  30 49 46 20 70 25 3c 31  20 70 25 3d 4c 45 4e 28  |0IF p%<1 p%=LEN(|
00003c10  6c 24 29 20 45 4c 53 45  20 66 25 3d 49 4e 53 54  |l$) ELSE f%=INST|
00003c20  52 28 6c 24 2c 22 2e 22  29 3a 49 46 20 66 25 3d  |R(l$,"."):IF f%=|
00003c30  70 25 20 41 4e 44 20 66  25 3c 3d 38 20 45 4c 53  |p% AND f%<=8 ELS|
00003c40  45 20 70 25 3d 37 0d 20  34 39 35 30 49 46 20 70  |E p%=7. 4950IF p|
00003c50  25 3e 37 20 70 25 3d 37  0d 20 34 39 36 30 49 46  |%>7 p%=7. 4960IF|
00003c60  20 49 4e 53 54 52 28 6c  24 2c 22 2e 22 29 3e 30  | INSTR(l$,".")>0|
00003c70  20 52 45 50 45 41 54 3a  69 25 3d 49 4e 53 54 52  | REPEAT:i%=INSTR|
00003c80  28 6c 24 2c 22 2e 22 29  3a 6c 24 3d 4c 45 46 54  |(l$,"."):l$=LEFT|
00003c90  24 28 6c 24 2c 69 25 2d  31 29 2b 22 7e 22 2b 4d  |$(l$,i%-1)+"~"+M|
00003ca0  49 44 24 28 6c 24 2c 69  25 2b 31 29 3a 55 4e 54  |ID$(l$,i%+1):UNT|
00003cb0  49 4c 20 49 4e 53 54 52  28 6c 24 2c 22 2e 22 29  |IL INSTR(l$,".")|
00003cc0  3c 31 20 4f 52 20 69 25  3e 70 25 0d 20 34 39 37  |<1 OR i%>p%. 497|
00003cd0  30 49 46 20 49 4e 53 54  52 28 6c 24 2c 22 20 22  |0IF INSTR(l$," "|
00003ce0  29 3e 30 20 52 45 50 45  41 54 3a 69 25 3d 49 4e  |)>0 REPEAT:i%=IN|
00003cf0  53 54 52 28 6c 24 2c 22  20 22 29 3a 6c 24 3d 4c  |STR(l$," "):l$=L|
00003d00  45 46 54 24 28 6c 24 2c  69 25 2d 31 29 2b 22 7e  |EFT$(l$,i%-1)+"~|
00003d10  22 2b 4d 49 44 24 28 6c  24 2c 69 25 2b 31 29 3a  |"+MID$(l$,i%+1):|
00003d20  55 4e 54 49 4c 20 49 4e  53 54 52 28 6c 24 2c 22  |UNTIL INSTR(l$,"|
00003d30  20 22 29 3c 31 20 4f 52  20 69 25 3e 70 25 0d 20  | ")<1 OR i%>p%. |
00003d40  34 39 38 30 49 46 20 70  25 3c 37 20 6f 24 3d 4c  |4980IF p%<7 o$=L|
00003d50  45 46 54 24 28 6c 24 2c  70 25 29 2b 22 7e 22 2b  |EFT$(l$,p%)+"~"+|
00003d60  53 54 52 49 4e 47 24 28  37 2d 70 25 2c 22 20 22  |STRING$(7-p%," "|
00003d70  29 2b 6f 24 20 45 4c 53  45 6f 24 3d 4c 45 46 54  |)+o$ ELSEo$=LEFT|
00003d80  24 28 6c 24 2c 37 29 2b  22 7e 22 2b 6f 24 0d 20  |$(l$,7)+"~"+o$. |
00003d90  34 39 39 30 3d 46 4e 69  73 5f 73 68 6f 72 74 28  |4990=FNis_short(|
00003da0  6f 24 29 0d 20 34 39 39  35 3a 0d 20 35 30 30 30  |o$). 4995:. 5000|
00003db0  44 45 46 20 46 4e 69 73  5f 73 68 6f 72 74 28 6c  |DEF FNis_short(l|
00003dc0  24 29 0d 20 35 31 30 30  4c 4f 43 41 4c 20 6f 24  |$). 5100LOCAL o$|
00003dd0  2c 20 69 25 3a 6f 24 3d  22 22 0d 20 35 31 31 30  |, i%:o$="". 5110|
00003de0  46 4f 52 20 69 25 3d 31  20 54 4f 20 4c 45 4e 28  |FOR i%=1 TO LEN(|
00003df0  6c 24 29 3a 6f 24 3d 6f  24 2b 43 48 52 24 28 46  |l$):o$=o$+CHR$(F|
00003e00  4e 75 63 28 41 53 43 28  4d 49 44 24 28 6c 24 2c  |Nuc(ASC(MID$(l$,|
00003e10  69 25 2c 31 29 29 29 29  3a 4e 45 58 54 0d 20 35  |i%,1)))):NEXT. 5|
00003e20  31 32 30 49 46 20 49 4e  53 54 52 28 6f 24 2c 22  |120IF INSTR(o$,"|
00003e30  2e 22 29 3c 31 20 6f 24  3d 6f 24 2b 22 2e 20 20  |.")<1 o$=o$+".  |
00003e40  20 22 0d 20 35 31 33 30  49 46 20 4c 45 4e 28 4d  | ". 5130IF LEN(M|
00003e50  49 44 24 28 6f 24 2c 49  4e 53 54 52 28 6f 24 2c  |ID$(o$,INSTR(o$,|
00003e60  22 2e 22 29 29 29 3c 34  20 6f 24 3d 6f 24 2b 53  |".")))<4 o$=o$+S|
00003e70  54 52 49 4e 47 24 28 34  2d 28 4c 45 4e 28 4d 49  |TRING$(4-(LEN(MI|
00003e80  44 24 28 6f 24 2c 49 4e  53 54 52 28 6f 24 2c 22  |D$(o$,INSTR(o$,"|
00003e90  2e 22 29 29 29 29 2c 22  20 22 29 0d 20 35 31 34  |."))))," "). 514|
00003ea0  30 69 25 3d 49 4e 53 54  52 28 6f 24 2c 22 2e 22  |0i%=INSTR(o$,"."|
00003eb0  29 3a 49 46 20 69 25 3c  39 20 6f 24 3d 4c 45 46  |):IF i%<9 o$=LEF|
00003ec0  54 24 28 6f 24 2c 69 25  2d 31 29 2b 53 54 52 49  |T$(o$,i%-1)+STRI|
00003ed0  4e 47 24 28 39 2d 69 25  2c 22 20 22 29 2b 4d 49  |NG$(9-i%," ")+MI|
00003ee0  44 24 28 6f 24 2c 69 25  2b 31 29 0d 20 35 31 35  |D$(o$,i%+1). 515|
00003ef0  30 3d 6f 24 0d 20 35 31  36 30 3a 0d 20 35 31 37  |0=o$. 5160:. 517|
00003f00  30 44 45 46 20 46 4e 67  65 74 5f 6c 65 6e 67 74  |0DEF FNget_lengt|
00003f10  68 28 66 24 29 0d 20 35  31 38 30 4c 4f 43 41 4c  |h(f$). 5180LOCAL|
00003f20  20 66 25 2c 6c 25 0d 20  35 31 39 30 66 25 3d 4f  | f%,l%. 5190f%=O|
00003f30  50 45 4e 49 4e 28 66 24  29 3a 49 46 20 66 25 3d  |PENIN(f$):IF f%=|
00003f40  30 20 3a 3d 2d 31 0d 20  35 32 30 30 6c 25 3d 45  |0 :=-1. 5200l%=E|
00003f50  58 54 23 66 25 3a 43 4c  4f 53 45 23 66 25 3a 3d  |XT#f%:CLOSE#f%:=|
00003f60  6c 25 0d 20 35 32 31 30  3a 0d 20 35 32 32 30 44  |l%. 5210:. 5220D|
00003f70  45 46 20 50 52 4f 43 66  69 6c 6c 5f 62 75 66 28  |EF PROCfill_buf(|
00003f80  61 25 2c 66 25 2c 6c 25  29 0d 20 35 32 33 30 3f  |a%,f%,l%). 5230?|
00003f90  70 61 72 3d 66 25 3a 70  61 72 21 31 3d 61 25 0d  |par=f%:par!1=a%.|
00003fa0  20 35 32 34 30 70 61 72  21 35 3d 6c 25 3a 70 61  | 5240par!5=l%:pa|
00003fb0  72 21 39 3d 50 54 52 23  66 25 0d 20 35 32 35 30  |r!9=PTR#f%. 5250|
00003fc0  58 25 3d 28 70 61 72 20  4d 4f 44 20 32 35 36 29  |X%=(par MOD 256)|
00003fd0  3a 59 25 3d 28 70 61 72  20 44 49 56 20 32 35 36  |:Y%=(par DIV 256|
00003fe0  29 0d 20 35 32 36 30 41  25 3d 34 3a 43 41 4c 4c  |). 5260A%=4:CALL|
00003ff0  20 26 46 46 44 31 0d 20  35 32 37 30 45 4e 44 50  | &FFD1. 5270ENDP|
00004000  52 4f 43 0d 20 35 33 38  30 3a 0d                 |ROC. 5380:.|
0000400b