|
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: 4661 (0x1235)
Types: Q1_HexDump, reclen=79
Notes: q1file
Names: »SKRIV1«
└─⟦9e403ec87⟧ Bits:30008765 50001610
└─⟦this⟧ »SKRIV1«
0x0000…004f (0,) 2f 2a 20 46 5c 52 53 54 41 20 52 41 44 45 4e 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 20 20 20 20 20 20 20 20 20 ┆/* FÖRSTA RADEN */ ┆
0x004f…009e (1,) 2f 2a 20 55 54 53 4b 52 49 46 54 53 50 52 4f 47 52 41 4d 20 53 4b 52 49 56 45 52 20 55 54 20 45 4e 20 47 52 4f 47 52 41 4d 46 49 4c 20 4d 45 44 20 34 30 20 52 41 44 45 52 2f 53 49 44 41 20 37 38 30 32 32 32 20 50 52 47 20 4a 5d 20 2a 2f ┆/* UTSKRIFTSPROGRAM SKRIVER UT EN GROGRAMFIL MED 40 RADER/SIDA 780222 PRG JÅ */┆
0x009e…00ed (2,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00ed…013c (3,) 44 43 4c 20 44 55 4d 4d 59 28 36 34 29 20 43 48 41 52 28 31 32 38 29 3b 2f 2a 20 4d 55 4c 54 49 50 52 4f 47 52 41 4d 20 41 52 45 41 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 ┆DCL DUMMY(64) CHAR(128);/* MULTIPROGRAM AREA */ ┆
0x013c…018b (4,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x018b…01da (5,) 44 43 4c 20 57 48 41 54 20 46 49 4c 45 3b 2f 2a 20 47 52 4f 47 52 41 4d 46 49 4c 45 4e 20 53 4f 4d 20 53 4b 41 4c 20 53 4b 52 49 56 41 53 20 55 54 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 ┆DCL WHAT FILE;/* GROGRAMFILEN SOM SKAL SKRIVAS UT */ ┆
0x01da…0229 (6,) 44 43 4c 20 44 20 43 48 41 52 28 37 39 29 2c 2f 2a 20 50 52 4f 47 52 41 4d 52 41 44 20 53 4f 4d 20 53 4b 41 4c 4c 20 53 4b 52 49 56 41 53 20 55 54 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 ┆DCL D CHAR(79),/* PROGRAMRAD SOM SKALL SKRIVAS UT */ ┆
0x0229…0278 (7,) 20 20 20 20 58 31 20 46 49 58 45 44 28 34 29 2c 2f 2a 20 50 52 4f 47 52 41 4d 52 41 44 20 46 52 5d 4e 20 56 49 4c 4b 45 4e 20 55 54 53 4b 52 49 46 54 45 4e 20 53 4b 41 4c 20 42 5c 52 4a 41 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ X1 FIXED(4),/* PROGRAMRAD FRÅN VILKEN UTSKRIFTEN SKAL BÖRJA */ ┆
0x0278…02c7 (8,) 20 20 20 20 58 32 20 46 49 58 45 44 28 34 29 2c 2f 2a 20 53 49 53 54 41 20 50 52 4f 47 52 41 4d 52 41 44 20 53 4f 4d 20 53 4b 41 4c 20 53 4b 52 49 56 41 53 20 55 54 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ X2 FIXED(4),/* SISTA PROGRAMRAD SOM SKAL SKRIVAS UT */ ┆
0x02c7…0316 (9,) 20 20 20 20 53 56 41 52 20 43 48 41 52 28 34 29 2c 2f 2a 20 53 56 41 52 53 56 41 52 49 41 42 45 4c 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 ┆ SVAR CHAR(4),/* SVARSVARIABEL */ ┆
0x0316…0365 (10,) 20 20 20 20 52 20 46 49 58 45 44 28 32 29 3b 2f 2a 20 52 41 44 52 5b 4b 4e 41 52 45 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 ┆ R FIXED(2);/* RADRÄKNARE */ ┆
0x0365…03b4 (11,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03b4…0403 (12,) 44 3d 27 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D=''; ┆
0x0403…0452 (13,) 44 4f 20 49 3d 31 20 54 4f 20 37 39 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 ┆DO I=1 TO 79; ┆
0x0452…04a1 (14,) 20 20 20 44 3d 44 20 43 41 54 20 27 00 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D=D CAT ' '; ┆
0x04a1…04f0 (15,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x04f0…053f (16,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x053f…058e (17,) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 46 49 4c 4e 41 4d 4e 27 29 28 41 28 31 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 FILE(D) SKIP EDIT('FILNAMN')(A(10)); ┆
0x058e…05dd (18,) 43 41 4c 4c 20 4b 46 49 4c 45 28 57 48 41 54 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 ┆CALL KFILE(WHAT); ┆
0x05dd…062c (19,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x062c…067b (20,) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 46 52 5d 4e 20 4f 43 48 20 4d 45 44 20 50 52 4f 47 52 41 4d 52 41 44 27 29 28 41 28 34 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 ┆PUT FILE(D) SKIP EDIT('FRÅN OCH MED PROGRAMRAD')(A(43)); ┆
0x067b…06ca (21,) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 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 ┆GET SKIP LIST(SVAR); ┆
0x06ca…0719 (22,) 49 46 20 53 56 41 52 7f 3d 27 20 20 20 20 27 20 54 48 45 4e 20 58 31 3d 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 ┆IF SVAR =' ' THEN X1=SVAR; ┆
0x0719…0768 (23,) 45 4c 53 45 20 58 31 3d 31 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 20 20 ┆ELSE X1=1; ┆
0x0768…07b7 (24,) 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 58 31 29 28 50 27 2d 2d 2d 39 27 29 28 27 54 49 4c 4c 20 4f 43 48 20 4d 45 44 20 50 52 4f 47 52 41 4d 52 41 44 27 29 28 41 28 34 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D) EDIT(X1)(P'---9')('TILL OCH MED PROGRAMRAD')(A(43)); ┆
0x07b7…0806 (25,) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 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 ┆GET SKIP LIST(SVAR); ┆
0x0806…0855 (26,) 49 46 20 53 56 41 52 7f 3d 27 20 20 20 20 27 20 54 48 45 4e 20 58 32 3d 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 ┆IF SVAR =' ' THEN X2=SVAR; ┆
0x0855…08a4 (27,) 45 4c 53 45 20 58 32 3d 39 39 39 39 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 ┆ELSE X2=9999; ┆
0x08a4…08f3 (28,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D) SKIP; ┆
0x08f3…0942 (29,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0942…0991 (30,) 52 3d 36 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 20 20 20 20 20 20 20 20 ┆R=6; ┆
0x0991…09e0 (31,) 4f 50 45 4e 20 57 48 41 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 20 20 20 20 20 20 20 20 20 20 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 WHAT; ┆
0x09e0…0a2f (32,) 43 41 4c 4c 20 4d 55 4c 54 49 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 ┆CALL MULTI(1); ┆
0x0a2f…0a7e (33,) 55 4e 53 50 45 43 28 57 48 41 54 29 3d 58 31 2d 31 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 ┆UNSPEC(WHAT)=X1-1; ┆
0x0a7e…0acd (34,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0acd…0b1c (35,) 4c 4f 4f 50 3a 49 46 20 52 3c 3d 31 32 20 54 48 45 4e 20 44 4f 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 ┆LOOP:IF R<=12 THEN DO; ┆
0x0b1c…0b6b (36,) 20 20 20 50 55 54 20 53 4b 49 50 28 52 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 ┆ PUT SKIP(R); ┆
0x0b6b…0bba (37,) 20 20 20 52 3d 39 36 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 20 20 20 20 ┆ R=96; ┆
0x0bba…0c09 (38,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x0c09…0c58 (39,) 49 46 20 52 3d 35 36 20 54 48 45 4e 20 44 4f 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 ┆IF R=56 THEN DO; ┆
0x0c58…0ca7 (40,) 20 20 20 50 55 54 20 53 4b 49 50 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 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(4); ┆
0x0ca7…0cf6 (41,) 20 20 20 52 3d 52 2d 34 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 20 20 20 ┆ R=R-4; ┆
0x0cf6…0d45 (42,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x0d45…0d94 (43,) 52 3d 52 2d 31 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 20 20 20 20 20 20 ┆R=R-1; ┆
0x0d94…0de3 (44,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0de3…0e32 (45,) 4f 4e 20 45 4e 44 46 49 4c 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON ENDFILE GO TO SLUT; ┆
0x0e32…0e81 (46,) 52 45 41 44 20 46 49 4c 45 28 57 48 41 54 29 20 49 4e 54 4f 28 44 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 ┆READ FILE(WHAT) INTO(D); ┆
0x0e81…0ed0 (47,) 4a 3d 49 4e 44 45 58 28 44 2c 27 0d 27 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 ┆J=INDEX(D,' '); ┆
0x0ed0…0f1f (48,) 49 46 20 4a 7f 3d 30 20 54 48 45 4e 20 53 55 42 53 54 52 28 44 2c 4a 2c 31 29 3d 27 5e 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 20 20 20 ┆IF J =0 THEN SUBSTR(D,J,1)='^'; ┆
0x0f1f…0f6e (49,) 49 46 20 56 45 52 49 46 59 28 44 2c 27 20 27 29 20 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 55 4e 53 50 45 43 28 57 48 41 54 29 29 28 50 27 5a 5a 5a 39 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF VERIFY(D,' ') THEN PUT SKIP EDIT(UNSPEC(WHAT))(P'ZZZ9 '); ┆
0x0f6e…0fbd (50,) 45 4c 53 45 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 55 4e 53 50 45 43 28 57 48 41 54 29 29 28 50 27 5a 5a 5a 39 20 20 20 27 29 28 44 29 28 41 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 ┆ELSE PUT SKIP EDIT(UNSPEC(WHAT))(P'ZZZ9 ')(D)(A); ┆
0x0fbd…100c (51,) 49 46 20 55 4e 53 50 45 43 28 57 48 41 54 29 3e 3d 58 32 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 20 20 20 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 UNSPEC(WHAT)>=X2 THEN GO TO SLUT; ┆
0x100c…105b (52,) 47 4f 20 54 4f 20 4c 4f 4f 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 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 LOOP; ┆
0x105b…10aa (53,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x10aa…10f9 (54,) 53 4c 55 54 3a 49 46 20 52 3e 35 35 20 54 48 45 4e 20 52 3d 52 2d 34 38 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 ┆SLUT:IF R>55 THEN R=R-48; ┆
0x10f9…1148 (55,) 50 55 54 20 53 4b 49 50 28 52 2d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(R-4); ┆
0x1148…1197 (56,) 43 41 4c 4c 20 55 4e 4d 55 4c 54 49 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 ┆CALL UNMULTI(1); ┆
0x1197…11e6 (57,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x11e6…1235 (58,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