RosettaCodeData/Task/Random-number-generator-device-/Atari-BASIC/random-number-generator-device-.basic

6 lines
71 B
Text
Raw Permalink Normal View History

2025-02-27 18:35:13 -05:00
10 X=0
20 FOR I=0 TO 3
30 X=X+PEEK(53770)*(256^I)
40 NEXT I
50 PRINT X