0 Members and 2 Guests are viewing this topic.
:.AA:#Axiom(DETOKENI):input->A:Detokenize(A,L1,128):Disp L1
I thought the Input command was removed over 2 years ago?
Nice. Is the source also in the .zip? (Can't view on ipod) for people who would want to optimise it themself...?
:Asm(EF524BD77EEE04EB2802ED62)->A:!If A:Disp "Error in input!":Return:End; More code here; Assembly: b_call(_AnsName) \ rst 10h \ ld a, (hl) \ xor StrngObj \ ex de, hl \ jr z, $+4 \ sbc hl, hl
:Detokenize(A+2,L1,256)
:.ANSDISP:#Axiom(DETOKENI):Asm(EF524BD77EEE04EB2802ED62)->A:!If A:Disp "Error in input!":Return:End:Detokenize(A+2,L1,256):Disp L1
"Test string to display!":Asm(prgmANSDISP)Test string to display! Done