.TITLE BLANK .ENABL LC .PSECT BLANK .MCALL QIOW$S,ALUN$S,EXIT$S,ASTX$S BLANK:: ALUN$S #1,#"TI QIOW$S #IO.ATA,#1,#1,,,,<#AST> CLR FLAG AGAIN: QIOW$S #IO.WAL,#1,#1,,,,<#ERASE,#2> TST FLAG BEQ AGAIN QIOW$S #IO.WLB,#1,#1,,,,<#MSG,N,#40> EXIT$S AST: COM FLAG TST (SP)+ ASTX$S FLAG: .WORD 0 MSG: .ASCII /Hopefully the screen is better now./ .EVEN N: .WORD MSG-N ERASE: .BYTE 33,14 .END BLANK