NCR GW-BASIC Betriebsanleitung Seite 330

GW-BASIC-BEFEHLE UND FUNKTIONEN
RND
4 -2 5 6
20 PSET (RND*639,RND*199)
30 GOTO 20
Nun soll dasselbe Programm erneut ausgeführt
werden, dieses Mal jedoch mit größeren Möglich­
keiten:
10 SCREEN 2:CLS
20 RANDOMIZE TIMER MOD 32767
30 PSET (RND*639,RND*199)
40 GOTO 20
In dem folgenden Programm werden wiederholt
zwei Würfel geworfen, die beiden Zahlen addiert
und je nach Ergebnis zu Spalte 2 bis 12 hinzugefügt:
10 DEFINIT A-Z
20 DIM STAT(12)
30 FOOT=180
40 SCREEN l:COLOR 0,0:CLS
50 PRESET (93,14)
60 DRAW "c2 r28 d28 128 u28 br56"
70 DRAW "r28 d28 128 u28"
80 LOCATE 25,2 :PRINT "2 3 4 5 6 7 8 9 10 1112"
90 FOR DICE=1 TO 1000
100 RANDOMIZE TIMER MOD 32767
110 D1=INT(RND*6)+1:D2=INT(RND*6)+1
120 LOCATE 3,13:PRINT D l
130 LOCATE 3,20:PRINT D2
140 THROW=Dl+D2
150 LOCATE 3,30
160 PRINT"-> " ;THROW
170 STAT(THROW)=STAT(THROW)+l
180 PSET
(24*THROW-36,FOOT-STAT(THROW)), 1
190 FOR D=1 TO 800:NEXT D
200 NEXT DICE°/o
G W-BASIC