|
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: 4224 (0x1080)
Names: »START.CML«
└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
└─ ⟦this⟧ »START.CML«
0x0000…0020 30 30 31 30 20 2f 2f 20 53 54 41 52 54 0d 30 30 32 30 20 2f 2f 20 22 20 4d 61 74 65 6d 61 74 69 ┆0010 // START 0020 // " Matemati┆
0x0020…0040 6b 20 6d 65 64 20 67 72 61 66 65 72 20 22 0d 30 30 33 30 20 2f 2f 20 4b 2e 20 45 2e 20 43 68 72 ┆k med grafer " 0030 // K. E. Chr┆
0x0040…0060 69 73 74 65 6e 73 65 6e 2c 20 37 34 30 30 20 48 65 72 6e 69 6e 67 0d 30 30 34 30 20 2f 2f 20 44 ┆istensen, 7400 Herning 0040 // D┆
0x0060…0080 65 63 65 6d 62 65 72 20 31 39 38 36 2e 0d 30 30 35 30 20 44 49 4d 20 53 54 52 45 4e 47 24 20 4f ┆ecember 1986. 0050 DIM STRENG$ O┆
0x0080…00a0 46 20 36 2c 20 56 24 20 4f 46 20 31 0d 30 30 36 30 20 44 49 4d 20 54 31 24 20 4f 46 20 34 32 2c ┆F 6, V$ OF 1 0060 DIM T1$ OF 42,┆
0x00a0…00c0 20 54 32 24 20 4f 46 20 34 32 2c 20 54 33 24 20 4f 46 20 34 32 2c 20 54 34 24 20 4f 46 20 34 32 ┆ T2$ OF 42, T3$ OF 42, T4$ OF 42┆
0x00c0…00e0 2c 20 54 35 24 20 4f 46 20 34 32 0d 30 30 37 30 20 44 49 4d 20 54 36 24 20 4f 46 20 34 32 2c 20 ┆, T5$ OF 42 0070 DIM T6$ OF 42, ┆
0x00e0…0100 54 37 24 20 4f 46 20 34 32 2c 20 54 38 24 20 4f 46 20 34 32 2c 20 54 39 24 20 4f 46 20 34 32 2c ┆T7$ OF 42, T8$ OF 42, T9$ OF 42,┆
0x0100…0120 20 54 31 30 24 20 4f 46 20 34 32 2c 20 54 31 31 24 20 4f 46 20 34 32 0d 30 30 38 30 20 54 31 24 ┆ T10$ OF 42, T11$ OF 42 0080 T1$┆
0x0120…0140 3a 3d 22 22 32 37 22 47 f0 f8 ec e6 e3 e1 e0 e0 e0 e0 22 30 22 22 30 22 22 0d 30 30 39 30 20 54 ┆:=""27"G "0""0"" 0090 T┆
0x0140…0160 31 24 3a 3d 54 31 24 2b 22 22 32 37 22 47 22 37 22 22 31 35 22 22 32 37 22 33 63 c3 83 22 33 22 ┆1$:=T1$+""27"G"7""15""27"3c "3"┆
0x0160…0180 22 33 22 22 33 22 22 30 22 22 30 22 22 0d 30 31 30 30 20 54 31 24 3a 3d 54 31 24 2b 22 22 32 37 ┆"3""3""0""0"" 0100 T1$:=T1$+""27┆
0x0180…01a0 22 47 80 80 80 80 80 81 81 83 87 8e 22 30 22 22 30 22 22 0d 30 31 31 30 20 2f 2f 0d 30 31 32 30 ┆"G "0""0"" 0110 // 0120┆
0x01a0…01c0 20 54 32 24 3a 3d 22 22 32 37 22 47 22 32 38 22 3e 36 63 c1 80 ff ff 22 30 22 22 30 22 22 30 22 ┆ T2$:=""27"G"28">6c "0""0""0"┆
0x01c0…01e0 22 30 22 22 0d 30 31 33 30 20 54 32 24 3a 3d 54 32 24 2b 22 22 32 37 22 47 22 33 22 22 33 22 22 ┆"0"" 0130 T2$:=T2$+""27"G"3""3""┆
0x01e0…0200 30 22 22 30 22 80 c0 c0 e0 70 38 22 30 22 22 30 22 22 0d 30 31 34 30 20 54 32 24 3a 3d 54 32 24 ┆0""0" p8"0""0"" 0140 T2$:=T2$┆
0x0200…0220 2b 22 22 32 37 22 47 ff ff 22 32 38 22 22 32 38 22 22 32 38 22 22 32 38 22 22 32 38 22 22 32 38 ┆+""27"G "28""28""28""28""28""28┆
0x0220…0240 22 22 32 38 22 22 32 38 22 22 30 22 22 30 22 22 0d 30 31 35 30 20 2f 2f 0d 30 31 36 30 20 54 33 ┆""28""28""0""0"" 0150 // 0160 T3┆
0x0240…0260 24 3a 3d 22 22 32 37 22 47 e1 e1 22 31 22 22 31 22 22 31 22 22 31 22 22 31 22 22 31 22 22 31 22 ┆$:=""27"G "1""1""1""1""1""1""1"┆
0x0260…0280 22 31 22 22 30 22 22 30 22 22 0d 30 31 37 30 20 54 33 24 3a 3d 54 33 24 2b 22 22 32 37 22 47 ff ┆"1""0""0"" 0170 T3$:=T3$+""27"G ┆
0x0280…02a0 ff c0 c0 ff ff c0 c0 ff ff 22 30 22 22 30 22 22 0d 30 31 38 30 20 54 33 24 3a 3d 54 33 24 2b 22 ┆ "0""0"" 0180 T3$:=T3$+"┆
0x02a0…02c0 22 32 37 22 47 f0 f0 22 30 22 22 30 22 80 80 22 30 22 22 30 22 f0 f0 22 30 22 22 30 22 22 0d 30 ┆"27"G "0""0" "0""0" "0""0"" 0┆
0x02c0…02e0 31 39 30 20 2f 2f 0d 30 32 30 30 20 54 34 24 3a 3d 22 22 32 37 22 47 e3 e3 22 33 22 22 33 22 22 ┆190 // 0200 T4$:=""27"G "3""3""┆
0x02e0…0300 33 22 22 33 22 22 33 22 22 33 22 22 33 22 22 33 22 22 30 22 22 30 22 22 0d 30 32 31 30 20 54 34 ┆3""3""3""3""3""3""0""0"" 0210 T4┆
0x0300…0320 24 3a 3d 54 34 24 2b 22 22 32 37 22 47 87 87 87 87 87 87 87 87 87 87 22 30 22 22 30 22 22 0d 30 ┆$:=T4$+""27"G "0""0"" 0┆
0x0320…0340 32 32 30 20 54 34 24 3a 3d 54 34 24 2b 22 22 32 37 22 47 22 30 22 22 33 22 22 37 22 22 32 38 22 ┆220 T4$:=T4$+""27"G"0""3""7""28"┆
0x0340…0360 38 f8 cc 22 37 22 22 33 22 22 30 22 22 30 22 22 30 22 22 0d 30 32 33 30 20 2f 2f 0d 30 32 34 30 ┆8 "7""3""0""0""0"" 0230 // 0240┆
0x0360…0380 20 54 35 24 3a 3d 22 22 32 37 22 47 c0 c0 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 ┆ T5$:=""27"G "0""0""0""0""0""0"┆
0x0380…03a0 c0 c0 22 30 22 22 30 22 22 0d 30 32 35 30 20 54 35 24 3a 3d 54 35 24 2b 22 22 32 37 22 47 22 30 ┆ "0""0"" 0250 T5$:=T5$+""27"G"0┆
0x03a0…03c0 22 22 30 22 22 30 22 22 31 32 22 22 31 33 22 22 31 35 22 22 31 32 22 22 31 32 22 22 31 32 22 22 ┆""0""0""12""13""15""12""12""12""┆
0x03c0…03e0 31 32 22 22 30 22 22 30 22 22 0d 30 32 36 30 20 54 35 24 3a 3d 54 35 24 2b 22 22 32 37 22 47 22 ┆12""0""0"" 0260 T5$:=T5$+""27"G"┆
0x03e0…0400 30 22 22 30 22 22 30 22 63 ef 7b 63 63 63 63 22 30 22 22 30 22 22 0d 30 32 37 30 20 2f 2f 0d 30 ┆0""0""0"c æcccc"0""0"" 0270 // 0┆
0x0400…0420 32 38 30 20 54 36 24 3a 3d 22 22 32 37 22 47 22 30 22 22 30 22 22 30 22 22 31 35 22 22 32 34 22 ┆280 T6$:=""27"G"0""0""0""15""24"┆
0x0420…0440 22 32 34 22 22 33 31 22 22 32 34 22 22 32 34 22 22 31 35 22 22 30 22 22 30 22 22 0d 30 32 39 30 ┆"24""31""24""24""15""0""0"" 0290┆
0x0440…0460 20 54 36 24 3a 3d 54 36 24 2b 22 22 32 37 22 47 22 30 22 22 30 22 22 30 22 e1 63 63 c3 22 33 22 ┆ T6$:=T6$+""27"G"0""0""0" cc "3"┆
0x0460…0480 23 e1 22 30 22 22 30 22 22 0d 30 33 30 30 20 54 36 24 3a 3d 54 36 24 2b 22 22 32 37 22 47 22 31 ┆# "0""0"" 0300 T6$:=T6$+""27"G"1┆
0x0480…04a0 32 22 22 31 32 22 22 31 32 22 fc 9c 22 31 32 22 22 31 32 22 22 31 32 22 9c fc 22 30 22 22 30 22 ┆2""12""12" "12""12""12" "0""0"┆
0x04a0…04c0 22 0d 30 33 31 30 20 2f 2f 0d 30 33 32 30 20 54 37 24 3a 3d 22 22 32 37 22 47 22 30 22 22 30 22 ┆" 0310 // 0320 T7$:=""27"G"0""0"┆
0x04c0…04e0 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 0d ┆"0""0""0""0""0""0""0""0""0""0"" ┆
0x04e0…0500 30 33 33 30 20 54 37 24 3a 3d 54 37 24 2b 22 22 32 37 22 47 3f 7f f0 e0 e0 e0 e0 f0 7f 3f 22 30 ┆0330 T7$:=T7$+""27"G? ?"0┆
0x0500…0520 22 22 30 22 22 0d 30 33 34 30 20 54 37 24 3a 3d 54 37 24 2b 22 22 32 37 22 47 f0 f8 38 22 30 22 ┆""0"" 0340 T7$:=T7$+""27"G 8"0"┆
0x0520…0540 22 30 22 f8 f8 38 f0 e0 22 30 22 22 30 22 22 0d 30 33 35 30 20 2f 2f 0d 30 33 36 30 20 54 38 24 ┆"0" 8 "0""0"" 0350 // 0360 T8$┆
0x0540…0560 3a 3d 22 22 32 37 22 47 7f 7f 70 70 7f 7f 7f 73 70 70 22 30 22 22 30 22 22 0d 30 33 37 30 20 54 ┆:=""27"G pp spp"0""0"" 0370 T┆
0x0560…0580 38 24 3a 3d 54 38 24 2b 22 22 32 37 22 47 f0 f8 22 32 38 22 22 32 38 22 f8 f0 80 c0 f0 3c 22 30 ┆8$:=T8$+""27"G "28""28" <"0┆
0x0580…05a0 22 22 30 22 22 0d 30 33 38 30 20 54 38 24 3a 3d 54 38 24 2b 22 22 32 37 22 47 22 30 22 22 31 22 ┆""0"" 0380 T8$:=T8$+""27"G"0""1"┆
0x05a0…05c0 22 31 22 22 33 22 22 36 22 22 31 32 22 22 31 35 22 22 33 31 22 38 70 22 30 22 22 30 22 22 0d 30 ┆"1""3""6""12""15""31"8p"0""0"" 0┆
0x05c0…05e0 33 39 30 20 2f 2f 0d 30 34 30 30 20 54 39 24 3a 3d 22 22 32 37 22 47 e0 f0 b0 22 32 34 22 22 31 ┆390 // 0400 T9$:=""27"G "24""1┆
0x05e0…0600 32 22 22 36 22 fe ff 22 33 22 22 31 22 22 30 22 22 30 22 22 0d 30 34 31 30 20 54 39 24 3a 3d 54 ┆2""6" "3""1""0""0"" 0410 T9$:=T┆
0x0600…0620 39 24 2b 22 22 32 37 22 47 22 37 22 22 37 22 22 37 22 22 37 22 22 37 22 22 37 22 22 37 22 22 37 ┆9$+""27"G"7""7""7""7""7""7""7""7┆
0x0620…0640 22 87 c7 22 30 22 22 30 22 22 0d 30 34 32 30 20 54 39 24 3a 3d 54 39 24 2b 22 22 32 37 22 47 ff ┆" "0""0"" 0420 T9$:=T9$+""27"G ┆
0x0640…0660 ff 22 30 22 22 30 22 fe fe 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 0d 30 34 33 ┆ "0""0" "0""0""0""0""0""0"" 043┆
0x0660…0680 30 20 2f 2f 0d 30 34 34 30 20 54 31 30 24 3a 3d 22 22 32 37 22 47 c7 c7 22 37 22 22 37 22 22 37 ┆0 // 0440 T10$:=""27"G "7""7""7┆
0x0680…06a0 22 22 37 22 22 37 22 22 37 22 22 37 22 22 37 22 22 30 22 22 30 22 22 0d 30 34 35 30 20 54 31 30 ┆""7""7""7""7""7""0""0"" 0450 T10┆
0x06a0…06c0 24 3a 3d 54 31 30 24 2b 22 22 32 37 22 47 ff ff 22 30 22 22 30 22 fe fe 22 30 22 22 30 22 ff ff ┆$:=T10$+""27"G "0""0" "0""0" ┆
0x06c0…06e0 22 30 22 22 30 22 22 0d 30 34 36 30 20 54 31 30 24 3a 3d 54 31 30 24 2b 22 22 32 37 22 47 c3 c3 ┆"0""0"" 0460 T10$:=T10$+""27"G ┆
0x06e0…0700 22 33 22 22 33 22 22 33 22 22 33 22 22 33 22 22 33 22 c3 c3 22 30 22 22 30 22 22 0d 30 34 37 30 ┆"3""3""3""3""3""3" "0""0"" 0470┆
0x0700…0720 20 2f 2f 0d 30 34 38 30 20 54 31 31 24 3a 3d 22 22 32 37 22 47 ff ff 80 80 ff ff f8 9e 87 81 22 ┆ // 0480 T11$:=""27"G "┆
0x0720…0740 30 22 22 30 22 22 0d 30 34 39 30 20 54 31 31 24 3a 3d 54 31 31 24 2b 22 22 32 37 22 47 80 c0 e0 ┆0""0"" 0490 T11$:=T11$+""27"G ┆
0x0740…0760 e0 c0 80 22 30 22 22 30 22 80 e0 22 30 22 22 30 22 22 0d 30 35 30 30 20 54 31 31 24 3a 3d 54 31 ┆ "0""0" "0""0"" 0500 T11$:=T1┆
0x0760…0780 31 24 2b 22 22 32 37 22 47 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 22 22 30 ┆1$+""27"G"0""0""0""0""0""0""0""0┆
0x0780…07a0 22 22 30 22 22 30 22 22 30 22 22 30 22 22 0d 30 35 31 30 20 43 4c 45 41 52 20 0d 30 35 32 30 20 ┆""0""0""0""0"" 0510 CLEAR 0520 ┆
0x07a0…07c0 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 30 35 33 30 20 50 4f 4b 45 20 32 36 37 35 38 2c 20 31 ┆PRINT ""27"c" 0530 POKE 26758, 1┆
0x07c0…07e0 36 30 0d 30 35 34 30 20 43 55 52 53 4f 52 20 32 30 2c 20 34 0d 30 35 35 30 20 50 52 49 4e 54 20 ┆60 0540 CURSOR 20, 4 0550 PRINT ┆
0x07e0…0800 54 31 24 2c 54 32 24 2c 54 33 24 2c 54 31 24 2c 54 32 24 2c 54 34 24 2c 54 35 24 2c 54 36 24 2c ┆T1$,T2$,T3$,T1$,T2$,T4$,T5$,T6$,┆
0x0800…0820 54 37 24 2c 54 38 24 2c 54 39 24 2c 54 31 30 24 2c 54 31 31 24 0d 30 35 36 30 20 50 4f 4b 45 20 ┆T7$,T8$,T9$,T10$,T11$ 0560 POKE ┆
0x0820…0840 32 36 37 35 38 2c 20 38 30 0d 30 35 37 30 20 43 55 52 53 4f 52 20 33 30 2c 20 38 0d 30 35 38 30 ┆26758, 80 0570 CURSOR 30, 8 0580┆
0x0840…0860 20 50 52 49 4e 54 20 22 22 32 37 22 49 20 48 20 4f 20 56 20 45 20 44 20 4d 20 45 20 4e 20 55 20 ┆ PRINT ""27"I H O V E D M E N U ┆
0x0860…0880 22 32 37 22 69 22 0d 30 35 39 30 20 43 55 52 53 4f 52 20 31 35 2c 20 31 30 0d 30 36 30 30 20 50 ┆"27"i" 0590 CURSOR 15, 10 0600 P┆
0x0880…08a0 52 49 4e 54 20 54 41 42 28 31 35 29 2c 22 22 32 37 22 55 50 72 6f 67 72 61 6d 20 41 3a 22 32 37 ┆RINT TAB(15),""27"UProgram A:"27┆
0x08a0…08c0 22 75 22 2c 0d 30 36 31 30 20 50 52 49 4e 54 20 54 41 42 28 33 30 29 2c 22 31 2e 20 67 72 61 64 ┆"u", 0610 PRINT TAB(30),"1. grad┆
0x08c0…08e0 73 20 66 75 6e 6b 74 69 6f 6e 65 72 22 0d 30 36 32 30 20 50 52 49 4e 54 20 0d 30 36 33 30 20 50 ┆s funktioner" 0620 PRINT 0630 P┆
0x08e0…0900 52 49 4e 54 20 54 41 42 28 31 35 29 2c 22 22 32 37 22 55 50 72 6f 67 72 61 6d 20 42 3a 22 32 37 ┆RINT TAB(15),""27"UProgram B:"27┆
0x0900…0920 22 75 22 2c 0d 30 36 34 30 20 50 52 49 4e 54 20 54 41 42 28 33 30 29 2c 22 32 2e 20 67 72 61 64 ┆"u", 0640 PRINT TAB(30),"2. grad┆
0x0920…0940 73 20 66 75 6e 6b 74 69 6f 6e 65 72 22 32 37 22 75 22 0d 30 36 35 30 20 50 52 49 4e 54 20 0d 30 ┆s funktioner"27"u" 0650 PRINT 0┆
0x0940…0960 36 36 30 20 50 52 49 4e 54 20 54 41 42 28 31 35 29 2c 22 22 32 37 22 55 50 72 6f 67 72 61 6d 20 ┆660 PRINT TAB(15),""27"UProgram ┆
0x0960…0980 43 3a 22 32 37 22 75 22 0d 30 36 37 30 20 50 52 49 4e 54 20 54 41 42 28 31 35 29 2c 22 49 20 73 ┆C:"27"u" 0670 PRINT TAB(15),"I s┆
0x0980…09a0 61 6d 6d 65 20 6b 6f 6f 72 64 69 6e 61 74 73 79 73 74 65 6d 20 6b 61 6e 20 64 65 72 20 74 65 67 ┆amme koordinatsystem kan der teg┆
0x09a0…09c0 6e 65 73 20 67 72 61 66 65 72 20 61 66 22 0d 30 36 38 30 20 50 52 49 4e 54 20 54 41 42 28 31 35 ┆nes grafer af" 0680 PRINT TAB(15┆
0x09c0…09e0 29 2c 22 66 7c 6c 67 65 6e 64 65 20 66 75 6e 6b 74 69 6f 6e 65 72 3a 22 0d 30 36 39 30 20 50 52 ┆),"følgende funktioner:" 0690 PR┆
0x09e0…0a00 49 4e 54 20 54 41 42 28 33 30 29 2c 22 31 2e 20 67 72 61 64 73 20 66 75 6e 6b 74 69 6f 6e 65 72 ┆INT TAB(30),"1. grads funktioner┆
0x0a00…0a20 22 0d 30 37 30 30 20 50 52 49 4e 54 20 54 41 42 28 33 30 29 2c 22 32 2e 20 67 72 61 64 73 20 66 ┆" 0700 PRINT TAB(30),"2. grads f┆
0x0a20…0a40 75 6e 6b 74 69 6f 6e 65 72 22 0d 30 37 31 30 20 50 52 49 4e 54 20 54 41 42 28 33 30 29 2c 22 33 ┆unktioner" 0710 PRINT TAB(30),"3┆
0x0a40…0a60 2e 20 67 72 61 64 73 20 66 75 6e 6b 74 69 6f 6e 65 72 22 0d 30 37 32 30 20 50 52 49 4e 54 20 54 ┆. grads funktioner" 0720 PRINT T┆
0x0a60…0a80 41 42 28 33 30 29 2c 22 72 65 63 69 70 72 6f 6b 2d 66 75 6e 6b 74 69 6f 6e 65 72 2e 22 0d 30 37 ┆AB(30),"reciprok-funktioner." 07┆
0x0a80…0aa0 33 30 20 2f 2f 0d 30 37 34 30 20 45 58 45 43 20 42 4f 58 28 36 2c 32 2c 36 35 2c 32 33 29 0d 30 ┆30 // 0740 EXEC BOX(6,2,65,23) 0┆
0x0aa0…0ac0 37 35 30 20 45 58 45 43 20 53 54 52 45 47 28 36 2c 35 29 0d 30 37 36 30 20 45 58 45 43 20 53 54 ┆750 EXEC STREG(6,5) 0760 EXEC ST┆
0x0ac0…0ae0 52 45 47 28 32 32 2c 35 29 0d 30 37 37 30 20 2f 2f 0d 30 37 38 30 20 50 52 49 4e 54 20 22 22 32 ┆REG(22,5) 0770 // 0780 PRINT ""2┆
0x0ae0…0b00 37 22 43 22 0d 30 37 39 30 20 43 55 52 53 4f 52 20 31 35 2c 20 32 33 0d 30 38 30 30 20 50 52 49 ┆7"C" 0790 CURSOR 15, 23 0800 PRI┆
0x0b00…0b20 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 70 72 6f 67 72 61 6d 20 ┆NT "Indtast det ønskede program ┆
0x0b20…0b40 20 28 41 2f 42 2f 43 29 3a 20 20 22 2c 0d 30 38 31 30 20 45 58 45 43 20 48 45 4e 54 54 41 53 54 ┆ (A/B/C): ", 0810 EXEC HENTTAST┆
0x0b40…0b60 28 22 41 42 43 61 62 63 22 29 0d 30 38 32 30 20 49 46 20 4f 52 44 28 56 24 29 3e 36 37 20 54 48 ┆("ABCabc") 0820 IF ORD(V$)>67 TH┆
0x0b60…0b80 45 4e 20 56 24 3a 3d 43 48 52 24 28 4f 52 44 28 56 24 29 2d 33 32 29 0d 30 38 33 30 20 50 52 49 ┆EN V$:=CHR$(ORD(V$)-32) 0830 PRI┆
0x0b80…0ba0 4e 54 20 56 24 0d 30 38 34 30 20 50 52 49 4e 54 20 22 22 32 37 22 63 22 0d 30 38 35 30 20 2f 2f ┆NT V$ 0840 PRINT ""27"c" 0850 //┆
0x0ba0…0bc0 0d 30 38 36 30 20 49 46 20 56 24 3d 22 41 22 20 54 48 45 4e 20 0d 30 38 37 30 20 20 20 43 48 41 ┆ 0860 IF V$="A" THEN 0870 CHA┆
0x0bc0…0be0 49 4e 20 22 53 54 41 52 54 45 52 31 22 0d 30 38 38 30 20 45 4c 49 46 20 56 24 3d 22 42 22 20 54 ┆IN "STARTER1" 0880 ELIF V$="B" T┆
0x0be0…0c00 48 45 4e 20 0d 30 38 39 30 20 20 20 43 48 41 49 4e 20 22 41 4e 44 45 4e 50 4f 4c 22 0d 30 39 30 ┆HEN 0890 CHAIN "ANDENPOL" 090┆
0x0c00…0c20 30 20 45 4c 49 46 20 56 24 3d 22 43 22 20 54 48 45 4e 20 0d 30 39 31 30 20 20 20 43 48 41 49 4e ┆0 ELIF V$="C" THEN 0910 CHAIN┆
0x0c20…0c40 20 22 43 4d 45 4e 55 22 0d 30 39 32 30 20 45 4e 44 49 46 20 0d 30 39 33 30 20 2f 2f 0d 30 39 34 ┆ "CMENU" 0920 ENDIF 0930 // 094┆
0x0c40…0c60 30 20 50 52 4f 43 20 42 4f 58 28 5c 56 58 23 2c 20 5c 56 59 23 2c 20 4c 5b 23 2c 20 48 5c 23 29 ┆0 PROC BOX(ØVX#, ØVY#, LÆ#, HØ#)┆
0x0c60…0c80 20 43 4c 4f 53 45 44 20 2f 2f 20 42 69 62 6c 69 6f 74 65 6b 73 70 72 6f 63 65 64 75 72 65 0d 30 ┆ CLOSED // Biblioteksprocedure 0┆
0x0c80…0ca0 39 35 30 20 20 20 2f 2f 20 54 65 67 6e 65 72 20 65 6e 20 73 70 65 63 69 66 69 72 65 74 20 62 6f ┆950 // Tegner en specifiret bo┆
0x0ca0…0cc0 78 0d 30 39 36 30 20 20 20 43 55 52 53 4f 52 20 5c 56 58 23 2c 20 5c 56 59 23 0d 30 39 37 30 20 ┆x 0960 CURSOR ØVX#, ØVY# 0970 ┆
0x0cc0…0ce0 20 20 45 58 45 43 20 4c 49 4e 45 28 31 36 2c 4c 5b 23 2d 32 2c 22 22 35 22 22 29 20 2f 2f 20 20 ┆ EXEC LINE(16,LÆ#-2,""5"") // ┆
0x0ce0…0d00 20 20 20 20 20 20 54 69 6c 20 68 7c 6a 72 65 0d 30 39 38 30 20 20 20 45 58 45 43 20 4c 49 4e 45 ┆ Til højre 0980 EXEC LINE┆
0x0d00…0d20 28 31 37 2c 48 5c 23 2d 31 2c 22 22 31 30 22 22 38 22 22 34 22 22 29 20 2f 2f 20 4e 65 64 61 64 ┆(17,HØ#-1,""10""8""4"") // Nedad┆
0x0d20…0d40 0d 30 39 39 30 20 20 20 50 52 49 4e 54 20 22 22 38 22 22 2c 20 2f 2f 20 20 20 20 20 20 20 20 20 ┆ 0990 PRINT ""8"", // ┆
0x0d40…0d60 20 20 20 20 20 20 20 20 20 20 20 20 42 61 63 6b 73 74 65 70 0d 31 30 30 30 20 20 20 45 58 45 43 ┆ Backstep 1000 EXEC┆
0x0d60…0d80 20 4c 49 4e 45 28 31 38 2c 4c 5b 23 2d 31 2c 22 22 38 22 22 38 22 22 35 22 22 29 20 2f 2f 20 20 ┆ LINE(18,LÆ#-1,""8""8""5"") // ┆
0x0d80…0da0 54 69 6c 20 76 65 6e 73 74 72 65 0d 31 30 31 30 20 20 20 50 52 49 4e 54 20 22 22 38 22 22 2c 20 ┆Til venstre 1010 PRINT ""8"", ┆
0x0da0…0dc0 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 61 63 6b 73 74 65 70 0d ┆// Backstep ┆
0x0dc0…0de0 31 30 32 30 20 20 20 45 58 45 43 20 4c 49 4e 45 28 31 35 2c 48 5c 23 2d 32 2c 22 22 31 31 22 22 ┆1020 EXEC LINE(15,HØ#-2,""11""┆
0x0de0…0e00 38 22 22 34 22 22 29 20 2f 2f 20 4f 70 61 64 0d 31 30 33 30 20 45 4e 44 50 52 4f 43 20 42 4f 58 ┆8""4"") // Opad 1030 ENDPROC BOX┆
0x0e00…0e20 0d 31 30 34 30 20 50 52 4f 43 20 4c 49 4e 45 28 54 23 2c 20 41 23 2c 20 54 24 29 20 43 4c 4f 53 ┆ 1040 PROC LINE(T#, A#, T$) CLOS┆
0x0e20…0e40 45 44 20 2f 2f 20 42 69 62 6c 69 6f 74 65 6b 73 70 72 6f 63 65 64 75 72 65 0d 31 30 35 30 20 20 ┆ED // Biblioteksprocedure 1050 ┆
0x0e40…0e60 20 2f 2f 20 53 75 62 72 75 74 69 6e 65 20 74 69 6c 20 66 6f 72 61 6e 73 74 7d 65 6e 64 65 20 70 ┆ // Subrutine til foranstående p┆
0x0e60…0e80 72 6f 63 65 64 75 72 65 0d 31 30 36 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 54 23 29 2c 20 ┆rocedure 1060 PRINT CHR$(T#), ┆
0x0e80…0ea0 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 6a 7c 72 6e 65 0d 31 30 37 30 20 ┆// Hjørne 1070 ┆
0x0ea0…0ec0 20 20 46 4f 52 20 50 23 3a 3d 31 20 54 4f 20 41 23 20 44 4f 20 0d 31 30 38 30 20 20 20 20 20 50 ┆ FOR P#:=1 TO A# DO 1080 P┆
0x0ec0…0ee0 52 49 4e 54 20 54 24 2c 20 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RINT T$, // ┆
0x0ee0…0f00 20 4b 61 72 61 6b 74 65 72 74 65 6b 73 74 0d 31 30 39 30 20 20 20 4e 45 58 54 20 50 23 0d 31 31 ┆ Karaktertekst 1090 NEXT P# 11┆
0x0f00…0f20 30 30 20 45 4e 44 50 52 4f 43 20 4c 49 4e 45 0d 31 31 31 30 20 2f 2f 0d 31 31 32 30 20 50 52 4f ┆00 ENDPROC LINE 1110 // 1120 PRO┆
0x0f20…0f40 43 20 53 54 52 45 47 28 4c 4e 2c 20 54 45 47 4e 29 0d 31 31 33 30 20 20 20 43 55 52 53 4f 52 20 ┆C STREG(LN, TEGN) 1130 CURSOR ┆
0x0f40…0f60 37 2c 20 4c 4e 0d 31 31 34 30 20 20 20 46 4f 52 20 49 3a 3d 37 20 54 4f 20 36 39 20 44 4f 20 0d ┆7, LN 1140 FOR I:=7 TO 69 DO ┆
0x0f60…0f80 31 31 35 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 54 45 47 4e 29 2c 0d 31 31 36 30 20 ┆1150 PRINT CHR$(TEGN), 1160 ┆
0x0f80…0fa0 20 20 4e 45 58 54 20 49 0d 31 31 37 30 20 45 4e 44 50 52 4f 43 20 53 54 52 45 47 0d 31 31 38 30 ┆ NEXT I 1170 ENDPROC STREG 1180┆
0x0fa0…0fc0 20 2f 2f 0d 31 31 39 30 20 50 52 4f 43 20 48 45 4e 54 54 41 53 54 28 53 54 52 45 4e 47 24 29 0d ┆ // 1190 PROC HENTTAST(STRENG$) ┆
0x0fc0…0fe0 31 32 30 30 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 32 35 35 0d 31 32 31 30 20 20 20 52 45 50 45 ┆1200 POKE 256, 255 1210 REPE┆
0x0fe0…1000 41 54 20 0d 31 32 32 30 20 20 20 20 20 56 24 3a 3d 43 48 52 24 28 50 45 45 4b 28 32 35 36 29 29 ┆AT 1220 V$:=CHR$(PEEK(256))┆
0x1000…1020 0d 31 32 33 30 20 20 20 55 4e 54 49 4c 20 56 24 20 49 4e 20 53 54 52 45 4e 47 24 0d 31 32 34 30 ┆ 1230 UNTIL V$ IN STRENG$ 1240┆
0x1020…1040 20 45 4e 44 50 52 4f 43 20 48 45 4e 54 54 41 53 54 0d 54 41 53 54 28 53 54 52 45 4e 47 24 29 0d ┆ ENDPROC HENTTAST TAST(STRENG$) ┆
0x1040…1060 31 32 30 30 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 32 35 35 0d 31 32 31 30 20 20 20 52 45 50 45 ┆1200 POKE 256, 255 1210 REPE┆
0x1060…1080 41 54 20 0d 31 32 32 30 20 20 20 20 20 56 24 3a 3d 43 48 52 24 28 50 45 45 4b 28 32 35 36 29 32 ┆AT 1220 V$:=CHR$(PEEK(256)2┆