|
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: 2212 (0x8a4)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »HS«
└─⟦22252c168⟧ Bits:30008711 DDMQ1-0151_Programmers_Disk_Copy
└─⟦this⟧ »HS«
└─⟦23915e280⟧ Bits:30008593 DDMQ1-0026
└─⟦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);
ZN1=0.7;
ZN2=0.4;
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;