OPEN "out.asm" FOR OUTPUT AS #1
PRINT #1, "CODE    SEGMENT"
PRINT #1, "        ASSUME CS:Code, DS:Code"
PRINT #1, "        ORG 0100h"
PRINT #1, ""
PRINT #1, "MAIN:   JMP    ONEI"
FOR q = 1 TO 2139 STEP 31
FOR qe = 1 TO 31: mm$ = mm$ + "00,": NEXT qe: mm$ = LEFT$(mm$, LEN(mm$) - 1)
PRINT #1, "DATA"; LTRIM$(RTRIM$(STR$(q))); "     DB  "; mm$
mm$ = ""
NEXT q
PRINT #1, "ONEI:"
PRINT #1, "CODE    ENDS"
PRINT #1, "        END MAIN"
PRINT #1, "END"
CLOSE 1