### 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)

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