|
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: 2133 (0x855)
Types: Q1_HexDump, reclen=79
Notes: q1file
Names: »PLOT«
└─⟦0ba27672d⟧ Bits:30008599 DDMQ1-0031_GAMES_DISK_RECOVERY_FIXTEXT
└─⟦this⟧ »PLOT«
0x000…04f (0,) 44 43 4c 20 45 51 20 43 48 41 52 28 37 30 29 49 4e 49 54 28 27 59 3d 4b 2a 58 2b 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 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 ┆DCL EQ CHAR(70)INIT('Y=K*X+L '); ┆
0x04f…09e (1,) 44 43 4c 20 4f 32 20 43 48 41 52 28 31 29 2c 4f 33 20 43 48 41 52 28 31 29 2c 41 20 43 48 41 52 28 39 29 2c 41 4d 20 43 48 41 52 28 39 29 2c 42 20 43 48 41 52 28 39 29 2c 42 4d 20 43 48 41 52 28 39 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆DCL O2 CHAR(1),O3 CHAR(1),A CHAR(9),AM CHAR(9),B CHAR(9),BM CHAR(9); ┆
0x09e…0ed (2,) 44 43 4c 20 43 20 43 48 41 52 28 39 29 3b 20 44 43 4c 20 50 20 43 48 41 52 28 31 29 49 4e 49 54 28 27 2e 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 ┆DCL C CHAR(9); DCL P CHAR(1)INIT('.'); ┆
0x0ed…13c (3,) 55 4e 53 50 45 43 28 4f 32 29 3d 32 3b 20 20 55 4e 53 50 45 43 28 4f 33 29 3d 33 3b 20 41 3d 27 08 27 20 7c 7c 20 4f 32 3b 20 42 4d 3d 4f 33 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 ┆UNSPEC(O2)=2; UNSPEC(O3)=3; A=' ' öö O2; BM=O3; ┆
0x13c…18b (4,) 42 3d 27 01 27 20 20 7c 7c 20 4f 33 20 7c 7c 20 4f 33 20 7c 7c 20 4f 33 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 ┆B=' ' öö O3 öö O3 öö O3; ┆
0x18b…1da (5,) 53 3a 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 50 55 54 20 53 4b 49 50 28 31 30 29 3b 41 4d 3d 27 08 08 27 20 7c 7c 20 4f 32 20 7c 7c 20 4f 32 20 7c 7c 20 4f 32 20 7c 7c 20 4f 32 3b 20 ┆S:PUT FILE(DISPLAY)SKIP LIST('');PUT SKIP(10);AM=' ' öö O2 öö O2 öö O2 öö O2; ┆
0x1da…229 (6,) 20 20 4c 49 48 3d 30 3b 4c 49 56 3d 30 3b 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 53 4b 49 50 20 4c 49 53 54 28 27 53 54 41 52 54 20 56 41 4c 55 45 3d 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 29 3b 20 20 20 20 ┆ LIH=0;LIV=0;PUT FILE(DISPLAY)SKIP LIST('START VALUE=');GET SKIP LIST(SV); ┆
0x229…278 (7,) 43 41 4c 4c 20 4b 45 59 46 55 4e 28 49 46 46 29 3b 49 46 20 49 46 46 3d 32 35 20 54 48 45 4e 20 43 41 4c 4c 20 54 59 50 49 53 54 28 27 47 52 41 50 48 0d 27 2c 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 ┆CALL KEYFUN(IFF);IF IFF=25 THEN CALL TYPIST('GRAPH ',6); ┆
0x278…2c7 (8,) 53 53 3a 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 53 4b 49 50 20 4c 49 53 54 28 27 45 4e 44 20 56 41 4c 55 45 3d 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 45 56 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SS:PUT FILE(DISPLAY)SKIP LIST('END VALUE=');GET SKIP LIST(EV); ┆
0x2c7…316 (9,) 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 53 4b 49 50 20 4c 49 53 54 28 27 49 4e 43 52 45 4d 45 4e 54 3d 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 5a 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(DISPLAY)SKIP LIST('INCREMENT=');GET SKIP LIST(Z); ┆
0x316…365 (10,) 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 53 4b 49 50 20 4c 49 53 54 20 28 27 56 45 52 54 49 43 41 4c 20 53 43 41 4c 45 3d 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 56 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(DISPLAY)SKIP LIST ('VERTICAL SCALE=');GET SKIP LIST(VS); ┆
0x365…3b4 (11,) 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 45 51 20 20 20 20 20 20 20 20 29 3b 50 55 54 20 53 4b 49 50 20 28 31 30 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 LIST(EQ );PUT SKIP (10); ┆
0x3b4…403 (12,) 5a 5a 3d 5a 2a 20 36 30 3b 20 20 49 5a 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 ┆ZZ=Z* 60; IZ=0; ┆
0x403…452 (13,) 44 4f 20 52 3d 53 56 20 54 4f 20 45 56 20 42 59 20 5a 5a 3b 20 43 3d 52 20 7c 7c 20 27 20 20 20 20 20 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 20 20 20 ┆DO R=SV TO EV BY ZZ; C=R öö ' '; ┆
0x452…4a1 (14,) 50 55 54 20 4c 49 53 54 28 27 0a 27 2c 43 2c 27 08 08 08 08 08 08 08 08 08 01 7c 01 08 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 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 ┆PUT LIST(' ',C,' ö ____________'); ┆
0x4a1…4f0 (15,) 49 5a 3d 49 5a 2b 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 ┆IZ=IZ+1; ┆
0x4f0…53f (16,) 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; ┆
0x53f…58e (17,) 43 3d 52 20 7c 7c 20 27 20 20 20 20 20 20 20 20 20 27 3b 50 55 54 20 4c 49 53 54 28 27 0a 27 2c 43 2c 27 08 08 08 08 08 08 08 08 08 01 7c 01 08 5f 08 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 ┆C=R öö ' ';PUT LIST(' ',C,' ö _ '); ┆
0x58e…5dd (18,) 44 4f 20 49 49 5a 3d 31 20 54 4f 20 49 5a 3b 50 55 54 20 4c 49 53 54 28 27 08 08 08 08 08 08 08 08 08 08 08 08 27 29 3b 45 4e 44 3b 20 50 55 54 20 4c 49 53 54 28 4f 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO IIZ=1 TO IZ;PUT LIST(' ');END; PUT LIST(O3); ┆
0x5dd…62c (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 ┆ ┆
0x62c…67b (20,) 44 4f 20 58 3d 53 56 20 54 4f 20 45 56 20 42 59 20 5a 20 20 3b 20 20 43 41 4c 4c 20 4b 45 59 46 55 4e 28 49 46 46 29 3b 49 46 20 49 46 46 3d 31 37 20 54 48 45 4e 20 47 4f 54 4f 20 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO X=SV TO EV BY Z ; CALL KEYFUN(IFF);IF IFF=17 THEN GOTO S; ┆
0x67b…6ca (21,) 2f 2a 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 20 20 20 20 20 20 20 20 20 20 20 20 ┆/**/ ┆
0x6ca…719 (22,) 59 3d 4b 2a 58 2b 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆Y=K*X+L ;┆
0x719…768 (23,) 49 48 3d 58 2f 36 30 20 3b 20 49 56 3d 56 53 2a 59 2f 34 38 3b 20 58 31 3d 49 48 2d 4c 49 48 3b 20 4c 49 48 3d 49 48 3b 20 59 31 3d 49 56 2d 4c 49 56 3b 20 4c 49 56 3d 49 56 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IH=X/60 ; IV=VS*Y/48; X1=IH-LIH; LIH=IH; Y1=IV-LIV; LIV=IV; ┆
0x768…7b7 (24,) 49 46 20 50 3d 27 2e 27 20 26 20 59 31 3d 30 20 54 48 45 4e 20 50 3d 27 20 27 3b 20 20 45 4c 53 45 20 50 3d 27 2e 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 ┆IF P='.' & Y1=0 THEN P=' '; ELSE P='.'; ┆
0x7b7…806 (25,) 49 46 20 59 31 3e 30 20 54 48 45 4e 20 44 4f 20 4b 3d 31 20 54 4f 20 59 31 3b 20 50 55 54 20 4c 49 53 54 28 42 29 3b 20 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 ┆IF Y1>0 THEN DO K=1 TO Y1; PUT LIST(B); END; ┆
0x806…855 (26,) 49 46 20 59 31 3c 30 20 54 48 45 4e 20 44 4f 20 4b 3d 31 20 54 4f 20 2d 59 31 3b 50 55 54 20 4c 49 53 54 28 42 4d 29 3b 45 4e 44 3b 50 55 54 20 4c 49 53 54 28 20 20 50 2c 41 29 3b 45 4e 44 3b 20 47 4f 54 4f 20 53 3b 45 4e 44 3b 20 20 20 ┆IF Y1<0 THEN DO K=1 TO -Y1;PUT LIST(BM);END;PUT LIST( P,A);END; GOTO S;END; ┆