listati da GWbasic

esci listagwbasic.htm

100 REM caso1
120 REM recine 171
130 REM uso di randomize e numeri casuali
135 PRINT"stampa numeri casuali sempre uguali ad ogni run"
140 RANDOMIZE 8
150 FOR J=1 TO 10
160 PRINT RND(J);:NEXT J
170 PRINT
200 END