| (716) 834-1716 T&CSERVICES (716) 834-1716

The FOOTE PRINT PRINTER INTERFACE

® for Centronics parallel printers

Summer Westcoast 7S Fatr Special

works in both 2068 and Spectrum mode

compatible with OS-64 & Spectrum emulators EPROM socket and on/off switch on board

works with both Tasman and Aerco driver software

plugs into cartridge dock—door completely closes with cable running back under computer ® frees up rear edge connector allowing other peripherals to be used; less chance of a crash @ print driver software for LPRINT, LLIST, and COPY included for 2068 and Spectrum modes FootePrint Interface w/software & cable #539. 95 FootePrint with OS-64 option included $60.00 Bare board & instructions only .......... $1500 ~Cable only for use with bare board ....... $1500

Zero Insertion Force Socket option add $8.00 SOFTWARE — TS2068 TS1000

The Best of SUM | Some sample articles include: Building Your Own

Badgammon (Backgammon)........ $10.00 Spectrum Emulator, Repairing Your TS-1000, Word

Advanced Math (Calculus).........$10.00 Processing Reviews for the 2068, UDGs on the TS-

Calorie Counter..................... .. $8.00 1000, Extensive Review of the Zebra Disk System, : Adding a Keyboard to the 2068, and Enhancing the

U.S.A. (Pres. & States 8 Caps.).... $8.00 %5.00 A &JMicrodrive.112 pages ~

Gambler (poker).........sccsecsecsscsees #8.00

CHR$ (chor. & graphics generator) $10.00 $10.00

Hangman & TIC—TAC—TOE......... eee BFL00

The Best of SUM, Part Il

Articles include Building an EPROM Program- mer, Sprites on the 2068, Adding RGB to 2068, QL Word Processing, What's Available for TS-1000, and much more. 60 pages

$7.00

FOOTE <%, SOFTWARE P.O. Box 14655 Gainesville, FL 32604 (POF) SS38-L273 <(VAN-GPN EDT>S

All prices are pre-paid and include shipping charges. both for £15.00

Florida residents must add state sales tax.

SEE THE TIME DESTENS AND FOGTE SOFTWARE BOOTHS

AT THE NORTHWEST AND MID-WEST TIMEX SINCLAIR SHOWS!

The SINCLAIR Computer Technology

Magazine

JULY/AUGUST ’88 Ree ee tee tees ete Ses ti

Time Designs Magazine Company 29722 Hult Road Colton, Oregon 97017 USA (503) 824-2658 CompuServe ID# 71350,3230

SUM

BACK ISSUES

TIHE DESIGNS ¥¥ VOLUME TWO CLOSEOUT XxX (limtted quantity tn stock) $2.50 each, or 3 fssues for only £6.00 NOV/DEC ’85 AUT we 1) JAN/_ soLD V™.. no.2) MAR/ 4. 36 (Vol.2 No.3) MAY/JUN °86 (Vol.2 No.4) JUL/AUG *86 (Vo1.2 No.3) SEP/OCT *86 (Vol.2 No.6)

¥X¥ VOLUME THREE ISSUES XxX (plenty of these tn stock) $3.00 each, or 3 fssues for only £8.00 NOV/DEC *86 (Vol.3 No.1) JAN/FEB *°87 (Vol.3 No.2) MAR/APR °87 (Vo1.3 No.3) MAY/JUN *°87 (Vol.3 No.4) JUL/AUG *87 (Vol.3 No.3) SEP/OCT *87 (Vol.3 No.6)

VISA and an v4 | MASTERCARD |s==te< ACCEPTED :

TIME DESIGNS MAGAZINE Co.

29722 Hult Rd., Colton, OR 97017

TIME DESIGNS MAGAZINE is published bi-monthly and is Copyright 1988 by the Time Designs Magazine Com- pany, Colton, Oregon 97017. All rights reserved. Reproduction of this magazine in whole or in part by any means without written permission is prohibited by law.

SUBSCRIPTIONS: $16.95 a year for six issues (U.S. funds only), mailed in the U.S. All other countries | please write for information on surface and air mail rates.

CUSTOMER SERVICE: Customer satisfaction is our goal. For subscription service problems, or any ques- tions and comments, please write.or call.

CHANGE OF ADDRESS: Please call or write our office if there is any change in your current mailing address to prevent delay or even loss of service. ~

RENEWAL TIME? To determine your expiration date, simply read the date posted in the upper-right corner of your mailing label (magazine cover). For an example, “Nov/89” would indicate that the November/December 1989 issue would be the last issue received. A form is provided elsewhere to renew your subscription. We also Send one notice in case you forget. An early renewal is very much appreciated, and let us know we are doing an adequate job.

NOTICE: Contributors to TIME DESIGNS are independent of the TIME DESIGNS MAGAZINE CO., and opinions expressed in the contents of this publication are not necessarily those of the management staff or its adver- tisers. Time Designs Magazine Co. will not be held liable for any damage or consequences resulting from instructions, assertions of fact, review of pro- | ducts or companies provided in the magazine's content. It is recommended that anyone attempting to modify their computer or constructing an elec- trical project should seek help from more knowledgeable individuals.

ER SPECIALS =

24 hour © ORDER LINE (503) 824-2658

For Books, Subscriptions and Renewals

Sinclair Survivalist

HANDBOOK The Sinclair Survivalist Handbook is

a new 70 page book that is filled with revious] un-publi pro- gram listings and articles, written by regular contributor’s to

DESIGNS, for the TS1000/2x81, TSi500, TS2068, and the Sinclair Q@L. Examples include: "Adapting external keyboards to your TS1000", "BASIC Line Delete Utility", "Strategic Football", "Fix Your TS2068 Space Bar", "°0S-64 Utilities’, "Little League Scheduler", “Homemade ROM- Switch", "Draw Poker", "@L Super- BASIC Tutorial", "Using Quill With The QL Printer", “Inside the QL", and much more! If you like TIME DESIGNS...you’!11 like this new book. Order your copy today!

