Étape 3: Mettre en œuvre en utilisant le port parallèle sous DOS
LPTdata = & H378
LPTstatus = LPTdata + 1: LPTcontrol = LPTdata + 2
YMAXX = 500
ÉCRAN 2
LIGNE (9, 1)-(630, 170), B, & H3333
VUE (10, 2)-(629, 169)
FENÊTRE (0, YMAXX)-(620, 0)
MAXX = 620
DIM D(MAXX)
TANDIS QUE INKEY$ = ""
LPTcontrol, & H1
LPTcontrol, & H0
Y = 1 À YMAXX
IF (INP(LPTstatus) et & H10) / & H10 = 1 THEN EXIT pour
PROCHAINE Y
LOCALISER 23, 1
IMPRIMER EN UTILISANT "###" ; Y
LIGNE (0, 0)-(MAXX, YMAXX), 0, BF
FOR I = 1 À MAXX
LIGNE (I, D (I - 1))-(I, D(I))
D (I - 1) = D.I
PROCHAINE JE
D(MAXX) = Y
WEND
Une broche de sortie est utilisée pour déclencher le ROR et une entrée de code confidentiel pour lire la sortie de celui-ci.