CGR GEM DIR PNT
FILE INFORMATION
FILENAME(S): CGR GEM DIR PNT
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
4cf3a4176bac3145ae21f2b08011707d479603b72580a108ac77ecc02eadace3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | CGR GEM DIR PNT | PRG | Radd Maxx | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 20 46 52 4F 4D 20 43 4F 55 |....... FROM COU| 00000010: 47 41 52 2C 20 50 48 4F 45 4E 49 58 20 41 5A 00 |GAR, PHOENIX AZ.| 00000020: 5E 08 64 00 8F 3A 20 50 52 4F 47 52 41 4D 20 50 |^.d..: PROGRAM P| 00000030: 52 49 4E 54 53 20 44 49 52 45 43 54 4F 52 59 20 |RINTS DIRECTORY | 00000040: 49 4E 20 20 20 20 53 4D 41 4C 4C 2C 20 53 55 42 |IN SMALL, SUB| 00000050: 53 43 52 49 50 54 20 4C 45 54 54 45 52 53 00 74 |SCRIPT LETTERS.t| 00000060: 08 6E 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.n..53280,0:.532| 00000070: 38 31 2C 30 00 84 08 78 00 46 B2 31 3A 5A 24 B2 |81,0...x.F.1:Z$.| 00000080: C7 28 30 29 00 B1 08 82 00 99 22 93 11 11 11 20 |.(0)......".... | 00000090: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 00 DA 08 8C 00 99 22 20 20 20 20 20 20 2A 20 |*......" * | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 4D | GEM| 000000D0: 49 4E 49 20 20 20 20 20 20 2A 00 03 09 96 00 99 |INI *......| 000000E0: 22 20 20 20 20 20 20 2A 20 20 44 49 53 4B 20 44 |" * DISK D| 000000F0: 49 52 45 43 54 4F 52 59 20 50 52 49 4E 54 45 52 |IRECTORY PRINTER| 00000100: 20 20 2A 00 2C 09 A0 00 99 22 20 20 20 20 20 20 | *.,...." | 00000110: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000120: 20 20 20 20 20 20 20 20 20 20 20 2A 00 55 09 AA | *.U..| 00000130: 00 99 22 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |.." *******| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000150: 2A 2A 2A 2A 2A 00 83 09 B4 00 99 22 11 20 20 20 |*****......". | 00000160: 20 28 28 28 12 20 4D 41 59 20 4E 4F 54 20 57 4F | (((. MAY NOT WO| 00000170: 52 4B 20 57 49 54 48 20 44 4F 53 20 35 2E 31 92 |RK WITH DOS 5.1.| 00000180: 29 29 29 00 A5 09 BE 00 99 22 11 11 20 20 20 20 |)))......".. | 00000190: 20 20 20 20 20 20 20 20 20 20 49 4E 53 45 52 54 | INSERT| 000001A0: 20 44 49 53 4B 00 C5 09 C8 00 99 22 20 20 20 20 | DISK......" | 000001B0: 20 20 20 20 20 20 20 20 20 20 B7 B7 B7 B7 B7 B7 | ......| 000001C0: B7 B7 B7 B7 B7 00 EF 09 D2 00 99 22 11 11 11 20 |..........."... | 000001D0: 20 20 20 20 20 20 46 31 20 4B 45 59 20 54 4F 20 | F1 KEY TO | 000001E0: 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 00 |PRINT DIRECTORY.| 000001F0: 16 0A DC 00 99 22 11 11 11 11 11 20 20 20 20 20 |....."..... | 00000200: 20 20 20 20 20 20 46 37 20 4B 45 59 20 54 4F 20 | F7 KEY TO | 00000210: 46 49 4E 49 53 48 00 29 0A E6 00 A1 53 24 3A 8B |FINISH.)....S$:.| 00000220: 53 24 B2 22 22 A7 32 33 30 00 3C 0A F0 00 8B 53 |S$."".230.<....S| 00000230: 24 B2 C7 28 31 33 33 29 89 32 37 30 00 65 0A FA |$..(133).270.e..| 00000240: 00 8B 53 24 B2 C7 28 31 33 36 29 A7 99 22 93 22 |..S$..(136).."."| 00000250: 3A 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |:.53280,14:.5328| 00000260: 31 2C 36 3A 80 00 6E 0A 04 01 89 32 33 30 00 95 |1,6:..n....230..| 00000270: 0A 0E 01 99 22 93 11 11 11 11 11 11 11 20 20 20 |...."........ | 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 | PRI| 00000290: 4E 54 49 4E 47 00 BD 0A 18 01 99 22 11 11 11 11 |NTING......"....| 000002A0: 20 20 20 20 20 20 20 20 20 20 20 44 4F 20 4E 4F | DO NO| 000002B0: 54 20 52 45 4D 4F 56 45 20 44 49 53 4B 00 E1 0A |T REMOVE DISK...| 000002C0: 22 01 99 22 20 20 20 20 20 20 20 20 20 20 20 B7 |".." .| 000002D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000002E0: B7 00 F1 0A 2C 01 9F 38 2C 38 2C 30 2C 22 24 30 |....,..8,8,0,"$0| 000002F0: 22 00 14 0B 36 01 9F 34 2C 34 2C 31 3A 8F 20 55 |"...6..4,4,1:. U| 00000300: 2F 43 20 4F 4E 4C 59 2C 20 4E 4F 20 4C 49 4E 45 |/C ONLY, NO LINE| 00000310: 46 45 45 44 00 22 0B 40 01 A1 23 38 2C 44 24 2C |FEED.".@..#8,D$,| 00000320: 44 24 00 30 0B 4A 01 A1 23 38 2C 44 24 2C 44 24 |D$.0.J..#8,D$,D$| 00000330: 00 3F 0B 54 01 8B 44 24 B2 22 22 89 36 32 30 00 |.?.T..D$."".620.| 00000340: 52 0B 5E 01 91 46 89 33 37 30 2C 34 36 30 2C 35 |R.^..F.370,460,5| 00000350: 34 30 00 6F 0B 68 01 8F 20 20 20 20 20 49 4E 49 |40.o.h.. INI| 00000360: 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 52 00 |TIALIZE PRINTER.| 00000370: 81 0B 72 01 98 34 2C C7 28 32 37 29 C7 28 36 34 |..r..4,.(27).(64| 00000380: 29 00 9E 0B 7C 01 8F 20 20 20 20 20 53 45 54 20 |)...|.. SET | 00000390: 43 4F 4E 44 45 4E 53 45 44 20 54 59 50 45 00 B4 |CONDENSED TYPE..| 000003A0: 0B 86 01 98 34 2C C7 28 32 37 29 C7 28 36 36 29 |....4,.(27).(66)| 000003B0: C7 28 33 29 00 D0 0B 90 01 8F 20 20 20 20 20 53 |.(3)...... S| 000003C0: 45 54 20 44 4F 55 42 4C 45 20 53 54 52 49 4B 45 |ET DOUBLE STRIKE| 000003D0: 00 E2 0B 9A 01 98 34 2C C7 28 32 37 29 C7 28 37 |......4,.(27).(7| 000003E0: 31 29 00 FA 0B A4 01 8F 20 20 20 20 20 53 45 54 |1)...... SET| 000003F0: 20 55 4E 44 45 52 4C 49 4E 45 00 10 0C AE 01 98 | UNDERLINE......| 00000400: 34 2C C7 28 32 37 29 C7 28 34 35 29 C7 28 31 29 |4,.(27).(45).(1)| 00000410: 00 1D 0C B8 01 46 B2 32 3A 89 35 34 30 00 3C 0C |.....F.2:.540.<.| 00000420: C2 01 8F 20 20 20 20 20 43 41 4E 43 45 4C 20 44 |... CANCEL D| 00000430: 4F 55 42 4C 45 20 53 54 52 49 4B 45 00 4E 0C CC |OUBLE STRIKE.N..| 00000440: 01 98 34 2C C7 28 32 37 29 C7 28 37 32 29 00 69 |..4,.(27).(72).i| 00000450: 0C D6 01 8F 20 20 20 20 20 43 41 4E 43 45 4C 20 |.... CANCEL | 00000460: 55 4E 44 45 52 4C 49 4E 45 00 7F 0C E0 01 98 34 |UNDERLINE......4| 00000470: 2C C7 28 32 37 29 C7 28 34 35 29 C7 28 30 29 00 |,.(27).(45).(0).| 00000480: 97 0C EA 01 8F 20 20 20 20 20 53 45 54 20 53 55 |..... SET SU| 00000490: 42 53 43 52 49 50 54 00 AD 0C F4 01 98 34 2C C7 |BSCRIPT......4,.| 000004A0: 28 32 37 29 C7 28 38 33 29 C7 28 31 29 00 D1 0C |(27).(83).(1)...| 000004B0: FE 01 8F 20 20 20 20 20 53 45 54 20 4C 49 4E 45 |... SET LINE| 000004C0: 46 45 45 44 20 54 4F 20 35 2F 37 32 20 49 4E 43 |FEED TO 5/72 INC| 000004D0: 48 00 E7 0C 08 02 98 34 2C C7 28 32 37 29 C7 28 |H......4,.(27).(| 000004E0: 36 35 29 C7 28 35 29 00 EF 0C 12 02 46 B2 33 00 |65).(5).....F.3.| 000004F0: FD 0C 1C 02 A1 23 38 2C 44 24 2C 43 24 00 1B 0D |.....#8,D$,C$...| 00000500: 26 02 98 34 2C C6 28 44 24 AA 5A 24 29 AA C6 28 |&..4,.(D$.Z$)..(| 00000510: 43 24 AA 5A 24 29 AC 32 35 36 3B 00 26 0D 30 02 |C$.Z$).256;.&.0.| 00000520: A1 23 38 2C 44 24 00 3F 0D 3A 02 8B 44 24 B2 22 |.#8,D$.?.:..D$."| 00000530: 22 A7 98 34 2C C7 28 31 30 29 3A 89 33 33 30 00 |"..4,.(10):.330.| 00000540: 54 0D 44 02 8B 44 24 B2 C7 28 31 38 29 A7 44 24 |T.D..D$..(18).D$| 00000550: B2 22 20 22 00 5F 0D 4E 02 98 34 2C 44 24 3B 00 |." "._.N..4,D$;.| 00000560: 68 0D 58 02 89 35 36 30 00 88 0D 62 02 8F 20 20 |h.X..560...b.. | 00000570: 20 20 20 52 45 2D 49 4E 49 54 49 41 4C 49 5A 45 | RE-INITIALIZE| 00000580: 20 50 52 49 4E 54 45 52 00 9F 0D 6C 02 98 34 2C | PRINTER...l..4,| 00000590: C7 28 31 30 29 C7 28 32 37 29 C7 28 36 34 29 00 |.(10).(27).(64).| 000005A0: C6 0D 76 02 8F 20 20 20 20 20 4F 4E 45 20 54 49 |..v.. ONE TI| 000005B0: 4D 45 20 4C 49 4E 45 46 45 45 44 20 4F 46 20 33 |ME LINEFEED OF 3| 000005C0: 20 4C 49 4E 45 53 00 DC 0D 80 02 81 58 B2 31 A4 | LINES......X.1.| 000005D0: 33 3A 98 34 2C C7 28 31 30 29 3A 82 00 EB 0D 8A |3:.4,.(10):.....| 000005E0: 02 A0 34 3A A0 38 3A 89 31 31 30 00 00 00 |..4:.8:.110... |
....... FROM COUGAR, PHOENIX AZ.^.D..: P
ROGRAM PRINTS DIRECTORY IN SMALL, SUB
SCRIPT LETTERS.T.N..53280,0:.53281,0...X
.F.1:Z$.G(0)......".... ***********
*****************.Z...." *
GEMINI *......" * DISK D
IRECTORY PRINTER *.,. .." *
*.U...." *******
*********************......". (((. MA
Y NOT WORK WITH DOS 5.1.)))......"..
INSERT DISK.E.H.."
..............R.."... F1 KEY TO
PRINT DIRECTORY......"..... F7
KEY TO FINISH.)....S$:.S$."".230.<....S
$.G(133).270.E....S$.G(136)..".":.53280,
14:.53281,6:..N....230......"........
PRINTING......"....
DO NOT REMOVE DISK...".." .
....................,..8,8,0,"$0"...6..4
,4,1:. U/C ONLY, NO LINEFEED.".@..#8,D$,
D$.0.J..#8,D$,D$.?.T..D$."".620.R.^..F.3
70,460,540.O.H.. INITIALIZE PRINTER.
..R..4,G(27)G(64)...|.. SET CONDENSE
D TYPE......4,G(27)G(66)G(3).P.... S
ET DOUBLE STRIKE......4,G(27)G(71)......
SET UNDERLINE......4,G(27)G(45)G(1)
.....F.2:.540.<.B.. CANCEL DOUBLE ST
RIKE.N.L..4,G(27)G(72).I.V.. CANCEL
UNDERLINE.....4,G(27)G(45)G(0)......
SET SUBSCRIPT......4,G(27)G(83)G(1).Q.
... SET LINEFEED TO 5/72 INCH......4
,G(27)G(65)G(5).....F.3......#8,D$,C$...
&..4,F(D$.Z$).F(C$.Z$).256;.&.0..#8,D$.?
.:..D$.""..4,G(10):.330.T.D..D$.G(18).D$
." "._.N..4,D$;.H.X..560...B.. RE-IN
ITIALIZE PRINTER...L..4,G(10)G(27)G(64).
F.V.. ONE TIME LINEFEED OF 3 LINES..
....X.1.3:.4,G(10):...... 4: 8:.110...
> CLICK IMAGE PREVIEW FOR FULL MODAL