Info

10 POKE 16553, 255 : CLEAR 500 : DEFINT A - Z : FOR X = 1 TO 57 : READ Z : A $ = A$ + CHR$(Z) : NEXT : X = FRE(A$) : X = VARPTR(A$) 15 POKE 16526, PEEKCX + 1) : POKE 16527

, PEEKCX + 2) 20 DATA 33, 0, 0, 219, 255, 203, 119, 2 2, 12, 40, 2, 22, 4, 23, 48, 35, 24,

Machine language application

25 DATA 0, 122, 211, 255, 1, 0, 5, 205, 96, 0, 219, 255, 23, 56, 236, 35, 24 , 228, 11, 120, 177, 32, 223, 122, 21 1, 255, 195, 154, 10 30 CLS : PRINT "SOUND DRIVEN GAME SCORE R" : PRINT "BY JAMES F. WILLIAMS" : P RINT : INPUT "NUMBER OF PLAYERS"; N 40 FOR X = 1 TO N : PRINT "NAME OF PLAY

ER"; X; : INPUT N$(X) : NEXT 50 CLS : PRINT "DIGIT ENTRY" : PRINT : PRINT "1 = ONE CLAP" : PRINT "2 = TWO CLAPS" : PRINT "." : PRINT "." : PRI NT "." : PRINT "9 = NINE CLAPS" 55 PRINT "0 = TEN CLAPS" : PRINT "NEGAT IVE SIGN = ELEVEN CLAPS" : PRINT : IN PUT "PRESS ENTER TO CONTINUE"; X 60 FOR Z = 1 TO N

70 CLS : PRINT CHR$(23) : FOR X = 1 TO N : PRINT N$(X), S(X) : NEXT : PRINT

80 PRINT "CLAP 3 TIMES FOR "; N$(Z) : P RINT

T! = 0 : S = 1 : PRINT N$(Z); " "; 100 U = 0

110 X = USR(X) : U = U + 1 : IF X = 0 A ND U < 150 THEN 110 ELSE IF X = 0 THE N 140

120 IF X > 11 THEN 70 ELSE IF X = 11 TH EN S = - 1 : PRINT "-"; : GOTO 100 EL SE IF X = 10 THEN X = 0 130 T! = T! * 10 + X : PRINT MID$(STR$(

X), 2, 1); : GOTO 100 140 PRINT : PRINT : PRINT "CLAP 3 TIMES

TO CONFIRM" : U = 0 150 X = USR(X) : U = U + 1 : IF X = 0 A

ND U < 150 THEN 150 160, PRINT : IF X <> 3 THEN PRINT "NOT C ONFIRMED" : FOR X = 1 TO 1000 : NEXT : GOTO 70

170 PRINT "CONFIRMED" : FOR X = 1 TO 10 00 : NEXT : S(Z) = S(Z) + Ti * S : NE XT : GOTO 60

175 '********************************** *********************

180 'MAKE THESE MODIFICATIONS FOR DISK BASIC:

190 1 1. CHANGE LINE 15 TO: 200 1 POKE VARPTR(Z),PEEK(X+1

TRS 80 OWNER:

What are you doing without a ofau K€VßOARD ^

BWScoMpnNioN?

TRS-80 Model II, with 20" Keyboard Companion

TRS-80 Model II, with 20" Keyboard Companion

TRS-80 Model I, with 16" Keyboard Companion

Use one of these new computer copy stands and you'll realize the efficiency and operator comfort a P-KAY stand provides. Keeps the work directly in front of the operator (not to the neck-craning left or right!). Models to fit virtually all computer terminals with detachable keyboards including micros, minis, main/frame terminals, dedicated word processors, the APPLE . . . AND INCLUDING THE TRS 80 MODELS SHOWN ABOVE.

The P-KAY installs in minutes without tools. The all steel pedestal or "riser" provides sturdy lift. The guideline is nonmagnetic: place floppy diskettes or mag tapes on it without worry of erasure or damage.

FSI is a major distributor for P-KAY Products, with stock on hand. Contact our Reseda office for details.

TRS-80 Model II, version for Terminals w/slanted screens

TRS-80 Model II, version for Terminals w/slanted screens

TRS-80 Model I with P-KAY Components in position

Circle # 45

TRS-80 Model I with P-KAY Components in position

Circle # 45

See FSI in Booth 305, MINI-MICRO COMPUTER CONF./EXPO November 2,3,4 Anaheim Convention Center

•=■ ~ 2680 Bayshore Frontage Road, Suite 1030 -----Mountain View, CA 94043 (415) 962-9275

0 0

Post a comment