NCR DECISION MATE V Bedienungsanleitung Seite 357

GW-BASIC
10 SCREEN 1
20 CLS
30 LIN E - (m d * 639, rnd * 399),rnd * 7
40 GO TO 20
Zeichnen eines sich abwechselnden Musters — Linie
ein, Linie aus:
10 SCREEN 1
20 FO R X = 0 TO 639
30 LIN E (X ,0 ) ^ ( X , 3 9 9 ),X AN D 1
40 N E X T
Zeichnen beliebig ausgefüllter Kästchen in beliebi­
gen Farben:
10 SCREEN 1
20 CLS
30 LIN E - (rnd * 639, rnd * 399), rnd * 7, bf
40 GO TO 20
GW-BASIC ERW EITERUNG
2-27