READER: SURVEY RESULTS Bore One

Over 280 TIME DESIGNS readers responded to our recent survey. Which is approximately 11 percent of our circulation. Some of the results were most in-—- teresting. The rest of the results will conclude next issue. We sincerely hope that this data will provide developers of hardware and software, and the Timex Sinclair dealers with a better understanding of our TS user community.

Average Age of TDM Subscriber: 45 Other Computer Owned: Oldest Reported Age: 79 4... 251000 Youngest Reported Age: 22 2.- TS2668 3; 2X80 Male/Female Ratio: 22 Male/i Female = oe » States of Highest TS User Concentration: California Most Popular Printer: New York 1. 2040 Thermal Printer Pennsylvannia 2. Gorilla Banana Florida 3. Epson RX-80 Texas 4. Star NX-10 Ohio 5. Panasonic KXP-1080 Illinois Virginia Most Popular Mass Storage Device Used: Michigan 1. Cassette Tape 2. Floppy Disk 10 Most Common Occupations of TS Users: 3. Microdrive Cartridges/Wafers 1. Retired 4. EPROMs 2. Engineer 3. Electronic Technician Most Popular TS2068 Disk Systems: 4. Supervisory/Management 1. Aerco FD-68 5. Student 2. Larken LKDOS 6. Instructor 3. Zebra FDD 7. Consultant 4. Oliger SAFE DOS 8. Military 5. Ramex MK 9. Sales | 10. Librarian 5 Most Popular Monitor Devices: 1 = Céleavcaind= B/W TV Top 5 Hobbies of TS Users: 2. Magnavox RGB 1. Computers 3. Zenith 2. Electronics 4. Sanyo 3. Photography 2. Commodore 4. Amateur Astronomy 5. Gardening oe dees Used The Most: TS2068 TS1000 QL

IBM (or compatible) Commodore 64

seh sod eck

\AQONDODODOODODODDGGEDGEDODOEDOODOONEDEOGELODODODDODONDEUOONNDNNOOOOGODRODEOUOONOOODOROEGR ANNA AED EONE GEA ROROOEOHNA 2 THNDGOUEOOODOOEGENOOGEDOOGRNODODROOROODGUNONDRDOODONOEDOUONOANOGENGONOOGANGONODOODOOORGRDOOONDOROOOROOOESEOGoOROLoORM

TIMEX SINCLAIR NEWS

FILLY ...

rut COLOR

mc? FOF] screen dumps aA ¢/ tor the 205A!

If only TIME DESIGNS were printed in color! Then we could show you what the actual "Sir Clive" screen dump (above) really looks like. It was produced using @ program called THE ARTIST, a TS2068 computer, an OKIMATE 20 Color Printer, and a special interface and printing utility software.

To back-track just a bit...a couple of years ago, a puzzled TDM subscriber sent a letter to the editor, and posed the question whether the OKIMATE 20 could be used with the 2068. Seems that the Okimate was configured to operate with "most popular brands" of personal computers, with optional "Plug 'n Print" interface/software packages...all of the brands, except the Timex (of course).

Thanks to the research and development of John McMichael (who also adapted an inexpensive Commodore plotter to the 2068), Timex users no longer have to face discrimination. Using the Okimate 20, the Commodore "Plug 'N Print" package, and John's new “Commodore serial port emulation circuit board", high quality screen dumps can now be enjoyed in color. John also offers several print utility programs to help get the job done.

Not only is the Okimate 20 a good color printer, but it is also suited for normal printer use (including NLQ mode).

Information about the interface, amd related 2068 software can be obtained by sending a legal SASE to: John McMichael, 1710 Palmer Drive, Laramie, WY 82070.

The Okimate 20 must be purchased elsewhere, and is available everywhere. Try Sears, Target, Best, or Lyco Computer Inc. (1-800-233-8760). Typical discount price for printer and "Plug ‘'n Print" package is right around $180.

iki ii

Another frequently requested device for the TS2068 is a MIDI Interface. MIDI stands for ‘Musical Instrument Digital Interface". Which is the means for hooking up electronic synthesizer keyboards, drum boxes (and much more) to your computer. Other computer brands like the ATARI ST and IBM PC are very

strong in the area of MIDI support, both hardware and software.

eR 7

MIDI FOR THE 2068

ii--5--——— —_— ce ae ee i ee rere ee

MIDI is an invaluable tool for music students, composers, and live performers. And since MIDI is a word-wide industrial standard among electronic music instrument manufacturers and computer manufacturers, it wouldn't matter if you had an ATARI or a SINCLAIR, the hardware compatibility should be the same.

Recently, Richard Hurd, ‘a TDM subscriber and occasional contributor wrote, "I have had success implementing MIDI on my TS2068. I also would be happy to hear from anyone interested in this."

Richard has purchased RAM Electronic's MUSIC MACHINE, a MIDI interface for the Spectrum, from England (see review in the November '86 issue of ZX

Computing), and also some accompanying MIDI software from a company called QUASAR. To operate the Spectrum hardware and software on the TS2068, Richard pur— chased John Mathewson's ''Twister Board" for the rear expansion bus, and also used a Spectrum emulator.

For further details, addresses, and even tips on ordering from Great Britain, send a SASE to: Richard Hurd, PO Box 153, Warrenton, OR 97146.

WHERE GOEST FRED??

Fred Nachbaur, formally of Nelson, British Columbia, Canada, and highly-respected authority on Sinclair computers, has taken several new turns. Most recently, he has accepted a position with a firm in Ottawa, and will be turning his 1TS1000/ZX81 product line over to other Timex Sinclair dealers.

