Forums: 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

Répondre à 82188×

You can not use Wiki syntax
Vous n'êtes pas connecté. Pour distinguer vos messages en provenance du reste, vous devez choisir un surnom. (L'unicité du surnom est pas réservé. Il est possible que quelqu'un d'autre pourrait utiliser exactement le même surnom. Si vous voulez l'assurance de votre identité, nous vous recommandons de vous connecter avant de poster.) Connexion

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.

Répondre à #82188

Répondre à 82190×

You can not use Wiki syntax
Vous n'êtes pas connecté. Pour distinguer vos messages en provenance du reste, vous devez choisir un surnom. (L'unicité du surnom est pas réservé. Il est possible que quelqu'un d'autre pourrait utiliser exactement le même surnom. Si vous voulez l'assurance de votre identité, nous vous recommandons de vous connecter avant de poster.) Connexion

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
Répondre à #82190

Répondre à 82226×

You can not use Wiki syntax
Vous n'êtes pas connecté. Pour distinguer vos messages en provenance du reste, vous devez choisir un surnom. (L'unicité du surnom est pas réservé. Il est possible que quelqu'un d'autre pourrait utiliser exactement le même surnom. Si vous voulez l'assurance de votre identité, nous vous recommandons de vous connecter avant de poster.) Connexion