   10 M=&4F : REM an uninitialised variable
   20 C=M+1 : zp=C
   30 ord0=zp: zp=zp+1 : ?ord0=ASC"*"
   40 ord1=zp: zp=zp+1 : REM Y
   50 ord2=zp: zp=zp+1 : REM X
   60 ord3=zp: zp=zp+1 : ?ord3=31: REM TAB(x,y)
   70 FOR I=0 TO 2 STEP 2
   80 P%=zp:[   OPT I
   90           LDY #17
  100 .loopy    STY M
  110 .X0       LDX #6
  120 .loopx
  130 .Y2       LDA #18 : JSR twostar
  140 .Y1       LDA #10 : JSR twostar
  150           INX : DEC M
  160           BNE loopx
  170           INC X0+1 : INC Y1+1 : DEC Y2+1
  180           DEY : DEY
  190           BPL loopy
  200 .done     BMI done  \ silent exit costs a byte
  210           \RTS \ would print ugly prompt
  230 .twostar  JSR onestar
  240 .onestar  STA ord1 : STX ord2
  250           LDX #3
  260 .vduloop  LDA ord0,X
  270           JSR &FFEE
  280           DEX
  290           BPL vduloop
  300           LDA ord2 : LDX ord1
  310           RTS
  320 ]
  330 NEXT
  350 *SAVE STAR 50 8B 54
