10 clear500,&hafff:color15,0,0:screen1,2:definta-z:defusr=&hb000

autoexec.bas

10 clear500,&hafff:color15,0,0:screen1,2:definta-z:defusr=&hb000
20 bload"sc4cmd.bin":a=usr(0):x=128
30 reada$:ifa$="end"then70
40 s$="":fori=0to31:s$=s$+chr$(val("&h"+mid$(a$,i*2+1,2))):nexti:sprite$(sp)=s$
50 reada$:s$="":fori=0to15:s$=s$+chr$(val("&h"+mid$(a$,i*2+1,2))):nexti
60 colorsprite$(sp)=s$:sp=sp+1:goto30
70 a$="Hello Screen4!":cmd10,5,a$:a$="Score: "+str$(int(rnd(1)*1000))
80 cmd10,15,a$:putsprite0,(x,96),,0:x=x-8:ifx<0thenx=255
90 goto 70
100 'sprite data
110 data0C1E3F7F5B6E7E3F1F1F1F1F3333330000000080C2CECE0EFCFEFEFE36363600
120 data09090202020202020202020202050500,end

options.json

{"asm":{"filename":"sc4cmd.bin","build":"bin"},"basic":{}}

program.asm

org	#B000
__ldirmv:	equ	#0059
__ldirvm:	equ	#005C
__chgmod:	equ	#005F
__filvrm:	equ	#0056
__wrtvrm:	equ	#004D
__getbyt:	equ	#521C
__ptrget:	equ	#5EA4
	jp	init
cls:
	ld	hl,#1800
	ld	bc,768
	ld	a,0
	call	__filvrm
	ret
init:
;--- save font
	ld	hl,0
	ld	de,fonts
	ld	bc,#800
	call	__ldirmv
;--- change to screen4
	ld	a,4
	call	__chgmod
;--- setup font
	ld	hl,fonts
	ld	de,#0
	ld	bc,#800
	call	__ldirvm
	ld	hl,fonts
	ld	de,#800
	ld	bc,#800
	call	__ldirvm
	ld	hl,fonts
	ld	de,#1000
	ld	bc,#800
	call	__ldirvm
	ld	hl,#2000
	ld	bc,#1800
	ld	a,#F0
	call	__filvrm
;-- setup cmd	
	ld	a,#0C3
	ld	(#FE0D),a
	ld	hl,cmdprog
	ld	(#FE0E),hl
	jr	cls
cmdprog:
	pop	af
	call	__getbyt
	ld	d,#00
	push	de
	inc	hl
	call	__getbyt
	ld	d,#00
	ex	de,hl
	add	hl,hl
	add	hl,hl
	add	hl,hl
	add	hl,hl
	add	hl,hl
	ld	bc,#1800
	add	hl,bc
	pop	bc
	add	hl,bc
	push	hl
	ex	de,hl
	inc	hl
	call	__ptrget
	push	hl
	ex	de,hl
	ld	a,(hl)
	inc	hl
	ld	e,(hl)
	inc	hl
	ld	d,(hl)
	pop	bc
	pop	hl
	push	bc
	ld	b,a
loop1:
	ld	a,(de)
	call	__wrtvrm
	inc	hl
	inc	de
	djnz	loop1
	pop	hl
	ret  
fonts:
	defs	1