RPG TEXT
FILE INFORMATION
FILENAME(S): RPG TEXT
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-10-19 22:49:26
APPEARS ON: 1 disk(s)
FILE HASH
f4185e247a92c18c6810c0904658cf5f3871d65e457d6f066d4eeeee9c337466
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 3 | RPG TEXT | PRG | Radd Maxx | 31 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 30 A9 00 8D A5 30 8D 21 D0 8D 20 D0 A9 0E 20 |.0....0.!.. ... | 00000010: D2 FF A9 09 20 D2 FF AC A5 30 20 83 30 20 C1 30 |.... ....0 .0 .0| 00000020: 20 E4 FF C9 00 F0 F9 C9 5F D0 08 A9 93 20 D2 FF | ......._.... ..| 00000030: 4C 00 C0 C9 5E D0 0E AD A5 30 F0 E4 38 E9 02 8D |L...^....0..8...| 00000040: A5 30 4C 15 30 C9 20 D0 0F AD A5 30 C9 18 B0 D0 |.0L.0. ....0....| 00000050: 69 02 8D A5 30 4C 15 30 C9 50 D0 C4 A9 00 20 BD |i...0L.0.P.... .| 00000060: FF A9 04 AA A0 07 20 BA FF 20 C0 FF A2 04 20 C9 |...... .. .... .| 00000070: FF A9 0D 20 D2 FF 20 D2 FF AC A5 30 20 83 30 20 |... .. ....0 .0 | 00000080: E7 FF 4C 1B 30 B9 A7 30 85 FB B9 A8 30 85 FC A2 |..L.0..0....0...| 00000090: 00 A1 FB F0 11 C9 5C D0 02 A9 0D 20 D2 FF E6 FB |......\.... ....| 000000A0: D0 EF E6 FC D0 EB 60 00 00 FF 30 A0 33 C2 35 68 |......`...0.3.5h| 000000B0: 38 22 3B DE 3D 50 40 F2 42 07 47 0D 44 D6 48 A4 |8";.=P@.B.G.D.H.| 000000C0: 4B 0E 4D A2 18 A0 00 18 20 F0 FF B9 D5 30 F0 06 |K.M..... ....0..| 000000D0: 20 D2 FF C8 D0 F5 60 20 12 3C 53 50 43 3E 20 4E | .....` .<SPC> N| 000000E0: 45 58 54 20 53 43 52 4E 3B 20 3C 5E 3E 20 50 52 |EXT SCRN; <^> PR| 000000F0: 45 56 20 53 43 52 4E 3B 20 3C 5F 3E 20 C7 C4 92 |EV SCRN; <_> ...| 00000100: 00 05 93 20 20 20 20 20 D4 48 45 20 C7 4F 4C 44 |... .HE .OLD| 00000110: 20 C4 49 53 4B 20 D2 45 50 4F 52 54 20 C7 45 4E | .ISK .EPORT .EN| 00000120: 45 52 41 54 4F 52 5C 20 20 20 20 20 A3 A3 A3 A3 |ERATOR\ ....| 00000130: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000140: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 5C 5C C1 53 20 50 |..........\\.S P| 00000150: 52 4F 4D 49 53 45 44 20 49 4E 20 D6 4F 4C 2E 20 |ROMISED IN .OL. | 00000160: 32 2C 20 54 48 49 53 20 49 53 53 55 45 5C 43 4F |2, THIS ISSUE\CO| 00000170: 4E 54 41 49 4E 53 20 41 20 52 45 50 4F 52 54 20 |NTAINS A REPORT | 00000180: 47 45 4E 45 52 41 54 4F 52 20 46 4F 52 20 54 48 |GENERATOR FOR TH| 00000190: 45 5C C7 4F 4C 44 20 C4 49 53 4B 20 C4 41 54 41 |E\.OLD .ISK .ATA| 000001A0: 42 41 53 45 20 53 59 53 54 45 4D 2E 20 20 D4 48 |BASE SYSTEM. .H| 000001B0: 49 53 20 52 45 50 4F 52 54 5C 47 45 4E 45 52 41 |IS REPORT\GENERA| 000001C0: 54 4F 52 20 20 43 4F 4E 53 49 53 54 53 20 20 4F |TOR CONSISTS O| 000001D0: 46 20 20 46 49 56 45 20 20 C2 C1 D3 C9 C3 5C 53 |F FIVE .....\S| 000001E0: 55 42 52 4F 55 54 49 4E 45 53 20 54 48 41 54 20 |UBROUTINES THAT | 000001F0: 43 41 4E 20 42 45 20 55 53 45 44 20 42 59 20 41 |CAN BE USED BY A| 00000200: 20 55 53 45 52 5C 57 52 49 54 54 45 4E 20 50 52 | USER\WRITTEN PR| 00000210: 4F 47 52 41 4D 20 54 4F 20 41 43 43 45 53 53 20 |OGRAM TO ACCESS | 00000220: 52 45 43 4F 52 44 53 20 46 52 4F 4D 5C 54 48 45 |RECORDS FROM\THE| 00000230: 20 44 41 54 41 42 41 53 45 2E 5C 5C D4 48 49 53 | DATABASE.\\.HIS| 00000240: 20 53 43 48 45 4D 45 20 41 4C 4C 4F 57 53 20 46 | SCHEME ALLOWS F| 00000250: 4F 52 20 41 20 57 49 44 45 20 56 41 52 49 45 54 |OR A WIDE VARIET| 00000260: 59 5C 4F 46 20 41 50 50 4C 49 43 41 54 49 4F 4E |Y\OF APPLICATION| 00000270: 53 20 43 4F 4D 42 49 4E 45 44 20 57 49 54 48 20 |S COMBINED WITH | 00000280: 45 41 53 45 20 4F 46 5C 55 53 45 2E 5C 5C CF 56 |EASE OF\USE.\\.V| 00000290: 45 52 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |ER THE FOLLOWING| 000002A0: 20 53 43 52 45 45 4E 53 2C 20 57 45 20 57 49 4C | SCREENS, WE WIL| 000002B0: 4C 5C 45 58 50 4C 41 49 4E 20 48 4F 57 20 54 4F |L\EXPLAIN HOW TO| 000002C0: 20 55 53 45 20 54 48 45 53 45 20 52 4F 55 54 49 | USE THESE ROUTI| 000002D0: 4E 45 53 2E 20 20 D4 4F 5C 46 55 52 54 48 45 52 |NES. .O\FURTHER| 000002E0: 20 49 4C 4C 55 53 54 52 41 54 45 20 54 48 45 49 | ILLUSTRATE THEI| 000002F0: 52 20 55 53 45 2C 20 54 48 45 52 45 20 41 52 45 |R USE, THERE ARE| 00000300: 5C 45 58 41 4D 50 4C 45 20 50 52 4F 47 52 41 4D |\EXAMPLE PROGRAM| 00000310: 53 20 49 4E 20 54 48 49 53 20 49 53 53 55 45 20 |S IN THIS ISSUE | 00000320: 57 48 49 43 48 5C 59 4F 55 20 43 41 4E 20 4C 49 |WHICH\YOU CAN LI| 00000330: 53 54 2E 5C 5C D9 4F 55 20 43 41 4E 20 47 45 54 |ST.\\.OU CAN GET| 00000340: 20 41 20 50 52 49 4E 54 4F 55 54 20 4F 46 20 54 | A PRINTOUT OF T| 00000350: 48 45 53 45 20 5C 49 4E 53 54 52 55 43 54 49 4F |HESE \INSTRUCTIO| 00000360: 4E 53 20 42 59 20 50 52 45 53 53 49 4E 47 20 54 |NS BY PRESSING T| 00000370: 48 45 20 27 D0 27 20 4B 45 59 5C 4F 4E 20 54 48 |HE '.' KEY\ON TH| 00000380: 45 20 4B 45 59 42 4F 41 52 44 20 54 4F 20 50 52 |E KEYBOARD TO PR| 00000390: 49 4E 54 20 45 41 43 48 20 53 43 52 45 45 4E 2E |INT EACH SCREEN.| 000003A0: 5C 00 93 20 20 20 20 20 20 D5 53 49 4E 47 20 54 |\.. .SING T| 000003B0: 48 45 20 D2 45 50 4F 52 54 20 C7 45 4E 45 52 41 |HE .EPORT .ENERA| 000003C0: 54 4F 52 2E 5C 20 20 20 20 20 20 A3 A3 A3 A3 A3 |TOR.\ .....| 000003D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000003E0: A3 A3 A3 A3 A3 A3 5C 5C D4 4F 20 55 53 45 20 54 |......\\.O USE T| 000003F0: 48 45 20 52 45 50 4F 52 54 20 47 45 4E 45 52 41 |HE REPORT GENERA| 00000400: 54 4F 52 2C 20 54 41 4B 45 20 54 48 45 5C 46 4F |TOR, TAKE THE\FO| 00000410: 4C 4C 4F 57 49 4E 47 20 53 54 45 50 53 3A 5C 5C |LLOWING STEPS:\\| 00000420: 20 20 20 31 2E 20 D5 53 49 4E 47 20 54 48 45 20 | 1. .SING THE | 00000430: C7 4F 4C 44 20 C4 49 53 4B 20 C4 C2 CD D3 2C 20 |.OLD .ISK ...., | 00000440: 43 52 45 41 54 45 5C 20 20 20 20 20 20 41 20 43 |CREATE\ A C| 00000450: 4F 4C 4C 45 43 54 49 4F 4E 20 4F 46 20 54 48 4F |OLLECTION OF THO| 00000460: 53 45 20 49 54 45 4D 53 20 54 48 41 54 5C 20 20 |SE ITEMS THAT\ | 00000470: 20 20 20 20 41 52 45 20 4E 45 45 44 45 44 20 49 | ARE NEEDED I| 00000480: 4E 20 59 4F 55 52 20 52 45 50 4F 52 54 2E 5C 5C |N YOUR REPORT.\\| 00000490: 20 20 20 32 2E 20 D3 41 56 45 20 54 48 49 53 20 | 2. .AVE THIS | 000004A0: 43 4F 4C 4C 45 43 54 49 4F 4E 20 4F 4E 20 44 49 |COLLECTION ON DI| 000004B0: 53 4B 2E 5C 20 20 20 20 20 20 CE 4F 54 45 3A 20 |SK.\ .OTE: | 000004C0: D4 48 49 53 20 49 53 20 44 4F 4E 45 20 56 49 41 |.HIS IS DONE VIA| 000004D0: 20 54 48 45 20 C6 36 20 4B 45 59 5C 20 20 20 20 | THE .6 KEY\ | 000004E0: 20 20 20 20 20 20 20 20 49 4E 20 54 48 45 20 C2 | IN THE .| 000004F0: D5 C9 CC C4 20 53 45 43 54 49 4F 4E 2E 5C 5C 20 |.... SECTION.\\ | 00000500: 20 20 33 2E 20 C5 58 49 54 20 4F 55 54 20 4F 46 | 3. .XIT OUT OF| 00000510: 20 54 48 45 20 C7 4F 4C 44 20 C4 49 53 4B 20 53 | THE .OLD .ISK S| 00000520: 59 53 54 45 4D 5C 20 20 20 20 20 20 54 4F 20 C2 |YSTEM\ TO .| 00000530: C1 D3 C9 C3 2E 5C 5C 20 20 20 34 2E 20 C9 4E 53 |.....\\ 4. .NS| 00000540: 45 52 54 20 D6 4F 4C 2E 20 33 20 49 4E 20 44 52 |ERT .OL. 3 IN DR| 00000550: 49 56 45 20 41 4E 44 20 54 59 50 45 3A 5C 5C 20 |IVE AND TYPE:\\ | 00000560: 20 20 20 20 20 20 20 20 20 4C 4F 41 44 22 52 45 | LOAD"RE| 00000570: 50 4F 52 54 20 47 45 4E 45 52 41 54 4F 52 22 2C |PORT GENERATOR",| 00000580: 38 5C 5C D4 48 49 53 20 57 49 4C 4C 20 4C 4F 41 |8\\.HIS WILL LOA| 00000590: 44 20 54 48 45 20 52 45 50 4F 52 54 20 47 45 4E |D THE REPORT GEN| 000005A0: 45 52 41 54 4F 52 5C 52 4F 55 54 49 4E 45 53 20 |ERATOR\ROUTINES | 000005B0: 49 4E 54 4F 20 54 48 45 20 43 4F 4D 50 55 54 45 |INTO THE COMPUTE| 000005C0: 52 2E 5C 00 93 D7 48 45 4E 20 59 4F 55 20 4C 49 |R.\...HEN YOU LI| 000005D0: 53 54 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2C |ST THIS PROGRAM,| 000005E0: 20 59 4F 55 20 57 49 4C 4C 5C 46 49 4E 44 20 54 | YOU WILL\FIND T| 000005F0: 48 41 54 20 54 48 45 20 46 49 52 53 54 20 4C 49 |HAT THE FIRST LI| 00000600: 4E 45 20 4E 4F 2E 20 49 53 20 36 30 30 30 30 2E |NE NO. IS 60000.| 00000610: 5C 5C D4 48 55 53 20 59 4F 55 20 43 41 4E 20 57 |\\.HUS YOU CAN W| 00000620: 52 49 54 45 20 59 4F 55 52 20 4F 57 4E 20 50 52 |RITE YOUR OWN PR| 00000630: 4F 47 52 41 4D 5C 42 45 54 57 45 45 4E 20 4C 49 |OGRAM\BETWEEN LI| 00000640: 4E 45 53 20 31 20 41 4E 44 20 35 39 39 39 39 2E |NES 1 AND 59999.| 00000650: 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 5C 4D 41 | .HIS PROGRAM\MA| 00000660: 59 20 55 53 45 20 54 48 45 20 52 45 50 4F 52 54 |Y USE THE REPORT| 00000670: 20 47 45 4E 45 52 41 54 4F 52 20 52 4F 55 54 49 | GENERATOR ROUTI| 00000680: 4E 45 53 5C 54 4F 20 41 43 43 45 53 53 20 52 45 |NES\TO ACCESS RE| 00000690: 43 4F 52 44 53 20 49 4E 20 41 20 44 41 54 41 42 |CORDS IN A DATAB| 000006A0: 41 53 45 2E 5C 5C D9 4F 55 52 20 50 52 4F 47 52 |ASE.\\.OUR PROGR| 000006B0: 41 4D 20 53 48 4F 55 4C 44 20 4E 4F 54 20 55 53 |AM SHOULD NOT US| 000006C0: 45 20 56 41 52 49 41 42 4C 45 5C 4E 41 4D 45 53 |E VARIABLE\NAMES| 000006D0: 20 54 48 41 54 20 53 54 41 52 54 20 57 49 54 48 | THAT START WITH| 000006E0: 20 54 48 45 20 4C 45 54 54 45 52 20 27 47 27 2C | THE LETTER 'G',| 000006F0: 5C 53 49 4E 43 45 20 54 48 45 53 45 20 41 52 45 |\SINCE THESE ARE| 00000700: 20 55 53 45 44 20 42 59 20 54 48 45 20 52 45 50 | USED BY THE REP| 00000710: 4F 52 54 5C 47 45 4E 45 52 41 54 4F 52 20 52 4F |ORT\GENERATOR RO| 00000720: 55 54 49 4E 45 53 2E 20 20 C6 55 52 54 48 45 52 |UTINES. .URTHER| 00000730: 4D 4F 52 45 2C 20 54 48 45 53 45 5C 52 4F 55 54 |MORE, THESE\ROUT| 00000740: 49 4E 45 53 20 41 4C 53 4F 20 4F 50 45 4E 20 54 |INES ALSO OPEN T| 00000750: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 54 57 4F |HE FOLLOWING TWO| 00000760: 5C 46 49 4C 45 53 20 54 4F 20 54 48 45 20 44 49 |\FILES TO THE DI| 00000770: 53 4B 3A 5C 5C 20 20 20 46 49 4C 45 20 23 31 32 |SK:\\ FILE #12| 00000780: 37 2C 20 43 48 41 4E 4E 45 4C 20 31 35 20 28 43 |7, CHANNEL 15 (C| 00000790: 4F 4D 4D 41 4E 44 29 5C 20 20 20 20 20 20 20 20 |OMMAND)\ | 000007A0: 20 20 20 20 20 20 20 20 20 41 4E 44 5C 20 20 20 | AND\ | 000007B0: 46 49 4C 45 20 23 31 32 36 2C 20 43 48 41 4E 4E |FILE #126, CHANN| 000007C0: 45 4C 20 31 34 20 28 46 4F 52 20 44 41 54 41 29 |EL 14 (FOR DATA)| 000007D0: 5C 5C D4 48 55 53 20 59 4F 55 20 53 48 4F 55 4C |\\.HUS YOU SHOUL| 000007E0: 44 20 4E 4F 54 20 55 53 45 20 54 48 45 53 45 20 |D NOT USE THESE | 000007F0: 46 49 4C 45 20 23 53 5C 49 4E 20 41 4E 59 20 CF |FILE #S\IN ANY .| 00000800: D0 C5 CE 20 4F 52 20 C3 CC CF D3 C5 20 53 54 41 |... OR ..... STA| 00000810: 54 45 4D 45 4E 54 53 20 49 4E 20 59 4F 55 52 5C |TEMENTS IN YOUR\| 00000820: 50 52 4F 47 52 41 4D 2E 20 20 D9 4F 55 20 4D 41 |PROGRAM. .OU MA| 00000830: 59 20 55 53 45 20 46 49 4C 45 23 20 31 32 37 20 |Y USE FILE# 127 | 00000840: 54 4F 20 52 45 41 44 5C 4F 52 20 57 52 49 54 45 |TO READ\OR WRITE| 00000850: 20 54 4F 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 | TO THE COMMAND | 00000860: 43 48 41 4E 4E 45 4C 2E 5C 00 93 20 20 D4 48 45 |CHANNEL.\.. .HE| 00000870: 20 D2 45 50 4F 52 54 20 C7 45 4E 45 52 41 54 4F | .EPORT .ENERATO| 00000880: 52 20 28 D2 D0 C7 29 20 D2 4F 55 54 49 4E 45 53 |R (...) .OUTINES| 00000890: 5C 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |\ .............| 000008A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000008B0: A3 A3 A3 A3 A3 A3 5C D4 48 45 52 45 20 41 52 45 |......\.HERE ARE| 000008C0: 20 46 49 56 45 20 53 55 42 52 4F 55 54 49 4E 45 | FIVE SUBROUTINE| 000008D0: 53 20 49 4E 20 41 4C 4C 2E 20 20 C9 4E 5C 54 48 |S IN ALL. .N\TH| 000008E0: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 53 45 43 54 |E FOLLOWING SECT| 000008F0: 49 4F 4E 2C 20 57 45 20 57 49 4C 4C 20 44 45 53 |ION, WE WILL DES| 00000900: 43 52 49 42 45 5C 57 48 41 54 20 45 41 43 48 20 |CRIBE\WHAT EACH | 00000910: 53 55 42 52 4F 55 54 49 4E 45 20 44 4F 45 53 20 |SUBROUTINE DOES | 00000920: 41 4E 44 20 48 4F 57 20 54 4F 20 5C 55 53 45 20 |AND HOW TO \USE | 00000930: 49 54 2E 5C 5C 12 31 2E 20 CF 50 45 4E 20 C4 C2 |IT.\\.1. .PEN ..| 00000940: 92 5C D4 48 49 53 20 53 55 42 52 4F 55 54 49 4E |.\.HIS SUBROUTIN| 00000950: 45 20 53 54 41 52 54 53 20 41 54 20 4C 49 4E 45 |E STARTS AT LINE| 00000960: 20 36 30 30 30 30 2E 5C C9 54 20 49 53 20 55 53 | 60000.\.T IS US| 00000970: 45 44 20 54 4F 20 4F 50 45 4E 20 54 48 45 20 44 |ED TO OPEN THE D| 00000980: 41 54 41 42 41 53 45 20 46 52 4F 4D 5C 57 48 49 |ATABASE FROM\WHI| 00000990: 43 48 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 |CH YOU WISH TO A| 000009A0: 43 43 45 53 53 20 44 41 54 41 2E 20 20 C9 54 20 |CCESS DATA. .T | 000009B0: 4D 55 53 54 5C 42 45 20 43 41 4C 4C 45 44 20 42 |MUST\BE CALLED B| 000009C0: 45 46 4F 52 45 20 41 4E 59 20 4F 54 48 45 52 20 |EFORE ANY OTHER | 000009D0: D2 D0 C7 20 52 4F 55 54 49 4E 45 2E 5C D4 4F 20 |... ROUTINE.\.O | 000009E0: 55 53 45 20 49 54 2C 20 4A 55 53 54 20 53 54 4F |USE IT, JUST STO| 000009F0: 52 45 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 |RE THE NAME OF T| 00000A00: 48 45 5C 44 41 54 41 42 41 53 45 20 49 4E 20 54 |HE\DATABASE IN T| 00000A10: 48 45 20 56 41 52 49 41 42 4C 45 20 27 C7 C4 24 |HE VARIABLE '..$| 00000A20: 27 20 41 4E 44 20 44 4F 5C 41 20 C7 CF D3 D5 C2 |' AND DO\A .....| 00000A30: 20 54 4F 20 4C 49 4E 45 20 36 30 30 30 30 2E 20 | TO LINE 60000. | 00000A40: 20 C5 58 41 4D 50 4C 45 3A 5C 5C 20 20 20 20 20 | .XAMPLE:\\ | 00000A50: 20 20 20 20 20 20 31 30 30 20 C7 C4 24 3D 22 C3 | 100 ..$=".| 00000A60: C8 C5 D1 D5 C5 D3 22 5C 20 20 20 20 20 20 20 20 |......"\ | 00000A70: 20 20 20 31 31 30 20 C7 CF D3 D5 C2 20 36 30 30 | 110 ..... 600| 00000A80: 30 30 5C 5C D4 48 45 20 41 42 4F 56 45 20 54 57 |00\\.HE ABOVE TW| 00000A90: 4F 20 4C 49 4E 45 53 20 57 49 4C 4C 20 4F 50 45 |O LINES WILL OPE| 00000AA0: 4E 20 54 48 45 20 C4 C2 5C 27 43 48 45 51 55 45 |N THE ..\'CHEQUE| 00000AB0: 53 27 20 46 4F 52 20 41 43 43 45 53 53 2E 20 20 |S' FOR ACCESS. | 00000AC0: CE 4F 54 45 20 54 48 41 54 20 59 4F 55 5C 53 48 |.OTE THAT YOU\SH| 00000AD0: 4F 55 4C 44 20 48 41 56 45 20 54 48 45 20 44 49 |OULD HAVE THE DI| 00000AE0: 53 4B 20 43 4F 4E 54 41 49 4E 49 4E 47 20 54 48 |SK CONTAINING TH| 00000AF0: 45 20 C4 C2 5C 49 4E 20 54 48 45 20 44 52 49 56 |E ..\IN THE DRIV| 00000B00: 45 20 42 45 46 4F 52 45 20 59 4F 55 20 45 58 45 |E BEFORE YOU EXE| 00000B10: 43 55 54 45 20 54 48 49 53 5C 52 4F 55 54 49 4E |CUTE THIS\ROUTIN| 00000B20: 45 2E 5C 00 93 12 32 2E 20 CF 50 45 4E 20 C3 4F |E.\...2. .PEN .O| 00000B30: 4C 4C 45 43 54 49 4F 4E 92 5C D4 48 49 53 20 53 |LLECTION.\.HIS S| 00000B40: 55 42 52 4F 55 54 49 4E 45 20 53 54 41 52 54 53 |UBROUTINE STARTS| 00000B50: 20 41 54 20 4C 49 4E 45 20 36 30 35 30 30 2E 5C | AT LINE 60500.\| 00000B60: C9 54 20 49 53 20 55 53 45 44 20 54 4F 20 4F 50 |.T IS USED TO OP| 00000B70: 45 4E 20 54 48 45 20 43 4F 4C 4C 45 43 54 49 4F |EN THE COLLECTIO| 00000B80: 4E 20 54 48 41 54 5C 59 4F 55 20 53 41 56 45 44 |N THAT\YOU SAVED| 00000B90: 20 57 48 49 4C 45 20 49 4E 20 54 48 45 20 C7 4F | WHILE IN THE .O| 00000BA0: 4C 44 20 C4 49 53 4B 20 C4 C2 CD D3 2E 5C CE 4F |LD .ISK .....\.O| 00000BB0: 54 45 20 54 48 41 54 20 59 4F 55 20 43 41 4E 20 |TE THAT YOU CAN | 00000BC0: 4F 4E 4C 59 20 41 43 43 45 53 53 20 54 48 4F 53 |ONLY ACCESS THOS| 00000BD0: 45 5C 52 45 43 4F 52 44 53 20 49 4E 20 54 48 45 |E\RECORDS IN THE| 00000BE0: 20 C4 C2 20 54 48 41 54 20 41 52 45 20 49 4E 20 | .. THAT ARE IN | 00000BF0: 54 48 45 5C 43 4F 4C 4C 45 43 54 49 4F 4E 2E 20 |THE\COLLECTION. | 00000C00: D4 48 49 53 20 52 4F 55 54 49 4E 45 20 4D 55 53 |.HIS ROUTINE MUS| 00000C10: 54 20 42 45 20 43 41 4C 4C 45 44 5C 41 46 54 45 |T BE CALLED\AFTE| 00000C20: 52 20 54 48 45 20 27 CF 50 45 4E 20 C4 C2 27 20 |R THE '.PEN ..' | 00000C30: 52 4F 55 54 49 4E 45 2C 20 41 4E 44 20 42 45 46 |ROUTINE, AND BEF| 00000C40: 4F 52 45 5C 54 48 45 20 27 D2 45 41 44 20 D2 45 |ORE\THE '.EAD .E| 00000C50: 43 4F 52 44 27 20 52 4F 55 54 49 4E 45 2E 5C 5C |CORD' ROUTINE.\\| 00000C60: D4 4F 20 55 53 45 20 54 48 49 53 20 52 4F 55 54 |.O USE THIS ROUT| 00000C70: 49 4E 45 2C 20 4A 55 53 54 20 53 54 4F 52 45 20 |INE, JUST STORE | 00000C80: 54 48 45 5C 4E 41 4D 45 20 4F 46 20 54 48 45 20 |THE\NAME OF THE | 00000C90: 43 4F 4C 4C 45 43 54 49 4F 4E 20 49 4E 20 27 C7 |COLLECTION IN '.| 00000CA0: C3 24 27 20 41 4E 44 20 44 4F 5C 41 20 C7 CF D3 |.$' AND DO\A ...| 00000CB0: D5 C2 20 36 30 35 30 30 2E 20 20 C5 58 41 4D 50 |.. 60500. .XAMP| 00000CC0: 4C 45 20 3A 5C 5C 20 20 20 20 20 20 20 31 32 30 |LE :\\ 120| 00000CD0: 20 C7 C3 24 3D 22 C6 C5 C2 20 C3 C8 C5 C3 CB D3 | ..$="... ......| 00000CE0: 22 5C 20 20 20 20 20 20 20 31 33 30 20 C7 CF D3 |"\ 130 ...| 00000CF0: D5 C2 20 36 30 35 30 30 5C 5C CF 4E 43 45 20 59 |.. 60500\\.NCE Y| 00000D00: 4F 55 27 56 45 20 4F 50 45 4E 45 44 20 54 48 45 |OU'VE OPENED THE| 00000D10: 20 43 4F 4C 4C 45 43 54 49 4F 4E 2C 20 59 4F 55 | COLLECTION, YOU| 00000D20: 5C 43 41 4E 20 52 45 41 44 20 52 45 43 4F 52 44 |\CAN READ RECORD| 00000D30: 53 20 46 52 4F 4D 20 49 54 20 42 59 20 55 53 49 |S FROM IT BY USI| 00000D40: 4E 47 20 54 48 45 5C 27 D2 45 41 44 20 D2 45 43 |NG THE\'.EAD .EC| 00000D50: 4F 52 44 27 20 52 4F 55 54 49 4E 45 2E 20 20 C1 |ORD' ROUTINE. .| 00000D60: 46 54 45 52 20 59 4F 55 20 48 41 56 45 5C 46 49 |FTER YOU HAVE\FI| 00000D70: 4E 49 53 48 45 44 20 57 49 54 48 20 54 48 45 20 |NISHED WITH THE | 00000D80: 43 55 52 52 45 4E 54 20 43 4F 4C 4C 45 43 54 49 |CURRENT COLLECTI| 00000D90: 4F 4E 2C 5C 59 4F 55 20 43 41 4E 20 43 4C 4F 53 |ON,\YOU CAN CLOS| 00000DA0: 45 20 49 54 20 41 4E 44 20 54 48 45 4E 20 4F 50 |E IT AND THEN OP| 00000DB0: 45 4E 20 41 4E 4F 54 48 45 52 5C 4F 4E 45 20 46 |EN ANOTHER\ONE F| 00000DC0: 52 4F 4D 20 54 48 45 20 53 41 4D 45 20 C4 C2 20 |ROM THE SAME .. | 00000DD0: 41 4E 44 20 41 43 43 45 53 53 20 49 54 2E 5C 00 |AND ACCESS IT.\.| 00000DE0: 93 12 33 2E 20 D2 45 41 44 20 D2 45 43 4F 52 44 |..3. .EAD .ECORD| 00000DF0: 92 5C A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.\..............| 00000E00: 5C 5C D4 48 49 53 20 53 55 42 52 4F 55 54 49 4E |\\.HIS SUBROUTIN| 00000E10: 45 20 53 54 41 52 54 53 20 41 54 20 4C 49 4E 45 |E STARTS AT LINE| 00000E20: 20 36 31 30 30 30 2E 5C C9 54 20 49 53 20 55 53 | 61000.\.T IS US| 00000E30: 45 44 20 54 4F 20 52 45 41 44 20 52 45 43 4F 52 |ED TO READ RECOR| 00000E40: 44 53 20 46 52 4F 4D 20 54 48 45 5C 43 4F 4C 4C |DS FROM THE\COLL| 00000E50: 45 43 54 49 4F 4E 2E 20 C9 54 20 43 41 4E 20 4F |ECTION. .T CAN O| 00000E60: 4E 4C 59 20 42 45 20 43 41 4C 4C 45 44 20 41 46 |NLY BE CALLED AF| 00000E70: 54 45 52 5C 54 48 45 20 C4 C2 20 41 4E 44 20 41 |TER\THE .. AND A| 00000E80: 20 41 53 53 4F 43 49 41 54 45 44 20 43 4F 4C 4C | ASSOCIATED COLL| 00000E90: 45 43 54 49 4F 4E 20 48 41 56 45 5C 42 45 45 4E |ECTION HAVE\BEEN| 00000EA0: 20 4F 50 45 4E 45 44 2E 5C 5C D4 4F 20 55 53 45 | OPENED.\\.O USE| 00000EB0: 20 54 48 49 53 20 52 4F 55 54 49 4E 45 2C 20 53 | THIS ROUTINE, S| 00000EC0: 45 54 20 54 48 45 20 56 41 52 49 41 42 4C 45 5C |ET THE VARIABLE\| 00000ED0: 27 C7 C9 27 20 54 4F 20 54 48 45 20 52 45 43 4F |'..' TO THE RECO| 00000EE0: 52 44 20 4E 55 4D 42 45 52 20 59 4F 55 20 57 41 |RD NUMBER YOU WA| 00000EF0: 4E 54 20 54 4F 5C 52 45 41 44 20 41 4E 44 20 44 |NT TO\READ AND D| 00000F00: 4F 20 41 20 C7 CF D3 D5 C2 20 36 31 30 30 30 2E |O A ..... 61000.| 00000F10: 20 20 C5 58 41 4D 50 4C 45 3A 5C 5C 20 20 20 20 | .XAMPLE:\\ | 00000F20: 20 20 20 20 20 20 20 20 31 34 30 20 C7 C9 3D 35 | 140 ..=5| 00000F30: 5C 20 20 20 20 20 20 20 20 20 20 20 20 31 35 30 |\ 150| 00000F40: 20 C7 CF D3 D5 C2 20 36 31 30 30 30 5C 5C D4 48 | ..... 61000\\.H| 00000F50: 49 53 20 57 49 4C 4C 20 52 45 41 44 20 54 48 45 |IS WILL READ THE| 00000F60: 20 46 49 46 54 48 20 52 45 43 4F 52 44 20 49 4E | FIFTH RECORD IN| 00000F70: 20 54 48 45 5C 43 4F 4C 4C 45 43 54 49 4F 4E 20 | THE\COLLECTION | 00000F80: 46 52 4F 4D 20 54 48 45 20 C4 C2 2E 20 D4 48 45 |FROM THE ... .HE| 00000F90: 20 54 4F 54 41 4C 20 4E 4F 2E 5C 4F 46 20 52 45 | TOTAL NO.\OF RE| 00000FA0: 43 4F 52 44 53 20 49 4E 20 54 48 45 20 43 4F 4C |CORDS IN THE COL| 00000FB0: 4C 45 43 54 49 4F 4E 20 49 53 20 47 49 56 45 4E |LECTION IS GIVEN| 00000FC0: 5C 42 59 20 54 48 45 20 56 41 52 49 41 42 4C 45 |\BY THE VARIABLE| 00000FD0: 20 27 C7 CE 27 20 57 48 49 43 48 20 49 53 20 53 | '..' WHICH IS S| 00000FE0: 45 54 20 42 59 5C 54 48 45 20 27 CF 50 45 4E 20 |ET BY\THE '.PEN | 00000FF0: C3 4F 4C 4C 45 43 54 49 4F 4E 27 20 28 36 30 35 |.OLLECTION' (605| 00001000: 30 30 29 20 52 4F 55 54 49 4E 45 2E 5C D9 4F 55 |00) ROUTINE.\.OU| 00001010: 20 53 48 4F 55 4C 44 20 4E 45 56 45 52 20 54 52 | SHOULD NEVER TR| 00001020: 59 20 54 4F 20 52 45 41 44 20 41 20 52 45 43 4F |Y TO READ A RECO| 00001030: 52 44 5C 47 52 45 41 54 45 52 20 54 48 41 4E 20 |RD\GREATER THAN | 00001040: 54 48 45 20 56 41 4C 55 45 20 4F 46 20 C7 CE 2E |THE VALUE OF ...| 00001050: 5C 00 93 D4 48 45 20 27 D2 45 41 44 20 D2 45 43 |\...HE '.EAD .EC| 00001060: 4F 52 44 27 20 52 4F 55 54 49 4E 45 20 53 54 4F |ORD' ROUTINE STO| 00001070: 52 45 53 20 54 48 45 5C 43 4F 4E 54 45 4E 54 53 |RES THE\CONTENTS| 00001080: 20 4F 46 20 54 48 45 20 52 45 43 4F 52 44 20 49 | OF THE RECORD I| 00001090: 4E 20 54 48 45 20 53 54 52 49 4E 47 5C 41 52 52 |N THE STRING\ARR| 000010A0: 41 59 20 C7 C6 24 2E 20 20 C5 41 43 48 20 45 4C |AY ..$. .ACH EL| 000010B0: 45 4D 45 4E 54 20 4F 46 20 54 48 45 20 41 52 52 |EMENT OF THE ARR| 000010C0: 41 59 5C 43 4F 4E 54 41 49 4E 53 20 41 20 46 49 |AY\CONTAINS A FI| 000010D0: 45 4C 44 20 46 52 4F 4D 20 54 48 45 20 52 45 43 |ELD FROM THE REC| 000010E0: 4F 52 44 2E 20 20 D4 48 55 53 5C C7 C6 24 28 31 |ORD. .HUS\..$(1| 000010F0: 29 20 57 4F 55 4C 44 20 43 4F 4E 54 41 49 4E 20 |) WOULD CONTAIN | 00001100: 54 48 45 20 56 41 4C 55 45 20 4F 46 20 54 48 45 |THE VALUE OF THE| 00001110: 5C 46 49 52 53 54 20 46 49 45 4C 44 20 49 4E 20 |\FIRST FIELD IN | 00001120: 54 48 45 20 52 45 43 4F 52 44 2E 5C 5C C6 49 45 |THE RECORD.\\.IE| 00001130: 4C 44 53 20 41 52 45 20 4E 55 4D 42 45 52 45 44 |LDS ARE NUMBERED| 00001140: 20 42 59 20 54 48 45 49 52 20 4F 52 44 45 52 20 | BY THEIR ORDER | 00001150: 4F 46 5C 41 50 50 45 41 52 41 4E 43 45 20 4F 4E |OF\APPEARANCE ON| 00001160: 20 53 43 52 45 45 4E 2E 20 20 D4 48 55 53 20 49 | SCREEN. .HUS I| 00001170: 46 20 59 4F 55 20 41 52 45 5C 4C 4F 4F 4B 49 4E |F YOU ARE\LOOKIN| 00001180: 47 20 41 54 20 52 45 43 4F 52 44 53 20 49 4E 20 |G AT RECORDS IN | 00001190: 59 4F 55 52 20 C4 C2 20 28 42 59 20 55 53 49 4E |YOUR .. (BY USIN| 000011A0: 47 5C 54 48 45 20 C7 4F 4C 44 20 C4 49 53 4B 20 |G\THE .OLD .ISK | 000011B0: C4 C2 CD D3 2C 20 4F 46 20 43 4F 55 52 53 45 29 |...., OF COURSE)| 000011C0: 2C 20 46 49 45 4C 44 5C 4E 55 4D 42 45 52 20 4F |, FIELD\NUMBER O| 000011D0: 4E 45 20 57 4F 55 4C 44 20 42 45 20 54 48 45 20 |NE WOULD BE THE | 000011E0: 46 49 52 53 54 20 46 49 45 4C 44 5C 45 4E 43 4F |FIRST FIELD\ENCO| 000011F0: 55 4E 54 45 52 45 44 20 41 53 20 59 4F 55 20 53 |UNTERED AS YOU S| 00001200: 43 41 4E 20 54 48 45 20 53 43 52 45 45 4E 20 46 |CAN THE SCREEN F| 00001210: 52 4F 4D 5C 4C 45 46 54 20 54 4F 20 52 49 47 48 |ROM\LEFT TO RIGH| 00001220: 54 2C 20 54 4F 50 20 54 4F 20 42 4F 54 54 4F 4D |T, TOP TO BOTTOM| 00001230: 3B 20 4E 55 4D 42 45 52 20 32 5C 57 4F 55 4C 44 |; NUMBER 2\WOULD| 00001240: 20 42 45 20 54 48 45 20 53 45 43 4F 4E 44 20 46 | BE THE SECOND F| 00001250: 49 45 4C 44 20 45 4E 43 4F 55 4E 54 45 52 45 44 |IELD ENCOUNTERED| 00001260: 3B 5C 41 4E 44 20 53 4F 20 4F 4E 2E 2E 2E 5C 5C |;\AND SO ON...\\| 00001270: D4 48 45 20 54 4F 54 41 4C 20 4E 55 4D 42 45 52 |.HE TOTAL NUMBER| 00001280: 20 4F 46 20 46 49 45 4C 44 53 20 49 4E 20 41 20 | OF FIELDS IN A | 00001290: 52 45 43 4F 52 44 5C 49 53 20 47 49 56 45 4E 20 |RECORD\IS GIVEN | 000012A0: 42 59 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 |BY THE VALUE OF | 000012B0: 54 48 45 20 56 41 52 49 41 42 4C 45 5C 27 C7 C6 |THE VARIABLE\'..| 000012C0: 27 2E 20 20 D4 48 49 53 20 56 41 52 49 41 42 4C |'. .HIS VARIABL| 000012D0: 45 20 49 53 20 53 45 54 20 42 59 20 54 48 45 5C |E IS SET BY THE\| 000012E0: 27 CF 50 45 4E 20 C4 C2 27 20 52 4F 55 54 49 4E |'.PEN ..' ROUTIN| 000012F0: 45 2E 5C 00 93 12 34 2E 20 C3 4C 4F 53 45 20 C3 |E.\...4. .LOSE .| 00001300: 4F 4C 4C 45 43 54 49 4F 4E 92 5C A3 A3 A3 A3 A3 |OLLECTION.\.....| 00001310: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 5C 5C |..............\\| 00001320: D4 48 49 53 20 43 4C 4F 53 45 53 20 54 48 45 20 |.HIS CLOSES THE | 00001330: 43 4F 4C 4C 45 43 54 49 4F 4E 20 43 55 52 52 45 |COLLECTION CURRE| 00001340: 4E 54 4C 59 5C 4F 50 45 4E 2E 20 20 CF 4E 43 45 |NTLY\OPEN. .NCE| 00001350: 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 48 41 | THIS ROUTINE HA| 00001360: 53 20 42 45 45 4E 5C 45 58 45 43 55 54 45 44 2C |S BEEN\EXECUTED,| 00001370: 20 59 4F 55 20 43 41 4E 20 4E 4F 20 4C 4F 4E 47 | YOU CAN NO LONG| 00001380: 45 52 20 41 43 43 45 53 53 20 41 4E 59 5C 52 45 |ER ACCESS ANY\RE| 00001390: 43 4F 52 44 53 20 20 55 4E 4C 45 53 53 20 20 59 |CORDS UNLESS Y| 000013A0: 4F 55 20 20 4F 50 45 4E 20 41 4E 4F 54 48 45 52 |OU OPEN ANOTHER| 000013B0: 5C 43 4F 4C 4C 45 43 54 49 4F 4E 2E 5C 5C D4 4F |\COLLECTION.\\.O| 000013C0: 20 55 53 45 20 54 48 49 53 20 52 4F 55 54 49 4E | USE THIS ROUTIN| 000013D0: 45 20 4A 55 53 54 20 44 4F 20 41 5C C7 CF D3 D5 |E JUST DO A\....| 000013E0: C2 20 36 32 30 30 30 2E 20 20 C5 58 41 4D 50 4C |. 62000. .XAMPL| 000013F0: 45 3A 5C 5C 20 20 20 20 20 20 20 20 20 20 32 30 |E:\\ 20| 00001400: 30 20 C7 CF D3 D5 C2 20 36 32 30 30 30 5C 00 93 |0 ..... 62000\..| 00001410: 20 20 20 20 20 20 D6 41 52 49 41 42 4C 45 53 20 | .ARIABLES | 00001420: 4F 46 20 49 4E 54 45 52 45 53 54 5C 20 20 20 20 |OF INTEREST\ | 00001430: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | ..............| 00001440: A3 A3 A3 A3 A3 A3 A3 A3 5C D4 48 45 20 46 4F 4C |........\.HE FOL| 00001450: 4C 4F 57 49 4E 47 20 49 53 20 41 20 4C 49 53 54 |LOWING IS A LIST| 00001460: 20 4F 46 20 53 4F 4D 45 20 4F 46 20 54 48 45 5C | OF SOME OF THE\| 00001470: 56 41 52 49 41 42 4C 45 53 20 55 53 45 44 20 42 |VARIABLES USED B| 00001480: 59 20 54 48 45 20 D2 D0 C7 20 52 4F 55 54 49 4E |Y THE ... ROUTIN| 00001490: 45 53 20 41 4E 44 5C 54 48 45 49 52 20 53 49 47 |ES AND\THEIR SIG| 000014A0: 4E 49 46 49 43 41 4E 43 45 2E 5C C7 C4 24 2E 2E |NIFICANCE.\..$..| 000014B0: 2E 2E CE 41 4D 45 20 4F 46 20 C4 41 54 41 42 41 |...AME OF .ATABA| 000014C0: 53 45 2E 20 D3 45 54 20 42 59 20 55 53 45 52 2E |SE. .ET BY USER.| 000014D0: 5C C7 C3 24 2E 2E 2E 2E CE 41 4D 45 20 4F 46 20 |\..$.....AME OF | 000014E0: C3 4F 4C 4C 45 43 54 49 4F 4E 2E 20 D3 45 54 20 |.OLLECTION. .ET | 000014F0: 42 59 20 55 53 45 52 2E 5C C7 CE 20 2E 2E 2E 2E |BY USER.\.. ....| 00001500: CE 55 4D 42 45 52 20 4F 46 20 49 54 45 4D 53 20 |.UMBER OF ITEMS | 00001510: 49 4E 20 43 4F 4C 4C 45 43 54 49 4F 4E 2E 5C 20 |IN COLLECTION.\ | 00001520: 20 20 20 20 20 20 D3 45 54 20 42 59 20 27 CF 50 | .ET BY '.P| 00001530: 45 4E 20 C3 4F 4C 4C 45 43 54 49 4F 4E 27 2E 5C |EN .OLLECTION'.\| 00001540: C7 C6 20 2E 2E 2E 2E CE 55 4D 42 45 52 20 4F 46 |.. .....UMBER OF| 00001550: 20 46 49 45 4C 44 53 20 49 4E 20 45 41 43 48 20 | FIELDS IN EACH | 00001560: 52 45 43 4F 52 44 2E 5C 20 20 20 20 20 20 20 D3 |RECORD.\ .| 00001570: 45 54 20 42 59 20 27 CF 50 45 4E 20 C4 C2 27 2E |ET BY '.PEN ..'.| 00001580: 5C C7 C6 24 2E 2E 2E 2E C1 52 52 41 59 20 4F 46 |\..$.....RRAY OF| 00001590: 20 44 49 4D 45 4E 53 49 4F 4E 20 C7 C6 2E 20 C3 | DIMENSION ... .| 000015A0: 4F 4E 54 41 49 4E 53 5C 20 20 20 20 20 20 20 46 |ONTAINS\ F| 000015B0: 49 45 4C 44 20 56 41 4C 55 45 53 2E 5C 20 20 20 |IELD VALUES.\ | 000015C0: 20 20 20 20 D3 45 54 20 42 59 20 27 D2 45 41 44 | .ET BY '.EAD| 000015D0: 20 D2 45 43 4F 52 44 27 2E 5C C7 D4 20 2E 2E 2E | .ECORD'.\.. ...| 000015E0: 2E C1 52 52 41 59 20 4F 46 20 44 49 4D 45 4E 53 |..RRAY OF DIMENS| 000015F0: 49 4F 4E 20 C7 C6 2E 20 C3 4F 4E 54 41 49 4E 53 |ION ... .ONTAINS| 00001600: 5C 20 20 20 20 20 20 20 54 48 45 20 4C 45 4E 47 |\ THE LENG| 00001610: 54 48 20 4F 46 20 45 41 43 48 20 46 49 45 4C 44 |TH OF EACH FIELD| 00001620: 2E 5C 20 20 20 20 20 20 20 D3 45 54 20 42 59 20 |.\ .ET BY | 00001630: 27 CF 50 45 4E 20 C4 C2 27 2E 5C C7 C9 20 2E 2E |'.PEN ..'.\.. ..| 00001640: 2E 2E D2 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 |...ECORD NUMBER | 00001650: 54 4F 20 42 45 20 52 45 41 44 2E 5C 20 20 20 20 |TO BE READ.\ | 00001660: 20 20 20 D3 45 54 20 42 59 20 55 53 45 52 2E 5C | .ET BY USER.\| 00001670: C7 C5 20 2E 2E 2E 2E C5 52 52 4F 52 20 46 4C 41 |.. .....RROR FLA| 00001680: 47 2E 20 20 CD 4F 52 45 20 4F 4E 20 54 48 49 53 |G. .ORE ON THIS| 00001690: 20 4C 41 54 45 52 2E 5C 5C D7 C1 D2 CE C9 CE C7 | LATER.\\.......| 000016A0: 3A 20 D9 4F 55 52 20 50 52 4F 47 52 41 4D 20 53 |: .OUR PROGRAM S| 000016B0: 48 4F 55 4C 44 20 4E 4F 54 20 43 48 41 4E 47 45 |HOULD NOT CHANGE| 000016C0: 5C 54 48 45 20 56 41 4C 55 45 20 4F 46 20 41 4E |\THE VALUE OF AN| 000016D0: 59 20 4F 46 20 54 48 45 20 41 42 4F 56 45 20 56 |Y OF THE ABOVE V| 000016E0: 41 52 49 41 42 4C 45 53 5C 55 4E 4C 45 53 53 20 |ARIABLES\UNLESS | 000016F0: 54 48 45 59 20 41 52 45 20 27 D3 45 54 20 42 59 |THEY ARE '.ET BY| 00001700: 20 55 53 45 52 27 2E 5C 00 93 12 35 2E 20 C3 4C | USER'.\...5. .L| 00001710: 4F 53 45 20 C4 C2 92 5C A3 A3 A3 A3 A3 A3 A3 A3 |OSE ...\........| 00001720: A3 A3 A3 5C D4 48 49 53 20 52 4F 55 54 49 4E 45 |...\.HIS ROUTINE| 00001730: 20 49 53 20 4C 4F 43 41 54 45 44 20 41 54 20 4C | IS LOCATED AT L| 00001740: 49 4E 45 20 36 32 35 30 30 2E 5C C9 54 20 49 53 |INE 62500.\.T IS| 00001750: 20 55 53 45 44 20 54 4F 20 43 4C 4F 53 45 20 54 | USED TO CLOSE T| 00001760: 48 45 20 43 55 52 52 45 4E 54 4C 59 20 4F 50 45 |HE CURRENTLY OPE| 00001770: 4E 5C C4 C2 2E 20 20 D4 48 45 20 43 55 52 52 45 |N\... .HE CURRE| 00001780: 4E 54 20 43 4F 4C 4C 45 43 54 49 4F 4E 20 4D 55 |NT COLLECTION MU| 00001790: 53 54 20 42 45 5C 43 4C 4F 53 45 44 20 42 45 46 |ST BE\CLOSED BEF| 000017A0: 4F 52 45 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |ORE THIS ROUTINE| 000017B0: 20 49 53 20 43 41 4C 4C 45 44 2E 5C CF 4E 43 45 | IS CALLED.\.NCE| 000017C0: 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 49 53 | THIS ROUTINE IS| 000017D0: 20 43 41 4C 4C 45 44 2C 20 59 4F 55 20 43 41 4E | CALLED, YOU CAN| 000017E0: 20 4E 4F 5C 4C 4F 4E 47 45 52 20 41 43 43 45 53 | NO\LONGER ACCES| 000017F0: 53 20 41 4E 59 20 52 45 43 4F 52 44 53 20 46 52 |S ANY RECORDS FR| 00001800: 4F 4D 20 54 48 41 54 20 C4 C2 5C 4F 52 20 4F 50 |OM THAT ..\OR OP| 00001810: 45 4E 20 41 4E 59 20 4F 54 48 45 52 20 43 4F 4C |EN ANY OTHER COL| 00001820: 4C 45 43 54 49 4F 4E 53 2C 20 55 4E 4C 45 53 53 |LECTIONS, UNLESS| 00001830: 5C 59 4F 55 20 46 49 52 53 54 20 4F 50 45 4E 20 |\YOU FIRST OPEN | 00001840: 41 20 C4 C2 2E 5C 5C D4 4F 20 55 53 45 20 54 48 |A ...\\.O USE TH| 00001850: 49 53 20 52 4F 55 54 49 4E 45 20 4A 55 53 54 20 |IS ROUTINE JUST | 00001860: 44 4F 20 41 5C C7 CF D3 D5 C2 20 36 32 35 30 30 |DO A\..... 62500| 00001870: 2E 20 20 C5 58 41 4D 50 4C 45 20 3A 20 5C 20 20 |. .XAMPLE : \ | 00001880: 20 20 20 20 20 20 20 20 20 32 31 30 20 C7 CF D3 | 210 ...| 00001890: D5 C2 20 36 32 35 30 30 5C 5C D4 48 49 53 20 52 |.. 62500\\.HIS R| 000018A0: 4F 55 54 49 4E 45 20 4D 55 53 54 20 42 45 20 43 |OUTINE MUST BE C| 000018B0: 41 4C 4C 45 44 20 57 48 45 4E 20 59 4F 55 5C 41 |ALLED WHEN YOU\A| 000018C0: 52 45 20 46 49 4E 49 53 48 45 44 20 57 49 54 48 |RE FINISHED WITH| 000018D0: 20 41 20 C4 C2 2E 5C 00 93 20 20 20 20 20 20 20 | A ...\.. | 000018E0: 20 20 20 20 20 C5 52 52 4F 52 20 C3 48 45 43 4B | .RROR .HECK| 000018F0: 49 4E 47 5C 20 20 20 20 20 20 20 20 20 20 20 20 |ING\ | 00001900: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 5C C5 |..............\.| 00001910: 41 43 48 20 4F 46 20 54 48 45 20 D2 D0 C7 20 52 |ACH OF THE ... R| 00001920: 4F 55 54 49 4E 45 53 20 52 45 54 55 52 4E 20 41 |OUTINES RETURN A| 00001930: 20 45 52 52 4F 52 5C 56 41 4C 55 45 20 49 4E 20 | ERROR\VALUE IN | 00001940: 54 48 45 20 56 41 52 49 41 42 4C 45 20 27 C7 C5 |THE VARIABLE '..| 00001950: 27 2E 20 20 D9 4F 55 20 53 48 4F 55 4C 44 5C 41 |'. .OU SHOULD\A| 00001960: 4C 57 41 59 53 20 43 48 45 43 4B 20 54 48 45 20 |LWAYS CHECK THE | 00001970: 56 41 4C 55 45 20 4F 46 20 27 C7 C5 27 20 41 46 |VALUE OF '..' AF| 00001980: 54 45 52 5C 43 41 4C 4C 49 4E 47 20 41 4E 59 20 |TER\CALLING ANY | 00001990: D2 D0 C7 20 52 4F 55 54 49 4E 45 2E 20 20 C9 46 |... ROUTINE. .F| 000019A0: 20 54 48 45 20 56 41 4C 55 45 5C 49 53 20 30 20 | THE VALUE\IS 0 | 000019B0: 54 48 45 4E 20 4E 4F 20 45 52 52 4F 52 53 20 4F |THEN NO ERRORS O| 000019C0: 43 55 52 52 45 44 2E 20 20 C9 46 20 54 48 45 5C |CURRED. .F THE\| 000019D0: 56 41 4C 55 45 20 49 53 20 47 52 45 41 54 45 52 |VALUE IS GREATER| 000019E0: 20 4F 52 20 45 51 55 41 4C 20 54 4F 20 32 30 20 | OR EQUAL TO 20 | 000019F0: 54 48 45 4E 5C 41 20 C4 CF D3 20 28 44 49 53 4B |THEN\A ... (DISK| 00001A00: 29 20 45 52 52 4F 52 20 48 41 53 20 4F 43 43 55 |) ERROR HAS OCCU| 00001A10: 52 52 45 44 2E 20 20 D9 4F 55 5C 43 41 4E 20 46 |RRED. .OU\CAN F| 00001A20: 49 4E 44 20 54 48 45 20 4D 45 41 4E 49 4E 47 20 |IND THE MEANING | 00001A30: 4F 46 20 54 48 45 53 45 20 4E 55 4D 42 45 52 53 |OF THESE NUMBERS| 00001A40: 5C 49 4E 20 59 4F 55 52 20 44 49 53 4B 20 4D 41 |\IN YOUR DISK MA| 00001A50: 4E 55 41 4C 2E 5C 5C C9 46 20 54 48 45 20 56 41 |NUAL.\\.F THE VA| 00001A60: 4C 55 45 20 4F 46 20 C7 C5 20 49 53 20 42 45 54 |LUE OF .. IS BET| 00001A70: 57 45 45 4E 20 31 20 41 4E 44 20 31 39 5C 54 48 |WEEN 1 AND 19\TH| 00001A80: 45 4E 20 49 54 20 49 53 20 41 4E 20 D2 D0 C7 20 |EN IT IS AN ... | 00001A90: 45 52 52 4F 52 2E 20 20 D4 48 45 53 45 20 41 52 |ERROR. .HESE AR| 00001AA0: 45 5C 4C 49 53 54 45 44 20 42 45 4C 4F 57 3A 5C |E\LISTED BELOW:\| 00001AB0: 5C C7 C5 3D 31 20 20 3D 3D 3E 20 20 D4 48 45 20 |\..=1 ==> .HE | 00001AC0: C4 C2 20 4F 52 20 C3 4F 4C 4C 45 43 54 49 4F 4E |.. OR .OLLECTION| 00001AD0: 20 4E 41 4D 45 20 49 53 5C 20 20 20 20 20 20 20 | NAME IS\ | 00001AE0: 20 20 20 20 54 4F 4F 20 4C 4F 4E 47 2E 20 28 CD | TOO LONG. (.| 00001AF0: 41 58 20 31 31 20 43 48 41 52 53 29 5C 52 45 54 |AX 11 CHARS)\RET| 00001B00: 55 52 4E 45 44 20 42 59 20 27 CF 50 45 4E 20 43 |URNED BY '.PEN C| 00001B10: 4F 4C 4C 2E 27 20 4F 52 20 27 CF 50 45 4E 20 C4 |OLL.' OR '.PEN .| 00001B20: C2 27 5C 5C C7 C5 3D 32 20 20 3D 3D 3E 20 20 D4 |.'\\..=2 ==> .| 00001B30: 48 45 20 43 4F 4C 4C 45 43 54 49 4F 4E 20 41 4E |HE COLLECTION AN| 00001B40: 44 20 54 48 45 20 C4 C2 5C 20 20 20 20 20 20 20 |D THE ..\ | 00001B50: 20 20 20 20 41 52 45 20 4E 4F 54 20 41 53 53 4F | ARE NOT ASSO| 00001B60: 43 49 41 54 45 44 2E 20 20 D4 48 45 59 5C 20 20 |CIATED. .HEY\ | 00001B70: 20 20 20 20 20 20 20 20 20 53 48 4F 55 4C 44 20 | SHOULD | 00001B80: 42 45 20 21 21 5C 52 45 54 55 52 4E 45 44 20 42 |BE !!\RETURNED B| 00001B90: 59 20 27 CF 50 45 4E 20 43 4F 4C 4C 45 43 54 49 |Y '.PEN COLLECTI| 00001BA0: 4F 4E 27 2E 5C 00 93 5C 5C C7 C5 3D 33 20 20 3D |ON'.\..\\..=3 =| 00001BB0: 3D 3E 20 20 D4 48 45 20 52 45 51 55 45 53 54 45 |=> .HE REQUESTE| 00001BC0: 44 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 5C |D RECORD NUMBER\| 00001BD0: 20 20 20 20 20 20 20 20 20 20 20 28 C7 C9 29 20 | (..) | 00001BE0: 49 53 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 2E |IS OUT OF RANGE.| 00001BF0: 5C 20 20 20 20 20 20 20 20 20 20 20 CE 4F 54 45 |\ .OTE| 00001C00: 3A 20 31 20 3C 3D 20 C7 C9 20 3C 3D 20 C7 CE 5C |: 1 <= .. <= ..\| 00001C10: 52 45 54 55 52 4E 45 44 20 42 59 20 27 D2 45 41 |RETURNED BY '.EA| 00001C20: 44 20 D2 45 43 4F 52 44 27 2E 5C 5C C7 C5 3D 34 |D .ECORD'.\\..=4| 00001C30: 20 20 3D 3D 3E 20 20 C4 C2 20 41 4C 52 45 41 44 | ==> .. ALREAD| 00001C40: 59 20 4F 50 45 4E 2E 5C 52 45 54 55 52 4E 45 44 |Y OPEN.\RETURNED| 00001C50: 20 42 59 20 27 CF 50 45 4E 20 C4 C2 27 2E 5C 5C | BY '.PEN ..'.\\| 00001C60: C7 C5 3D 35 20 20 3D 3D 3E 20 20 C3 4F 4C 4C 45 |..=5 ==> .OLLE| 00001C70: 43 54 49 4F 4E 20 41 4C 52 45 41 44 59 20 4F 50 |CTION ALREADY OP| 00001C80: 45 4E 2E 5C 52 45 54 55 52 4E 45 44 20 42 59 20 |EN.\RETURNED BY | 00001C90: 27 CF 50 45 4E 20 43 4F 4C 4C 45 43 54 49 4F 4E |'.PEN COLLECTION| 00001CA0: 27 2E 5C 5C C7 C5 3D 36 20 20 3D 3D 3E 20 20 CE |'.\\..=6 ==> .| 00001CB0: 4F 20 C4 C2 20 4F 50 45 4E 2E 5C 52 45 54 55 52 |O .. OPEN.\RETUR| 00001CC0: 4E 45 44 20 42 59 20 27 CF 50 45 4E 20 43 4F 4C |NED BY '.PEN COL| 00001CD0: 2E 27 2E 5C 5C C7 C5 3D 37 20 20 3D 3D 3E 20 20 |.'.\\..=7 ==> | 00001CE0: C3 4F 4C 4C 45 43 54 49 4F 4E 20 53 54 49 4C 4C |.OLLECTION STILL| 00001CF0: 20 4F 50 45 4E 2E 5C 52 45 54 55 52 4E 45 44 20 | OPEN.\RETURNED | 00001D00: 42 59 20 27 C3 4C 4F 53 45 20 C4 C2 27 2E 5C 00 |BY '.LOSE ..'.\.| 00001D10: 93 20 20 20 20 20 20 20 20 20 20 20 20 20 D0 41 |. .A| 00001D20: 52 54 49 4E 47 20 52 45 4D 41 52 4B 53 5C 20 20 |RTING REMARKS\ | 00001D30: 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 | ......| 00001D40: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 5C 5C C9 46 20 59 |..........\\.F Y| 00001D50: 4F 55 20 41 52 45 20 53 54 49 4C 4C 20 41 20 42 |OU ARE STILL A B| 00001D60: 49 54 20 43 4F 4E 46 55 53 45 44 20 41 42 4F 55 |IT CONFUSED ABOU| 00001D70: 54 5C 48 4F 57 20 54 4F 20 55 53 45 20 54 48 45 |T\HOW TO USE THE| 00001D80: 20 52 45 50 4F 52 54 20 47 45 4E 45 52 41 54 4F | REPORT GENERATO| 00001D90: 52 2C 20 46 45 41 52 5C 4E 4F 54 2C 20 54 48 45 |R, FEAR\NOT, THE| 00001DA0: 52 45 20 49 53 20 41 20 57 45 4C 4C 20 43 4F 4D |RE IS A WELL COM| 00001DB0: 4D 45 4E 54 45 44 20 50 52 4F 47 52 41 4D 5C 4F |MENTED PROGRAM\O| 00001DC0: 4E 20 54 48 49 53 20 44 49 53 4B 20 4E 41 4D 45 |N THIS DISK NAME| 00001DD0: 44 20 27 52 50 47 20 45 58 41 4D 50 4C 45 27 20 |D 'RPG EXAMPLE' | 00001DE0: 57 48 49 43 48 5C 44 45 4D 4F 4E 53 54 52 41 54 |WHICH\DEMONSTRAT| 00001DF0: 45 53 20 54 48 45 20 55 53 45 20 4F 46 20 54 48 |ES THE USE OF TH| 00001E00: 45 53 45 20 52 4F 55 54 49 4E 45 53 2E 5C 5C D2 |ESE ROUTINES.\\.| 00001E10: D0 C7 20 C5 D8 C1 CD D0 CC C5 20 49 53 20 41 20 |.. ....... IS A | 00001E20: 50 52 4F 47 52 41 4D 20 54 48 41 54 20 41 43 43 |PROGRAM THAT ACC| 00001E30: 45 53 53 45 53 5C 52 45 43 4F 52 44 53 20 46 52 |ESSES\RECORDS FR| 00001E40: 4F 4D 20 54 48 45 20 C4 C2 20 27 43 48 45 51 55 |OM THE .. 'CHEQU| 00001E50: 45 53 27 20 54 48 52 4F 55 47 48 5C 54 48 45 20 |ES' THROUGH\THE | 00001E60: 43 4F 4C 4C 45 43 54 49 4F 4E 53 20 27 46 45 42 |COLLECTIONS 'FEB| 00001E70: 20 43 48 45 43 4B 53 27 20 41 4E 44 20 27 4D 41 | CHECKS' AND 'MA| 00001E80: 52 20 5C 43 48 45 43 4B 53 27 2E 20 20 D4 48 45 |R \CHECKS'. .HE| 00001E90: 20 50 52 4F 47 52 41 4D 20 50 52 49 4E 54 53 20 | PROGRAM PRINTS | 00001EA0: 4F 55 54 20 54 48 45 53 45 5C 52 45 43 4F 52 44 |OUT THESE\RECORD| 00001EB0: 53 20 41 4E 44 20 41 4C 53 4F 20 44 4F 45 53 20 |S AND ALSO DOES | 00001EC0: 53 4F 4D 45 20 43 41 4C 43 55 4C 41 54 49 4F 4E |SOME CALCULATION| 00001ED0: 53 5C 57 49 54 48 20 54 48 45 20 44 41 54 41 2E |S\WITH THE DATA.| 00001EE0: 5C 5C D9 4F 55 20 53 48 4F 55 4C 44 20 46 49 52 |\\.OU SHOULD FIR| 00001EF0: 53 54 20 55 53 45 20 54 48 45 20 C7 4F 4C 44 20 |ST USE THE .OLD | 00001F00: C4 49 53 4B 20 C4 C2 CD D3 5C 46 52 4F 4D 20 D6 |.ISK ....\FROM .| 00001F10: 4F 4C 2E 20 31 20 28 C4 45 43 20 38 34 29 20 54 |OL. 1 (.EC 84) T| 00001F20: 4F 20 45 58 41 4D 49 4E 45 20 54 48 45 20 C4 C2 |O EXAMINE THE ..| 00001F30: 5C 27 43 48 45 51 55 45 53 27 20 4F 4E 20 54 48 |\'CHEQUES' ON TH| 00001F40: 49 53 20 44 49 53 4B 20 28 D6 4F 4C 20 33 29 20 |IS DISK (.OL 3) | 00001F50: 41 4E 44 20 54 48 45 4E 5C 4C 4F 41 44 20 41 4E |AND THEN\LOAD AN| 00001F60: 44 20 52 55 4E 20 54 48 45 20 27 52 50 47 20 45 |D RUN THE 'RPG E| 00001F70: 58 41 4D 50 4C 45 27 20 50 52 4F 47 52 41 4D 2E |XAMPLE' PROGRAM.| 00001F80: 5C D9 4F 55 20 43 41 4E 2C 20 4F 46 20 43 4F 55 |\.OU CAN, OF COU| 00001F90: 52 53 45 2C 20 4C 49 53 54 20 54 48 49 53 20 50 |RSE, LIST THIS P| 00001FA0: 52 4F 47 52 41 4D 5C 54 4F 20 53 45 45 20 48 4F |ROGRAM\TO SEE HO| 00001FB0: 57 20 49 54 20 4D 41 4B 45 53 20 55 53 45 20 4F |W IT MAKES USE O| 00001FC0: 46 20 54 48 45 20 D2 D0 C7 2E 5C 00 |F THE ....\. |
.0....0.!P. P.. R... R...0 .0 A0 ..I...I
_P... R.L..I^P...0..8....0L.0I P...0I..P
I...0L.0IPPD.. ..... . .. .... I... R. R
...0 .0 ..L.0..0....0........I\P... R...
P...P.`...0 3B5H8";.=P@.B.G.DVH.K.M.. ..
...U0.. R.HP.` .<SPC> NEXT SCRN; <^> PR
EV SCRN; <_> GD.... THE GOLD DISK RE
PORT GENERATOR\ ....................
..........\\AS PROMISED IN VOL. 2, THIS
ISSUE\CONTAINS A REPORT GENERATOR FOR TH
E\GOLD DISK DATABASE SYSTEM. THIS REPOR
T\GENERATOR CONSISTS OF FIVE BASIC\S
UBROUTINES THAT CAN BE USED BY A USER\WR
ITTEN PROGRAM TO ACCESS RECORDS FROM\THE
DATABASE.\\THIS SCHEME ALLOWS FOR A WID
E VARIETY\OF APPLICATIONS COMBINED WITH
EASE OF\USE.\\OVER THE FOLLOWING SCREENS
, WE WILL\EXPLAIN HOW TO USE THESE ROUTI
NES. TO\FURTHER ILLUSTRATE THEIR USE, T
HERE ARE\EXAMPLE PROGRAMS IN THIS ISSUE
WHICH\YOU CAN LIST.\\YOU CAN GET A PRINT
OUT OF THESE \INSTRUCTIONS BY PRESSING T
HE 'P' KEY\ON THE KEYBOARD TO PRINT EACH
SCREEN.\.. USING THE REPORT GENERA
TOR.\ ...........................\\
TO USE THE REPORT GENERATOR, TAKE THE\FO
LLOWING STEPS:\\ 1. USING THE GOLD DIS
K DBMS, CREATE\ A COLLECTION OF THO
SE ITEMS THAT\ ARE NEEDED IN YOUR R
EPORT.\\ 2. SAVE THIS COLLECTION ON DI
SK.\ NOTE: THIS IS DONE VIA THE F6
KEY\ IN THE BUILD SECTION.\\
3. EXIT OUT OF THE GOLD DISK SYSTEM\
TO BASIC.\\ 4. INSERT VOL. 3 IN DR
IVE AND TYPE:\\ LOAD"REPORT GEN
ERATOR",8\\THIS WILL LOAD THE REPORT GEN
ERATOR\ROUTINES INTO THE COMPUTER.\..WHE
N YOU LIST THIS PROGRAM, YOU WILL\FIND T
HAT THE FIRST LINE NO. IS 60000.\\THUS Y
OU CAN WRITE YOUR OWN PROGRAM\BETWEEN LI
NES 1 AND 59999. THIS PROGRAM\MAY USE TH
E REPORT GENERATOR ROUTINES\TO ACCESS RE
CORDS IN A DATABASE.\\YOUR PROGRAM SHOUL
D NOT USE VARIABLE\NAMES THAT START WITH
THE LETTER 'G',\SINCE THESE ARE USED BY
THE REPORT\GENERATOR ROUTINES. FURTHER
MORE, THESE\ROUTINES ALSO OPEN THE FOLLO
WING TWO\FILES TO THE DISK:\\ FILE #12
7, CHANNEL 15 (COMMAND)\
AND\ FILE #126, CHANNEL 14 (FOR DATA)
\\THUS YOU SHOULD NOT USE THESE FILE #S\
IN ANY OPEN OR CLOSE STATEMENTS IN YOUR\
PROGRAM. YOU MAY USE FILE# 127 TO READ\
OR WRITE TO THE COMMAND CHANNEL.\.. THE
REPORT GENERATOR (RPG) ROUTINES\ .....
..............................\THERE ARE
FIVE SUBROUTINES IN ALL. IN\THE FOLLOW
ING SECTION, WE WILL DESCRIBE\WHAT EACH
SUBROUTINE DOES AND HOW TO \USE IT.\\.1.
OPEN DB.\THIS SUBROUTINE STARTS AT LINE
60000.\IT IS USED TO OPEN THE DATABASE
FROM\WHICH YOU WISH TO ACCESS DATA. IT
MUST\BE CALLED BEFORE ANY OTHER RPG ROUT
INE.\TO USE IT, JUST STORE THE NAME OF T
HE\DATABASE IN THE VARIABLE 'GD$' AND DO
\A GOSUB TO LINE 60000. EXAMPLE:\\
100 GD$="CHEQUES"\ 110 G
OSUB 60000\\THE ABOVE TWO LINES WILL OPE
N THE DB\'CHEQUES' FOR ACCESS. NOTE THA
T YOU\SHOULD HAVE THE DISK CONTAINING TH
E DB\IN THE DRIVE BEFORE YOU EXECUTE THI
S\ROUTINE.\...2. OPEN COLLECTION.\THIS S
UBROUTINE STARTS AT LINE 60500.\IT IS US
ED TO OPEN THE COLLECTION THAT\YOU SAVED
WHILE IN THE GOLD DISK DBMS.\NOTE THAT
YOU CAN ONLY ACCESS THOSE\RECORDS IN THE
DB THAT ARE IN THE\COLLECTION. THIS ROU
TINE MUST BE CALLED\AFTER THE 'OPEN DB'
ROUTINE, AND BEFORE\THE 'READ RECORD' RO
UTINE.\\TO USE THIS ROUTINE, JUST STORE
THE\NAME OF THE COLLECTION IN 'GC$' AND
DO\A GOSUB 60500. EXAMPLE :\\ 120
GC$="FEB CHECKS"\ 130 GOSUB 60500
\\ONCE YOU'VE OPENED THE COLLECTION, YOU
\CAN READ RECORDS FROM IT BY USING THE\'
READ RECORD' ROUTINE. AFTER YOU HAVE\FI
NISHED WITH THE CURRENT COLLECTION,\YOU
CAN CLOSE IT AND THEN OPEN ANOTHER\ONE F
ROM THE SAME DB AND ACCESS IT.\...3. REA
D RECORD.\..............\\THIS SUBROUTIN
E STARTS AT LINE 61000.\IT IS USED TO RE
AD RECORDS FROM THE\COLLECTION. IT CAN O
NLY BE CALLED AFTER\THE DB AND A ASSOCIA
TED COLLECTION HAVE\BEEN OPENED.\\TO USE
THIS ROUTINE, SET THE VARIABLE\'GI' TO
THE RECORD NUMBER YOU WANT TO\READ AND D
O A GOSUB 61000. EXAMPLE:\\
140 GI=5\ 150 GOSUB 61000\\TH
IS WILL READ THE FIFTH RECORD IN THE\COL
LECTION FROM THE DB. THE TOTAL NO.\OF RE
CORDS IN THE COLLECTION IS GIVEN\BY THE
VARIABLE 'GN' WHICH IS SET BY\THE 'OPEN
COLLECTION' (60500) ROUTINE.\YOU SHOULD
NEVER TRY TO READ A RECORD\GREATER THAN
THE VALUE OF GN.\..THE 'READ RECORD' ROU
TINE STORES THE\CONTENTS OF THE RECORD I
N THE STRING\ARRAY GF$. EACH ELEMENT OF
THE ARRAY\CONTAINS A FIELD FROM THE REC
ORD. THUS\GF$(1) WOULD CONTAIN THE VALU
E OF THE\FIRST FIELD IN THE RECORD.\\FIE
LDS ARE NUMBERED BY THEIR ORDER OF\APPEA
RANCE ON SCREEN. THUS IF YOU ARE\LOOKIN
G AT RECORDS IN YOUR DB (BY USING\THE GO
LD DISK DBMS, OF COURSE), FIELD\NUMBER O
NE WOULD BE THE FIRST FIELD\ENCOUNTERED
AS YOU SCAN THE SCREEN FROM\LEFT TO RIGH
T, TOP TO BOTTOM; NUMBER 2\WOULD BE THE
SECOND FIELD ENCOUNTERED;\AND SO ON...\\
THE TOTAL NUMBER OF FIELDS IN A RECORD\I
S GIVEN BY THE VALUE OF THE VARIABLE\'GF
'. THIS VARIABLE IS SET BY THE\'OPEN DB
' ROUTINE.\...4. CLOSE COLLECTION.\.....
..............\\THIS CLOSES THE COLLECTI
ON CURRENTLY\OPEN. ONCE THIS ROUTINE HA
S BEEN\EXECUTED, YOU CAN NO LONGER ACCES
S ANY\RECORDS UNLESS YOU OPEN ANOTHER
\COLLECTION.\\TO USE THIS ROUTINE JUST D
O A\GOSUB 62000. EXAMPLE:\\ 20
0 GOSUB 62000\.. VARIABLES OF INTER
EST\ ......................\THE FOL
LOWING IS A LIST OF SOME OF THE\VARIABLE
S USED BY THE RPG ROUTINES AND\THEIR SIG
NIFICANCE.\GD$....NAME OF DATABASE. SET
BY USER.\GC$....NAME OF COLLECTION. SET
BY USER.\GN ....NUMBER OF ITEMS IN COLLE
CTION.\ SET BY 'OPEN COLLECTION'.\
GF ....NUMBER OF FIELDS IN EACH RECORD.\
SET BY 'OPEN DB'.\GF$....ARRAY OF
DIMENSION GF. CONTAINS\ FIELD VAL
UES.\ SET BY 'READ RECORD'.\GT ...
.ARRAY OF DIMENSION GF. CONTAINS\
THE LENGTH OF EACH FIELD.\ SET BY
'OPEN DB'.\GI ....RECORD NUMBER TO BE RE
AD.\ SET BY USER.\GE ....ERROR FLA
G. MORE ON THIS LATER.\\WARNING: YOUR P
ROGRAM SHOULD NOT CHANGE\THE VALUE OF AN
Y OF THE ABOVE VARIABLES\UNLESS THEY ARE
'SET BY USER'.\...5. CLOSE DB.\........
...\THIS ROUTINE IS LOCATED AT LINE 6250
0.\IT IS USED TO CLOSE THE CURRENTLY OPE
N\DB. THE CURRENT COLLECTION MUST BE\CL
OSED BEFORE THIS ROUTINE IS CALLED.\ONCE
THIS ROUTINE IS CALLED, YOU CAN NO\LONG
ER ACCESS ANY RECORDS FROM THAT DB\OR OP
EN ANY OTHER COLLECTIONS, UNLESS\YOU FIR
ST OPEN A DB.\\TO USE THIS ROUTINE JUST
DO A\GOSUB 62500. EXAMPLE : \
210 GOSUB 62500\\THIS ROUTINE MUST BE C
ALLED WHEN YOU\ARE FINISHED WITH A DB.\.
. ERROR CHECKING\
..............\EACH OF THE RPG ROUTINES
RETURN A ERROR\VALUE IN THE VARIABLE 'GE
'. YOU SHOULD\ALWAYS CHECK THE VALUE OF
'GE' AFTER\CALLING ANY RPG ROUTINE. IF
THE VALUE\IS 0 THEN NO ERRORS OCURRED.
IF THE\VALUE IS GREATER OR EQUAL TO 20
THEN\A DOS (DISK) ERROR HAS OCCURRED. Y
OU\CAN FIND THE MEANING OF THESE NUMBERS
\IN YOUR DISK MANUAL.\\IF THE VALUE OF G
E IS BETWEEN 1 AND 19\THEN IT IS AN RPG
ERROR. THESE ARE\LISTED BELOW:\\GE=1 =
=> THE DB OR COLLECTION NAME IS\
TOO LONG. (MAX 11 CHARS)\RETURNED BY
'OPEN COLL.' OR 'OPEN DB'\\GE=2 ==> T
HE COLLECTION AND THE DB\ ARE
NOT ASSOCIATED. THEY\ SHOULD
BE !!\RETURNED BY 'OPEN COLLECTION'.\..\
\GE=3 ==> THE REQUESTED RECORD NUMBER\
(GI) IS OUT OF RANGE.\
NOTE: 1 <= GI <= GN\RETURNED BY 'REA
D RECORD'.\\GE=4 ==> DB ALREADY OPEN.\
RETURNED BY 'OPEN DB'.\\GE=5 ==> COLLE
CTION ALREADY OPEN.\RETURNED BY 'OPEN CO
LLECTION'.\\GE=6 ==> NO DB OPEN.\RETUR
NED BY 'OPEN COL.'.\\GE=7 ==> COLLECTI
ON STILL OPEN.\RETURNED BY 'CLOSE DB'.\.
. PARTING REMARKS\
................\\IF YOU ARE STILL A B
IT CONFUSED ABOUT\HOW TO USE THE REPORT
GENERATOR, FEAR\NOT, THERE IS A WELL COM
MENTED PROGRAM\ON THIS DISK NAMED 'RPG E
XAMPLE' WHICH\DEMONSTRATES THE USE OF TH
ESE ROUTINES.\\RPG EXAMPLE IS A PROGRAM
THAT ACCESSES\RECORDS FROM THE DB 'CHEQU
ES' THROUGH\THE COLLECTIONS 'FEB CHECKS'
AND 'MAR \CHECKS'. THE PROGRAM PRINTS
OUT THESE\RECORDS AND ALSO DOES SOME CAL
CULATIONS\WITH THE DATA.\\YOU SHOULD FIR
ST USE THE GOLD DISK DBMS\FROM VOL. 1 (D
EC 84) TO EXAMINE THE DB\'CHEQUES' ON TH
IS DISK (VOL 3) AND THEN\LOAD AND RUN TH
E 'RPG EXAMPLE' PROGRAM.\YOU CAN, OF COU
RSE, LIST THIS PROGRAM\TO SEE HOW IT MAK
ES USE OF THE RPG.\.
> CLICK IMAGE PREVIEW FOR FULL MODAL