1000 Calldos=Dpeek(10)-6
1009 Rem CALL$ WILL CONTAIN PLA AND JMP CALLDOS
1010 Call$=Chr$($68),Chr$($4c),Chr$(Calldos&$ff),Chr$(Int(Calldos/256))
1020 Cmdbuffer=Dpeek(10)+$3f
1030   While 1
1040   Input "COMMAND >",Cmd$
1050   Cmd$=Cmd$,Chr$($9b)
1060   Move Adr(Cmd$),Cmdbuffer,Len(Cmd$)
1070   Junk=Usr(Adr(Call$))
1080   Endwhile