1 REM JUMBLES
2 DIMB$(30),J$(25),L$(30),W$(25)
99 POKE53281,13:POKE53280,6
100 PRINT"[147][144]"CHR$(142);TAB(8);"C= JUMBLES - BILL SANDER"
110 INPUT"      TOPIC";T$
120 INPUT" # OF WORDS";N:IFN>25THENPRINT"25 WORDS MAX!!":GOTO120
130 :
140 FORJ=1TO20:B$=B$+CHR$(164):NEXT
150 FORW=1TON
160 PRINT"  WORD #";W;:INPUTW$
170 L=LEN(W$):W$(W)=W$:FORK=1TOL:L$(K)=MID$(W$,K,1):IFL$(K)=" "THENL$(K)="-"
180 B(K)=K:NEXT
190 FORK=1TOL:D=INT(RND(0)*L+1):E=INT(RND(0)*L+1):T=B(D):B(D)=B(E):B(E)=T:NEXT
200 FORK=1TOL:J$(W)=J$(W)+L$(B(K)):NEXT
210 NEXT
220 POKE144,0:OPEN4,4:PRINT#4:CLOSE4:IFST=0THEN230
222 PRINT"[147]"SPC(15)"NAUGHTY"
223 PRINTSPC(15)"NAUGHTY"
224 PRINT"   YOU DON'T SEEM TO HAVE A PRINTER"
225 PRINT"       ON-LINE AND READY TO GO..."
226 PRINT"   PLEASE PRESS A KEY AND TRY AGAIN."
227 PRINT"       < PRESS 'Q' TO QUIT NOW>"
228 POKE198,0:WAIT198,1:GETA$:IFA$<>"Q"THEN220
229 GOTO60000
230 OPEN4,4:CMD4:PRINTSPC((80-LEN(T$))/2);T$:PRINT
240 PRINT:PRINT:FORJ=1TON:PRINTSPC(30-LEN(J$(J)));J$(J);"  ";B$:PRINT:NEXT
250 FORJ=1TO53-3*N:PRINT:NEXT
260 FORJ=1TON:PRINTW$(J):NEXT
270 PRINT#4:CLOSE4
60000 REM RE-CONNECT
60010 PRINT"[147]WOULD YOU LIKE TO DO ANOTHER?"
60012 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"THEN60012
60014 IFA$="Y"THEN99
60020 PRINT"[147]"SPC(12)"LOADING MENU..."
60030 POKE646,PEEK(53281):F$="MAGIC MENU"
60040 PRINT"LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END