10 REM"�DON'T RENUMBER!
   20 REM ANAGRAM ANSWERS - J. DAVIS '94
   30 MODE7
   40 VDU23,1,0;0;0;0; 
   50 A$=CHR$(141)
   60 PRINT"�  ANAGRAM ANSWERS - 8BS 36"  
   70 PRINTCHR$(148);STRING$(39,"s") 
   80 FORC=1TO9
   90 RESTORE(1000*C)
  100 READS$
  110 L=LEN(S$)
  120 PRINTTAB(0,C*2+1);A$;"�";S$;"�<=>";"�"
  130 PRINTTAB(0,C*2+2);A$;"�";S$;"�<=>";"�"  
  140 PRINTTAB(3,23)"PRESS SPACE" 
  150 A=GET
  160 PRINTTAB(3,23)"           "
  170 PRINTTAB(0,C*2+3);A$;"�";S$ 
  180 PRINTTAB(0,C*2+4);A$;"�";S$ 
  190 FORP=1TO500:NEXT
  200 FORM=1TOL
  210 B$=MID$(S$,L-M+1,1)
  220 FORN=1TO38-L
  230 R=N+L-M+1
  240 PRINTTAB(R,C*2+3);B$         
  250 PRINTTAB(R,C*2+4);B$  
  260 FORP=1TO10:NEXT  
  270 NEXT
  290 NEXT
  300 L=L-1
  310 S$=RIGHT$(S$,L)
  320 FORN=1TOL
  330 FORP=1TO400:NEXT 
  340 READX
  350 X$=MID$(S$,X,1)+" "
  360 PRINTTAB(38-L+X,C*2+3);" "  
  370 PRINTTAB(38-L+X,C*2+4);" " 
  380 FORM=38-L+X TO L+7+N STEP-1
  390 PRINTTAB(M,C*2+1);X$  
  400 PRINTTAB(M,C*2+2);X$   
  410 FORP=1TO100:NEXT   
  420 NEXTM
  430 NEXTN
  440 PRINTCHR$(7) 
  450 FORP=1TO3000:NEXT
  460 NEXTC
  470 PRINTTAB(3,23)"PRESS SPACE"
  480 A=GET
  490 PRINTTAB(2,23)"�And can you think of five anagrams of  �PETALS�?";
  500 A=GET
  510 PRINT"   �Sorry - no help!";
  520 GOTO520
 1000 DATA" SENATOR" 
 1010 DATA 5,7,2,4,1,6,3 
 2000 DATA" RUFFIAN" 
 2010 DATA 3,2,7,4,6,5,1 
 3000 DATA" GENERATE" 
 3010 DATA 7,2,4,3,6,1,8,5 
 4000 DATA" PRAISED"   
 4010 DATA 3,5,1,4,2,6,7 
 5000 DATA" PRAISED"
 5010 DATA 7,4,3,1,6,2,5 
 6000 DATA" PRAISED"
 6010 DATA 7,6,5,1,3,4,2
 7000 DATA" TOENAIL"
 7010 DATA 3,7,5,1,6,2,4 
 8000 DATA" MEASURING" 
 8010 DATA 9,2,6,3,8,7,5,1,4
 9000 DATA" CARTHORSE" 
 9010 DATA 6,7,1,5,9,8,4,3,2