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