Fred's own company, Silicon Mountain Computers, will be renamed "Silicon Mountain Electronics", which, as the name implies, will pursue avenues of a more general electronic nature as well as computers.

As a former TS software/hardware producer and supplier, Fred found that he lacked critical time and funding for development of various special projects, including one particular project...a new type of computer.

Fred recently told TIME DESIGNS that, "It should be clearly understood, however, that this project is by no means a certainty at this point. It's not be— cause of the infamous "big IF", rather it depends on a whole lot of "little if's". I have carefully chosen a core of potential developers who have expressed an interest to investigate the potentials; IF we all agree on the route to take; IF we all find the time to do our parts; IF the economics fall into place; IF the result of our brain-pooling results in a marketable product; IF no one comes up with a better mouse before we build a better trap...then there will be a new computer. But don't believe anything you hear, unless you hear it from us. If it does happen, it will not be, as rumour has it, a Timex "clone". The new machine will have some common features, such as elegance in simplicity, but a new machine in its own right.” .

Fred wants everyone to know that he will continue to be involved with the ZX81 family of fine computers; as a user, writer, and hacker, but not as a commercial supplier of TS software.

SECRET STUFF

Nigel Searle, a close associate of Sir Clive Sinclair for over sixteen years, announced to the General Assembly of the Boston Computer Society, on

June 22, that Sir Clive was involved in developing some highly secretive computer equipment, and that he (Sir Clive) would personally announce detailed plans of the project and launch it world-wide at an upcoming BCS meeting.

The only speculation and possible clues about the new computer equipment are coming out of the British press. Supposedly, Sir Clive is developing a new desktop computer based on transputer chip tech- nology, similar to the INMOS transputer, only Sir Clive felt that the INMOS was unsuitable for his project, and went out and developed his own transputer. The new desktop will reportedly out- perform any PC technology currently available, processing data more than 10 times faster than an IBM AT. The new machine will be marketed under the CAMBRIDGE COMPUTER LTD label, just as the Z88 Laptop is. :

CLEVELAND

Saturday, August 27 and Sunday, August 28, marks the date for the upcoming MIDWEST SINCLAIR COMPUTER CONFERENCE, which will be held at the Beck Center in Lakewood, Ohio (a suburb of Cleveland).

The Conference will feature TS exhibitors like Zebra Systems Inc., Sharp's Inc., Time Designs, and others; as well as seminars by Bill Ferrebee, James DuPuy, Basil Wentworth, Dave Hoshor, Thomas Simon, and others.

For complete details, info on accomodations available in the area, pre-registration forms, and more, send a SASE to: Andy Kosiorek, 2192 Glenbury Ave., Lakewood, OH 44107. For alternate information contact: James DuPuy, 6514 Bradley Ave (down), Parma, OH 44129, (216) 661-4105.

If you live in Ohio, any of the surrounding states, the midwest proper, Ontario (Canada), most anywhere on the eastcoast and southern states (or anywhere!)...come to the show and exchange ideas and information with fellow Timex Sinclair users.

i | 4

NEW RELEASES PODNUH is a clever name for a new TS2068 program, which has been thoroughly tested since its conception: in 1986. This Machine Code program in- cludes a BASIC programmer (called "Supra-Basic") with & swift and reliable method of passing parameters to,

hacker-types everywhere. It contains a complete annotated disassembly of the Home ROM and the XROM, along with several other tables of data. Mr. Pederson offers a theory which one may or might not accept about the development of the Timex ROM ard _ bank- switching routines...but it all makes for interesting reading. The book is priced at $20.00 + $3.00 postage and is available from: The WIDJUP Co., 1120 Merrifield S.E., Grand Rapids, MI 49507.

Arnold Ramaker, PO Box 263, Plymouth, WI 53073, (414) 893-8865, is busy designing an expansion box for the ZX81, TS1000, TS1500, TS2068, and Sinclair QL computers. Any one of the computers can be placed inside the supplied case. The expansion box will feature multi-expansion slots and provisions for attaching a monitor, and several other peripherals. Mr. Ramaker would like to hear from folks who are interested in purchasing an expansion box like this, to get an idea on what price range and any additional features people would like to see incorporated.

Matthew Zenkar, 142 Holcroft Rd., Rochester, NY 14612, (716) 663-2048, is offering a utility program which will allow QL owners who use the Digital Pre- cision Desktop Publisher software package, to dump their files to Hewlett Packard-compatible laser printers. Write for information and price.

The S.A.I.N. (Sinclair Artificial Intelligence Network) special interest group is now forming. It is for any Sinclair user interested in A.I., Micro- PROLOG, LISP, and other related topics. For further information, send a SASE to: Pete Fischer, PO Box 2002, Tempe, AZ 85281, or call the TIMEWARP BRS, (617) 481-0555 (setting: 8/1/N, 300 baud).

LARKEN PRESENTS 2. UP TO 256K RAM for your 2068

- Expand your 2048 with up to 254K of battery backed up Raa - Larken Operating system lets you SAVE to memory, just like cassette or disk. (Floppy disk not required )

~All Cassette commands supported. Very Fast and Reliable .

- Can be used with ALL existing 20468 or Spectrum software.

- Uses the new 32K static ram chips, 62254LP or 43254LP

~ System consists of Larken Cartridge and Rear Mesory Board.

## PRICE ~- MEMORY SYSTEM with 44K Ram cosesss $129.0 ~ MEMORY SYSTEM with 0 K asenecnsve: 5 95.00

