0005 ! COMM 5-22-92 !
0010 SUB COMM(#3)
0015 USER OFF
0020 DIM Z$[90]
0025 RESTORE #3,999999
0030 PRINT #3;"----------------------------------------------------------------------"
0035 PRINT #3;"<<< COMMENT >>>"
0040 LINPUT "ENTER COMMENTS >","";Z$
0050 IF Z$="" THEN 190
0170 PRINT #3;Z$
0180 GOTO 40
0190 END SUB 
