1!!!! ALGOL VERSION 06X EDIT 1 04/13/76 2!!!! !!!!! Copyright (C) 1975 !!!!! Digital Equipment Corporation !!!!! !!!!! !!!!! This software is furnished under a license for use only on a !!!!! single computer system and may be copied only with the inclusion 3!!!! of the above copyright notice. This software, or any other !!!!! copies thereof, may not be provided or otherwise made available !!!!! to any other person except for use on such system and to one who 4!!!! agrees to these license terms. Title to and ownership of the !!!!! software shall at all times remain in Digital. !!!!! !!!!! The information in this document is subject to change without 5!!!! notice and should not be construed as a commitment by Digital !!!!! Equipment Corporation. !!!!! !!!!! Digital assumes no responsibility for the use or reliability of !!!!! its software on equipment which is not supplied by Digital. 6!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 100 DIM M%(30) !ARRAY TO HOLD SYS() CALL 200 S$=SYS(CHR$(8%)+"") !ZERO OUT CORE COMMON 300 !-------------------------------! ! LOAD THE RUNTIME SYSTEM ! !-------------------------------! 310 CHANGE SYS(CHR$(6%)+CHR$(-10%)+"ALGOL") TO M% : M%(I%)=0% FOR I%=0% TO 6% : M%(I%)=0% FOR I%=11% TO 30% 320 M%(0%)=30% : M%(1%)=6% : M%(2%)=-18% : M%(3%)=2% 330 M%(11%)=-1% : M%(12%)=SWAP%(-1%) 350 CHANGE M% TO S$ : S$=SYS(S$) 400 !-------------------------------! ! NAME THE PROGRAM FOR SAFETY ! !-------------------------------! 410 OPEN "$ALGOL.ALG" FOR INPUT AS FILE 1% 420 M%(0%)=7% : M%(1%)=6% : M%(2%)=-17% : M%(3%)=1% 430 M%(I%)=M%(I%+3%) FOR I%=4% TO 7% 440 CHANGE M% TO S$ : S$=SYS(S$) 450 CLOSE 1% 500 !-------------------------------! ! CHAIN TO THE PROGRAM ! !-------------------------------! 510 CHAIN "$ALGOL.ALG" 520 STOP 30000 !-------------------------------! ! CCL ENTRY POINT ! !-------------------------------! 30010 S$=CVT$$(SYS(CHR$(7%)), 1%+4%+8%+16%+32%+128%+256%) !READ CCL LINE 30040 IF LEFT(S$,6%)<>"ALGOL " THEN PRINT "?ILLEGAL CCL COMMAND" : GOTO 32767 30050 GOTO 200 IF LEN(S$)<7% : S$=SYS(CHR$(8%)+RIGHT(S$,7%)) !REPLACE CCL LINE 30060 GOTO 300 !AND GO LOAD RTS 32767 END