0 Members and 1 Guest are viewing this topic.
0->A1->BIf A=0 or B=0Output(0,0,"HIEnd
If A=0 or B=0If ((A=0) or B)=0
If A=0 or (B=0)
:DiagnosticOff::0→A:0→B:0→K::While K≠15:getKey→K::Output(A,B," :If (K=3) and (A≠15:A+1→A:End:If (K=2) and (A≠0:A-1→A:End:If (K=1) and (B≠8:B+1→B:End:If (K=4) and (B≠0:B-1→B:End:Output(A,B,"O::End::Return
While K=/=9getkey->KDisp KDisp iEnd