19 PRINT DIRECTO
FILE INFORMATION
FILENAME(S): 19 PRINT DIRECTO
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-12-02 00:17:06
APPEARS ON: 1 disk(s)
FILE HASH
6936e66556b6e8c8058737160c4cf7eb41b3cf4bd186d6b651b22796cf7ce420
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BARBARA S DISK | 19 PRINT DIRECTO | PRG | Maestro | 21 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 31 2C 33 3A 97 |.......53281,3:.| 00000010: 35 33 32 38 30 2C 33 00 5D 08 0A 00 53 43 B2 31 |53280,3.]...SC.1| 00000020: 30 32 34 3A 43 4F B2 35 35 32 39 36 3A 49 4E 43 |024:CO.55296:INC| 00000030: B2 34 30 3A 9E 36 35 35 31 37 3A 8B C2 28 37 38 |.40:.65517:..(78| 00000040: 31 29 B2 32 32 A7 53 43 B2 37 36 38 30 3A 43 4F |1).22.SC.7680:CO| 00000050: B2 33 38 34 30 30 3A 49 4E 43 B2 32 32 00 6F 08 |.38400:INC.22.o.| 00000060: 0F 00 99 22 93 22 43 48 B2 C2 28 36 34 36 29 00 |..."."CH..(646).| 00000070: 88 08 14 00 81 41 B2 43 4F A4 43 4F AA 39 39 39 |.....A.CO.CO.999| 00000080: 3A 97 41 2C 43 48 3A 82 00 9A 08 1E 00 87 44 3A |:.A,CH:.......D:| 00000090: 8B 44 B1 32 35 35 A7 89 35 30 00 CB 08 28 00 97 |.D.255..50...(..| 000000A0: 53 43 2C 31 36 30 3A 81 54 B2 31 A4 35 30 3A 82 |SC,160:.T.1.50:.| 000000B0: 54 3A 97 53 43 2C 44 3A 53 43 B2 53 43 AA 31 3A |T:.SC,D:SC.SC.1:| 000000C0: 43 54 B2 43 54 AA 31 3A 89 33 30 00 FE 08 32 00 |CT.CT.1:.30...2.| 000000D0: 53 43 B2 53 43 AA 49 4E 43 AB 43 54 3A 43 54 B2 |SC.SC.INC.CT:CT.| 000000E0: 30 3A 8B 44 B2 39 39 39 A7 99 3A 97 31 39 38 2C |0:.D.999..:.198,| 000000F0: 30 3A 92 31 39 38 2C 31 3A 89 31 31 36 30 00 06 |0:.198,1:.1160..| 00000100: 09 3C 00 89 33 30 00 51 09 46 00 83 33 32 2C 33 |.<..30.Q.F..32,3| 00000110: 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 |2,32,32,32,32,32| 00000120: 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 2C 31 |,32,32,32,32,3,1| 00000130: 35 2C 31 36 2C 32 35 2C 31 38 2C 39 2C 37 2C 38 |5,16,25,18,9,7,8| 00000140: 2C 32 30 2C 33 32 2C 34 30 2C 33 2C 34 31 2C 33 |,20,32,40,3,41,3| 00000150: 32 00 72 09 47 00 83 34 39 2C 35 37 2C 35 36 2C |2.r.G..49,57,56,| 00000160: 35 32 2C 32 35 36 2C 32 35 36 2C 32 35 36 2C 32 |52,256,256,256,2| 00000170: 35 36 00 C0 09 5A 00 83 33 32 2C 33 32 2C 33 32 |56...Z..32,32,32| 00000180: 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C |,32,32,32,32,32,| 00000190: 33 32 2C 33 32 2C 33 32 2C 31 33 2C 39 2C 31 31 |32,32,32,13,9,11| 000001A0: 2C 35 2C 33 32 2C 33 2C 31 35 2C 32 33 2C 31 32 |,5,32,3,15,23,12| 000001B0: 2C 35 2C 32 35 2C 33 32 2C 33 32 2C 31 39 2C 31 |,5,25,32,32,19,1| 000001C0: 00 DA 09 5F 00 83 32 35 2C 31 39 2C 35 38 2C 32 |..._..25,19,58,2| 000001D0: 35 36 2C 32 35 36 2C 32 35 36 00 27 0A 64 00 83 |56,256,256.'.d..| 000001E0: 33 32 2C 33 32 2C 38 2C 35 2C 31 32 2C 31 32 2C |32,32,8,5,12,12,| 000001F0: 31 35 2C 33 32 2C 32 30 2C 38 2C 35 2C 31 38 2C |15,32,20,8,5,18,| 00000200: 35 2C 34 34 2C 32 35 36 2C 32 35 36 2C 33 32 2C |5,44,256,256,32,| 00000210: 33 32 2C 32 33 2C 35 2C 31 32 2C 33 2C 31 35 2C |32,23,5,12,3,15,| 00000220: 31 33 2C 35 2C 33 32 00 60 0A 78 00 83 32 30 2C |13,5,32.`.x..20,| 00000230: 31 35 2C 33 32 2C 31 33 2C 32 35 2C 33 32 2C 31 |15,32,13,25,32,1| 00000240: 36 2C 31 38 2C 31 35 2C 37 2C 31 38 2C 31 2C 31 |6,18,15,7,18,1,1| 00000250: 33 2C 34 36 2C 32 35 36 2C 32 35 36 2C 32 35 36 |3,46,256,256,256| 00000260: 00 AA 0A 82 00 83 33 32 2C 33 32 2C 33 32 2C 33 |......32,32,32,3| 00000270: 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 |2,32,32,32,32,32| 00000280: 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C |,32,32,32,32,32,| 00000290: 32 33 2C 31 2C 31 38 2C 31 34 2C 39 2C 31 34 2C |23,1,18,14,9,14,| 000002A0: 37 2C 33 32 2C 33 33 2C 33 33 00 F4 0A 8C 00 83 |7,32,33,33......| 000002B0: 32 35 36 2C 32 35 36 2C 33 32 2C 33 32 2C 34 2C |256,256,32,32,4,| 000002C0: 31 35 2C 33 32 2C 31 34 2C 31 35 2C 32 30 2C 33 |15,32,14,15,20,3| 000002D0: 32 2C 32 30 2C 31 38 2C 32 35 2C 33 32 2C 32 30 |2,20,18,25,32,20| 000002E0: 2C 31 35 2C 33 32 2C 33 2C 31 35 2C 31 36 2C 32 |,15,32,3,15,16,2| 000002F0: 35 2C 33 32 00 3D 0B 96 00 83 32 30 2C 38 2C 39 |5,32.=....20,8,9| 00000300: 2C 31 39 2C 33 32 2C 31 36 2C 31 38 2C 31 35 2C |,19,32,16,18,15,| 00000310: 37 2C 31 38 2C 31 2C 31 33 2C 33 32 2C 34 35 2C |7,18,1,13,32,45,| 00000320: 33 32 2C 39 2C 32 30 2C 32 35 36 2C 32 35 36 2C |32,9,20,256,256,| 00000330: 33 32 2C 33 32 2C 32 33 2C 39 2C 31 32 00 87 0B |32,32,23,9,12...| 00000340: A0 00 83 31 32 2C 33 32 2C 31 38 2C 35 2C 34 35 |...12,32,18,5,45| 00000350: 2C 36 2C 31 35 2C 31 38 2C 31 33 2C 31 2C 32 30 |,6,15,18,13,1,20| 00000360: 2C 33 32 2C 32 35 2C 31 35 2C 32 31 2C 31 38 2C |,32,25,15,21,18,| 00000370: 33 32 2C 34 2C 39 2C 31 39 2C 31 31 2C 34 36 2C |32,4,9,19,11,46,| 00000380: 32 35 36 2C 32 35 36 00 C8 0B AA 00 83 33 32 2C |256,256......32,| 00000390: 33 32 2C 31 39 2C 31 35 2C 33 32 2C 31 31 2C 35 |32,19,15,32,11,5| 000003A0: 2C 35 2C 31 36 2C 33 32 2C 32 35 2C 31 35 2C 32 |,5,16,32,25,15,2| 000003B0: 31 2C 31 38 2C 33 32 2C 33 2C 31 35 2C 32 30 2C |1,18,32,3,15,20,| 000003C0: 32 30 2C 31 35 2C 31 34 00 07 0C AF 00 83 34 35 |20,15,14......45| 000003D0: 2C 31 36 2C 39 2C 33 2C 31 31 2C 39 2C 31 34 2C |,16,9,3,11,9,14,| 000003E0: 33 32 2C 38 2C 31 2C 31 34 2C 34 2C 31 39 2C 33 |32,8,1,14,4,19,3| 000003F0: 32 2C 31 35 2C 36 2C 36 2C 34 36 2C 32 35 36 2C |2,15,6,6,46,256,| 00000400: 32 35 36 2C 32 35 36 00 4F 0C B4 00 83 33 32 2C |256,256.O....32,| 00000410: 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 |32,32,32,32,32,3| 00000420: 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 |2,32,32,32,32,32| 00000430: 2C 33 32 2C 31 36 2C 31 38 2C 35 2C 31 39 2C 31 |,32,16,18,5,19,1| 00000440: 39 2C 33 32 2C 31 2C 31 34 2C 32 35 2C 33 32 00 |9,32,1,14,25,32.| 00000450: 60 0C B9 00 83 31 31 2C 35 2C 32 35 2C 39 39 39 |`....11,5,25,999| 00000460: 00 78 0C 88 04 99 22 93 22 3A 99 C7 28 31 34 32 |.x....".":..(142| 00000470: 29 C7 28 31 34 37 29 3B 00 A8 0C 92 04 99 22 2A |).(147);......"*| 00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 47 4C 4F 42 |********** GLOB| 00000490: 41 4C 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A |AL DIRECTORY ***| 000004A0: 2A 2A 2A 2A 2A 2A 2A 22 00 B3 0C 9C 04 5A B2 31 |*******".....Z.1| 000004B0: 30 30 30 00 C2 0C A6 04 86 50 24 28 5A 29 3A 4E |000......P$(Z):N| 000004C0: B2 30 00 CB 0C B0 04 44 B2 36 30 00 E2 0C BA 04 |.0.....D.60.....| 000004D0: 86 44 4E 24 28 44 29 2C 49 44 24 28 44 29 3A 59 |.DN$(D),ID$(D):Y| 000004E0: B2 30 00 F7 0C C4 04 85 22 20 59 4F 55 52 20 4E |.0......" YOUR N| 000004F0: 41 4D 45 22 3B 4E 24 00 0A 0D CE 04 8B C3 28 4E |AME";N$.......(N| 00000500: 24 29 B1 35 30 A7 31 32 32 30 00 1C 0D D8 04 85 |$).50.1220......| 00000510: 22 11 11 1D 44 41 54 45 22 3B 44 24 00 40 0D E2 |"...DATE";D$.@..| 00000520: 04 99 22 1D 1D 11 11 11 11 11 41 4C 4C 20 46 49 |..".......ALL FI| 00000530: 4C 45 53 20 4F 52 20 53 45 4C 45 43 54 45 44 22 |LES OR SELECTED"| 00000540: 00 60 0D EC 04 85 22 11 11 1D 1D 12 41 2F 53 92 |.`....".....A/S.| 00000550: 22 3B 41 24 3A 8B 41 24 B2 22 41 22 A7 41 B2 31 |";A$:.A$."A".A.1| 00000560: 00 6D 0D F6 04 9F 31 35 2C 38 2C 31 35 00 73 0D |.m....15,8,15.s.| 00000570: 00 05 3A 00 79 0D 0A 05 99 00 8C 0D 14 05 81 49 |..:.y..........I| 00000580: B2 31 A4 31 30 3A A1 41 24 3A 82 49 00 92 0D 1E |.1.10:.A$:.I....| 00000590: 05 99 00 C4 0D 28 05 99 22 93 11 11 11 11 11 1D |.....(..".......| 000005A0: 1D 49 4E 53 45 52 54 20 4E 45 58 54 20 44 49 53 |.INSERT NEXT DIS| 000005B0: 4B 20 41 4E 44 20 50 52 45 53 53 20 41 4E 59 20 |K AND PRESS ANY | 000005C0: 4B 45 59 22 00 D9 0D 32 05 99 22 11 11 1D 1D 12 |KEY"...2..".....| 000005D0: 45 92 20 3D 20 45 4E 44 22 00 ED 0D 3C 05 A1 41 |E. = END"...<..A| 000005E0: 24 3A 8B 41 24 B2 22 22 A7 31 33 34 30 00 FE 0D |$:.A$."".1340...| 000005F0: 46 05 8B 41 24 B2 22 45 22 A7 31 38 31 30 00 0C |F..A$."E".1810..| 00000600: 0E 50 05 99 22 11 11 1D 1D 4F 4B 22 00 1B 0E 5A |.P.."....OK"...Z| 00000610: 05 9F 32 2C 38 2C 32 2C 22 23 22 00 31 0E 64 05 |..2,8,2,"#".1.d.| 00000620: 98 31 35 2C 22 55 31 20 32 20 30 20 31 38 20 30 |.15,"U1 2 0 18 0| 00000630: 22 00 45 0E 6E 05 98 31 35 2C 22 42 2D 50 20 32 |".E.n..15,"B-P 2| 00000640: 20 31 34 34 22 00 51 0E 78 05 81 49 B2 30 A4 31 | 144".Q.x..I.0.1| 00000650: 35 00 5C 0E 82 05 A1 23 32 2C 41 24 00 71 0E 8C |5.\....#2,A$.q..| 00000660: 05 44 4E 24 28 59 29 B2 44 4E 24 28 59 29 AA 41 |.DN$(Y).DN$(Y).A| 00000670: 24 00 78 0E 96 05 82 49 00 8E 0E A0 05 A1 23 32 |$.x....I......#2| 00000680: 2C 41 24 2C 41 24 2C 49 31 24 2C 49 32 24 00 A7 |,A$,A$,I1$,I2$..| 00000690: 0E AA 05 49 44 24 28 59 29 B2 49 31 24 AA 49 32 |...ID$(Y).I1$.I2| 000006A0: 24 3A 59 B2 59 AA 31 00 DB 0E B4 05 8B 59 B2 44 |$:Y.Y.1......Y.D| 000006B0: AA 31 A7 99 22 4D 41 58 49 4D 55 4D 20 4E 55 4D |.1.."MAXIMUM NUM| 000006C0: 42 45 52 20 4F 46 20 44 49 53 4B 53 20 52 45 41 |BER OF DISKS REA| 000006D0: 43 48 45 44 22 3A 89 31 38 31 30 00 E8 0E BE 05 |CHED":.1810.....| 000006E0: 54 B2 31 38 3A 53 B2 31 00 EE 0E C8 05 3A 00 03 |T.18:S.1.....:..| 000006F0: 0F D2 05 98 31 35 2C 22 55 31 20 32 20 30 22 3B |....15,"U1 2 0";| 00000700: 54 3B 53 00 11 0F DC 05 A1 23 32 2C 54 24 2C 53 |T;S......#2,T$,S| 00000710: 24 00 2F 0F E6 05 54 B2 C6 28 54 24 AA C7 28 30 |$./...T..(T$..(0| 00000720: 29 29 3A 53 B2 C6 28 53 24 AA C7 28 30 29 29 00 |)):S..(S$..(0)).| 00000730: 35 0F F0 05 3A 00 40 0F FA 05 81 49 B2 30 A4 37 |5...:.@....I.0.7| 00000740: 00 57 0F 04 06 98 31 35 2C 22 42 2D 50 20 32 22 |.W....15,"B-P 2"| 00000750: 3B 32 AA 33 32 AC 49 00 62 0F 0E 06 A1 23 32 2C |;2.32.I.b....#2,| 00000760: 41 24 00 72 0F 18 06 8B 41 24 B2 22 22 A7 31 37 |A$.r....A$."".17| 00000770: 37 30 00 80 0F 22 06 A1 23 32 2C 41 24 2C 41 24 |70..."..#2,A$,A$| 00000780: 00 8C 0F 2C 06 81 4A B2 30 A4 31 35 00 97 0F 36 |...,..J.0.15...6| 00000790: 06 A1 23 32 2C 41 24 00 AA 0F 40 06 50 24 28 4E |..#2,A$...@.P$(N| 000007A0: 29 B2 50 24 28 4E 29 AA 41 24 00 B1 0F 4A 06 82 |).P$(N).A$...J..| 000007B0: 4A 00 BD 0F 54 06 8B 41 A7 31 36 37 30 00 EC 0F |J...T..A.1670...| 000007C0: 5E 06 99 22 11 11 1D 1D 53 48 4F 55 4C 44 22 C7 |^.."....SHOULD".| 000007D0: 28 31 38 29 50 24 28 4E 29 C7 28 31 34 36 29 22 |(18)P$(N).(146)"| 000007E0: 42 45 20 49 4E 43 4C 55 44 45 44 22 00 1E 10 68 |BE INCLUDED"...h| 000007F0: 06 99 22 11 11 1D 1D 49 4E 20 54 48 45 20 44 49 |.."....IN THE DI| 00000800: 52 45 43 54 4F 52 59 20 20 59 22 C7 28 31 35 37 |RECTORY Y".(157| 00000810: 29 C7 28 31 35 37 29 C7 28 31 35 37 29 3B 00 26 |).(157).(157);.&| 00000820: 10 72 06 85 41 24 00 42 10 7C 06 8B 41 24 B3 B1 |.r..A$.B.|..A$..| 00000830: 22 59 22 A7 50 24 28 4E 29 B2 22 22 3A 89 31 37 |"Y".P$(N)."":.17| 00000840: 37 30 00 5A 10 86 06 98 31 35 2C 22 42 2D 50 20 |70.Z....15,"B-P | 00000850: 32 22 3B 33 32 AC 49 AA 33 30 00 6A 10 90 06 A1 |2";32.I.30.j....| 00000860: 23 32 2C 42 31 24 2C 42 32 24 00 90 10 9A 06 42 |#2,B1$,B2$.....B| 00000870: 24 B2 C4 28 C6 28 42 31 24 AA C7 28 30 29 29 AA |$..(.(B1$..(0)).| 00000880: 32 35 36 AC C6 28 42 32 24 AA C7 28 30 29 29 29 |256..(B2$..(0)))| 00000890: 00 A2 10 A4 06 8B C3 28 42 24 29 B2 34 A7 31 37 |.......(B$).4.17| 000008A0: 34 30 00 B1 10 AE 06 81 4A B2 C3 28 42 24 29 A4 |40......J..(B$).| 000008B0: 33 00 BF 10 B8 06 42 24 B2 22 20 22 AA 42 24 00 |3.....B$." ".B$.| 000008C0: C6 10 C2 06 82 4A 00 E5 10 CC 06 50 24 28 4E 29 |.....J.....P$(N)| 000008D0: B2 50 24 28 4E 29 AA 42 24 AA 22 20 22 AA 49 31 |.P$(N).B$." ".I1| 000008E0: 24 AA 49 32 24 00 EF 10 D6 06 4E B2 4E AA 31 00 |$.I2$.....N.N.1.| 000008F0: 24 11 E0 06 8B 4E B2 5A AA 31 A7 99 22 4D 41 58 |$....N.Z.1.."MAX| 00000900: 49 4D 55 4D 20 4E 4F 20 4F 46 20 50 52 4F 47 52 |IMUM NO OF PROGR| 00000910: 41 4D 53 20 52 45 41 43 48 45 44 20 21 22 3A 89 |AMS REACHED !":.| 00000920: 31 38 31 30 00 2B 11 EA 06 82 49 00 31 11 F4 06 |1810.+....I.1...| 00000930: 3A 00 43 11 FE 06 8B 54 B2 30 A7 A0 32 3A 89 31 |:.C....T.0..2:.1| 00000940: 32 39 30 00 4D 11 08 07 89 31 34 39 30 00 5D 11 |290.M....1490.].| 00000950: 12 07 4E B2 4E AB 31 3A 59 B2 59 AB 31 00 83 11 |..N.N.1:Y.Y.1...| 00000960: 1C 07 99 3A 99 22 11 11 1D 1D 12 57 41 49 54 20 |...:.".....WAIT | 00000970: 41 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 92 |A MOMENT PLEASE.| 00000980: 20 21 22 00 A2 11 26 07 99 22 11 11 1D 1D 12 28 | !"...&..".....(| 00000990: 54 55 52 4E 20 50 52 49 4E 54 45 52 20 4F 4E 29 |TURN PRINTER ON)| 000009A0: 92 22 00 BF 11 3A 07 8F 2A 2A 53 4F 52 54 20 50 |."...:..**SORT P| 000009B0: 52 4F 47 52 41 4D 20 4E 41 4D 45 53 2A 2A 2A 00 |ROGRAM NAMES***.| 000009C0: CD 11 4E 07 8B 4E B2 30 A7 31 39 38 30 00 DA 11 |..N..N.0.1980...| 000009D0: 58 07 81 49 B2 30 A4 4E AB 31 00 E2 11 62 07 4D |X..I.0.N.1...b.M| 000009E0: B2 49 00 EF 11 6C 07 81 4A B2 49 AA 31 A4 4E 00 |.I...l..J.I.1.N.| 000009F0: 04 12 76 07 8B 50 24 28 4A 29 B3 50 24 28 4D 29 |..v..P$(J).P$(M)| 00000A00: A7 4D B2 4A 00 0B 12 80 07 82 4A 00 2D 12 8A 07 |.M.J......J.-...| 00000A10: 41 24 B2 50 24 28 49 29 3A 50 24 28 49 29 B2 50 |A$.P$(I):P$(I).P| 00000A20: 24 28 4D 29 3A 50 24 28 4D 29 B2 41 24 00 34 12 |$(M):P$(M).A$.4.| 00000A30: 94 07 82 49 00 49 12 A8 07 8F 2A 2A 2A 53 4F 52 |...I.I....***SOR| 00000A40: 54 20 49 44 27 53 2A 2A 2A 00 57 12 BC 07 8B 59 |T ID'S***.W....Y| 00000A50: B2 30 A7 32 31 30 30 00 64 12 C6 07 81 49 B2 30 |.0.2100.d....I.0| 00000A60: A4 59 AB 31 00 6C 12 D0 07 4D B2 49 00 79 12 DA |.Y.1.l...M.I.y..| 00000A70: 07 81 4A B2 49 AA 31 A4 59 00 90 12 E4 07 8B 49 |..J.I.1.Y......I| 00000A80: 44 24 28 4A 29 B3 49 44 24 28 4D 29 A7 4D B2 4A |D$(J).ID$(M).M.J| 00000A90: 00 97 12 EE 07 82 4A 00 BD 12 F8 07 41 24 B2 49 |......J.....A$.I| 00000AA0: 44 24 28 49 29 3A 49 44 24 28 49 29 B2 49 44 24 |D$(I):ID$(I).ID$| 00000AB0: 28 4D 29 3A 49 44 24 28 4D 29 B2 41 24 00 E3 12 |(M):ID$(M).A$...| 00000AC0: 02 08 41 24 B2 44 4E 24 28 49 29 3A 44 4E 24 28 |..A$.DN$(I):DN$(| 00000AD0: 49 29 B2 44 4E 24 28 4D 29 3A 44 4E 24 28 4D 29 |I).DN$(M):DN$(M)| 00000AE0: B2 41 24 00 EA 12 0C 08 82 49 00 FC 12 20 08 8F |.A$......I... ..| 00000AF0: 2A 2A 2A 4F 55 54 50 55 54 2A 2A 2A 00 05 13 34 |***OUTPUT***...4| 00000B00: 08 9F 34 2C 34 00 1B 13 3E 08 81 49 B2 31 A4 28 |..4,4...>..I.1.(| 00000B10: 35 38 AB C3 28 4E 24 29 29 AD 32 00 22 13 52 08 |58..(N$)).2.".R.| 00000B20: 82 49 00 59 13 5C 08 98 34 2C 22 20 20 20 20 20 |.I.Y.\..4," | 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B40: 20 50 52 4F 47 52 41 4D 20 4C 49 42 52 41 52 59 | PROGRAM LIBRARY| 00000B50: 3A 20 22 4E 24 22 20 20 22 00 89 13 5D 08 98 34 |: "N$" "...]..4| 00000B60: 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |," | 00000B70: 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 | ........| 00000B80: A3 A3 A3 A3 A3 A3 A3 A3 22 00 90 13 5E 08 98 34 |........"...^..4| 00000B90: 00 97 13 5F 08 98 34 00 B3 13 66 08 81 49 B2 31 |..._..4...f..I.1| 00000BA0: A4 B5 28 28 35 38 AB C3 28 4E 24 29 29 AD 32 AA |..((58..(N$)).2.| 00000BB0: 2E 35 29 00 BA 13 7A 08 82 49 00 C1 13 84 08 98 |.5)...z..I......| 00000BC0: 34 00 D5 13 8E 08 98 34 2C 22 53 54 41 54 55 53 |4......4,"STATUS| 00000BD0: 3A 20 22 44 24 00 DC 13 98 08 98 34 00 FD 13 A2 |: "D$......4....| 00000BE0: 08 41 24 B2 22 50 52 4F 47 52 41 4D 20 4E 41 4D |.A$."PROGRAM NAM| 00000BF0: 45 20 20 20 20 20 20 42 4C 20 49 44 22 00 15 14 |E BL ID"...| 00000C00: AC 08 98 34 2C 41 24 22 20 20 20 22 41 24 22 20 |...4,A$" "A$" | 00000C10: 20 20 22 41 24 00 2B 14 B6 08 81 49 B2 31 A4 37 | "A$.+....I.1.7| 00000C20: 38 3A 98 34 2C 22 2D 22 3B 3A 82 00 32 14 C0 08 |8:.4,"-";:..2...| 00000C30: 98 34 00 43 14 CA 08 58 B2 B5 28 28 4E AA 31 29 |.4.C...X..((N.1)| 00000C40: AD 33 29 00 55 14 D4 08 44 58 B2 B5 28 4E AA 31 |.3).U...DX..(N.1| 00000C50: AB 33 AC 58 29 00 63 14 DE 08 8B 58 B2 30 A7 32 |.3.X).c....X.0.2| 00000C60: 33 31 30 00 70 14 E8 08 81 49 B2 30 A4 58 AB 31 |310.p....I.0.X.1| 00000C70: 00 9D 14 F2 08 98 34 2C 50 24 28 49 29 22 20 20 |......4,P$(I)" | 00000C80: 20 22 50 24 28 49 AA 58 AA 44 58 29 22 20 20 20 | "P$(I.X.DX)" | 00000C90: 22 50 24 28 49 AA 32 AC 58 AA 44 58 29 00 A4 14 |"P$(I.2.X.DX)...| 00000CA0: FC 08 82 49 00 B3 14 06 09 8B 44 58 B2 30 A7 32 |...I......DX.0.2| 00000CB0: 33 33 30 00 CE 14 10 09 81 49 B2 31 A4 44 58 3A |330......I.1.DX:| 00000CC0: 98 34 2C 50 24 28 58 AA 49 AB 31 29 3A 82 00 D5 |.4,P$(X.I.1):...| 00000CD0: 14 1A 09 98 34 00 DF 14 24 09 98 34 3A 98 34 00 |....4...$..4:.4.| 00000CE0: FB 14 2E 09 98 34 2C 22 49 44 20 52 45 46 45 52 |.....4,"ID REFER| 00000CF0: 45 4E 43 45 20 4C 49 53 54 3A 22 00 17 15 38 09 |ENCE LIST:"...8.| 00000D00: 98 34 2C 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.4,"............| 00000D10: A3 A3 A3 A3 A3 A3 22 00 36 15 42 09 58 B2 B5 28 |......".6.B.X..(| 00000D20: 28 59 AA 31 29 AD 33 29 3A 44 58 B2 B5 28 59 AA |(Y.1).3):DX..(Y.| 00000D30: 31 AB 33 AC 58 29 00 44 15 4C 09 8B 58 B2 30 A7 |1.3.X).D.L..X.0.| 00000D40: 32 34 33 30 00 51 15 56 09 81 49 B2 30 A4 58 AB |2430.Q.V..I.0.X.| 00000D50: 31 00 7C 15 60 09 98 34 2C 49 44 24 28 49 29 22 |1.|.`..4,ID$(I)"| 00000D60: 20 22 44 4E 24 28 49 29 22 20 20 20 22 49 44 24 | "DN$(I)" "ID$| 00000D70: 28 49 AA 58 AA 44 58 29 22 20 22 3B 00 B1 15 6A |(I.X.DX)" ";...j| 00000D80: 09 98 34 2C 44 4E 24 28 49 AA 31 AA 44 58 29 22 |..4,DN$(I.1.DX)"| 00000D90: 20 20 20 22 49 44 24 28 49 AA 33 AC 58 AA 44 58 | "ID$(I.3.X.DX| 00000DA0: 29 22 20 22 44 4E 24 28 49 AA 34 AC 58 AA 44 58 |)" "DN$(I.4.X.DX| 00000DB0: 29 00 B8 15 74 09 82 49 00 C7 15 7E 09 8B 44 58 |)...t..I...~..DX| 00000DC0: B2 30 A7 32 34 37 30 00 D3 15 88 09 81 49 B2 31 |.0.2470......I.1| 00000DD0: A4 44 58 00 F2 15 92 09 98 34 2C 49 44 24 28 58 |.DX......4,ID$(X| 00000DE0: AA 49 AB 31 29 22 20 22 44 4E 24 28 58 AA 49 AB |.I.1)" "DN$(X.I.| 00000DF0: 31 29 00 F9 15 9C 09 82 49 00 00 16 A6 09 98 34 |1)......I......4| 00000E00: 00 2B 16 B0 09 98 34 2C 22 43 4F 4D 50 49 4C 45 |.+....4,"COMPILE| 00000E10: 44 20 55 53 49 4E 47 20 27 47 4C 4F 42 41 4C 20 |D USING 'GLOBAL | 00000E20: 44 49 52 45 43 54 4F 52 59 27 22 00 35 16 BA 09 |DIRECTORY'".5...| 00000E30: 98 34 3A 98 34 00 59 16 C4 09 85 22 11 11 1D 1D |.4:.4.Y...."....| 00000E40: 41 4E 4F 54 48 45 52 20 50 52 49 4E 54 20 20 20 |ANOTHER PRINT | 00000E50: 28 59 2F 4E 29 22 3B 41 24 00 6A 16 CE 09 8B 41 |(Y/N)";A$.j....A| 00000E60: 24 B2 22 59 22 A7 32 31 31 30 00 71 16 D8 09 A0 |$."Y".2110.q....| 00000E70: 34 00 00 00 |4... |
.......53281,3:.53280,3.]...SC.1024:CO.5
5296:INC.40:.65517:.B(781).22.SC.7680:CO
.38400:INC.22.O...."."CH.B(646)......A.C
O.CO.999:.A,CH:.......D:.D.255..50.K.(..
SC,160:.T.1.50:.T:.SC,D:SC.SC.1:CT.CT.1:
.30...2.SC.SC.INC.CT:CT.0:.D.999..:.198,
0:.198,1:.1160...<..30.Q.F..32,32,32,32,
32,32,32,32,32,32,32,3,15,16,25,18,9,7,8
,20,32,40,3,41,32.R.G..49,57,56,52,256,2
56,256,256...Z..32,32,32,32,32,32,32,32,
32,32,32,13,9,11,5,32,3,15,23,12,5,25,32
,32,19,1.Z._..25,19,58,256,256,256.'.D..
32,32,8,5,12,12,15,32,20,8,5,18,5,44,256
,256,32,32,23,5,12,3,15,13,5,32.`.X..20,
15,32,13,25,32,16,18,15,7,18,1,13,46,256
,256,256......32,32,32,32,32,32,32,32,32
,32,32,32,32,32,23,1,18,14,9,14,7,32,33,
33......256,256,32,32,4,15,32,14,15,20,3
2,20,18,25,32,20,15,32,3,15,16,25,32.=..
..20,8,9,19,32,16,18,15,7,18,1,13,32,45,
32,9,20,256,256,32,32,23,9,12... ..12,32
,18,5,45,6,15,18,13,1,20,32,25,15,21,18,
32,4,9,19,11,46,256,256.H....32,32,19,15
,32,11,5,5,16,32,25,15,21,18,32,3,15,20,
20,15,14......45,16,9,3,11,9,14,32,8,1,1
4,4,19,32,15,6,6,46,256,256,256.O....32,
32,32,32,32,32,32,32,32,32,32,32,32,16,1
8,5,19,19,32,1,14,25,32.`....11,5,25,999
.X....".":.G(142)G(147);......"*********
** GLOBAL DIRECTORY **********".....Z.1
000.B....P$(Z):N.0.K...D.60......DN$(D),
ID$(D):Y.0...D.." YOUR NAME";N$...N..C(N
$).50.1220...X.."...DATE";D$.@....".....
..ALL FILES OR SELECTED".`....".....A/S.
";A$:.A$."A".A.1.M....15,8,15.S...:.Y...
.......I.1.10:.A$:.I.......D.(..".......
.INSERT NEXT DISK AND PRESS ANY KEY".Y.2
..".....E. = END"...<..A$:.A$."".1340...
F..A$."E".1810...P.."....OK"...Z..2,8,2,
"#".1.D..15,"U1 2 0 18 0".E.N..15,"B-P 2
144".Q.X..I.0.15.\....#2,A$.Q...DN$(Y).
DN$(Y).A$.X....I... ..#2,A$,A$,I1$,I2$..
...ID$(Y).I1$.I2$:Y.Y.1......Y.D.1.."MAX
IMUM NUMBER OF DISKS REACHED":.1810.....
T.18:S.1...H.:...R..15,"U1 2 0";T;S.....
.#2,T$,S$./...T.F(T$.G(0)):S.F(S$.G(0)).
5...:.@....I.0.7.W....15,"B-P 2";2.32.I.
B....#2,A$.R....A$."".1770..."..#2,A$,A$
...,..J.0.15...6..#2,A$...@.P$(N).P$(N).
A$...J..J...T..A.1670...^.."....SHOULD"G
(18)P$(N)G(146)"BE INCLUDED"...H.."....I
N THE DIRECTORY Y"G(157)G(157)G(157);.&
.R..A$.B.|..A$.."Y".P$(N)."":.1770.Z....
15,"B-P 2";32.I.30.J....#2,B1$,B2$.....B
$.D(F(B1$.G(0)).256.F(B2$.G(0)))......C(
B$).4.1740......J.C(B$).3.....B$." ".B$.
F.B..J...L.P$(N).P$(N).B$." ".I1$.I2$...
V.N.N.1.$....N.Z.1.."MAXIMUM NO OF PROGR
AMS REACHED !":.1810.+....I.1...:.C....T
.0. 2:.1290.M....1490.]...N.N.1:Y.Y.1...
...:.".....WAIT A MOMENT PLEASE. !"...&.
.".....(TURN PRINTER ON)."...:..**SORT P
ROGRAM NAMES***.M.N..N.0.1980.Z.X..I.0.N
.1...B.M.I...L..J.I.1.N...V..P$(J).P$(M)
.M.J......J.-...A$.P$(I):P$(I).P$(M):P$(
M).A$.4....I.I....***SORT ID'S***.W....Y
.0.2100.D.F..I.0.Y.1.L.P.M.I.Y.Z..J.I.1.
Y......ID$(J).ID$(M).M.J......J.....A$.I
D$(I):ID$(I).ID$(M):ID$(M).A$.....A$.DN$
(I):DN$(I).DN$(M):DN$(M).A$......I... ..
***OUTPUT***...4..4,4...>..I.1.(58.C(N$)
).2.".R..I.Y.\..4,"
PROGRAM LIBRARY: "N$" "...]..4,"
................"...^..4
..._..4...F..I.1..((58.C(N$)).2..5)...Z.
.I.A....4.U....4,"STATUS: "D$......4....
.A$."PROGRAM NAME BL ID"......4,A$"
"A$" "A$.+....I.1.78:.4,"-";:..2...
.4.C.J.X..((N.1).3).U.T.DX..(N.1.3.X).C.
...X.0.2310.P....I.0.X.1......4,P$(I)"
"P$(I.X.DX)" "P$(I.2.X.DX)......I....
..DX.0.2330.N....I.1.DX:.4,P$(X.I.1):..U
....4...$..4:.4......4,"ID REFERENCE LIS
T:"...8..4,"..................".6.B.X..(
(Y.1).3):DX..(Y.1.3.X).D.L..X.0.2430.Q.V
..I.0.X.1.|.`..4,ID$(I)" "DN$(I)" "ID$
(I.X.DX)" ";...J..4,DN$(I.1.DX)" "ID$(
I.3.X.DX)" "DN$(I.4.X.DX)...T..I.G.~..DX
.0.2470.S....I.1.DX......4,ID$(X.I.1)" "
DN$(X.I.1)......I......4.+....4,"COMPILE
D USING 'GLOBAL DIRECTORY'".5....4:.4.Y.
D.."....ANOTHER PRINT (Y/N)";A$.J.N..A
$."Y".2110.Q.X. 4...
> CLICK IMAGE PREVIEW FOR FULL MODAL