.DIR.41000
FILE INFORMATION
FILENAME(S): .DIR.41000
FILE TYPE(S): SEQ
FILE SIZE: 827b
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
2362502b5ecd4e06e10f1721255a0a059300b6124fb3194c2fb91f16b75620e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU JULY 1990 | .DIR.41000 | SEQ | DuncanTwain, UK CD | 16 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 34 31 30 30 30 20 52 45 4D 22 20 C4 49 53 |..41000 REM" .IS| 00000010: 50 4C 41 59 20 44 49 52 45 43 54 4F 52 59 2C 20 |PLAY DIRECTORY, | 00000020: 53 55 50 50 4C 59 20 46 49 4C 45 20 53 50 45 43 |SUPPLY FILE SPEC| 00000030: 20 49 4E 20 41 24 2E 20 28 C3 29 20 C1 2E CD 49 | IN A$. (.) ...I| 00000040: 4C 4C 45 54 54 2E 0D 34 31 30 32 30 20 50 52 49 |LLETT..41020 PRI| 00000050: 4E 54 0D 34 31 30 34 30 20 4F 50 45 4E 20 31 35 |NT.41040 OPEN 15| 00000060: 2C 38 2C 31 35 0D 34 31 30 36 30 20 51 45 3D 30 |,8,15.41060 QE=0| 00000070: 0D 34 31 30 38 30 20 4F 50 45 4E 20 31 2C 38 2C |.41080 OPEN 1,8,| 00000080: 30 2C 22 24 22 2B 41 24 0D 34 31 31 30 30 20 47 |0,"$"+A$.41100 G| 00000090: 4F 53 55 42 20 34 31 35 30 30 3A 49 46 20 51 45 |OSUB 41500:IF QE| 000000A0: 20 54 48 45 4E 20 34 31 33 30 30 20 3A 52 45 4D | THEN 41300 :REM| 000000B0: 22 20 C4 49 53 4B 20 45 52 52 4F 52 3F 0D 34 31 |" .ISK ERROR?.41| 000000C0: 31 32 30 20 47 45 54 23 31 2C 41 24 2C 41 24 0D |120 GET#1,A$,A$.| 000000D0: 34 31 31 34 30 20 3A 20 47 45 54 23 31 2C 41 24 |41140 : GET#1,A$| 000000E0: 2C 41 24 2C 41 24 2C 42 24 0D 34 31 31 36 30 20 |,A$,A$,B$.41160 | 000000F0: 3A 20 49 46 20 53 54 20 54 48 45 4E 20 51 45 3D |: IF ST THEN QE=| 00000100: 39 39 3A 47 4F 54 4F 20 34 31 33 30 30 0D 34 31 |99:GOTO 41300.41| 00000110: 31 38 30 20 3A 20 47 45 54 20 43 24 3A 49 46 20 |180 : GET C$:IF | 00000120: 43 24 3D 22 03 22 20 54 48 45 4E 20 34 31 33 30 |C$="." THEN 4130| 00000130: 30 0D 34 31 32 30 30 20 3A 20 50 52 49 4E 54 20 |0.41200 : PRINT | 00000140: 41 53 43 28 41 24 2B 43 48 52 24 28 30 29 29 2B |ASC(A$+CHR$(0))+| 00000150: 41 53 43 28 42 24 2B 43 48 52 24 28 30 29 29 2A |ASC(B$+CHR$(0))*| 00000160: 32 35 36 3B 0D 34 31 32 32 30 20 3A 20 47 45 54 |256;.41220 : GET| 00000170: 23 31 2C 41 24 3A 49 46 20 53 54 20 54 48 45 4E |#1,A$:IF ST THEN| 00000180: 20 51 45 3D 39 39 3A 47 4F 54 4F 20 34 31 33 30 | QE=99:GOTO 4130| 00000190: 30 0D 34 31 32 34 30 20 3A 20 50 52 49 4E 54 20 |0.41240 : PRINT | 000001A0: 41 24 3B 3A 49 46 20 41 24 3E 22 22 20 54 48 45 |A$;:IF A$>"" THE| 000001B0: 4E 20 34 31 32 32 30 0D 34 31 32 36 30 20 3A 20 |N 41220.41260 : | 000001C0: 50 52 49 4E 54 0D 34 31 32 38 30 20 47 4F 54 4F |PRINT.41280 GOTO| 000001D0: 20 34 31 31 34 30 0D 34 31 33 30 30 20 43 4C 4F | 41140.41300 CLO| 000001E0: 53 45 20 31 3A 43 4C 4F 53 45 20 31 35 0D 34 31 |SE 1:CLOSE 15.41| 000001F0: 33 32 30 20 52 45 54 55 52 4E 0D 34 31 34 39 39 |320 RETURN.41499| 00000200: 20 3A 0D 34 31 35 30 30 20 52 45 4D 22 20 C3 48 | :.41500 REM" .H| 00000210: 45 43 4B 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |ECK ERROR CHANNE| 00000220: 4C 20 2C 20 52 45 54 55 52 4E 20 28 51 45 29 20 |L , RETURN (QE) | 00000230: 45 52 52 4F 52 20 23 0D 34 31 35 32 30 20 49 4E |ERROR #.41520 IN| 00000240: 50 55 54 23 31 35 2C 51 45 2C 51 45 24 2C 51 54 |PUT#15,QE,QE$,QT| 00000250: 2C 51 53 0D 34 31 35 34 30 20 49 46 20 51 45 3D |,QS.41540 IF QE=| 00000260: 30 20 54 48 45 4E 20 52 45 54 55 52 4E 0D 34 31 |0 THEN RETURN.41| 00000270: 35 36 30 20 50 52 49 4E 54 0D 34 31 35 38 30 20 |560 PRINT.41580 | 00000280: 50 52 49 4E 54 20 22 C4 C9 D3 CB 20 C5 D2 D2 CF |PRINT ".... ....| 00000290: D2 20 2D 20 22 3B 51 45 3B 22 2C 22 3B 51 45 24 |. - ";QE;",";QE$| 000002A0: 3B 22 2C 22 3B 51 54 3B 22 2C 22 3B 51 53 0D 34 |;",";QT;",";QS.4| 000002B0: 31 36 30 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 |1600 FOR X=1 TO | 000002C0: 31 35 3A 43 4C 4F 53 45 20 58 3A 4E 45 58 54 0D |15:CLOSE X:NEXT.| 000002D0: 34 31 36 32 30 20 50 52 49 4E 54 22 C8 49 54 20 |41620 PRINT".IT | 000002E0: D3 D0 C1 C3 C5 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU| 000002F0: 45 2E 22 0D 34 31 36 34 30 20 47 45 54 20 41 24 |E.".41640 GET A$| 00000300: 0D 34 31 36 36 30 20 49 46 20 41 24 3C 3E 22 20 |.41660 IF A$<>" | 00000310: 22 20 54 48 45 4E 20 34 31 36 34 30 0D 34 31 36 |" THEN 41640.416| 00000320: 38 30 20 52 45 54 55 52 4E 0D 34 31 39 39 39 20 |80 RETURN.41999 | 00000330: 3A 0D 0D 52 45 41 44 59 2E 0D 0D |:..READY... |
..41000 REM" DISPLAY DIRECTORY, SUPPLY F ILE SPEC IN A$. (C) A.MILLETT..41020 PRI NT.41040 OPEN 15,8,15.41060 QE=0.41080 O PEN 1,8,0,"$"+A$.41100 GOSUB 41500:IF QE THEN 41300 :REM" DISK ERROR?.41120 GET# 1,A$,A$.41140 : GET#1,A$,A$,A$,B$.41160 : IF ST THEN QE=99:GOTO 41300.41180 : GE T C$:IF C$="." THEN 41300.41200 : PRINT ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256;.412 20 : GET#1,A$:IF ST THEN QE=99:GOTO 4130 0.41240 : PRINT A$;:IF A$>"" THEN 41220. 41260 : PRINT.41280 GOTO 41140.41300 CLO SE 1:CLOSE 15.41320 RETURN.41499 :.41500 REM" CHECK ERROR CHANNEL , RETURN (QE) ERROR #.41520 INPUT#15,QE,QE$,QT,QS.4154 0 IF QE=0 THEN RETURN.41560 PRINT.41580 PRINT "DISK ERROR - ";QE;",";QE$;",";QT; ",";QS.41600 FOR X=1 TO 15:CLOSE X:NEXT. 41620 PRINT"HIT SPACE TO CONTINUE.".4164 0 GET A$.41660 IF A$<>" " THEN 41640.416 80 RETURN.41999 :..READY...
> CLICK IMAGE PREVIEW FOR FULL MODAL