10 OSWRCH=&FFE3
20 DIM MC% 100
30 DIM data &20
40 FOR opt%=0 TO 3 STEP 3
50 P%=MC%
60 [OPT opt%
70 .entry LDX #0 \ set index count (in X reg) to 0
80 .loop LDA data,X \ load next VDU parameter
90 JSR OSWRCH \ perform VDU command
100 INX \ increment loop counter
110 CPX #&20 \ has count reached 32 (&20)?
120 BNE loop \ if not then go round again
130 RTS \ back to BASIC
140 ]
150 NEXT opt%
160 data!0 =&04190416
170 data!4 =&00C800C8
180 data!8 =&00000119
190 data!&C =&01190064
200 data!&10=&000000C8
210 data!&14=&00000119
220 data!&18=&0119FF9C
230 data!&1C=&0000FF38
240 PRINT'"Press key to run program":A=GET
250 CALL entry