0 SCREEN,0:PRINT:PRINT"    RNDMGN by James Main Kenney 1995":MAXFILES=2:DEFSTRA-K:DEFINTL-Y:GOTO5
1 K=INKEY$:IFK>""THENX=ASC(K):IFX=27THENMENU
2 IFE>""THENN=ASC(INPUT$(1,2)):IFEOF(2)THENCLOSE2:GOSUB4
3 R=INT(M*RND(1)+VAL(RIGHT$(TIME$,2))+X+N+R)MODM+L:IFR=0ORR=26ORR=127THEN3ELSEC=CHR$(R):IFK=""XORT<STHENPRINTCHR$(27)"p"C;:GOTO1ELSEPRINT#1,C;:T=T+1:PRINTCHR$(27)"q "C;T;:GOTO1
4 OPENEFORINPUTAS2:RETURN
5 PRINT:INPUT"Random output file";F:IFF=""THEN5ELSEOPENFFORAPPENDAS1:INPUT"Size (optional)";S
6 FILES:INPUT"Optional source file";E:IFE>""THENGOSUB4:IFEOF(2)THENCLOSE2:E="":PRINT"Empty!":GOTO6ELSEINPUT"Skip 0 source file chrs";M:IFMTHENFORN=1TOM:PRINTINPUT$(1,2);:IFEOF(2)THENCLOSE(2):GOSUB4:PRINT:NEXTELSENEXT
7 PRINT:PRINT"Skip"M"pseudorandom numbers";:INPUTM:IFMTHENFORN=1TOM:R=RND(1):PRINTM-N;:NEXT:PRINT
8 B=" ":H="~":PRINT"Lo, Hi chrs ("B", "H")";:INPUTB,H:L=ASC(B):U=ASC(H):PRINT"Lo, Hi codes ("L","U")";:INPUTL,U:IFL<0ORL>255ORU<LORU>255THEN8ELSEM=U-L+1:PRINT"Font:
9 FORN=LTOU:IFN=127THENN=128
10 A=CHR$(N):PRINTA;:IFX=1THENPRINT#1,A;:NEXT:MENUELSENEXT:PRINT:PRINT"(F)ile font? ";:IFINSTR("FfYy",INPUT$(1))THENX=1:GOTO9ELSEPRINT:PRINT"Tap keys at random; (ESC) for MENU":R=ASC(INPUT$(1)):GOTO1