0 Members and 2 Guests are viewing this topic.
.PICEDITClrDrawClrDraw{^r}DiagnosticOffDisp "HEIGHT"{input}^r->C^256-48*10+(C/256-48)->HClrHomeDisp "WIDTH"{input}^r->C^256-48*10+(C/256-48)->W0->X->YRepeat getKey(9)If getKey->K=54Pxl-Change(X,YEndIf K=48Pxl-Change(X,Y)^rEndIf K=55DrawInv :EndIf K=40DrawInv ^r:EndIf K=56ClrDraw:EndIf K=32ClrDraw^r:EndK=3 and (W-1!=X)-(K=2)+X->XK=1 and (H-1!=Y)-(K=4)+Y->YPxl-Change(X,YDispGraphrrPxl-Change(X,YEnd"0123456789ABCDEF"->Str1GetCalc("Str1",W/8+(W^8!=0)->L*H->U*4)->A12-L->BFor(Z,0,U-1{{Z/L*B+L6+Z}->C/16+Str1}->(Z*2+A}{C^16+Str1}->{Z*2+1+A}{{Z/L*B+L3+Z}->C/16+Str1}->(Z*2+(U*2)+A}{C^16+Str1}->{Z*2+1+(U*2)+A}End