|
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: 13746 (0x35b2)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »RAKN21«
└─⟦9e403ec87⟧ Bits:30008765 50001610
└─⟦this⟧ »RAKN21«
/* PROGRAM-ID. RAKN21 */
/* DATE-WRITTEN. 1978-06-16 */
/* AUTHOR. OLLE */
/* REMARKS. PROGRAMMET RÄKNAR TILL 21 VÄXELVIS MED OPERAT. */
/* WORKING-STORAGE SECTION. */
DCL SVAR CHAR (1);
DCL DS1 CHAR (4);
DCL DS2 CHAR (4);
DCL DS3 CHAR (4);
DCL DS4 CHAR (4);
DCL DS5 CHAR (4);
DCL DS6 CHAR (4);
DCL DS7 CHAR (4);
DCL DS8 CHAR (4);
/* PROCEDURE DIVISION. */
A100:
PUT FILE (D) SKIP EDIT ('**** UTMANING I ATT RÄKNA TILL 21. ****')
(A(47));
PUT FILE (D) EDIT (' ') (A(47));
PUT FILE (D) EDIT ('DEN AV OSS SOM FÅR TALET 21 VINNER.') (A(47));
PUT FILE (D) EDIT ('TALEN GES VÄXELVIS MED HÖGST 2 TAL ÅT GÅNGEN.')
(A(47));
PUT FILE (D) EDIT ('VAR SÅ GOD, BÖRJA MED 1 eller 1 2.')(A(47));
PUT FILE (D) EDIT ('TRYCK PÅ "RETURN" EFTER SIFFERINKNAPPNINGEN')
(A(47));
PUT FILE (D) EDIT (' ') (A(47));
PUT FILE (D) EDIT (' DINA SIFFOR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT (' ') (A(8));
GET LIST (DS1);
IF DS1 = '1 ' THEN GO TO A200;
IF DS1 = ' 1 ' THEN GO TO A200;
IF DS1 = ' 1 ' THEN GO TO A200;
IF DS1 = ' 1' THEN GO TO A200;
IF DS1 = '12 ' THEN GO TO A250;
IF DS1 = '1 2 ' THEN GO TO A250;
IF DS1 = '1 2' THEN GO TO A250;
IF DS1 = ' 12 ' THEN GO TO A250;
IF DS1 = ' 1 2' THEN GO TO A250;
IF DS1 = ' 12' THEN GO TO A250;
A150:
PUT FILE (D) EDIT (' ') (A(39));
PUT FILE (D) EDIT ('FELAKTIGT ANGIVEN SIFFERKOMBINATION.') (A(47));
PUT FILE (D) EDIT ('TRYCK J OM VI SKA BÖRJA OM, ANNARS N.')(A(47));
GET LIST (SVAR);
IF SVAR = 'J' THEN GO TO A100;
GO TO D999;
A200:
PUT FILE (D) EDIT (' 1 ') (A(5)) (' 2, 3')
(A(16))
(' ') (A(26));
GO TO A300;
A250:
PUT FILE (D) EDIT (' 1, 2') (A(5)) (' 3 ')
(A(16)) (' ') (A(26));
A300:
GET LIST (DS2);
IF DS2 = '4 ' THEN GO TO A400;
IF DS2 = ' 4 ' THEN GO TO A400;
IF DS2 = ' 4 ' THEN GO TO A400;
IF DS2 = ' 4' THEN GO TO A400;
IF DS2 = '45 ' THEN GO TO A450;
IF DS2 = '4 5 ' THEN GO TO A450;
IF DS2 = '4 5' THEN GO TO A450;
IF DS2 = ' 45 ' THEN GO TO A450;
IF DS2 = ' 4 5' THEN GO TO A450;
IF DS2 = ' 45' THEN GO TO A450;
GO TO A150;
A400:
PUT FILE (D) SKIP EDIT (' DINA SIFFROR MINA SIFFROR')
(A(47));
PUT FILE (D) EDIT (' 4 ') (A(5)) (' 5, 6')
(A(16)) (' ') (A(26));
GO TO A500;
A450:
PUT FILE (D) SKIP EDIT (' DINA SIFFROR MINA SIFFROR')
(A(47));
PUT FILE (D) EDIT (' 4, 5') (A(5)) (' 6 ')
(A(16)) (' ') (A(26));
A500:
GET LIST (DS3);
IF DS3 = '7 ' THEN GO TO A600;
IF DS3 = ' 7 ' THEN GO TO A600;
IF DS3 = ' 7 ' THEN GO TO A600;
IF DS3 = ' 7' THEN GO TO A600;
IF DS3 = '78 ' THEN GO TO A650;
IF DS3 = '7 8 ' THEN GO TO A650;
IF DS3 = '7 8' THEN GO TO A650;
IF DS3 = ' 78 ' THEN GO TO A650;
IF DS3 = ' 7 8' THEN GO TO A650;
IF DS3 = ' 78' THEN GO TO A650;
GO TO A150;
A600:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT (' 7 ') (A(5)) (' 8, 9') (A(16))
(' ') (A(26));
GO TO A700;
A650:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT (' 7, 8') (A(5)) (' 9 ')
(A(16)) (' ') (A(26));
GO TO A700;
A700:
GET LIST (DS4);
IF DS4 = '10 ' THEN GO TO A800;
IF DS4 = ' 10 ' THEN GO TO A800;
IF DS4 = ' 10' THEN GO TO A800;
IF DS4 = '1011' THEN GO TO A850;
GO TO A150;
A800:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('10 ')(A(5)) (' ') (A(10)) ('11,12')
(A(5)) (' ') (A(27));
GO TO A900;
A850:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('10,11') (A(5)) (' 12 ')
(A(16)) (' ') (A(26));
A900:
GET LIST (DS5);
IF DS5 = '13 ' THEN GO TO A1000;
IF DS5 = ' 13 ' THEN GO TO A1000;
IF DS5 = ' 13' THEN GO TO A1000;
IF DS5 = '1314' THEN GO TO A1050;
GO TO A150;
A1000:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('13 ') (A(5)) (' ') (A(10)) ('14,15')
(A(5)) (' ') (A(27));
GO TO A1100;
A1050:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('13,14')(A(5)) (' ') (A(10)) ('15 ')
(A(5)) (' ') (A(26));
A1100:
GET LIST (DS6);
IF DS6 = '16 ' THEN GO TO A1200;
IF DS6 = ' 16 ' THEN GO TO A1200;
IF DS6 = ' 16' THEN GO TO A1200;
IF DS6 = '1617' THEN GO TO A1250;
GO TO A150;
A1200:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFORO') (A(47));
PUT FILE (D) EDIT ('16 ') (A(5)) (' ') (A(10)) ('17,18')
(A(5)) (' ') (A(27));
GO TO A1300;
A1250:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('16,17') (A(5)) (' ') (A(10)) ('18 ')
(A(5)) (' ') (A(26));
A1300:
GET LIST (DS7);
IF DS7 = '19 ' THEN GO TO A1400;
IF DS7 = ' 19 ' THEN GO TO A1400;
IF DS7 = ' 19' THEN GO TO A1400;
IF DS7 = '1920' THEN GO TO A1450;
GO TO A150;
A1400:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('19 ') (A(5)) (' ') (A(10)) ('20,21')
(A(5)) (' ') (A(27));
GO TO A1500;
A1450:
PUT FILE (D) SKIP EDIT ('DINA SIFFROR MINA SIFFROR') (A(47));
PUT FILE (D) EDIT ('19,20') (A(5)) (' ') (A(10)) ('21 ')
(A(5)) (' ') (A(26));
A1500:
PUT FILE (D) EDIT ('BEKLAGAR, MEN DU FÖRLORADE') (A(47));
PUT FILE (D) EDIT ('SKA VI FÖRSÖKA IGEN, J eller N ?') (A(46));
GET LIST (SVAR);
IF SVAR = 'J' THEN GO TO A100;
D999:
END;