/***********************************************************************/ _Frank ="NICDEF 1F80 TYPE HIPER DEV 19 LAN SYSTEM TORCHMAR" 'Pipe ( End ΒΌ ) ', /* */ 'Literal '_Frank'| ', /* */ 'Specs ', /* /NICDEF/ */ ' s: w2 . ', /* Starting address */ ' z: w6 . ', /* Count, NNx or NN? */ ' Set ( #0:=0 ; #1:=x2d(s) ', /* start with... */ ' ; #2:=x2d(z) ) ', /* assume it's hex... */ ' While #2>#0 Do ', /* Loop for... */ ' Print #1 d2x 01.04 Right ', /* */ ' W1-* nW ', /* */ ' Write ', /* */ ' Set ( #0+=1 ; #1+=1 ) ', /* */ ' Done |', /* */ ' Console ', /* */ ; /******************************/
-- Gregg Reed "No Plan, survives execution"
