10 REM Assembler Stub
   20 :
   30 :
   40 DIM code 1024
   50 :
   60 REM Z80 code
   70 :
   80 FOR I%=0 TO 3 STEP 3
   90   P%=code
  100   [
  110   OPT I%
  120   :
  960   ]
  970 NEXT
  980 :
  990 STOP