|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1792 (0x700)
Names: »LISSAJOU.CSB«
└─⟦a36acda55⟧ Bits:30004633 DEMO af COMAL og Pascal samt Butlers grafikfunktioner
└─ ⟦this⟧ »LISSAJOU.CSB«
0x000…020 07 00 a8 05 1b cc 00 04 00 01 00 c3 a8 05 f6 0a 00 19 71 f7 11 00 20 6c 69 73 73 61 6a 6f 75 73 ┆ q lissajous┆ 0x020…040 66 69 67 75 72 65 72 f6 14 00 08 71 f7 00 00 f6 1e 00 29 71 f7 21 00 20 6b 6f 6e 73 74 61 6e 74 ┆figurer q )q ! konstant┆ 0x040…060 65 72 20 73 6f 6d 20 64 65 66 69 6e 65 72 65 72 20 73 6b 7b 72 6d 65 6e f6 28 00 2e 71 f7 26 00 ┆er som definerer skærmen ( .q & ┆ 0x060…080 20 68 61 6c 76 65 72 20 76 7b 72 64 69 65 72 6e 65 20 66 6f 72 20 34 30 20 6b 61 72 61 6b 74 65 ┆ halver værdierne for 40 karakte┆ 0x080…0a0 72 73 6b 7b 72 6d f6 32 00 3b 71 f7 33 00 20 74 69 6c 70 61 73 20 27 73 6b 61 6c 61 27 20 74 69 ┆rskærm 2 ;q 3 tilpas 'skala' ti┆ 0x0a0…0c0 6c 20 64 69 6e 20 73 6b 7b 72 6d 2c 20 73 7d 20 69 6e 70 75 74 20 31 2c 20 31 20 6f 67 20 30 2e ┆l din skærm, så input 1, 1 og 0.┆ 0x0c0…0e0 35 f6 3c 00 1c 71 f7 14 00 20 67 69 76 65 72 20 65 6e 20 70 7b 6e 20 63 69 72 6b 65 6c f6 46 00 ┆5 < q giver en pæn cirkel F ┆ 0x0e0…100 08 71 f7 00 00 f6 4b 00 0f a2 f8 31 1a 2b e7 f8 47 00 00 2b f6 50 00 10 a2 f8 31 00 2b e7 f8 47 ┆ q K 1 + G + P 1 + G┆ 0x100…120 f0 00 2d 2b f6 5a 00 2f a2 f8 31 01 2b e7 f8 47 80 02 2d 2b f7 1c 00 20 61 6e 74 61 6c 20 6b 61 ┆ -+ Z / 1 + G -+ antal ka┆ 0x120…140 72 61 6b 74 65 72 65 72 20 70 7d 20 73 6b 7b 72 6d 65 6e f6 64 00 2b a2 f8 31 02 2b e7 f8 47 f0 ┆rakterer på skærmen d + 1 + G ┆ 0x140…160 00 2d 2b f7 18 00 20 61 6e 74 61 6c 20 6c 69 6e 69 65 72 20 70 7d 20 73 6b 7b 72 6d 65 6e f6 6e ┆ -+ antal linier på skærmen n┆ 0x160…180 00 08 71 f7 00 00 f6 78 00 24 a2 f8 31 03 2b e7 f8 32 01 39 47 02 00 32 00 39 2c 4e 53 47 01 00 ┆ q x $ 1 + 2 9G 2 9,NSG ┆ 0x180…1a0 2d 53 4b 47 02 00 2d 4f 0f 2b f6 82 00 13 99 0e db f8 32 03 39 47 00 00 2d 56 2b d8 97 f6 8c 00 ┆-SKG -O + 2 9G -V+ ┆ 0x1a0…1c0 1a a2 f8 31 04 2b e7 f8 32 02 39 47 02 00 2d 53 4b 47 02 00 2d 4f 2b f6 96 00 08 71 f7 00 00 f6 ┆ 1 + 2 9G -SKG -O+ q ┆ 0x1c0…1e0 aa 00 11 a2 f8 31 07 2b e7 f8 46 49 0f d0 82 2b f6 b4 00 05 a6 f6 be 00 08 71 f7 00 00 f6 c8 00 ┆ 1 + FI + q ┆ 0x1e0…200 05 7c f6 d2 00 22 91 45 15 00 72 65 6c 61 74 69 76 20 66 72 65 71 2e 20 66 6f 72 20 78 3a 20 e5 ┆ ø " E relativ freq. for x: ┆ 0x200…220 f8 31 09 2b f6 dc 00 1b 7d 7d a9 f8 32 09 39 10 47 00 00 2d 59 32 09 39 47 01 00 2d 57 5b 2b f6 ┆ 1 + åå 2 9 G -Y2 9G -WÆ+ ┆ 0x220…240 e6 00 23 a2 f8 31 0a 2b e7 f8 32 09 39 2b e3 f8 31 09 2b e7 f8 47 02 00 32 07 39 2c 4e 32 09 39 ┆ # 1 + 2 9+ 1 + G 2 9,N2 9┆ 0x240…260 4e 2b f6 f0 00 08 71 f7 00 00 f6 fa 00 05 7c f6 04 01 22 91 45 15 00 72 65 6c 61 74 69 76 20 66 ┆N+ q ø " E relativ f┆ 0x260…280 72 65 71 2e 20 66 6f 72 20 79 3a 20 e5 f8 31 0e 2b f6 0e 01 1b 7d ea a9 f8 32 0e 39 10 47 00 00 ┆req. for y: 1 + å 2 9 G ┆ 0x280…2a0 2d 59 32 0e 39 47 01 00 2d 57 5b 2b f6 18 01 18 a2 f8 31 0e 2b e7 f8 47 02 00 32 07 39 2c 4e 32 ┆-Y2 9G -WÆ+ 1 + G 2 9,N2┆ 0x2a0…2c0 0e 39 4e 2b f6 22 01 08 71 f7 00 00 f6 2c 01 26 91 45 19 00 79 20 66 61 73 65 2c 20 6d 75 6c 74 ┆ 9N+ " q , & E y fase, mult┆ 0x2c0…2e0 69 70 6c 75 6d 20 61 66 20 70 69 3a 20 e5 f8 31 10 2b f6 36 01 13 a2 f8 31 10 2b e7 f8 32 07 39 ┆iplum af pi: 1 + 6 1 + 2 9┆ 0x2e0…300 32 10 39 4e 2b f6 40 01 08 71 f7 00 00 f6 4a 01 05 a6 f6 54 01 18 8b 9b ab 00 ff 11 e7 f8 32 04 ┆2 9N+ @ q J T 2 ┆ 0x300…320 39 2b dc f8 32 04 39 4c 2b d9 f6 59 01 0f a2 f8 31 1a 2b e8 f8 47 01 00 2b f6 68 01 18 a2 f8 31 ┆9+ 2 9L+ Y 1 + G + h 1┆ 0x320…340 0b 2b e7 f8 34 12 32 11 39 32 04 39 4f 36 03 39 2b f6 72 01 1d 8b 91 ab 01 ff 13 e7 f8 47 00 00 ┆ + 4 2 92 9O6 9+ r G ┆ 0x340…360 2d 2b db f8 32 0a 39 47 01 00 2d 53 2b d9 f6 7c 01 18 a2 f8 31 19 2b e7 f8 34 15 31 0b 36 00 31 ┆-+ 2 9G -S+ ø 1 + 4 1 6 1┆ 0x360…380 13 36 00 39 4b 2b f6 81 01 37 a4 f8 45 03 00 1b 2b 00 2b f5 04 e2 f8 32 1a 39 15 2b f5 04 e2 f8 ┆ 6 9K+ 7 E + + 2 9 + ┆ 0x380…3a0 32 19 39 47 00 01 2d 50 2e 15 2b f5 04 e2 f8 32 19 39 47 00 01 2d 51 2e 15 2b f5 04 e2 f6 86 01 ┆2 9G -P. + 2 9G -Q. + ┆ 0x3a0…3c0 1d a2 f8 31 19 2b e7 f8 34 15 32 07 39 32 0b 39 53 36 03 31 13 36 00 39 4b 2b f6 8b 01 37 a4 f8 ┆ 1 + 4 2 92 9S6 1 6 9K+ 7 ┆ 0x3c0…3e0 45 03 00 1b 2b 00 2b f5 04 e2 f8 32 1a 39 15 2b f5 04 e2 f8 32 19 39 47 00 01 2d 50 2e 15 2b f5 ┆E + + 2 9 + 2 9G -P. + ┆ 0x3e0…400 04 e2 f8 32 19 39 47 00 01 2d 51 2e 15 2b f5 04 e2 f6 90 01 0a 8c d1 aa 01 ff 13 f6 a4 01 0a 8c ┆ 2 9G -Q. + ┆ 0x400…420 92 aa 00 ff 11 f6 ae 01 10 a7 f8 47 01 00 2b e1 f8 47 17 00 2b f6 b8 01 05 8d f6 c2 01 08 71 f7 ┆ G + G + q ┆ 0x420…440 00 00 f6 cc 01 11 76 56 ac 00 00 00 00 ff 12 4a ff 0b 4b f6 d6 01 14 98 1f ac f8 32 0b 39 1b 46 ┆ vV J K 2 9 F┆ 0x440…460 4c cc cd 7d 56 2b d8 f6 e0 01 38 94 12 03 f8 32 0b 39 32 0b 39 47 03 00 2d 4d 47 06 00 2d 4f 52 ┆L åV+ 8 2 92 9G -MG -OR┆ 0x460…480 32 0b 39 47 05 00 2d 4d 46 19 99 9a 7d 4e 52 32 0b 39 47 07 00 2d 4d 46 33 33 33 85 4f 52 2b f6 ┆2 9G -MF åNR2 9G -MF333 OR+ ┆ 0x480…4a0 ea 01 07 7a 51 ac f6 f4 01 2b 94 12 03 f8 47 02 00 34 12 32 0b 39 47 01 00 32 0b 39 2c 52 06 47 ┆ zQ + G 4 2 9G 2 9,R G┆ 0x4a0…4c0 01 00 32 0b 39 2c 53 06 52 4b 4f 36 03 39 2c 4e 2b f6 fe 01 05 7b f6 08 02 07 77 ff 12 f6 12 02 ┆ 2 9,S RKO6 9,N+ æ w ┆ 0x4c0…4e0 08 71 f7 00 00 f6 1c 02 14 76 e1 ac c2 ab 00 00 ff 16 4a ff 17 e1 ff 13 4b f6 26 02 32 71 f7 2a ┆ q v J K & 2q *┆ 0x4e0…500 00 49 4d 50 4f 52 54 20 50 49 2c 20 58 5f 52 45 4c 5f 46 52 45 51 2c 20 59 5f 52 45 4c 5f 46 52 ┆ IMPORT PI, X_REL_FREQ, Y_REL_FR┆ 0x500…520 45 51 2c 20 59 5f 50 48 41 53 45 f6 30 02 21 a2 f8 31 18 2b e7 f8 32 17 39 47 02 00 32 13 39 2c ┆EQ, Y_PHASE 0 ! 1 + 2 9G 2 9,┆ 0x520…540 4e 32 07 39 4e 52 4b 32 09 39 4f 2b f6 3a 02 15 94 16 03 f8 32 0e 39 32 18 39 4e 32 10 39 52 02 ┆N2 9NRK2 9O+ : 2 92 9N2 9R ┆ 0x540…560 2b f6 44 02 07 77 ff 16 f6 4e 02 08 71 f7 00 00 f6 58 02 14 76 4a ad 65 ac 00 00 ff 15 4a ff 17 ┆+ D w N q X vJ e J ┆ 0x560…580 e1 ff 13 4b f6 62 02 1d 71 f7 15 00 20 49 4d 50 4f 52 54 20 53 4b 41 4c 41 2c 20 54 49 4c 50 41 ┆ K b q IMPORT SKALA, TILPA┆ 0x580…5a0 53 f6 6c 02 29 94 15 03 f8 47 01 00 32 03 39 2c 52 32 00 39 34 16 31 17 36 00 31 13 36 00 39 47 ┆S l ) G 2 9,R2 94 1 6 1 6 9G┆ 0x5a0…5c0 01 00 2d 52 4b 4e 12 2d 52 2b f6 76 02 07 77 ff 15 f6 10 27 00 8d cc 00 03 03 03 03 03 03 04 03 ┆ -RKN -R+ v w ' ┆ 0x5c0…5e0 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 02 03 54 5b 4c 04 53 54 45 44 02 54 54 01 ┆ TÆL STED TT ┆ 0x5e0…600 54 07 43 4f 4d 50 55 54 45 06 53 43 41 4c 45 44 08 4e 30 5f 53 54 45 50 53 01 49 06 41 52 43 53 ┆T COMPUTE SCALED N0_STEPS I ARCS┆ 0x600…620 49 4e 06 58 5f 53 54 45 50 07 59 5f 50 48 41 53 45 05 59 5f 52 45 4c 0a 59 5f 52 45 4c 5f 46 52 ┆IN X_STEP Y_PHASE Y_REL Y_REL_FR┆ 0x620…640 45 51 04 46 52 45 51 03 52 45 4c 01 58 08 4e 4f 5f 53 54 45 50 53 0a 58 5f 52 45 4c 5f 46 52 45 ┆EQ FREQ REL X NO_STEPS X_REL_FRE┆ 0x640…660 51 09 58 5f 52 45 4c 46 52 45 51 02 50 49 05 4c 49 4e 49 45 08 4c 49 4e 49 45 52 30 32 07 58 5f ┆Q X_RELFREQ PI LINIE LINIER02 X_┆ 0x660…680 4c 49 4d 49 54 06 54 49 4c 50 41 53 06 4c 49 4e 49 45 52 0a 4b 41 52 41 4b 54 45 52 45 52 05 53 ┆LIMIT TILPAS LINIER KARAKTERER S┆ 0x680…6a0 4b 41 4c 41 5f 53 54 45 50 07 59 5f 50 48 41 53 45 05 59 5f 52 45 4c 0a 59 5f 52 45 4c 5f 46 52 ┆KALA_STEP Y_PHASE Y_REL Y_REL_FR┆ 0x6a0…6c0 45 51 04 46 52 45 51 03 52 45 4c 01 58 08 4e 4f 5f 53 54 45 50 53 0a 58 5f 52 45 4c 5f 46 52 45 ┆EQ FREQ REL X NO_STEPS X_REL_FRE┆ 0x6c0…6e0 51 09 58 5f 52 45 4c 46 52 45 51 02 50 49 05 4c 49 4e 49 45 08 4c 49 4e 49 45 52 30 32 07 58 5f ┆Q X_RELFREQ PI LINIE LINIER02 X_┆ 0x6e0…700 4c 49 4d 49 54 06 54 49 4c 50 41 53 06 4c 49 4e 49 45 52 0a 4b 41 52 41 4b 54 45 52 45 52 05 04 ┆LIMIT TILPAS LINIER KARAKTERER ┆