> TestGBPB  Test OSGBPB : (* ctrl% 31,name% 31:X%=ctrl%:Y%=X%256 2'act%=3:ptr%=0:mem%=&FFFF7C00:chn%=0 < :Close:: F: P?7:0,7);"^^^ I/O memory ^^^ ---- vvv Language vvv";0,15) Zchn%=("TestGBP") d chn%=0:chn%=("TestGB*") nT chn%=0:gbpb(8,0,name%,1,0):name%?(?name%+1)=13:name%?1>32:chn%=($(name%+1)) x& chn%=0:"Can't open test file": ext%=#chn%  + 0,15):gbpb(act%,chn%,mem%,240,ptr%) D"&B0: "h0(!&B0,8)" "h0(!&B4,8)" "h0(!&B8,8)" "h0(!&BC,8);8 D"&C0: "h0(!&C0,8)" "h0(!&C4,8)" "h0(!&C8,8)" "h0(!&CC,8);8 - PRINT"&A8: "FNh0(!&A8,8)" "FNh0(!&AC,8) <0,8);:A%=mem%&1FFFF (mem%+255)&1FFFF:?A%&80:: U0,20);":Toggle IO/Lang :ptr+40"'":Toggle action :ptr-40" "R:Repeat call "; A%=: A%=32:act%=7-act% A%=9 :mem%=mem%&FFFE0000 ( A%=127:ptr%=ptr%-40:ptr%<0:ptr%=0 1 A%=13 :ptr%=ptr%+40:ptr%>ext%:ptr%=ptr%-40 0 : : "#ݤh0(A%,N%)="0000000"+~A%,N%) ,%Close:chn%:A%=chn%:chn%=0:#A% 6 @Kgbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr% J["IN: "h0(A%,2)" "h0(A%,2)" "h0(?X%,2)" "h0(X%!1,8)" "h0(X%!5,8)" "h0(X%!9,8);8 T#'''':A%=&FFD1:11,11,11,11,11 ^r"OUT: C";"SC",2+((A%&1000000)<>0),1);" "h0(A%,2)" "h0(?X%,2)" "h0(X%!1,8)" "h0(X%!5,8)" "h0(X%!9,8);8 h