and calling other Machine Code programs. These "other" programs may be customized routines, extensions of BASIC, utility programs, or complete applications programs. A PODNUH (version 1) package is available for $17.00 + $2.00 postage, which in- cludes selectable type fonts, a perpetual calendar, note pad, scientific calculator, and more. "Add-On" options will continue to be added, such as WYNN DOE (a windowing utility) for $5.00. The author is also interested in sharing his program with pro- grammerS or user groups, am is offering a disassembled listing with documentation for $1.00, with the hope that PODNUH is adopted as a new 2068 standard. Send check or money order to: Ron Ruegg, 37529 Perkins Road, Prairieville, LA 70769.

Many Timex fans have heard or read about the research that William J. Pederson of THE WIDJUP CO. has conducted on the TS2068 ROM/Operating Systen, from articles in several user group newsletters and magazines. Now there is a 160 page book by Mr. Pederson called "TOURING THE 1TS2068 ROM OPERATING SYSTEM". While this type of book isn't for everyone, it will be of interest to programmers amd 2068

LARKEN 2068 FLOPPY DISK SYSTEM - The most advanced Dos available for the 2068/Spectrum . LKdos uses ALL Commands such as CAT MERGE ERASE LOAD SAVE PRINT OPEN etc. Also can support RAMDISK up to 254K and Sequential / Randoa

Access Files (with additional software). .The Larken Disk Interface can handle up to 4 floppys for up to 3.2 MegaBytes of storage. Also NMI Save Button and KEMPSTON Joystick port on interface Also 10 Extended Basic commands for Windows and Graphics. AERCO RAMEX or OLIGER Disk users can add LKdos for gore commands, Ramdisk and access to all LKdos software ## PRICE - Larken Floppy Disk System ...ccscecsee $119.95

- Floppy Disk IF with 0 K Meaory board .. $149.95

- Larken Disk Edi tor sevnecavese

~ Sequential/Random access files ....eee

- Xmodem to Disk Modem package ..ecoccce

