### KUDOS

This program controls the random choice of three decks of CALC cards (Decks B, C, and D). It enables the game to continue over several days by keeping track of the used cards. The starting card value S gives the user the ability to change the cards used.

Players use the KUDOS cards to cover the random BLOCK. The information contained on the displayed CALC card should be copied down and solved. When a player has a row, column, or major diagonal covered in markers, he/she yells KUDOS and play for the day ends.

PROGRAM:KUDOS

:ClrHome
:Disp "NEW GAME"
:Disp "1 = YES"
:Disp "2 = NO"
:Input G
:If G=1
:Then
:Lbl 1
:ClrHome
:Disp "STARTING CARD"
:Input S
:If S > 125
:Then
:Output(5,1,"TOO LARGE")
:Output(6,1,"TRY VALUE < 125")
:For(Z,1,500)
:End
:Goto 1
:End
:ClrList L6
:For(I,1,75)
:0->L6(I)
:End
:S->L6(76)
:Else
:L6(76)->S
:End
:Lbl 2
:randInt(1,75)->N
:While L6(N)<>0
:randInt(1,75)->N
:End
:If L6(N)=0
:Then
:randInt(1,3)->D
:ClrHome
:If D=1
:Output(2,4,"DECK B")
:If D=2
:Output(2,4,"DECK C")
:If D=3
:Output(2,4,"DECK D")
:Output(2,11,N+S)
:D->L6(N)
:Output(4,4,"BLOCK")
:Outout(4,11,N)
:End
:Output(7,1,"AGAIN?")
:Output(8,1,"1 = YES")
:Output(8,11,"2 = NO")
:getKey->R
:While R=0
:getKey->R
:End
:If R=92
:Goto 2
:ClrHome

Notes:

1. The symbol -> represents the STORE command.
2. The symbol <> represents NOT EQUAL found in the TEST menu.