|
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: 2816 (0xb00)
Names: »DEMO3.CSB«
└─⟦0d02879d3⟧ Bits:30004605 COMPAS Pascal version 3.03
└─ ⟦this⟧ »DEMO3.CSB«
0x000…020 07 00 24 09 1a 80 00 04 00 0c 00 00 79 b5 06 47 52 41 46 49 4b 00 fe 14 00 01 c1 b5 06 57 49 4e ┆ $ y GRAFIK WIN┆ 0x020…040 44 4f 57 00 ff 03 ff 03 ff 03 ff 03 fe 0f 00 02 49 b6 07 53 45 54 4d 41 53 4b 00 ff 03 fe 10 00 ┆DOW I SETMASK ┆ 0x040…060 03 68 b6 08 50 45 4e 43 4f 4c 4f 52 00 ff 03 fe 0d 00 04 03 b7 05 47 50 41 52 4d 03 ff 01 fe 0e ┆ h PENCOLOR GPARM ┆ 0x060…080 00 05 c4 b7 04 44 52 41 57 00 ff 03 ff 03 fe 10 00 06 ca b7 06 44 52 41 57 54 4f 00 ff 03 ff 03 ┆ DRAW DRAWTO ┆ 0x080…0a0 fe 0e 00 07 12 b8 04 4d 4f 56 45 00 ff 03 ff 03 fe 10 00 08 69 b8 06 4d 4f 56 45 54 4f 00 ff 03 ┆ MOVE i MOVETO ┆ 0x0a0…0c0 ff 03 fe 08 00 09 04 b9 02 50 49 03 fe 0e 00 0a 18 b9 04 50 4c 4f 54 00 ff 03 ff 03 fe 10 00 0b ┆ PI PLOT ┆ 0x0c0…0e0 1f b9 06 55 4e 50 4c 4f 54 00 ff 03 ff 03 fe 0c 00 0c 6b b9 04 54 45 58 54 00 ff 04 fe 12 00 0d ┆ UNPLOT k TEXT ┆ 0x0e0…100 fe ba 06 43 49 52 43 4c 45 00 ff 03 ff 03 ff 03 fe 12 00 0e b5 bc 06 43 49 52 4b 45 4c 00 ff 03 ┆ CIRCLE CIRKEL ┆ 0x100…120 ff 03 ff 03 fe 01 00 c3 24 09 f6 0a 00 05 a6 f6 14 00 11 a2 f8 31 02 2b e7 f8 46 33 33 33 81 2b ┆ $ 1 + F333 +┆ 0x120…140 f6 1e 00 19 b0 f8 47 00 00 2d 47 7f 02 2d 47 00 00 2d 47 ef 00 2d 44 01 2b f6 28 00 09 b0 f8 44 ┆ G -G -G -G -D + ( D┆ 0x140…160 00 2b f6 32 00 1b b0 f8 47 02 00 60 2d 47 02 00 2d 47 05 00 60 2d 47 05 00 2d 44 01 2b f6 3c 00 ┆ + 2 G `-G -G `-G -D + < ┆ 0x160…180 0d b0 f8 47 ce 00 2d 44 02 2b f6 46 00 1f 8b d8 37 37 ff 03 e7 f8 47 00 00 2d 2b db f8 3d 09 2b ┆ G -D + F 77 G -+ = +┆ 0x180…1a0 dd f8 46 23 d7 0a 7b 2b d9 f6 50 00 17 b0 f8 32 03 39 46 4c cc cd 7d 52 01 32 03 39 02 44 08 2b ┆ F# æ+ P 2 9FL åR 2 9 D +┆ 0x1a0…1c0 f6 5a 00 25 b0 f8 32 02 39 32 03 39 46 19 99 9a 7f 53 01 4e 32 02 39 32 03 39 46 4c cc cd 7d 52 ┆ Z % 2 92 9F S N2 92 9FL åR┆ 0x1c0…1e0 02 4e 44 06 2b f6 64 00 0a 8c fc db db ff 03 f6 6e 00 1b b0 f8 47 03 00 60 2d 47 03 00 2d 47 03 ┆ ND + d n G `-G -G ┆ 0x1e0…200 00 60 2d 47 03 00 2d 44 01 2b f6 78 00 11 b0 f8 47 01 00 2d 47 00 00 2d 44 08 2b f6 82 00 1e a2 ┆ `-G -D + x G -G -D + ┆ 0x200…220 f8 31 04 2b e7 f8 47 04 00 47 06 00 47 65 00 3b 01 3d 04 2c 4f 4b 2c 4f 2b f6 8c 00 12 b0 f8 47 ┆ 1 + G G Ge ; = ,OK,O+ G┆ 0x220…240 01 00 60 2d 47 00 00 2d 44 08 2b f6 96 00 1e a2 f8 31 05 2b e7 f8 47 02 00 47 06 00 47 65 00 3b ┆ `-G -D + 1 + G G Ge ;┆ 0x240…260 01 3d 04 2c 4f 4b 2c 4f 2b f6 a0 00 0d b0 f8 47 ff 00 2d 44 02 2b f6 aa 00 0d b0 f8 47 00 00 2d ┆ = ,OK,O+ G -D + G -┆ 0x260…280 44 03 2b f6 b4 00 21 8b fc db db ff 03 e7 f8 32 04 39 47 01 00 2d 53 2b dc f8 32 05 39 47 01 00 ┆D + ! 2 9G -S+ 2 9G ┆ 0x280…2a0 2d 52 2b d9 f6 be 00 25 a2 f8 31 06 2b e7 f8 34 07 47 03 00 60 47 06 00 32 03 39 47 7f 02 2d 4f ┆-R+ % 1 + 4 G `G 2 9G -O┆ 0x2a0…2c0 4b 2c 4e 2c 52 36 03 39 2b f6 c8 00 1c 99 0e db f8 32 06 39 47 00 00 2d 56 2b d8 a2 f8 31 06 2b ┆K,N,R6 9+ 2 9G -V+ 1 +┆ 0x2c0…2e0 e8 f8 3d 09 2b f6 d2 00 10 a2 f8 31 08 2b e7 f8 32 06 39 01 2b f6 dc 00 10 b0 f8 32 08 39 32 06 ┆ = + 1 + 2 9 + 2 92 ┆ 0x2e0…300 39 02 44 08 2b f6 e6 00 11 b0 f8 32 08 39 46 4c cc cd 7f 44 06 2b f6 f0 00 0a 8c fc db db ff 03 ┆9 D + 2 9FL D + ┆ 0x300…320 f6 fa 00 0d b0 f8 47 55 00 2d 44 02 2b f6 04 01 0d b0 f8 47 01 00 2d 44 03 2b f6 0e 01 21 8b fc ┆ GU -D + G -D + ! ┆ 0x320…340 db db ff 03 e7 f8 32 04 39 47 01 00 2d 53 2b dc f8 32 05 39 47 01 00 2d 52 2b d9 f6 18 01 25 a2 ┆ 2 9G -S+ 2 9G -R+ % ┆ 0x340…360 f8 31 06 2b e7 f8 34 07 47 03 00 60 47 06 00 32 03 39 47 7f 02 2d 4f 4b 2c 4e 2c 52 36 03 39 2b ┆ 1 + 4 G `G 2 9G -OK,N,R6 9+┆ 0x360…380 f6 22 01 1c 99 0e db f8 32 06 39 47 00 00 2d 56 2b d8 a2 f8 31 06 2b e8 f8 3d 09 2b f6 2c 01 12 ┆ " 2 9G -V+ 1 + = + , ┆ 0x380…3a0 b0 f8 32 06 39 01 32 06 39 02 4c 44 08 2b f6 36 01 11 b0 f8 32 06 39 01 32 06 39 02 44 06 2b f6 ┆ 2 9 2 9 LD + 6 2 9 2 9 D + ┆ 0x3a0…3c0 40 01 0a 8c fc db db ff 03 f6 4a 01 0a 92 f8 35 09 39 2b f6 54 01 0d b0 f8 47 ce 00 2d 44 02 2b ┆@ J 5 9+ T G -D +┆ 0x3c0…3e0 f6 5e 01 1b b0 f8 47 02 00 60 2d 47 02 00 2d 47 05 00 60 2d 47 05 00 2d 44 01 2b f6 68 01 22 8b ┆ ^ G `-G -G `-G -D + h " ┆ 0x3e0…400 fc db db ff 03 e7 f8 3d 09 2b db f8 47 02 00 3d 09 2c 4e 2b dd f8 46 23 d7 0a 7b 2b d9 f6 72 01 ┆ = + G = ,N+ F# æ+ r ┆ 0x400…420 17 b0 f8 32 03 39 46 4c cc cd 7d 52 01 32 03 39 02 44 08 2b f6 7c 01 25 b0 f8 32 02 39 32 03 39 ┆ 2 9FL åR 2 9 D + ø % 2 92 9┆ 0x420…440 46 19 99 9a 7f 53 01 4e 32 02 39 32 03 39 46 4c cc cd 7d 52 02 4e 44 06 2b f6 86 01 0a 8c fc db ┆F S N2 92 9FL åR ND + ┆ 0x440…460 db ff 03 f6 90 01 19 b0 f8 47 00 00 2d 47 7f 02 2d 47 00 00 2d 47 ef 00 2d 44 01 2b f6 9a 01 19 ┆ G -G -G -G -D + ┆ 0x460…480 8b d8 37 37 ff 0a e7 f8 47 01 00 2d 2b db f8 47 f4 01 2d 2b d9 f6 a4 01 19 b0 f8 47 00 00 47 7f ┆ 77 G -+ G -+ G G ┆ 0x480…4a0 02 1e 2d 47 00 00 47 ef 00 1e 2d 44 0a 2b f6 ae 01 0a 8c e2 db db ff 0a f6 b8 01 1b b0 f8 47 03 ┆ -G G -D + G ┆ 0x4a0…4c0 00 60 2d 47 03 00 2d 47 03 00 60 2d 47 03 00 2d 44 01 2b f6 c2 01 11 76 ed db ed db ed db ff 07 ┆ `-G -G `-G -D + v ┆ 0x4c0…4e0 4a ff 0b 4b f6 cc 01 1c 94 00 03 f8 47 01 00 32 0b 39 47 02 00 2d 4d 2c 53 06 32 0b 39 4f 00 2b ┆J K G 2 9G -M,S 2 9O +┆ 0x4e0…500 f6 d6 01 07 77 ff 07 f6 e0 01 08 71 f7 00 00 f6 ea 01 14 74 dc 37 dc 37 dc 37 ff 0c 4a ff 0b e1 ┆ w q t 7 7 7 J ┆ 0x500…520 ff 0d 4b f6 f4 01 4b a4 f8 45 02 00 1b 3a 2b f5 04 e4 f8 32 0b 39 47 00 01 2d 50 2e 15 2b f5 04 ┆ K K E :+ 2 9G -P. + ┆ 0x520…540 e4 f8 32 0b 39 47 00 01 2d 51 2e 15 2b f5 04 e4 f8 32 0d 39 47 00 01 2d 50 2e 15 2b f5 04 e4 f8 ┆ 2 9G -Q. + 2 9G -P. + ┆ 0x540…560 32 0d 39 47 00 01 2d 51 2e 15 2b f5 04 e4 f6 fe 01 07 75 ff 0c f6 08 02 08 71 f7 00 00 f6 12 02 ┆2 9G -Q. + u q ┆ 0x560…580 0d 74 e4 db e4 db e4 db ff 09 f6 1c 02 0d 73 ff 0e da f8 47 0f 00 2b f6 26 02 1a a2 f8 31 0e 2b ┆ t s G + & 1 +┆ 0x580…5a0 e7 f8 45 0b 00 53 20 41 20 54 20 55 20 52 20 4e 2b f6 30 02 10 a2 f8 31 0f 2b e7 f8 47 94 00 2d ┆ E S A T U R N+ 0 1 + G -┆ 0x5a0…5c0 2b f6 3a 02 20 8b fc db db ff 03 e7 f8 47 c8 00 2d 2b db f8 47 18 01 2d 2b dd f8 47 08 00 2d 2b ┆+ : G -+ G -+ G -+┆ 0x5c0…5e0 d9 f6 44 02 18 92 f8 35 0c 32 03 39 47 18 00 2d 52 36 03 31 0f 36 00 39 2b f6 4e 02 3b a2 f8 31 ┆ D 5 2 9G -R6 1 6 9+ N ; 1┆ 0x5e0…600 0f 2b e7 f8 32 0f 39 47 02 00 2d 52 32 03 39 47 e8 00 2d 58 4b 2d 53 46 00 00 00 80 32 03 39 47 ┆ + 2 9G -R2 9G -XK-SF 2 9G┆ 0x600…620 f8 00 2d 58 4b 2d 4e 53 32 03 39 47 d0 00 2d 55 4b 2d 52 2b f6 58 02 22 a4 f8 34 0e 32 03 39 47 ┆ -XK-NS2 9G -UK-R+ X " 4 2 9G┆ 0x620…640 c8 00 2d 53 4b 47 08 00 2d 4f 47 01 00 2d 52 36 03 39 2b f5 04 e4 f6 62 02 0a 8c fc db db ff 03 ┆ -SKG -OG -R6 9+ b ┆ 0x640…660 f6 6c 02 07 75 ff 09 f6 76 02 19 b0 f8 47 00 00 2d 47 7f 02 2d 47 00 00 2d 47 ef 00 2d 44 01 2b ┆ l u v G -G -G -G -D +┆ 0x660…680 f6 80 02 0d 73 ff 10 da f8 47 0e 00 2b f6 8a 02 1d a2 f8 31 10 2b e7 f8 45 0e 00 53 74 65 72 6e ┆ s G + 1 + E Stern┆ 0x680…6a0 20 53 6f 66 74 77 61 72 65 2b f6 94 02 0e a4 f8 45 02 00 1b 49 2b f5 04 f6 9e 02 20 8b fc db db ┆ Software+ E I+ ┆ 0x6a0…6c0 ff 03 e7 f8 47 00 01 2d 2b db f8 47 68 01 2d 2b dd f8 47 08 00 2d 2b d9 f6 a8 02 13 92 f8 35 0c ┆ G -+ Gh -+ G -+ 5 ┆ 0x6c0…6e0 31 03 36 00 47 28 00 36 02 39 2b f6 b2 02 1d a4 f8 34 10 32 03 39 47 f8 00 2d 53 4b 47 08 00 2d ┆1 6 G( 6 9+ 4 2 9G -SKG -┆ 0x6e0…700 4f 36 03 39 2b f5 04 e4 f6 bc 02 0a 8c fc db db ff 03 f6 c6 02 0e a4 f8 45 02 00 1b 69 2b f5 04 ┆O6 9+ E i+ ┆ 0x700…720 f6 d0 02 2c a2 f8 31 11 2b e7 f8 47 01 00 2b e3 f8 31 12 2b e7 f8 47 16 00 2b f7 0f 00 2d 28 31 ┆ , 1 + G + 1 + G + -(1┆ 0x720…740 30 2a 66 61 6b 74 6f 72 5f 79 23 29 f6 da 02 0d 73 ff 13 da f8 47 c8 00 2b f6 e4 02 25 a2 f8 31 ┆0*faktor_y#) s G + % 1┆ 0x740…760 14 2b e7 f8 47 00 00 2b e3 f8 31 15 2b e7 f8 47 08 00 2b e3 f8 31 16 2b e7 f8 47 02 00 2b f6 ee ┆ + G + 1 + G + 1 + G + ┆ 0x760…780 02 05 7c f6 f8 02 32 a4 f8 47 1b 00 15 2b f5 04 e2 f8 45 01 00 7a 2b f5 04 e2 f8 32 15 39 15 2b ┆ ø 2 G + E z+ 2 9 +┆ 0x780…7a0 f5 04 e2 f8 32 16 39 15 2b f5 04 e2 f8 32 14 39 15 2b f5 04 e4 f6 02 03 09 8e f8 31 13 2b f6 0c ┆ 2 9 + 2 9 + 1 + ┆ 0x7a0…7c0 03 17 8b d8 37 37 ff 17 e7 f8 47 01 00 2b db f8 31 13 0b 2b d9 f6 16 03 14 a2 f8 31 18 2b e7 f8 ┆ 77 G + 1 + 1 + ┆ 0x7c0…7e0 34 13 31 17 36 00 39 0c 2b f6 20 03 13 98 a6 db f8 32 18 39 45 01 00 20 0c 6a 2b d8 f6 2a 03 38 ┆4 1 6 9 + 2 9E j+ * 8┆ 0x7e0…800 a4 f8 47 1b 00 15 2b f5 04 e2 f8 45 01 00 5a 2b f5 04 e2 f8 32 18 39 15 2b f5 04 e2 f8 34 19 31 ┆ G + E Z+ 2 9 + 4 1┆ 0x800…820 11 36 00 39 2b f5 04 e2 f8 34 19 31 12 36 00 39 2b f5 04 e4 f6 34 03 05 7b f6 3e 03 2b a2 f8 31 ┆ 6 9+ 4 1 6 9+ 4 æ > + 1┆ 0x820…840 11 2b e8 f8 47 0a 00 32 15 39 5f 4b 47 04 00 64 47 02 00 34 13 47 01 00 36 02 39 45 01 00 47 6f ┆ + G 2 9_KG dG 4 G 6 9E Go┆ 0x840…860 4b 5f 63 2b f6 48 03 1a 98 cc db f8 32 11 39 47 0a 00 32 15 39 5f 4b 63 47 7f 02 68 2b d8 f6 52 ┆K_c+ H 2 9G 2 9_KcG h+ R┆ 0x860…880 03 1f a2 f8 31 11 2b e7 f8 47 00 00 2b e3 f8 31 12 2b e9 f8 47 0b 00 32 16 39 5f 4b 2b f6 5c 03 ┆ 1 + G + 1 + G 2 9_K+ Ø ┆ 0x880…8a0 05 7b f6 66 03 0a 8c a8 db db ff 17 f6 70 03 2c a2 f8 31 11 2b e7 f8 47 00 00 2b e3 f8 31 12 2b ┆ æ f p , 1 + G + 1 +┆ 0x8a0…8c0 e7 f8 47 ef 00 2b f7 0f 00 2d 28 31 30 2a 66 61 6b 74 6f 72 5f 79 23 29 f6 7a 03 25 a2 f8 31 14 ┆ G + -(10*faktor_y#) z % 1 ┆ 0x8c0…8e0 2b e7 f8 47 00 00 2b e3 f8 31 15 2b e7 f8 47 02 00 2b e3 f8 31 16 2b e7 f8 47 01 00 2b f6 84 03 ┆+ G + 1 + G + 1 + G + ┆ 0x8e0…900 0a 7d 5f 2f f8 09 2b f6 8e 03 10 a7 f8 47 01 00 2b e1 f8 47 14 00 2b f6 98 03 11 76 a0 db a0 db ┆ å_/ + G + G + v ┆ 0x900…920 a0 db ff 19 4a ff 11 4b f6 a2 03 1a 94 15 04 f8 32 11 39 47 00 01 61 15 32 11 39 47 00 01 62 15 ┆ J K 2 9G a 2 9G b ┆ 0x920…940 5e 2b f6 ac 03 07 77 ff 19 f6 b6 03 12 72 02 46 45 08 00 47 52 41 50 48 49 43 53 f6 c0 03 2f 72 ┆^+ w r FE GRAPHICS /r┆ 0x940…960 02 46 45 25 00 43 72 65 61 74 65 64 20 62 79 20 74 68 65 20 6e 65 77 20 43 4f 4d 41 4c 2d 38 30 ┆ FE% Created by the new COMAL-80┆ 0x960…980 20 65 78 74 65 6e 73 69 6f 6e f6 ca 03 20 8b fc db db ff 03 e7 f8 47 26 00 2d 2b dc f8 47 14 00 ┆ extension G& -+ G ┆ 0x980…9a0 2d 2b dd f8 47 02 00 2d 2b d9 f6 d4 03 0d b0 f8 47 55 00 2d 44 02 2b f6 de 03 24 b0 f8 47 fa 00 ┆-+ G -+ GU -D + $ G ┆ 0x9a0…9c0 47 0d 00 47 27 00 32 03 39 2c 53 4b 2c 4e 2c 53 32 03 39 47 02 00 2d 53 44 08 2b f6 e8 03 11 b0 ┆G G' 2 9,SK,N,S2 9G -SD + ┆ 0x9c0…9e0 f8 47 00 00 2d 47 02 00 2d 44 05 2b f6 f2 03 1f b0 f8 47 76 01 47 0d 00 47 27 00 32 03 39 2c 53 ┆ G -G -D + Gv G G' 2 9,S┆ 0x9e0…a00 4b 2c 4e 2c 52 32 03 39 44 06 2b f6 fc 03 0d b0 f8 47 ff 00 2d 44 02 2b f6 06 04 12 b0 f8 47 00 ┆K,N,R2 9D + G -D + G ┆ 0xa00…a20 00 2d 47 02 00 60 2d 44 05 2b f6 10 04 0a 8c fc db db ff 03 f6 1a 04 10 a7 f8 47 01 00 2b e1 f8 ┆ -G `-D + G + ┆ 0xa20…a40 47 02 00 2b f6 24 04 05 8d f6 10 27 00 8d 80 00 03 03 03 03 03 03 03 03 03 03 03 03 03 03 04 03 ┆G + $ ' ┆ 0xa40…a60 04 02 02 04 02 02 02 02 02 04 05 4f 4d 53 5b 54 01 41 01 49 08 46 41 4b 54 4f 52 5f 59 08 46 41 ┆ OMSÆT A I FAKTOR_Y FA┆ 0xa60…a80 4b 54 4f 52 5f 58 07 52 45 54 4e 49 4e 47 05 4c 49 4e 49 45 01 59 01 58 02 4e 4e 01 4c 02 53 41 ┆KTOR_X RETNING LINIE Y X NN L SA┆ 0xa80…aa0 03 4c 50 58 05 50 58 43 55 52 01 58 01 4e 06 53 41 54 55 52 4e 01 43 06 41 52 43 43 4f 53 01 4a ┆ LPX PXCUR X N SATURN C ARCCOS J┆ 0xaa0…ac0 02 45 58 02 42 58 01 49 01 46 02 59 59 02 58 58 03 03 03 03 03 03 03 03 03 03 03 03 03 03 04 03 ┆ EX BX I F YY XX ┆ 0xac0…ae0 04 02 02 04 02 02 02 02 02 04 05 4f 4d 53 5b 54 01 41 01 49 08 46 41 4b 54 4f 52 5f 59 08 46 41 ┆ OMSÆT A I FAKTOR_Y FA┆ 0xae0…b00 4b 54 4f 52 5f 58 07 52 45 54 4e 49 4e 47 05 4c 49 4e 49 45 01 59 01 58 02 4e 4e 01 4c 02 53 30 ┆KTOR_X RETNING LINIE Y X NN L S0┆