[ Sample Power-
[ Portable Prg
;
:Menu1
Getc "Stocktake?"
If $k = "Y" then goto Location
Beep x
Goto Menu1
;
:Location
Display "Enter Location"
Input
$0 = $k
If $0 = "" then goto Menu1
If match($0,"##") then goto Sku
Display "Invalid Location"
Beep x
Wait(10)
Goto Location
;
:Sku
Display "Scan Barcode"
Input
$1 = $k
If $1 = "" then goto Location
If match($1,"#############") then goto Qty
Display "Invalid Sku"
Beep x
Wait(10)
Goto Sku
;
:Qty
Display "Enter Qty"
Input
$2 = $k
If match($2,"#") goto QtyAddFour
If match($2,"##") goto QtyAddThree
If match($2,"###") goto QtyAddTwo
If match($2,"####") goto QtyAddOne
If match($2,"#####") goto SellPrice
Display "Invalid Qty"
Beep x
Wait(10)
Goto Qty
;
:QtyAddFour
$2 = "0000" + $2
Goto SellPrice
;
:QtyAddThree
$2 = "000" + $2
Goto SellPrice
;
:QtyAddTwo
$2 = "00" + $2
Goto SellPrice
;
:QtyAddOne
$2 = "0" + $2
Goto SellPrice
;
:SellPrice
Display "Sell Price"
Input
$3 = $k
If match($3,".##") goto AddThree
If match($3,"#.##") goto AddTwo
If match($3,"##.##") goto AddOne
If match($3,"###.##") goto CheckData
Display "Price Out of    Range, Re-Enter"
Beep x
Wait(10)
Goto SellPrice
;
:AddThree
$3 = "000" + $3
Goto CheckData
;
:AddTwo
$3 = "00" + $3
Goto CheckData
;
:AddOne
$3 = "0" + $3
Goto CheckData
;
:CheckData
Getc "Scan & Qty Ok?"
If $k = "Y" then goto SaveData
If $k = "N" then goto Sku
Beep x
Goto CheckData
;
:SaveData
Store $0 + "," + $1 "," + $2 + "," + $3
Goto Sku
;
END