TITLE WEEKP .DECSAVE A==1 B==2 START: RESET GTAD HLRZ A,A ADDI A,2 ;MAKE MONDAY BASED IDIVI A,7 HRRO A,TABLE(B) PSOUT HALTF DEFINE MESS S [ASCIZ /[S]/] TERMIN DEFINE ERR S [ASCIZ /?S/] TERMIN TABLE: MESS Monday MESS Tuesday MESS Wednesday MESS Thursday MESS Friday ERR Saturday ERR Sunday END START