- 2X-B1 Floppy Interface ({ 15 left)...

- LKDOS for Aerco,Ramex or Oliger Disk IF

(All prices are US , Add 4$ Shipping )

LARKEN ELECTRONICS RR#2 NAVAN ONTARIO CANADA K4B-1H9 (613) -B35-2680

the

found that

The last four digits of

following program develops words based on telephone numbers. I have

a phone number is remembered as a word,

easier than the four numbers.

16K

should also work with a T1TS2068,

This program will run on a TS1000 or ZX81 with a RAM pack installed, or on a TS1500. This program with only minimal

changes to the program.

Line Uses:

Those

S"2X... PHONE HOME!"

A T51000/T51500/2X61 Program To Help Remember Telephone Numbers

by David Hartman

users with a 16K TS1000/ZX81, should end

up with "13505" printed on the screen, after entering the following line: PRINT (PEEK 16388 + 256 * PEEK 16

389) -

likely

1-24: Opening screen VARIABLES: 25-40: Instructions and input §0~70: Check for *°1”’ and 70’ ngs

80: See 8000 110-200: 202-255: 260-310: 500-575: 600-640: 53010-5040: 8000-8040:

Onn

BER SPELLS"

30 THEY

Assemble words by slicing Print results on screen Copy and continue Assemble words if a Re-establish phone number for printing Initialize, set up arrays

Not useful message

f? *"1’ or ’O0” are involved “xe

da Ky

REM WORDS FROM TELEPHONE NUMBERS

REM 105/1.1 3/20/88

SLOW

CLS

PRINT AT 6,03"WORDS FROM TELEPHONE NUMBERS"

PRINT AT 21,05"(C) GOSUB 5000 FOR J=1 TO NEXT J

CLS

PRINT TAB 83"TELEPHONE WORDS",,, PRINT "ENTER THE LAST FOUR DIGITS OF SPELL. THEN,

1988 DAVID HARTMAN"

WILL BE“,"ABLE TO REMEMBER IT WITHOUT","WRITING IT DOWN.

169 170 180 190 200 202 203

INPUT N&

IF LEN N$<4 THEN GOTO 90 LET F=0

FOR J=1 TO 4 IF N@(J)="1" IF N#(J)="1i" IF N#$(J)="0" NEXT J

IF F>1 THEN GOTO 8000

GOTO 110

PRINT AT 15,03;"YOU DID NOT ENTER A 4 DIGIT", "NUMBER. PLEASE TRY AGAIN. "

FOR J=1 TO 60

NEXT J GOTO 25 LET X=1 FAST FOR J=i FOR K=1 FOR L=1 TO 3

FOR M=1 TO 3

IF F THEN GOTO 500

LET WS(X)=LS(VAL N#$(1),J)+L&(VAL NS(2),

K)+L$(VAL N#(3),L)+L$(VAL NS(4)yM) LET X=X+1

NEXT M

NEXT L

NEXT K

NEXT J

CLS

SLOW

OR N$(J)="0O" THEN LET F=F+1 THEN LET N#(J)="Q" THEN LET N#(J)="Z"

59,3 TO 3

l; ms

3AT 14,03"LETS SEE WHAT YOUR NUM

YOUR TELEPHONE NUMBER TO SEE", “WHAT USE THAT WORD WHEN SOMEBODY WANTS YOUR", “NUMBER.

205 210 Z12 215 220 225 230 240 245 2350

260 270 280 290 300 310

500

THEY PROBABLY

(PEEK 16396 + 256 * PEEK 16397)

"13505" is your answer, then you have most typed in the program listing correctly.

Holds entered phone number

w$: Holds all possible letter combinations 1$: Holds telephone dial information

Flag indicates if a (Important to know because 1 and O do not have assigned letters) Increment control

For/Next control

71’ or a ’O’ is in the number

GOSUB 400

PRINT “HERE ARE THE CHOICES FOR "3NS3"=" PRINT :

LET J=1

FOR K=J TO J+5

IF K=82 THEN GOTO PRINT WS(K) 5". "3 NEXT K-

PRINT LET J=K GOTO 220 PRINT AT INPUT A$ IF AS<>"C" PRINT AT COPY

RUN

IF N$(1)="Z" THEN LET W#(X)="O"4+L3(VAL NS

(2) ,K)+LS(VAL N$(3),L)4+LS (VAL NS(4)5M) IF N$(1)="Q" THEN LET WS(X)="1"4+L$(VAL NS

(2) ,K)4+LS(VAL NS$(G),LI+LS$°VAL NE(4),M) IF N#®(2)="Z" THEN LET WS(X)=L$(VAL NS(1), J+"O"+L$(VAL NS(3),LI+LS(VAL NS(4),M)

260

21.0%" (C) COPY?

THEN GOTO 25

21,03" :

330 IF N$(2)="Q" THEN LET WS(X)=LE(VAL N#(1),

5020 LET L#(1)="" J)+"1"4L$(VAL NS(3),L)+LS(VAL NS(4),M) 5022 LET L$(2)="ABRC" 540 IF N#(3)="Z" THEN LET WS(X)=L$(VAL NS(1), J024 LET L$(3)="DEF* J)+L$(VAL NS(Z),K)+"O"+LS(VAL NS(4),M) oe = Sear 550 IF N$(3)="Q" THEN LET W$(X)=L$(VAL N$(1), 5030 LET SS J)+LS (VAL NS(2),K)+"1"4LS(VAL NS(4)5M) 5032 LET L$(7)="PRS" 560 IF N%(4)="Z" THEN LET WS(X)=L$(VAL N$(1), 5034 LET L$(8)="TuUV" J)+L$(VAL NS(2),K)4LS(VAL N$(3)5L) +"9" 3036 LET L$(9)="WxY" 570 IF N$(4)="Q" THEN LET W$(X)=L$(VAL NS(1), ee te Aes J)+L$(VAL N$(Z2),K)+LS(VAL N$(3B),L) +1" B000 CLS 375 GOTO 169 8005 GOSUB 600 380 STOP 8010 PRINT AT 14,03"YOUR NUMBER, "3N%5", HAS 600 FOR J=1 TO 4 Ei TOO MANY ONES OR ZEROS TO BE USEFUL 610 IF NS(Jo="Q" THEN LET N$(J)="1 IN- CREATING A WORD....SORRY ABOUT THAT." 620 IF N&(J)="Z" THEN LET NS(J)="0" 8020 FOR J=i To 100 630 NEXT J 8030 NEXT J 640 RETURN 8040 GOTO 25 5010 DIM L$(10,3) 8999 STOP 9010 RUN

eT By

A Cas

oTUD POKER

io-Style Game Listing For The

by William C. Andrews

This is a TS 2068 program to play FIVE CARD STUD POKER

against the computer, the dealer. After an ante you bet on each

card dealt. time by betting "9".

game’s progress.

The dealer matches your bet.

You may go out at any You must pay to see the hole card if needed. The dealer is also the banker and will keep track of the

When typing the program please note that letters in

quotes in lines 6919, 6939, 6059,

6149,

7828,

letter in lines 8991 to 89852 are in GRAPHIC mode for UDG’s. 9992 clears color from the screen for working on the program.

9991 and the last Line

Ze) 268

262 LET FP (3) =V;

GO TO 3288

NEXT Ks GO TO 482

LET X#(2)=AS(F,

Line 6969 selects cards randomly and line 6119 prevents 4)3 RETURN duplication. Cards are shuffled for each game. 265 LET F(4)=@Vi LET X#(4)=AS(F, 4): RETURN 3 For a tape of this program send $ 19.99 pp to me at 30 268 LET P(S)=V:i LET X#(3) #AS(F, Oak Knoll Drive, San Anselmo, CA. 94949. 4): RETURN 30% FOR Im18 TO 24 STEP 3 3i@ LET AsI iO LET ST=190 195 PRINT PAFER 4;L$ 328 GO SUB 4000 15 IF ST<=0 THEN GO TO 467¢ 110 FOR N=16 TO 21: PRINT AT N, 330 GO SUB 3460+( (1/3) -5) 20 BORDER 4: PAPER 4: CLS : LE @; PAPER 4;" 340 GO SUB 42300+(1+2) T T=@: GO SUB 8sgae - “i NEXT N 345 IF Il=24 THEN IF DR>=1 AND 25 PAPER 7: FOR N=2 TO 14: FRI — ee 4959 alae AND DL>PL THEN GO TO Sii ee "s NEXT N aes — Pe@: LET D=@ 35@ GO SUB 4750 a se = Z@ PRINT FLASH 13 PAPER 6;AT 355 GO TO 26g 30 LET PR=@: LET DR=@: LET PL fear < peek ke Se $85.50 30268. @s LET DL=@: DIM X#(5)s DIM Y#(6 gg eee pe a ee ) xs 400! . i har dil ae 36% LET D(3)=V: LET Y$(3)=A8 (F A ai eee 4:" "y PAP GO-SUR 6208 4): RETURN ER 2; INK 9; BRIGHT 1;AT @,5;" F Be ea lg Saag S get LET Dis) eva LET, YELAISAGtr, ee ye ee Ag a a opti 363 LET D(S)=V1 LET Y8(5)=A8(F, ie aes 155 LET P(2)=V: LET X$(2) AS (F, 4)1 RETURN 4) 5 $a caineaeselaemiaiaiamiianeainmeein 400 LET B=4: LET A=18 ne ee ees 160 LET H=i: LET A=18: GO SUB 6 cio 6a ee ieee <5 jg 1) otonmntannaanmnermttacacr assoc Doo 420 LET D(1)=Vi LET Y#(1)=AS(F rie oc 165 LET H=@: LET A=24: GO SUB 6 4) . 60 PRINT FPAFER 4:K% 430 GO SUB 4499 65 PRINT "@"; INK @;" YOUR HA gee LE) As2t LEY Oia) evi LET YS 435 GO SUB 4430 ND DEALERS HAND "3; INK 13" § (2) =AS(F, 4) 448 GO TO See " 175 GO SUB 4606 1@0@ DIM A(5): FOR N=1 TO 5 70 PRINT AT 3, G;L;AT 3,0; "R"3 169 GO SUB 4750 1918 LET A(N) =F (N) AT 3,31)"5" 200 LET Bae 1920 NEXT N: GO SUB 1150: RETURN A ee a 218 FOR K=2 TO 8 STEP 3 80 PRINT "§";TAB 313" @"3;TAB 3 220 LET A=K 193@ DIM A(S): FOR N=1 TO 5 1; TAB Sis" y <30 GO SUB 6999 1935 LET A(N)=D(N) 85 NEXT I 240 GO SUB 260+K 114M NEXT N: GO SUB 115@: RETURN Be tep Sack oes e 258 GO SUB 4990+(Kx19) 5; F ge 21 GO SUB 4280 1158 LET STR=@: FOR N=1 TO 4 fon eee nee Cee eS 252 IF K>2 THEN GO TO 358 4 oo eee 6 1178 LET C=A(M) 118@ LET D=A(M+1)

