1	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V6C
	!
5	ON ERROR GOTO 100
10	DIM M%(30%),S%(30%)
15	M%(1%) = 6%
	\ M%(2%) =  15%
	\ M%(0%) = 6%
20	INPUT "PPN";P1%,P2%
	\ M%(5%) = P2%
	\ M%(6%) = P1%
30	FOR I% = 0% STEP 1% UNTIL 0%
35	M%(3%) = I% AND 255%
	\ M%(4%) = SWAP%(I%) AND 255%
40	CHANGE M% TO S$
	\ S$ = SYS(S$)
	\ CHANGE S$ TO S%
45	S%(U%) = S%(U%) + SWAP%(S%(U%+1%)) FOR U% = 7% TO 29% STEP 2%
48	!
	!	FILNAM.EXT
	!
50	PRINT RAD$(S%(7%));RAD$(S%(9%));".";RAD$(S%(11%));
55	PRINT USING"  #####  ###",S%(13%),S%(15%);
60	PRINT "  ";DATE$(S%(17%));
65	PRINT "  ";DATE$(S%(19%));"  ";TIME$(S%(21%))
90	NEXT I%
100	RESUME 999
999	END