1581 SUBDIRMAKER
FILE INFORMATION
FILENAME(S): 1581 SUBDIRMAKER
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 18:06:10
APPEARS ON: 1 disk(s)
FILE HASH
86689c7a4ac6e384706de031766813af197bd7b9984b1329a8a59659a804eca1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGERDISK NUMMER | 1581 SUBDIRMAKER | PRG | Xii | 3 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 00 00 97 32 31 32 36 2C 31 31 33 3A |..N....2126,113:|
00000010: 97 32 31 32 37 2C 38 3A 97 38 30 38 2C 32 33 34 |.2127,8:.808,234|
00000020: 3A 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 14 |:.".............|
00000030: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
00000040: 14 14 14 14 14 14 14 14 14 14 14 17 08 0C 00 00 |................|
00000050: 00 01 00 99 22 93 11 20 20 20 20 20 20 20 20 20 |....".. |
00000060: 20 20 20 20 20 20 20 12 9F 30 30 30 30 30 30 31 | ..0000001|
00000070: 22 00 99 08 02 00 99 22 11 0E 20 20 20 20 20 20 |"......".. |
00000080: 20 20 20 20 20 20 1E 12 20 D7 2E C8 2E 20 CC 41 | .. .... .A|
00000090: 4D 42 44 49 4E 27 53 20 22 00 C0 08 03 00 99 22 |MBDIN'S "......"|
000000A0: 20 20 20 20 20 20 20 20 20 20 20 9F 12 20 D3 2E | .. ..|
000000B0: C4 2E 20 C3 52 45 41 54 4F 52 20 32 2E 30 20 22 |.. .REATOR 2.0 "|
000000C0: 00 EB 08 04 00 99 22 11 99 20 20 C9 20 48 41 56 |......".. . HAV|
000000D0: 45 20 52 45 4C 45 41 53 45 44 20 54 48 49 53 20 |E RELEASED THIS |
000000E0: 55 54 49 4C 49 54 59 20 41 53 22 00 1A 09 05 00 |UTILITY AS".....|
000000F0: 99 22 46 52 45 45 20 57 41 52 45 2E 20 D3 45 4E |."FREE WARE. .EN|
00000100: 44 20 24 35 20 4F 52 20 57 48 41 54 45 56 45 52 |D $5 OR WHATEVER|
00000110: 20 59 4F 55 20 46 45 45 4C 22 00 48 09 06 00 99 | YOU FEEL".H....|
00000120: 22 49 54 20 49 53 20 57 4F 52 54 48 2E 20 54 4F |"IT IS WORTH. TO|
00000130: 20 54 48 45 20 41 44 44 52 45 53 53 20 42 45 4C | THE ADDRESS BEL|
00000140: 4F 57 2E 20 D4 48 45 22 00 75 09 07 00 99 22 4E |OW. .HE".u...."N|
00000150: 55 4D 42 45 52 20 41 42 4F 56 45 20 49 53 20 54 |UMBER ABOVE IS T|
00000160: 48 45 20 53 45 52 49 41 4C 20 4E 55 4D 42 45 52 |HE SERIAL NUMBER|
00000170: 2E 20 C9 46 22 00 A4 09 08 00 99 22 59 4F 55 20 |. .F"......"YOU |
00000180: 53 45 4E 44 20 41 20 44 4F 4E 41 54 49 4F 4E 2C |SEND A DONATION,|
00000190: 20 57 52 49 54 45 20 54 48 45 20 53 45 52 49 41 | WRITE THE SERIA|
000001A0: 4C 20 23 22 00 D2 09 09 00 99 22 4F 4E 20 54 48 |L #"......"ON TH|
000001B0: 45 20 43 48 45 43 4B 2E 20 C9 20 57 49 4C 4C 20 |E CHECK. . WILL |
000001C0: 54 48 45 4E 20 53 45 4E 44 20 59 4F 55 20 54 48 |THEN SEND YOU TH|
000001D0: 45 22 00 00 0A 0A 00 99 22 4C 41 54 45 53 54 20 |E"......"LATEST |
000001E0: 56 45 52 53 49 4F 4E 20 57 49 54 48 20 49 54 27 |VERSION WITH IT'|
000001F0: 53 20 4F 57 4E 20 53 45 52 49 41 4C 20 23 2E 22 |S OWN SERIAL #."|
00000200: 00 2F 0A 0B 00 99 22 50 41 53 53 20 59 4F 55 52 |./...."PASS YOUR|
00000210: 20 56 45 52 53 49 4F 4E 20 41 52 4F 55 4E 44 20 | VERSION AROUND |
00000220: 41 4C 4C 20 59 4F 55 20 50 4C 45 41 53 45 22 00 |ALL YOU PLEASE".|
00000230: 5B 0A 0C 00 99 22 C9 46 20 41 4E 59 4F 4E 45 20 |[....".F ANYONE |
00000240: 53 45 4E 44 53 20 41 20 44 4F 4E 41 54 49 4F 4E |SENDS A DONATION|
00000250: 20 57 49 54 48 20 59 4F 55 52 22 00 89 0A 0D 00 | WITH YOUR".....|
00000260: 99 22 53 45 52 49 41 4C 20 4E 55 4D 42 45 52 2C |."SERIAL NUMBER,|
00000270: 20 C9 20 57 49 4C 4C 20 53 45 4E 44 20 59 4F 55 | . WILL SEND YOU|
00000280: 20 32 35 20 25 20 4F 46 22 00 B8 0A 0E 00 99 22 | 25 % OF"......"|
00000290: 54 48 45 20 44 4F 4E 41 54 49 4F 4E 20 54 4F 20 |THE DONATION TO |
000002A0: 54 48 41 4E 4B 20 59 4F 55 20 46 4F 52 20 53 50 |THANK YOU FOR SP|
000002B0: 52 45 41 44 49 4E 47 22 00 D4 0A 0F 00 99 22 54 |READING"......"T|
000002C0: 48 49 53 20 55 54 49 4C 49 54 59 20 41 52 4F 55 |HIS UTILITY AROU|
000002D0: 4E 44 2E 22 00 ED 0A 10 00 99 22 11 20 20 12 9F |ND."......". ..|
000002E0: D7 2E C8 2E 20 CC 41 4D 42 44 49 4E 22 00 05 0B |.... .AMBDIN"...|
000002F0: 11 00 99 22 20 20 12 99 D0 2E CF 2E 20 C2 4F 58 |..." ...... .OX|
00000300: 20 33 32 38 22 00 2A 0B 12 00 99 22 20 20 12 1E | 328".*...." ..|
00000310: C5 41 53 54 20 C2 45 52 4E 53 54 41 44 54 2C 20 |.AST .ERNSTADT, |
00000320: CB 59 2E 20 34 30 37 32 39 22 00 56 0B 13 00 99 |.Y. 40729".V....|
00000330: 22 11 20 20 20 20 20 20 12 05 20 D0 52 45 53 53 |". .. .RESS|
00000340: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000350: 49 4E 55 45 20 22 00 69 0B 14 00 A1 41 24 3A 8B |INUE ".i....A$:.|
00000360: 41 24 B2 22 22 A7 20 32 30 00 99 0B 16 00 85 22 |A$."". 20......"|
00000370: 93 11 11 9B 20 20 C5 4E 54 45 52 20 54 48 45 20 |.... .NTER THE |
00000380: 44 45 56 49 43 45 20 4E 55 4D 42 45 52 20 28 38 |DEVICE NUMBER (8|
00000390: 2D 31 31 29 20 22 3B 44 44 00 A6 0B 17 00 8B 44 |-11) ";DD......D|
000003A0: 44 B3 38 A7 32 32 00 B4 0B 18 00 8B 44 44 B1 31 |D.8.22......DD.1|
000003B0: 31 A7 32 32 00 C2 0B 19 00 9F 31 35 2C 44 44 2C |1.22......15,DD,|
000003C0: 31 35 00 E8 0B 1A 00 99 22 93 11 11 9E 20 20 C6 |15......".... .|
000003D0: 4F 52 4D 41 54 20 41 20 44 49 53 4B 20 28 59 2F |ORMAT A DISK (Y/|
000003E0: 4E 29 22 3A 8D 36 37 3A 00 F7 0B 1B 00 8B 41 24 |N)":.67:......A$|
000003F0: B2 22 4E 22 A7 33 33 00 11 0C 1C 00 85 22 93 11 |."N".33......"..|
00000400: 11 20 20 CE 41 4D 45 2C 49 44 22 3B 41 24 2C 42 |. .AME,ID";A$,B|
00000410: 24 00 41 0C 1D 00 99 22 93 11 11 20 D0 4C 45 41 |$.A...."... .LEA|
00000420: 53 45 20 57 41 49 54 20 31 2E 35 20 4D 49 4E 55 |SE WAIT 1.5 MINU|
00000430: 54 45 53 2E 20 12 C6 CF D2 CD C1 D4 D4 C9 CE C7 |TES. ...........|
00000440: 22 00 56 0C 1E 00 98 31 35 2C 22 4E 30 3A 22 41 |".V....15,"N0:"A|
00000450: 24 22 2C 22 42 24 00 67 0C 1F 00 54 49 24 B2 22 |$","B$.g...TI$."|
00000460: 30 30 30 30 30 30 22 00 7D 0C 20 00 8B 54 49 24 |000000".}. ..TI$|
00000470: B3 B1 22 30 30 30 31 33 30 22 A7 33 32 00 AA 0C |.."000130".32...|
00000480: 21 00 99 22 93 11 11 1E 20 C3 52 45 41 54 45 20 |!..".... .REATE |
00000490: 41 20 53 55 42 20 44 49 52 45 43 54 4F 52 59 20 |A SUB DIRECTORY |
000004A0: 28 59 2F 4E 29 22 3A 8D 36 37 00 D9 0C 22 00 8B |(Y/N)":.67..."..|
000004B0: 41 24 B2 22 4E 22 A7 97 32 31 32 36 2C 30 3A 97 |A$."N"..2126,0:.|
000004C0: 32 31 32 37 2C 30 3A 97 38 30 38 2C 32 33 37 3A |2127,0:.808,237:|
000004D0: 98 31 35 3A A0 31 35 3A 80 00 0A 0D 23 00 99 22 |.15:.15:....#.."|
000004E0: 93 11 11 20 D0 52 45 53 53 20 12 48 92 20 49 46 |... .RESS .H. IF|
000004F0: 20 59 4F 55 20 4E 45 45 44 20 48 45 4C 50 2E 20 | YOU NEED HELP. |
00000500: C1 4E 59 20 4F 54 48 45 52 22 00 2D 0D 24 00 99 |.NY OTHER".-.$..|
00000510: 22 43 4F 4E 54 49 4E 55 45 53 20 57 49 54 48 20 |"CONTINUES WITH |
00000520: 54 48 45 20 50 52 4F 47 52 41 4D 2E 22 00 3F 0D |THE PROGRAM.".?.|
00000530: 25 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 37 00 |%..A$:.A$."".37.|
00000540: 51 0D 26 00 8B 41 24 B2 22 48 22 A7 20 8D 20 36 |Q.&..A$."H". . 6|
00000550: 39 00 5A 0D 27 00 99 22 93 22 00 85 0D 28 00 85 |9.Z.'.."."...(..|
00000560: 22 13 11 11 20 C8 4F 57 20 4D 41 4E 59 20 53 45 |"... .OW MANY SE|
00000570: 43 54 4F 52 53 20 44 4F 20 59 4F 55 20 4E 45 45 |CTORS DO YOU NEE|
00000580: 44 20 22 3B 41 00 BD 0D 29 00 8B 41 B1 31 34 36 |D ";A...)..A.146|
00000590: 30 A7 99 22 11 20 53 55 42 20 44 49 52 45 43 54 |0..". SUB DIRECT|
000005A0: 4F 52 59 20 54 4F 4F 20 4C 41 52 47 45 20 28 31 |ORY TOO LARGE (1|
000005B0: 34 36 30 20 4D 41 58 29 22 3A 89 34 30 00 CA 0D |460 MAX)":.40...|
000005C0: 2A 00 42 B2 41 AD 34 30 AA 32 00 D9 0D 2B 00 42 |*.B.A.40.2...+.B|
000005D0: B2 B5 28 42 AC 31 29 AD 31 00 05 0E 2C 00 99 22 |..(B.1).1...,.."|
000005E0: 93 11 11 20 46 4F 52 20 41 20 53 55 42 20 44 49 |... FOR A SUB DI|
000005F0: 52 45 43 54 4F 52 59 20 4F 46 22 41 22 42 4C 4F |RECTORY OF"A"BLO|
00000600: 43 4B 53 2C 22 00 31 0E 2D 00 99 22 20 49 54 20 |CKS,".1.-.." IT |
00000610: 57 49 4C 4C 20 54 41 4B 45 22 42 22 54 52 41 43 |WILL TAKE"B"TRAC|
00000620: 4B 53 20 41 46 54 45 52 20 59 4F 55 20 41 44 44 |KS AFTER YOU ADD|
00000630: 22 00 60 0E 2E 00 99 22 20 41 4E 20 41 44 44 49 |".`...." AN ADDI|
00000640: 54 49 4F 4E 41 4C 20 54 52 41 43 4B 20 46 4F 52 |TIONAL TRACK FOR|
00000650: 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 2E 22 | THE DIRECTORY."|
00000660: 00 6B 0E 2F 00 43 B2 42 AC 34 30 00 77 0E 30 00 |.k./.C.B.40.w.0.|
00000670: 44 B2 43 AD 32 35 36 00 86 0E 31 00 45 B2 B5 28 |D.C.256...1.E..(|
00000680: 44 AC 31 29 AD 31 00 96 0E 32 00 46 B2 28 44 AB |D.1).1...2.F.(D.|
00000690: 45 29 AC 32 35 36 00 B5 0E 33 00 85 22 13 11 11 |E).256...3.."...|
000006A0: 11 11 11 11 D3 54 41 52 54 49 4E 47 20 54 52 41 |.....TARTING TRA|
000006B0: 43 4B 22 3B 41 00 C3 0E 34 00 47 B2 28 41 AA 42 |CK";A...4.G.(A.B|
000006C0: 29 AB 31 00 FE 0E 35 00 8B 41 B3 B2 34 30 AF 47 |).1...5..A..40.G|
000006D0: B1 34 30 20 A7 99 22 11 20 D7 4F 55 4C 44 20 4F |.40 ..". .OULD O|
000006E0: 56 45 52 57 52 49 54 45 20 4D 41 53 54 45 52 20 |VERWRITE MASTER |
000006F0: 44 49 52 45 43 54 4F 52 59 22 3A 89 35 31 00 11 |DIRECTORY":.51..|
00000700: 0F 36 00 8B 41 B3 33 39 AF 47 B1 38 30 20 A7 34 |.6..A.39.G.80 .4|
00000710: 30 00 4C 0F 37 00 8B 47 B1 38 30 20 A7 99 22 11 |0.L.7..G.80 ..".|
00000720: 20 D7 4F 55 4C 44 20 53 55 52 50 41 53 53 20 54 | .OULD SURPASS T|
00000730: 52 41 43 4B 20 38 30 20 20 20 20 20 20 20 20 20 |RACK 80 |
00000740: 20 20 20 20 20 20 20 22 3A 89 35 31 00 74 0F 38 | ":.51.t.8|
00000750: 00 85 22 93 11 11 20 4E 41 4D 45 20 4F 46 20 54 |.."... NAME OF T|
00000760: 48 45 20 53 55 42 20 44 49 52 45 43 54 4F 52 59 |HE SUB DIRECTORY|
00000770: 22 3B 41 24 00 9B 0F 39 00 98 31 35 2C 22 2F 30 |";A$...9..15,"/0|
00000780: 3A 22 41 24 22 2C 22 C7 28 41 29 C7 28 30 29 C7 |:"A$",".(A).(0).|
00000790: 28 46 29 C7 28 45 29 22 2C 43 22 00 AB 0F 3A 00 |(F).(E)",C"...:.|
000007A0: 98 31 35 2C 22 2F 30 3A 22 41 24 00 D7 0F 3B 00 |.15,"/0:"A$...;.|
000007B0: 99 22 93 11 11 20 CE 4F 57 20 54 4F 20 46 4F 52 |."... .OW TO FOR|
000007C0: 4D 41 54 20 54 48 45 20 53 55 42 20 44 49 52 45 |MAT THE SUB DIRE|
000007D0: 43 54 4F 52 59 2E 22 00 EE 0F 3C 00 85 22 11 20 |CTORY."...<..". |
000007E0: CE 41 4D 45 2C 49 44 22 3B 41 24 2C 42 24 00 0B |.AME,ID";A$,B$..|
000007F0: 10 3D 00 98 31 35 2C 22 4E 30 3A 22 41 24 22 2C |.=..15,"N0:"A$",|
00000800: 22 42 24 22 2C 22 41 22 2C 22 47 00 35 10 3E 00 |"B$","A","G.5.>.|
00000810: 99 22 11 20 20 20 20 20 20 12 20 C6 4F 52 4D 41 |.". . .ORMA|
00000820: 54 54 49 4E 47 20 53 55 42 20 44 49 52 45 43 54 |TTING SUB DIRECT|
00000830: 4F 52 59 20 22 00 5F 10 3F 00 99 22 11 20 20 20 |ORY "._.?..". |
00000840: 20 20 20 20 D0 52 45 53 53 20 41 20 4B 45 59 20 | .RESS A KEY |
00000850: 57 48 45 4E 20 46 49 4E 49 53 48 45 44 2E 22 00 |WHEN FINISHED.".|
00000860: 6B 10 40 00 98 31 35 2C 22 2F 22 00 7E 10 41 00 |k.@..15,"/".~.A.|
00000870: A1 41 24 3A 8B 41 24 B2 22 22 A7 20 36 35 00 B4 |.A$:.A$."". 65..|
00000880: 10 42 00 99 22 93 11 11 20 C3 52 45 41 54 45 20 |.B.."... .REATE |
00000890: 41 4E 4F 54 48 45 52 20 53 55 42 20 44 49 52 45 |ANOTHER SUB DIRE|
000008A0: 43 54 4F 52 59 20 28 59 2F 4E 29 22 3A 8D 36 37 |CTORY (Y/N)":.67|
000008B0: 3A 89 33 34 00 D0 10 43 00 A1 41 24 3A 8B 41 24 |:.34...C..A$:.A$|
000008C0: B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 36 37 |.."Y".A$.."N".67|
000008D0: 00 D6 10 44 00 8E 00 01 11 45 00 99 22 93 11 11 |...D.....E.."...|
000008E0: 20 20 D4 48 49 53 20 55 54 49 4C 49 54 59 20 49 | .HIS UTILITY I|
000008F0: 53 20 4D 55 43 48 20 4D 4F 52 45 20 55 53 45 52 |S MUCH MORE USER|
00000900: 22 00 2E 11 46 00 99 22 46 52 49 45 4E 44 4C 59 |"...F.."FRIENDLY|
00000910: 20 54 48 41 4E 20 D3 C4 20 C3 52 45 41 54 4F 52 | THAN .. .REATOR|
00000920: 20 31 2E 30 2E 20 C2 45 43 41 55 53 45 22 00 5B | 1.0. .ECAUSE".[|
00000930: 11 47 00 99 22 49 54 20 57 41 53 20 4D 41 44 45 |.G.."IT WAS MADE|
00000940: 20 54 4F 20 4D 59 20 53 50 45 43 49 46 49 43 41 | TO MY SPECIFICA|
00000950: 54 49 4F 4E 53 2E 20 D4 48 45 22 00 87 11 48 00 |TIONS. .HE"...H.|
00000960: 99 22 52 45 41 53 4F 4E 20 49 54 20 57 41 53 20 |."REASON IT WAS |
00000970: 50 4C 41 43 45 44 20 4F 4E 20 D1 2D 4C 49 4E 4B |PLACED ON .-LINK|
00000980: 20 57 41 53 20 41 22 00 B5 11 49 00 99 22 46 52 | WAS A"...I.."FR|
00000990: 49 45 4E 44 20 53 55 47 47 45 53 54 45 44 20 54 |IEND SUGGESTED T|
000009A0: 48 41 54 20 C9 20 55 50 4C 4F 41 44 20 54 4F 20 |HAT . UPLOAD TO |
000009B0: 4D 41 4B 45 22 00 E3 11 4A 00 99 22 53 55 42 20 |MAKE"...J.."SUB |
000009C0: 44 49 52 45 43 54 4F 52 59 27 53 20 45 41 53 49 |DIRECTORY'S EASI|
000009D0: 45 52 20 54 4F 20 4D 41 4B 45 2E 20 C9 46 20 59 |ER TO MAKE. .F Y|
000009E0: 4F 55 22 00 12 12 4B 00 99 22 57 41 4E 54 20 54 |OU"...K.."WANT T|
000009F0: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 49 4E 53 |HE FOLLOWING INS|
00000A00: 54 52 55 43 54 49 4F 4E 53 20 50 52 49 4E 54 45 |TRUCTIONS PRINTE|
00000A10: 44 22 00 38 12 4C 00 99 22 50 52 45 53 53 20 12 |D".8.L.."PRESS .|
00000A20: 50 92 20 41 54 20 54 48 45 20 50 52 4F 4D 50 54 |P. AT THE PROMPT|
00000A30: 20 42 45 4C 4F 57 2E 22 00 63 12 4D 00 99 22 4D | BELOW.".c.M.."M|
00000A40: 41 4B 45 20 53 55 52 45 20 54 48 45 20 50 52 49 |AKE SURE THE PRI|
00000A50: 4E 54 45 52 20 49 53 20 54 55 52 4E 45 44 20 4F |NTER IS TURNED O|
00000A60: 4E 2E 22 00 8A 12 4E 00 99 22 11 20 20 20 20 20 |N."...N..". |
00000A70: 20 20 20 20 12 20 C1 4E 59 20 4B 45 59 20 54 4F | . .NY KEY TO|
00000A80: 20 43 4F 4E 54 49 4E 55 45 22 00 9C 12 4F 00 A1 | CONTINUE"...O..|
00000A90: 41 24 3A 8B 41 24 B2 22 22 A7 37 39 00 B1 12 50 |A$:.A$."".79...P|
00000AA0: 00 8B 41 24 B2 22 50 22 A7 20 9F 31 2C 34 3A 9D |..A$."P". .1,4:.|
00000AB0: 31 00 DD 12 51 00 99 22 93 11 20 49 20 43 4F 55 |1...Q..".. I COU|
00000AC0: 4C 44 20 48 41 56 45 20 4D 41 44 45 20 54 48 49 |LD HAVE MADE THI|
00000AD0: 53 20 50 52 4F 47 52 41 4D 20 54 4F 22 00 0B 13 |S PROGRAM TO"...|
00000AE0: 52 00 99 22 41 4C 4C 4F 57 20 59 4F 55 20 54 4F |R.."ALLOW YOU TO|
00000AF0: 20 4D 41 4B 45 20 53 55 42 20 44 49 52 45 43 54 | MAKE SUB DIRECT|
00000B00: 4F 52 59 27 53 20 57 49 54 48 22 00 3A 13 53 00 |ORY'S WITH".:.S.|
00000B10: 99 22 49 4E 20 53 55 42 20 44 49 52 45 43 54 4F |."IN SUB DIRECTO|
00000B20: 52 59 27 53 2E 20 49 20 44 49 44 4E 27 54 20 42 |RY'S. I DIDN'T B|
00000B30: 45 43 41 55 53 45 20 49 54 22 00 66 13 54 00 99 |ECAUSE IT".f.T..|
00000B40: 22 4D 41 4B 45 53 20 55 53 49 4E 47 20 53 55 42 |"MAKES USING SUB|
00000B50: 20 53 55 42 20 44 49 52 45 43 54 4F 52 59 27 53 | SUB DIRECTORY'S|
00000B60: 20 56 45 52 59 22 00 94 13 55 00 99 22 44 49 46 | VERY"...U.."DIF|
00000B70: 46 49 43 55 4C 54 2E 20 49 46 20 59 4F 55 20 4E |FICULT. IF YOU N|
00000B80: 45 45 44 20 54 48 49 53 20 46 45 41 54 55 52 45 |EED THIS FEATURE|
00000B90: 2C 20 49 22 00 C3 13 56 00 99 22 57 49 4C 4C 20 |, I"...V.."WILL |
00000BA0: 41 44 44 20 54 48 45 20 43 4F 44 45 20 54 4F 20 |ADD THE CODE TO |
00000BB0: 41 4C 4C 4F 57 20 59 4F 55 20 54 4F 20 44 4F 20 |ALLOW YOU TO DO |
00000BC0: 53 4F 22 00 F1 13 57 00 99 22 49 46 20 59 4F 55 |SO"...W.."IF YOU|
00000BD0: 20 57 49 4C 4C 20 53 45 4E 44 20 54 48 45 20 52 | WILL SEND THE R|
00000BE0: 45 51 55 45 53 54 20 57 49 54 48 20 59 4F 55 52 |EQUEST WITH YOUR|
00000BF0: 22 00 03 14 58 00 99 22 44 4F 4E 41 54 49 4F 4E |"...X.."DONATION|
00000C00: 2E 20 22 00 2E 14 59 00 99 22 11 20 46 49 52 53 |. "...Y..". FIRS|
00000C10: 54 20 4F 46 20 41 4C 4C 2C 20 54 48 45 20 31 35 |T OF ALL, THE 15|
00000C20: 38 31 20 44 49 53 4B 20 44 52 49 56 45 22 00 5B |81 DISK DRIVE".[|
00000C30: 14 5A 00 99 22 46 4F 52 4D 41 54 27 53 20 38 30 |.Z.."FORMAT'S 80|
00000C40: 20 54 52 41 43 4B 27 53 2E 20 34 30 20 4F 4E 20 | TRACK'S. 40 ON |
00000C50: 54 48 45 20 46 52 4F 4E 54 2C 22 00 86 14 5B 00 |THE FRONT,"...[.|
00000C60: 99 22 34 30 20 4F 4E 20 54 48 45 20 42 41 43 4B |."40 ON THE BACK|
00000C70: 20 57 49 54 48 20 34 30 20 53 45 43 54 4F 52 53 | WITH 40 SECTORS|
00000C80: 20 50 45 52 20 22 00 B3 14 5C 00 99 22 54 52 41 | PER "...\.."TRA|
00000C90: 43 4B 2E 20 54 48 45 20 4C 41 52 47 45 53 54 20 |CK. THE LARGEST |
00000CA0: 53 55 42 20 44 49 52 45 43 54 4F 52 59 2C 20 59 |SUB DIRECTORY, Y|
00000CB0: 4F 55 22 00 E0 14 5D 00 99 22 43 41 4E 20 48 41 |OU"...].."CAN HA|
00000CC0: 56 45 2C 20 57 49 4C 4C 20 43 4F 56 45 52 20 33 |VE, WILL COVER 3|
00000CD0: 37 20 54 52 41 43 4B 53 2E 20 31 2C 34 36 30 22 |7 TRACKS. 1,460"|
00000CE0: 00 0F 15 5E 00 99 22 53 45 43 54 4F 52 53 2E 20 |...^.."SECTORS. |
00000CF0: 54 48 45 4E 20 54 48 49 53 20 50 52 4F 47 52 41 |THEN THIS PROGRA|
00000D00: 4D 20 41 44 44 53 20 41 20 54 52 41 43 4B 22 00 |M ADDS A TRACK".|
00000D10: 3A 15 5F 00 99 22 46 4F 52 20 54 48 45 20 44 49 |:._.."FOR THE DI|
00000D20: 52 45 43 54 4F 52 59 2C 20 49 54 20 42 45 43 4F |RECTORY, IT BECO|
00000D30: 4D 45 53 20 41 20 53 55 42 22 00 5F 15 60 00 99 |MES A SUB"._.`..|
00000D40: 22 44 49 52 45 43 54 4F 52 59 20 57 49 54 48 20 |"DIRECTORY WITH |
00000D50: 31 2C 35 32 30 20 53 45 43 54 4F 52 53 2E 22 00 |1,520 SECTORS.".|
00000D60: 8B 15 61 00 99 22 11 20 54 48 45 20 53 4D 41 4C |..a..". THE SMAL|
00000D70: 4C 45 53 54 20 53 55 42 20 44 49 52 45 43 54 4F |LEST SUB DIRECTO|
00000D80: 52 59 20 59 4F 55 20 43 41 4E 22 00 B9 15 62 00 |RY YOU CAN"...b.|
00000D90: 99 22 48 41 56 45 20 49 53 20 32 20 54 52 41 43 |."HAVE IS 2 TRAC|
00000DA0: 4B 27 53 20 4F 52 20 36 30 20 53 45 43 54 4F 52 |K'S OR 60 SECTOR|
00000DB0: 53 2E 20 41 46 54 45 52 22 00 E6 15 63 00 99 22 |S. AFTER"...c.."|
00000DC0: 54 48 45 20 54 52 41 43 4B 20 49 53 20 41 44 44 |THE TRACK IS ADD|
00000DD0: 45 44 20 46 4F 52 20 54 48 45 20 44 49 52 45 43 |ED FOR THE DIREC|
00000DE0: 54 4F 52 59 2C 22 00 05 16 64 00 99 22 54 48 45 |TORY,"...d.."THE|
00000DF0: 20 53 49 5A 45 20 49 53 20 31 32 30 20 42 4C 4F | SIZE IS 120 BLO|
00000E00: 43 4B 53 2E 22 00 2E 16 65 00 99 22 11 20 20 20 |CKS."...e..". |
00000E10: 20 20 20 20 20 20 20 20 20 12 C1 4E 59 20 4B 45 | ..NY KE|
00000E20: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 3F |Y TO CONTINUE".?|
00000E30: 16 66 00 8B 41 24 B2 22 50 22 A7 20 31 30 34 00 |.f..A$."P". 104.|
00000E40: 53 16 67 00 A1 42 24 3A 8B 42 24 B2 22 22 A7 20 |S.g..B$:.B$."". |
00000E50: 31 30 32 00 84 16 68 00 99 22 93 11 11 20 D4 48 |102...h.."... .H|
00000E60: 45 20 44 49 52 45 43 54 4F 52 59 20 49 53 20 4F |E DIRECTORY IS O|
00000E70: 4E 20 54 52 41 43 4B 20 34 30 2E 20 D4 48 49 53 |N TRACK 40. .HIS|
00000E80: 20 49 53 22 00 B2 16 69 00 99 22 57 48 59 20 59 | IS"...i.."WHY Y|
00000E90: 4F 55 20 43 41 4E 27 54 20 48 41 56 45 20 4C 41 |OU CAN'T HAVE LA|
00000EA0: 52 47 45 52 20 50 41 52 54 49 54 49 4F 4E 27 D3 |RGER PARTITION'.|
00000EB0: 2E 22 00 E1 16 6A 00 99 22 20 49 20 48 41 44 20 |."...j.." I HAD |
00000EC0: 54 48 45 20 50 52 4F 47 52 41 4D 20 43 41 4C 43 |THE PROGRAM CALC|
00000ED0: 55 4C 41 54 45 20 54 48 45 20 4E 55 4D 42 45 52 |ULATE THE NUMBER|
00000EE0: 22 00 0F 17 6B 00 99 22 4F 46 20 54 52 41 43 4B |"...k.."OF TRACK|
00000EF0: 27 53 20 41 4E 44 20 52 45 50 4F 52 54 20 49 54 |'S AND REPORT IT|
00000F00: 20 54 4F 20 59 4F 55 2E 20 49 54 20 49 53 22 00 | TO YOU. IT IS".|
00000F10: 3A 17 6C 00 99 22 59 4F 55 52 20 52 45 53 50 4F |:.l.."YOUR RESPO|
00000F20: 4E 53 49 42 4C 49 49 54 59 20 54 4F 20 41 56 4F |NSIBLIITY TO AVO|
00000F30: 49 44 20 48 41 56 49 4E 47 22 00 68 17 6D 00 99 |ID HAVING".h.m..|
00000F40: 22 54 52 41 43 4B 20 34 30 20 4F 52 20 50 41 53 |"TRACK 40 OR PAS|
00000F50: 54 20 38 30 20 49 4E 20 59 4F 55 52 20 50 41 52 |T 80 IN YOUR PAR|
00000F60: 54 49 54 49 4F 4E 2E 22 00 97 17 6E 00 99 22 11 |TITION."...n..".|
00000F70: 20 49 20 48 4F 50 45 20 59 4F 55 20 45 4E 4A 4F | I HOPE YOU ENJO|
00000F80: 59 20 54 48 49 53 20 55 54 49 4C 49 54 59 2E 20 |Y THIS UTILITY. |
00000F90: 49 20 57 49 4C 4C 22 00 C3 17 6F 00 99 22 53 45 |I WILL"...o.."SE|
00000FA0: 4E 44 20 54 48 45 20 32 35 20 25 20 4F 46 20 54 |ND THE 25 % OF T|
00000FB0: 48 45 20 43 4F 4E 54 52 49 42 55 54 49 4F 4E 20 |HE CONTRIBUTION |
00000FC0: 54 4F 22 00 F2 17 70 00 99 22 54 48 45 20 50 45 |TO"...p.."THE PE|
00000FD0: 52 53 4F 4E 20 54 48 41 54 20 4F 52 49 47 49 4E |RSON THAT ORIGIN|
00000FE0: 41 4C 59 20 52 45 43 49 45 56 45 44 20 54 48 49 |ALY RECIEVED THI|
00000FF0: 53 22 00 1F 18 71 00 99 22 53 45 52 49 41 4C 20 |S"...q.."SERIAL |
00001000: 4E 55 4D 42 45 52 20 51 55 41 52 54 45 52 4C 59 |NUMBER QUARTERLY|
00001010: 2E 20 57 2E 48 2E 20 4C 41 4D 42 44 49 4E 22 00 |. W.H. LAMBDIN".|
00001020: 4B 18 72 00 99 22 11 20 49 20 4B 4E 4F 57 20 54 |K.r..". I KNOW T|
00001030: 48 41 54 20 31 34 36 30 20 41 4E 44 20 36 30 20 |HAT 1460 AND 60 |
00001040: 41 52 45 4E 27 54 20 54 48 45 22 00 76 18 73 00 |AREN'T THE".v.s.|
00001050: 99 22 41 43 54 55 41 4C 20 4E 55 4D 42 45 52 20 |."ACTUAL NUMBER |
00001060: 4F 46 20 53 45 43 54 4F 52 53 20 49 4E 20 33 37 |OF SECTORS IN 37|
00001070: 20 4F 52 20 32 22 00 A3 18 74 00 99 22 54 52 41 | OR 2"...t.."TRA|
00001080: 43 4B 53 20 52 45 53 50 45 43 54 49 56 45 4C 59 |CKS RESPECTIVELY|
00001090: 2C 20 49 20 4D 41 44 45 20 49 54 20 41 44 44 20 |, I MADE IT ADD |
000010A0: 41 4E 22 00 CD 18 75 00 99 22 41 44 44 49 54 49 |AN"...u.."ADDITI|
000010B0: 4F 4E 41 4C 20 54 52 41 43 4B 2C 20 49 46 20 54 |ONAL TRACK, IF T|
000010C0: 48 45 20 50 41 52 54 49 54 49 4F 4E 22 00 F8 18 |HE PARTITION"...|
000010D0: 76 00 99 22 57 4F 55 4C 44 20 48 41 56 45 20 46 |v.."WOULD HAVE F|
000010E0: 49 4C 4C 45 44 20 54 48 45 20 4C 41 53 54 20 54 |ILLED THE LAST T|
000010F0: 52 41 43 4B 20 4F 52 22 00 1D 19 77 00 99 22 4E |RACK OR"...w.."N|
00001100: 45 45 44 45 44 20 41 20 46 52 41 43 54 49 4F 4E |EEDED A FRACTION|
00001110: 20 4F 46 20 41 4E 4F 54 48 45 52 2E 22 00 30 19 | OF ANOTHER.".0.|
00001120: 78 00 8B 41 24 B2 22 50 22 A7 20 98 31 3A A0 31 |x..A$."P". .1:.1|
00001130: 00 56 19 79 00 99 22 11 20 20 20 20 20 20 20 20 |.V.y..". |
00001140: 20 20 20 20 20 20 12 20 D0 52 45 53 53 20 41 4E | . .RESS AN|
00001150: 59 20 4B 45 59 22 00 69 19 7A 00 A1 41 24 3A 8B |Y KEY".i.z..A$:.|
00001160: 41 24 B2 22 22 A7 31 32 32 00 6F 19 7B 00 8E 00 |A$."".122.o.{...|
00001170: 00 00 |.. |
..N....2126,113:.2127,8:.808,234:.".....
........................................
....".. ..0000001"......"
.. .. W.H. LAMBDIN'S "......"
.. S.D. CREATOR 2.0 "......".
. I HAVE RELEASED THIS UTILITY AS".....
."FREE WARE. SEND $5 OR WHATEVER YOU FEE
L".H...."IT IS WORTH. TO THE ADDRESS BEL
OW. THE".U...."NUMBER ABOVE IS THE SERIA
L NUMBER. IF"......"YOU SEND A DONATION,
WRITE THE SERIAL #".R...."ON THE CHECK.
I WILL THEN SEND YOU THE"......"LATEST
VERSION WITH IT'S OWN SERIAL #."./...."P
ASS YOUR VERSION AROUND ALL YOU PLEASE".
[...."IF ANYONE SENDS A DONATION WITH YO
UR"......"SERIAL NUMBER, I WILL SEND YOU
25 % OF"......"THE DONATION TO THANK YO
U FOR SPREADING".T...."THIS UTILITY AROU
ND."......". ..W.H. LAMBDIN"......" ..
P.O. BOX 328".*...." ..EAST BERNSTADT,
KY. 40729".V....". .. PRESS ANY KEY
TO CONTINUE ".I....A$:.A$."". 20......"
.... ENTER THE DEVICE NUMBER (8-11) ";D
D......DD.8.22......DD.11.22.B....15,DD,
15......".... FORMAT A DISK (Y/N)":.67:
......A$."N".33......"... NAME,ID";A$,B
$.A...."... PLEASE WAIT 1.5 MINUTES. .FO
RMATTING".V....15,"N0:"A$","B$.G...TI$."
000000".}. ..TI$.."000130".32...!.."....
CREATE A SUB DIRECTORY (Y/N)":.67.Y."..
A$."N"..2126,0:.2127,0:.808,237:.15: 15:
....#.."... PRESS .H. IF YOU NEED HELP.
ANY OTHER".-.$.."CONTINUES WITH THE PROG
RAM.".?.%..A$:.A$."".37.Q.&..A$."H". . 6
9.Z.'.."."...(.."... HOW MANY SECTORS DO
YOU NEED ";A...)..A.1460..". SUB DIRECT
ORY TOO LARGE (1460 MAX)":.40.J.*.B.A.40
.2.Y.+.B..(B.1).1...,.."... FOR A SUB DI
RECTORY OF"A"BLOCKS,".1.-.." IT WILL TAK
E"B"TRACKS AFTER YOU ADD".`...." AN ADDI
TIONAL TRACK FOR THE DIRECTORY.".K./.C.B
.40.W.0.D.C.256...1.E..(D.1).1...2.F.(D.
E).256...3..".......STARTING TRACK";A.C.
4.G.(A.B).1...5..A..40.G.40 ..". WOULD O
VERWRITE MASTER DIRECTORY":.51...6..A.39
.G.80 .40.L.7..G.80 ..". WOULD SURPASS T
RACK 80 ":.51.T.8.."... N
AME OF THE SUB DIRECTORY";A$...9..15,"/0
:"A$","G(A)G(0)G(F)G(E)",C"...:..15,"/0:
"A$.W.;.."... NOW TO FORMAT THE SUB DIRE
CTORY."...<..". NAME,ID";A$,B$...=..15,"
N0:"A$","B$","A","G.5.>..". . FORMA
TTING SUB DIRECTORY "._.?..". PRES
S A KEY WHEN FINISHED.".K.@..15,"/".~.A.
.A$:.A$."". 65...B.."... CREATE ANOTHER
SUB DIRECTORY (Y/N)":.67:.34.P.C..A$:.A$
.."Y".A$.."N".67.V.D.....E.."... THIS U
TILITY IS MUCH MORE USER"...F.."FRIENDLY
THAN SD CREATOR 1.0. BECAUSE".[.G.."IT
WAS MADE TO MY SPECIFICATIONS. THE"...H.
."REASON IT WAS PLACED ON Q-LINK WAS A".
..I.."FRIEND SUGGESTED THAT I UPLOAD TO
MAKE"...J.."SUB DIRECTORY'S EASIER TO MA
KE. IF YOU"...K.."WANT THE FOLLOWING INS
TRUCTIONS PRINTED".8.L.."PRESS .P. AT TH
E PROMPT BELOW.".C.M.."MAKE SURE THE PRI
NTER IS TURNED ON."...N..". . AN
Y KEY TO CONTINUE"...O..A$:.A$."".79...P
..A$."P". .1,4:.1...Q..".. I COULD HAVE
MADE THIS PROGRAM TO"...R.."ALLOW YOU TO
MAKE SUB DIRECTORY'S WITH".:.S.."IN SUB
DIRECTORY'S. I DIDN'T BECAUSE IT".F.T..
"MAKES USING SUB SUB DIRECTORY'S VERY"..
.U.."DIFFICULT. IF YOU NEED THIS FEATURE
, I".C.V.."WILL ADD THE CODE TO ALLOW YO
U TO DO SO"...W.."IF YOU WILL SEND THE R
EQUEST WITH YOUR"...X.."DONATION. "...Y.
.". FIRST OF ALL, THE 1581 DISK DRIVE".[
.Z.."FORMAT'S 80 TRACK'S. 40 ON THE FRON
T,"...[.."40 ON THE BACK WITH 40 SECTORS
PER "...\.."TRACK. THE LARGEST SUB DIRE
CTORY, YOU"...].."CAN HAVE, WILL COVER 3
7 TRACKS. 1,460"...^.."SECTORS. THEN THI
S PROGRAM ADDS A TRACK".:._.."FOR THE DI
RECTORY, IT BECOMES A SUB"._.`.."DIRECTO
RY WITH 1,520 SECTORS."...A..". THE SMAL
LEST SUB DIRECTORY YOU CAN"...B.."HAVE I
S 2 TRACK'S OR 60 SECTORS. AFTER"...C.."
THE TRACK IS ADDED FOR THE DIRECTORY,"..
.D.."THE SIZE IS 120 BLOCKS."...E..".
.ANY KEY TO CONTINUE".?.F..A$."
P". 104.S.G..B$:.B$."". 102...H.."... TH
E DIRECTORY IS ON TRACK 40. THIS IS"...I
.."WHY YOU CAN'T HAVE LARGER PARTITION'S
."...J.." I HAD THE PROGRAM CALCULATE TH
E NUMBER"...K.."OF TRACK'S AND REPORT IT
TO YOU. IT IS".:.L.."YOUR RESPONSIBLIIT
Y TO AVOID HAVING".H.M.."TRACK 40 OR PAS
T 80 IN YOUR PARTITION."...N..". I HOPE
YOU ENJOY THIS UTILITY. I WILL".C.O.."SE
ND THE 25 % OF THE CONTRIBUTION TO"...P.
."THE PERSON THAT ORIGINALY RECIEVED THI
S"...Q.."SERIAL NUMBER QUARTERLY. W.H. L
AMBDIN".K.R..". I KNOW THAT 1460 AND 60
AREN'T THE".V.S.."ACTUAL NUMBER OF SECTO
RS IN 37 OR 2"...T.."TRACKS RESPECTIVELY
, I MADE IT ADD AN".M.U.."ADDITIONAL TRA
CK, IF THE PARTITION"...V.."WOULD HAVE F
ILLED THE LAST TRACK OR"...W.."NEEDED A
FRACTION OF ANOTHER.".0.X..A$."P". .1: 1
.V.Y..". . PRESS ANY KEY".I
.Z..A$:.A$."".122.O.{.....
> CLICK IMAGE PREVIEW FOR FULL MODAL