1198 IF C<=D THEN GO TO i229 1208 LET A(M)=D

1219 LET A(M+1)2C

1228 NEXT M

1238 NEXT N

1249 FOR N=2 TO 5

1258 IF A(N)#=A(N-1)+1 THEN GO T 0 1279

1268 return

1278 NEXT N

1289 LET STR=1: RETURN

3999 STOP

4000 IF P(2)=P(1) THEN LET PL=p

(2): GO TO 4150

4G1® RETURN

4020 IF P(3)=P(1) OR P(3)=eP(2) T

HEN LET PL=P(3): GO TO 4156

4%21 RETURN :

4030 IF PR=1 THEN IF P(3)=P(1)

AND P(3)=P(2) THEN LET PL=P(3)3 GO TO 4199

4842 RETURN

4050 IF PR=1 THEN IF P(4)=P(1)

AND P(4)=P(2) OR P(4)=P(1) AND P (4)=P(3) OR P(4)=P(2) AND P(4) =P (3) THEN LET PL=P(4): GO TO 419

4060 IF P(4)=P(1) OR P(4)=P(2) O

R P(4)=P(3) THEN LET PL=P(4): G

0 TO 4150

497% RETURN

4080 IF PR=3 THEN IF P(5)=P(1)

AND P(5)<>P(4) OR P(S)=P(2) AND

P(5)<oF (4) OR P(5)=P(3) AND P(3)

<>P(4) OR P(5)=P(4) AND P(5)<>P(

3) THEN LET PL=P(5): GO TO 4290

4090 IF PR=3 THEN IF P(5)=P(2)

OR F(S5)=P(3) OR P(S)=P(4) THEN

LET PL=P(5): GO TO 4209

4190 IF PR=2 THEN IF P(5)=P(1)

AND P(5)=P(2) OR P(S5)=P(1) AND P (S)=@P(3) OR P(S)=P(1) AND P(S)

=P (4) OR P(5)=P(2) AND P (5)=P(3) OR P(5)=P(2) AND P(S)

=P (4) OR P(5)=P(3) AND P(5) =P (4) THEN LET PL=P(5): GO TO 4192

4119 IF PR=1 THEN IF P(5) =P (1) AND F(5)=P(2) OR F(5)=F(1) AND P(S)=P(3) OR P(5)=P(1) AND P(5) =P (4) OR P(5)=P(2) AND P(S) = P(3) OR P(5)=P(2) AND P(S) =P(

4) OR P(S)=P (3) AND P(S) =P(

4) THEN LET PL=P(5): GO TO 4199 4120 IF P(5)=F(1) OR P(S) =P (2) OR P(5)=P(3) OR P(5)=P(4) THE N LET PL=F (5): GO TO 415@

4148 RETURN

4150 LET PR=PR+1

4168 IF PR=1 THEN PRINT INK 23 AT 16,2;"0NE PAIR", INK 1,AT 17, 25 "ates BEEP 3,19

4170 IF PR=2 THEN PRINT INK 23

AT 16,2;"TWO"s BEEP .3,19s

BEEP .3,10

418 RETURN

4198 LET PR=PR+1

420 LET PR=PR+1

4219 IF FR=5 THEN GO TO 426@

4220 IF PR=3 THEN FRINT INK 23

AT 16,13" THREE 2 AT 17,13 "OF

A KIND"; INK 1sAT 18, 15 “ateMaMaMeMaMe”

"; BEEP .2,10: BEEF .2,14: BEEF tote

4230 IF PR=3 THEN RETURN

4249 IF PR=4 THEN PRINT INK 23

AT 16,143" FOUR “3AT 17,15"0F

A KIND"; INK 15AT 18, 15 “eteMeMatataMeM”

*"'; BEEF .2,10: BEEF .2,1@: BEEP -2,10: BEEP .2,1%

4250 RETURN

4260 IF PR=5 THEN PRINT INK 2;

AT 16,@;"FULL HOUSE"; INK 13;AT 1

7 ; By ii ee te! 3 BEEF a bed ; 1s BE

EP .2,1%8: BEEP .2,1@: BEEP .2,19 : BEEP .2,1@: BEEF .2,1@:

BEEP .2,1@: BEEP .2,1@: BEEP 2,18

427% RETURN

“4280 IF X$(1)=X#(2) THEN IF x@(

2)=X$(3) THEN IF X#(3)=X%(4) TH EN IF X#$(4)=#X$(5) THEN LET FR= &

