**Sitenotice:** **11/29/2018:** The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

**8/30/2016:** Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

# Difference between revisions of "WJUMBLE"

Jump to navigation
Jump to search

Luis46coco (talk | contribs) (Created page with " 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 ...") |
(Category) |
||

Line 63: | Line 63: | ||

1060 PRINT "T$=";T$;"<" | 1060 PRINT "T$=";T$;"<" | ||

1070 PRINT "N$=";N$;"<" | 1070 PRINT "N$=";N$;"<" | ||

+ | |||

+ | [[Category:BASIC]] |

## Latest revision as of 06:32, 11 September 2015

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$;"<"