PROC Configure( BYTE inout)›    ;sets PORTA for output if›    ;inout=$255, for input if›    ;inout=$0››    Poke(54018,56)›    Poke(54016,inout)›    Poke(54018,60)›RETURN››PROC OutByte( BYTE data,outsignal)›    ;puts out 'data' byte›    ;puts DAtaValid on PORTA›    ;bit 7 & 'outsignal' on›    ;PORTA bit 8 when both›    ;nibbles have been latched›    ;outsignal must =0 for Lo›    ;or =128 for Hi››BYTE var›CARD porta=[54016]›                ;latching LSBs›var=data&$0F›var==%$20›Poke(porta,var) ›     ;PrintF("%H%E",var)›var==%$30›Poke(porta,var)›     ;PrintF("%H%E",var)›               ;tackling MSBs now›var=data RSH 4›var==%$10›poke(porta,var)›     ;PrintF("%H%E",var)›var==%$70›var==%outsignal›Poke(porta,var)›     ;PrintF("%H%E",var)›RETURN››PROC main()› BYTE data,outsignal=[128],END=[0]››WHILE END=0›DO› Put('?):data=InputB()› OutByte(data,outsignal)›OD›RETURN››;NOTE: PROC main & the PrintF's in›;      PROC OutByte can be used to›;      follow the workings of the›;      PROC.  Just remove the ';'s›;      from the PrintF statements.››