Nb. można też bez kombinowania z kalkulatorem :
org $8000
ld a,0
ld (23677),a ; początkowe X
ld a,47
ld (23678),a ; początkowe Y
ld a,255
call $2d28 ; wrzuć na stos kalkulatora A - X linii
ld a,0
call $2d28 ; j.w. - Y linii
ld hl,par3
ld de,($5c65) ;Point DE to STKEND.
call $33c0 ;Stack the 5 bytes.
ex de,hl ;Point HL to the new position of STKEND, and reset the system variable.
ld ($5c65),hl
call $2394 ; rysowanie łuku wg parametrów ze stosu kalkulatora
ld hl,$2758 ; wracamy do BASICa - kalkulator zmienia
; HL' trzeba więc przywrócić właściwą
; zawartość
exx
ret
par3: db $82, $c8, $f5, $c2, $8f