T.CATMEISTER 128
FILE INFORMATION
FILENAME(S): T.CATMEISTER 128
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-12-01 19:06:46
APPEARS ON: 1 disk(s)
FILE HASH
0ea8ebf6cd48a24ba325793df6ac16f07e3a6ffc15b12beaacbde0a376893e23
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LS 128 17 S 1 | T.CATMEISTER 128 | PRG | Icebreaker | 11 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000010: 20 20 20 20 20 20 20 DA 20 C5 20 D2 20 CF 20 20 | . . . . | 00000020: 20 20 D0 20 C1 20 C7 20 C5 20 3A 20 C3 C1 D4 CD | . . . . : ....| 00000030: C5 C9 D3 D4 C5 D2 20 31 32 38 0D 0D 20 20 20 20 |...... 128.. | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 20 20 20 20 20 20 20 20 20 20 42 59 20 C6 45 | BY .E| 00000060: 4E 44 45 52 20 D4 55 43 4B 45 52 0D 0D 0D 20 20 |NDER .UCKER... | 00000070: 20 20 20 D4 48 49 53 20 44 4F 45 53 4E 27 54 20 | .HIS DOESN'T | 00000080: 52 45 41 4C 4C 59 20 44 45 53 45 52 56 45 20 54 |REALLY DESERVE T| 00000090: 4F 20 42 45 20 43 41 4C 4C 45 44 20 C3 C1 D4 CD |O BE CALLED ....| 000000A0: C5 C9 D3 D4 C5 D2 20 42 45 43 41 55 53 45 20 CA |...... BECAUSE .| 000000B0: 45 46 46 20 CA 4F 4E 45 53 27 0D 50 52 4F 47 52 |EFF .ONES'.PROGR| 000000C0: 41 4D 20 4F 46 20 54 48 45 20 53 41 4D 45 20 4E |AM OF THE SAME N| 000000D0: 41 4D 45 20 46 4F 52 20 54 48 45 20 36 34 20 4D |AME FOR THE 64 M| 000000E0: 4F 44 45 20 49 53 20 4D 55 43 48 20 4D 4F 52 45 |ODE IS MUCH MORE| 000000F0: 20 45 4C 45 47 41 4E 54 2E 20 20 C8 4F 57 45 56 | ELEGANT. .OWEV| 00000100: 45 52 2C 0D 54 48 49 53 20 4C 49 54 54 4C 45 20 |ER,.THIS LITTLE | 00000110: C2 C1 D3 C9 C3 20 52 4F 55 54 49 4E 45 20 49 53 |..... ROUTINE IS| 00000120: 20 53 4F 20 48 41 4E 44 59 20 C9 20 57 41 4E 54 | SO HANDY . WANT| 00000130: 45 44 20 54 4F 20 50 41 53 53 20 49 54 20 41 52 |ED TO PASS IT AR| 00000140: 4F 55 4E 44 20 54 4F 20 41 4E 59 0D 50 52 4F 47 |OUND TO ANY.PROG| 00000150: 52 41 4D 4D 45 52 20 57 48 4F 20 50 4C 41 4E 53 |RAMMER WHO PLANS| 00000160: 20 54 4F 20 53 55 42 4D 49 54 20 41 20 50 52 4F | TO SUBMIT A PRO| 00000170: 47 52 41 4D 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 |GRAM TO ........| 00000180: 20 31 32 38 2E 0D 0D 20 20 20 20 20 C8 45 52 45 | 128... .ERE| 00000190: 27 53 20 57 48 41 54 20 49 54 20 44 4F 45 53 2E |'S WHAT IT DOES.| 000001A0: 20 20 D9 4F 55 20 48 41 56 45 20 41 20 50 52 4F | .OU HAVE A PRO| 000001B0: 47 52 41 4D 20 54 48 41 54 20 4C 4F 41 44 53 20 |GRAM THAT LOADS | 000001C0: 41 4E 44 20 53 41 56 45 53 20 46 49 4C 45 53 2E |AND SAVES FILES.| 000001D0: 20 0D C9 4E 20 54 48 45 20 4F 4C 44 20 44 41 59 | ..N THE OLD DAY| 000001E0: 53 20 54 48 45 20 50 52 4F 47 52 41 4D 20 57 4F |S THE PROGRAM WO| 000001F0: 55 4C 44 20 41 53 4B 20 46 4F 52 20 41 20 46 49 |ULD ASK FOR A FI| 00000200: 4C 45 4E 41 4D 45 20 46 4F 52 20 59 4F 55 20 54 |LENAME FOR YOU T| 00000210: 4F 20 54 59 50 45 20 49 4E 2E 20 0D D7 45 4C 4C |O TYPE IN. ..ELL| 00000220: 2C 20 4F 46 20 43 4F 55 52 53 45 2C 20 4E 4F 20 |, OF COURSE, NO | 00000230: 4F 4E 45 20 43 41 4E 20 52 45 4D 45 4D 42 45 52 |ONE CAN REMEMBER| 00000240: 20 41 20 46 49 4C 45 4E 41 4D 45 2C 20 53 4F 20 | A FILENAME, SO | 00000250: 4D 4F 44 45 52 4E 20 50 52 4F 47 52 41 4D 53 20 |MODERN PROGRAMS | 00000260: 47 49 56 45 20 59 4F 55 0D 41 20 4C 49 53 54 20 |GIVE YOU.A LIST | 00000270: 4F 46 20 52 45 4C 45 56 41 4E 54 20 46 49 4C 45 |OF RELEVANT FILE| 00000280: 53 20 46 4F 52 20 59 4F 55 20 54 4F 20 43 48 4F |S FOR YOU TO CHO| 00000290: 4F 53 45 20 46 52 4F 4D 20 57 49 54 48 20 41 20 |OSE FROM WITH A | 000002A0: 48 49 47 48 4C 49 47 48 54 20 42 41 52 2E 20 0D |HIGHLIGHT BAR. .| 000002B0: D4 48 41 54 27 53 20 57 48 41 54 20 C3 C1 D4 CD |.HAT'S WHAT ....| 000002C0: C5 C9 D3 D4 C5 D2 20 31 32 38 20 44 4F 45 53 2E |...... 128 DOES.| 000002D0: 0D 0D C9 CD D0 CF D2 D4 C1 CE D4 21 21 21 20 20 |...........!!! | 000002E0: C3 C1 D4 CD C5 C9 D3 D4 C5 D2 20 4F 4E 4C 59 20 |.......... ONLY | 000002F0: 57 4F 52 4B 53 20 57 49 54 48 20 C3 CF CE D4 D2 |WORKS WITH .....| 00000300: CF CC 20 38 30 2C 20 CA 4F 4E 20 CD 41 54 54 53 |.. 80, .ON .ATTS| 00000310: 4F 4E 27 53 20 53 55 50 45 52 42 0D C2 C1 D3 C9 |ON'S SUPERB.....| 00000320: C3 20 48 45 4C 50 20 50 52 4F 47 52 41 4D 20 46 |. HELP PROGRAM F| 00000330: 52 4F 4D 20 CC CF C1 C4 D3 D4 C1 D2 20 31 32 38 |ROM ........ 128| 00000340: 20 23 31 30 2E 20 20 C9 20 50 4C 41 4E 20 54 4F | #10. . PLAN TO| 00000350: 20 55 53 45 20 C3 CF CE D4 D2 CF CC 20 38 30 20 | USE ....... 80 | 00000360: 49 4E 20 41 4C 4C 0D 4F 46 20 4D 59 20 38 30 2D |IN ALL.OF MY 80-| 00000370: 43 4F 4C 55 4D 4E 20 50 52 4F 47 52 41 4D 53 20 |COLUMN PROGRAMS | 00000380: 41 4E 44 20 49 4E 20 54 48 45 20 57 4F 52 44 53 |AND IN THE WORDS| 00000390: 20 4F 46 20 54 48 45 20 45 44 49 54 4F 52 20 4F | OF THE EDITOR O| 000003A0: 46 20 CC CF C1 C4 D3 D4 C1 D2 20 31 32 38 2C 20 |F ........ 128, | 000003B0: 59 4F 55 0D 53 48 4F 55 4C 44 2C 20 54 4F 4F 2E |YOU.SHOULD, TOO.| 000003C0: 0D 0D 20 20 20 20 20 D2 55 4E 20 54 48 49 53 20 |.. .UN THIS | 000003D0: 50 52 4F 47 52 41 4D 20 41 4E 44 20 41 4C 4C 20 |PROGRAM AND ALL | 000003E0: 59 4F 55 27 4C 4C 20 53 45 45 20 49 53 20 41 20 |YOU'LL SEE IS A | 000003F0: 44 49 52 45 43 54 4F 52 59 20 53 43 52 4F 4C 4C |DIRECTORY SCROLL| 00000400: 49 4E 47 20 49 4E 20 41 0D 57 49 4E 44 4F 57 20 |ING IN A.WINDOW | 00000410: 49 4E 20 54 48 45 20 4D 49 44 44 4C 45 20 4F 46 |IN THE MIDDLE OF| 00000420: 20 54 48 45 20 53 43 52 45 45 4E 2E 20 20 D0 52 | THE SCREEN. .R| 00000430: 45 53 53 20 54 48 45 20 D3 D4 CF D0 20 4B 45 59 |ESS THE .... KEY| 00000440: 20 54 4F 20 53 54 4F 50 20 54 48 45 0D 53 43 52 | TO STOP THE.SCR| 00000450: 4F 4C 4C 49 4E 47 2E 20 20 D4 48 45 4E 20 4D 4F |OLLING. .HEN MO| 00000460: 56 45 20 54 48 45 20 48 49 47 48 4C 49 47 48 54 |VE THE HIGHLIGHT| 00000470: 20 42 41 52 20 57 49 54 48 20 54 48 45 20 C3 D2 | BAR WITH THE ..| 00000480: D3 D2 20 D5 D0 2F C4 CF D7 CE 20 4B 45 59 2E 20 |.. ../.... KEY. | 00000490: 20 D4 48 45 4E 0D 42 52 45 41 4B 20 4F 55 54 20 | .HEN.BREAK OUT | 000004A0: 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D 20 57 |OF THE PROGRAM W| 000004B0: 49 54 48 20 D2 D5 CE 2F D3 D4 CF D0 2D D2 C5 D3 |ITH .../....-...| 000004C0: D4 CF D2 C5 20 53 4F 20 59 4F 55 20 43 41 4E 20 |.... SO YOU CAN | 000004D0: 4C 49 53 54 20 54 48 45 20 43 4F 44 45 2E 20 20 |LIST THE CODE. | 000004E0: C1 53 0D 59 4F 55 20 43 41 4E 20 53 45 45 2C 20 |.S.YOU CAN SEE, | 000004F0: 49 54 27 53 20 4E 4F 54 20 41 20 42 49 47 20 53 |IT'S NOT A BIG S| 00000500: 55 42 52 4F 55 54 49 4E 45 2E 0D 0D 20 20 20 20 |UBROUTINE... | 00000510: 20 CC 49 4E 45 53 20 32 2C 20 35 20 31 30 20 41 | .INES 2, 5 10 A| 00000520: 4E 44 20 31 31 20 4C 4F 41 44 20 41 4E 44 20 53 |ND 11 LOAD AND S| 00000530: 45 54 20 55 50 20 C3 CF CE D4 D2 CF CC 20 38 30 |ET UP ....... 80| 00000540: 2E 0D 0D 20 20 20 20 20 D4 48 45 20 54 52 41 50 |... .HE TRAP| 00000550: 20 49 4E 20 4C 49 4E 45 20 36 30 30 20 53 45 4E | IN LINE 600 SEN| 00000560: 44 53 20 54 48 45 20 50 52 4F 47 52 41 4D 20 54 |DS THE PROGRAM T| 00000570: 4F 20 4C 49 4E 45 20 36 30 34 20 57 48 45 4E 20 |O LINE 604 WHEN | 00000580: 59 4F 55 20 50 52 45 53 53 20 D3 D4 CF D0 2E 0D |YOU PRESS ......| 00000590: C9 46 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 |.F THE DIRECTORY| 000005A0: 20 49 53 20 4E 4F 54 20 4C 4F 4E 47 45 52 20 54 | IS NOT LONGER T| 000005B0: 48 41 4E 20 54 48 45 20 57 49 4E 44 4F 57 2C 20 |HAN THE WINDOW, | 000005C0: 54 48 45 4E 20 54 48 45 20 55 53 45 52 20 44 4F |THEN THE USER DO| 000005D0: 45 53 4E 27 54 20 48 41 56 45 0D 54 4F 20 50 52 |ESN'T HAVE.TO PR| 000005E0: 45 53 53 20 D3 D4 CF D0 2E 20 20 D4 48 45 20 D3 |ESS ..... .HE .| 000005F0: D4 CF D0 20 49 53 20 4F 4E 4C 59 20 46 4F 52 20 |... IS ONLY FOR | 00000600: 57 48 45 4E 20 54 48 45 20 57 41 4E 54 45 44 20 |WHEN THE WANTED | 00000610: 46 49 4C 45 20 4D 41 59 20 53 43 52 4F 4C 4C 20 |FILE MAY SCROLL | 00000620: 4F 55 54 20 4F 46 0D 54 48 45 20 57 49 4E 44 4F |OUT OF.THE WINDO| 00000630: 57 2E 0D 0D 20 20 20 20 20 D3 D4 CF D2 C5 20 49 |W... ..... I| 00000640: 53 20 41 20 C3 CF CE D4 D2 CF CC 20 38 30 20 43 |S A ....... 80 C| 00000650: 4F 4D 4D 41 4E 44 20 54 48 41 54 20 53 54 4F 52 |OMMAND THAT STOR| 00000660: 45 53 20 54 48 45 20 43 55 52 52 45 4E 54 20 53 |ES THE CURRENT S| 00000670: 43 52 45 45 4E 2E 0D 0D 20 20 20 20 20 D4 48 45 |CREEN... .HE| 00000680: 20 C4 C9 D2 C5 C3 D4 CF D2 D9 20 43 4F 4D 4D 41 | ......... COMMA| 00000690: 4E 44 20 4D 41 59 20 42 45 20 41 20 53 45 4C 45 |ND MAY BE A SELE| 000006A0: 43 54 49 56 45 20 4F 4E 45 2E 20 20 C9 4E 20 C8 |CTIVE ONE. .N .| 000006B0: CF CD C5 20 D2 C5 C6 C9 CE C1 CE C3 C5 D2 20 C9 |... .......... .| 000006C0: 0D 41 44 44 45 44 20 2C 22 48 52 2E 2A 22 20 54 |.ADDED ,"HR.*" T| 000006D0: 4F 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 53 4F |O THE COMMAND SO| 000006E0: 20 49 54 20 57 4F 55 4C 44 20 4F 4E 4C 59 20 44 | IT WOULD ONLY D| 000006F0: 49 53 50 4C 41 59 20 46 49 4C 45 53 20 54 48 41 |ISPLAY FILES THA| 00000700: 54 20 42 45 47 41 4E 20 57 49 54 48 0D 41 4E 20 |T BEGAN WITH.AN | 00000710: 22 48 52 2E 22 20 50 52 45 46 49 58 2E 0D 0D 20 |"HR." PREFIX... | 00000720: 20 20 20 20 D4 48 45 20 56 41 52 49 41 42 4C 45 | .HE VARIABLE| 00000730: 53 20 49 4E 20 4C 49 4E 45 20 36 30 34 20 41 52 |S IN LINE 604 AR| 00000740: 45 20 49 4D 50 4F 52 54 41 4E 54 2E 20 20 C9 46 |E IMPORTANT. .F| 00000750: 20 59 4F 55 20 55 53 45 20 54 48 4F 53 45 20 56 | YOU USE THOSE V| 00000760: 41 52 49 41 42 4C 45 53 2C 0D 59 4F 55 20 43 41 |ARIABLES,.YOU CA| 00000770: 4E 20 43 48 41 4E 47 45 20 54 48 45 20 4E 41 4D |N CHANGE THE NAM| 00000780: 45 53 20 4F 46 20 54 48 45 53 45 2C 20 42 55 54 |ES OF THESE, BUT| 00000790: 20 4E 4F 54 20 54 48 45 20 56 41 4C 55 45 53 2E | NOT THE VALUES.| 000007A0: 0D 0D 20 20 20 20 20 D4 48 45 20 C2 CC CF C3 CB |.. .HE .....| 000007B0: 20 43 4F 4D 4D 41 4E 44 20 49 53 20 46 52 4F 4D | COMMAND IS FROM| 000007C0: 20 C3 CF CE D4 D2 CF CC 20 38 30 20 41 4E 44 20 | ....... 80 AND | 000007D0: 49 54 27 53 20 57 48 41 54 20 44 4F 45 53 20 54 |IT'S WHAT DOES T| 000007E0: 48 45 20 4E 49 46 54 59 0D 48 49 47 48 4C 49 47 |HE NIFTY.HIGHLIG| 000007F0: 48 54 20 42 41 52 53 2E 20 20 C9 20 43 4F 55 4C |HT BARS. . COUL| 00000800: 44 20 4E 4F 54 20 4C 49 56 45 20 57 49 54 48 4F |D NOT LIVE WITHO| 00000810: 55 54 20 C3 CF CE D4 D2 CF CC 20 38 30 2E 0D 0D |UT ....... 80...| 00000820: 20 20 20 20 20 D0 C5 C5 D2 20 49 53 20 41 20 C3 | .... IS A .| 00000830: CF CE D4 D2 CF CC 20 38 30 20 43 4F 4D 4D 41 4E |...... 80 COMMAN| 00000840: 44 20 54 48 41 54 27 53 20 54 48 45 20 45 51 55 |D THAT'S THE EQU| 00000850: 49 56 41 4C 45 4E 54 20 4F 46 20 C2 C1 D3 C9 C3 |IVALENT OF .....| 00000860: 27 53 20 D0 C5 C5 CB 0D 43 4F 4D 4D 41 4E 44 2E |'S .....COMMAND.| 00000870: 20 20 D4 48 49 53 20 49 53 20 4E 4F 54 20 45 41 | .HIS IS NOT EA| 00000880: 53 59 20 54 4F 20 44 4F 20 4F 4E 20 54 48 45 20 |SY TO DO ON THE | 00000890: 38 30 2D 43 4F 4C 55 4D 4E 20 53 43 52 45 45 4E |80-COLUMN SCREEN| 000008A0: 20 57 49 54 48 4F 55 54 20 C3 CF CE D4 D2 CF CC | WITHOUT .......| 000008B0: 20 38 30 2E 0D 0D 20 20 20 20 20 D4 48 45 20 46 | 80... .HE F| 000008C0: 49 4C 45 20 59 4F 55 20 43 48 4F 53 45 20 57 49 |ILE YOU CHOSE WI| 000008D0: 4C 4C 20 53 48 4F 57 20 55 50 20 41 53 20 C6 24 |LL SHOW UP AS .$| 000008E0: 20 46 4F 52 20 4C 4F 41 44 49 4E 47 20 4F 52 20 | FOR LOADING OR | 000008F0: 57 48 41 54 45 56 45 52 20 49 4E 20 4C 49 4E 45 |WHATEVER IN LINE| 00000900: 0D 36 35 30 2E 20 20 CE 4F 54 49 43 45 20 54 48 |.650. .OTICE TH| 00000910: 41 54 20 C9 20 48 41 56 45 20 41 44 44 45 44 20 |AT . HAVE ADDED | 00000920: D2 D5 CE 22 C8 C5 CC CC CF 20 C3 CF CE CE C5 C3 |..."..... ......| 00000930: D4 22 20 41 53 20 4C 49 4E 45 20 36 36 30 2E 20 |." AS LINE 660. | 00000940: 20 D4 48 41 54 27 53 20 46 4F 52 0D 52 45 54 55 | .HAT'S FOR.RETU| 00000950: 52 4E 49 4E 47 20 54 4F 20 CC CF C1 C4 D3 D4 C1 |RNING TO .......| 00000960: D2 3B 20 49 54 27 53 20 4E 4F 54 20 50 41 52 54 |.; IT'S NOT PART| 00000970: 20 4F 46 20 54 48 45 20 53 55 42 52 4F 55 54 49 | OF THE SUBROUTI| 00000980: 4E 45 2E 0D 0D 20 20 20 20 20 D4 48 41 54 27 53 |NE... .HAT'S| 00000990: 20 49 54 2E 20 20 C6 45 45 4C 20 46 52 45 45 20 | IT. .EEL FREE | 000009A0: 54 4F 20 52 45 4E 55 4D 42 45 52 20 41 4E 44 20 |TO RENUMBER AND | 000009B0: 55 53 45 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |USE THIS ROUTINE| 000009C0: 20 41 4E 59 54 49 4D 45 20 59 4F 55 20 41 52 45 | ANYTIME YOU ARE| 000009D0: 0D 54 45 4D 50 54 45 44 20 54 4F 20 41 53 4B 20 |.TEMPTED TO ASK | 000009E0: 54 48 45 20 55 53 45 52 20 54 4F 20 45 4E 54 45 |THE USER TO ENTE| 000009F0: 52 20 41 20 46 49 4C 45 4E 41 4D 45 20 46 4F 52 |R A FILENAME FOR| 00000A00: 20 4C 4F 41 44 49 4E 47 20 4F 52 20 52 55 4E 4E | LOADING OR RUNN| 00000A10: 49 4E 47 2E 20 20 C2 45 20 53 55 52 45 0D 59 4F |ING. .E SURE.YO| 00000A20: 55 52 20 50 52 4F 47 52 41 4D 20 44 4F 45 53 4E |UR PROGRAM DOESN| 00000A30: 27 54 20 55 53 45 20 54 48 45 20 53 41 4D 45 20 |'T USE THE SAME | 00000A40: 56 41 52 49 41 42 4C 45 53 20 54 48 49 53 20 52 |VARIABLES THIS R| 00000A50: 4F 55 54 49 4E 45 20 44 4F 45 53 2E 0D 0D C6 D4 |OUTINE DOES.....| 00000A60: 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000A70: 20 20 20 20 20 20 2A 2A 2A 2A 20 D2 20 2D 20 D2 | **** . - .| 00000A80: 55 4E 20 20 20 20 D2 C5 D4 D5 D2 CE 20 2D 20 CD |UN ...... - .| 00000A90: 45 4E 55 20 2A 2A 2A 2A 20 20 20 20 20 20 20 20 |ENU **** | 00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D | . |
. Z E R O P A G
E : CATMEISTER 128..
BY FENDER TUCKER... THIS
DOESN'T REALLY DESERVE TO BE CALLED CATM
EISTER BECAUSE JEFF JONES'.PROGRAM OF TH
E SAME NAME FOR THE 64 MODE IS MUCH MORE
ELEGANT. HOWEVER,.THIS LITTLE BASIC RO
UTINE IS SO HANDY I WANTED TO PASS IT AR
OUND TO ANY.PROGRAMMER WHO PLANS TO SUBM
IT A PROGRAM TO LOADSTAR 128... HERE
'S WHAT IT DOES. YOU HAVE A PROGRAM THA
T LOADS AND SAVES FILES. .IN THE OLD DAY
S THE PROGRAM WOULD ASK FOR A FILENAME F
OR YOU TO TYPE IN. .WELL, OF COURSE, NO
ONE CAN REMEMBER A FILENAME, SO MODERN P
ROGRAMS GIVE YOU.A LIST OF RELEVANT FILE
S FOR YOU TO CHOOSE FROM WITH A HIGHLIGH
T BAR. .THAT'S WHAT CATMEISTER 128 DOES.
..IMPORTANT!!! CATMEISTER ONLY WORKS WI
TH CONTROL 80, JON MATTSON'S SUPERB.BASI
C HELP PROGRAM FROM LOADSTAR 128 #10. I
PLAN TO USE CONTROL 80 IN ALL.OF MY 80-
COLUMN PROGRAMS AND IN THE WORDS OF THE
EDITOR OF LOADSTAR 128, YOU.SHOULD, TOO.
.. RUN THIS PROGRAM AND ALL YOU'LL S
EE IS A DIRECTORY SCROLLING IN A.WINDOW
IN THE MIDDLE OF THE SCREEN. PRESS THE
STOP KEY TO STOP THE.SCROLLING. THEN MO
VE THE HIGHLIGHT BAR WITH THE CRSR UP/DO
WN KEY. THEN.BREAK OUT OF THE PROGRAM W
ITH RUN/STOP-RESTORE SO YOU CAN LIST THE
CODE. AS.YOU CAN SEE, IT'S NOT A BIG S
UBROUTINE... LINES 2, 5 10 AND 11 LO
AD AND SET UP CONTROL 80... THE TRAP
IN LINE 600 SENDS THE PROGRAM TO LINE 6
04 WHEN YOU PRESS STOP..IF THE DIRECTORY
IS NOT LONGER THAN THE WINDOW, THEN THE
USER DOESN'T HAVE.TO PRESS STOP. THE S
TOP IS ONLY FOR WHEN THE WANTED FILE MAY
SCROLL OUT OF.THE WINDOW... STORE I
S A CONTROL 80 COMMAND THAT STORES THE C
URRENT SCREEN... THE DIRECTORY COMMA
ND MAY BE A SELECTIVE ONE. IN HOME REFI
NANCER I.ADDED ,"HR.*" TO THE COMMAND SO
IT WOULD ONLY DISPLAY FILES THAT BEGAN
WITH.AN "HR." PREFIX... THE VARIABLE
S IN LINE 604 ARE IMPORTANT. IF YOU USE
THOSE VARIABLES,.YOU CAN CHANGE THE NAM
ES OF THESE, BUT NOT THE VALUES... T
HE BLOCK COMMAND IS FROM CONTROL 80 AND
IT'S WHAT DOES THE NIFTY.HIGHLIGHT BARS.
I COULD NOT LIVE WITHOUT CONTROL 80...
PEER IS A CONTROL 80 COMMAND THAT'S
THE EQUIVALENT OF BASIC'S PEEK.COMMAND.
THIS IS NOT EASY TO DO ON THE 80-COLUM
N SCREEN WITHOUT CONTROL 80... THE F
ILE YOU CHOSE WILL SHOW UP AS F$ FOR LOA
DING OR WHATEVER IN LINE.650. NOTICE TH
AT I HAVE ADDED RUN"HELLO CONNECT" AS LI
NE 660. THAT'S FOR.RETURNING TO LOADSTA
R; IT'S NOT PART OF THE SUBROUTINE...
THAT'S IT. FEEL FREE TO RENUMBER AND
USE THIS ROUTINE ANYTIME YOU ARE.TEMPTED
TO ASK THE USER TO ENTER A FILENAME FOR
LOADING OR RUNNING. BE SURE.YOUR PROGR
AM DOESN'T USE THE SAME VARIABLES THIS R
OUTINE DOES...FT.. **
** R - RUN RETURN - MENU ****
.
> CLICK IMAGE PREVIEW FOR FULL MODAL