TITLE USGCLS SUBTTL MRC 5/24/79 .DECSAV A=1 B=2 C=3 USGCLS: RESET MOVEI A,.USCLS SETZ B, USAGE ERJMP [MOVEI A,.PRIIN CFIBF MOVEI A,"? PBOUT MOVEI A,.PRIOU HRLI B,.FHSLF SETZ C, ERSTR CAI CAI HALTF JRST USGCLS] HALTF JRST USGCLS END USGCLS