Научите делать Basic моноблок %)

[rajdee]

Вот что-то нашел у себя, вроде бы даже работало.

            org #6000

;Monoloader maker v.0.1
;rajdee.mhm
;01.02.05

randomize   equ #f9
usr         equ #c0
val         equ #b0
rem         equ #ea

        ld bc,#7ffd:ld a,#17:out (c),a
        ld hl,End
        ld (hl),0:ld a,h:or l
        inc hl:jr nz,$-5
        ld bc,9:call CopyName
        ld hl,Start:ld de,BasEnd-BasBeg
        ld c,#0b:call #3d13
        ld bc,13:call CopyName
        ld a,(#5d1e)
        ld c,#09:call #3d13
        ret
CopyName
        ld hl,BasName:ld de,#5cdd:ldir
        ret

BasName db "test    "
        db "B"
FilePar dw LdrEnd-BasBeg
        dw LdrEnd-BasBeg

Start   ;disp #5d3b; Alasm
        phase #5d3b
BasBeg  dw #0100; номер строки
        dw LdrEnd-LdrBeg

LdrBeg  db randomize,usr,val
        db #22,"23883",#22
        db ":",rem

;-Loader put here--------------

;------------------------------

        db #0d
LdrEnd  db #80,#aa
        dw 1; номер строки автостарта
BasEnd  unphase
End

В комплекте с sjasm есть monoloader, адаптированный Aprisobal.