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
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.
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?