299 IF PR®& THEN PRINT INK 2; AT 16,13" FLUSH "3 INK 13AT 17 pig atetete"e"e"e"e"s"" 3 FOR N=1 TO 10: B EEP .2,1@: NEXT N 4291 GO SUB 14%: IF STR=1 THEN

LET PR=7 4292 IF FR=7 THEN FRINT INK 23 AT 16,13; "STRAIGHT "3; INK 13AT 17 pig ates eee "e"e”' s FOR N=i TO if: B EEP .2,19: NEXT N :

4299 RETURN

4320 IF D(3)=D(2) THEN LET DL =D(2): GO TO 4499

4321 RETURN

4323 IF DR=1 THEN IF D(4)=D(2) AND D(4)#D(3) THEN LET DL=D(4):

440% IF DR=3 THEN IF D(1)#D(2 ) AND D(1)<>D(5) OR D(1)=D(3) AN D D(1)<>D(5) OR D(1)=D(4) AND D¢(1)<>D(5) OR D(1)=D(S) AND D1) <7D(4) THEN LET DL=D(1): GO To 4546 4410 IF DR=2 THEN IF D(1)#=D(2) OR D(1)=D(2) OR D(1)=D(3) THEN LET DL=D(1):.G0O TO 4530 4426 IF DR=1 THEN IF D(1)=D(2) AND D(2)=D(3) OR D(1)=D(2) AND D(2)=D(4) OR D(1)=D(2) AND D(2)=#D(5) OR D(1)=D(3) AND D (3)=D(4) OR D(1)=D(3) AND D3) =D(S) OR D(1)=D(4) AND D(4)= D(S) THEN LET DL#=D(1): GO TO 45 4d 4430 IF DR=1 THEN IF D(1)=D(2) OR D(1)=D(3) OR D(1)=D(4) OR Dit

GO TO 4548 )=D(5) THEN LET DL=D(1): GO TO 4324 IF D(4)=D(2) OR D(4)=D(3) T A4e0

HEN LET DL=D(4): GO TO 4499 4440 IF D(1)=D(2) OR D(1)=D(3) O

4525 RETURN R D(1)=D(4) OR D(1)=D(S5) THEN L 4326 IF DR=3 THEN IF D(5)=D(2 BT Baws 1134200 7o"kaes

Y AND D(S)=D(3) AND D(5)=D(4) TH 4450 RETURN EN LET DL=D(5)1 GO TO 4540 4460 LET DR@DR+1 4370 IF DR=1 THEN IF D(5)=D

. 4488 GO TO 4590 (2) AND D(S)=D(3) OR D(5)=D(2) A 4490 LET DReDR+i

ND D(5)#D(4) OR D(5)=D(3) AND D( ; 4592 IF DR=1 THEN PRINT INK 2

alias 215 "ate": BEEP 3,2

4560 IF D(S)=D(2) OR D(S)= 451% IF DR=2 THEN PRINT INK 2; DL=D(5): GO TO 4499 =.

429% RETURN

3-D mathematical plot of the moon’s surface (appeared in TDM J/A '85) Converts astronomic coordinates to altitude/azimuth (in TDM N/D ’85) Ultra-easy designer graphics for redesign of U.D.G.s (in TDM J/A '86) “udg” version 2 allows multiple fonts and much more (in TDM N/D ’66) BASIC full-screen window facility + restores screen (in SWN N/D ’86) BASIC Classy Front End new fonts utility (as appeared in TDM M/A ’87) Complete Classy Front End fonts M.C. version (as in TDM J/A-N/D ’87) PLUS this addition if you wish: “wkp” Windows & Portholes complete--can work with “ofe/mc” (New this issue) BINGHAM’S BEST 9.95 ppd 12.95 ppd

“UDG+" The popular & useful "son" of udg program as found in BINGHAM’s BEST “cfe/mc” Complete M.C. version of Classy Front End (use alone or with “wkp" )

“wkp" The complete M.C. version of Windows & Portholes (stand-alone also) JAZZOFIRE : 95 vod

Mail all orders to: PAUL BINGHAM P.O. BOX 2034 MESA, AZ 85214

& (please US funds only) | includes i e @ Ounag Fire Windows WHS 2 ¢O0 cB

| co ott ee Hons le ovine os al Sle tat cee JE cas a ss SS, EBIQEsSeREEIIE; | (2 Se Wy Portholes

TaPUVASASHRU ASSAD EAA SSSUIANSSASISONSLSSSISSSSISHASHBMHHBIE

SUnoHE Y ‘

* New sted — er sal: sh RM ToT POS ated? THRE OCT CHILD EST UVURY 2]. Ox 66 gta dl oes pes tree ryr Ayse (Noe JOLT ¢Se Oat)? TFET COP CHILI

FUOAODEDUGODED OR ETATERODopengoNS BU

452@ RETURN

4520 LET DR=DR+1

4540 LET DR=DR+1

4550 LET DR=DR+1

4548 IF DR=S THEN GO TO 4610 4570 IF DR=3 THEN FRINT INK 23 AT 16,213" THREE "sAT 17,213 "0 F A KIND", INK 13;AT 18, 215 "etwtetets® ee": BEEP .2,2: BEEP .2,2: BE EP .2,2

4580 IF DR=3 THEN RETURN

