Názor k článku Hrátky s barvovou paletou a vykreslení jednotlivých pixelů kartou CGA od paznecht - naivni implementace vykresleni obrazku v GWBASICu: 10 CLS 20 SCREEN...

naivni implementace vykresleni obrazku v GWBASICu:

10 CLS
20 SCREEN 1
30 OPEN "R",#1,"IMAGE­.BIN",1
40 FIELD #1,1 AS C$
50 DEF SEG=&HB800
60 P=0
70 FOR J=0 TO 99
80 O=0
90 FOR K=0 TO 1
100 T=P+O
110 FOR I=0 TO 79
120 GET #1
130 POKE T,ASC(C$)
140 T=T+1
150 NEXT I
160 O=8192
170 NEXT K
180 P=P+80
190 NEXT J
200 CLOSE #1