0 Members and 1 Guest are viewing this topic.
:Lbl 0:{1,1,2,3:Lbl 1:Ans→L₁:"{1,3,4,7→Str1:"0,1:Asm(SMC
I have an idea: how about a program that allows detection of multiple key presses (like the one in BatLib, I think)? I might find that useful in some BASIC programs.
That would be handy, and so would an inline editor.What about a find and replece routine where you could search for str1 in a var and replace it with str2? You can do that with copyprog but an opcode would be faster.
EFD74AFE04C0131321B184EBEDA0EDA03EAA327984D7D878B7C0131321AF84EBEDA0EDA03C327A84D7D878B7C0EB4E234623117884EDB0AF12EFF142D878B7C0EB4E2346233AAF84EDB1E03AB084BE20F43AB284772B3AB1847723EDA1E018E5
"ERAWRZ→Str2"Goto 0→Str1"Goto VAsm(prgmREPLACE
"ERAWRZ→Str2"Pic1→Str1"Pic7Asm(prgmREPLACE
1→BClrHomeDisp " Goto 1"," Goto 2"," Goto 3 ;Put a space before the numbers :PRepeat A=105Output(B,1,"}Repeat AgetKey→AEndOutput(B,1," ;There is a space thereB+(A=34)-(A=25If Ans=4 or not(Ans1+2not(AnsAns→BEnd"EB1→Str2"Goto A→Str1"Goto "+sub("123",B,1Asm(prgmBGoto ALbl 11Goto ZLbl 22Goto ZLbl 33Lbl ZPause Ans
:"UHELLO:Asm(prgmEXEC
EFD74AFE04C0EB4E234623117884EDB0AF12FDCB08CEEF9B4AFDCB088EC9