|
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: 6004 (0x1774)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »ETIKETT1«
└─⟦256585323⟧ Bits:30008759 50001598
└─⟦this⟧ »ETIKETT1«
/* ETIKETT SKRIVER UT ETT ANTALL ETIKETTER MED VALFRI TEXT
V 0:1
PRG JÅ 780904 */
DCL RAD(5) CHAR(32),
T1 CHAR(1);
ESKRIV:PROC; /* UTSKRIFT AV ETIKETER */
DO K=1 TO 5;
DO J=1 TO I;
PUT EDIT(RAD(K))(A(36));
END;
PUT EDIT('┣0d┫')(A);
END;
PUT EDIT(' ┣0d┫')(A);
END;
/* H Ä R B Ö R J A R H U V U D P R O G R A M M E T */
DO I=1 TO 5;
RAD(I)=' ';
END;
PUT FILE(D) SKIP EDIT(' ')(A(141))(' ')(A(141))('ANGE TEXT,')(A(11))
('TRYCK "RETURN" MELLAN VARJE RAD')(A);
L1: J=0;
CALL MOVEBUFF(J);
DO I=1 TO 5;
PUT FILE(D) EDIT(' ')(A(12))('*')(A(3));
CALL TYPIST(RAD(I),32);
CALL TYPIST('┣10┫',1);
CALL CORED(0);
GET SKIP LIST(RAD(I));
PUT FILE(D) EDIT(RAD(I))(A(32));
J=(I-1)*47+12;
CALL MOVEBUFF(J);
PUT FILE(D) EDIT(' ')(A(2));
CALL MOVEBUFF(J);
END;
PUT FILE(D) EDIT(' ')(A(47))('ÄR TEXTEN OK? SVARA "J" ELLER "N"')
(A(47));
GET SKIP LIST(T1);
IF T1¬='J' THEN DO;
J=236;
CALL MOVEBUFF(J);
PUT FILE(D) EDIT(' ')(A(231));
GO TO L1;
END;
I=4;
L2: CALL ESKRIV;
PUT FILE(D) SKIP EDIT('ÄR INSTÄLLNINGEN BRA? SVARA "J" ELLER "N"')
(A(46));
GET SKIP LIST(T1);
IF T1¬='J' THEN GO TO L2;
PUT FILE(D) SKIP EDIT('HUR MÅNGA ETIKETTER SKA SKRIVAS:')(A(43));
GET SKIP LIST(L);
PUT FILE(D) SKIP EDIT(' ')(A(20))('TACK !')(A(74));
I=4;
DO M=1 TO L/4;
CALL ESKRIV;
END;
I=L-(M-1)*4;
IF I¬=0 THEN CALL ESKRIV;
END;