0 REM psuran.ba by Tracy Allen 76670,326 1 REM loads and demos psuran.asm, 2 REM pseudorandom # generator of the 3 REM shift & xor type. Short & fast code 4 REM best for coin flipping--test X% + or - 6 REM CALL 64704,0,varptr(X%)--> puts next # in X% 7 REM CALL 64704,85,seed-->starts series with new seed 9 REM running demo fills screen with different set of #s each time through. 10 GOSUB 100 'load m/l 20 CALL 64704,PEEK(63791),PEEK(63791)+256*PEEK(63791) 'seed from M100 timer 30 CLS:X%=0 40 AD=VARPTR(X%) 50 FOR I=0 TO 23 'get 24 psuran#s 60 CALL 64704,0,AD 'get it 70 PRINT@10*I,USING"######";X%; 'print it 80 NEXT I 90 END 99 REM ================================ 100 REM loader psuran 110 CS=0:FOR AD= 64704 TO 64746 115 READ D%:POKE AD,D%:CS=CS+D% 120 NEXT AD 125 IF CS<> 6365 THEN BEEP :PRINT"Typo in data!!?":END 130 RETURN 150 DATA 183,202,203,252,34,232,252,50,234,252 151 DATA 201,235,33,234,252,126,230,66,55,226 152 DATA 215,252,63,43,43,14,3,126,23,119 153 DATA 35,13,194,219,252,42,232,252,217,201 154 DATA 85,85,85