MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
WJUMBLE
Jump to navigation
Jump to search
100 P=0: LC=0 110 A$="": B$="":C$="":D$="" 120 CLS: PRINT@6,"JUMBLED WORD PUZZLE" 130 PRINT@64,"ENTER:" 140 PRINT@97,"JUMBLED WORD (2-6 CHR)";: INPUT N$ 150 IFLEN(N$)>1 AND LEN(N$)<7 THEN N=LEN(N$): GOTO170 160 PRINT@120,"": GOTO140 170 PRINT@129,"TO PRINTER (Y OR N)";: INPUT P$ 180 IF P$="Y" OR P$="N" THEN 200 190 PRINT@149,"": GOTO170 200 F$=RIGHT$(N$,1): E$=MIDS(N$,N-1 ,1) 210 IF N>2 THEN D$=MID$(N$,N-2,1) 220 IF N>3 THEN CS=MID$(N$,N-3,1) 230 IF N>4 THEN B$=MID$(N$,N-4,1) 240 IF N>5 THEN A$=MID$(N$,N-5,1) 250 REM ***CHANGE NEXT "PRINT#-2," TO "LPRINT" FOR MC-10*** 260 IF P$="Y" THEN PRINT#-2, "PERMUTATION # WORD" 270 ON N GOSUB310,360,350,340,330,320 280 PRINT@48O,"PRESS R TO RESTART";: N$=INKEY$ 290 IF N$="R" THEN 100 300 GOTO280 310 REM - PRINT SUBROUTINE 320 FOR I6=1 TO 6 330 FOR I5=1 TO 5 340 FOR I4=1 TO 4 350 FOR I3=1 TO 3 360 FOR I2=1 TO 2 370 IF LC<14 THEN 410 380 PRINT@480,"PRESS ANY KEY TO CONTINUE";: K$=INKEY$ 390 IF K$="" THEN 380 400 LC=0 410 IF LC>0 THEN 440 420 CLS: PRINT@0,"PERMUTATION # WORD" 430 PP=39 440 P=P+1: PRINT@PP-LEN(STR$(P)),P; 450 PRINT@PP+12,A$+B$+C$+D$+E$+F$ 460 IF P$<>"Y" THEN 490 470 REM***CHANGE NEXT "PRINT#-2," TO "LPRINT" FOR MC-1O*** 480 PRINT#2,TAB(7-LEN(STR$(P)))P;: PRINT#-2, TAB(20)A$+B$+C$+D$+E$+F$ 490 LC=LC+1: PP=PP+32 500 T$=E$: E$=F$: F$=T$ 510 NEXT I2 520 IF N=2 THEN 640 530 T$=D$: D$=E$: E$=F$: F$=T$ 540 NEXT I3 550 IF N=3 THEN 640 560 T$=C$: C$=D$: D$=E$: E$=F$: F$=T$ 570 NEXT I4 580 IF N=4 THEN 640 590 T$=B$: B$=C$: C$=D$: D$=E$: E$=F$: F$=T$ 600 NEXT I5 610 IF N=5 THEN 640 620 T$=A$: A$=B$: B$=C$: C$=D$: D$=E$: E$=F$: F$=T$ 630 NEXT I6 640 RETURN 1000 PRINT "A$=";A$;"<" 1010 PRINT "B$=";B$;"<" 1020 PRINT "C$=";C$;"<" 1030 PRINT "D$=";D$;"<" 1040 PRINT "E$=";E$;"<" 1050 PRINT "F$=";F$;"<" 1060 PRINT "T$=";T$;"<" 1070 PRINT "N$=";N$;"<"