|
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: 2923 (0xb6b)
Types: Q1_HexDump, reclen=79
Notes: q1file
Names: »KOUPP1«
└─⟦7bb65a061⟧ Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
└─⟦this⟧ »KOUPP1«
└─⟦aeb45b905⟧ Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
└─⟦this⟧ »KOUPP1«
└─⟦cfd478037⟧ Bits:30008627 DDMQ1-0066_MSAB_ref_ex_Bokf_system_NFK_diskett_2_2_781120_side0
└─⟦this⟧ »KOUPP1«
└─⟦d1c33ffd3⟧ Bits:30008583 DDMQ1-0017_Bokforingssystem_kallkod_Msab_790411
└─⟦this⟧ »KOUPP1«
└─⟦d4a65d31f⟧ Bits:30008722 DDMQ1-0163_MSAB_Bokf_pgm_i_PL1_781112_TD
└─⟦this⟧ »KOUPP1«
└─⟦f4c608b16⟧ Bits:30008624 DDMQ1-0064_LMC_Kopia_Generall_pgm_for_bokforing_Endast_PL1-vers_781105_B
└─⟦this⟧ »KOUPP1«
0x000…04f (0,) 2f 2a 46 5c 52 53 54 41 20 52 41 44 45 4e 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*FÖRSTA RADEN*/ ┆
0x04f…09e (1,) 2f 2a 4b 4f 55 50 50 31 20 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 4e 59 41 20 4b 4f 4e 54 4f 4e 20 49 20 46 49 4c 45 4e 20 4b 54 4f 54 58 20 20 20 20 20 20 47 45 4e 45 52 45 4c 4c 54 20 50 47 4d 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*KOUPP1 UPPLÄGGNING AV NYA KONTON I FILEN KTOTX GENERELLT PGM ┆
0x09e…0ed (2,) 4b 4c 41 52 54 3a 20 37 38 31 31 30 34 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KLART: 781104 PROGR:TD */ ┆
0x0ed…13c (3,) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 29 2c 32 20 5a 20 43 48 41 52 28 31 29 2c 32 20 4b 20 43 48 41 52 28 34 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 KTO,2 KONTO FIXED(4),2 Z CHAR(1),2 K CHAR(4),2 TEXT CHAR(34), ┆
0x13c…18b (4,) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 2c 32 20 44 55 4d 20 43 48 41 52 28 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2),2 DUM CHAR(6); ┆
0x18b…1da (5,) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1), ┆
0x1da…229 (6,) 32 20 43 4f 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 CO FIXED(1); ┆
0x229…278 (7,) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 30 29 2c 53 20 43 48 41 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c 20 ┆DCL DATFIL FILE,KTOTX FILE,SVAR CHAR(40),S CHAR(1),RAD FIXED(2),SIDA FIXED(4), ┆
0x278…2c7 (8,) 44 41 47 20 43 48 41 52 28 36 29 2c 4b 4f 53 56 41 52 20 43 48 41 52 28 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DAG CHAR(6),KOSVAR CHAR(4); ┆
0x2c7…316 (9,) 4f 50 45 4e 20 4b 54 4f 54 58 3b 43 41 4c 4c 20 53 45 4f 46 28 4b 54 4f 54 58 29 3b 4f 50 45 4e 20 44 41 54 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN KTOTX;CALL SEOF(KTOTX);OPEN DATFIL; ┆
0x316…365 (10,) 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆READ FILE(DATFIL)INTO(DATREC);IF XDAG='XXXXXX' THEN GO TO SLUT; ┆
0x365…3b4 (11,) 44 41 47 3d 58 44 41 47 3b 58 44 41 47 3d 27 58 58 58 58 58 58 27 3b 53 4b 28 31 34 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DAG=XDAG;XDAG='XXXXXX';SK(14)=' '; ┆
0x3b4…403 (12,) 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆REWRITE FILE(DATFIL)FROM(DATREC); ┆
0x403…452 (13,) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 28 27 20 2a 2a 2a 20 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 4e 59 41 20 4b 4f 4e 54 4f 4e 20 20 2a 2a 2a 27 29 28 41 28 37 34 29 29 ┆PUT FILE(D) SKIP EDIT(' ')(A(37))(' *** UPPLÄGGNING AV NYA KONTON ***')(A(74))┆
0x452…4a1 (14,) 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37)); ┆
0x4a1…4f0 (15,) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(S);PUT FILE(D) SKIP; ┆
0x4f0…53f (16,) 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAD=5;SIDA=0; ┆
0x53f…58e (17,) 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 4e 59 41 20 4b 4f 4e 54 4f 4e 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 20 20 20 20 20 ┆RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('UPPLÄGGNING AV NYA KONTON.')(A(40)) ┆
0x58e…5dd (18,) 28 27 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 31 30 29 29 28 27 53 49 44 41 3a 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 20 45 44 49 54 28 27 4b 4f 4e 54 4f 27 29 28 41 28 38 29 29 20 20 20 20 20 20 ┆('DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2) EDIT('KONTO')(A(8)) ┆
0x5dd…62c (19,) 28 27 54 45 58 54 27 29 28 41 29 53 4b 49 50 3b 52 41 44 3d 34 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆('TEXT')(A)SKIP;RAD=45; ┆
0x62c…67b (20,) 53 54 3a 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 4e 59 54 54 20 4b 4f 4e 54 4f 4e 55 4d 4d 45 52 3a 27 29 28 41 28 33 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ST: PUT FILE(D) SKIP EDIT('NYTT KONTONUMMER:')(A(33)); ┆
0x67b…6ca (21,) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 4f 53 56 41 52 29 3b 49 46 20 4b 4f 53 56 41 52 3d 27 53 4c 55 54 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(KOSVAR);IF KOSVAR='SLUT' THEN GO TO UT; ┆
0x6ca…719 (22,) 49 46 20 56 45 52 49 46 59 28 4b 4f 53 56 41 52 2c 27 20 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF VERIFY(KOSVAR,' 0123456789')=0 THEN GO TO ST; ┆
0x719…768 (23,) 4b 4f 4e 54 4f 3d 4b 4f 53 56 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KONTO=KOSVAR; ┆
0x768…7b7 (24,) 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4b 4f 4e 54 4f 29 28 41 28 34 29 29 28 27 4b 4f 4e 54 4f 54 45 58 54 3a 27 29 28 41 28 34 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)EDIT(KONTO)(A(4))('KONTOTEXT:')(A(40)); ┆
0x7b7…806 (25,) 54 45 58 54 32 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 29 3b 49 46 20 53 55 42 53 54 52 28 53 56 41 52 2c 33 35 2c 36 29 3d 27 20 20 20 20 20 20 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 4f 4b 3b 20 20 20 20 20 20 20 20 20 ┆TEXT2:GET SKIP LIST(SVAR);IF SUBSTR(SVAR,35,6)=' ' THEN GO TO OK; ┆
0x806…855 (26,) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 46 5c 52 20 4c 5d 4e 47 20 54 45 58 54 21 27 29 28 41 28 33 37 29 29 28 27 44 55 20 46 5d 52 20 49 4e 54 45 20 46 4f 52 54 53 5b 54 54 41 20 50 5d 27 29 20 20 20 20 20 20 ┆PUT FILE(D)SKIP EDIT('FÖR LÅNG TEXT!')(A(37))('DU FÅR INTE FORTSÄTTA PÅ') ┆
0x855…8a4 (27,) 28 41 28 33 37 29 29 28 27 4e 5b 53 54 41 20 52 41 44 2e 27 29 28 41 28 33 37 29 29 28 27 50 52 30 56 41 20 45 4e 20 47 5d 4e 47 20 54 49 4c 4c 3a 27 29 28 41 28 34 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(37))('NÄSTA RAD.')(A(37))('PR0VA EN GÅNG TILL:')(A(40)); ┆
0x8a4…8f3 (28,) 44 4f 20 49 3d 31 20 54 4f 20 34 3b 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 44 4f 20 4a 3d 31 20 54 4f 20 33 30 30 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO I=1 TO 4;CALL OUTPUT(1,6);DO J=1 TO 300;END;END; ┆
0x8f3…942 (29,) 47 4f 20 54 4f 20 54 45 58 54 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO TEXT2; ┆
0x942…991 (30,) 4f 4b 3a 54 45 58 54 3d 53 55 42 53 54 52 28 53 56 41 52 2c 31 2c 33 34 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 54 45 58 54 29 28 41 28 33 34 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OK:TEXT=SUBSTR(SVAR,1,34);PUT FILE(D)EDIT(TEXT)(A(34)); ┆
0x991…9e0 (31,) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 4b 4f 4e 54 4f 29 28 41 28 38 29 29 28 54 45 58 54 29 28 41 28 35 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP EDIT(KONTO)(A(8))(TEXT)(A(50)); ┆
0x9e0…a2f (32,) 5a 3d 27 41 27 3b 49 42 3d 30 3b 44 55 4d 3d 27 00 00 00 00 00 00 27 3b 4b 3d 4b 4f 4e 54 4f 20 43 41 54 20 27 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Z='A';IB=0;DUM=' ';K=KONTO CAT ' '; ┆
0xa2f…a7e (33,) 57 52 49 54 45 20 46 49 4c 45 28 4b 54 4f 54 58 29 46 52 4f 4d 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆WRITE FILE(KTOTX)FROM(KTO); ┆
0xa7e…acd (34,) 52 41 44 3d 52 41 44 2d 31 3b 49 46 20 52 41 44 3c 31 32 20 54 48 45 4e 20 47 4f 20 54 4f 20 52 55 42 3b 47 4f 20 54 4f 20 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAD=RAD-1;IF RAD<12 THEN GO TO RUB;GO TO ST; ┆
0xacd…b1c (35,) 55 54 3a 43 4c 4f 53 45 20 4b 54 4f 54 58 3b 50 55 54 20 53 4b 49 50 28 52 41 44 2d 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT:CLOSE KTOTX;PUT SKIP(RAD-5); ┆
0xb1c…b6b (36,) 53 4c 55 54 3a 43 41 4c 4c 20 4c 4f 41 44 28 27 42 4f 4b 52 55 54 27 2c 36 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SLUT:CALL LOAD('BOKRUT',6);END; ┆