|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2528 (0x9e0)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »HS«
└─⟦3dd001c96⟧ Bits:30008706 DDMQ1-0146_PROGRAMMERS_DISK_TILLHÖR_HS
└─⟦this⟧ »HS«
DCL ZN1 CHAR (6);
DCL ZN2 CHAR (6);
DCL PO CHAR (3);
DCL PA CHAR (4);
DCL PF CHAR (4);
DCL R CHAR (4);
DCL T CHAR (2);
DCL Q CHAR (4);
IGEN: PUT FILE (DISPLAY) SKIP LIST (' R ? ');
GET SKIP LIST (R);
IF (R='SLUT') THEN GO TO UT;
PUT FILE (DISPLAY) SKIP LIST (' T ? ');
GET SKIP LIST (T);
PUT FILE (DISPLAY) SKIP LIST (' PA ? ');
GET SKIP LIST (PA);
IF (R='1') THEN ZN1=0.7;
IF (R='1.5') THEN ZN1=0.8;
IF (R='2') THEN ZN1=0.9;
ZN2=0.4;
PUT SKIP LIST ('ZN1 = ',ZN1);
PUT SKIP LIST ('ZN2 = ',ZN2);
PF=1;
Q=PF/EXP (R*T);
PO=PA*ZN1-Q*ZN2;
PUT SKIP LIST ('R=',R);
PUT SKIP LIST ('T=',T);
PUT SKIP LIST ('Q=',Q);
PUT SKIP LIST ('PF=',PF);
PUT SKIP LIST ('PO=',PO);
PUT SKIP LIST ('PA=',PA);
GO TO IGEN;
UT: END;