8 POKE53281,0:POKE53280,2
10 PRINTCHR$(142)"[147]     THE MIGHTY LOADSTAR PERMUTIZER"
12 PRINTTAB(12)"[154](E[154])CO ALGORITHM
14 [153][163]12)"(JCONT)OHANNSEN ALGORITHM
16 PRINTTAB(12)"(B[154])ACK TO LOADSTAR"
18 GETZ$:IFZ$<>"E"ANDZ$<>"J"ANDZ$<>"B"THEN18
20 IFZ$="B"THEN310
22 PRINT"      WHILE THE LIST IS SCROLLING:"
24 PRINT"       SHIFT[154] - PAUSE   CMDR[154] - END"
28 PRINTTAB(11)"[145][145][159]YOUR WORD:     [157][157][157][157]";:L9%=6:GOSUB50000:A$=Q9$
30 L=LEN(A$):IFL<3THENPRINT"[145][145]":GOTO28
32 PRINT"[155]":TI$="000000"
34 IFZ$="J"THEN500
37 :
38 :REM    *** ECO ALGORITHM ***
39 :
40 FORI=1TOL:B$(I)=MID$(A$,I,1):NEXT
50 T=0:FORI1=1TOL:E(1)=I1
60 FORI2=1TOL:E(2)=I2
70 IFI1=I2THEN260
80 IFL=3THEN180
90 FORI3=1TOL:E(3)=I3
100 FORJ=1TO2:IFE(3)=E(J)THENJ=2:NEXT:GOTO250
110 NEXT:IFL=4THEN180
120 FORI4=1TOL:E(4)=I4
130 FORJ=1TO3:IFE(4)=E(J)THENJ=3:NEXT:GOTO240
140 NEXT:IFL=5THEN180
150 FORI5=1TOL:E(5)=I5
160 FORJ=1TO4:IFE(5)=E(J)THENJ=4:NEXT:GOTO230
170 NEXT
180 F=0:G=0:FORM=1TOL-1:F=F+E(M):NEXT
190 FORK=1TOL:G=G+K:NEXT:REM COULD BE       G=(L*(L/2)+L/2)
200 E(L)=G-F
210 T=T+1:PRINTT,;:FORK=1TOL:PRINTB$(E(K));:NEXT:PRINT
220 IFPEEK(653)=1THEN220
225 IFPEEK(653)=2THENCLR:GOTO10
230 IFL>5THENNEXTI5
240 IFL>4THENNEXTI4
250 IFL>3THENNEXTI3
260 NEXTI2
270 NEXTI1
277 :
278 :REM    *** PROMPT FOR MORE ***
279 :
280 PRINTTAB(15)"[154]TIME: [158]"MID$(TI$,4,1)":"RIGHT$(TI$,2)
285 PRINTTAB(14)"[154]AGAIN? (Y[154]/N[154])"
290 GETA$:IFA$<>"Y"ANDA$<>"N"THEN290
300 IFA$="N"THEN10
305 GOTO22
307 :
308 :REM    *** BACK TO LOADSTAR ***
309 :
310 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
320 IFER<>63THEN END
330 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
340 PRINT"RUN"
350 POKE631,13:POKE632,13:POKE198,2:END
500 B$=MID$(A$,1,1):C$=MID$(A$,2,1):D$=MID$(A$,3,1)
505 E$=MID$(A$,4,1):F$=MID$(A$,5,1):G$=MID$(A$,6,1)
507 T=0
510 ONLEN(A$)GOSUB570,560,550,540,530,520:GOTO280
520 FORI=1TO6:GOSUB530:H$=G$:G$=F$:F$=E$:E$=D$:D$=C$:C$=B$:B$=H$:NEXT:RETURN
530 FORJ=1TO5:GOSUB540:H$=F$:F$=E$:E$=D$:D$=C$:C$=B$:B$=H$:NEXT:RETURN
540 FORK=1TO4:GOSUB550:H$=E$:E$=D$:D$=C$:C$=B$:B$=H$:NEXT:RETURN
550 FORL=1TO3:GOSUB560:H$=D$:D$=C$:C$=B$:B$=H$:NEXT:RETURN
560 T=T+1:PRINTT,B$C$D$E$F$G$:T=T+1:PRINTT,C$B$D$E$F$G$:GOTO580
570 T=T+1:PRINTT,B$C$D$E$F$G$
580 IFPEEK(653)=1THEN580
590 IFPEEK(653)=2THENCLR:GOTO10
595 RETURN
10000 OPEN15,8,15,"I0":PRINT#15,"S0:BYTES":CLOSE15:SAVE"BYTES",8:END
49997 :
49998 :REM   *** INPUT ROUTINE ***
49999 :
50000 Q9$="":U9=53280:POKE198,0
50010 GETA$
50020 POKE646,RND(1)*15+1:PRINT"[164][157]";
50025 IFA$=""THEN50010
50030 IFA$=CHR$(13)THENPRINT" ":RETURN
50040 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50080
50050 IFLEN(Q9$)>=L9%THENT9%=PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO50010
50060 IFA$<" "OR(A$>CHR$(127)ANDA$<CHR$(160))ORA$=CHR$(34)THEN50010
50070 Q9$=Q9$+A$
50080 PRINT""A$;:GOTO50010