Stap 3: Implementeren met behulp van de parallelle poort onder DOS
LPTdata = & H378
LPTstatus = LPTdata + 1: LPTcontrol = LPTdata + 2
YMAXX = 500
SCHERM 2
LIJN (9, 1)-(630, 170), B, & H3333
WEERGAVE (10, 2)-(629, 169)
VENSTER (0, YMAXX)-(620, 0)
MAXX = 620
DIM D(MAXX)
TERWIJL INKEY$ = ""
UIT LPTcontrol, & H1
UIT LPTcontrol, & H0
FOR Y = 1 TO YMAXX
IF (INP(LPTstatus) en & H10) / & H10 = 1 THEN EXIT voor
VOLGENDE Y
ZOEK 23, 1
AFDRUKKEN MET BEHULP VAN "###"; Y
LIJN (0, 0)-(MAXX, YMAXX), 0, BF
VOOR I = 1 TO MAXX
LIJN (I, D (I - 1))-(I, D(I))
D (I - 1) = D(I)
VOLGENDE IK
D(MAXX) = Y
WEND
Één uitgang pins wordt gebruikt voor het activeren van de BMR en een ingang pin om de uitvoer van het lezen.