NITE-TIMES NEWS
Chicago Area Timex Users Group Downers Grove, Illinois
Volume 3, Number 5 September/October 1989 MEMORY MAP
ROUTINES ADDRESS CATUG Club OSE LCOS ouai lu GW 99a ERES Sand a EA 1 NLTESTIMEO cL ine OE. Lu u m wax ei EAE COS 2 NITE-TIMES NEWS CODUCIIBHULIOBS...-949aews arcs» s 2 Contributors tO this ISSUE u. breee a «vk Y E ERES dra 2 LU Meetings ar ass k hua pq UI ELS EE aora RR MER aO 2 DATA INTERRUPT ase. nip E ayaqa Osaka ni ane ns icri" caer 2 From the Presidente Dpesk'uy s «ww uu u rare Rd dle bb YQ S 3 Treasury NOCES Vou revu RdÉxagks Ae Sak xA eR TAA E E AEG 4 Secretarys NOLOPQU 254 «2 datis ue) oy a xor EE REN YN qaa 4 Ttems For sale Through Club 5 u suyus E rx aa 6 Special DEALS ane AVS) o's h u cds be ake eS S NX O ceo XU 6 Articles:
Dro Down Menus: veni xx 4 IA woes apawaq ha. G OTRO ed 7
Custom Tape/Dlek Directory < so 40d x ERE ER E 11 CLOS TIPO AdS u u Oh kus ka a OSS BWR Ace qae uiu ie 1
Here is the list of 1989 club officers and how to contact them. The club has two strong SIGS, SPECTRUM/TS2068 and QL. If you have questions about either of these fine machines or even the ZX81/TS1000/TS1500 call one of the officers for direction.
POSITION NRME PHONE PRIMRRY FUNCTION
President Butch Weinberg 373-2470 The buck stops here... Vice-President Gary Lessenberry 473-9415 Meeting Planning, etc. Secretary John Donaldson 837-7957 Records and Reporting Treasurer Al Feng 971-0495 Dues and Purchasing
Copyright (C)1989 Chicago Area Timex Users Group, Streamwood, IL
NITE-TIMES NEWS Volume III, Number 5 1 September/October 1989
NITE-TIMES Information
The Nite-Times News is the newsletter of the Chicago Area Timex Users Group. For an annual fee of $10.00 you can become a CATUG member with full membership privileges. Send your dues to :
CATUG Treasure Al Feng 15 Wake Robin Ct. Woodridge, IL 60517
The Chicago Area Timex Users Group is pleased to exchange newsletters with other Timex and Sinclair supporting users groups at no charge. If you desire to reprint any articles that appear here, please provide credit to the author and this newsletter.
We encourage your user group to copy this newsletter and distribute it at your regular meetings to your members free of any charge as we believe that this will encourage better meeting attendance. If you are a user group that feels as we do, please let us know in your newsletter so that we might do this for our members and keep our attendance up.
Articles originating from our group can be had on tape or LarKen Disk for use in Magazines by contacting the editor. As this newsletter can be downloaded from our BBS you may reprint it using this means.
If you have any suggestions or would like to submit an article, please contact:
NITE-TIMES NEWS EDITOR Bob Swoger
613 Parkside Circle Streamwood, IL 60107
It is preferred that you call:
H312/837-7957 or W312/576-8068
NITE-TIMES CONTRIBUTIONS
If you would like to contribute an ARTICLE to the newsletter put a file in your CATUG PDP 11/60 account called NITETIMES.ART If you have special buy information place a file in your account named COMPUTER.BUY If you have a WANT AD for the newsletter put a file in your account called COMPUTER.ADS If you have information on a Special Interest Group place a file in your account called SIG.NWS
These files will be gathered by the BBS and downloaded to the editor. If you don't have a CATUG account either get one or contact the editor by mail, phone, or in person.
CONTRIBUTORS TO THIS ISSUE
Butch Weinberg John Donaldson
Al Feng
Dave Lebowitz
Bob Swoger, K9WVY
CLUB MEETINGS
The Chicago Area Timex Users Group meets on the second Saturday of each month at the home of Steve Cooper in Downers Grove, Illinois from 1:00 to 5:00 PM.
Steves home is located at 1300 Maple Street in Downers Grove just 2 blocks southwest of the Downers Grove Public Library.
The CATUG coordinator for our meetings is Steve Cooper and he can be contacted during the evening at 312/968-3553.
DATA INTERRUPT
We have finally received our TO OTHER USERS GROUPS:
We have received two new
newsletters from groups we had never heard from before. As a result we will publish a list in our next newsletter of all those groups that swap news- letters with us. WE HOPE YOU WILL DO THE SAME. We will look at your list and send copies of our newsletters to those we are missing. WE HOPE YOU WILL DO THE SAME.
PLEASE SEND ALL FUTURE
It is: CATUG - C/O Bob Swoger 613 Parkside Circle Streamwood, IL 60107
Thank you!
FHOM THE PRESIDENTS DESK
I want to take this opportunity to thank all the members of the Chicago Area Timex Users Group who have been involved over the last few years in making our users group a success.
Without your time and efforts, I'm sure we would have never made our goals.
As I look at this years club activity I see a declined but now constant membership. As we call on those who have let their membership drop, we find that some have moved to 16 bit machines with MEGA-BITES of storage due to business needs or because they have become familiar with machines in the work place and now have free access to very expensive and more sophisticated software not to mention the fact that if they own the same kind of machine at home that they use at work they won't have to stay
late at work or drag a heavy machine home at night to do company work. In this group money seems to be no object as
they wind up spending Kilo-bucks for these machines. Also, some still use both machines.
Others have simply lost interest in computers as a hobby and moved on to something else. In this group, some said that they would be back in the future.
What we have left is a group of users who have come to know their machines so well that they feel no need to change machines and wish to help other users come up to their level of computer literacy and hardware, firmware and software ownership.
I still feel that user group participation and world wide intercommunication with other Timex/Sinclair user groups is a key ingredient in presenting topics of interest to fellow user group members.
Our user group is made up of a dedicated core group for the following purposes:
1. To encourage Timex/Sinclair owners to make creative and
enjoyable use of their Cambridge BASIC based machines.
2. To provide a means for the sharing of hardware, programming & applications knowledge among members.
3. To familiarize members with computer principles and techniques.
4. To provide an open forum for discussion.
5. To provide the customary social and technical
benefits of an organization.
6. With an organization of members having a common interest, provide for:
A. Software demonstrations. B. Program, application and information library.
C. Publication of a club newsletter.
D. Operation of a 24 hour BBS capable of software dissemination and E-MAIL.
E. Technical interaction with other user groups by newsletter exchanging.
This year we are emphasizing club activity by the two SIGs within our group, OL and Spectrum-T/S2068, to provide a greater exposure of these two computers to each other so that the strong points of one machine might be added to the other. Your suggestions and participation are welcome.
I hope you are all as pleased as I am by this great showing and involvement by our members.
Keep up the great work!
P.S.
We now have a 24 hour BBS and encourage you to exchange mail and contribute to the Download Section. Use it and have fun!
Kk k k k k k k k k k k k k k k k k k k k k k k k k k k k k k <
CRTUS BBS 312/576-7072 Type at the > prompt: LOG SINCLAIR/GUEST
BYE to loq out C k k k k k k k k k k k k k k k k k k k k k k k k k k k < <
+ + + 0X 0X + + + * 0X
Butch Weinberg, President Chicago Area Timex Users Group.
TREASURY NOTES
After our last mailing expense of $11.50 and the addition of dues from a new member our balance stands at $222.32. Our
current paid membership stands at 25.
Al] Feng, Treasurer Chicago Area Timex Users Group
SECRETARY'S NOTEPAD
September 16, 1989
The meeting was opened by our president at 2:11PM. Present:
Messrs. Brezina, Cooper, Donaldson, Feng, Majewski, Mills, Pashtoon, Sauter,
Swoger, Ulreich (& 2 children) and, of course, Butch Weinberg. The minutes of August 10th were approved as printed in July/Aug Nite-Times News (NTN).
Al Feng reports our treasury balance rose to $230 due to re- instatement of Jay Seigel's membership. Jay is the only member doing CP/M on a TS2068.
A tutorials agenda was approved in August starting with this meeting. September's was on Archive and will be covered later. October 14th, John Ulreich will demonstrate MIDI on a TS2068. In ensuing months, Nazir Pashtoon will present hardware demos and another member will show a graphics program.
While 40 percent of our members attended, incentives for the other 60 percent were discussed. If you're looking for incentives for coming to meetings (other than some fine tutorials), take another look at the the list of newsletters other user groups exchange with us in the March/April NIN. Bob Swoger, our librarian is a big guy - and he NEEDS to be. You should see the box of T/S newsletters he brings to meetings. These are not mailed within the club so if you haven't been out lately, come early. You've got a lot of
catching up to do!
As for Nite-Times News, we will regurly send a copy to SNUG and Update magazine. This can be on magnetic media if requested. We strongly believe that the continuity of Sinclair/Timex user groups can be achieved only by the sharing of information. And while we respect the fact that there may be copyrighted information in other newsletters, we urge any of them to copy our articles provided credit is given to NIN.
Butch has been told that the last - and final - issue of . Syncware News/Quantum Levels may be out in about a month. For some of us, it's like an old friend leaving town. We wish Tom Bent well. Unhappily, it's another case of too few articles and too little advertizer support. The message is Clear: Buy your own subscriptions rather than "borrowing" and - as often as you can - buy software/hardware from their advertizers. Money DOES talk! Butch has also contacted Time Designs about aborted subscriptions.
Apparently, their lost database has almost been recovered and a mailout is planned in a month or two.
Our alter-egos in M'waukee will have a fest in April/May 1990. Butch not only encourages our presence in support of SMUG but attendance a a BIG Friday night kickoff dinner. Think about it!
Butch hears that the Trump Card ROM has been updated again without changing Toolkit and that out of 5000 QLs made for the US, only 200-300 remain unsold. Do you believe in redundancy? Do you have only one? Enough said.
Al Feng brought along a Toshiba Model 4603 3-1/2" 1.4 MB disk drive. A nice-looking unit requiring only a 5 volts for operation. Al noted that although the drive will handle 1.4MB, it formats to 720KB for QLs with no problem. The price? $90-$150 without power supply.
Nazir began dreaming about replacing the microdrives on his QL with one of these right away.
Nazir told us that the disk drive on his Portuguese (Spectrum) system formats to 620 K, not 720K, and doesn't know why. He also relates that in trying a modem with a QL at 300 baud, the error rate was so high he gave up in disgust. It was generally agreed that 1200 baud works best.
Bob Swoger was happy to say that our club BBS computer now includes a PDP 11/34 in addition -to--its- PDP 11/23*. These will back up our PDP 11/60, allowing our BBS to run for years, hopefully!
Bob has updated AOS-DOS for LK-DOS to make it a bit faster on the screens and handle Dohany's RLE programs. Also he rewrote Dohany's program to work with LK-DOS to show disk files of screens on disk.
Finally, he says, shop Ham RadioFests. Case in point: he picked up his last two TS2068s for $25 apiece. One was like new; the other had a worn shift key but it works fine, too.
The business meeting closed at 2:55PM.
Overheard on a radio talk show: After "frying" his computer system, one man decided to become the patron saint of
computerists. He greets his audience with the sign of the monitor (whatever that is) and never forgets to ask, "Is your data saved, brother?" Does anyone know anything more about him?
[Editors note: Yes, His name is
Al Feng and he fried his QL
with the above mentioned drive
after the September meeting. Can anyone sell him a spare? He now
believes in redundancy!]
OCTOBER MEETING
The regularly scheduled October meeting was cancelled due to the passing of Steve Cooper's father. Since our meetings are held at Steve's home and he needed some time to "re-group", we will next meet on November llth. Condolences come from the hearts of all the members of the Chicago Area Timex Users Group, Steve.
Jonh Donaldson, Secratary Chicago Area Timex Users Group
LELEEELEEELEEELEEEEEEEEEEEEEESS B & B Computer Supplies of Elk Grove village carries:
Ribbons
Diskettes
Printer Paper by the case
9 1/2 X 11 154 3500 Sheets Fan-Fold Pin Feed .......... $30
Printer Paper by the case 9 1/2 X 11 204 2700 Sheets Fan-Fold Pin Feed .......... $28
Printer Paper by the box 9 1/2 X 11 154 1000 Sheets Fan-Fold Pin Feed ....... $10.95
Printer Paper by the box 9 1/2 X 11 204 1000 Sheets Fan-Fold Pin Feed .......... $13
Contact: Joe Becker 708/860-2906
SPECIML DEALS AND BUYS
CLUB POLICY
REGARDING SPECIAL PURCHASES Each special buy will have a CHAIRMAN who will coordinate ALL ACTIVITY regarding a purchase. The CHAIRMAN will publicize the special buy through the newsletter and at the CATUG meetings. All inter- action will go through the CHAIRMAN and all checks will be sent to him, payable to the CHAIRMAN.
When the purchased goods arrive, the CHAIRMAN will see that they are distributed. All special buys must be PAID IN ADVANCE because the CATUG does not have enough funds to handle all of the buys without cash flow problems. So you MUST SEND A CHECK TO THE CHAIRMAN BEFORE THE DEADLINE or you will not be included in the special buy. The CHAIRMAN will contact the members on his interest list regarding deadlines and purchase price or alternately, it will appear in the NITE- TIMES newsletter.
Bob Swoger is the chairman
for the following: EEEEEEEEEEEEEEEEEEEEEESEEEESESES
256K RAM-DISK KIT for T/S 2068 95 85 55 95 95 85 95 25 959595 9555 95 95 95:05:95 95 05 05 05 05 05 95 95 95 2595 956 LarKen RAM-Disk Operating system board built and tested, 256K RAM-DISK board with connectors only, no IC's. The Disk Drive controller board can be added later to control up to 4 more double sided drives. Battery back-up, all system software.
**** $88.00 postage paid. *** Contact the chairman for more details. There is no Qty. buy necessary. 708/576-8068
ARTICLES
DROP DOWN MENUS (QL program) by Al Feng
Most of us have seen them. They generally look good. And, no, I'm not talking about the models in the SPORTS ILLUSTRATED's annual "swim suit" issue. I'm referring to DROP-DOWN MENUs and POP-UP WINDOWs. In the former instance, the menu windows appear to DROP DOWN (get it?) from a COMMAND LINE located near the top of the screen. In the latter case, they're more like dandilions which POP UP in an otherwise green lawn, often appearing in a rather hap-hazard fashion. In either case, you are generally presented with a limited number of immediately accesible options from which you may choose.
The reason that many programs do NOT use drop- down or pop-up windows is simply because circumstances don't always warrant it.
A simple BOOT program only has to EXECute the principle program.
In other cases, there may only be two or three options. On the other hand, a reason to use multiple menus might be to present the end-user with "types" of options which have been segregated (grouped) by the program(mer). One of the many nice features about the QL is the ability to create multiple WINDOWs. However, the direct ability to create multiple WINDOWs is not necessary for generating a Screen with drop-down menus, it just makes it a bit easier. The alternative would be to use the QL's BLOCKing abilities ('BLOCK' is used in this program merely to CLEAR the menu(s) from the screen; but it could just as easily be implemented for the actual menus).
The "opening screen" will present you with a "white" screen with a command line near the top similar to the illustration (below). The following program has three drop-down windows. When this screen is first seen, "FILES" will be highlighted with a colored bar, and the letters of the option name in white.
The highlighted bar is moved either to the right or left by pressing the 'TAB' key or using a 'shift TAB' key combination, respectively.
The "FILES" menu allows for individual LOADing of any of the Psion Business programs (eg., Quill, etc.), or initiating a multi-TASKing environment (in this instance, TASKMASTER). The "OPTIONS" menu is used here as a "help" page. "PRINTER INFO" is a variation of a routine from the QUANTA library which allows for changing the printer dat.
When you QUIT any of the Psion programs, you will be returned to the opening screen. Proceed as appropriate.
You may find, after QUITing a program, that you have a blank Screen. If this happens, use a 'shift F5' key combination to restore the screen. If you use a multi-TASKing environment, you should suspend SuperBASIC by pressing 'esc' until the CURSOR appears otherwise, SuperBASIC will be treated as an active TASK by whatever environment you are in and slow the screen, et al,
of the other EXEC'd tasks (Type "START" to re-start.)
100 WINDOW#0, 450,52, 42, 200: PAPER#0, 7: INK#0, 0
110 WINDOW#1, 512, 256,0,0:PAPER#1, 7: INK#1,0:CLS
120 WINDOW#2,512,256,0,0:PAPER#2, 7: INK#2, 0
130 REMark ss-RESPR(10070):LBYTES flpl zip code,ss: CALL ss: SCROLL 20
140 REMark ram-RESPR(5120):LBYTES flpl dram code,ram: CALL ram: PRINT#0,"Dynamic RAM Disking"
150 REMark tk-RESPR(6144):LBYTES flpl turbo code,tk:CALL tk
160 REMark base-RESPR(43992):LBYTES flpl | boot : rext,base:CALL base: HOTKEY
170 DIM printl1$(12),print2$(12),print3$ (12),devS(8)
180 dev$-"flpl ":PROGram$-"QLUSTer":VERsionS$-"4r089":fenetre-0: CLS:CLS#2:Start
190 DEFine PROCedure Start:CLS:INK 0
200 LINE 0,96.5 TO 512,96.5
210 CMD LINE
220 LINE 0,92 TO 512,92
230 BEEP 200,20:FILE
240 END DEFine Start
250 DEFine PROCedure CMD LINE
260 Kbytes-(PEEK |. 1(163856) -PEEK L(163852)-1024)/1024
270 AT 1,7:STRIP 7:INK O
275 PRINT" FILES OPTIONS PRINTER INFO ";
280 INK 5:PRINT,,,' @ PLATYPUS Software':INK 0
290 END DEFine CMD LINE
300 Key3:PickOneOfTheseOptions
310 DEFine PROCedure Key3
320 REPeat key
330 keystrike=CODE (INKEYS$)
340 IF keystrike-69 THEN EXIT key
350 IF keystrike-101 THEN EXIT key
360 IF keystrike-232 THEN EXIT key
370 IF keystrike-236 THEN EXIT key
380 IF keystrike-240 THEN EXIT key
390 IF keystrike-244 THEN EXIT key
400 IF keystrike-248 THEN EXIT key
410 IF keystrike-250 THEN EXIT key
420 IF keystrike<236 AND keystrike>116 THEN BEEP 900,40:Key3
430 IF keystrike-116 OR keystrike-84 THEN EXIT key
440 IF keystrike«116 AND keystrike>84 THEN BEEP 900, 40:Key3
450 IF keystrike«84 AND keystrike»27 THEN BEEP 900,40:Key3
460 IF keystrike-253 OR keystrike-9 THEN EXIT key
470 IF keystrike-27 THEN CLS:BEEP 900,20:STRIP 7:INK 0: AT 24,32:PRINT'@ PLATYPUS Software':EXIT key
480 END REPeat key:END DEFine Key3
490 DEFine PROCedure PickOneOfTheseOptions
500 IF keystrike 250 THEN BEEP 900,20:Start
510 IF keystrike 253 THEN BEEP 900, 20:PrevWindow
520 IF keystrike 9 THEN BEEP 200,10:NextWindow
530 END DEFine PickOneOfTheseOptions
540 DEFine PROCedure NextWindow
550 BLOCK 500,200,0,21,7:fenetre = fenetretl: IF fenetre=3 THEN fenetre=0
560 WindowChoice
570 END DEFine NextWindow
580 DEFine PROCedure PrevWindow
590 BLOCK 500,200,0,21,7:fenetre-fenetre- 1:if fenetre<0O THEN fenetre=2
WindowChoice
END DEFine PrevWindow
DEFine PROCedure WindowChoice
IF fenetre 0 THEN FILE
IF fenetre 1 THEN OPTIONS
IF fenetre 2 THEN PRINTER
END DEFine WindowChoice
DEFine PROCedure PRINTER
CMD LINE:AT 1,26:STRIP 5:INK 7:PRINT" PRINTER INFO " OPEN#5,scr 220x80a156x20:PAPER45,7: BORDER#5,1,0: INK#5, 0:CLS#5 print1$="PR2300":print2$="IBM.W5":print3$="PR2300" STRIP#5,5:PRINT#5,TO 5;"Select "; :INK#5, 7:PRINT#5, "Quill
; :INK#5,0:PRINT#5, "printer driver ":STRIP#5, 7: INK#5,0
PRINT#5,\" [F1] -"&print2$&" / single sheet" PRINT45, " [F2] -"&print3$&" / single sheet" PRINT#5, " [F3] -"&printl$&" / continuous feed" INK#5,5:PRINT#5,\" [F5] = What Was That Printer dat?"
Key3:PickOneOfTheseOptions
SELect ON keystrike
=248: PAPER#5,0:CLS#5:PRINT #5,TO 8;"CaNyoUReaDTHiS?";: INK#5, 7: PRINT#5\\\\\\\\TO 6;"HIT <Any Key» to CONTINUE": COPYdev$&"printer dat"TOcon_220x58a158x30:BEEP200, 20: PAUSE: PRINTER
=232:DELETE dev$&"printer dat":COPY dev$&print2$&" dat" TO dev$&"printer dat"
=236:DELETE dev$&"printer dat":COPY dev$&print3$&" alt" TO dev$&"printer dat"
—240:DELETE dev$&"printer dat":COPY dev$&printl$&" dat" TO dev$&"printer dat"
END SELect
END DEFine PRINTER
DEFine PROCedure FILE
CMD LINE:AT 1,7:STRIP 5:INK 7:PRINT" FILES "
OPEN#6, Scr_106x132a42x20: PAPER#6, 7 BORDER#6, 1,0: INK#6, 0:CLS#6
PRINT#6,\" [F1] = Quill"
PRINT#6,\" [F2] = Archive"
PRINT46,N" [F3] = Abacus"
PRINT#6,\" [F4] = Easel"
PRINT#6,\" [F5] = ";: INK#6, 37: PRINT#6, PROGramS
STRIP#6, 5: INK#6, 2: PRINT#6, \" ["S cINKS6, 7) SPRENT SO, "Es
INK#6, 2: PRINT#6,"]"; : INK#6, 0: PRINT#6, "ditor " STRIP£6,0:INK46,2:PRINT46," [";:INK£46,7:PRINT46, "T"; : INK#6, 2:PRINT#6,"]"; : INK#6, 5: PRINT#6, "askMaster E Key3:PickOneOfTheseOptions YourChoice-keystrike
SELect ON YourChoice
=232:EXEC_W dev$&"quill":GO TO 170
—236:EXEC W dev$&"archive":GO TO 170
—240:EXEC W dev$&"abacus":GO TO 170
=244:EXEC W dev$&"easel":GO TO 170
—248:EXEC W dev$&PROGram$&VERsion$:GO TO 170 =69:editor:GO TO 170
-101:editor:GO TO 170
—84:TASK bot
—116:TASK bot
END SELect: END DEFine FILE
DEFine PROCedure editor:EXEC dev$&"editor":END DEFine DEFine PROCedure OPTIONS
1120 CMD LINE:AT 1, 15:STRIP: 5:INK 7T :PRINT™ OPTIONS "
1130 OPEN#7, scr_172x112a90x20: PAPER#7, 7
1135 BORDER#7,1,0:INK#7, 7: CLS#7
1140 STRIP#7,0:AT#7,0,16:PRINT#7," ":AT47,0,0: PRINT#7,TO 7;Kbytes;" Kilobytes ";:STRIP#7,7
1150 INK#7,0:PRINT#7, NN" EXEC W:"; : INK#7,2:PRINT#7," Psion
programs"
1160 INK#7,2:PRINT#7,TO 12;PROGram$&" " & VERsion$\\TO 5; "EXEC: EDITOR "
1170 STRIP#7, 7: INK#7,0:PRINT#7, \" CHECK: "s s INK#7, 5%
PRINT#7," Printer dat" 1180 INK#7,7:STRIP#7, 5:PRINT#7,\" shft[F5]"; : INK#7,0: PRINT#7,": Restore screen "; 1190 STRIP#7, 2: INK#7, 7: PRINT#7, \" (esc): QUIT " 1200 Key3:PickOneOfTheseOptions 1210 END DEFine OPTIONS 1220 DEFine PROCedure TASK bot 1240 ("RENUM 2000" your TASKMASTER BOOT, SAVE IT, and 1250 then MERGE it to the end of the rest of the 1260 program LISTing as a DEFined PROCedure ... ) 1290 CALL base+total, baset+ttotal+10000:CLS:Start:END DEFine 1300 REMark ******** @ PLATYPUS Software (1989) *****x*****x
The various DEFined PROCedures do the following (more orless):
Start CLearsScreen, calls CMD LINE procedure
CMD LINE establishes COMMAND LINE
Key3 (in)validates key inputs
PickOneOfThese Reads key input, selects bar direction
NextWindow moves the highlighted bar to the right
PrevWindow moves the highlghted bar to the left
WindowChoice interprets NextWindow/PrevWindow and initiates appropriate DEFined PROCedure
PRINTER allows you to see or change the printer dat which will be accessed by Quill
FILE allows you to LOAD various programs
OPTIONS a help page
TASK bot the TASKMASTER BOOT data should be inserted (MERGEd) here (if you have it).
Lines 100 to 120 determine WINDOW size, PAPER & INK color (s).
Lines 130 to 160 are RESident PRocedures which may be omitted or activated from the LISTing as appropriate.
Line 170 is also optional, and merely establishes the maximum size of various strings used.
Line 180 determines strings/variables. Calls first DEFined PROCedure ("Start").
Line 300 initiates the two PROCedures which interpret the key inputs.
If you don't have a program editor, then you may omit line 940, 1040, 1050, 1100 and the last half of line 1160.
Of course, you probably use different printers. Rename the specific printer dat(s) as appropriate to your sitiuation (eg., DAISY dat, MATRX dat, LASER dat).
HAPPY TRAILS (and, COMPUTING) TO YOU!
10
CUSTOM DISK/TRPE DIRECTORY
Bob Swoger, K9WVY T/S 2068
Motorola, Inc. T/S 2040
312/576-8068 T/S 2050
Schaumburg, IL Legend 1080 TASMAN CPI LARKEN DOS
This is the first of a two part article which will give owners of the LARKEN disk system greater ease in getting around from program to program in a multi-drive system. Larry Kenny has made a disk drive system possible for many T/S 2068 owners by making an interface for about $120 while drives can now be found used for under $50. This makes his disk drive system for under $200 comparable to the going price of a floppy drive system used on other 8 BIT color computer systems. If you never had the ability to run Spectrum programs because you didn't want to open the case of your precious T/S 2068, Larry's system fixes this problem by providing a place on his controller for a Spectrum ROM anda Kempstone Joy-Stick on his floppy drive interface. Adding his 250K RAM-DISK to my system has really brought me a long way from my old slow tape system.
The program presented here provides a way to find programs filed away on disk or tape and manage their movement within or between storage cases with relative ease. The second program will be a linking program that will allow you to move from drive to drive and easily select a program to run from the disk directory with very little typing.
Even without a disk drive system, this article is very useful for those still using a tape system on their machines or those who wish to file audio
11
or video disks or cassettes. This program was first written as a tape directory but the program presented here is the LarKen disk directory version with modifications given to change it to the cassette tape version.
After years of collecting all Sorts of program tapes for my T/S 2068 I began to have trouble finding the program I wished to run amoung the many boxes of tape programs I had aquired, and the list of new programs is still growing! This program has solved my problem by giving me a way to move titles in boxes from slot to slot with great ease. I then store this program in the front slot of the first box and run it first to find other tapes. I also use it to manage my VCR tape drawers and data disk library cases. I store the disk version on my LARKEN RAM-DISK for quick access. I used an earlier version of this program with my 2X81 as the first program on a tape of many programs to show the programs on a single tape and to load the desired program from it. Some may wish to modify this program to do these things.
Each displayed board represents a Storage box containing 20 slots. The 20 slots are divided into two columes of ten slots each. Please number these in your mind as 1 thru 10 on the left side and 11 thru 20 on the right. You may put titles as long as 12 characters into each space provided. You may then Add new titles, Delete titles, or Move a title from one slot to another slot either in the same box or a different box. The ability to see the titles in each box is as easy as hitting the 'NEXT' key or using the LEFT or RIGHT ARROW keys. A SAVE feature with VERIFY is also provided. LPRINT key will
print the contents of all 12 boxes to your T/S 2040 printer and the COPY key will send a picture of the box on the screen to the printer. This can be taped to the inside of the clear plastic top of the tape storage box to show what is inside.
Now for a few tricks. In her book "T/S 2068 BASICS and BEYOND", Sharon Zardetto Aker states that if we try to print to the 23rd and 24th line of
the screen the system will crash. Line 820 shows one of three ways to do this without
crashing. The second is an input statement in the form of line 1020 and the third is with
the use of the statement "PRINT#1, "string". The CUSTOM KEYBOARD SECTION
sets up custom features for your machine even after exiting the MENU program as long as the machine is not turned off or
another program doesn't reset the feature. In this section you may enter your favorite
POKES to adjust key 'click' or 'repeat' key hold down duration.
My favorite feature of the CUSTOM KEYBOARD SECTION took me a little time to find but was well worth the effort. Since I
have | been writing BASIC programs for about 16 years now, I was accoustomed to
having my terminal come up in the CAP or upper case mode to answer prompts. This is accomplished in line 8040 with the POKE 23658,24 statement. POKEing this flag to 16 will cause the machine to return to the lower case mode.
A 'c/o' key is provided on the GRAPHICS 'B' key in the CUSTOM KEYBOARD SECTION as are a few other things. The GRAPHICS 'A' is set-up to provides the interesting background for the
12
MENU board. This key is provided on the 2X81 but not
the T/S 2068 and is a nice background on monochrome monitors. It will look purple
on a color monitor although it is truely black and white!
Now for a few words about abreviating. As I stated earlier, there is room for only 12 character titles. To fit in longer titles, try leaving out first the vowels, then one of the consecutive double letters in a word. If the word starts with a vowel, leave it in. Most long titles will still make sense. You can use this trick for many other data records in filing systems. If someone misspells a word, it is often because they used the wrong vowel. The ancients could read and write without vowels and you will find that, knowing the rules, you will too. Also, it does save BITES!
A HELP screen is also available to show all the possible keys that will give you desired results. Just press 'H' to see the HELP file.
I suggest that when storing tapes or disks that you try to keep a particular theme in each box, utilities in one bos; games in another, word processors in another, terminal programs in another, etc. In this way locating a program is made easier. My recently aquired disk library-cases hold 10 disks each. I backup my LARKEN RAM-DISK on disk number 0 and then put disks 0 through 9 in the first case, 10 through 19 in the next case and so on. I then use slots 11 through 20 of the menu board to comment or expand the description for the first I0 slots.
To change the program for use as a LARKEN tape directory change the following lines:
610 REM *CUSTOM TAPE DIRECTORY* 9993 PRINT #VAL "4": SAVE "TAPE S.B1" LINE 8E3
To change the program for use as a tape directory in a tape only system also change the following lines:
9993 SAVE "TAPES.B1" LINE 8000
9995 POKE 23659,0: PRINT AT 22 ,0 ; PAPER 4;'" Rewind tape & P lay to VERIFY ":POKE 23659,2:PR INT AT 0,0
9996 VERIFY "TAPES.B1"
9998 LOAD "L.B1"
To initialize and save the program, after loading it into the T/S 2068 and making ready your storage device, type the following in the immediate mode:
DIM G$(3121):GOTO 9990 «ENTER»
Never RUN this program as all the DATA will be erased! Use GOTO 1 instead.
This program can be downloaded from the CATUG BBS using MTERM II on your Westridge 2050. Use the data parameters 8-N-1 Full-DUPLEX, buffer conversion HEX and the buffer closed and empty. Call 312/576-7072 and after connecting hit «ENTER» until you get the '>' prompt. Then type: LOG SINCLAIR/GUEST
Go to the BBS download section and download either DISKS.Bl or TAPES.Bl . Remember that you are a guest on this board and please act accordingly.
610 REM *CUSTOM DISK DIRECTORY* WRITTEN BY ROBERT E. SWOGER
JULY 23, 1988*
620 PAPER VAL "7": GO TO VAL "8 000"
710 REM **** DISPLAY Section ** 720 PRINT AT A,L; PAPER VAL "7" ; FLASH D;"BOX ";AT A,VAL
"17"+ (I-D<B);I-D: FOR J=D TO B: PRINT PAPER A; INK VAL "9";AT J*E,D; G$ ( ( (I*260) -259) + ( (J*L) -L)
i3
TO ((I*260)-259)-* (J*L));AT J*E,17:G$ (((I*260)-259)*(((J*B)* L)-L) TO ((I*260) -259)+((J+B)*L)): NEXT J : RETURN
810 REM **** PROMPT Section ***
820 POKE VAL "23659",A: PRINT A T VAL "22",A; INK A; PAPER VAL "4":'" Add Delete Move Next Save": POKE VAL "23659",E: PRINT
AT A,A: RETURN
920 POKE 23659,A: PRINT AT 24. ; INK A; PAPER VAL "4";'" PRESS
«ENTER» TO CONTINUE ": POKE 23659,E: RETURN 1010 REM **** ADD Section ****** 1020 INPUT " ADD MODE - SLOT(1 -
20)?";J: GO TO VAL "1020+ (A<J AND J<=C)"
1030 INPUT = TITLE? ** LINE S$ 1040 IF S$(D)=" " THEN GO TO VAL
"1030"
1050 LET G$(((I*260)-258)-*4((J*L) -L) TO ((I*260) -259)+(J*L) )=SS: GO TO VAL "3130"
2010 REM **** ERASE Section **** 2020 INPUT " DELETE MODE - SLOT ( I = 20) 7" 30: GO TO VAL
"2020+ (A<J AND J<=C)"
2030 LET G$(((I*260)-258)-*((J*L) -L) TO ((I*260)-259)-(J*L))s"": GO TO VAL "3130"
3010 REM **** MOVE Section ***** 3020 INPUT " MOVE FROM SLOT? (1 - 20)";J: GO TO VAL "3020+ (A<J AND J<=C)"
3030 LET S$=G$ ( ( (I*260) -258)+((J *L)-L) TO ((I*260) -259)+(J*L) ) 3040 POKE VAL "23659",A: PRINT A T VAL "22",A; INK A; PAPER VAL "4";'" DELETE FROM OLD SLOT?": P OKE VAL "23659",E
3050 LET YS=INKEYS: IF YS="" THE N GO TO VAL "3050"
3060 BEEP .03,34:4: IP YS(1)e"y"
THEN LET G$(((I*260)-258)-((J*L)-L) TO (( I*260) —259)+(J*L) )="": GO SUB VAL "700"
3070 IF Y$(1)<>"N" AND YS$(1)<>"y " THEN GO TO VAL "3040"
3080 INPUT " MOVE TO WHAT BOX?(
0 = 23) "ri: LET IsSIHD: GO TO VAL "3080+ (AXI AND I«K)"
3090 GO SUB VAL "700"
3110 INPUT " MOVE INTO SLOT?(1
= 20)": J; GO TO VAL "3110+ (AaT
AND J<=C)"
3120 LET G$(((I*260)-258)-*((J*L) -L) TO ((I*260)-259)-*(J*L))-2SS$ 3130 GO TO VAL "9090"
4010 REM **** LPRINT Section *** 4020 FOR I-D TO L-D
4040 LPRINT ,AT A,L;"BOX #17+ (1=-D<B) ; I-D
4050 FOR J=D TO B
4060 LPRINT ,AT J*E,D;G$ (((I*260 )-259)+((J*L)-L) TO ((I*260)-259)- (J*L));AT J*E,VAL "17": GS (((I*2060) -259) + CC(J4B) *L) -L) TO ((I*260)-259)-*((J*B)*L)) 4070 NEXT J
4080 NEXT I
4090 GO TO VAL "9070"
5010 REM **** HELP Section ***** 5020 PRINT AT A,A; "5%%%%%%%%%%%% £5 $; 9; 9; 9 9 9 95 25 9525 25 95 95 95 95 95 959;
Each BOARD re
presents a File Boxcontaining 20 SLOTS, 10 down theleft side and 10 down the right,numbered 1 thru 20. Add, Delete,or Move NAM ES in the slots usingthe Select Keys shown below.
"ATA
Option Select Keys $5 95 85 85 95 5 55 55 S S s
$555 55 855558555 55555555 5555 555555 55
A + D 7 =
QUIT EQ S
5030 GO SUB VAL "900"
5040 LET AS-INKEYS: IF A$="" THE N GO TO VAL "5040"
5050 BEEP .03,34.4: GO TO VAL "9 000"
8010 REM * k k k k k k k k k k k k k k k k k k k k X
*** Custom Keyboard Section KKKKKKK
8020 DIM S$(12): REM DIM G$ (3121
) 8030 LET A=NOT PI: LET B=VAL "10
": LET C=VAL "20": LET D=SGN PI: LET E-VAL "2": LET L-VAL "13": LET K-VAL "25": REM
0-ROWS-SLOTS-1-2-LENGTH-BOXES 8040 POKE VAL "23562",E: POKE VA L "23609",VAL "50": POKE VAL "23658",VAL "24"
14
8050 REM PRINT #VAL "4": POKE VA L "16096",D: PRINT #VAL "4";
OPEN #VAL "3n pm
8110 FOR H=A TO VAL "7" STEP E 8120 POKE USR "a"+H,BIN 10101010 8130 POKE USR "a"+(H+D),BIN 0101 0101
8140 NEXT H
8210 POKE USR "b"+0,BIN 01000000 8220 POKE USR "b"+1,BIN 10100010 8230 POKE USR "b"+2,BIN 10000100 8240 POKE USR "b"+3,BIN 10101000 8250 POKE USR "b"+4,BIN 01010000 8260 POKE USR "b"+5,BIN 00101100 8270 POKE USR "b"+6,BIN 01010010 8280 POKE USR "b"+7,BIN 10001100 9010 REM **** BILLBOARD Section ckck kc kck ck kk
9020 INK A: PAPER VAL "4": R VAL "4": CLS
9030 FOR I-A TO VAL "21" 9040 PRINT PAPER VAL "7";"AAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAA":REM ( These are GRAPHIC A's)
9050 NEXT I
9060 PLOT A,A: DRAW A,VAL "175": DRAW VAL "255",A: DRAW A,VAL "-175": DRAW VAL "-254",A: DRAW
A,VAL "174": DRAW VAL "253",A: DRAW A,VAL "-173": DRAW VAL "-25 2",A: DRAW A,VAL "174"
9070 LET I=A 9080 LET I=I+D: I=D
9090 GO SUB VAL "700":
L "goo"
9110 REM **** INPUT Section *** 9130 LET IS=INKEYS: IF IS="" THE
N GO TO VAL "9130"
9140 BEEP .03,34.4
9150 IF IS="A" OR IS="+" THEN GO TO VAL "1000"
9160 IF IS="D" OR IS="7" OR I$=" 0" OR IS="-" THEN GO TO VAL "2000"
9170 IF IS="M" OR IS="6" THEN GO TO VAL "3000"
9180 IF IS="P" OR IS="Z" THEN CO
BORDE
IF I>=K THEN LET
GO SUB VA
9190 IF IS="C" OR IS="K" OR I$="
L" OR I$-"V" THEN GO TO VAL "A000"
9210 IF IS$-"S" THEN GO TO VAL "9 990"
9220 IF I$="B" OR I$="5" THEN GO TO VAL "9300"
9230 IF IS="H" OR I$="?" THEN GO TO VAL "5000"
9240 IF IS="E" OR IS$-"Q" THEN GO
TO VAL "9997"
9250 IF IS<>"F" AND IS<>"N" AND
IS«»"8" THEN GO TO VAL "9130"
9260 GO TO VAL "9080"
9320 LET I-I-D: IF I«D THEN LET
I-K-D
9330 GO TO VAL "9090*
9991 REM **** SAVE Section *****
9992 BEEP .15,5
9993 PRINT #VAL "4": SAVE "DISKS
.Bl" LINE 8E3
9994 BEEP .042,50: PAUSE 2.8: BE
EP .042,50
9995 POKE VAL "23659",A: PRINT A
T VAL "22",A; PAPER VAL "4";'" Now preforming CRC AoE
OKE VAL "23659",E: PRINT AT A,A;
9996 PRINT #VAL "4": VERIFY ""
9997 BEEP .042,50: PAUSE 2.8: BE
EP .042,50
9998 PRINT #VAL "4": LOAD "L.B1"
CLASSIFIED ADS
To put an AD in the Computer related section of the BBS, put a file in your account with the filename.filetype: COMPUTER.ADS ! ! ! Our ADS are free ! ! ! !
AD BY: JIM PEULECKE ON 880205 EEEEEEEEEEEEEEEEEEEELEEEEEEEESES TANDY MODEL 100 PORTABLE COMES WITH BASIC AND THREE APPLICATION PROGRAMS BUILT IN. EXTRAS INCLUDE 32K OF RAM, PROTECTIVE 'SKIN' OVER FRONT, SOFT CASE, HARD CASE, AND OF COURSE, BUILT-IN MODEM.
!!! LIKE - NEW CONDITION !!! .$350.00 OR BEST OFFER...... CONTACT JIM PEULECKE W815-744-1545 or H815-886-4648
AD BY: BOB SWOGER ON 880216 ESEEEEEEEEEEEEEEEEEEEEEEEESEEEES MF-100 384K MULTIFUNCTION CARD & MFPLUS for IBM PC-XT or Clone Includes: RAMDISK, RAM HELP, DISKCONF, PSPOOL, PSPLHELP, PSPL CONF, CLOCK-CALENDER. BOTH FOR | ons dac pud $100 or Best BOB SWOGER W312-576-4410 or H312-837-7957
15
FOR SALE JAN-89 EEEEEEEEEEEEEEEEEEEEEEEETESESESS Color Computer 2 with 64K, Extended BASIC, dual disk drives with independent power supplies, Multipak, J&M controller with RS1.0,1.1, and JDOS. Also Digisector DS69A video digitizer, joysticks, HAM Radio FAX, Slow scan and RTTY software, more. All like new, less than 1 year old. $500.00 complete. Contact Don Froula at 632-2788 (days).
FOR SALE DEC-88 EEEEEEEEEEEESEESEESESEEEEEESESEEES Televideo 610 Communications Terminal; CRT excellent, manual, box, and works...$75.00 CALL Ray DuBiel X65862.
LEADING EDGE GREEN SCRN MONITOR 5555 55 55 55 55 555 55 55 25 55555 5555555 25.555 95595 955 0595 EY GREEN SCREEN 13" MONITOR HAS LESS THAN 100 HOURS. PURCHASED 1987 IBM TTL DB-9 CONNECTOR.
CONTACT: BRUCE EASTMOND W312/576-2112 H 312/969-6603 CeO. eae s aes e ES $40 FOR SALE: NOV-88
EESEEECEETEESEEEEEESEEEEEEEEEEES ieee SAMSUNG COLOR RGB..... Model CD 1464W $239
Diagonal 13 inches RGB Color Graphics card $39 John Champlin 480-5225 w 520-1534 h
AD BY: AL FENG 8-3-89 CESEEEEETEEEESESESESEEETEESEEEEEES ZENITH ZT-1 300 BAUD TERMINAL
(W/O: MORI EOL) dodo EA ET ni $125 Ub PEINTRE 4e» i ate teres $15 DL NUCLHEQI s aia qw Rc re e les $15 PEINTRE & NUCLEON (both) ...$25 Call: AL Feng H312-971-0495
AD BY: LESLEY ON 891014 CESESESESEEESEESEEEETEEEEEEEEEESES COMPAQ PORTABLE, TWO DRIVES MONO SCREEN, 128K MEMORY, COMMUNICATIONS BOARD, PRINTER PORT, WILL ACCEPT MS-DOS 212, MANUAL abu Y dem USE $500 CALL LESLEY AFTER 5PM AT 312/520-1179
THE CHICAGO AREA TIMEX USERS GROUP MEETS AT 1:09 PM ON THE SECOND SATURDAY OF EVERY MONTH AT 1900 MAPLE STREET IN DOWNERS GROVE, ILLINOIS SOUTHWEST OF THE PUBLIC LIBRARY.
ZOL09 SIONITII ‘GOOMWV3YLS 319UuIO 3qlSY1YtiVd E19 dNOYD Suasn X3SWIL v3dHv OSVOIHC
TRAIN | STATION |
O BURLINGTON AVE
2 wd
ed
B #0NE Way
= y Nowe |
—
rn
lo
i
La]
| U
2
=
D
- LS
{CURTISS ST
Library entrance
B ONE UAY® $ to I-55