0 REM RANDOM (AUG 24/84)              :
1 :
2 REM 0 STATEMENTS,  1 FUNCTION
3 :
4 REM KEYWORD CHARACTERS:  7
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM F/RANDOM(   RNDM     3216    027
8 :
9 REM U/PSHFP1 (3270/063)
10 REM U/PUL57 (3308/064)
11 :
12 REM ================================
13 :
605 .ASC "RANDOM[168]"
1605 .WORD RNDM-1
3216 RNDM JSR $AD8A
3218 JSR $BCCC
3220 JSR PSHFP1
3222 JSR $AEFD
3224 JSR $AEF4
3226 JSR $BCCC
3228 JSR $B849
3230 JSR $B849
3232 JSR PUL57
3234 LDA #$57
3236 LDY #0
3238 JSR $B850
3240 JSR $BC2B
3242 CMP #1
3244 BEQ RDM1
3246 JSR $BC58
3248 JSR $BBC7
3250 JSR $E0BE
3252 LDA #$5C
3254 LDY #0
3256 JSR $BA28
3258 LDA #$57
3260 LDY #0
3262 JSR $B867
3264 JMP $BCCC
3266 RDM1 JMP $B248
3268 ;
3270 PSHFP1 LDA #3
3272 JSR $A3FB
3274 PLA
3276 STA $71
3278 PLA
3280 STA $72
3282 JSR $BBCA
3284 LDX #0
3286 PHF1 LDA $57,X
3288 PHA
3290 INX
3292 CPX #5
3294 BNE PHF1
3296 PHF2 LDA $72
3298 PHA
3300 LDA $71
3302 PHA
3304 RTS
3306 ;
3308 PUL57 PLA
3310 STA $71
3312 PLA
3314 STA $72
3316 LDX #4
3318 PL57 PLA
3320 STA $57,X
3322 DEX
3324 BPL PL57
3326 BMI PHF2
3328 ;