NOMONICO
VTABPEEK(37)-1:IFA<0THENA=A+65536
POKE768,INT(A/256):POKE769,A-INT(A/256)*256:VTABPEEK(37)-4:PRINTSPC(5):PRINT:PRINT:CALL-151
300.301
3D0G
VTABPEEK(37)-4:PRINTA;CHR$(32);CHR$(40);A-65536;CHR$(41);CHR$(32);CHR$(61):PRINTSPC(5);CHR$(36):CALL-958