討論區: Forum of Decimal BASIC (Thread #40152)

No Output to Printer With ParactBASIC (2018-11-21 03:10 by toml12953 #82188)

The following program works fine in Decimal BASIC 7.8.5.1 but produces no output when compiled with ParactBASIC 2.1.2.0 running Lazarus 1.8.4 on Windows 10:

! APPENDIX E SAMPLE PROBLEM 1
! MATRIX ARITHMETIC
OPEN #1:PRINTER
DIM A(7,7),B(7,7)
LET SENSE_LIGHT=1
FOR I=1 TO 7
FOR J=1 TO 7
LET B(I,J)=1/(I+J-1)
NEXT J
NEXT I
MAT A=B
PRINT #1: CHR$(10);"HILBERT MATRIX";CHR$(10)
MAT PRINT #1, USING 2:A
2 IMAGE: -.#######^^^^ -.#######^^^^ -.#######^^^^ -.#######^^^^ -.#######^^^^ -.#######^^^^ -.#######^^^^
PRINT #1: CHR$(10);"INVERSE";CHR$(10)
10 MAT A=INV(A)
MAT PRINT #1,USING 2:A
IF SENSE_LIGHT=0 THEN GOTO 12
LET SENSE_LIGHT=0
11 PRINT #1: CHR$(10);"MATRIX PRODUCT";CHR$(10)
MAT B=A*B
MAT PRINT #1, USING 18:B
18 IMAGE: ----%.######## ----%.######## ----%.######## ----%.######## ----%.######## ----%.######## ----%.########
PRINT #1: CHR$(10);"TWICE INVERTED";CHR$(10)
GOTO 10
12 CLOSE #1
END

回覆 #82188×

You can not use Wiki syntax
You are not logged in. To discriminate your posts from the rest, you need to pick a nickname. (The uniqueness of nickname is not reserved. It is possible that someone else could use the exactly same nickname. If you want assurance of your identity, you are recommended to login before posting.) 登入

Re: No Output to Printer With ParactBASIC (2018-11-21 14:07 by Shiraishi Kazuo #82190)

Thanks for your report.
I found that Decimal BASIC 6 , Decimal BASIC 8 and BASICAcc 1.1, BASICAcc 1.2 also have the same fault that originates from incompatibility of Lazarus from Delphi.
It may take some time to modify.

回覆: #82188

回覆 #82190×

You can not use Wiki syntax
You are not logged in. To discriminate your posts from the rest, you need to pick a nickname. (The uniqueness of nickname is not reserved. It is possible that someone else could use the exactly same nickname. If you want assurance of your identity, you are recommended to login before posting.) 登入

Re: No Output to Printer With ParactBASIC (2018-12-01 11:12 by toml12953 #82226)

Reply To Message #82190
> Thanks for your report.
> I found that Decimal BASIC 6 , Decimal BASIC 8 and BASICAcc 1.1, BASICAcc 1.2 also have the same fault that originates from incompatibility of Lazarus from Delphi.
> It may take some time to modify.
>
>
Thank you for the new versions! Is there a way to just send data to the printer without the dialog box popping up?

Tom L
回覆: #82190

回覆 #82226×

You can not use Wiki syntax
You are not logged in. To discriminate your posts from the rest, you need to pick a nickname. (The uniqueness of nickname is not reserved. It is possible that someone else could use the exactly same nickname. If you want assurance of your identity, you are recommended to login before posting.) 登入