80 TEXT : HOME : PRINT CHR$(21);: INVERSE : PRINT TAB( 10)"N O G G I N" TAB( 41): PRINT "BY MARK YANNONE (C)1989 MICROSPARC, INC";
90 POKE 34,5: GOSUB 280: VTAB 21: PRINT "SCORING:": PRINT "LETTERS IN WORD --> 4 5 6 7 8+":
100 PRINT "POINTS --> 1 2 3 5 10": FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT " <- -> (P)AUSE (N)EW (Q)UIT";: POKE 35,19: POKE 33,14
110 POKE 32,13:X = 49200: DIM B$(25,6),N(25),M(25):I = RND( -( PEEK(78) +256 * PEEK(79))):I = 1: FOR E = I TO 25: FOR F = I TO 6: READ B$(E,F): NEXT : NEXT :F = 6
120 E = 25: FOR G = I TO E:M(G) = C: NEXT : ON NOT H GOTO 130: HOME : GOSUB 280
130 FOR G = I TO E
140 M = INT( RND(I) *E) +I: ON M(M) >C GOTO 140:M(M) = M:N(G) = M: NEXT : FOR L = I TO 5: FOR Z = I TO 5:Z$(L,Z) = B$(N(E), INT( RND(I) *F) +I):E = E -I: NEXT : NEXT :T = 300
150 HOME :S = C: FOR Z = I TO 5: VTAB 2 *Z +4: FOR L = I TO 5: GOTO 190
160 HOME : FOR L = I TO 5: VTAB 2 *L +4: FOR Z = 5 TO I STEP -I: GOTO 190
170 HOME : FOR Z = 5 TO I STEP -I: VTAB 16 -2 *Z: FOR L = 5 TO I STEP -I: GOTO 190
180 HOME : FOR L = 5 TO I STEP -I: VTAB 16 -2 *L: FOR Z = I TO 5
190 PRINT LEFT$(Z$(L,Z) +" ",3);: NEXT : PRINT : NEXT : PRINT
200 VTAB 17: HTAB 5: INVERSE : PRINT " " RIGHT$("00" + STR$(T) +" ",4): NORMAL :H = PEEK(X) + PEEK(X):T = T -I: ON T <C GOTO 270: FOR H = 1 TO 1040: NEXT :A$ = "": ON PEEK(49152) <128 GOTO 200:A$ = CHR$( PEEK(49152) -128)
210 POKE 49168,C: ON A$ = CHR$(80) OR A$ = CHR$(112) GOTO 240: ON A$ = CHR$(8) OR A$ = CHR$(21) GOTO 220: ON A$ = CHR$(78) OR A$ = CHR$(110) GOTO 320: ON (A$ = CHR$(81) OR A$ = CHR$(113)) GOTO 300: GOTO 200
220 S = S -I *(A$ = CHR$(8)) +I *(A$ = CHR$(21)):S = S - INT(S/4) *4: IF S <C THEN ON ABS(S) GOTO 180,170,160
230 ON S GOTO 160,170,180: GOTO 150
240 HOME : VTAB 12: HTAB 2: PRINT "WAITING...";: GET A$: POKE 49168,C: GOTO 220
250 Y = 0: HOME : VTAB 12: PRINT "ARE YOU SURE? (Y/N) ";: POKE -16368,0: GET AN$: PRINT AN$;:Y = AN$ = "Y" OR AN$ = "y": IF NOT Y AND AN$ < >"n" AND AN$ < >"N" THEN 250
260 VTAB 12: PRINT SPC( 40);: RETURN
270 VTAB 18: HTAB 3: INVERSE : PRINT CHR$(7)" S T O P " CHR$(7);: NORMAL : HTAB 29: GET A$: GOTO 120
280 VTAB 12: HTAB 15 - PEEK(32): INVERSE : PRINT "SHAKING DICE": NORMAL : RETURN : DATA R,L,H,H,D,O,W,R,O,V,R,G,Y,R,R,R,P,I,Y,R,F,S,P,I,D,D,O,N,H,T,S,E,N,U,S,S,S,A,R,A,F,I,X,B,K,J,Z,QU,S,A,R,I,Y,F,R,N,H,L,D,O,C,L,I,T,I,E,E,N,N,N,A,D,M,T,E
290 DATA T,T,O,M,E,A,U,G,E,N,U,W,T,O,O,M,A,N,G,E,N,C,L,I,T,E,P,E,A,E,A,E,E,U,T,T,O,O,O,T,E,T,I,I,I,O,R,D,H,L,N,S,I,T,C,E,P,N,T,C,S,E,C,F,A,A,A,R,S,M,E,A,E,E,E
