perm filename DEMO.SAI[1,VDS] blob sn#126650 filedate 1974-10-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN 
C00006 ENDMK
C⊗;
BEGIN 

DEFINE ⊃="COMMENT",CR="'15",LF="'12",CRLF="('15&'12)";         

INTEGER DUM,CHAN,I,J,NUM,BYTE,NUM1,NUM2,CNT,CNT1;
STRING LST,ONE,COMMA,HEAD,PARK,MOVE;
REAL X,Y,Z,O,A,T;
REAL ANG,PI,SN,CS;
LABEL ST1;

⊃ INITIALIZE KEY VARIABLES;

PRELOAD_WITH "DEFINE TEST","TRANS T","PARK ","MOVE ","GOTO ","CLOSE ";
OWN STRING ARRAY FUNCT[1:6];
         
⊃ INITIALIZE DISK FILE;

CNT←1;
CNT1←2;
X←20.0;
Y←30.0;
Z←1.0;
O←180.0;
A←90.0;
T←0.0;
LST←FUNCT[1]&CRLF;
LST←LST&FUNCT[3]&CRLF;
LST←LST&FUNCT[2]&CVS(CNT1)&CRLF;
LST←LST&CVF(X)&CVF(Y)&CVF(Z)&CVF(O)&CVF(A)&CVF(T)&CRLF;
LST←LST&FUNCT[4]&CVS(CNT1)&CRLF;
LST←LST&FUNCT[3]&CRLF&CRLF;

⊃ DISK OUTPUT;

CHAN←1;      
OPEN(CHAN,"DSK",0,0,2,120,DUM,DUM);
ENTER(CHAN,"T"&CVS(CNT)&".YEL",DUM);
OUT(CHAN,LST);
RELEASE(CHAN);
END