4590 IF DR=4 THEN PRINT INK 23 AT 16,215" FOUR “sAT 17,213"0 F A KIND"s INK 1; AT 18,21) "etette’? e""": BEEP .2,2: BEEP .2,2: BEE P .2,2: BEEP .2,2

460@ RETURN

4619 IF DR=S THEN PRINT INK 23 AT 16,21;"FULL HOUSE";AT 17,213" aeeteee"e"ee”' 1 FOR N=1 TO 8: BEEP .2,2: NEXT N

4620 RETURN

4620 IF Y#(1)=Y$(2) THEN IF Ys( 2)=Y$(3) THEN IF Y#(3)=Y#(4) TH EN IF Y#(4)=Y#(5) THEN LET DR= &

4640 IF DR=6& THEN FRINT INK a AT 16,213" FLUSH.-"sAT 17,21; "oe ofaMe"e"e"e"e"e"" : BEEP .2,23 BEEF .2, 2: BEEP .2,2: BEEP .2,2: B

EEP .2,2: BEEF .2,2: BEEF Pr 4 465% GO SUB 193%: IF STR=1 THEN LET DR=7

4655 IF DR=7 THEN PRINT INK 2} AT 16,215" STRAIGHT "sAT 17,213" anata eee ees FOR N=1 TO 8: BEEF e2,28 NEXT N

4660 RETURN

467@ BORDER 6: FPAFER 6: CLS

468% PRINT INK @;AT 9,18;"YOU’'R E BROKE" ;AT 11,1;"SEE YOUR BANKE R AND COME BACK."

469% FAUSE @

4728 STOP

4719-PRINT AT 19,@;"YOU NOW

"SAT 20,8; "HAVE-8 "3ST

4720 IF ST<1@ THEN PRINT AT 28, 83" is

4730 IF ST<18G8 THEN FRINT AT 22 9 73 8 ie

4746 IF ST<=8 THEN GO TO 467% 475% PRINT FLASH 1; PAPER 6;AT ios. sai.”

£760. PRINT AT 17,153" —"

47708 FRINT AT 19,@3;"YOU NOW er AT 20,M;"HAVE-$ ";ST: IF ST<190 THEN FRINT AT 20,93" "

4780 .INFUT W

4790 PRINT AT 16,1233" .

4890 LET W=INT W

4810 IF W>16 THEN FRINT AT 17,1 S;"SORRY,"sAT 18,13; "LIMIT"sAT 1 9,113" "SAT 19,133 "% 10" 4820 IF W>18 THEN FAUSE 150 4830 IF W218 THEN FRINT AT 17,1 33" "SAT 18,133" "SAT 9, 415" rs

4849 IF W>1@ THEN GO TO 474¢ 4858 IF W<1 THEN FRINT AT 16,11

3 PAPER S; FLASH 1;" YOU "SA T 27,1325" CHOSE. "SAT 16,11, " TO GO “sAT 19, bas” imei =*%: 3

EEP 1,-15: PAUSE 15@: GO TO 512% 4868 LET ST=ST-w 4878 LET T=T+2xW 488@ PRINT AT 17,133" "SAT 18,12;" "SAT 19,113" “SAT 17,13; "8 "sW 489% PRINT AT 20,7;ST

49090 IF ST<1@ THEN PRINT AT 29, 8, i i : 4919 IF ST<19@ THEN PRINT AT 2g V3 a de

4920 IF T<1@@ THEN FRINT AT 19, 11;"TOTAL=$"3T

4930 IF T>=19@ THEN PRINT AT 19 »ils"TOTALS"3T

4948 RETURN

4958 FOR 1=16 TO 20

4966 PRINT AT 1,10; PAPER 4; "8"; AT 1,20; "a"

497% NEXT I

4980 PRINT AT 15,10; PAPER 4; "" ae

4985 FOR N=16 TO 19: PRINT AT N, lis PAPER 73; INK 13" my NEXT N

4999 PRINT AT 20,10; PAPER 4)" 9" s PAPER 2; INK 93" THE POT "3; PA

PER 4;"8"

4995 RETURN ,

S@1i@ IF PR>DR THEN GO TO 5a@6o S@15 IF DR>PR THEN GO TO 5119 520 IF PR=@® AND DR=@ THEN GO T

O 5130

5@30 IF PR=DR AND PL>DL THEN GO TO 5049

5049 IF PR=DR AND DL>PL THEN GO TO 5119

5050 GO TO Size

5068 PAUSE ao

5S@70 PRINT FLASH 13 INK 1;AT 16 ,13;" WINNER "3 FLASH @; INK 3A T 17,43" "SAT 17,33" "3

T: FOR N=1 TO 8: BEEP .1,19: NEX TN

5080 LET ST=ST+T

5090 PRINT AT 20,7;ST

5108 GO TO Size

5118 PAUSE ag

S120 PRYNT FLASH 13 INK 1;AT 16 »21;" WINNER "3 FLASH @} INK Q}

AT 17,213" "sT: FOR N=1 TO 8: BEEP .1,-191 NEXT N

S13@ PRINT AT 16,113 PAPER 4; FL

ASH 15" PLAY "“sAT 17,113" ANO

THER "s3AT 18,113" HAND? "sAT 4

9,113" (Y/N) "

514@ PAUSE @

S150 IF INKEY$="N" THEN GO TO 3

149 |

5i55 GO To 11

S16@ BORDER 3: FPAFER 3: INK 7: C

5170 PRINT AT 1@,1;"HOPE YOU HAD FUN---COME AGAIN."

5i8@ PAUSE @.

5192 STOP

600% FOR C=1 TO 2

6918 PRINT AT B,A;"FJJIG"

6%20 FOR N=B+1 TO B+5

693G PRINT AT N,A;"K kK"

6848 NEXT N

6850 PRINT AT B+46,A;"HJJJI"

6968 NEXT C

6W@65 BEEF .@1,10

697@ IF H=1 THEN GO TO 61239

6W88 GO SUB 7oa"

6090 PRINT AT B+i,A+1; INK X;A8(

F,4)sAT B+3,A+1; INK @,AS(F,2 TO 3)s;AT B+S,A+3; INK X;AS(F, 4)

6100 LET V=@: GO SUB 7040

6110 LET AS(F,1)="4"