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