|
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: 1501 (0x5dd)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »FILED«, »KULETIK«
└─⟦22252c168⟧ Bits:30008711 DDMQ1-0151_Programmers_Disk_Copy
└─⟦this⟧ »FILED«
└─⟦23915e280⟧ Bits:30008593 DDMQ1-0026
└─⟦this⟧ »FILED«
└─⟦3dd001c96⟧ Bits:30008706 DDMQ1-0146_PROGRAMMERS_DISK_TILLHÖR_HS
└─⟦this⟧ »FILED«
└─⟦5ffc76ae2⟧ Bits:30008736 DDMQ1-0178_TELEFON_TIPS_BARKABY
└─⟦this⟧ »KULETIK«
└─⟦c226ca115⟧ Bits:30008601 DDMQ1-0035_Programmers_Disk_77-08-23
└─⟦this⟧ »KULETIK«
└─⟦e0722960d⟧ Bits:30008733 DDMQ1-0175
└─⟦this⟧ »KULETIK«
A=0;
B=0;
ST: A=A+1;
PUT SKIP (4);
DO I = 1 TO 4;
PUT EDIT (' INNEHÅLLER STENROM ')(A(36));
END;
PUT SKIP (1);
DO I = 1 TO 4;
PUT EDIT (' FLASKA NUMMER ')(A(36));
END;
PUT SKIP (1);
DO I = 1 TO 4;B=B+1;
PUT EDIT(B)(X(12),P'-9',X(22));
END;
IF (A=50) THEN GO TO SLUT;
GO TO ST;
SLUT: END;