pp p p



- 2


ss = "'
     PRINT ss
     '-----------
     x = RND(-231)
     FOR i=0 TO ns
     FOR j=0 TO 32:set(i,j) = CHR$(j):NEXT
     FOR j=0 TO 32:SWAP s(i,j),s(i,32*RND):
     NEXT
     NEXT
     s=""
     FOR i = 1 TO LEN(ss) '
     k=ASC (MID$ (ss ,i ,1)): IF k>32 THEN k=k-128
     FOR j = 0 TO ns:k=ASC(set(j, k)):NEXT
     IF k < 32 THEN k = k+ 128
     PRINT CHR$ (k); : s = s + CHR$ (k)
     k = ns * RND '
     FOR j=0 TO 31:SWAP s(k,j),s(k,j+1):NEXT
     FOR j=0 TO 32
     s(k,j)=CHR$((ASC(set(k, j)) + 32) MOD 33)
     NEXT
     NEXT
     PRINT
     '----------
     x = RND(-231)
     FOR i=0 TO ns
     FOR j=0 TO 32:s(i,j)=CHR$(j):NEXT
     FOR j=0 TO 32:SWAP s(i,j),s(i,32*RND):NEXT
     FOR j=0 TO 32
     IF ASC (set (i, j)) < 64 THEN
     m =j:n=ASC(s(i, j))
     DO
     k=ASC(s(i,n)):s(i,n)=CHR$(m OR 64)
     m=n: n=k
     LOOP UNTIL m = j
     END IF
     NEXT j
     FOR j=0 TO 32
     s(i,j)=CHR$(ASC(s(i,j)) AND 63)
     NEXT
     NEXT i
     ss = s
     FOR i = 1 TO LEN(ss)
     k=ASC(MID$(ss,i ,1)): IF k>32 THEN k=k-128
     FOR j=ns TO 0 STEP -1
     k=ASC(s(j,k))
     NEXT
     IF k     PRINT CHR$ (k) ;
     k = ns * RND '
     FOR j = 0 TO 31: SWAP s(k,j),s(k,j+1):NEXT
     FOR j = 0 TO 32
     s(k,j)=CHR$((ASC(s(k,j))+32) MOD 33)
     NEXT
     NEXT i
     END
     , : - , - - :