Paso 3: Aplicar usando el puerto paralelo bajo DOS
LPTdata = & H378
LPTstatus = LPTdata + 1: LPTcontrol = LPTdata + 2
YMAXX = 500
PANTALLA DE 2
LÍNEA (9, 1)-(630, 170), B & H3333
VISTA (10, 2)-(629, 169)
VENTANA (0, YMAXX)-(620, 0)
MAXX = 620
DIM D(MAXX)
MIENTRAS INKEY$ = ""
LPTcontrol & H1
LPTcontrol & H0
PARA Y = 1 YMAXX
IF (INP(LPTstatus) y & H10) / & H10 = 1 entonces la salida para
Y SIGUIENTE
LOCALIZAR 23, 1
IMPRIMIR UTILIZANDO "###"; Y
LÍNEA (0, 0)-(MAXX, YMAXX), 0, BF
PARA I = 1 A MAXX
LÍNEA (I, D (I - 1))-(I, D(I))
D (I - 1) = D(I)
SIGUIENTE
D(MAXX) = Y
VENDO
Un pin de salida se utiliza para desencadenar la MMR y una entrada de pin para leer la salida de él.