Changeset 1586 for ccr/trunk/p/C0CRPMS.m
- Timestamp:
- Oct 30, 2012, 1:11:02 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CRPMS.m
r1544 r1586 1 1 C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09 14:33 2 ;;1.2;C0C;;May 11, 2012;Build 47 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 ;General Public License See attached copy of the License. 2 ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50 5 3 ; 6 ; This program is free software;you can redistribute it and/or modify7 ; it under the terms of the GNU General Public License as published by8 ; the Free Software Foundation; either version 2 of the License, or9 ; (at your option) any later version.4 ; This program is free software: you can redistribute it and/or modify 5 ; it under the terms of the GNU Affero General Public License as 6 ; published by the Free Software Foundation, either version 3 of the 7 ; License, or (at your option) any later version. 10 8 ; 11 ; This program is distributed in the hope that it will be useful,12 ; but WITHOUT ANY WARRANTY; without even the implied warranty of13 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the14 ; GNUGeneral Public License for more details.9 ; This program is distributed in the hope that it will be useful, 10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of 11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 ; GNU Affero General Public License for more details. 15 13 ; 16 ;You should have received a copy of the GNU General Public License along 17 ;with this program; if not, write to the Free Software Foundation, Inc., 18 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 14 ; You should have received a copy of the GNU Affero General Public License 15 ; along with this program. If not, see <http://www.gnu.org/licenses/>. 19 16 ; 20 17 W "NO ENTRY FROM TOP",! … … 27 24 VTYPES ; 28 25 D GETN2^C0CRNF("G1",9999999.07) 29 ZWR G126 ; ZWR G1 30 27 Q 31 28 ; … … 92 89 . W "PAT: ",C0CG,! 93 90 . D GETNV^C0CRPMS(C0CG) 94 . K X R X 91 . K X R X:DTIME 95 92 . I X="Q" S C0CQ=1 ; QUIT IF Q 96 93 Q
Note:
See TracChangeset
for help on using the changeset viewer.