Hi
I'm trying to convert an old powerbasic program to work on Console
Compiler v4.
I have the following code which I'd like to convert but having
problems with.
Any help would be appreciated
Regards
Adam Wright
T:+44(0)1527 893666
F:+44(0)1527 893601
thepass$=TRIM$(fnDecodeit$(MID$(user$(uc),32,10)))
def fnDecodeIt$(s$)
p$=""
FOR x=1 TO LEN(s$)
a=ASC(MID$(s$,x,1))
p$=p$+CHR$(a-128)
NEXT
fnDecodeIt$=p$
END def
FUNCTION SaveScreen$
reg 1,15*256
CALL interrupt &H10
IF reg(1)-(reg(1)\256)*256=7 THEN address=&HB000 ELSE address=&HB800
def seg=address
SaveScreen$=PEEK$(0,4000)
def seg
END FUNCTION
SUB RestoreScreen(S$)
reg 1,15*256
CALL interrupt &H10
IF reg(1)-(reg(1)\256)*256=7 THEN Address=&HB000 ELSE Address=&HB800
def seg=address
POKE$ 0,s$
def seg
END SUB
restore DataFormat
FOR df=1 TO 28
READ ti(df),tl(df),tmp$:IF cflag=1 THEN tmp$=LEFT$(tc$(df)+SPACE$(tl(df)),tl(df))
tc$(df)=tmp$
IF tc$(df)="" THEN tc$(df)=SPACE$(tl(df))
NEXT
DataFormat:
DATA 1,30,"###########@ " 'numfmt
DATA 1,30,"###########@ " 'display fmt
DATA 2,30,"" 'start
DATA 2,30,"" 'stop
DATA 4,1 ,"B" 'cd
DATA 6,1 ,"Y" 'miss nos.
DATA 2,10,"" 'box qty
DATA 2,10,"" 'sub qty
DATA 2,10,"" 'pall qty
DATA 2,10,"1 " 'Start Box
DATA 2,10,"1 " 'Start Pallet
DATA 3,1 ,"Y" 'Forward No.
DATA 1,30,"" 'Ord Num
DATA 1,30,"" 'Cus Num
DATA 1,30,"" 'Design
DATA 1,30,"" 'Size
DATA 3,1 ,"Y" 'Show Prod date
DATA 3,1 ,"Y" 'Show Logo flag
DATA 5,1 ,"B" 'Special text
DATA 1,70,"" 'info 1
DATA 1,70,"" 'info 2
DATA 1,70,"" 'info 3
DATA 1,22,"" 'address 1
DATA 1,22,"" 'address 2
DATA 1,22,"" 'address 3
DATA 1,22,"" 'address 4
DATA 1,30,"" 'unit of Issue
DATA 1,30,"" 'Pack configuration
------------------
TWS
I'm trying to convert an old powerbasic program to work on Console
Compiler v4.
I have the following code which I'd like to convert but having
problems with.
Any help would be appreciated
Regards
Adam Wright
T:+44(0)1527 893666
F:+44(0)1527 893601
thepass$=TRIM$(fnDecodeit$(MID$(user$(uc),32,10)))
def fnDecodeIt$(s$)
p$=""
FOR x=1 TO LEN(s$)
a=ASC(MID$(s$,x,1))
p$=p$+CHR$(a-128)
NEXT
fnDecodeIt$=p$
END def
FUNCTION SaveScreen$
reg 1,15*256
CALL interrupt &H10
IF reg(1)-(reg(1)\256)*256=7 THEN address=&HB000 ELSE address=&HB800
def seg=address
SaveScreen$=PEEK$(0,4000)
def seg
END FUNCTION
SUB RestoreScreen(S$)
reg 1,15*256
CALL interrupt &H10
IF reg(1)-(reg(1)\256)*256=7 THEN Address=&HB000 ELSE Address=&HB800
def seg=address
POKE$ 0,s$
def seg
END SUB
restore DataFormat
FOR df=1 TO 28
READ ti(df),tl(df),tmp$:IF cflag=1 THEN tmp$=LEFT$(tc$(df)+SPACE$(tl(df)),tl(df))
tc$(df)=tmp$
IF tc$(df)="" THEN tc$(df)=SPACE$(tl(df))
NEXT
DataFormat:
DATA 1,30,"###########@ " 'numfmt
DATA 1,30,"###########@ " 'display fmt
DATA 2,30,"" 'start
DATA 2,30,"" 'stop
DATA 4,1 ,"B" 'cd
DATA 6,1 ,"Y" 'miss nos.
DATA 2,10,"" 'box qty
DATA 2,10,"" 'sub qty
DATA 2,10,"" 'pall qty
DATA 2,10,"1 " 'Start Box
DATA 2,10,"1 " 'Start Pallet
DATA 3,1 ,"Y" 'Forward No.
DATA 1,30,"" 'Ord Num
DATA 1,30,"" 'Cus Num
DATA 1,30,"" 'Design
DATA 1,30,"" 'Size
DATA 3,1 ,"Y" 'Show Prod date
DATA 3,1 ,"Y" 'Show Logo flag
DATA 5,1 ,"B" 'Special text
DATA 1,70,"" 'info 1
DATA 1,70,"" 'info 2
DATA 1,70,"" 'info 3
DATA 1,22,"" 'address 1
DATA 1,22,"" 'address 2
DATA 1,22,"" 'address 3
DATA 1,22,"" 'address 4
DATA 1,30,"" 'unit of Issue
DATA 1,30,"" 'Pack configuration
------------------
TWS
Comment