|
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 - metrics - downloadIndex: 2 3 4 5 7 B C F G I L P R S T W
Length: 328704 (0x50400)
Description: Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
Types: 5¼" Floppy Disk, CpmFSAuto, ImdContainer
Notes: CP/M-fs(512_2048_0x1_80_*2+1+2_2:0_35:1)
Media: [0, 0, 1] … [35, 1, 9] {128: 16, 256: 16, 512: 630}
Signature: 512_2048_0x1_80_*2+1+2_2:0_35:1
Confidence score: +40/-0
Sector size: 512
Block size: 2048
Directory entries: 80
Block number size: 8
Extent-mask: 0x01
Sector-interleave: 1, 3, 5, 7, 9, 2, 4, 6, 8
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (33, 0), (33, 1), (34, 0), (34, 1), (35, 0), (35, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 384 | 20-HZ | ⟦c3e464dbd⟧ TextFile |
| 0 | 0 | 512 | 33-HZ | ⟦17edaaf78⟧ TextFile |
| 0 | 0 | 384 | 39-HZ | ⟦d1d076097⟧ TextFile |
| 0 | 0 | 384 | 4000-HZ | ⟦01880719d⟧ TextFile |
| 0 | 0 | 384 | 45-HZ | ⟦900b0bdc6⟧ TextFile |
| 0 | 0 | 384 | 46-HZ | ⟦8b9f77b88⟧ TextFile |
| 0 | 0 | 256 | 76-HZ | ⟦66ca0721e⟧ TextFile |
| 0 | 0 | 512 | BLINK-0/.7 | ⟦8c80cd377⟧ TextFile |
| 0 | 0 | 512 | BLINK-A/.B | ⟦086aa9a0d⟧ TextFile |
| 0 | 0 | 1664 | FLYTpgr | ⟦613f3ec86⟧ |
| 0 | 0 | 256 | GIVEN.WP | ⟦4777ce0ff⟧ RcTekst |
| 0 | 0 | 54400 | LÆRER.WP | ⟦a9aff2c4c⟧ RcTekst |
| 0 | 0 | 54400 | LÆRER.WPB | ⟦c540db92f⟧ RcTekst |
| 0 | 0 | 768 | LØB-A1 | ⟦ad8273d3d⟧ TextFile |
| 0 | 0 | 384 | LØB-A2 | ⟦e62d5280d⟧ TextFile |
| 0 | 0 | 512 | LØB-B | ⟦d94fc1314⟧ TextFile |
| 0 | 0 | 640 | LØB-C | ⟦f6fe914d8⟧ TextFile |
| 0 | 0 | 640 | LØB-D | ⟦7f6cf6877⟧ TextFile |
| 0 | 0 | 640 | LØB-E1 | ⟦fbe9d2115⟧ TextFile |
| 0 | 0 | 768 | LØB-E2 | ⟦37e23e1a5⟧ TextFile |
| 0 | 0 | 640 | LØB-E3 | ⟦3d21de439⟧ TextFile |
| 0 | 0 | 640 | LØB-E4 | ⟦e6e923a75⟧ TextFile |
| 0 | 0 | 640 | LØB-E5 | ⟦b1099a2c4⟧ TextFile |
| 0 | 0 | 896 | LØB-F | ⟦36f0fe8cf⟧ TextFile |
| 0 | 0 | 1152 | LØB-G1 | ⟦090a7548c⟧ TextFile |
| 0 | 0 | 1152 | LØB-G2 | ⟦5761bc9db⟧ TextFile |
| 0 | 0 | 1152 | LØB-G3 | ⟦5f70be391⟧ TextFile |
| 0 | 0 | 384 | PAUSE-AT.ID | ⟦e22772cf1⟧ TextFile |
| 0 | 0 | 384 | PAUSE-BT.ID | ⟦fda9012c2⟧ TextFile |
| 0 | 0 | 256 | PAUSE-CT.ID1 | ⟦399fe8f7c⟧ TextFile |
| 0 | 0 | 384 | PAUSE-CT.ID2 | ⟦1d9fcfcdc⟧ TextFile |
| 0 | 0 | 256 | SLUK10 | ⟦0e50bc1ea⟧ TextFile |
| 0 | 0 | 384 | TÆLLE-A | ⟦e8d6fbc2d⟧ TextFile |
| 0 | 0 | 512 | TÆLLE-B | ⟦8ef103675⟧ TextFile |
| 0 | 0 | 256 | TÆND10 | ⟦98f647f7b⟧ TextFile |
| 0 | 0 | 1408 | WORK.BLK | ⟦c3bcd40a8⟧ TextFile |
0x00000…00080 (0, 0, 1) 0xe5[0x80]
[…0xf…]
0x00800…00900 (0, 1, 1) 0xe5[0x100]
[…0xf…]
0x01800…01a00 (1, 0, 1) 0xe5[0x200]
[…0x11…]
0x03c00…03c20 (2, 0, 1) Dirent {Status=0xe5}
0x03c20…03c40 [0, 'FLYTpgr', 0, 13, 'xl=00', 'bc=00', 'xh=00', 'rc=0d', '0-0-0-0-0-0-0-0-0-0-0', [3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c40…03c60 [0, 'LÆRER.WPB', 0, 256, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 98, 99, 100, 101, 102]]
0x03c60…03c80 [0, 'LÆRER.WP', 0, 256, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 59, 60, 61, 62, 63]]
0x03c80…03ca0 [0, 'PAUSE-AT.ID', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ca0…03cc0 Dirent {Status=0xe5}
0x03cc0…03ce0 [0, 'PAUSE-BT.ID', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ce0…03d00 [0, 'LÆRER.WPB', 1, 169, 'xl=03', 'bc=00', 'xh=00', 'rc=29', '0-0-0-0-0-0-0-0-0-0-0', [103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 0, 0, 0, 0, 0]]
0x03d00…03d20 [0, 'PAUSE-CT.ID1', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d20…03d40 [0, 'PAUSE-CT.ID2', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d40…03d60 [0, 'LÆRER.WP', 1, 169, 'xl=03', 'bc=00', 'xh=00', 'rc=29', '0-0-0-0-0-0-0-0-0-0-0', [64, 65, 66, 67, 68, 69, 77, 78, 114, 115, 116, 0, 0, 0, 0, 0]]
0x03d60…03d80 Dirent {Status=0xe5}
[…0x4…]
0x03e00…04000 (2, 0, 2) 0xe5[0x200]
0x04000…04020 (2, 0, 3) Dirent {Status=0xe5}
[…0x9…]
0x04140…04160 [0, 'GIVEN.WP', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04160…04180 Dirent {Status=0xe5}
[…0x4…]
0x04200…04400 (2, 0, 4) 0xe5[0x200]
0x04400…04420 (2, 0, 5) Dirent {Status=0xe5}
0x04420…04440 [0, 'LØB-A1', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04440…04460 [0, 'LØB-A2', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04460…04480 [0, 'LØB-B', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04480…044a0 [0, 'LØB-C', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x044a0…044c0 [0, 'LØB-D', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x044c0…044e0 [0, 'LØB-E1', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x044e0…04500 [0, 'LØB-E2', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [42, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04500…04520 [0, 'LØB-E3', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [43, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04520…04540 [0, 'LØB-E4', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04540…04560 [0, 'LØB-E5', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04560…04580 [0, 'LØB-F', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [46, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04580…045a0 [0, 'LØB-G1', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x045a0…045c0 [0, 'LØB-G2', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x045c0…045e0 [0, 'LØB-G3', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [49, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x045e0…04600 [0, 'TÆLLE-A', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04600…04800 (2, 0, 6) 0xe5[0x200]
0x04800…04820 (2, 0, 7) [0, 'TÆLLE-B', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04820…04840 [0, 'BLINK-0/.7', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [52, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04840…04860 [0, 'BLINK-A/.B', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [53, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04860…04880 [0, 'TÆND10', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04880…048a0 [0, 'SLUK10', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x048a0…048c0 Dirent {Status=0xe5}
[…0xa…]
0x04a00…04b00 (2, 0, 8) DataBlock {»GIVEN.WP«}
0x04b00…04b20 00 46 59 52 2d 44 20 20 20 20 20 20 00 00 00 0b 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ FYR-D ┆
0x04b20…04b40 00 4c 5b 52 45 52 20 20 20 57 50 20 01 00 00 6c 1c 1d 1e 62 63 64 65 66 67 68 6a 6b 6c 74 75 00 ┆ LÆRER WP l bcdefghjkltu ┆
0x04b40…04b60 00 47 49 56 45 4e 20 20 20 4f 24 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ GIVEN O$ ┆
0x04b60…04b80 00 4c 5b 52 45 52 20 20 20 57 50 42 01 00 00 6c 5b 5c 5d 5e 5f 60 61 69 6d 6e 6f 70 71 72 73 00 ┆ LÆRER WPB lÆØÅ^_`aimnopqrs ┆
0x04b80…04ba0 00 4d 4f 52 53 45 2d 41 20 20 20 20 00 00 00 0c 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ MORSE-A ┆
0x04ba0…04bc0 00 4d 4f 52 53 45 2d 42 20 20 20 20 00 00 00 09 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ MORSE-B ┆
0x04bc0…04be0 00 4d 4f 52 53 45 2d 43 20 20 20 20 00 00 00 0d 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ MORSE-C ! ┆
0x04be0…04c00 00 4d 4f 52 53 45 2d 44 20 20 20 20 00 00 00 0f 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ MORSE-D " ┆
0x04c00…04c20 (2, 0, 9) [0, '20-HZ', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [70, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04c20…04c40 [0, '33-HZ', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04c40…04c60 [0, '39-HZ', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04c60…04c80 [0, '45-HZ', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [73, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04c80…04ca0 [0, '46-HZ', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [74, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04ca0…04cc0 [0, '76-HZ', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04cc0…04ce0 [0, '4000-HZ', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [76, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04ce0…04d00 Dirent {Status=0xe5}
[…0x1…]
0x04d20…04d40 [0, 'WORK.BLK', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [88, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04d40…04d60 Dirent {Status=0xe5}
[…0x5…]
0x04e00…04e20 (2, 1, 1) 69 6e 67 20 74 69 6c 0d 0a 20 20 20 20 75 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 ┆ing til undervisningsmateri┆
0x04e20…04e40 61 6c 65 74 0d 0a 2e 2e 2e 20 70 72 6f 67 72 61 6d 2d 64 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 20 ┆alet ... program-dokumentation ┆
0x04e40…04e60 66 6f 72 0d 0a 20 20 20 20 64 69 73 6b 65 74 74 65 6e 73 20 70 72 6f 67 72 61 6d 6d 65 72 0d 0a ┆for diskettens programmer ┆
0x04e60…04e80 0d 0a 0d 0a 20 20 20 20 45 4c 45 56 54 45 4b 53 54 45 4e 3a 0d 0a 2e 2e 2e 20 74 65 6f 72 69 0d ┆ ELEVTEKSTEN: ... teori ┆
0x04e80…04ea0 0a 2e 2e 2e 20 6f 70 67 61 76 65 72 20 20 20 20 20 28 65 65 6e 20 6c 7c 73 6e 69 6e 67 29 0d 0a ┆ ... opgaver (een løsning) ┆
0x04ea0…04ec0 2e 2e 2e 20 70 72 6f 62 6c 65 6d 65 72 20 20 20 28 66 6c 65 72 65 20 6c 7c 73 6e 69 6e 67 65 72 ┆... problemer (flere løsninger┆
0x04ec0…04ee0 29 0d 0a 2e 2e 2e 20 74 61 62 65 6c 6c 65 72 0d 0a 2e 2e 2e 20 61 72 62 65 6a 64 73 61 72 6b 20 ┆) ... tabeller ... arbejdsark ┆
0x04ee0…04f00 20 28 68 6a 7b 6c 70 20 74 69 6c 20 6c 7c 73 6e 69 6e 67 65 72 29 0d 0a 0d 0a 0d 0a 20 20 20 20 ┆ (hjælp til løsninger) ┆
0x04f00…04f20 54 45 4b 4e 49 53 4b 20 54 49 4c 4c 5b 47 3a 0d 0a 2e 2e 2e 20 64 61 74 61 62 6c 61 64 20 66 6f ┆TEKNISK TILLÆG: ... datablad fo┆
0x04f20…04f40 72 20 6c 79 73 70 61 6e 65 6c 0d 0a 2e 2e 2e 20 74 69 6c 73 6c 75 74 6e 69 6e 67 20 61 66 20 6c ┆r lyspanel ... tilslutning af l┆
0x04f40…04f60 79 73 70 61 6e 65 6c 20 74 69 6c 20 0a 1f 1f 1f 1f 66 6f 72 73 6b 65 6c 6c 69 67 65 0d 0a 20 20 ┆yspanel til forskellige ┆
0x04f60…04f80 20 20 6d 69 63 72 6f 64 61 74 61 6d 61 74 66 61 62 72 69 6b 61 74 65 72 0d 0a 0d 0a 5f 5f 5f 5f ┆ microdatamatfabrikater ____┆
0x04f80…04fa0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x04fa0…04fc0 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 44 49 53 4b 45 54 54 45 4e 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f ┆_____ DISKETTEN: ________┆
0x04fc0…04fe0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x04fe0…05000 5f 0d 0a 0d 0a 0d 0a 20 20 20 20 44 69 73 6b 65 74 74 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 ┆_ Disketten indeholder ┆
0x05000…05200 (2, 1, 2) DataBlock {»FLYTpgr«}
0x05200…05220 (2, 1, 3) 70 72 6f 67 72 61 6d 6d 65 72 20 0d 0a 1f 1f 1f 1f 73 6b 72 65 76 65 74 20 69 20 43 4f 4d 41 4c ┆programmer skrevet i COMAL┆
0x05220…05240 38 30 20 74 69 6c 3a 0d 0a 2e 2e 2e 20 65 6c 65 76 62 72 75 67 20 76 65 64 20 6f 70 67 61 76 65 ┆80 til: ... elevbrug ved opgave┆
0x05240…05260 6c 7c 73 6e 69 6e 67 0d 0a 2e 2e 2e 20 6c 7b 72 65 72 62 72 75 67 20 76 65 64 20 66 72 65 6d 73 ┆løsning ... lærerbrug ved frems┆
0x05260…05280 74 69 6c 6c 69 6e 67 20 61 66 20 6f 70 67 61 76 65 72 0d 0a 20 1f 1f 1f 70 7d 20 70 72 69 6e 74 ┆tilling af opgaver på print┆
0x05280…052a0 65 72 2e 0d 0a 2e 2e 2e 20 6c 7c 73 6e 69 6e 67 73 65 6b 73 65 6d 70 6c 65 72 20 74 69 6c 20 61 ┆er. ... løsningseksempler til a┆
0x052a0…052c0 6c 6c 65 20 0d 0a 20 1f 1f 1f 6f 70 67 61 76 65 72 2f 70 72 6f 62 6c 65 6d 65 72 20 69 20 65 6c ┆lle opgaver/problemer i el┆
0x052c0…052e0 65 76 74 65 6b 73 74 65 6e 0d 0a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆evteksten ___________________┆
0x052e0…05300 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 4c 59 53 ┆______________________ LYS┆
0x05300…05320 50 41 4e 45 4c 45 54 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PANELET: ______________________┆
0x05320…05340 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 20 20 20 84 20 84 4c ┆___________________ L┆
0x05340…05360 79 73 70 61 6e 65 6c 65 74 20 62 65 73 74 7d 72 20 61 66 20 65 6e 20 62 6f 6b 73 20 6d 65 64 20 ┆yspanelet består af en boks med ┆
0x05360…05380 65 6e 20 0a 19 84 80 80 76 61 6e 64 72 65 74 20 72 7b 6b 6b 65 20 6d 65 64 20 38 20 6c 61 6d 70 ┆en vandret række med 8 lamp┆
0x05380…053a0 65 72 2c 20 73 61 6d 74 20 34 20 0a 19 84 80 80 6c 79 73 6b 75 72 76 65 3a 20 54 6f 20 6d 65 64 ┆er, samt 4 lyskurve: To med┆
0x053a0…053c0 20 20 33 20 6c 61 6d 70 65 72 20 28 72 7c 64 2d 67 75 6c 2d 0a 19 84 80 80 67 72 7c 6e 29 20 6f ┆ 3 lamper (rød-gul- grøn) o┆
0x053c0…053e0 67 20 74 6f 20 6d 65 64 20 32 20 20 6c 61 6d 70 65 72 20 28 72 7c 64 2d 67 72 7c 6e 29 2e 20 20 ┆g to med 2 lamper (rød-grøn). ┆
0x053e0…05400 20 0a 19 84 80 80 4c 61 6d 70 65 72 6e 65 20 6b 61 6e 20 73 74 79 72 65 73 20 66 72 61 20 6d 69 ┆ Lamperne kan styres fra mi┆
0x05400…05480 (2, 1, 4) DataBlock {»FLYTpgr«}
0x05480…054a0 0a c0 08 00 50 47 52 69 6e 64 65 78 01 00 e6 00 d3 03 01 01 f0 00 86 0a 08 d0 01 20 00 00 00 00 ┆ PGRindex ┆
0x054a0…054c0 00 82 55 00 07 00 01 00 fa 00 67 1b 08 d0 01 10 00 00 00 00 00 82 04 00 08 a0 2d 2c 08 d0 02 04 ┆ U g -, ┆
0x054c0…054e0 80 00 00 00 00 84 04 00 13 a0 2d 2c 08 d0 02 04 80 00 00 00 00 84 04 00 2a a0 2d 00 01 00 04 01 ┆ -, * - ┆
0x054e0…05500 89 09 08 d0 02 04 80 00 00 00 00 84 2d 00 01 00 0e 01 5f 0b 00 00 1c 75 1a 80 81 f1 1d 00 02 80 ┆ - _ u ┆
0x05500…05520 3b 00 11 3d 01 00 18 01 69 05 08 a0 06 00 01 00 22 01 8e 03 01 00 2c 01 6d 0d 81 f2 2d 1d 06 c0 ┆; = i " , m - ┆
0x05520…05540 03 00 2f 32 2f 00 08 a0 15 00 2d 1f 0d 00 01 00 36 01 86 05 08 a0 07 3b 01 00 40 01 5f 0c f2 73 ┆ /2/ - 6 ; @ _ s┆
0x05540…05560 9e 74 26 80 81 f1 1d 00 08 a0 57 00 3b 00 11 3d 01 00 4a 01 d1 21 08 a0 26 80 26 80 1f 02 08 a0 ┆ t& W ; = J ! & & ┆
0x05560…05580 26 80 26 80 1f 02 56 00 08 a0 26 80 26 80 1f 02 56 00 08 d0 09 60 00 00 00 00 00 82 2a 00 14 00 ┆& & V & & V ` * ┆
0x05580…055a0 08 d0 03 20 00 00 00 00 00 82 21 00 23 00 55 00 1e 00 01 00 54 01 60 05 52 74 26 80 01 00 5e 01 ┆ ! # U T ` Rt& ^ ┆
0x055a0…055c0 6d 0d 81 f1 2d 1d 06 c0 03 00 2f 31 2f 00 08 a0 15 00 2d 1f 0e 00 01 00 68 01 83 04 f2 73 01 00 ┆m - /1/ - h s ┆
0x055c0…055e0 72 01 d1 09 34 80 81 f2 81 f1 74 02 56 00 1d 00 01 00 7c 01 3e 0d 34 80 00 f0 25 00 2d 71 86 00 ┆r 4 t V ø > 4 % -q ┆
0x055e0…05600 81 f1 2d 1e 34 80 55 00 07 3b 01 00 86 01 84 07 c0 74 81 f2 59 00 2d 0a 01 00 90 01 86 09 04 c0 ┆ - 4 U ; t Y - ┆
0x05600…05620 (2, 1, 5) 63 72 6f 80 0a 19 84 80 80 64 61 74 61 6d 61 74 65 6e 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 ┆cro datamaten ved hjælp af ┆
0x05620…05640 73 69 6d 70 6c 65 20 0a 19 84 80 80 70 72 6f 67 72 61 6d 6d 65 72 2c 20 68 65 72 20 20 43 4f 4d ┆simple programmer, her COM┆
0x05640…05660 41 4c 38 30 2d 70 72 6f 67 72 61 6d 6d 65 72 2c 20 0a 19 84 80 80 76 69 61 20 65 6e 20 20 70 61 ┆AL80-programmer, via en pa┆
0x05660…05680 72 61 6c 6c 65 6c 70 6f 72 74 20 6d 65 64 20 38 2d 31 30 20 62 69 74 2e 20 0d 0a 0d 0a 5f 5f 5f ┆rallelport med 8-10 bit. ___┆
0x05680…056a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x056a0…056c0 5f 5f 5f 5f 5f 5f 0d 0a 0c 83 78 0a 0d 0a 0d 0a 0d 0a b0 46 4f 52 4f 52 44 3a 0d 0a 5f 5f 5f 5f ┆______ x FORORD: ____┆
0x056c0…056e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x056e0…05700 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 44 61 74 61 6d 61 73 6b 69 6e 65 72 20 61 6e 76 65 6e 64 65 73 ┆_____ Datamaskiner anvendes┆
0x05700…05720 20 74 69 6c 20 61 74 20 6c 7c 73 65 20 6d 61 6e 67 65 20 0a 66 6f 72 73 6b 65 6c 6c 69 67 65 20 ┆ til at løse mange forskellige ┆
0x05720…05740 70 72 6f 62 6c 65 6d 65 72 20 69 20 73 61 6d 66 75 6e 64 65 74 2e 20 4d 61 6e 20 0a 6b 61 6e 20 ┆problemer i samfundet. Man kan ┆
0x05740…05760 73 69 67 65 2c 20 61 74 20 64 65 72 20 65 72 20 74 61 6c 65 20 6f 6d 20 6d 69 6e 64 73 74 20 33 ┆sige, at der er tale om mindst 3┆
0x05760…05780 20 0a 70 72 69 6e 63 69 70 69 65 6c 74 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 61 6e 80 76 65 6e ┆ principielt forskellige an ven┆
0x05780…057a0 80 64 65 6c 80 73 65 73 80 0a 6f 6d 72 7d 64 65 72 3a 0d 0a 0d 0a 0d 0a b0 28 31 29 20 20 41 44 ┆ del ses områder: (1) AD┆
0x057a0…057c0 4d 49 4e 49 53 54 52 41 54 49 4f 4e 0d 0a b0 28 32 29 20 20 41 55 54 4f 4d 41 54 49 53 45 52 49 ┆MINISTRATION (2) AUTOMATISERI┆
0x057c0…057e0 4e 47 0d 0a b0 28 33 29 20 20 4b 4f 4d 4d 55 4e 49 4b 41 54 49 4f 4e 0d 0a 0d 0a 0d 0a 45 6d 6e ┆NG (3) KOMMUNIKATION Emn┆
0x057e0…05800 65 74 20 22 41 55 54 4f 4d 41 54 49 53 45 52 49 4e 47 22 20 6b 61 6e 20 64 65 6c 65 73 20 69 20 ┆et "AUTOMATISERING" kan deles i ┆
0x05800…05820 (2, 1, 6) 00 00 00 00 00 00 00 00 46 01 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ F N ┆
0x05820…05840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x05840…05860 00 00 00 00 00 00 00 04 00 2d 4e 0a 00 06 00 00 00 00 02 08 4e 31 40 00 00 00 00 00 00 00 00 00 ┆ -N N1@ ┆
0x05860…05880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 16 20 2a 34 3e 48 52 5c 66 70 7a 84 8e 98 ff 04 ┆ *4>HRØfpz ┆
0x05880…058a0 0c 80 82 0a 14 b3 b0 22 42 52 55 47 20 50 5b 52 45 4e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ "BRUG PÆREN" ┆
0x058a0…058c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 52 45 52 54 45 4b ┆ LÆRERTEK┆
0x058c0…058e0 53 54 20 20 20 53 69 64 65 20 0b 0d 0a 04 00 2d 4e 0a 00 06 00 00 00 00 02 19 41 31 40 00 00 00 ┆ST Side -N A1@ ┆
0x058e0…05900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1d 27 31 3b 45 4f 59 63 6d 77 81 ┆ '1;EOYcmw ┆
0x05900…05920 8b 95 9f a9 ff 04 04 00 2d 4e 0a 00 06 00 00 00 00 02 08 4e 31 40 00 00 00 00 00 00 00 00 00 00 ┆ -N N1@ ┆
0x05920…05940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 16 20 2a 34 3e 48 52 5c 66 70 7a 84 8e 98 ff 04 0a ┆ *4>HRØfpz ┆
0x05940…05960 0d 0a 0d 0a 0d 0a b0 b0 4d 41 50 50 45 4e 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ MAPPEN: _______________┆
0x05960…05980 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a ┆__________________________ ┆
0x05980…059a0 20 20 20 20 4c 5b 52 45 52 54 45 4b 53 54 45 4e 3a 0d 0a 2e 2e 2e 20 70 72 6f 67 72 61 6d 6d 65 ┆ LÆRERTEKSTEN: ... programme┆
0x059a0…059c0 72 69 6e 67 73 70 72 69 6e 63 69 70 20 66 6f 72 20 6c 79 73 70 61 6e 65 6c 65 74 0d 0a 2e 2e 2e ┆ringsprincip for lyspanelet ...┆
0x059c0…059e0 20 66 75 6e 6b 74 69 6f 6e 73 70 72 69 6e 63 69 70 20 66 6f 72 20 6c 79 73 70 61 6e 65 6c 65 74 ┆ funktionsprincip for lyspanelet┆
0x059e0…05a00 0d 0a 2e 2e 2e 20 6c 7b 72 65 72 2d 76 65 6a 6c 65 64 6e 69 6e 67 20 74 69 6c 0d 0a 20 20 20 20 ┆ ... lærer-vejledning til ┆
0x05a00…05c00 (2, 1, 7) DataBlock {»FLYTpgr«}
0x05c00…05c20 (2, 1, 8) 75 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 61 6c 65 74 0d 0a 2e 2e 2e 20 70 72 6f ┆undervisningsmaterialet ... pro┆
0x05c20…05c40 67 72 61 6d 2d 64 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 0d 0a 20 20 20 20 64 69 73 6b ┆gram-dokumentation for disk┆
0x05c40…05c60 65 74 74 65 6e 73 20 70 72 6f 67 72 61 6d 6d 65 72 0d 0a 0d 0a 0d 0a 20 20 20 20 45 4c 45 56 54 ┆ettens programmer ELEVT┆
0x05c60…05c80 45 4b 53 54 45 4e 3a 0d 0a 2e 2e 2e 20 74 65 6f 72 69 0d 0a 2e 2e 2e 20 6f 70 67 61 76 65 72 20 ┆EKSTEN: ... teori ... opgaver ┆
0x05c80…05ca0 20 20 20 20 28 65 65 6e 20 6c 7c 73 6e 69 6e 67 29 0d 0a 2e 2e 2e 20 70 72 6f 62 6c 65 6d 65 72 ┆ (een løsning) ... problemer┆
0x05ca0…05cc0 20 20 20 28 66 6c 65 72 65 20 6c 7c 73 6e 69 6e 67 65 72 29 0d 0a 2e 2e 2e 20 74 61 62 65 6c 6c ┆ (flere løsninger) ... tabell┆
0x05cc0…05ce0 65 72 0d 0a 2e 2e 2e 20 61 72 62 65 6a 64 73 61 72 6b 20 20 28 68 6a 7b 6c 70 20 74 69 6c 20 6c ┆er ... arbejdsark (hjælp til l┆
0x05ce0…05d00 7c 73 6e 69 6e 67 65 72 29 0d 0a 0d 0a 0d 0a 20 20 20 20 54 45 4b 4e 49 53 4b 20 54 49 4c 4c 5b ┆øsninger) TEKNISK TILLÆ┆
0x05d00…05d20 47 3a 0d 0a 2e 2e 2e 20 64 61 74 61 62 6c 61 64 20 66 6f 72 20 6c 79 73 70 61 6e 65 6c 0d 0a 2e ┆G: ... datablad for lyspanel .┆
0x05d20…05d40 2e 2e 20 74 69 6c 73 6c 75 74 6e 69 6e 67 20 61 66 20 6c 79 73 70 61 6e 65 6c 20 74 69 6c 20 0a ┆.. tilslutning af lyspanel til ┆
0x05d40…05d60 1f 1f 1f 1f 66 6f 72 73 6b 65 6c 6c 69 67 65 0d 0a 20 20 20 20 6d 69 63 72 6f 64 61 74 61 6d 61 ┆ forskellige microdatama┆
0x05d60…05d80 74 66 61 62 72 69 6b 61 74 65 72 0d 0a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆tfabrikater _________________┆
0x05d80…05da0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 44 ┆________________________ D┆
0x05da0…05dc0 49 53 4b 45 54 54 45 4e 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ISKETTEN: _____________________┆
0x05dc0…05de0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 20 20 20 20 44 69 ┆____________________ Di┆
0x05de0…05e00 73 6b 65 74 74 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 70 72 6f 67 72 61 6d 6d 65 72 20 0d 0a ┆sketten indeholder programmer ┆
0x05e00…06000 (2, 1, 9) DataBlock {»FLYTpgr«}
0x06000…06020 (3, 0, 1) 1f 1f 1f 1f 73 6b 72 65 76 65 74 20 69 20 43 4f 4d 41 4c 38 30 20 74 69 6c 3a 0d 0a 2e 2e 2e 20 ┆ skrevet i COMAL80 til: ... ┆
0x06020…06040 65 6c 65 76 62 72 75 67 20 76 65 64 20 6f 70 67 61 76 65 6c 7c 73 6e 69 6e 67 0d 0a 2e 2e 2e 20 ┆elevbrug ved opgaveløsning ... ┆
0x06040…06060 6c 7b 72 65 72 62 72 75 67 20 76 65 64 20 66 72 65 6d 73 74 69 6c 6c 69 6e 67 20 61 66 20 6f 70 ┆lærerbrug ved fremstilling af op┆
0x06060…06080 67 61 76 65 72 0d 0a 20 1f 1f 1f 70 7d 20 70 72 69 6e 74 65 72 2e 0d 0a 2e 2e 2e 20 6c 7c 73 6e ┆gaver på printer. ... løsn┆
0x06080…060a0 69 6e 67 73 65 6b 73 65 6d 70 6c 65 72 20 74 69 6c 20 61 6c 6c 65 20 0d 0a 20 1f 1f 1f 6f 70 67 ┆ingseksempler til alle opg┆
0x060a0…060c0 61 76 65 72 2f 70 72 6f 62 6c 65 6d 65 72 20 69 20 65 6c 65 76 74 65 6b 73 74 65 6e 0d 0a 0d 0a ┆aver/problemer i elevteksten ┆
0x060c0…060e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x060e0…06100 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 4c 59 53 50 41 4e 45 4c 45 54 3a 0d 0a 5f 5f 5f ┆_________ LYSPANELET: ___┆
0x06100…06120 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x06120…06140 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 4c 79 73 70 61 6e 65 6c 65 74 20 62 65 73 74 7d 72 20 61 66 ┆______ Lyspanelet består af┆
0x06140…06160 20 65 6e 20 62 6f 6b 73 20 6d 65 64 20 65 6e 20 0a 76 61 6e 64 72 65 74 20 72 7b 6b 6b 65 20 6d ┆ en boks med en vandret række m┆
0x06160…06180 65 64 20 38 20 6c 61 6d 70 65 72 2c 20 73 61 6d 74 20 34 20 0a 6c 79 73 6b 75 72 76 65 3a 20 54 ┆ed 8 lamper, samt 4 lyskurve: T┆
0x06180…061a0 6f 20 6d 65 64 20 20 33 20 6c 61 6d 70 65 72 20 28 72 7c 64 2d 67 75 6c 2d 67 72 7c 6e 29 20 0a ┆o med 3 lamper (rød-gul-grøn) ┆
0x061a0…061c0 6f 67 20 74 6f 20 6d 65 64 20 32 20 20 6c 61 6d 70 65 72 20 28 72 7c 64 2d 67 72 7c 6e 29 2e 20 ┆og to med 2 lamper (rød-grøn). ┆
0x061c0…061e0 20 20 0a 4c 61 6d 70 65 72 6e 65 20 6b 61 6e 20 73 74 79 72 65 73 20 66 72 61 20 6d 69 63 72 6f ┆ Lamperne kan styres fra micro┆
0x061e0…06200 80 64 61 74 61 6d 61 74 65 6e 20 0a 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 73 69 6d 70 6c 65 20 ┆ datamaten ved hjælp af simple ┆
0x06200…06220 (3, 0, 2) 6b 72 65 64 73 6c 7c 62 20 69 20 64 61 74 61 80 0a 6d 61 74 65 6e 2e 20 44 69 73 73 65 20 22 49 ┆kredsløb i data maten. Disse "I┆
0x06220…06240 4e 2f 4f 55 54 22 2d 6b 72 65 64 73 65 20 73 7c 72 67 65 72 20 66 6f 72 20 74 72 61 6e 73 80 6d ┆N/OUT"-kredse sørger for trans m┆
0x06240…06260 69 73 73 69 6f 6e 20 0a 61 66 20 64 61 74 61 20 69 6e 64 20 6f 67 20 75 64 20 61 66 20 64 61 74 ┆ission af data ind og ud af dat┆
0x06260…06280 61 6d 61 74 65 6e 2e 0d 0a 0d 0a 44 65 72 20 66 69 6e 64 65 73 20 74 6f 20 74 79 70 65 72 20 22 ┆amaten. Der findes to typer "┆
0x06280…062a0 49 4e 2f 4f 55 54 22 2d 6b 72 65 64 73 65 2e 20 45 6e 20 74 79 70 65 20 62 65 72 65 67 6e 65 74 ┆IN/OUT"-kredse. En type beregnet┆
0x062a0…062c0 20 0a 74 69 6c 20 b0 73 65 72 69 65 6c f0 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 2c 20 6f 67 20 ┆ til seriel transmission, og ┆
0x062c0…062e0 65 6e 20 74 69 6c 20 b0 70 61 72 61 6c 6c 65 6c f0 20 0a 19 80 82 80 74 72 61 6e 73 6d 69 73 73 ┆en til parallel transmiss┆
0x062e0…06300 69 6f 6e 2e 20 42 65 67 67 65 20 74 79 70 65 72 20 65 72 20 75 64 73 74 79 72 65 74 20 6d 65 64 ┆ion. Begge typer er udstyret med┆
0x06300…06320 20 6b 6f 6e 74 72 6f 6c 80 0a 19 80 82 80 6c 69 6e 69 65 72 2c 20 64 65 72 20 6b 61 6e 20 73 79 ┆ kontrol linier, der kan sy┆
0x06320…06340 6e 6b 72 6f 6e 69 73 65 72 65 20 64 61 74 61 6d 61 74 65 6e 73 20 64 61 74 61 62 65 68 61 6e 64 ┆nkronisere datamatens databehand┆
0x06340…06360 6c 69 6e 67 20 0a 19 80 82 80 6d 65 64 20 69 6e 64 2d 20 6f 67 20 75 64 67 7d 65 6e 64 65 20 64 ┆ling med ind- og udgående d┆
0x06360…06380 61 74 61 73 74 72 7c 6d 6d 65 2c 20 73 7d 6b 61 6c 64 74 20 22 68 61 6e 64 73 68 61 6b 65 22 20 ┆atastrømme, såkaldt "handshake" ┆
0x06380…063a0 0a 19 80 82 80 73 69 67 6e 61 6c 65 72 2e 0d 0a 0d 0a 22 49 4e 2f 4f 55 54 22 2d 6b 72 65 64 73 ┆ signaler. "IN/OUT"-kreds┆
0x063a0…063c0 65 6e 65 20 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 6d 65 64 20 74 6f 20 66 6f 72 73 ┆ene kan programmeres med to fors┆
0x063c0…063e0 6b 65 6c 6c 69 67 65 20 0a 66 6f 72 6d 7d 6c 20 3a 0d 0a 0d 0a 28 31 29 20 b0 4b 4f 4e 54 52 4f ┆kellige formål : (1) KONTRO┆
0x063e0…06400 4c f0 20 61 66 20 6b 72 65 64 73 65 6e 65 73 20 66 75 6e 6b 74 69 6f 6e 65 72 2c 20 6f 67 0d 0a ┆L af kredsenes funktioner, og ┆
0x06400…06420 (3, 0, 3) 70 72 6f 67 72 61 6d 6d 65 72 2c 20 68 65 72 20 20 0a 43 4f 4d 41 4c 38 30 2d 70 72 6f 67 72 61 ┆programmer, her COMAL80-progra┆
0x06420…06440 6d 6d 65 72 2c 20 76 69 61 20 65 6e 20 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 20 0a 6d 65 64 20 ┆mmer, via en parallelport med ┆
0x06440…06460 38 2d 31 30 20 62 69 74 2e 20 0d 0a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆8-10 bit. __________________┆
0x06460…06480 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0c 83 70 0a 0d 0a 0d ┆_______________________ p ┆
0x06480…064a0 0a 0d 0a b0 46 4f 52 4f 52 44 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ FORORD: ___________________┆
0x064a0…064c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 44 61 74 61 ┆______________________ Data┆
0x064c0…064e0 6d 61 73 6b 69 6e 65 72 20 61 6e 76 65 6e 64 65 73 20 74 69 6c 20 61 74 20 6c 7c 73 65 20 6d 61 ┆maskiner anvendes til at løse ma┆
0x064e0…06500 6e 67 65 20 0a 66 6f 72 73 6b 65 6c 6c 69 67 65 20 70 72 6f 62 6c 65 6d 65 72 20 69 20 73 61 6d ┆nge forskellige problemer i sam┆
0x06500…06520 66 75 6e 64 65 74 2e 20 4d 61 6e 20 0a 6b 61 6e 20 73 69 67 65 2c 20 61 74 20 64 65 72 20 65 72 ┆fundet. Man kan sige, at der er┆
0x06520…06540 20 74 61 6c 65 20 6f 6d 20 6d 69 6e 64 73 74 20 33 20 0a 70 72 69 6e 63 69 70 69 65 6c 74 20 66 ┆ tale om mindst 3 principielt f┆
0x06540…06560 6f 72 73 6b 65 6c 6c 69 67 65 20 61 6e 80 76 65 6e 80 64 65 6c 80 73 65 73 80 0a 6f 6d 72 7d 64 ┆orskellige an ven del ses områd┆
0x06560…06580 65 72 3a 0d 0a 0d 0a 0d 0a b0 28 31 29 20 20 41 44 4d 49 4e 49 53 54 52 41 54 49 4f 4e 0d 0a b0 ┆er: (1) ADMINISTRATION ┆
0x06580…065a0 28 32 29 20 20 41 55 54 4f 4d 41 54 49 53 45 52 49 4e 47 0d 0a b0 28 33 29 20 20 4b 4f 4d 4d 55 ┆(2) AUTOMATISERING (3) KOMMU┆
0x065a0…065c0 4e 49 4b 41 54 49 4f 4e 0d 0a 0d 0a 0d 0a 45 6d 6e 65 74 20 22 41 55 54 4f 4d 41 54 49 53 45 52 ┆NIKATION Emnet "AUTOMATISER┆
0x065c0…065e0 49 4e 47 22 20 6b 61 6e 20 64 65 6c 65 73 20 69 20 33 20 20 0a 64 65 6c 80 65 6d 6e 65 72 3a 0d ┆ING" kan deles i 3 del emner: ┆
0x065e0…06600 0a 0d 0a b0 28 41 29 20 20 53 54 59 52 49 4e 47 f0 20 20 20 20 20 28 64 61 74 61 20 75 64 20 61 ┆ (A) STYRING (data ud a┆
0x06600…06620 (3, 0, 4) 0d 0a 28 32 29 20 54 72 61 6e 73 6d 69 73 73 69 6f 6e 20 61 66 20 b0 44 41 54 41 f0 20 67 65 6e ┆ (2) Transmission af DATA gen┆
0x06620…06640 6e 65 6d 20 6b 72 65 64 73 65 6e 65 2e 0d 0a 0d 0a 49 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 6d ┆nem kredsene. I forbindelse m┆
0x06640…06660 65 64 20 75 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 61 6c 65 74 20 0d 0a 22 42 52 ┆ed undervisningsmaterialet "BR┆
0x06660…06680 55 47 20 50 5b 52 45 4e 22 20 6f 67 20 64 65 74 20 74 69 6c 68 7c 72 65 6e 64 65 20 4c 59 53 50 ┆UG PÆREN" og det tilhørende LYSP┆
0x06680…066a0 41 4e 45 4c 2c 20 62 65 6e 79 74 74 65 73 20 0a b0 50 41 52 41 4c 4c 45 4c 50 4f 52 54 45 4e 20 ┆ANEL, benyttes PARALLELPORTEN ┆
0x066a0…066c0 74 69 6c 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 61 66 20 64 61 74 61 20 75 64 20 61 66 20 6d ┆til transmission af data ud af m┆
0x066c0…066e0 69 63 72 6f 27 65 6e f0 20 0a 19 80 81 80 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d 0a 0d ┆icro'en til lyspanelet: ┆
0x066e0…06700 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d ┆ ┆
0x06700…06720 0a 0d 0a 0d 0a 48 76 69 73 20 76 69 20 67 7d 72 20 75 64 20 66 72 61 2c 20 61 74 20 4c 59 53 50 ┆ Hvis vi går ud fra, at LYSP┆
0x06720…06740 41 4e 45 4c 45 54 20 65 72 20 74 69 6c 73 6c 75 74 74 65 74 20 65 6e 0d 0a b0 38 20 42 49 54 53 ┆ANELET er tilsluttet en 8 BITS┆
0x06740…06760 20 50 41 52 41 4c 4c 45 4c 50 4f 52 54 f0 2c 20 73 7d 20 62 65 74 79 64 65 72 20 64 65 74 2c 20 ┆ PARALLELPORT , så betyder det, ┆
0x06760…06780 61 74 20 64 65 20 38 20 6c 61 6d 70 65 72 20 70 7d 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 ┆at de 8 lamper på lyspanele┆
0x06780…067a0 74 20 65 72 20 66 6f 72 62 75 6e 64 65 74 20 6d 65 64 20 6d 69 63 72 6f 64 61 74 61 6d 61 74 65 ┆t er forbundet med microdatamate┆
0x067a0…067c0 6e 20 6d 65 64 20 68 76 65 72 20 0a 19 80 81 80 73 69 6e 20 6c 65 64 6e 69 6e 67 20 73 61 6d 74 ┆n med hver sin ledning samt┆
0x067c0…067e0 20 65 6e 20 73 74 65 6c 66 6f 72 62 69 6e 64 65 6c 73 65 2e 20 44 69 73 73 65 20 38 20 6c 65 64 ┆ en stelforbindelse. Disse 8 led┆
0x067e0…06800 6e 69 6e 67 65 72 20 0a 19 80 81 80 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 74 69 6c ┆ninger kan programmeres til┆
0x06800…06820 (3, 0, 5) 66 20 6d 69 63 72 6f 27 65 6e 29 0d 0a b0 28 42 29 20 20 4d 5d 4c 49 4e 47 20 f0 20 20 20 20 20 ┆f micro'en) (B) MÅLING ┆
0x06820…06840 28 64 61 74 61 20 69 6e 64 20 69 20 6d 69 63 72 6f 27 65 6e 29 0d 0a b0 28 43 29 20 20 52 45 47 ┆(data ind i micro'en) (C) REG┆
0x06840…06860 55 4c 45 52 49 4e 47 20 f0 20 20 20 20 20 28 64 61 74 61 20 62 65 67 67 65 20 76 65 6a 65 29 0d ┆ULERING (data begge veje) ┆
0x06860…06880 0a 0d 0a 0d 0a 48 76 69 73 20 64 65 6c 65 6d 6e 65 74 20 b0 22 53 54 59 52 49 4e 47 22 f0 20 73 ┆ Hvis delemnet "STYRING" s┆
0x06880…068a0 6b 61 6c 20 62 65 68 61 6e 64 6c 65 73 20 69 20 0a 19 80 81 80 75 6e 64 65 72 76 69 73 6e 69 6e ┆kal behandles i undervisnin┆
0x068a0…068c0 67 65 6e 20 70 7d 20 65 6e 20 6b 6f 6e 6b 72 65 74 20 6f 67 20 76 69 72 6b 65 6c 69 67 80 0a 19 ┆gen på en konkret og virkelig ┆
0x068c0…068e0 80 81 80 68 65 64 73 6e 7b 72 20 6d 7d 64 65 2c 20 6b 72 7b 76 65 72 20 64 65 74 20 6e 61 74 75 ┆ hedsnær måde, kræver det natu┆
0x068e0…06900 72 6c 69 67 76 69 73 20 61 74 20 0a 19 80 81 80 65 6c 65 76 65 72 6e 65 20 68 61 72 20 6d 75 6c ┆rligvis at eleverne har mul┆
0x06900…06920 69 67 68 65 64 20 66 6f 72 20 73 65 6c 76 20 61 74 20 61 72 62 65 6a 64 65 20 0a 19 80 81 80 6d ┆ighed for selv at arbejde m┆
0x06920…06940 65 64 20 73 74 79 72 69 6e 67 20 61 66 20 65 74 20 73 79 73 74 65 6d 20 75 64 65 6e 66 6f 72 20 ┆ed styring af et system udenfor ┆
0x06940…06960 73 65 6c 76 65 20 0a 19 80 81 80 64 61 74 61 6d 61 73 6b 69 6e 65 6e 2e 20 44 65 74 20 6b 72 7b ┆selve datamaskinen. Det kræ┆
0x06960…06980 76 65 72 20 64 65 73 75 64 65 6e 20 69 6e 74 65 72 80 0a 19 80 81 80 66 61 63 65 80 75 64 73 74 ┆ver desuden inter face udst┆
0x06980…069a0 79 72 20 74 69 6c 20 73 61 6d 6d 65 6e 6b 6f 62 6c 69 6e 67 20 61 66 20 64 65 74 20 0a 19 80 81 ┆yr til sammenkobling af det ┆
0x069a0…069c0 80 65 6b 73 74 65 72 6e 65 20 75 64 73 74 79 72 20 6f 67 20 6d 69 63 72 6f 64 61 74 61 6d 61 74 ┆ eksterne udstyr og microdatamat┆
0x069c0…069e0 65 6e 2e 0d 0a 0d 0a 0d 0a 54 69 6c 20 22 42 52 55 47 20 50 5b 52 45 4e 22 20 68 7c 72 65 72 20 ┆en. Til "BRUG PÆREN" hører ┆
0x069e0…06a00 65 74 20 6c 79 73 70 61 6e 65 6c 20 6d 65 64 20 0a 73 6d 7d 20 70 7b 72 65 72 20 70 7d 20 66 72 ┆et lyspanel med små pærer på fr┆
0x06a00…06a20 (3, 0, 6) 20 61 74 20 68 61 76 65 20 65 6e 20 65 6c 65 6b 74 72 69 73 6b 20 73 70 7b 6e 64 69 6e 67 20 70 ┆ at have en elektrisk spænding p┆
0x06a20…06a40 7d 20 0a 19 80 81 80 68 2e 68 2e 76 2e 20 30 20 56 6f 6c 74 20 6f 67 20 63 61 2e 20 2b 34 20 56 ┆å h.h.v. 0 Volt og ca. +4 V┆
0x06a40…06a60 6f 6c 74 2e 20 44 65 72 20 65 72 20 6b 75 6e 20 64 69 73 73 65 20 74 6f 20 0a 19 80 81 80 6d 75 ┆olt. Der er kun disse to mu┆
0x06a60…06a80 6c 69 67 68 65 64 65 72 3a 20 b0 4c 41 56 f0 20 6f 67 20 b0 48 5c 4a f0 20 73 70 7b 6e 64 69 6e ┆ligheder: LAV og HØJ spændin┆
0x06a80…06aa0 67 2c 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 74 61 6c 6c 65 6e 65 20 0a 19 80 83 80 22 30 22 ┆g, svarende til tallene "0"┆
0x06aa0…06ac0 20 6f 67 20 22 31 22 20 69 20 64 65 74 20 62 69 6e 7b 72 65 20 74 61 6c 73 79 73 74 65 6d 2c 20 ┆ og "1" i det binære talsystem, ┆
0x06ac0…06ae0 74 6f 74 61 6c 73 79 73 74 65 6d 65 74 2e 0d 0a 0c 83 58 0a 0d 0a 0d 0a 0d 0a 5c 6e 73 6b 65 72 ┆totalsystemet. X Ønsker┆
0x06ae0…06b00 20 6d 61 6e 20 61 74 20 74 7b 6e 64 65 20 6f 67 20 73 6c 75 6b 6b 65 20 66 6f 72 20 6c 61 6d 70 ┆ man at tænde og slukke for lamp┆
0x06b00…06b20 65 72 6e 65 20 70 7d 20 0a 6c 79 73 70 61 6e 65 6c 65 74 2c 20 73 6b 61 6c 20 6d 61 6e 20 66 6f ┆erne på lyspanelet, skal man fo┆
0x06b20…06b40 72 65 73 74 69 6c 6c 65 20 73 69 67 20 68 76 65 72 20 6c 61 6d 70 65 20 0a 73 76 61 72 65 6e 64 ┆restille sig hver lampe svarend┆
0x06b40…06b60 65 20 74 69 6c 20 65 74 20 63 69 66 66 65 72 20 69 20 65 74 20 62 69 6e 7b 72 74 20 74 61 6c 2e ┆e til et ciffer i et binært tal.┆
0x06b60…06b80 20 48 76 69 73 20 76 69 20 66 6f 72 20 0a 65 6b 73 65 6d 70 65 6c 20 73 65 6e 64 65 72 20 64 65 ┆ Hvis vi for eksempel sender de┆
0x06b80…06ba0 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 31 37 34 20 74 69 6c 20 70 61 72 61 6c 6c 65 6c 80 ┆t decimale tal 174 til parallel ┆
0x06ba0…06bc0 0a 70 6f 72 74 65 6e 2c 20 76 69 6c 20 6c 61 6d 70 65 72 6e 65 20 6c 79 73 65 20 73 76 61 72 65 ┆ porten, vil lamperne lyse svare┆
0x06bc0…06be0 6e 64 65 20 74 69 6c 20 31 37 34 20 6f 6d 73 61 74 20 74 69 6c 20 0a 65 74 20 38 2d 63 69 66 72 ┆nde til 174 omsat til et 8-cifr┆
0x06be0…06c00 65 74 20 62 69 6e 7b 72 74 20 74 61 6c 3a 20 20 20 b0 31 30 31 30 31 31 31 30 f0 20 20 20 2c 68 ┆et binært tal: 10101110 ,h┆
0x06c00…06c20 (3, 0, 7) 6f 6e 74 70 6c 61 64 65 6e 2c 20 64 65 72 20 6b 61 6e 20 73 74 79 72 65 73 20 0a 6d 65 64 20 66 ┆ontpladen, der kan styres med f┆
0x06c20…06c40 2e 65 6b 73 2e 20 43 4f 4d 41 4c 38 30 2d 70 72 6f 67 72 61 6d 6d 65 72 2e 20 4c 79 73 70 61 6e ┆.eks. COMAL80-programmer. Lyspan┆
0x06c40…06c60 65 6c 65 74 20 0a 69 6e 64 65 68 6f 6c 64 65 72 20 64 65 73 75 64 65 6e 20 69 6e 74 65 72 66 61 ┆elet indeholder desuden interfa┆
0x06c60…06c80 63 65 20 74 69 6c 20 70 7b 72 65 72 6e 65 20 0a 73 7d 20 64 65 74 20 64 69 72 65 6b 74 65 20 6b ┆ce til pærerne så det direkte k┆
0x06c80…06ca0 61 6e 20 74 69 6c 73 6c 75 74 74 65 73 20 65 6e 20 6d 69 63 72 6f 80 0a 64 61 74 61 6d 61 74 2e ┆an tilsluttes en micro datamat.┆
0x06ca0…06cc0 0d 0a 0d 0a 0d 0a 55 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 61 6c 65 74 20 22 42 ┆ Undervisningsmaterialet "B┆
0x06cc0…06ce0 52 55 47 20 50 5b 52 45 4e 22 20 73 6b 61 6c 20 0a 64 65 72 66 6f 72 20 73 65 73 20 73 6f 6d 20 ┆RUG PÆREN" skal derfor ses som ┆
0x06ce0…06d00 65 6e 20 6d 75 6c 69 67 68 65 64 20 66 6f 72 2c 20 70 7d 20 65 6e 20 0a 73 69 6d 70 65 6c 20 6f ┆en mulighed for, på en simpel o┆
0x06d00…06d20 67 20 6b 6f 6e 6b 72 65 74 20 6d 7d 64 65 2c 20 61 74 20 62 65 68 61 6e 64 6c 65 20 65 6d 6e 65 ┆g konkret måde, at behandle emne┆
0x06d20…06d40 74 20 0a b0 22 53 54 59 52 49 4e 47 22 f0 20 69 20 64 65 6e 20 65 6c 65 6d 65 6e 74 7b 72 65 20 ┆t "STYRING" i den elementære ┆
0x06d40…06d60 64 61 74 61 6c 7b 72 65 80 0a 19 80 81 80 75 6e 64 65 72 76 69 73 80 6e 69 6e 67 2e 0d 0a 0d 0a ┆datalære undervis ning. ┆
0x06d60…06d80 0d 0a 55 64 65 6e 20 61 73 73 69 73 74 61 6e 63 65 20 66 72 61 20 6b 6f 6c 6c 65 67 65 72 2c 20 ┆ Uden assistance fra kolleger, ┆
0x06d80…06da0 69 20 66 6f 72 6d 20 61 66 20 20 0a 61 66 70 72 7c 76 6e 69 6e 67 2c 20 69 64 65 65 72 20 6f 67 ┆i form af afprøvning, ideer og┆
0x06da0…06dc0 20 6b 72 69 74 69 6b 2c 20 76 61 72 20 22 42 52 55 47 20 0a 50 5b 52 45 4e 22 20 69 6b 6b 65 20 ┆ kritik, var "BRUG PÆREN" ikke ┆
0x06dc0…06de0 62 6c 65 76 65 74 20 6c 61 76 65 74 2e 20 0d 0a 0d 0a 0d 0a 54 61 6b 20 66 6f 72 20 68 6a 7b 6c ┆blevet lavet. Tak for hjæl┆
0x06de0…06e00 70 65 6e 20 21 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pen ! ┆
0x06e00…06e20 (3, 0, 8) 76 6f 72 20 63 69 66 72 65 74 20 0a 19 80 81 80 6c 7b 6e 67 73 74 20 74 69 6c 20 68 7c 6a 72 65 ┆vor cifret længst til højre┆
0x06e20…06e40 20 65 72 20 42 49 54 28 30 29 2c 20 6f 67 20 63 69 66 72 65 74 20 6c 7b 6e 67 73 74 20 74 69 6c ┆ er BIT(0), og cifret længst til┆
0x06e40…06e60 20 0a 19 80 81 80 76 65 6e 73 74 72 65 20 65 72 20 42 49 54 28 37 29 2e 0d 0a 0d 0a 48 76 69 73 ┆ venstre er BIT(7). Hvis┆
0x06e60…06e80 20 6d 61 6e 20 7c 6e 73 6b 65 72 20 61 74 20 74 7b 6e 64 65 20 66 6f 72 20 65 6e 20 65 6e 6b 65 ┆ man ønsker at tænde for en enke┆
0x06e80…06ea0 6c 74 20 6c 61 6d 70 65 20 61 64 20 0a 67 61 6e 67 65 6e 2c 20 73 6b 61 6c 20 64 69 73 73 65 20 ┆lt lampe ad gangen, skal disse ┆
0x06ea0…06ec0 74 61 6c 20 62 65 6e 79 74 74 65 73 3a 0d 0a 0d 0a 0d 0a 0d 0a 42 49 54 3a 20 20 20 20 20 42 49 ┆tal benyttes: BIT: BI┆
0x06ec0…06ee0 4e 5b 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 43 49 4d 41 4c 3a 0d 0a 2d 2d 2d 2d ┆NÆR: DECIMAL: ----┆
0x06ee0…06f00 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d ┆--- --------------- -------┆
0x06f00…06f20 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 42 49 54 28 30 29 3a 20 20 30 20 30 20 30 20 30 20 30 20 30 20 ┆------- BIT(0): 0 0 0 0 0 0 ┆
0x06f20…06f40 30 20 31 20 20 3d 20 20 20 20 31 20 20 28 20 3d 20 32 5e 30 20 29 0d 0a 42 49 54 28 31 29 3a 20 ┆0 1 = 1 ( = 2^0 ) BIT(1): ┆
0x06f40…06f60 20 30 20 30 20 30 20 30 20 30 20 30 20 31 20 30 20 20 3d 20 20 20 20 32 20 20 28 20 3d 20 32 5e ┆ 0 0 0 0 0 0 1 0 = 2 ( = 2^┆
0x06f60…06f80 31 20 29 0d 0a 42 49 54 28 32 29 3a 20 20 30 20 30 20 30 20 30 20 30 20 31 20 30 20 30 20 20 3d ┆1 ) BIT(2): 0 0 0 0 0 1 0 0 =┆
0x06f80…06fa0 20 20 20 20 34 20 20 28 20 3d 20 32 5e 32 20 29 0d 0a 42 49 54 28 33 29 3a 20 20 30 20 30 20 30 ┆ 4 ( = 2^2 ) BIT(3): 0 0 0┆
0x06fa0…06fc0 20 30 20 31 20 30 20 30 20 30 20 20 3d 20 20 20 20 38 20 20 28 20 3d 20 32 5e 33 20 29 0d 0a 42 ┆ 0 1 0 0 0 = 8 ( = 2^3 ) B┆
0x06fc0…06fe0 49 54 28 34 29 3a 20 20 30 20 30 20 30 20 31 20 30 20 30 20 30 20 30 20 20 3d 20 20 20 31 36 20 ┆IT(4): 0 0 0 1 0 0 0 0 = 16 ┆
0x06fe0…07000 20 28 20 3d 20 32 5e 34 20 29 0d 0a 42 49 54 28 35 29 3a 20 20 30 20 30 20 31 20 30 20 30 20 30 ┆ ( = 2^4 ) BIT(5): 0 0 1 0 0 0┆
0x07000…07020 (3, 0, 9) 20 20 20 20 20 20 20 20 43 48 52 49 53 54 49 41 4e 20 57 41 4e 47 0d 0a 20 20 20 20 20 20 20 20 ┆ CHRISTIAN WANG ┆
0x07020…07040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 44 45 4e 53 45 20 31 39 38 ┆ ODENSE 198┆
0x07040…07060 33 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 ┆
0x07060…07080 20 20 20 31 2e 20 55 44 47 41 56 45 0d 0a 0c 84 80 0a 04 00 2d 4e 0a 00 06 00 00 00 00 02 14 49 ┆ 1. UDGAVE -N I┆
0x07080…070a0 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a ┆1@ ",6@J┆
0x070a0…070c0 54 5e 68 72 7c 86 90 9a a4 ff 04 04 00 2d 4e 0a 00 06 00 00 00 00 02 19 41 31 40 00 00 00 00 00 ┆T^hrø -N A1@ ┆
0x070c0…070e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1d 27 31 3b 45 4f 59 63 6d 77 81 8b 95 ┆ '1;EOYcmw ┆
0x070e0…07100 9f a9 ff 04 0a 0d 0a 0d 0a 0d 0a b0 50 52 49 4e 43 49 50 50 45 54 20 42 41 47 20 50 52 4f 47 52 ┆ PRINCIPPET BAG PROGR┆
0x07100…07120 41 4d 4d 45 52 49 4e 47 45 4e 20 41 46 20 4c 59 53 50 41 4e 45 4c 45 54 3a 20 0d 0a 5f 5f 5f 5f ┆AMMERINGEN AF LYSPANELET: ____┆
0x07120…07140 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x07140…07160 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 45 6e 68 76 65 72 20 6d 69 63 72 ┆_________________ Enhver micr┆
0x07160…07180 6f 64 61 74 61 6d 61 74 20 65 72 20 75 64 73 74 79 72 65 74 20 6d 65 64 20 73 74 69 6b 20 66 6f ┆odatamat er udstyret med stik fo┆
0x07180…071a0 72 20 0a 74 69 6c 6b 6f 62 6c 69 6e 67 20 61 66 20 66 6f 72 73 6b 65 6c 6c 69 67 74 20 75 64 73 ┆r tilkobling af forskelligt uds┆
0x071a0…071c0 74 79 72 3a 0d 0a 54 41 53 54 41 54 55 52 2c 20 50 52 49 4e 54 45 52 2c 20 53 4b 5b 52 4d 2c 20 ┆tyr: TASTATUR, PRINTER, SKÆRM, ┆
0x071c0…071e0 44 49 53 4b 53 54 41 54 49 4f 4e 2c 20 4d 4f 44 45 4d 2c 20 6d 2e 6d 2e 2e 0d 0a 0d 0a 53 74 69 ┆DISKSTATION, MODEM, m.m.. Sti┆
0x071e0…07200 6b 6b 65 6e 65 20 65 72 20 66 6f 72 62 75 6e 64 65 74 20 74 69 6c 20 22 49 4e 2f 4f 55 54 22 2d ┆kkene er forbundet til "IN/OUT"-┆
0x07200…07220 (3, 1, 1) 20 30 20 30 20 20 3d 20 20 20 33 32 20 20 28 20 3d 20 32 5e 35 20 29 0d 0a 42 49 54 28 36 29 3a ┆ 0 0 = 32 ( = 2^5 ) BIT(6):┆
0x07220…07240 20 20 30 20 31 20 30 20 30 20 30 20 30 20 30 20 30 20 20 3d 20 20 20 36 34 20 20 28 20 3d 20 32 ┆ 0 1 0 0 0 0 0 0 = 64 ( = 2┆
0x07240…07260 5e 36 20 29 0d 0a 42 49 54 28 37 29 3a 20 20 31 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 20 ┆^6 ) BIT(7): 1 0 0 0 0 0 0 0 ┆
0x07260…07280 3d 20 20 31 32 38 20 20 28 20 3d 20 32 5e 37 20 29 0d 0a 0d 0a 0d 0a 0d 0a 41 6c 6c 65 20 62 69 ┆= 128 ( = 2^7 ) Alle bi┆
0x07280…072a0 74 73 20 73 7b 74 74 65 73 20 22 48 5c 4a 45 22 20 76 65 64 20 61 74 20 73 65 6e 64 65 20 64 65 ┆ts sættes "HØJE" ved at sende de┆
0x072a0…072c0 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 0a 32 35 35 20 28 3d 31 32 38 2b 36 34 2b 33 32 2b ┆t decimale tal 255 (=128+64+32+┆
0x072c0…072e0 31 36 2b 38 2b 34 2b 32 2b 31 20 29 20 74 69 6c 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 65 6e 20 ┆16+8+4+2+1 ) til parallelporten ┆
0x072e0…07300 21 0d 0a 0d 0a 0d 0a 4d 65 64 20 68 65 6e 73 79 6e 20 74 69 6c 20 70 72 6f 67 72 61 6d 6d 65 72 ┆! Med hensyn til programmer┆
0x07300…07320 69 6e 67 20 61 66 20 6c 79 73 70 61 6e 65 6c 65 74 20 69 20 43 4f 4d 41 4c 38 30 20 0a 68 65 6e ┆ing af lyspanelet i COMAL80 hen┆
0x07320…07340 76 69 73 65 73 20 74 69 6c 20 61 66 73 6e 69 74 74 65 74 20 6d 65 64 20 70 72 6f 67 72 61 6d 64 ┆vises til afsnittet med programd┆
0x07340…07360 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 65 6e 20 69 20 0a 6c 7b 72 65 72 76 65 6a 6c 65 64 6e 69 6e ┆okumentationen i lærervejlednin┆
0x07360…07380 67 65 6e 2e 0d 0a 0c 82 b0 0a 0d 0a 0d 0a 0d 0a b0 50 52 49 4e 43 49 50 50 45 54 20 42 41 47 20 ┆gen. PRINCIPPET BAG ┆
0x07380…073a0 4c 59 53 50 41 4e 45 4c 45 54 53 20 56 49 52 4b 45 4d 5d 44 45 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f ┆LYSPANELETS VIRKEMÅDE: ________┆
0x073a0…073c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x073c0…073e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 53 6f 6d 20 6e 7b 76 6e 74 20 6c 65 76 ┆_____________ Som nævnt lev┆
0x073e0…07400 65 72 65 72 20 6d 69 63 72 6f 27 65 6e 20 75 64 67 61 6e 67 73 73 70 7b 6e 64 69 6e 67 65 72 20 ┆erer micro'en udgangsspændinger ┆
0x07400…07420 (3, 1, 2) 70 7d 20 65 6e 74 65 6e 20 0a 30 20 76 6f 6c 74 20 28 4c 41 56 20 73 70 7b 6e 64 69 6e 67 29 2c ┆på enten 0 volt (LAV spænding),┆
0x07420…07440 20 65 6c 6c 65 72 20 63 61 2e 20 2b 34 20 76 6f 6c 74 20 28 48 5c 4a 20 0a 73 70 7b 6e 64 69 6e ┆ eller ca. +4 volt (HØJ spændin┆
0x07440…07460 67 29 2e 20 53 74 72 7c 6d 73 74 79 72 6b 65 6e 20 70 7d 20 64 65 74 20 22 68 7c 6a 65 22 20 73 ┆g). Strømstyrken på det "høje" s┆
0x07460…07480 69 67 6e 61 6c 20 66 72 61 20 0a 70 61 72 61 6c 6c 65 6c 70 6f 72 74 65 6e 20 65 72 20 69 6d 69 ┆ignal fra parallelporten er imi┆
0x07480…074a0 64 6c 65 72 74 69 64 20 61 6c 74 20 66 6f 72 20 6c 69 6c 6c 65 20 74 69 6c 20 61 74 20 0a 74 7b ┆dlertid alt for lille til at tæ┆
0x074a0…074c0 6e 64 65 20 66 6f 72 20 65 6e 20 70 7b 72 65 20 64 69 72 65 6b 74 65 2e 20 53 69 67 6e 61 6c 65 ┆nde for en pære direkte. Signale┆
0x074c0…074e0 74 20 62 72 75 67 65 73 20 64 65 72 66 6f 72 20 6b 75 6e 20 0a 74 69 6c 20 61 74 20 74 7b 6e 64 ┆t bruges derfor kun til at tænd┆
0x074e0…07500 65 20 66 6f 72 20 65 6e 20 61 66 62 72 79 64 65 72 2c 20 65 74 20 65 6c 65 6b 74 72 6f 6e 69 73 ┆e for en afbryder, et elektronis┆
0x07500…07520 6b 20 72 65 6c 7b 2c 20 64 65 72 20 0a 7d 62 6e 65 72 20 66 6f 72 20 65 6e 20 65 6c 65 6b 74 72 ┆k relæ, der åbner for en elektr┆
0x07520…07540 69 73 6b 20 73 74 72 7c 6d 20 64 65 72 20 65 72 20 73 74 7b 72 6b 20 6e 6f 6b 20 74 69 6c 20 0a ┆isk strøm der er stærk nok til ┆
0x07540…07560 61 74 20 66 7d 20 70 7b 72 65 6e 20 74 69 6c 20 61 74 20 6c 79 73 65 2e 0d 0a 0d 0a 2d 2d 2d 2d ┆at få pæren til at lyse. ----┆
0x07560…07580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07580…075a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4e 7d 72 20 42 49 54 28 30 29 ┆------------------ Når BIT(0)┆
0x075a0…075c0 20 73 7b 74 74 65 73 20 4c 41 56 2c 20 66 6f 72 62 69 6e 64 65 72 20 72 65 6c 7b 65 74 20 22 4c ┆ sættes LAV, forbinder relæet "L┆
0x075c0…075e0 31 22 20 6d 65 64 20 20 20 20 20 20 0a 22 2b 31 32 20 76 6f 6c 74 22 2e 20 44 65 74 20 62 65 74 ┆1" med "+12 volt". Det bet┆
0x075e0…07600 79 64 65 72 2c 20 61 74 20 64 65 72 20 65 72 20 65 6e 20 65 6c 65 6b 74 72 69 73 6b 20 0a 73 70 ┆yder, at der er en elektrisk sp┆
0x07600…07780 (3, 1, 3) DataBlock {»PAUSE-AT.ID«}
0x07780…077a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x07800…07820 (3, 1, 4) 7b 6e 64 69 6e 67 20 70 7d 20 2b 31 32 20 76 6f 6c 74 20 70 7d 20 b0 62 65 67 67 65 f0 20 73 69 ┆ænding på +12 volt på begge si┆
0x07820…07840 64 65 72 20 61 66 20 70 7b 72 65 6e 2c 20 61 6c 74 73 7d 20 0a 19 80 81 80 69 6e 67 65 6e 20 73 ┆der af pæren, altså ingen s┆
0x07840…07860 70 7b 6e 64 69 6e 67 73 2d b0 66 6f 72 73 6b 65 6c f0 2c 20 6f 67 20 64 65 6e 20 6c 79 73 65 72 ┆pændings- forskel , og den lyser┆
0x07860…07880 20 64 65 72 66 6f 72 20 69 6b 6b 65 3a 20 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a ┆ derfor ikke: ┆
0x07880…078a0 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a b0 20 20 20 20 20 20 20 20 20 20 42 49 54 28 30 29 20 4c 41 ┆ BIT(0) LA┆
0x078a0…078c0 56 20 20 3d 20 20 42 49 54 28 30 29 2d 50 5b 52 45 4e 20 53 4c 55 4b 4b 45 54 20 21 21 0d 0a 0d ┆V = BIT(0)-PÆREN SLUKKET !! ┆
0x078c0…078e0 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x078e0…07900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4e 7d 72 20 42 ┆----------------------- Når B┆
0x07900…07920 49 54 28 30 29 20 73 7b 74 74 65 73 20 48 5c 4a 2c 20 66 6f 72 62 69 6e 64 65 72 20 72 65 6c 7b ┆IT(0) sættes HØJ, forbinder relæ┆
0x07920…07940 65 74 20 22 4c 31 22 20 6d 65 64 0a 22 30 20 76 6f 6c 74 22 2e 20 44 65 74 20 62 65 74 79 64 65 ┆et "L1" med "0 volt". Det betyde┆
0x07940…07960 72 2c 20 61 74 20 64 65 72 20 65 72 20 65 6e 20 73 70 7b 6e 64 69 6e 67 20 70 7d 20 30 20 76 6f ┆r, at der er en spænding på 0 vo┆
0x07960…07980 6c 74 20 0a 70 7d 20 64 65 6e 20 65 6e 65 20 73 69 64 65 20 61 66 20 70 7b 72 65 6e 2c 20 6f 67 ┆lt på den ene side af pæren, og┆
0x07980…079a0 20 65 6e 20 73 70 7b 6e 64 69 6e 67 20 70 7d 20 2b 36 20 76 6f 6c 74 20 70 7d 20 0a 64 65 6e 20 ┆ en spænding på +6 volt på den ┆
0x079a0…079c0 61 6e 64 65 6e 20 73 69 64 65 2c 20 6f 67 20 70 7b 72 65 6e 20 6c 79 73 65 72 20 64 65 72 66 6f ┆anden side, og pæren lyser derfo┆
0x079c0…079e0 72 3a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a ┆r: ┆
0x079e0…07a00 b0 20 20 20 20 20 20 20 20 20 20 42 49 54 28 30 29 20 48 5c 4a 20 20 3d 20 20 42 49 54 28 30 29 ┆ BIT(0) HØJ = BIT(0)┆
0x07a00…07c00 (3, 1, 5) 0xe5[0x200]
0x07c00…07c20 (3, 1, 6) 2d 50 5b 52 45 4e 20 54 5b 4e 44 54 20 21 21 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-PÆREN TÆNDT !! ------------┆
0x07c20…07c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07c40…07c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 41 6c 6c 65 20 6c 61 6d 70 65 72 20 70 7d 20 6c 79 73 ┆---------- Alle lamper på lys┆
0x07c60…07c80 70 61 6e 65 6c 65 74 20 74 7b 6e 64 65 72 20 6f 67 20 73 6c 75 6b 6b 65 72 20 65 66 74 65 72 20 ┆panelet tænder og slukker efter ┆
0x07c80…07ca0 0a 64 65 74 74 65 20 70 72 69 6e 63 69 70 2e 0d 0a 0c 84 80 0a 0d 0a 0d 0a 0d 0a b0 4c 5b 52 45 ┆ dette princip. LÆRE┆
0x07ca0…07cc0 52 2d 56 45 4a 4c 45 44 4e 49 4e 47 20 54 49 4c 20 55 4e 44 45 52 56 49 53 4e 49 4e 47 53 4d 41 ┆R-VEJLEDNING TIL UNDERVISNINGSMA┆
0x07cc0…07ce0 54 45 52 49 41 4c 45 54 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆TERIALET: _____________________┆
0x07ce0…07d00 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x07d00…07d20 0d 0a 0d 0a 0d 0a b0 46 6f 72 6d 7d 6c 65 74 20 6d 65 64 20 22 42 52 55 47 20 50 5b 52 45 4e 22 ┆ Formålet med "BRUG PÆREN"┆
0x07d20…07d40 20 3a 0d 0a 0d 0a b0 28 31 29 f0 3a 20 41 74 20 67 69 76 65 20 65 6c 65 76 65 72 6e 65 20 76 69 ┆ : (1) : At give eleverne vi┆
0x07d40…07d60 64 65 6e 20 6f 6d 20 6f 67 20 66 7b 72 64 69 67 68 65 64 65 72 20 69 20 0a 19 80 81 80 61 6e 76 ┆den om og færdigheder i anv┆
0x07d60…07d80 65 6e 64 65 6c 73 65 20 61 66 20 64 61 74 61 6d 61 73 6b 69 6e 65 6e 20 74 69 6c 20 73 74 79 72 ┆endelse af datamaskinen til styr┆
0x07d80…07da0 69 6e 67 20 61 66 20 65 6e 20 79 64 72 65 20 0a 19 80 81 80 65 6e 68 65 64 2e 0d 0a 0d 0a b0 28 ┆ing af en ydre enhed. (┆
0x07da0…07dc0 32 29 f0 3a 20 41 74 20 67 69 76 65 20 65 6c 65 76 65 72 6e 65 20 66 7b 72 64 69 67 68 65 64 65 ┆2) : At give eleverne færdighede┆
0x07dc0…07de0 72 20 69 20 61 74 20 6c 7c 73 65 20 73 69 6d 70 6c 65 20 0a 19 80 81 80 6b 6f 6e 6b 72 65 74 65 ┆r i at løse simple konkrete┆
0x07de0…07e00 20 70 72 6f 62 6c 65 6d 65 72 20 61 66 20 61 6c 67 6f 72 69 74 6d 69 73 6b 20 61 72 74 20 76 65 ┆ problemer af algoritmisk art ve┆
0x07e00…08000 (3, 1, 7) 0xe5[0x200]
0x08000…08020 (3, 1, 8) 64 20 68 6a 7b 6c 70 20 61 66 20 65 6e 20 0a 19 80 81 80 6d 69 63 72 6f 64 61 74 61 6d 61 74 2e ┆d hjælp af en microdatamat.┆
0x08020…08040 0d 0a 0d 0a b0 28 33 29 f0 3a 20 41 74 20 67 69 76 65 20 65 6c 65 76 65 72 6e 65 20 76 69 64 65 ┆ (3) : At give eleverne vide┆
0x08040…08060 6e 20 6f 6d 20 64 61 74 61 6d 61 73 6b 69 6e 65 6e 73 20 0a 19 80 81 80 70 72 69 6e 63 69 70 69 ┆n om datamaskinens principi┆
0x08060…08080 65 6c 6c 65 20 6f 70 62 79 67 6e 69 6e 67 20 6f 67 20 76 69 72 6b 65 6d 7d 64 65 2e 0d 0a 0d 0a ┆elle opbygning og virkemåde. ┆
0x08080…080a0 0d 0a b0 49 6e 64 68 6f 6c 64 3a 20 0d 0a 0d 0a 2e 2e 2e 2e 20 42 49 4e 5b 52 45 20 4f 47 20 44 ┆ Indhold: .... BINÆRE OG D┆
0x080a0…080c0 45 43 49 4d 41 4c 45 20 54 41 4c 0d 0a 2e 2e 2e 2e 20 41 53 43 49 49 2d 56 5b 52 44 49 45 52 0d ┆ECIMALE TAL .... ASCII-VÆRDIER ┆
0x080c0…080e0 0a 2e 2e 2e 2e 20 53 4b 52 49 46 54 2d 54 45 47 4e 0d 0a 2e 2e 2e 2e 20 46 55 4e 4b 54 49 4f 4e ┆ .... SKRIFT-TEGN .... FUNKTION┆
0x080e0…08100 53 2d 54 45 47 4e 20 28 46 55 4e 4b 54 49 4f 4e 53 2d 54 41 53 54 45 52 29 0d 0a 2e 2e 2e 2e 20 ┆S-TEGN (FUNKTIONS-TASTER) .... ┆
0x08100…08120 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 41 46 20 44 41 54 41 0d 0a 2e 2e 2e 2e 20 53 54 59 52 49 ┆TRANSMISSION AF DATA .... STYRI┆
0x08120…08140 4e 47 20 41 46 20 4c 59 53 50 41 4e 45 4c 45 54 20 28 22 54 5b 4e 44 22 2f 22 53 4c 55 4b 22 29 ┆NG AF LYSPANELET ("TÆND"/"SLUK")┆
0x08140…08160 0d 0a 2e 2e 2e 2e 20 22 50 41 55 53 45 22 0d 0a 2e 2e 2e 2e 20 22 42 4c 49 4e 4b 4c 59 53 22 0d ┆ .... "PAUSE" .... "BLINKLYS" ┆
0x08160…08180 0a 2e 2e 2e 2e 20 22 52 45 41 4b 54 49 4f 4e 53 54 49 44 22 0d 0a 2e 2e 2e 2e 20 22 46 59 52 22 ┆ .... "REAKTIONSTID" .... "FYR"┆
0x08180…081a0 0d 0a 2e 2e 2e 2e 20 22 4d 4f 52 53 45 22 0d 0a 2e 2e 2e 2e 20 22 4c 5c 42 45 4c 59 53 22 0d 0a ┆ .... "MORSE" .... "LØBELYS" ┆
0x081a0…081c0 2e 2e 2e 2e 20 22 54 5b 4c 4c 45 22 0d 0a 2e 2e 2e 2e 20 50 4f 52 54 45 0d 0a 2e 2e 2e 2e 20 49 ┆.... "TÆLLE" .... PORTE .... I┆
0x081c0…081e0 4e 54 45 52 46 41 43 45 0d 0a 2e 2e 2e 2e 20 22 54 52 41 46 49 4b 4c 59 53 22 0d 0a 0d 0a 0d 0a ┆NTERFACE .... "TRAFIKLYS" ┆
0x081e0…08200 b0 4e 7c 64 76 65 6e 64 69 67 74 20 75 64 73 74 79 72 20 74 69 6c 20 75 6e 64 65 72 76 69 73 6e ┆ Nødvendigt udstyr til undervisn┆
0x08200…08400 (3, 1, 9) 0xe5[0x200]
0x08400…08580 (4, 0, 1) DataBlock {»PAUSE-BT.ID«}
0x08580…085a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x08600…08620 (4, 0, 2) 83 70 0a 0d 0a 0d 0a 0d 0a 45 6c 65 76 65 72 6e 65 20 62 7c 72 20 69 6b 6b 65 20 73 69 64 64 65 ┆ p Eleverne bør ikke sidde┆
0x08620…08640 20 6f 67 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 76 65 64 20 64 61 74 61 80 6d 61 80 0a 73 6b 69 ┆ og programmere ved data ma ski┆
0x08640…08660 6e 65 72 6e 65 2e 20 50 72 6f 67 72 61 6d 6d 65 72 69 6e 67 73 61 72 62 65 6a 64 65 74 20 62 7c ┆nerne. Programmeringsarbejdet bø┆
0x08660…08680 72 20 66 6f 72 65 67 7d 20 69 20 67 72 75 70 70 65 72 20 0a 22 70 72 2e 20 68 7d 6e 64 6b 72 61 ┆r foregå i grupper "pr. håndkra┆
0x08680…086a0 66 74 22 2c 20 62 6c 2e 61 2e 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 61 72 80 62 65 6a 64 73 ┆ft", bl.a. ved hjælp af ar bejds┆
0x086a0…086c0 80 61 72 6b 65 6e 65 2c 20 64 65 72 20 0a 65 72 20 75 64 66 6f 72 6d 65 74 20 73 6f 6d 20 65 6e ┆ arkene, der er udformet som en┆
0x086c0…086e0 20 68 6a 7b 6c 70 20 74 69 6c 20 6f 70 73 74 69 6c 6c 69 6e 67 20 61 66 20 65 6e 20 73 74 72 75 ┆ hjælp til opstilling af en stru┆
0x086e0…08700 6b 80 0a 74 75 72 2f 61 6c 67 6f 72 69 74 6d 65 20 66 6f 72 20 6c 7c 73 6e 69 6e 67 65 6e 20 61 ┆k tur/algoritme for løsningen a┆
0x08700…08720 66 20 64 65 20 73 74 69 6c 6c 65 64 65 20 6f 70 67 61 80 0a 76 65 72 2f 70 72 6f 62 6c 65 6d 65 ┆f de stillede opga ver/probleme┆
0x08720…08740 72 2e 20 44 65 72 20 62 7c 72 20 66 6f 72 65 6c 69 67 67 65 20 65 6e 20 6b 6c 61 64 64 65 20 74 ┆r. Der bør foreligge en kladde t┆
0x08740…08760 69 6c 20 64 65 20 0a 66 6f 72 73 6b 65 6c 6c 69 67 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 66 7c ┆il de forskellige programmer fø┆
0x08760…08780 72 20 69 6e 64 74 61 73 74 6e 69 6e 67 65 6e 20 66 6f 72 65 74 61 67 65 73 2e 0d 0a 0d 0a 4c 69 ┆r indtastningen foretages. Li┆
0x08780…087a0 67 65 6c 65 64 65 73 20 62 7c 72 20 66 65 6a 6c 66 69 6e 64 69 6e 67 65 6e 20 6b 75 6e 20 69 20 ┆geledes bør fejlfindingen kun i ┆
0x087a0…087c0 73 7b 72 6c 69 67 65 20 74 69 6c 66 7b 6c 64 65 20 0a 74 69 6c 6c 61 64 65 73 20 76 65 64 20 64 ┆særlige tilfælde tillades ved d┆
0x087c0…087e0 61 74 61 6d 61 73 6b 69 6e 65 72 6e 65 2e 20 4e 6f 72 6d 61 6c 74 20 62 7c 72 20 66 65 6a 6c 66 ┆atamaskinerne. Normalt bør fejlf┆
0x087e0…08800 69 6e 64 69 6e 67 20 0a 66 6f 72 65 67 7d 20 69 20 67 72 75 70 70 65 72 6e 65 20 22 70 72 2e 20 ┆inding foregå i grupperne "pr. ┆
0x08800…08a00 (4, 0, 3) 0xe5[0x200]
0x08a00…08a20 (4, 0, 4) 68 7d 6e 64 6b 72 61 66 74 22 2e 0d 0a 0d 0a 44 65 74 20 65 72 20 64 65 72 66 6f 72 20 65 6e 20 ┆håndkraft". Det er derfor en ┆
0x08a20…08a40 66 6f 72 64 65 6c 20 68 76 69 73 20 65 6c 65 76 65 72 6e 65 20 6e 65 6d 74 20 6b 61 6e 20 6c 61 ┆fordel hvis eleverne nemt kan la┆
0x08a40…08a60 76 65 20 0a 70 72 69 6e 74 65 72 75 64 73 6b 72 69 66 74 65 72 20 61 66 20 70 72 6f 67 72 61 6d ┆ve printerudskrifter af program┆
0x08a60…08a80 6d 65 72 6e 65 2e 0d 0a 0c 81 08 0a 0d 0a 0d 0a 0d 0a b0 42 65 6d 7b 72 6b 6e 69 6e 67 65 72 20 ┆merne. Bemærkninger ┆
0x08a80…08aa0 74 69 6c 20 65 6c 65 76 74 65 6b 73 74 65 6e 3a 0d 0a 0d 0a 4f 70 67 61 76 65 20 31 3a 0d 0a 50 ┆til elevteksten: Opgave 1: P┆
0x08aa0…08ac0 72 6f 67 72 61 6d 6d 65 74 20 22 74 61 6c 22 20 67 69 76 65 72 20 65 6c 65 76 65 72 6e 65 20 6c ┆rogrammet "tal" giver eleverne l┆
0x08ac0…08ae0 65 6a 6c 69 67 68 65 64 20 74 69 6c 20 61 74 20 73 65 20 0a 68 76 6f 72 64 61 6e 20 64 65 63 69 ┆ejlighed til at se hvordan deci┆
0x08ae0…08b00 6d 61 6c 65 20 74 61 6c 20 6b 61 6e 20 62 72 75 67 65 73 20 74 69 6c 20 61 74 20 73 74 79 72 65 ┆male tal kan bruges til at styre┆
0x08b00…08b20 20 0a 6c 79 73 70 61 6e 65 6c 65 74 73 20 6c 61 6d 70 65 72 2e 20 4c 79 73 70 61 6e 65 6c 65 74 ┆ lyspanelets lamper. Lyspanelet┆
0x08b20…08b40 73 20 76 7b 6c 67 65 72 20 73 6b 61 6c 20 73 74 7d 20 70 7d 20 0a 22 42 49 54 53 22 20 21 0d 0a ┆s vælger skal stå på "BITS" ! ┆
0x08b40…08b60 0d 0a 4f 70 67 61 76 65 20 32 2c 20 33 2c 20 34 2c 20 6f 67 20 35 3a 0d 0a 44 69 73 73 65 20 6f ┆ Opgave 2, 3, 4, og 5: Disse o┆
0x08b60…08b80 70 67 61 76 65 72 20 73 6b 61 6c 20 67 65 6e 6e 65 6d 61 72 62 65 6a 64 65 73 20 73 65 6c 76 73 ┆pgaver skal gennemarbejdes selvs┆
0x08b80…08ba0 74 7b 6e 64 69 67 74 20 61 66 20 0a 65 6c 65 76 65 72 6e 65 2e 20 44 65 20 73 6b 61 6c 20 65 6b ┆tændigt af eleverne. De skal ek┆
0x08ba0…08bc0 73 70 65 72 69 6d 65 6e 74 65 72 65 20 73 69 67 20 66 72 65 6d 20 74 69 6c 20 0a 6c 7c 73 6e 69 ┆sperimentere sig frem til løsni┆
0x08bc0…08be0 6e 67 65 72 6e 65 2e 20 44 65 74 20 76 7b 73 65 6e 74 6c 69 67 65 20 76 65 64 20 61 72 62 65 6a ┆ngerne. Det væsentlige ved arbej┆
0x08be0…08c00 64 65 74 20 65 72 20 64 65 20 0a 64 69 73 6b 75 73 73 69 6f 6e 65 72 20 64 65 72 20 6f 70 73 74 ┆det er de diskussioner der opst┆
0x08c00…08e00 (4, 0, 5) 0xe5[0x200]
0x08e00…08e20 (4, 0, 6) 7d 72 20 6d 65 6c 6c 65 6d 20 65 6c 65 76 65 72 6e 65 2e 20 49 6b 6b 65 20 0a 6d 69 6e 64 73 74 ┆år mellem eleverne. Ikke mindst┆
0x08e20…08e40 20 69 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 6d 65 64 20 6f 70 67 61 76 65 20 35 2e 0d 0a 0d 0a ┆ i forbindelse med opgave 5. ┆
0x08e40…08e60 4f 70 67 61 76 65 20 36 3a 0d 0a 44 65 6e 6e 65 20 6f 70 67 61 76 65 20 6b 61 6e 20 75 64 76 69 ┆Opgave 6: Denne opgave kan udvi┆
0x08e60…08e80 64 65 73 20 6d 65 64 20 61 72 62 65 6a 64 73 61 72 6b 20 6e 72 2e 20 31 20 68 76 69 73 20 64 65 ┆des med arbejdsark nr. 1 hvis de┆
0x08e80…08ea0 74 20 0a 7c 6e 73 6b 65 73 2e 0d 0a 0d 0a 4f 70 67 61 76 65 20 37 3a 0d 0a 44 65 6e 6e 65 20 6f ┆t ønskes. Opgave 7: Denne o┆
0x08ea0…08ec0 70 67 61 76 65 20 65 72 20 69 64 65 6e 74 69 73 6b 20 6d 65 64 20 64 65 20 6f 70 67 61 76 65 72 ┆pgave er identisk med de opgaver┆
0x08ec0…08ee0 20 64 65 72 20 6b 61 6e 20 0a 75 64 73 6b 72 69 76 65 73 20 70 7d 20 70 72 69 6e 74 65 72 65 6e ┆ der kan udskrives på printeren┆
0x08ee0…08f00 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 74 20 0a 22 42 49 4e 44 45 ┆ ved hjælp af programmet "BINDE┆
0x08f00…08f20 43 6f 70 67 22 2e 20 50 72 6f 67 72 61 6d 6d 65 74 20 65 72 20 73 65 6c 76 69 6e 73 74 72 75 65 ┆Copg". Programmet er selvinstrue┆
0x08f20…08f40 72 65 6e 64 65 2c 20 6f 67 20 65 72 20 0a 6d 65 67 65 74 20 73 69 6d 70 65 6c 74 20 61 74 20 62 ┆rende, og er meget simpelt at b┆
0x08f40…08f60 72 75 67 65 2e 0d 0a 0d 0a 4f 70 67 61 76 65 20 38 3a 0d 0a 50 72 6f 67 72 61 6d 6d 65 74 20 22 ┆ruge. Opgave 8: Programmet "┆
0x08f60…08f80 74 61 73 74 65 72 22 20 67 69 76 65 72 20 65 6c 65 76 65 72 6e 65 20 6c 65 6a 6c 69 67 68 65 64 ┆taster" giver eleverne lejlighed┆
0x08f80…08fa0 20 74 69 6c 20 61 74 20 73 65 20 0a 68 76 6f 72 64 61 6e 20 64 65 72 20 65 72 20 6b 6e 79 74 74 ┆ til at se hvordan der er knytt┆
0x08fa0…08fc0 65 74 20 65 74 20 74 61 6c 20 74 69 6c 20 61 6c 6c 65 20 74 65 67 6e 2c 20 62 7d 64 65 20 0a 73 ┆et et tal til alle tegn, både s┆
0x08fc0…08fe0 6b 72 69 66 74 2d 74 65 67 6e 65 6e 65 20 6f 67 20 66 75 6e 6b 74 69 6f 6e 73 2d 74 65 67 6e 65 ┆krift-tegnene og funktions-tegne┆
0x08fe0…09000 6e 65 2e 0d 0a 0d 0a 4f 70 67 61 76 65 20 39 3a 0d 0a 53 69 64 65 20 39 20 6f 67 20 31 30 20 65 ┆ne. Opgave 9: Side 9 og 10 e┆
0x09000…09200 (4, 0, 7) 0xe5[0x200]
0x09200…09300 (4, 0, 8) DataBlock {»PAUSE-CT.ID1«}
0x09300…09320 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x09400…09420 (4, 0, 9) 69 6e 67 65 6e 3a 0d 0a 0d 0a 4d 69 6e 64 73 74 20 b0 45 4e f0 20 6d 69 63 72 6f 64 61 74 61 6d ┆ingen: Mindst EN microdatam┆
0x09420…09440 61 74 20 6d 65 64 20 65 6e 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 20 6d 65 64 20 6d 69 6e 64 73 ┆at med en parallelport med minds┆
0x09440…09460 74 20 0a 19 80 81 80 38 20 62 69 74 2c 20 6f 67 20 68 65 6c 73 74 20 31 30 20 62 69 74 2e 0d 0a ┆t 8 bit, og helst 10 bit. ┆
0x09460…09480 0d 0a 4d 69 63 72 6f 27 65 6e 2f 6d 69 63 72 6f 27 65 72 6e 65 20 62 7c 72 20 76 7b 72 65 20 75 ┆ Micro'en/micro'erne bør være u┆
0x09480…094a0 64 73 74 79 72 65 74 20 6d 65 64 20 65 6e 20 64 69 73 6b 65 74 74 65 80 0a 73 74 61 74 69 6f 6e ┆dstyret med en diskette station┆
0x094a0…094c0 2c 20 6f 67 20 65 6e 20 70 72 69 6e 74 65 72 2e 0d 0a 0d 0a 0d 0a b0 55 6e 64 65 72 76 69 73 6e ┆, og en printer. Undervisn┆
0x094c0…094e0 69 6e 67 65 6e 73 20 6f 72 67 61 6e 69 73 65 72 69 6e 67 3a 0d 0a 0d 0a 48 76 65 72 20 65 6c 65 ┆ingens organisering: Hver ele┆
0x094e0…09500 76 20 73 6b 61 6c 20 68 61 76 65 20 65 74 20 65 6b 73 65 6d 70 6c 61 72 20 61 66 20 65 6c 65 76 ┆v skal have et eksemplar af elev┆
0x09500…09520 74 65 6b 73 74 65 6e 2e 0d 0a 0d 0a 45 6c 65 76 2d 61 72 62 65 6a 64 73 61 72 6b 65 6e 65 20 62 ┆teksten. Elev-arbejdsarkene b┆
0x09520…09540 7c 72 20 66 6f 72 65 66 69 6e 64 65 73 20 69 20 6b 6c 61 73 73 65 6e 20 69 20 0a 65 74 20 74 69 ┆ør forefindes i klassen i et ti┆
0x09540…09560 6c 73 74 72 7b 6b 6b 65 6c 69 67 74 20 61 6e 74 61 6c 2c 20 74 69 6c 20 61 74 20 65 6c 65 76 65 ┆lstrækkeligt antal, til at eleve┆
0x09560…09580 72 6e 65 20 66 72 69 74 20 6b 61 6e 20 0a 62 65 6e 79 74 74 65 20 64 65 6d 20 6e 7d 72 20 64 65 ┆rne frit kan benytte dem når de┆
0x09580…095a0 20 68 61 72 20 6c 79 73 74 2e 0d 0a 0d 0a 45 6c 65 76 65 72 6e 65 20 62 7c 72 20 61 72 62 65 6a ┆ har lyst. Eleverne bør arbej┆
0x095a0…095c0 64 65 20 73 61 6d 6d 65 6e 20 74 6f 20 6f 67 20 74 6f 2c 20 65 6c 6c 65 72 20 69 20 6c 69 64 74 ┆de sammen to og to, eller i lidt┆
0x095c0…095e0 20 0a 73 74 7c 72 72 65 20 67 72 75 70 70 65 72 2e 20 0d 0a 0d 0a 48 76 65 72 20 67 72 75 70 70 ┆ større grupper. Hver grupp┆
0x095e0…09600 65 20 62 7c 72 20 68 61 76 65 20 73 69 6e 20 65 67 65 6e 20 64 69 73 6b 65 74 74 65 2e 0d 0a 0c ┆e bør have sin egen diskette. ┆
0x09600…09800 (4, 1, 1) 0xe5[0x200]
[…0x4…]
0x0a000…0a020 (4, 1, 6) 72 20 6f 70 62 79 67 67 65 74 20 73 7d 20 6d 61 6e 20 6b 61 6e 20 73 65 20 61 74 20 6d 61 6e 67 ┆r opbygget så man kan se at mang┆
0x0a020…0a040 65 20 61 66 20 0a 74 61 73 74 65 72 6e 65 20 70 7d 20 74 61 73 74 61 74 75 72 65 74 20 68 61 72 ┆e af tasterne på tastaturet har┆
0x0a040…0a060 20 32 20 65 6c 6c 65 72 20 33 20 66 75 6e 6b 74 69 6f 6e 65 72 2e 20 48 76 69 73 20 0a 64 65 72 ┆ 2 eller 3 funktioner. Hvis der┆
0x0a060…0a080 20 61 72 62 65 6a 64 65 73 20 6d 65 64 20 65 74 20 75 64 76 69 64 65 74 20 74 61 73 74 61 74 75 ┆ arbejdes med et udvidet tastatu┆
0x0a080…0a0a0 72 2c 20 6b 61 6e 20 64 65 20 73 70 65 63 69 65 6c 6c 65 20 0a 74 61 73 74 65 72 20 65 76 74 2e ┆r, kan de specielle taster evt.┆
0x0a0a0…0a0c0 20 75 6e 64 65 72 73 7c 67 65 73 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 61 72 62 65 6a 64 73 ┆ undersøges ved hjælp af arbejds┆
0x0a0c0…0a0e0 61 72 6b 20 6e 72 2e 20 33 2c 20 0a 64 65 72 20 69 20 7c 76 72 69 67 74 20 6b 61 6e 20 62 72 75 ┆ark nr. 3, der i øvrigt kan bru┆
0x0a0e0…0a100 67 65 73 20 68 76 69 73 20 64 65 72 20 73 6b 61 6c 20 75 6e 64 65 72 73 7c 67 65 73 20 66 6c 65 ┆ges hvis der skal undersøges fle┆
0x0a100…0a120 72 65 20 0a 74 61 73 74 65 72 20 65 6e 64 20 64 65 72 20 65 72 20 6d 75 6c 69 67 68 65 64 20 66 ┆re taster end der er mulighed f┆
0x0a120…0a140 6f 72 20 70 7d 20 73 69 64 65 20 39 20 6f 67 20 31 30 2e 0d 0a 0d 0a 53 69 64 65 20 31 32 20 6f ┆or på side 9 og 10. Side 12 o┆
0x0a140…0a160 67 20 31 33 3a 0d 0a 54 61 62 65 6c 6c 65 72 6e 65 20 70 7d 20 64 69 73 73 65 20 74 6f 20 73 69 ┆g 13: Tabellerne på disse to si┆
0x0a160…0a180 64 65 72 20 6b 61 6e 20 73 6b 72 69 76 65 73 20 75 64 20 70 7d 20 0a 70 72 69 6e 74 65 72 65 6e ┆der kan skrives ud på printeren┆
0x0a180…0a1a0 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 72 6e 65 20 22 53 4b 52 49 ┆ ved hjælp af programmerne "SKRI┆
0x0a1a0…0a1c0 46 54 74 65 67 6e 22 20 6f 67 20 0a 22 46 55 4e 4b 54 74 65 67 6e 22 2e 0d 0a 0c 82 e8 0a 0d 0a ┆FTtegn" og "FUNKTtegn". ┆
0x0a1c0…0a1e0 0d 0a 0d 0a b0 42 65 6d 7b 72 6b 6e 69 6e 67 65 72 20 74 69 6c 20 65 6c 65 76 2d 61 72 62 65 6a ┆ Bemærkninger til elev-arbej┆
0x0a1e0…0a200 64 73 61 72 6b 65 6e 65 3a 0d 0a 0d 0a 0c 80 a8 0a 0d 0a 0d 0a 0d 0a b0 b0 50 52 4f 42 4c 45 4d ┆dsarkene: PROBLEM┆
0x0a200…0a380 (4, 1, 7) DataBlock {»PAUSE-CT.ID2«}
0x0a380…0a3a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x0a400…0a420 (4, 1, 8) 20 20 22 54 5b 4e 44 22 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 7b 6e 64 22 0d 0a ┆ "TÆND": 0010 // "tænd" ┆
0x0a420…0a440 b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 ┆ 0020 OPEN FILE 1,"/17/PORT", WR┆
0x0a440…0a460 49 54 45 20 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 ┆ITE 0030 PRINT FILE 1: CHR$(2┆
0x0a460…0a480 35 35 29 3b 0d 0a b0 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 30 35 30 20 ┆55); 0040 CLOSE FILE 1 0050 ┆
0x0a480…0a4a0 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 3a f0 20 44 61 74 61 73 74 72 7c 6d 20 6e 75 6d 6d 65 72 ┆END 0020: Datastrøm nummer┆
0x0a4a0…0a4c0 20 31 20 7d 62 6e 65 73 20 74 69 6c 20 70 6f 72 74 20 31 37 20 66 6f 72 20 73 6b 72 69 76 80 0a ┆ 1 åbnes til port 17 for skriv ┆
0x0a4c0…0a4e0 19 80 81 80 6e 69 6e 67 20 28 57 52 49 54 45 29 2e 20 44 2e 76 2e 73 2e 20 61 74 20 64 61 74 61 ┆ ning (WRITE). D.v.s. at data┆
0x0a4e0…0a500 20 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 20 62 6c 69 76 65 72 20 0a 19 80 81 80 73 65 6e 64 ┆ til lyspanelet bliver send┆
0x0a500…0a520 74 20 74 69 6c 20 70 6f 72 74 20 31 37 20 76 69 61 20 64 61 74 61 73 74 72 7c 6d 20 6e 72 2e 20 ┆t til port 17 via datastrøm nr. ┆
0x0a520…0a540 31 2e 0d 0a 0d 0a b0 30 30 33 30 3a f0 20 43 48 52 24 28 32 35 35 29 20 73 65 6e 64 65 73 20 76 ┆1. 0030: CHR$(255) sendes v┆
0x0a540…0a560 69 61 20 73 74 72 7c 6d 20 6e 72 2e 31 20 74 69 6c 20 70 6f 72 74 20 31 37 2e 20 0a 19 80 81 80 ┆ia strøm nr.1 til port 17. ┆
0x0a560…0a580 53 7b 74 6e 69 6e 67 65 6e 20 53 4b 41 4c 20 61 66 73 6c 75 74 74 65 73 20 6d 65 64 20 22 3b 22 ┆Sætningen SKAL afsluttes med ";"┆
0x0a580…0a5a0 2c 20 64 61 20 64 65 72 20 65 6c 6c 65 72 73 20 76 69 6c 20 0a 19 80 81 80 62 6c 69 76 65 20 73 ┆, da der ellers vil blive s┆
0x0a5a0…0a5c0 65 6e 64 74 20 65 6e 20 6b 61 72 61 6b 74 65 72 2d 22 76 6f 67 6e 72 65 74 75 72 22 2c 20 64 2e ┆endt en karakter-"vognretur", d.┆
0x0a5c0…0a5e0 76 2e 73 2e 20 63 68 72 24 28 31 33 29 20 0a 19 80 81 80 75 6d 69 64 64 65 6c 62 61 72 74 20 65 ┆v.s. chr$(13) umiddelbart e┆
0x0a5e0…0a600 66 74 65 72 2e 20 43 48 52 24 28 32 35 35 29 2c 20 62 69 6e 7b 72 74 20 31 31 31 31 31 31 31 31 ┆fter. CHR$(255), binært 11111111┆
0x0a600…0a800 (4, 1, 9) 0xe5[0x200]
0x0a800…0a820 (5, 0, 1) 2c 20 62 6c 69 76 65 72 20 0a 19 80 81 80 73 65 6e 64 74 20 75 64 20 61 66 20 70 6f 72 74 65 6e ┆, bliver sendt ud af porten┆
0x0a820…0a840 2c 20 73 7d 20 61 6c 6c 65 20 38 20 62 69 74 20 67 7d 72 20 48 5c 4a 2c 20 6f 67 20 61 6c 6c 65 ┆, så alle 8 bit går HØJ, og alle┆
0x0a840…0a860 20 38 20 0a 19 80 81 80 6c 61 6d 70 65 72 20 74 7b 6e 64 65 73 2e 0d 0a 0d 0a b0 30 30 34 30 3a ┆ 8 lamper tændes. 0040:┆
0x0a860…0a880 f0 20 44 61 74 61 73 74 72 7c 6d 20 6e 72 2e 31 20 6c 75 6b 6b 65 73 2e 20 48 76 69 73 20 64 65 ┆ Datastrøm nr.1 lukkes. Hvis de┆
0x0a880…0a8a0 74 74 65 20 69 6b 6b 65 20 62 6c 69 76 65 72 20 0a 19 80 81 80 67 6a 6f 72 74 2c 20 76 69 6c 20 ┆tte ikke bliver gjort, vil ┆
0x0a8a0…0a8c0 64 65 72 20 6f 70 73 74 7d 20 6b 7c 72 73 65 6c 73 66 65 6a 6c 20 6e 7b 73 74 65 20 67 61 6e 67 ┆der opstå kørselsfejl næste gang┆
0x0a8c0…0a8e0 20 70 72 6f 67 72 61 6d 6d 65 74 20 0a 19 80 81 80 73 74 61 72 74 65 73 3a 20 4e 7d 72 20 73 7b ┆ programmet startes: Når sæ┆
0x0a8e0…0a900 74 6e 69 6e 67 20 32 30 20 70 72 7c 76 65 72 20 61 74 20 7d 62 6e 65 20 64 61 74 61 73 74 72 7c ┆tning 20 prøver at åbne datastrø┆
0x0a900…0a920 6d 6d 65 6e 2c 20 0a 19 80 81 80 64 65 72 20 76 69 6c 20 76 7b 72 65 20 7d 62 65 6e 20 69 20 66 ┆mmen, der vil være åben i f┆
0x0a920…0a940 6f 72 76 65 6a 65 6e 2c 20 6f 67 20 64 65 72 20 76 69 6c 20 6b 6f 6d 6d 65 20 65 6e 20 0a 19 80 ┆orvejen, og der vil komme en ┆
0x0a940…0a960 81 80 66 65 6a 6c 6d 65 64 64 65 6c 65 6c 73 65 2e 20 49 20 64 65 74 74 65 20 74 69 6c 66 7b 6c ┆ fejlmeddelelse. I dette tilfæl┆
0x0a960…0a980 64 65 20 6c 75 6b 6b 65 73 20 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 0a 19 80 81 80 6d 65 64 20 ┆de lukkes datastrømmen med ┆
0x0a980…0a9a0 6b 6f 6d 61 6e 64 6f 65 6e 20 b0 43 4c 4f 53 45 f0 2e 0d 0a 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆komandoen CLOSE . --------┆
0x0a9a0…0a9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a9c0…0a9e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 53 4c ┆-------------- PROBLEM "SL┆
0x0a9e0…0aa00 55 4b 22 3a 0d 0a 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 73 6c 75 6b 22 0d 0a 30 30 32 30 ┆UK": 0010 // "sluk" 0020┆
0x0aa00…0ac00 (5, 0, 2) DataBlock {»LÆRER.WPB«}
0x0ac00…0ac20 (5, 0, 3) 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d ┆ OPEN FILE 1,"/17/PORT", WRITE ┆
0x0ac20…0ac40 0a 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 b0 30 f0 29 3b 0d 0a ┆ 0030 PRINT FILE 1: CHR$( 0 ); ┆
0x0ac40…0ac60 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 30 35 30 20 45 4e 44 20 0d 0a 0d 0a ┆0040 CLOSE FILE 1 0050 END ┆
0x0ac60…0ac80 b0 30 30 33 30 3a f0 20 48 65 72 20 73 65 6e 64 65 73 20 43 48 52 24 28 30 29 2c 20 62 69 6e 7b ┆ 0030: Her sendes CHR$(0), binæ┆
0x0ac80…0aca0 72 74 20 30 30 30 30 30 30 30 30 2c 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 ┆rt 00000000, til lyspanelet┆
0x0aca0…0acc0 2c 20 6f 67 20 61 6c 6c 65 20 62 69 74 73 20 67 7d 72 20 4c 41 56 2c 20 68 76 6f 72 66 6f 72 20 ┆, og alle bits går LAV, hvorfor ┆
0x0acc0…0ace0 61 6c 6c 65 20 6c 61 6d 70 65 72 20 0a 19 80 81 80 73 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a b0 4e 42 ┆alle lamper slukkes. NB┆
0x0ace0…0ad00 3a f0 20 50 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 64 65 6e 20 7d 62 6e 65 20 64 61 74 61 73 74 ┆: Problemet med den åbne datast┆
0x0ad00…0ad20 72 7c 6d 20 6b 61 6e 20 6c 7c 73 65 73 20 70 7d 20 65 6e 20 0a 6e 65 6d 20 6d 7d 64 65 2c 20 73 ┆røm kan løses på en nem måde, s┆
0x0ad20…0ad40 65 6c 76 6f 6d 20 6d 65 74 6f 64 65 6e 20 6b 61 6e 20 6b 61 72 61 6b 74 65 72 69 73 65 72 65 73 ┆elvom metoden kan karakteriseres┆
0x0ad40…0ad60 20 73 6f 6d 20 22 65 6e 20 0a 64 7d 72 6c 69 67 20 76 61 6e 65 22 20 69 20 70 72 6f 67 72 61 6d ┆ som "en dårlig vane" i program┆
0x0ad60…0ad80 6d 65 72 69 6e 67 73 6d 7b 73 73 69 67 20 68 65 6e 73 65 65 6e 64 65 2e 20 48 76 69 73 20 0a 61 ┆meringsmæssig henseende. Hvis a┆
0x0ad80…0ada0 6c 6c 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 69 6e 64 6c 65 64 65 73 20 6d 65 64 20 20 65 6e 20 ┆lle programmer indledes med en ┆
0x0ada0…0adc0 43 4c 4f 53 45 2d 73 7b 74 6e 69 6e 67 2c 20 76 69 6c 20 0a 70 72 6f 67 72 61 6d 6d 65 72 6e 65 ┆CLOSE-sætning, vil programmerne┆
0x0adc0…0ade0 20 73 74 61 72 74 65 20 6d 65 64 20 61 74 20 6c 75 6b 6b 65 20 61 6c 6c 65 20 64 61 74 61 73 74 ┆ starte med at lukke alle datast┆
0x0ade0…0ae00 72 7c 6d 6d 65 20 64 65 72 20 0a 6d 7d 74 74 65 20 73 74 7d 20 7d 62 6e 65 20 69 20 66 6f 72 76 ┆rømme der måtte stå åbne i forv┆
0x0ae00…0b000 (5, 0, 4) DataBlock {»LÆRER.WPB«}
[…0x2a…]
0x10400…10600 (7, 1, 2) DataBlock {»LÆRER.WP«}
[…0x2b…]
0x15c00…15e00 (10, 0, 1) DataBlock {»LØB-A1«}
0x15e00…16000 (10, 0, 2) 0xe5[0x200]
0x16000…16100 (10, 0, 3) DataBlock {»LØB-A1«}
0x16100…16120 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x16200…16400 (10, 0, 4) 0xe5[0x200]
[…0x3…]
0x16a00…16c00 (10, 0, 8) DataBlock {»LØB-B«}
0x16c00…16d80 (10, 0, 9) DataBlock {»LØB-A2«}
0x16d80…16da0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x16e00…17000 (10, 1, 1) 0xe5[0x200]
[…0x4…]
0x17800…17a00 (10, 1, 6) DataBlock {»LØB-D«}
0x17a00…17c00 (10, 1, 7) DataBlock {»LØB-C«}
0x17c00…17c80 (10, 1, 8) DataBlock {»LØB-D«}
0x17c80…17ca0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x17e00…17e80 (10, 1, 9) DataBlock {»LØB-C«}
0x17e80…17ea0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x18000…18200 (11, 0, 1) 0xe5[0x200]
[…0x2…]
0x18600…18800 (11, 0, 4) DataBlock {»LØB-E2«}
0x18800…18a00 (11, 0, 5) DataBlock {»LØB-E1«}
0x18a00…18b00 (11, 0, 6) DataBlock {»LØB-E2«}
0x18b00…18b20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x18c00…18c80 (11, 0, 7) DataBlock {»LØB-E1«}
0x18c80…18ca0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x18e00…19000 (11, 0, 8) 0xe5[0x200]
[…0x2…]
0x19400…19600 (11, 1, 2) DataBlock {»LØB-E4«}
0x19600…19800 (11, 1, 3) DataBlock {»LØB-E3«}
0x19800…19880 (11, 1, 4) DataBlock {»LØB-E4«}
0x19880…198a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x19a00…19a80 (11, 1, 5) DataBlock {»LØB-E3«}
0x19a80…19aa0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x19c00…19e00 (11, 1, 6) 0xe5[0x200]
[…0x3…]
0x1a400…1a600 (12, 0, 1) DataBlock {»LØB-E5«}
0x1a600…1a780 (12, 0, 2) DataBlock {»LØB-F«}
0x1a780…1a7a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x1a800…1a880 (12, 0, 3) DataBlock {»LØB-E5«}
0x1a880…1a8a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x1aa00…1ac00 (12, 0, 4) 0xe5[0x200]
[…0x3…]
0x1b200…1b400 (12, 0, 8) DataBlock {»LØB-G1«}
0x1b400…1b600 (12, 0, 9) DataBlock {»LØB-F«}
0x1b600…1b800 (12, 1, 1) DataBlock {»LØB-G1«}
0x1b800…1b880 (12, 1, 2) DataBlock {»LØB-G2«}
0x1b880…1b8a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x1ba00…1ba80 (12, 1, 3) DataBlock {»LØB-G1«}
0x1ba80…1baa0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x1bc00…1be00 (12, 1, 4) 0xe5[0x200]
[…0x1…]
0x1c000…1c200 (12, 1, 6) DataBlock {»LØB-G3«}
0x1c200…1c400 (12, 1, 7) DataBlock {»LØB-G2«}
0x1c400…1c600 (12, 1, 8) DataBlock {»LØB-G3«}
0x1c600…1c800 (12, 1, 9) DataBlock {»LØB-G2«}
0x1c800…1c880 (13, 0, 1) DataBlock {»LØB-G3«}
0x1c880…1c8a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x1ca00…1cc00 (13, 0, 2) 0xe5[0x200]
[…0x1…]
0x1ce00…1d000 (13, 0, 4) DataBlock {»TÆLLE-B«}
0x1d000…1d180 (13, 0, 5) DataBlock {»TÆLLE-A«}
0x1d180…1d1a0 4e 44 50 52 4f 43 00 20 70 61 75 73 65 00 0d 0a 19 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆NDPROC pause ┆
0x1d1a0…1d1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x1d200…1d400 (13, 0, 6) 0xe5[0x200]
[…0x4…]
0x1dc00…1de00 (13, 1, 2) DataBlock {»BLINK-A/.B«}
0x1de00…1e000 (13, 1, 3) DataBlock {»BLINK-0/.7«}
0x1e000…1e200 (13, 1, 4) 0xe5[0x200]
[…0x5…]
0x1ec00…1ed00 (14, 0, 1) DataBlock {»TÆND10«}
0x1ed00…1ed20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x1ee00…1f000 (14, 0, 2) 0xe5[0x200]
[…0x5…]
0x1fa00…1fa20 (14, 0, 8) 65 6a 65 6e 2e 20 44 65 72 65 66 74 65 72 20 6b 61 6e 20 4f 50 45 4e 2d 0a 73 7b 74 6e 69 6e 67 ┆ejen. Derefter kan OPEN- sætning┆
0x1fa20…1fa40 65 72 6e 65 20 75 64 66 7c 72 65 73 20 75 64 65 6e 20 70 72 6f 62 6c 65 6d 65 72 21 0d 0a 0d 0a ┆erne udføres uden problemer! ┆
0x1fa40…1fa60 44 65 74 20 6d 7d 20 76 7b 72 65 20 6f 70 20 74 69 6c 20 64 65 6e 20 65 6e 6b 65 6c 74 65 20 6c ┆Det må være op til den enkelte l┆
0x1fa60…1fa80 7b 72 65 72 20 61 74 20 76 75 72 64 65 72 65 20 6f 6d 20 64 65 74 20 0a 65 72 20 4f 4b 20 61 74 ┆ærer at vurdere om det er OK at┆
0x1fa80…1faa0 20 6c 7b 72 65 20 65 6c 65 76 65 72 6e 65 20 64 65 74 74 65 20 22 66 69 66 22 2e 20 50 7b 64 61 ┆ lære eleverne dette "fif". Pæda┆
0x1faa0…1fac0 67 6f 67 69 73 6b 20 73 65 74 20 6d 7d 20 0a 64 65 74 20 76 7b 72 65 20 69 20 6f 72 64 65 6e 2e ┆gogisk set må det være i orden.┆
0x1fac0…1fae0 20 50 72 6f 67 72 61 6d 6d 65 72 69 6e 67 73 6d 7b 73 73 69 67 74 20 65 72 20 6d 65 74 6f 64 65 ┆ Programmeringsmæssigt er metode┆
0x1fae0…1fb00 6e 20 73 6f 6d 20 0a 73 61 67 74 20 6c 69 64 74 20 22 75 6c 64 65 6e 22 2e 0d 0a 0d 0a 2d 2d 2d ┆n som sagt lidt "ulden". ---┆
0x1fb00…1fb20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1fb20…1fb40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 70 0a 0d 0a 0d 0a 0d 0a b0 ┆------------------- p ┆
0x1fb40…1fb60 50 52 4f 42 4c 45 4d 20 20 22 50 41 55 53 45 22 3a 0d 0a 0d 0a 0d 0a 44 65 6e 20 73 69 6d 70 6c ┆PROBLEM "PAUSE": Den simpl┆
0x1fb60…1fb80 65 73 74 65 20 6d 7d 64 65 20 61 74 20 6c 61 76 65 20 65 6e 20 70 61 75 73 65 20 70 7d 20 65 72 ┆este måde at lave en pause på er┆
0x1fb80…1fba0 20 65 6e 20 52 45 50 45 41 54 2f 20 0a 55 4e 54 49 4c 2d 6c 7c 6b 6b 65 20 6d 65 64 20 65 6e 20 ┆ en REPEAT/ UNTIL-løkke med en ┆
0x1fba0…1fbc0 74 7b 6c 6c 65 72 20 74 69 6c 20 61 74 20 66 61 73 74 6c 7b 67 67 65 20 70 61 75 73 65 6e 73 20 ┆tæller til at fastlægge pausens ┆
0x1fbc0…1fbe0 0a 6c 7b 6e 67 64 65 2e 20 53 7d 20 6d 7d 20 65 6c 65 76 65 72 6e 65 20 74 61 67 65 20 74 69 64 ┆ længde. Så må eleverne tage tid┆
0x1fbe0…1fc00 20 6d 65 64 20 65 74 20 73 74 6f 70 75 72 20 6f 67 20 6b 7c 72 65 20 0a 70 72 6f 67 72 61 6d 6d ┆ med et stopur og køre programm┆
0x1fc00…1fd00 (14, 0, 9) DataBlock {»SLUK10«}
0x1fd00…1fd20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x1fe00…1fe20 (14, 1, 1) 65 74 20 6e 6f 67 6c 65 20 67 61 6e 67 65 20 66 6f 72 20 61 74 20 66 69 6e 64 65 20 75 64 20 61 ┆et nogle gange for at finde ud a┆
0x1fe20…1fe40 66 20 68 76 6f 72 20 6d 61 6e 67 65 20 0a 67 65 6e 6e 65 6d 6c 7c 62 20 64 65 72 20 73 6b 61 6c ┆f hvor mange gennemløb der skal┆
0x1fe40…1fe60 20 74 69 6c 20 70 72 2e 20 74 69 64 73 65 6e 68 65 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 ┆ til pr. tidsenhed: 0010 // ┆
0x1fe60…1fe80 22 70 61 75 73 65 2d 61 22 0d 0a b0 30 30 32 30 20 6e 3a 3d 30 0d 0a b0 30 30 33 30 20 52 45 50 ┆"pause-a" 0020 n:=0 0030 REP┆
0x1fe80…1fea0 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 6e 3a 3d 6e 2b 31 0d 0a b0 30 30 35 30 20 55 4e 54 49 ┆EAT 0040 n:=n+1 0050 UNTI┆
0x1fea0…1fec0 4c 20 6e 3d 31 30 30 30 0d 0a b0 30 30 36 30 20 45 4e 44 20 0d 0a 0d 0a 0d 0a 22 70 61 75 73 65 ┆L n=1000 0060 END "pause┆
0x1fec0…1fee0 2d 61 54 49 44 22 20 65 72 20 65 74 20 6c 7b 72 65 72 70 72 6f 67 72 61 6d 20 64 65 72 20 62 65 ┆-aTID" er et lærerprogram der be┆
0x1fee0…1ff00 6e 79 74 74 65 72 20 6d 69 63 72 6f 27 65 6e 73 20 0a 69 6e 74 65 72 6e 65 20 75 72 20 74 69 6c ┆nytter micro'ens interne ur til┆
0x1ff00…1ff20 20 6d 7d 6c 69 6e 67 20 61 66 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 67 65 6e 6e 65 6d 6c 7c 62 ┆ måling af antallet af gennemløb┆
0x1ff20…1ff40 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆. ---------------------------┆
0x1ff40…1ff60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 ┆--------------------------- "┆
0x1ff60…1ff80 70 61 75 73 65 2d 62 22 20 6f 67 20 22 70 61 75 73 65 2d 62 54 49 44 22 20 73 76 61 72 65 72 20 ┆pause-b" og "pause-bTID" svarer ┆
0x1ff80…1ffa0 74 69 6c 20 64 65 20 74 6f 20 6f 76 65 6e 6e 7b 76 6e 74 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 ┆til de to ovennævnte programmer┆
0x1ffa0…1ffc0 2e 20 48 65 72 20 65 72 20 62 6c 6f 74 20 61 6e 76 65 6e 64 74 20 65 6e 20 46 4f 52 2f 4e 45 58 ┆. Her er blot anvendt en FOR/NEX┆
0x1ffc0…1ffe0 54 2d 6c 7c 6b 6b 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 70 61 75 73 65 2d 62 22 0d 0a ┆T-løkke: 0010 // "pause-b" ┆
0x1ffe0…20000 b0 30 30 32 30 20 46 4f 52 20 6e 3a 3d 31 20 54 4f 20 31 30 30 30 20 44 4f 0d 0a b0 30 30 33 30 ┆ 0020 FOR n:=1 TO 1000 DO 0030┆
0x20000…20020 (14, 1, 2) 6c 20 64 65 72 20 75 64 66 7c 72 65 73 20 65 6e 20 70 61 75 73 65 20 2d 20 73 7d 20 73 6b 61 6c ┆l der udføres en pause - så skal┆
0x20020…20040 20 6c 61 6d 70 65 6e 20 0a 73 6c 75 6b 6b 65 73 20 2d 20 73 7d 20 73 6b 61 6c 20 64 65 72 20 75 ┆ lampen slukkes - så skal der u┆
0x20040…20060 64 66 7c 72 65 73 20 65 6e 20 70 61 75 73 65 20 2d 20 73 7d 20 73 6b 61 6c 20 64 65 72 20 0a 62 ┆dføres en pause - så skal der b┆
0x20060…20080 65 67 79 6e 64 65 73 20 66 6f 72 66 72 61 20 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 62 6c ┆egyndes forfra : 0010 // "bl┆
0x20080…200a0 69 6e 6b 2d 61 31 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f ┆ink-a1" 0020 OPEN FILE 1,"/17/┆
0x200a0…200c0 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 ┆PORT", WRITE 0030 REPEAT 0┆
0x200c0…200e0 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 20 20 20 20 ┆040 PRINT FILE 1: CHR$(8); ┆
0x200e0…20100 20 20 2e 2e 2e 2e 20 54 5b 4e 44 0d 0a b0 30 30 35 30 20 20 20 46 4f 52 20 76 65 6e 74 3a 3d 31 ┆ .... TÆND 0050 FOR vent:=1┆
0x20100…20120 20 54 4f 20 35 30 30 20 44 4f 20 20 20 20 20 20 20 2e 2e 2e 2e 20 50 41 55 53 45 0d 0a b0 30 30 ┆ TO 500 DO .... PAUSE 00┆
0x20120…20140 36 30 20 20 20 4e 45 58 54 20 76 65 6e 74 0d 0a b0 30 30 37 30 20 20 20 50 52 49 4e 54 20 46 49 ┆60 NEXT vent 0070 PRINT FI┆
0x20140…20160 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 20 20 20 20 20 20 2e 2e 2e 2e 20 53 4c 55 4b 0d 0a b0 ┆LE 1: CHR$(0); .... SLUK ┆
0x20160…20180 30 30 38 30 20 20 20 46 4f 52 20 76 65 6e 74 3a 3d 31 20 54 4f 20 35 30 30 20 44 4f 20 20 20 20 ┆0080 FOR vent:=1 TO 500 DO ┆
0x20180…201a0 20 20 20 2e 2e 2e 2e 20 50 41 55 53 45 0d 0a b0 30 30 39 30 20 20 20 4e 45 58 54 20 76 65 6e 74 ┆ .... PAUSE 0090 NEXT vent┆
0x201a0…201c0 0d 0a b0 30 31 30 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0100 UNTIL FALSE ┆
0x201c0…201e0 20 20 20 20 20 20 2e 2e 2e 2e 20 46 4f 52 46 52 41 0d 0a b0 30 31 31 30 20 43 4c 4f 53 45 20 46 ┆ .... FORFRA 0110 CLOSE F┆
0x201e0…20200 49 4c 45 20 31 0d 0a b0 30 31 32 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 34 30 3a f0 20 44 65 63 ┆ILE 1 0120 END 0040: Dec┆
0x20200…20220 (14, 1, 3) 20 4e 45 58 54 20 6e 0d 0a b0 30 30 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ NEXT n 0040 END ---------┆
0x20220…20240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x20240…20260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 44 65 6e 20 62 65 64 73 74 65 20 6d 65 74 6f ┆------------- Den bedste meto┆
0x20260…20280 64 65 20 61 74 20 6c 61 76 65 20 65 6e 20 70 61 75 73 65 20 70 7d 2c 20 65 72 20 6e 61 74 75 72 ┆de at lave en pause på, er natur┆
0x20280…202a0 6c 69 67 76 69 73 20 0a 61 74 20 62 65 6e 79 74 74 65 20 6d 69 63 72 6f 27 65 6e 73 20 69 6e 74 ┆ligvis at benytte micro'ens int┆
0x202a0…202c0 65 72 6e 65 20 75 72 2c 20 64 65 72 20 6b 61 6e 20 61 66 6c 7b 73 65 73 20 66 72 61 20 0a 65 74 ┆erne ur, der kan aflæses fra et┆
0x202c0…202e0 20 70 72 6f 67 72 61 6d 20 76 65 64 20 61 74 20 74 69 6c 64 65 6c 65 20 65 6e 20 74 61 6c 76 61 ┆ program ved at tildele en talva┆
0x202e0…20300 72 69 61 62 65 6c 20 75 72 65 74 73 20 0a 61 6b 74 75 65 6c 6c 65 20 6b 6c 6f 6b 6b 65 73 6c 65 ┆riabel urets aktuelle klokkesle┆
0x20300…20320 74 2e 20 22 70 61 75 73 65 2d 63 22 20 75 64 66 7c 72 65 72 20 65 6e 20 70 61 75 73 65 20 70 7d ┆t. "pause-c" udfører en pause på┆
0x20320…20340 20 31 20 0a 73 65 6b 75 6e 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 70 61 75 73 65 2d 63 ┆ 1 sekund: 0010 // "pause-c┆
0x20340…20360 22 0d 0a b0 30 30 32 30 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 30 33 30 ┆" 0020 start:=SYS(3)/50 0030┆
0x20360…20380 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 ┆ REPEAT 0040 slut:=SYS(3)/5┆
0x20380…203a0 30 0d 0a b0 30 30 35 30 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 31 0d 0a b0 30 ┆0 0050 UNTIL slut-start>=1 0┆
0x203a0…203c0 30 36 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 3a f0 20 54 61 6c 76 61 72 69 61 62 6c 65 6e ┆060 END 0020: Talvariablen┆
0x203c0…203e0 20 53 54 41 52 54 20 74 69 6c 64 65 6c 65 73 20 65 6e 20 76 7b 72 64 69 20 73 76 61 72 65 6e 64 ┆ START tildeles en værdi svarend┆
0x203e0…20400 65 20 0a 19 80 81 80 74 69 6c 20 64 65 74 20 61 6b 74 75 65 6c 6c 65 20 73 65 6b 75 6e 64 2d 74 ┆e til det aktuelle sekund-t┆
0x20400…20420 (14, 1, 4) 69 6d 61 6c 74 20 38 2c 20 62 69 6e 7b 72 74 20 30 30 30 30 31 30 30 30 2c 20 73 65 6e 64 65 73 ┆imalt 8, binært 00001000, sendes┆
0x20420…20440 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 20 73 7d 20 42 49 54 33 2d 6c 61 6d ┆ til lyspanelet så BIT3-lam┆
0x20440…20460 70 65 6e 2c 20 6f 67 20 6b 75 6e 20 64 65 6e 6e 65 2c 20 6c 79 73 65 72 2e 0d 0a 65 72 20 62 6c ┆pen, og kun denne, lyser. er bl┆
0x20460…20480 65 76 65 74 20 74 7b 6e 64 74 2e 20 0d 0a 0d 0a b0 30 30 35 30 2d 30 30 36 30 3a f0 20 50 61 75 ┆evet tændt. 0050-0060: Pau┆
0x20480…204a0 73 65 20 6d 65 64 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 2e 0d 0a 0d 0a b0 30 30 37 30 3a ┆se med FOR/NEXT-løkke. 0070:┆
0x204a0…204c0 f0 20 44 65 63 69 6d 61 6c 74 20 30 2c 20 62 69 6e 7b 72 74 20 30 30 30 30 30 30 30 30 2c 20 73 ┆ Decimalt 0, binært 00000000, s┆
0x204c0…204e0 65 6e 64 65 73 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 20 73 7d 20 61 6c 6c ┆endes til lyspanelet så all┆
0x204e0…20500 65 20 38 20 6c 61 6d 70 65 72 20 73 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a b0 30 30 38 30 2d 30 30 39 ┆e 8 lamper slukkes. 0080-009┆
0x20500…20520 30 3a f0 20 50 61 75 73 65 20 6d 65 64 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 2e 0d 0a 0d ┆0: Pause med FOR/NEXT-løkke. ┆
0x20520…20540 0a b0 30 30 33 30 2d 30 30 31 30 30 3a f0 20 4c 7c 6b 6b 65 20 64 65 72 20 67 65 6e 74 61 67 65 ┆ 0030-00100: Løkke der gentage┆
0x20540…20560 72 20 64 65 74 20 65 6e 6b 65 6c 74 65 20 62 6c 69 6e 6b 2e 20 0a 19 80 81 80 4c 7c 6b 6b 65 6e ┆r det enkelte blink. Løkken┆
0x20560…20580 20 6b 61 6e 20 6b 75 6e 20 73 74 61 6e 64 65 73 20 76 65 64 20 61 74 20 74 72 79 6b 6b 65 20 70 ┆ kan kun standes ved at trykke p┆
0x20580…205a0 7d 20 45 53 43 41 50 45 2c 20 0a 19 80 81 80 68 76 6f 72 66 6f 72 20 6c 69 6e 69 65 72 6e 65 20 ┆å ESCAPE, hvorfor linierne ┆
0x205a0…205c0 30 31 31 30 20 6f 67 20 30 31 32 30 20 61 6c 64 72 69 67 20 62 6c 69 76 65 72 20 75 64 66 7c 72 ┆0110 og 0120 aldrig bliver udfør┆
0x205c0…205e0 74 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆t. --------------------------┆
0x205e0…20600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a ┆---------------------------- ┆
0x20600…20620 (14, 1, 5) 61 6c 2e 20 53 54 41 52 54 20 61 6e 76 65 6e 64 65 73 20 74 69 6c 20 61 74 20 0a 19 80 81 80 67 ┆al. START anvendes til at g┆
0x20620…20640 65 6d 6d 65 20 6b 6c 6f 6b 6b 65 73 6c 65 74 74 65 74 20 76 65 64 20 70 61 75 73 65 6e 73 20 73 ┆emme klokkeslettet ved pausens s┆
0x20640…20660 74 61 72 74 2e 20 b0 53 59 53 28 33 29 f0 20 65 72 20 65 6e 20 0a 19 80 82 80 66 75 6e 6b 74 69 ┆tart. SYS(3) er en funkti┆
0x20660…20680 6f 6e 20 64 65 72 20 68 61 72 20 66 75 6e 6b 74 69 6f 6e 73 76 7b 72 64 69 65 6e 20 73 76 61 72 ┆on der har funktionsværdien svar┆
0x20680…206a0 65 6e 64 65 20 74 69 6c 20 61 6e 74 61 6c 80 0a 19 80 82 80 6c 65 74 20 61 66 20 6c 79 73 6e 65 ┆ende til antal let af lysne┆
0x206a0…206c0 74 74 65 74 73 20 76 65 6b 73 65 6c 73 74 72 7c 6d 2d 70 65 72 69 6f 64 65 72 20 73 69 64 65 6e ┆ttets vekselstrøm-perioder siden┆
0x206c0…206e0 20 6d 69 63 72 6f 27 65 6e 20 0a 19 80 82 80 62 6c 65 76 20 74 7b 6e 64 74 2e 20 56 65 6b 73 65 ┆ micro'en blev tændt. Vekse┆
0x206e0…20700 6c 73 74 72 7c 6d 6d 65 6e 20 65 72 20 70 7d 20 35 30 20 70 65 72 69 6f 64 65 72 20 70 72 2e 20 ┆lstrømmen er på 50 perioder pr. ┆
0x20700…20720 73 65 80 0a 19 80 82 80 6b 75 6e 64 2e 20 48 76 69 73 20 b0 53 54 41 52 54 f0 20 73 6b 61 6c 20 ┆se kund. Hvis START skal ┆
0x20720…20740 74 69 6c 64 65 6c 65 73 20 65 6e 20 76 7b 72 64 69 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 0a ┆tildeles en værdi svarende til ┆
0x20740…20760 19 80 83 80 61 6e 74 61 6c 6c 65 74 20 61 66 20 b0 68 65 6c 65 f0 20 73 65 6b 75 6e 64 65 72 2c ┆ antallet af hele sekunder,┆
0x20760…20780 20 73 6b 61 6c 20 53 59 53 28 33 29 20 64 69 76 69 64 65 72 65 73 20 6d 65 64 20 0a 19 80 84 80 ┆ skal SYS(3) divideres med ┆
0x20780…207a0 35 30 21 0d 0a 0d 0a b0 30 30 34 30 3a f0 20 54 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 4c 55 54 ┆50! 0040: Talvariablen SLUT┆
0x207a0…207c0 20 74 69 6c 64 65 6c 65 73 20 64 65 74 20 61 6b 74 75 65 6c 6c 65 20 0a 19 80 81 80 73 65 6b 75 ┆ tildeles det aktuelle seku┆
0x207c0…207e0 6e 64 2d 74 61 6c 2e 20 0d 0a 19 80 81 80 0d 0a b0 30 30 33 30 2d 30 30 35 30 3a f0 20 49 20 64 ┆nd-tal. 0030-0050: I d┆
0x207e0…20800 65 6e 6e 65 20 6c 7c 6b 6b 65 20 67 65 6e 74 61 67 65 73 20 61 66 6c 7b 73 6e 69 6e 67 65 6e 20 ┆enne løkke gentages aflæsningen ┆
0x20800…20820 (14, 1, 6) 48 65 72 20 65 72 20 46 4f 52 2f 4e 45 58 54 2d 70 61 75 73 65 6e 20 75 64 73 6b 69 66 74 65 74 ┆Her er FOR/NEXT-pausen udskiftet┆
0x20820…20840 20 6d 65 64 20 70 72 6f 63 65 64 75 72 65 6e 0d 0a b0 70 61 75 73 65 f0 3a 0d 0a 0d 0a 30 30 31 ┆ med proceduren pause : 001┆
0x20840…20860 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 61 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 ┆0 // "blink-a2" 0020 OPEN FILE ┆
0x20860…20880 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 52 45 50 45 41 ┆1,"/17/PORT", WRITE 0030 REPEA┆
0x20880…208a0 54 20 0d 0a 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 ┆T 0040 PRINT FILE 1: CHR$(8)┆
0x208a0…208c0 3b 0d 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 36 30 ┆; 0050 EXEC pause(0.5) 0060┆
0x208c0…208e0 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 37 30 ┆ PRINT FILE 1: CHR$(0); 0070┆
0x208e0…20900 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 46 ┆ EXEC pause(0.5) 0080 UNTIL F┆
0x20900…20920 41 4c 53 45 0d 0a 30 30 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 30 30 20 45 4e ┆ALSE 0090 CLOSE FILE 1 0100 EN┆
0x20920…20940 44 20 0d 0a 30 31 31 30 20 2f 2f 0d 0a b0 30 31 32 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 ┆D 0110 // 0120 PROC pause(se┆
0x20940…20960 6b 75 6e 64 65 72 29 0d 0a b0 30 31 33 30 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 ┆kunder) 0130 start:=SYS(3)/5┆
0x20960…20980 30 0d 0a b0 30 31 34 30 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 31 35 30 20 20 20 20 20 73 6c ┆0 0140 REPEAT 0150 sl┆
0x20980…209a0 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 31 36 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 ┆ut:=SYS(3)/50 0160 UNTIL slu┆
0x209a0…209c0 74 2d 73 74 61 72 74 3e 3d 73 65 6b 75 6e 64 65 72 0d 0a b0 30 31 37 30 20 45 4e 44 50 52 4f 43 ┆t-start>=sekunder 0170 ENDPROC┆
0x209c0…209e0 20 70 61 75 73 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ pause ----------------------┆
0x209e0…20a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x20a00…20a20 (14, 1, 7) 61 66 20 75 72 65 74 20 0a 19 80 81 80 6d 65 64 20 74 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 4c ┆af uret med talvariablen SL┆
0x20a20…20a40 55 54 20 69 6e 64 74 69 6c 20 66 6f 72 73 6b 65 6c 6c 65 6e 20 6d 65 6c 6c 65 6d 20 53 4c 55 54 ┆UT indtil forskellen mellem SLUT┆
0x20a40…20a60 20 6f 67 20 0a 19 80 81 80 53 54 41 52 54 20 65 72 20 31 2c 20 61 6c 74 73 7d 20 31 20 73 65 6b ┆ og START er 1, altså 1 sek┆
0x20a60…20a80 75 6e 64 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆und. ------------------------┆
0x20a80…20aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------------ ┆
0x20aa0…20ac0 0c 84 90 0a 0d 0a 0d 0a 0d 0a 49 20 22 70 61 75 73 65 2d 63 54 49 44 31 22 20 6b 61 6e 20 70 61 ┆ I "pause-cTID1" kan pa┆
0x20ac0…20ae0 75 73 65 6c 7b 6e 67 64 65 6e 20 76 61 72 69 65 72 65 73 2e 0d 0a 0d 0a 49 20 22 70 61 75 73 65 ┆uselængden varieres. I "pause┆
0x20ae0…20b00 2d 63 54 49 44 32 22 20 65 72 20 70 61 75 73 65 6e 20 73 6b 72 65 76 74 20 73 6f 6d 20 65 6e 20 ┆-cTID2" er pausen skrevt som en ┆
0x20b00…20b20 70 72 6f 63 65 64 75 72 65 20 64 65 72 20 0a 6b 61 6c 64 65 73 20 73 7d 64 61 6e 3a 20 b0 45 58 ┆procedure der kaldes sådan: EX┆
0x20b20…20b40 45 43 20 70 61 75 73 65 28 33 2e 35 29 f0 2c 20 68 76 69 6c 6b 65 74 20 73 76 61 72 65 72 20 74 ┆EC pause(3.5) , hvilket svarer t┆
0x20b40…20b60 69 6c 20 65 6e 20 0a 19 80 81 80 70 61 75 73 65 20 70 7d 20 33 2c 35 20 73 65 6b 75 6e 64 65 72 ┆il en pause på 3,5 sekunder┆
0x20b60…20b80 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆. ---------------------------┆
0x20b80…20ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 ┆--------------------------- "┆
0x20ba0…20bc0 50 52 4f 43 2d 70 61 75 73 65 22 20 69 6e 64 65 68 6f 6c 64 65 72 20 b0 6b 75 6e f0 20 70 72 6f ┆PROC-pause" indeholder kun pro┆
0x20bc0…20be0 63 65 64 75 72 65 6e 20 66 72 61 0d 0a 22 70 61 75 73 65 2d 63 54 49 44 32 22 3a 0d 0a 0d 0a b0 ┆ceduren fra "pause-cTID2": ┆
0x20be0…20c00 31 30 30 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 0d 0a b0 31 30 31 30 ┆1000 PROC pause(sekunder) 1010┆
0x20c00…20c20 (14, 1, 8) 0d 0a 0c 83 78 0a 0d 0a 0d 0a 0d 0a 49 20 22 62 6c 69 6e 6b 2d 62 31 22 20 6f 67 20 22 62 6c 69 ┆ x I "blink-b1" og "bli┆
0x20c20…20c40 6e 6b 2d 62 32 22 20 62 6c 69 6e 6b 65 72 20 61 6c 6c 65 20 38 20 6c 61 6d 70 65 72 20 66 6f 72 ┆nk-b2" blinker alle 8 lamper for┆
0x20c40…20c60 64 69 20 0a 64 65 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 b0 32 35 35 f0 20 73 65 6e 64 65 ┆di det decimale tal 255 sende┆
0x20c60…20c80 73 20 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 20 69 20 73 74 65 64 65 74 20 0a 19 80 81 80 66 ┆s til lyspanelet i stedet f┆
0x20c80…20ca0 6f 72 20 b0 38 f0 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 62 32 22 0d 0a 30 ┆or 8 : 0010 // "blink-b2" 0┆
0x20ca0…20cc0 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 ┆020 OPEN FILE 1,"/17/PORT", WRIT┆
0x20cc0…20ce0 45 20 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 ┆E 0030 REPEAT 0040 PRINT F┆
0x20ce0…20d00 49 4c 45 20 31 3a 20 43 48 52 24 28 b0 32 35 35 f0 29 3b 0d 0a 30 30 35 30 20 20 20 45 58 45 43 ┆ILE 1: CHR$( 255 ); 0050 EXEC┆
0x20d00…20d20 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆ pause(0.5) 0060 PRINT FILE 1┆
0x20d20…20d40 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e ┆: CHR$(0); 0070 EXEC pause(0.┆
0x20d40…20d60 35 29 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 0d 0a 30 30 39 30 20 43 4c 4f 53 45 ┆5) 0080 UNTIL FALSE 0090 CLOSE┆
0x20d60…20d80 20 46 49 4c 45 20 31 0d 0a 30 31 30 30 20 45 4e 44 20 0d 0a 30 31 31 30 20 2f 2f 0d 0a 30 31 32 ┆ FILE 1 0100 END 0110 // 012┆
0x20d80…20da0 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 0d 0a 30 31 33 30 20 20 20 73 ┆0 PROC pause(sekunder) 0130 s┆
0x20da0…20dc0 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 34 30 20 20 20 52 45 50 45 41 54 20 0d ┆tart:=SYS(3)/50 0140 REPEAT ┆
0x20dc0…20de0 0a 30 31 35 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 36 30 20 ┆ 0150 slut:=SYS(3)/50 0160 ┆
0x20de0…20e00 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 73 65 6b 75 6e 64 65 72 0d 0a 30 31 ┆ UNTIL slut-start>=sekunder 01┆
0x20e00…20e20 (14, 1, 9) 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 31 30 32 30 20 20 20 52 45 50 ┆ start:=SYS(3)/50 1020 REP┆
0x20e20…20e40 45 41 54 20 0d 0a b0 31 30 33 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d ┆EAT 1030 slut:=SYS(3)/50 ┆
0x20e40…20e60 0a b0 31 30 34 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 73 65 6b 75 6e ┆ 1040 UNTIL slut-start>=sekun┆
0x20e60…20e80 64 65 72 0d 0a b0 31 30 35 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 65 0d 0a 0d 0a 44 65 6e 6e ┆der 1050 ENDPROC pause Denn┆
0x20e80…20ea0 65 20 70 72 6f 63 65 64 75 72 65 20 65 72 20 67 65 6d 74 20 70 7d 20 64 69 73 6b 65 74 74 65 6e ┆e procedure er gemt på disketten┆
0x20ea0…20ec0 20 73 6f 6d 20 65 6e 0d 0a 4c 49 53 54 2d 66 69 6c 2e 20 44 65 6e 20 6b 61 6e 20 64 65 72 66 6f ┆ som en LIST-fil. Den kan derfo┆
0x20ec0…20ee0 72 20 68 65 6e 74 65 73 20 66 72 65 6d 20 6f 67 20 b0 62 6c 61 6e 64 65 73 f0 20 69 6e 64 20 69 ┆r hentes frem og blandes ind i┆
0x20ee0…20f00 20 0a 19 80 81 80 64 65 20 6b 6f 6d 6d 65 6e 64 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 6d 65 64 ┆ de kommende programmer med┆
0x20f00…20f20 20 45 4e 54 45 52 20 6b 6f 6d 61 6e 64 6f 65 6e 2e 20 53 7d 20 62 65 68 7c 76 65 72 20 0a 19 80 ┆ ENTER komandoen. Så behøver ┆
0x20f20…20f40 81 80 6d 61 6e 20 69 6b 6b 65 20 61 74 20 73 6b 72 69 76 65 20 70 72 6f 63 65 64 75 72 65 6e 20 ┆ man ikke at skrive proceduren ┆
0x20f40…20f60 66 6f 72 66 72 61 20 6e 7d 72 20 64 65 6e 20 73 6b 61 6c 20 0a 19 80 81 80 62 72 75 67 65 73 2e ┆forfra når den skal bruges.┆
0x20f60…20f80 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0x20f80…20fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 81 60 0a ┆-------------------------- ` ┆
0x20fa0…20fc0 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 42 4c 49 4e 4b 22 3a 0d 0a 0d 0a 0d 0a 41 6c ┆ PROBLEM "BLINK": Al┆
0x20fc0…20fe0 67 6f 72 69 74 6d 65 6e 20 66 6f 72 20 62 6c 69 6e 6b 20 65 72 20 73 69 6d 70 65 6c 3a 20 46 7c ┆goritmen for blink er simpel: Fø┆
0x20fe0…21000 72 73 74 20 73 6b 61 6c 20 6c 61 6d 70 65 6e 20 0a 74 7b 6e 64 65 73 20 2d 20 73 7d 20 73 6b 61 ┆rst skal lampen tændes - så ska┆
0x21000…21020 (15, 0, 1) 37 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆70 ENDPROC pause ------------┆
0x21020…21040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x21040…21060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 50 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 61 74 20 20 ┆---------- Problemet med at ┆
0x21060…21080 b0 43 4c 4f 53 45 20 46 49 4c 45 20 31 f0 2d 73 7b 74 6e 69 6e 67 65 6e 20 20 61 6c 64 72 69 67 ┆ CLOSE FILE 1 -sætningen aldrig┆
0x21080…210a0 20 0a 19 80 81 80 75 64 66 7c 72 65 73 2c 20 66 6f 72 64 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 ┆ udføres, fordi programmet ┆
0x210a0…210c0 73 74 61 6e 64 73 65 73 20 69 6e 64 65 20 69 20 0a 19 80 81 80 52 45 50 45 41 54 2f 55 4e 54 49 ┆standses inde i REPEAT/UNTI┆
0x210c0…210e0 4c 2d 6c 7c 6b 6b 65 6e 20 6d 65 64 20 45 53 43 41 50 45 2d 74 61 73 74 65 6e 2c 20 6b 61 6e 20 ┆L-løkken med ESCAPE-tasten, kan ┆
0x210e0…21100 6c 7c 73 65 73 20 6d 65 64 20 0a 19 80 81 80 61 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 73 74 61 ┆løses med at programmet sta┆
0x21100…21120 6e 64 73 65 73 20 6d 65 64 20 65 6e 20 61 6e 64 65 6e 20 74 61 73 74 20 65 6e 64 20 45 53 43 41 ┆ndses med en anden tast end ESCA┆
0x21120…21140 50 45 2c 20 0a 19 80 81 80 66 6f 72 20 65 6b 73 65 6d 70 65 6c 20 4d 45 4c 4c 45 4d 52 55 4d 2d ┆PE, for eksempel MELLEMRUM-┆
0x21140…21160 74 61 73 74 65 6e 2c 20 64 65 6e 20 65 72 20 6e 65 6d 20 61 74 20 72 61 6d 6d 65 2c 20 0a 19 80 ┆tasten, den er nem at ramme, ┆
0x21160…21180 81 80 65 6c 6c 65 72 20 53 2d 74 61 73 74 65 6e 20 66 6f 72 20 53 54 4f 50 2e 0d 0a 0d 0a 49 20 ┆ eller S-tasten for STOP. I ┆
0x21180…211a0 22 62 6c 69 6e 6b 2d 63 31 22 20 6f 67 20 22 62 6c 69 6e 6b 2d 63 32 22 20 65 72 20 70 72 6f 62 ┆"blink-c1" og "blink-c2" er prob┆
0x211a0…211c0 6c 65 6d 65 74 20 6c 7c 73 74 20 76 65 64 20 61 74 20 0a 64 65 72 20 69 20 62 75 6e 64 65 6e 20 ┆lemet løst ved at der i bunden ┆
0x211c0…211e0 61 66 20 52 45 50 45 41 54 2f 55 4e 54 49 4c 2d 6c 7c 6b 6b 65 6e 20 75 6e 64 65 72 73 7c 67 65 ┆af REPEAT/UNTIL-løkken undersøge┆
0x211e0…21200 73 20 6f 6d 20 64 65 72 20 0a 65 72 20 62 6c 65 76 65 74 20 74 72 79 6b 6b 65 74 20 70 7d 20 64 ┆s om der er blevet trykket på d┆
0x21200…21400 (15, 0, 2) DataBlock {»LÆRER.WP«}
0x21400…21420 (15, 0, 3) 65 6e 20 76 61 6c 67 74 65 20 74 61 73 74 20 65 6c 6c 65 72 20 65 6a 3a 20 0d 0a 0d 0a 30 30 31 ┆en valgte tast eller ej: 001┆
0x21420…21440 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 63 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 ┆0 // "blink-c2" 0020 OPEN FILE ┆
0x21440…21460 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 50 52 49 4e 54 ┆1,"/17/PORT", WRITE 0030 PRINT┆
0x21460…21480 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e ┆ "STOP: TRYK PÅ MELLEMRUM-TASTEN┆
0x21480…214a0 20 21 21 22 0d 0a 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 30 30 35 30 20 20 20 50 52 49 4e 54 ┆ !!" 0040 REPEAT 0050 PRINT┆
0x214a0…214c0 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a 30 30 36 30 20 20 20 45 58 45 43 ┆ FILE 1: CHR$(255); 0060 EXEC┆
0x214c0…214e0 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆ pause(0.5) 0070 PRINT FILE 1┆
0x214e0…21500 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 30 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e ┆: CHR$(0); 0080 EXEC pause(0.┆
0x21500…21520 35 29 0d 0a 30 30 39 30 20 55 4e 54 49 4c 20 b0 4f 52 44 28 4b 45 59 24 29 3d 33 32 f0 0d 0a 30 ┆5) 0090 UNTIL ORD(KEY$)=32 0┆
0x21520…21540 31 30 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 31 30 20 45 4e 44 20 0d 0a 30 31 32 ┆100 CLOSE FILE 1 0110 END 012┆
0x21540…21560 30 20 2f 2f 0d 0a 30 31 33 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 0d ┆0 // 0130 PROC pause(sekunder) ┆
0x21560…21580 0a 30 31 34 30 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 35 30 20 20 ┆ 0140 start:=SYS(3)/50 0150 ┆
0x21580…215a0 20 52 45 50 45 41 54 20 0d 0a 30 31 36 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f ┆ REPEAT 0160 slut:=SYS(3)/┆
0x215a0…215c0 35 30 0d 0a 30 31 37 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 73 65 6b ┆50 0170 UNTIL slut-start>=sek┆
0x215c0…215e0 75 6e 64 65 72 0d 0a 30 31 38 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 65 0d 0a 0d 0a b0 30 30 ┆under 0180 ENDPROC pause 00┆
0x215e0…21600 39 30 3a f0 20 56 61 6c 67 65 74 20 6d 65 6c 6c 65 6d 20 64 69 73 73 65 20 74 6f 20 6d 75 6c 69 ┆90: Valget mellem disse to muli┆
0x21600…21800 (15, 0, 4) DataBlock {»LÆRER.WP«}
[…0x2a…]
0x26c00…26e00 (17, 1, 2) DataBlock {»33-HZ«}
0x26e00…26f80 (17, 1, 3) DataBlock {»20-HZ«}
0x26f80…26fa0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x27000…27200 (17, 1, 4) 0xe5[0x200]
[…0x5…]
0x27c00…27d80 (18, 0, 1) DataBlock {»39-HZ«}
0x27d80…27da0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x27e00…28000 (18, 0, 2) 0xe5[0x200]
[…0x5…]
0x28a00…28b80 (18, 0, 8) DataBlock {»46-HZ«}
0x28b80…28ba0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x28c00…28d80 (18, 0, 9) DataBlock {»45-HZ«}
0x28d80…28da0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x28e00…29000 (18, 1, 1) 0xe5[0x200]
[…0x4…]
0x29800…29980 (18, 1, 6) DataBlock {»4000-HZ«}
0x29980…299a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x29a00…29b00 (18, 1, 7) DataBlock {»76-HZ«}
0x29b00…29b20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x29c00…29e00 (18, 1, 8) 0xe5[0x200]
[…0x2…]
0x2a200…2a400 (19, 0, 2) DataBlock {»LÆRER.WP«}
0x2a400…2a600 (19, 0, 3) 0xe5[0x200]
0x2a600…2a800 (19, 0, 4) DataBlock {»LÆRER.WP«}
[…0x6…]
0x2b400…2b420 (19, 1, 2) b0 30 30 34 30 20 6c 79 73 70 65 72 69 6f 64 65 3a 3d 31 0d 0a b0 30 30 35 30 20 6d 7c 72 6b 65 ┆ 0040 lysperiode:=1 0050 mørke┆
0x2b420…2b440 70 65 72 69 6f 64 65 3a 3d 30 2e 35 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 ┆periode:=0.5 0060 PRINT "STOP: ┆
0x2b440…2b460 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 ┆TRYK PÅ MELLEMRUM-TASTEN !!" 00┆
0x2b460…2b480 37 30 20 52 45 50 45 41 54 20 0d 0a 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆70 REPEAT 0080 PRINT FILE 1:┆
0x2b480…2b4a0 20 43 48 52 24 28 32 35 35 29 3b 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 ┆ CHR$(255); 0090 EXEC pause( ┆
0x2b4a0…2b4c0 6c 79 73 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆lysperiode ) 0100 PRINT FILE ┆
0x2b4c0…2b4e0 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 ┆1: CHR$(0); 0110 EXEC pause( ┆
0x2b4e0…2b500 6d 7c 72 6b 65 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b ┆mørkeperiode ) 0120 UNTIL ORD(K┆
0x2b500…2b520 45 59 24 29 3d 33 32 0d 0a 30 31 33 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 34 30 ┆EY$)=32 0130 CLOSE FILE 1 0140┆
0x2b520…2b540 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ END -----------------------┆
0x2b540…2b560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ┆------------------------------- ┆
0x2b560…2b580 0a 0d 0a 49 20 22 62 6c 69 6e 6b 2d 66 22 20 6b 61 6e 20 6c 79 73 70 65 72 69 6f 64 65 6e 20 6f ┆ I "blink-f" kan lysperioden o┆
0x2b580…2b5a0 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 76 61 72 69 65 72 65 73 3a 0d 0a 0d 0a 30 30 31 ┆g mørkeperioden varieres: 001┆
0x2b5a0…2b5c0 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 66 22 0d 0a 30 30 32 30 20 50 52 49 4e 54 20 43 48 52 24 28 ┆0 // "blink-f" 0020 PRINT CHR$(┆
0x2b5c0…2b5e0 31 32 29 0d 0a 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 ┆12) 0030 OPEN FILE 1,"/17/PORT"┆
0x2b5e0…2b600 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 4c 59 53 ┆, WRITE 0040 INPUT "SKRIV LYS┆
0x2b600…2b620 (19, 1, 3) 67 68 65 64 65 72 20 65 72 20 6e 7b 72 6d 65 74 0d 0a 65 6e 20 73 6d 61 67 73 73 61 67 3a 0d 0a ┆gheder er nærmet en smagssag: ┆
0x2b620…2b640 0d 0a b0 41 3a 20 20 20 20 30 30 39 30 20 55 4e 54 49 4c 20 4b 45 59 24 3d 22 20 22 20 0d 0a b0 ┆ A: 0090 UNTIL KEY$=" " ┆
0x2b640…2b660 42 3a 20 20 20 20 30 30 39 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 20 0d 0a ┆B: 0090 UNTIL ORD(KEY$)=32 ┆
0x2b660…2b680 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ------------------------------┆
0x2b680…2b6a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 84 80 0a 0d 0a ┆------------------------ ┆
0x2b6a0…2b6c0 0d 0a 0d 0a 4e 42 3a f0 20 46 72 61 20 64 65 74 74 65 20 73 74 65 64 20 69 20 74 65 6b 73 74 65 ┆ NB: Fra dette sted i tekste┆
0x2b6c0…2b6e0 6e 20 75 64 65 6c 61 64 65 73 20 6c 69 73 74 6e 69 6e 67 65 6e 20 61 66 20 0a 19 80 81 80 70 72 ┆n udelades listningen af pr┆
0x2b6e0…2b700 6f 63 65 64 75 72 65 6e 20 22 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 22 2e 20 44 65 6e 20 ┆oceduren "pause(sekunder)". Den ┆
0x2b700…2b720 66 6f 72 75 64 73 7b 74 74 65 73 20 61 74 20 76 7b 72 65 20 0a 19 80 81 80 69 20 61 6c 6c 65 20 ┆forudsættes at være i alle ┆
0x2b720…2b740 64 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 68 76 6f 72 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 ┆de programmer hvor procedurekald┆
0x2b740…2b760 65 74 0d 0a 19 80 81 80 45 58 45 43 20 70 61 75 73 65 28 58 29 20 66 6f 72 65 6b 6f 6d 6d 65 72 ┆et EXEC pause(X) forekommer┆
0x2b760…2b780 20 21 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ! --------------------------┆
0x2b780…2b7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a ┆---------------------------- ┆
0x2b7a0…2b7c0 49 20 22 62 6c 69 6e 6b 2d 64 31 22 20 65 72 20 64 65 6e 20 6b 6f 6e 73 74 61 6e 74 65 20 70 61 ┆I "blink-d1" er den konstante pa┆
0x2b7c0…2b7e0 75 73 65 6c 7b 6e 67 64 65 20 75 64 73 6b 69 66 74 65 74 20 6d 65 64 20 0a 76 61 72 69 61 62 6c ┆uselængde udskiftet med variabl┆
0x2b7e0…2b800 65 6e 20 50 41 55 53 45 4c 5b 4e 47 44 45 2c 20 64 65 72 20 74 69 6c 64 65 6c 65 73 20 65 6e 20 ┆en PAUSELÆNGDE, der tildeles en ┆
0x2b800…2b820 (19, 1, 4) 50 45 52 49 4f 44 45 4e 20 20 20 49 20 53 45 4b 55 4e 44 45 52 3a 20 22 3a 20 0d 0a 19 80 81 80 ┆PERIODEN I SEKUNDER: ": ┆
0x2b820…2b840 b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b840…2b860 20 20 20 20 20 20 20 6c 79 73 70 65 72 69 6f 64 65 0d 0a b0 30 30 35 30 20 49 4e 50 55 54 20 22 ┆ lysperiode 0050 INPUT "┆
0x2b860…2b880 53 4b 52 49 56 20 4d 5c 52 4b 45 50 45 52 49 4f 44 45 4e 20 49 20 53 45 4b 55 4e 44 45 52 3a 20 ┆SKRIV MØRKEPERIODEN I SEKUNDER: ┆
0x2b880…2b8a0 22 3a 20 0d 0a b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆": ┆
0x2b8a0…2b8c0 20 20 20 20 20 20 20 20 20 20 20 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 0d 0a 30 30 36 30 20 50 ┆ mørkeperiode 0060 P┆
0x2b8c0…2b8e0 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 ┆RINT "STOP: TRYK PÅ MELLEMRUM-TA┆
0x2b8e0…2b900 53 54 45 4e 20 21 21 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a 30 30 38 30 20 20 20 50 ┆STEN !!" 0070 REPEAT 0080 P┆
0x2b900…2b920 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a 30 30 39 30 20 20 20 ┆RINT FILE 1: CHR$(255); 0090 ┆
0x2b920…2b940 45 58 45 43 20 70 61 75 73 65 28 b0 6c 79 73 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 30 30 20 20 ┆EXEC pause( lysperiode ) 0100 ┆
0x2b940…2b960 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 31 30 20 20 20 ┆ PRINT FILE 1: CHR$(0); 0110 ┆
0x2b960…2b980 45 58 45 43 20 70 61 75 73 65 28 b0 6d 7c 72 6b 65 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 32 30 ┆EXEC pause( mørkeperiode ) 0120┆
0x2b980…2b9a0 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 31 33 30 20 43 4c 4f 53 45 20 ┆ UNTIL ORD(KEY$)=32 0130 CLOSE ┆
0x2b9a0…2b9c0 46 49 4c 45 20 31 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆FILE 1 0140 END -----------┆
0x2b9c0…2b9e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2b9e0…2ba00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 82 d8 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 ┆----------- PROBLEM ┆
0x2ba00…2ba20 (19, 1, 5) 76 7b 72 64 69 20 69 20 0d 0a 49 4e 50 55 54 2d 73 7b 74 6e 69 6e 67 65 6e 3a 0d 0a 0d 0a 0d 0a ┆værdi i INPUT-sætningen: ┆
0x2ba20…2ba40 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 64 31 22 0d 0a 30 30 32 30 20 61 6e 74 3a 3d 32 30 ┆0010 // "blink-d1" 0020 ant:=20┆
0x2ba40…2ba60 0d 0a 30 30 33 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 34 30 20 4f 50 45 4e ┆ 0030 PRINT CHR$(12) 0040 OPEN┆
0x2ba60…2ba80 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 ┆ FILE 1,"/17/PORT", WRITE 005┆
0x2ba80…2baa0 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 50 41 55 53 45 4c 5b 4e 47 44 45 4e 20 49 20 53 45 ┆0 INPUT "SKRIV PAUSELÆNGDEN I SE┆
0x2baa0…2bac0 4b 55 4e 44 45 52 3a 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KUNDER: ": ┆
0x2bac0…2bae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 75 73 65 6c 7b 6e 67 ┆ pauselæng┆
0x2bae0…2bb00 64 65 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 ┆de 0060 PRINT "STOP: TRYK PÅ ME┆
0x2bb00…2bb20 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 ┆LLEMRUM-TASTEN !!" 0070 REPEAT ┆
0x2bb20…2bb40 0d 0a 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 ┆ 0080 PRINT FILE 1: CHR$(255)┆
0x2bb40…2bb60 3b 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 64 ┆; 0090 EXEC pause( pauselængd┆
0x2bb60…2bb80 65 f0 29 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 ┆e ) 0100 PRINT FILE 1: CHR$(0┆
0x2bb80…2bba0 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 ┆); 0110 EXEC pause( pauselæng┆
0x2bba0…2bbc0 64 65 f0 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 ┆de ) 0120 UNTIL ORD(KEY$)=32 0┆
0x2bbc0…2bbe0 31 33 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d ┆130 CLOSE FILE 1 0140 END -┆
0x2bbe0…2bc00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2bc00…2bc20 (19, 1, 6) 20 22 52 45 41 4b 54 49 4f 4e 22 3a 0d 0a 0d 0a 0d 0a 4c 61 6d 70 65 72 6e 65 20 73 6b 61 6c 20 ┆ "REAKTION": Lamperne skal ┆
0x2bc20…2bc40 74 7b 6e 64 65 73 20 65 74 20 74 69 6c 66 7b 6c 64 69 67 74 20 61 6e 74 61 6c 20 73 65 6b 75 6e ┆tændes et tilfældigt antal sekun┆
0x2bc40…2bc60 64 65 72 20 0a 65 66 74 65 72 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 65 72 20 73 74 61 72 ┆der efter at programmet er star┆
0x2bc60…2bc80 74 65 74 2c 20 68 76 6f 72 65 66 74 65 72 20 6c 61 6d 70 65 72 6e 65 20 0a 73 6b 61 6c 20 73 6c ┆tet, hvorefter lamperne skal sl┆
0x2bc80…2bca0 75 6b 6b 65 73 20 6e 7d 72 20 65 6e 20 74 61 73 74 20 62 6c 69 76 65 72 20 74 72 79 6b 6b 65 74 ┆ukkes når en tast bliver trykket┆
0x2bca0…2bcc0 20 6e 65 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 72 65 61 6b 74 69 6f 6e 2d 61 22 0d 0a ┆ ned: 0010 // "reaktion-a" ┆
0x2bcc0…2bce0 b0 30 30 32 30 20 52 41 4e 44 4f 4d 49 5a 45 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 20 43 48 52 ┆ 0020 RANDOMIZE 0030 PRINT CHR┆
0x2bce0…2bd00 24 28 31 32 29 0d 0a b0 30 30 34 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f ┆$(12) 0040 OPEN FILE 1,"/17/PO┆
0x2bd00…2bd20 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 30 20 45 58 45 43 20 70 61 75 73 65 28 52 4e ┆RT", WRITE 0050 EXEC pause(RN┆
0x2bd20…2bd40 44 28 33 2c 37 29 29 0d 0a b0 30 30 36 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆D(3,7)) 0060 PRINT FILE 1: CHR┆
0x2bd40…2bd60 24 28 32 35 35 29 3b 0d 0a b0 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 38 30 20 55 4e ┆$(255); 0070 REPEAT 0080 UN┆
0x2bd60…2bd80 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3c 3e 30 0d 0a b0 30 30 39 30 20 50 52 49 4e 54 20 46 49 ┆TIL ORD(KEY$)<>0 0090 PRINT FI┆
0x2bd80…2bda0 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 30 30 20 43 4c 4f 53 45 20 0d 0a b0 30 ┆LE 1: CHR$(0); 0100 CLOSE 0┆
0x2bda0…2bdc0 31 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 ┆110 END 0050 : Her udføres ┆
0x2bdc0…2bde0 65 6e 20 70 61 75 73 65 20 70 7d 20 6d 65 6c 6c 65 6d 20 33 20 6f 67 20 37 20 73 65 6b 75 6e 64 ┆en pause på mellem 3 og 7 sekund┆
0x2bde0…2be00 65 72 2c 20 0a 19 80 81 80 74 69 6c 66 7b 6c 64 69 67 74 20 75 64 74 61 67 65 74 2e 20 0d 0a 0d ┆er, tilfældigt udtaget. ┆
0x2be00…2be20 (19, 1, 7) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 56 61 72 69 61 74 69 ┆--------------------- Variati┆
0x2be20…2be40 6f 6e 65 6e 20 69 20 62 6c 69 6e 6b 68 61 73 74 69 67 68 65 64 65 6e 20 6b 61 6e 20 6f 67 73 7d ┆onen i blinkhastigheden kan også┆
0x2be40…2be60 20 64 65 66 69 6e 65 72 65 73 20 73 6f 6d 20 0a 65 6e 20 7b 6e 64 72 69 6e 67 20 61 66 20 62 6c ┆ defineres som en ændring af bl┆
0x2be60…2be80 69 6e 6b 66 72 65 6b 76 65 6e 73 65 6e 2c 20 61 6c 74 73 7d 20 61 6e 74 61 6c 20 62 72 69 6e 6b ┆inkfrekvensen, altså antal brink┆
0x2be80…2bea0 20 70 72 2e 20 0a 73 65 6b 75 6e 64 2e 20 49 20 22 62 6c 69 6e 6b 2d 64 32 22 20 74 69 6c 64 65 ┆ pr. sekund. I "blink-d2" tilde┆
0x2bea0…2bec0 6c 65 73 20 42 4c 49 4e 4b 46 52 45 4b 56 45 4e 53 45 4e 20 65 6e 20 76 7b 72 64 69 20 0a 69 20 ┆les BLINKFREKVENSEN en værdi i ┆
0x2bec0…2bee0 49 4e 50 55 54 2d 73 7b 74 6e 69 6e 67 65 6e 2c 20 68 76 6f 72 65 66 74 65 72 20 70 61 75 73 65 ┆INPUT-sætningen, hvorefter pause┆
0x2bee0…2bf00 6c 7b 6e 67 64 65 6e 20 66 61 73 74 73 7b 74 74 65 73 20 69 20 0a 6c 69 6e 69 65 20 30 30 35 30 ┆længden fastsættes i linie 0050┆
0x2bf00…2bf20 2c 20 73 7d 20 6c 79 73 70 65 72 69 6f 64 65 6e 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 ┆, så lysperioden og mørkeperiode┆
0x2bf20…2bf40 6e 20 65 72 20 6c 69 67 65 20 0a 6c 61 6e 67 65 20 66 6f 72 20 64 65 20 65 6e 6b 65 6c 74 65 20 ┆n er lige lange for de enkelte ┆
0x2bf40…2bf60 62 6c 69 6e 6b 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 64 32 22 0d 0a 30 30 ┆blink: 0010 // "blink-d2" 00┆
0x2bf60…2bf80 32 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 33 30 20 4f 50 45 4e 20 46 49 4c ┆20 PRINT CHR$(12) 0030 OPEN FIL┆
0x2bf80…2bfa0 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 49 4e ┆E 1,"/17/PORT", WRITE 0040 IN┆
0x2bfa0…2bfc0 50 55 54 20 22 53 4b 52 49 56 20 41 4e 54 41 4c 20 42 4c 49 4e 4b 20 50 52 2e 20 53 45 4b 55 4e ┆PUT "SKRIV ANTAL BLINK PR. SEKUN┆
0x2bfc0…2bfe0 44 3a 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D: ": ┆
0x2bfe0…2c000 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 69 6e 6b 66 72 65 6b 76 65 6e 73 0d 0a b0 30 30 35 ┆ blinkfrekvens 005┆
0x2c000…2c020 (19, 1, 8) 0a b0 30 30 36 30 f0 3a 20 41 6c 6c 65 20 38 20 6c 61 6d 70 65 72 20 74 7b 6e 64 65 73 2e 0d 0a ┆ 0060 : Alle 8 lamper tændes. ┆
0x2c020…2c040 0d 0a b0 30 30 37 30 2d 30 30 38 30 f0 3a 20 48 65 72 20 76 65 6e 74 65 73 20 64 65 72 20 74 69 ┆ 0070-0080 : Her ventes der ti┆
0x2c040…2c060 6c 20 65 6e 20 65 6c 6c 65 72 20 61 6e 64 65 6e 20 74 61 73 74 20 0a 19 80 81 80 62 6c 69 76 65 ┆l en eller anden tast blive┆
0x2c060…2c080 72 20 74 72 79 6b 6b 65 74 20 6e 65 64 2e 0d 0a 0d 0a b0 30 30 39 30 f0 3a 20 41 6c 6c 65 20 6c ┆r trykket ned. 0090 : Alle l┆
0x2c080…2c0a0 61 6d 70 65 72 20 73 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆amper slukkes. --------------┆
0x2c0a0…2c0c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2c0c0…2c0e0 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4e 75 20 73 6b 61 6c 20 64 65 72 20 74 61 67 65 73 20 74 69 ┆-------- Nu skal der tages ti┆
0x2c0e0…2c100 64 20 70 7d 20 68 76 6f 72 20 6c 7b 6e 67 65 20 64 65 74 20 76 61 72 65 72 20 66 72 61 20 0a 6c ┆d på hvor længe det varer fra l┆
0x2c100…2c120 61 6d 70 65 72 6e 65 20 62 6c 69 76 65 72 20 74 7b 6e 64 74 2c 20 74 69 6c 20 64 65 72 20 74 72 ┆amperne bliver tændt, til der tr┆
0x2c120…2c140 79 6b 6b 65 73 20 70 7d 20 65 6e 20 74 61 73 74 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 72 65 ┆ykkes på en tast: 0010 // "re┆
0x2c140…2c160 61 6b 74 69 6f 6e 2d 62 22 0d 0a 30 30 32 30 20 52 41 4e 44 4f 4d 49 5a 45 0d 0a 30 30 33 30 20 ┆aktion-b" 0020 RANDOMIZE 0030 ┆
0x2c160…2c180 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 34 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 ┆PRINT CHR$(12) 0040 OPEN FILE 1┆
0x2c180…2c1a0 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 30 20 44 49 4d 20 76 ┆,"/17/PORT", WRITE 0050 DIM v┆
0x2c1a0…2c1c0 69 64 65 72 65 24 20 4f 46 20 31 30 0d 0a b0 30 30 36 30 20 49 4e 50 55 54 20 22 54 52 59 4b 20 ┆idere$ OF 10 0060 INPUT "TRYK ┆
0x2c1c0…2c1e0 3c 52 45 54 55 52 4e 3e 20 4e 5d 52 20 44 55 20 45 52 20 4b 4c 41 52 20 21 21 22 3a 20 76 69 64 ┆<RETURN> NÅR DU ER KLAR !!": vid┆
0x2c1e0…2c200 65 72 65 24 0d 0a 30 30 37 30 20 45 58 45 43 20 70 61 75 73 65 28 52 4e 44 28 33 2c 37 29 29 0d ┆ere$ 0070 EXEC pause(RND(3,7)) ┆
0x2c200…2c220 (19, 1, 9) 30 20 70 61 75 73 65 6c 7b 6e 67 64 65 3a 3d 31 2f 28 62 6c 69 6e 6b 66 72 65 6b 76 65 6e 73 2a ┆0 pauselængde:=1/(blinkfrekvens*┆
0x2c220…2c240 32 29 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 ┆2) 0060 PRINT "STOP: TRYK PÅ ME┆
0x2c240…2c260 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 ┆LLEMRUM-TASTEN !!" 0070 REPEAT ┆
0x2c260…2c280 0d 0a 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 ┆ 0080 PRINT FILE 1: CHR$(255)┆
0x2c280…2c2a0 3b 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 64 ┆; 0090 EXEC pause( pauselængd┆
0x2c2a0…2c2c0 65 f0 29 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 ┆e ) 0100 PRINT FILE 1: CHR$(0┆
0x2c2c0…2c2e0 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 ┆); 0110 EXEC pause( pauselæng┆
0x2c2e0…2c300 64 65 f0 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 ┆de ) 0120 UNTIL ORD(KEY$)=32 0┆
0x2c300…2c320 31 33 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d ┆130 CLOSE FILE 1 0140 END -┆
0x2c320…2c340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2c340…2c360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 48 0a 0d 0a 0d 0a 0d ┆--------------------- H ┆
0x2c360…2c380 0a 49 20 22 62 6c 69 6e 6b 2d 65 22 20 66 61 73 74 6c 7b 67 67 65 73 20 6c 79 73 70 65 72 69 6f ┆ I "blink-e" fastlægges lysperio┆
0x2c380…2c3a0 64 65 6e 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 69 20 0a 74 6f 20 74 69 6c 64 65 ┆den og mørkeperioden i to tilde┆
0x2c3a0…2c3c0 6c 69 6e 67 73 73 7b 74 6e 69 6e 67 65 72 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e ┆lingssætninger: 0010 // "blin┆
0x2c3c0…2c3e0 6b 2d 65 22 0d 0a 30 30 32 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 33 30 20 ┆k-e" 0020 PRINT CHR$(12) 0030 ┆
0x2c3e0…2c400 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a ┆OPEN FILE 1,"/17/PORT", WRITE ┆
0x2c400…2ee00 (20, 0, 1) […elided…]
0x2ee00…2ee20 (21, 0, 4) 65 20 65 6e 6b 65 6c 74 65 20 6d 6f 72 73 65 73 69 67 6e 61 6c 65 72 2c 20 61 6c 74 73 7d 20 0a ┆e enkelte morsesignaler, altså ┆
0x2ee20…2ee40 19 80 81 80 64 65 20 65 6e 6b 65 6c 74 65 20 70 72 69 6b 6b 65 72 20 6f 67 20 73 74 72 65 67 65 ┆ de enkelte prikker og strege┆
0x2ee40…2ee60 72 2e 0d 0a 0d 0a b0 30 31 34 30 2d 30 32 31 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 64 ┆r. 0140-0210 : Her udføres d┆
0x2ee60…2ee80 65 20 65 6e 6b 65 6c 74 65 20 62 6f 67 73 74 61 76 65 72 2c 20 64 65 72 20 62 65 73 74 7d 72 20 ┆e enkelte bogstaver, der består ┆
0x2ee80…2eea0 0a 19 80 81 80 61 66 20 65 74 20 65 6c 6c 65 72 20 66 6c 65 72 65 20 6d 6f 72 73 65 73 69 67 6e ┆ af et eller flere morsesign┆
0x2eea0…2eec0 61 6c 65 72 20 28 3d 70 72 69 6b 6b 65 72 20 6f 67 20 73 74 72 65 67 65 72 29 2e 0d 0a 0d 0a b0 ┆aler (=prikker og streger). ┆
0x2eec0…2eee0 30 32 30 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 6d 65 6c 6c 65 6d 72 75 6d 6d 6d 65 6e ┆0200 : Her udføres mellemrummmen┆
0x2eee0…2ef00 65 20 6d 65 6c 6c 65 6d 20 64 65 20 65 6e 6b 65 6c 74 65 20 0a 19 80 81 80 62 6f 67 73 74 61 76 ┆e mellem de enkelte bogstav┆
0x2ef00…2ef20 65 72 2e 0d 0a 0d 0a 53 6f 6d 20 64 65 74 20 6b 61 6e 20 73 65 73 2c 20 6b 72 7b 76 65 72 20 64 ┆er. Som det kan ses, kræver d┆
0x2ef20…2ef40 65 6e 6e 65 20 6f 70 67 61 76 65 2c 20 61 74 20 65 6c 65 76 65 72 6e 65 20 65 72 20 0a 66 6f 72 ┆enne opgave, at eleverne er for┆
0x2ef40…2ef60 74 72 6f 6c 69 67 65 20 6d 65 64 20 76 61 72 69 61 62 6c 65 20 6d 65 64 20 69 6e 64 65 78 2c 20 ┆trolige med variable med index, ┆
0x2ef60…2ef80 73 61 6d 74 20 64 65 6c 2d 73 74 72 65 6e 67 65 2e 20 53 7d 20 0a 6f 70 67 61 76 65 6e 20 65 72 ┆samt del-strenge. Så opgaven er┆
0x2ef80…2efa0 20 67 6f 64 20 68 76 69 73 20 64 65 72 20 65 72 20 65 74 20 70 61 72 20 73 6b 72 61 70 70 65 20 ┆ god hvis der er et par skrappe ┆
0x2efa0…2efc0 65 6c 65 76 65 72 20 64 65 72 20 0a 6d 61 6e 67 6c 65 72 20 6c 69 64 74 20 75 64 66 6f 72 64 72 ┆elever der mangler lidt udfordr┆
0x2efc0…2efe0 69 6e 67 2e 0d 0a 0c 84 80 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 4c 5c 42 45 4c 59 ┆ing. PROBLEM "LØBELY┆
0x2efe0…2f000 53 22 3a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 61 31 22 20 65 72 20 61 6e 76 65 6e 64 74 20 22 ┆S": I "løb-a1" er anvendt "┆
0x2f000…2f020 (21, 0, 5) 65 6c 65 76 65 72 6e 65 73 20 66 6f 72 75 64 73 7b 74 6e 69 6e 67 65 72 20 65 6c 6c 65 72 20 69 ┆elevernes forudsætninger eller i┆
0x2f020…2f040 6e 74 65 72 65 73 73 65 20 69 6b 6b 65 20 73 6c 7d 72 20 0a 19 80 83 80 74 69 6c 2e 0d 0a 0d 0a ┆nteresse ikke slår til. ┆
0x2f040…2f060 22 6d 6f 72 73 65 2d 65 22 2c 20 70 7d 20 6e 7b 73 74 65 20 73 69 64 65 2c 20 65 72 20 66 6f 72 ┆"morse-e", på næste side, er for┆
0x2f060…2f080 20 65 6b 73 65 6d 70 65 6c 20 69 20 6f 76 65 72 6b 61 6e 74 65 6e 20 0a 61 66 20 68 76 61 64 20 ┆ eksempel i overkanten af hvad ┆
0x2f080…2f0a0 65 6c 65 76 65 72 6e 65 20 6d 7d 20 66 6f 72 76 65 6e 74 65 73 20 61 74 20 6b 75 6e 6e 65 20 6b ┆eleverne må forventes at kunne k┆
0x2f0a0…2f0c0 6c 61 72 65 2e 0d 0a 0c 82 98 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 65 22 20 65 72 20 65 74 ┆lare. "morse-e" er et┆
0x2f0c0…2f0e0 20 6c 7c 73 6e 69 6e 67 73 66 6f 72 73 6c 61 67 20 74 69 6c 20 65 74 20 22 67 65 6e 65 72 65 6c ┆ løsningsforslag til et "generel┆
0x2f0e0…2f100 74 22 20 0a 6d 6f 72 73 65 70 72 6f 67 72 61 6d 2c 20 68 76 6f 72 20 64 65 72 20 62 6c 6f 74 20 ┆t" morseprogram, hvor der blot ┆
0x2f100…2f120 73 6b 61 6c 20 69 6e 64 74 61 73 74 65 73 20 65 6e 20 74 65 6b 73 74 20 70 7d 20 0a 73 6b 7b 72 ┆skal indtastes en tekst på skær┆
0x2f120…2f140 6d 65 6e 20 6f 67 20 74 72 79 6b 6b 65 73 20 3c 52 45 54 55 52 4e 3e 2e 20 44 65 74 20 65 72 20 ┆men og trykkes <RETURN>. Det er ┆
0x2f140…2f160 61 62 73 6f 6c 75 74 20 69 20 0a 6f 76 65 72 6b 61 6e 74 65 6e 20 68 76 61 64 20 73 76 7b 72 68 ┆absolut i overkanten hvad sværh┆
0x2f160…2f180 65 64 73 67 72 61 64 65 6e 20 61 6e 67 7d 72 2e 20 0d 0a 0d 0a 04 00 2d 4e 0a 00 06 00 00 00 00 ┆edsgraden angår. -N ┆
0x2f180…2f1a0 02 07 4d 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 15 1f ┆ M1@ ┆
0x2f1a0…2f1c0 29 33 3d 47 51 5b 65 6f 79 83 8d 97 ff 04 04 00 2d 4e 0a 00 06 00 00 00 00 02 14 49 31 40 00 00 ┆)3=GQÆeoy -N I1@ ┆
0x2f1c0…2f1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a 54 5e 68 72 ┆ ",6@JT^hr┆
0x2f1e0…2f200 7c 86 90 9a a4 ff 04 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 65 22 0d 0a b0 30 30 32 ┆ø 0010 // "morse-e" 002┆
0x2f200…2f220 (21, 0, 6) 47 5c 47 2d 4f 47 2d 47 4f 4b 4b 45 2d 4d 45 54 4f 44 45 4e 22 2c 20 69 64 65 74 20 0a 68 76 65 ┆GØG-OG-GOKKE-METODEN", idet hve┆
0x2f220…2f240 72 74 20 67 65 6e 6e 65 6d 6c 7c 62 20 62 65 73 74 7d 72 20 61 74 20 38 20 22 50 52 49 4e 54 20 ┆rt gennemløb består at 8 "PRINT ┆
0x2f240…2f260 46 49 4c 45 22 2d 73 7b 74 6e 69 6e 67 65 72 2e 20 0a 4c 79 73 65 74 20 6c 7c 62 65 72 20 6b 75 ┆FILE"-sætninger. Lyset løber ku┆
0x2f260…2f280 6e 20 b0 65 6e f0 20 67 61 6e 67 20 66 72 61 20 76 65 6e 73 74 72 65 20 6d 6f 64 20 68 7c 6a 72 ┆n en gang fra venstre mod højr┆
0x2f280…2f2a0 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 61 31 22 0d 0a b0 30 30 32 30 20 4f ┆e: 0010 // "løb-a1" 0020 O┆
0x2f2a0…2f2c0 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 ┆PEN FILE 1,"/17/PORT", WRITE ┆
0x2f2c0…2f2e0 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 29 3b 0d 0a b0 30 30 ┆0030 PRINT FILE 1: CHR$(1); 00┆
0x2f2e0…2f300 34 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 30 35 30 20 50 52 49 4e 54 20 ┆40 EXEC pause(0.3) 0050 PRINT ┆
0x2f300…2f320 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 29 3b 0d 0a b0 30 30 36 30 20 45 58 45 43 20 70 61 75 ┆FILE 1: CHR$(2); 0060 EXEC pau┆
0x2f320…2f340 73 65 28 30 2e 33 29 0d 0a b0 30 30 37 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆se(0.3) 0070 PRINT FILE 1: CHR┆
0x2f340…2f360 24 28 34 29 3b 0d 0a b0 30 30 38 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 ┆$(4); 0080 EXEC pause(0.3) 0┆
0x2f360…2f380 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 0d 0a b0 30 31 30 ┆090 PRINT FILE 1: CHR$(8); 010┆
0x2f380…2f3a0 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 31 30 20 50 52 49 4e 54 20 46 ┆0 EXEC pause(0.3) 0110 PRINT F┆
0x2f3a0…2f3c0 49 4c 45 20 31 3a 20 43 48 52 24 28 31 36 29 3b 0d 0a b0 30 31 32 30 20 45 58 45 43 20 70 61 75 ┆ILE 1: CHR$(16); 0120 EXEC pau┆
0x2f3c0…2f3e0 73 65 28 30 2e 33 29 0d 0a b0 30 31 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆se(0.3) 0130 PRINT FILE 1: CHR┆
0x2f3e0…2f400 24 28 33 32 29 3b 0d 0a b0 30 31 34 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 ┆$(32); 0140 EXEC pause(0.3) ┆
0x2f400…2f420 (21, 0, 7) 30 20 64 65 63 3a 3d 32 35 35 0d 0a b0 30 30 33 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 34 30 20 ┆0 dec:=255 0030 CLOSE 0040 ┆
0x2f420…2f440 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a ┆OPEN FILE 1,"/17/PORT", WRITE ┆
0x2f440…2f460 b0 30 30 35 30 20 44 49 4d 20 6d 6f 72 73 65 74 65 67 6e 24 28 39 36 29 20 4f 46 20 31 30 2c 74 ┆ 0050 DIM morsetegn$(96) OF 10,t┆
0x2f460…2f480 65 6b 73 74 24 20 4f 46 20 38 30 0d 0a b0 30 30 36 30 20 46 4f 52 20 74 65 67 6e 3a 3d 39 37 20 ┆ekst$ OF 80 0060 FOR tegn:=97 ┆
0x2f480…2f4a0 54 4f 20 31 32 32 20 44 4f 20 52 45 41 44 20 6d 6f 72 73 65 74 65 67 6e 24 28 74 65 67 6e 2d 39 ┆TO 122 DO READ morsetegn$(tegn-9┆
0x2f4a0…2f4c0 36 29 0d 0a 0d 0a b0 30 30 37 30 20 44 41 54 41 20 22 2e 2d 22 2c 22 2d 2e 2e 2e 22 2c 22 2d 2e ┆6) 0070 DATA ".-","-...","-.┆
0x2f4c0…2f4e0 2d 2e 22 2c 22 2d 2e 2e 22 2c 22 2e 22 2c 22 2e 2e 2d 2e 22 2c 22 2d 2d 2e 22 2c 22 2e 2e 2e 2e ┆-.","-..",".","..-.","--.","....┆
0x2f4e0…2f500 22 2c 22 2e 2e 22 2c 22 2e 2d 2d 2d 22 0d 0a b0 30 30 38 30 20 44 41 54 41 20 22 2d 2e 2d 22 2c ┆","..",".---" 0080 DATA "-.-",┆
0x2f500…2f520 22 2e 2d 2e 2e 22 2c 22 2d 2d 22 2c 22 2d 2e 22 2c 22 2d 2d 2d 22 2c 22 2e 2d 2d 2e 22 2c 22 2d ┆".-..","--","-.","---",".--.","-┆
0x2f520…2f540 2d 2e 2d 22 2c 22 2e 2d 2e 22 2c 22 2e 2e 2e 22 2c 22 2d 22 0d 0a b0 30 30 39 30 20 44 41 54 41 ┆-.-",".-.","...","-" 0090 DATA┆
0x2f540…2f560 20 22 2e 2e 2d 22 2c 22 2e 2e 2e 2d 22 2c 22 2e 2d 2d 22 2c 22 2d 2e 2e 2d 22 2c 22 2d 2e 2d 2d ┆ "..-","...-",".--","-..-","-.--┆
0x2f560…2f580 22 2c 22 2d 2d 2e 2e 22 0d 0a 0d 0a b0 30 31 31 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 54 ┆","--.." 0110 INPUT "SKRIV T┆
0x2f580…2f5a0 45 4b 53 54 3a 20 22 3a 20 74 65 6b 73 74 24 0d 0a b0 30 31 32 30 20 50 52 49 4e 54 20 0d 0a b0 ┆EKST: ": tekst$ 0120 PRINT ┆
0x2f5a0…2f5c0 30 31 33 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 48 41 53 54 49 47 48 45 44 20 28 31 30 30 ┆0130 INPUT "SKRIV HASTIGHED (100┆
0x2f5c0…2f5e0 3d 6e 6f 72 6d 61 6c 29 3a 20 22 3a 20 68 61 73 74 69 67 68 65 64 0d 0a 0d 0a b0 30 31 34 30 20 ┆=normal): ": hastighed 0140 ┆
0x2f5e0…2f600 46 4f 52 20 74 65 67 6e 6e 72 3a 3d 31 20 54 4f 20 4c 45 4e 28 74 65 6b 73 74 24 29 20 44 4f 0d ┆FOR tegnnr:=1 TO LEN(tekst$) DO ┆
0x2f600…2f620 (21, 0, 8) 30 31 35 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 34 29 3b 0d 0a b0 30 ┆0150 PRINT FILE 1: CHR$(64); 0┆
0x2f620…2f640 31 36 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 37 30 20 50 52 49 4e 54 ┆160 EXEC pause(0.3) 0170 PRINT┆
0x2f640…2f660 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 38 29 3b 0d 0a b0 30 31 38 30 20 45 58 45 43 20 ┆ FILE 1: CHR$(128); 0180 EXEC ┆
0x2f660…2f680 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a ┆pause(0.3) 0190 CLOSE FILE 1 ┆
0x2f680…2f6a0 b0 30 32 30 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0200 END ------------------┆
0x2f6a0…2f6c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2f6c0…2f6e0 2d 2d 2d 2d 0d 0a 0d 0a 50 72 6f 62 6c 65 6d 65 74 20 62 7c 72 20 6c 7c 73 65 73 20 70 7d 20 65 ┆---- Problemet bør løses på e┆
0x2f6e0…2f700 6e 20 6d 65 72 65 20 65 6c 65 67 61 6e 74 20 6d 7d 64 65 2c 20 6e 65 6d 6c 69 67 20 6d 65 64 20 ┆n mere elegant måde, nemlig med ┆
0x2f700…2f720 65 6e 20 0a 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 2c 20 68 76 6f 72 20 65 74 20 67 65 6e 6e ┆en FOR/NEXT-løkke, hvor et genn┆
0x2f720…2f740 65 6d 6c 7c 62 20 6b 61 6e 20 75 64 74 72 79 6b 6b 65 73 20 0a 73 69 6d 70 65 6c 74 20 72 65 6e ┆emløb kan udtrykkes simpelt ren┆
0x2f740…2f760 74 20 6d 61 74 65 6d 61 74 69 73 6b 3a 20 32 20 6f 70 6c 7c 66 74 65 74 20 74 69 6c 20 65 6e 20 ┆t matematisk: 2 opløftet til en ┆
0x2f760…2f780 70 6f 74 65 6e 73 20 0a 73 76 61 72 65 6e 64 65 20 74 69 6c 20 62 69 74 2d 6e 75 6d 6d 65 72 65 ┆potens svarende til bit-nummere┆
0x2f780…2f7a0 74 2c 20 61 6c 74 73 7d 20 20 32 20 69 20 6e 75 6c 74 65 20 28 3d 31 29 2c 20 32 20 69 20 0a 66 ┆t, altså 2 i nulte (=1), 2 i f┆
0x2f7a0…2f7c0 7c 72 73 74 65 20 28 3d 32 29 2c 20 32 20 69 20 61 6e 64 65 6e 20 28 3d 34 29 2c 20 32 20 69 20 ┆ørste (=2), 2 i anden (=4), 2 i ┆
0x2f7c0…2f7e0 74 72 65 64 69 65 20 28 3d 38 29 2c 20 2e 2e 2e 20 0a 6f 2e 73 2e 76 2e 2e 0d 0a 0d 0a 49 20 22 ┆tredie (=8), ... o.s.v.. I "┆
0x2f7e0…2f800 6c 7c 62 2d 61 32 22 20 65 72 20 64 65 74 20 67 6a 6f 72 74 20 73 7d 64 61 6e 3a 0d 0a 0d 0a b0 ┆løb-a2" er det gjort sådan: ┆
0x2f800…2f820 (21, 0, 9) 0a b0 30 31 35 30 20 20 20 6d 6f 72 73 65 74 65 67 6e 6e 72 3a 3d 4f 52 44 28 74 65 6b 73 74 24 ┆ 0150 morsetegnnr:=ORD(tekst$┆
0x2f820…2f840 28 74 65 67 6e 6e 72 3a 74 65 67 6e 6e 72 29 29 2d 39 36 0d 0a b0 30 31 36 30 20 20 20 46 4f 52 ┆(tegnnr:tegnnr))-96 0160 FOR┆
0x2f840…2f860 20 73 69 67 6e 61 6c 3a 3d 31 20 54 4f 20 4c 45 4e 28 6d 6f 72 73 65 74 65 67 6e 24 28 6d 6f 72 ┆ signal:=1 TO LEN(morsetegn$(mor┆
0x2f860…2f880 73 65 74 65 67 6e 6e 72 29 29 20 44 4f 0d 0a b0 30 31 37 30 20 20 20 20 20 49 46 20 6d 6f 72 73 ┆setegnnr)) DO 0170 IF mors┆
0x2f880…2f8a0 65 74 65 67 6e 24 28 6d 6f 72 73 65 74 65 67 6e 6e 72 2c 73 69 67 6e 61 6c 3a 73 69 67 6e 61 6c ┆etegn$(morsetegnnr,signal:signal┆
0x2f8a0…2f8c0 29 3d 22 2e 22 20 54 48 45 4e 20 45 58 45 43 20 70 72 69 6b 0d 0a b0 30 31 38 30 20 20 20 20 20 ┆)="." THEN EXEC prik 0180 ┆
0x2f8c0…2f8e0 49 46 20 6d 6f 72 73 65 74 65 67 6e 24 28 6d 6f 72 73 65 74 65 67 6e 6e 72 2c 73 69 67 6e 61 6c ┆IF morsetegn$(morsetegnnr,signal┆
0x2f8e0…2f900 3a 73 69 67 6e 61 6c 29 3d 22 2d 22 20 54 48 45 4e 20 45 58 45 43 20 73 74 72 65 67 0d 0a b0 30 ┆:signal)="-" THEN EXEC streg 0┆
0x2f900…2f920 31 39 30 20 20 20 4e 45 58 54 20 73 69 67 6e 61 6c 0d 0a b0 30 32 30 30 20 20 20 45 58 45 43 20 ┆190 NEXT signal 0200 EXEC ┆
0x2f920…2f940 70 61 75 73 65 28 31 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 29 0d 0a b0 30 32 31 30 20 ┆pause(1/hastighed x 100) 0210 ┆
0x2f940…2f960 4e 45 58 54 20 74 65 67 6e 6e 72 0d 0a 0d 0a b0 30 32 33 30 20 50 52 4f 43 20 70 72 69 6b 0d 0a ┆NEXT tegnnr 0230 PROC prik ┆
0x2f960…2f980 b0 30 32 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 0d ┆ 0240 PRINT FILE 1: CHR$(255) ┆
0x2f980…2f9a0 0a b0 30 32 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 35 2f 68 61 73 74 69 67 68 ┆ 0250 EXEC pause(0.25/hastigh┆
0x2f9a0…2f9c0 65 64 20 78 20 31 30 30 29 0d 0a b0 30 32 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆ed x 100) 0260 PRINT FILE 1:┆
0x2f9c0…2f9e0 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 32 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e ┆ CHR$(0); 0270 EXEC pause(0.┆
0x2f9e0…2fa00 32 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 29 0d 0a b0 30 32 38 30 20 45 4e 44 50 52 4f ┆2/hastighed x 100) 0280 ENDPRO┆
0x2fa00…2fa20 (21, 1, 1) 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 61 32 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c ┆0010 // "løb-a2" 0020 OPEN FIL┆
0x2fa20…2fa40 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 46 4f ┆E 1,"/17/PORT", WRITE 0030 FO┆
0x2fa40…2fa60 52 20 6e 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 ┆R n:=0 TO 7 DO 0040 PRINT FI┆
0x2fa60…2fa80 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 6e 29 3b 0d 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 70 ┆LE 1: CHR$(2^n); 0050 EXEC p┆
0x2fa80…2faa0 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 30 36 30 20 4e 45 58 54 20 6e 0d 0a b0 30 30 37 30 20 43 ┆ause(0.3) 0060 NEXT n 0070 C┆
0x2faa0…2fac0 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 30 38 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d ┆LOSE FILE 1 0080 END -----┆
0x2fac0…2fae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2fae0…2fb00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 62 22 20 65 ┆----------------- I "løb-b" e┆
0x2fb00…2fb20 72 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e 20 6c 61 67 74 20 69 6e 64 20 69 20 65 6e 20 ┆r FOR/NEXT-løkken lagt ind i en ┆
0x2fb20…2fb40 22 52 45 50 45 41 54 2d 0a 55 4e 54 49 4c 22 2d 6c 7c 6b 6b 65 2c 20 66 6f 72 20 61 74 20 66 7d ┆"REPEAT- UNTIL"-løkke, for at få┆
0x2fb40…2fb60 20 67 65 6e 6e 65 6d 6c 7c 62 65 74 20 67 65 6e 74 61 67 65 74 20 69 6e 64 74 69 6c 20 0a 64 65 ┆ gennemløbet gentaget indtil de┆
0x2fb60…2fb80 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 6d 65 6c 6c 65 6d 72 75 6d 2d 74 61 73 74 65 6e 3a 0d 0a ┆r trykkes på mellemrum-tasten: ┆
0x2fb80…2fba0 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 30 30 35 30 20 20 20 46 4f 52 20 62 69 74 3a ┆ 0040 REPEAT 0050 FOR bit:┆
0x2fba0…2fbc0 3d 30 20 54 4f 20 37 20 44 4f 0d 0a 30 30 36 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆=0 TO 7 DO 0060 PRINT FILE ┆
0x2fbc0…2fbe0 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a 30 30 37 30 20 20 20 20 20 45 58 45 43 20 70 ┆1: CHR$(2^bit); 0070 EXEC p┆
0x2fbe0…2fc00 61 75 73 65 28 30 2e 33 29 0d 0a 30 30 38 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a b0 30 30 39 ┆ause(0.3) 0080 NEXT bit 009┆
0x2fc00…2fc20 (21, 1, 2) 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆0 UNTIL ORD(KEY$)=32 --------┆
0x2fc20…2fc40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2fc40…2fc60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 84 88 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 ┆-------------- I "løb┆
0x2fc60…2fc80 2d 63 22 20 65 72 20 74 69 6c 66 7c 6a 65 74 20 6d 75 6c 69 67 68 65 64 65 6e 20 66 6f 72 20 61 ┆-c" er tilføjet muligheden for a┆
0x2fc80…2fca0 74 20 76 61 72 69 65 72 65 20 0a 62 6c 69 6e 6b 66 72 65 6b 76 65 6e 73 65 6e 3a 0d 0a 0d 0a 30 ┆t variere blinkfrekvensen: 0┆
0x2fca0…2fcc0 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 63 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 ┆010 // "løb-c" 0020 OPEN FILE 1┆
0x2fcc0…2fce0 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 ┆,"/17/PORT", WRITE 0030 PRINT┆
0x2fce0…2fd00 20 22 53 4b 52 49 56 20 4c 59 53 50 45 52 49 4f 44 45 4e 22 0d 0a b0 30 30 34 30 20 50 52 49 4e ┆ "SKRIV LYSPERIODEN" 0040 PRIN┆
0x2fd00…2fd20 54 20 22 49 20 53 45 4b 55 4e 44 45 52 22 0d 0a b0 30 30 35 30 20 49 4e 50 55 54 20 22 46 4f 52 ┆T "I SEKUNDER" 0050 INPUT "FOR┆
0x2fd20…2fd40 20 48 56 45 52 20 50 5b 52 45 3a 20 22 3a 20 6c 79 73 70 65 72 69 6f 64 65 0d 0a 30 30 36 30 20 ┆ HVER PÆRE: ": lysperiode 0060 ┆
0x2fd40…2fd60 50 52 49 4e 54 20 0d 0a 30 30 37 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 ┆PRINT 0070 PRINT "STOP: TRYK P┆
0x2fd60…2fd80 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 38 30 20 52 45 50 ┆Å MELLEMRUM-TASTEN !!" 0080 REP┆
0x2fd80…2fda0 45 41 54 20 0d 0a 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d ┆EAT 0090 FOR bit:=0 TO 7 DO ┆
0x2fda0…2fdc0 0a 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 ┆ 0100 PRINT FILE 1: CHR$(2^b┆
0x2fdc0…2fde0 69 74 29 3b 0d 0a 30 31 31 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 6c 79 73 70 65 ┆it); 0110 EXEC pause( lyspe┆
0x2fde0…2fe00 72 69 6f 64 65 f0 29 0d 0a 30 31 32 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 33 30 20 55 ┆riode ) 0120 NEXT bit 0130 U┆
0x2fe00…30000 (21, 1, 3) DataBlock {»WORK.BLK«}
0x30000…30020 (21, 1, 4) 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 31 34 30 20 50 52 49 4e 54 20 46 49 ┆NTIL ORD(KEY$)=32 0140 PRINT FI┆
0x30020…30040 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 35 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 ┆LE 1: CHR$(0); 0150 CLOSE FILE ┆
0x30040…30060 31 0d 0a 30 31 36 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆1 0160 END ----------------┆
0x30060…30080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30080…300a0 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 64 22 20 67 65 6e 6e 65 6d 6c 7c 62 65 73 20 ┆------ I "løb-d" gennemløbes ┆
0x300a0…300c0 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e 20 6d 65 64 20 65 74 20 0a 6e 65 67 61 74 69 76 74 ┆FOR/NEXT-løkken med et negativt┆
0x300c0…300e0 20 53 54 45 50 2c 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 61 74 20 42 49 54 2d 37 20 70 7b 72 ┆ STEP, svarende til at BIT-7 pær┆
0x300e0…30100 65 6e 20 62 65 67 79 6e 64 65 72 20 6f 67 20 0a 42 49 54 2d 30 20 70 7b 72 65 6e 20 73 6c 75 74 ┆en begynder og BIT-0 pæren slut┆
0x30100…30120 74 65 72 20 68 76 65 72 74 20 67 65 6e 6e 65 6d 6c 7c 62 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 ┆ter hvert gennemløb: 0090 ┆
0x30120…30140 46 4f 52 20 62 69 74 3a 3d 37 20 54 4f 20 30 20 53 54 45 50 20 2d 31 20 44 4f 0d 0a b0 30 31 30 ┆FOR bit:=7 TO 0 STEP -1 DO 010┆
0x30140…30160 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b ┆0 PRINT FILE 1: CHR$(2^bit);┆
0x30160…30180 0d 0a b0 30 31 31 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 ┆ 0110 EXEC pause(lysperiod┆
0x30180…301a0 65 29 0d 0a b0 30 31 32 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆e) 0120 NEXT bit --------┆
0x301a0…301c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x301c0…301e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 65 31 22 20 65 72 20 ┆-------------- I "løb-e1" er ┆
0x301e0…30200 64 65 74 20 74 61 6c 76 61 72 69 61 62 6c 65 6e 20 b0 20 44 45 43 54 41 4c f0 20 64 65 72 20 73 ┆det talvariablen DECTAL der s┆
0x30200…30400 (21, 1, 5) DataBlock {»WORK.BLK«}
0x30400…30420 (21, 1, 6) 65 6e 64 65 73 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 2e 20 b0 44 45 43 54 ┆endes til lyspanelet. DECT┆
0x30420…30440 41 4c f0 20 66 6f 72 7c 67 65 73 20 69 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e 20 6d 65 ┆AL forøges i FOR/NEXT-løkken me┆
0x30440…30460 64 20 65 74 20 0a 19 80 82 80 74 61 6c 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 68 76 65 72 20 ┆d et tal svarende til hver ┆
0x30460…30480 6c 61 6d 70 65 73 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 2c 20 73 7d 6c 65 64 65 73 20 61 74 20 ┆lampes decimale tal, således at ┆
0x30480…304a0 0a 19 80 82 80 b0 44 45 43 54 41 4c f0 20 6f 70 73 75 6d 6d 65 72 65 72 73 2e 20 42 65 6d 7b 72 ┆ DECTAL opsummerers. Bemær┆
0x304a0…304c0 6b 20 61 74 20 42 49 54 2d 30 20 70 7b 72 65 6e 20 66 6f 72 62 6c 69 76 65 72 20 0a 19 80 83 80 ┆k at BIT-0 pæren forbliver ┆
0x304c0…304e0 74 7b 6e 64 74 20 75 6e 64 65 72 20 70 72 6f 67 72 61 6d 6d 65 74 73 20 61 66 76 69 6b 6c 69 6e ┆tændt under programmets afviklin┆
0x304e0…30500 67 3a 0d 0a 0d 0a b0 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 39 30 20 20 20 64 65 63 ┆g: 0080 REPEAT 0090 dec┆
0x30500…30520 74 61 6c 3a 3d 30 0d 0a b0 30 31 30 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 ┆tal:=0 0100 FOR bit:=0 TO 7 ┆
0x30520…30540 44 4f 0d 0a b0 30 31 31 30 20 20 20 20 20 64 65 63 74 61 6c 3a 3d 64 65 63 74 61 6c 2b 32 5e 62 ┆DO 0110 dectal:=dectal+2^b┆
0x30540…30560 69 74 0d 0a b0 30 31 32 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆it 0120 PRINT FILE 1: CHR$┆
0x30560…30580 28 64 65 63 74 61 6c 29 3b 0d 0a b0 30 31 33 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆(dectal); 0130 EXEC pause(┆
0x30580…305a0 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 34 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a b0 ┆lysperiode) 0140 NEXT bit ┆
0x305a0…305c0 30 31 35 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d ┆0150 UNTIL ORD(KEY$)=32 -----┆
0x305c0…305e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x305e0…30600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 20 0a 0d 0a 0d 0a 0d 0a 49 20 22 ┆----------------- I "┆
0x30600…30780 (21, 1, 7) DataBlock {»WORK.BLK«}
0x30780…307a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x307a0…307c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 4c 59 53 50 41 4e 45 4c 45 54 3a 0d 0a 5f 5f 5f ┆_________ LYSPANELET: ___┆
0x307c0…307e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x307e0…30800 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 20 20 20 84 20 84 4c 79 73 70 61 6e 65 6c 65 74 20 62 65 73 ┆______ Lyspanelet bes┆
0x30800…30820 (21, 1, 8) 6c 7c 62 2d 65 32 22 20 69 6e 64 6c 65 64 65 73 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e ┆løb-e2" indledes FOR/NEXT-løkken┆
0x30820…30840 20 6d 65 64 20 61 74 20 30 20 73 65 6e 64 65 73 20 0a 74 69 6c 20 6c 79 75 73 70 61 6e 65 6c 65 ┆ med at 0 sendes til lyuspanele┆
0x30840…30860 74 20 73 7d 20 61 6c 6c 65 20 70 7b 72 65 72 20 73 6c 75 6b 6b 65 73 2c 20 6f 67 20 64 65 72 20 ┆t så alle pærer slukkes, og der ┆
0x30860…30880 75 64 66 7c 72 65 73 20 0a 65 6e 20 70 61 75 73 65 20 66 7c 72 20 70 7b 72 65 72 6e 65 20 62 65 ┆udføres en pause før pærerne be┆
0x30880…308a0 67 79 6e 64 65 72 20 61 74 20 6c 79 73 65 20 6f 70 2e 20 50 7d 20 64 65 6e 6e 65 20 0a 6d 7d 64 ┆gynder at lyse op. På denne måd┆
0x308a0…308c0 65 20 73 6c 75 6b 6b 65 73 20 6f 67 73 7d 20 42 49 54 2d 30 20 70 7b 72 65 6e 20 69 20 68 76 65 ┆e slukkes også BIT-0 pæren i hve┆
0x308c0…308e0 72 20 67 65 6e 6e 65 6d 6c 7c 62 3a 0d 0a 0d 0a 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a b0 30 ┆r gennemløb: 0080 REPEAT 0┆
0x308e0…30900 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 ┆090 PRINT FILE 1: CHR$(0); 0┆
0x30900…30920 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 30 31 ┆100 EXEC pause(lysperiode) 01┆
0x30920…30940 31 30 20 20 20 64 65 63 74 61 6c 3a 3d 30 0d 0a 30 31 32 30 20 20 20 46 4f 52 20 62 69 74 3a 3d ┆10 dectal:=0 0120 FOR bit:=┆
0x30940…30960 30 20 54 4f 20 37 20 44 4f 0d 0a 30 31 33 30 20 20 20 20 20 64 65 63 74 61 6c 3a 3d 64 65 63 74 ┆0 TO 7 DO 0130 dectal:=dect┆
0x30960…30980 61 6c 2b 32 5e 62 69 74 0d 0a 30 31 34 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆al+2^bit 0140 PRINT FILE 1:┆
0x30980…309a0 20 43 48 52 24 28 64 65 63 74 61 6c 29 3b 0d 0a 30 31 35 30 20 20 20 20 20 45 58 45 43 20 70 61 ┆ CHR$(dectal); 0150 EXEC pa┆
0x309a0…309c0 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 30 31 36 30 20 20 20 4e 45 58 54 20 62 69 74 ┆use(lysperiode) 0160 NEXT bit┆
0x309c0…309e0 0d 0a 30 31 37 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d ┆ 0170 UNTIL ORD(KEY$)=32 ---┆
0x309e0…30a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30a00…30a20 (21, 1, 9) b0 45 58 45 43 20 6d 7c 72 6b 65 28 32 29 f0 20 73 6c 75 6b 6b 65 72 20 66 79 72 65 74 20 69 20 ┆ EXEC mørke(2) slukker fyret i ┆
0x30a20…30a40 32 20 73 65 6b 75 6e 64 65 72 3a 20 0a 0d 0a b0 30 32 32 30 20 50 52 4f 43 20 6d 7c 72 6b 65 28 ┆2 sekunder: 0220 PROC mørke(┆
0x30a40…30a60 73 65 6b 29 0d 0a b0 30 32 33 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆sek) 0230 PRINT FILE 1: CHR$┆
0x30a60…30a80 28 30 29 3b 0d 0a b0 30 32 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 73 65 6b 29 0d 0a b0 ┆(0); 0240 EXEC pause(sek) ┆
0x30a80…30aa0 52 4f 43 20 6c 79 73 28 73 65 6b 29 0d 0a b0 30 31 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆ROC lys(sek) 0170 PRINT FILE┆
0x30aa0…30ac0 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 31 38 30 20 20 20 45 58 45 43 20 70 61 75 ┆ 1: CHR$(255); 0180 EXEC pau┆
0x30ac0…30ae0 73 65 28 73 65 6b 29 0d 0a b0 30 31 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆se(sek) 0190 PRINT FILE 1: C┆
0x30ae0…30b00 48 52 24 28 30 29 3b 0d 0a b0 30 32 30 30 20 45 4e 44 50 52 4f 43 20 6c 79 73 0d 0a 0d 0a 0d 0a ┆HR$(0); 0200 ENDPROC lys ┆
0x30b00…30b20 30 36 30 2d 30 31 30 30 f0 3a 20 48 65 72 20 65 72 20 73 65 6c 76 65 20 66 79 72 65 74 73 20 6b ┆060-0100 : Her er selve fyrets k┆
0x30b20…30b40 61 72 61 6b 74 65 72 69 73 74 69 6b 20 73 6f 6d 20 0a 19 80 81 80 70 72 6f 63 65 64 75 72 65 6b ┆arakteristik som procedurek┆
0x30b40…30b60 61 6c 64 2e 20 0d 0a 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 6c 79 73 28 34 29 f0 20 74 7b 6e 64 65 ┆ald. EXEC lys(4) tænde┆
0x30b60…30b80 72 20 66 79 72 65 74 20 69 20 34 20 73 65 6b 75 6e 64 65 72 3a 0d 0a 0d 0a b0 30 31 36 30 20 50 ┆r fyret i 4 sekunder: 0160 P┆
0x30b80…30ba0 32 30 29 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 28 35 2c ┆20) 0100 EXEC gruppeblink(5,┆
0x30ba0…30bc0 33 29 0d 0a b0 30 31 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 ┆3) 0110 UNTIL ORD(KEY$)=32 0┆
0x30bc0…30be0 31 32 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 33 ┆120 PRINT FILE 1: CHR$(0); 013┆
0x30be0…30c00 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 ┆0 CLOSE FILE 1 0140 END 0┆
0x30c00…30c20 (22, 0, 1) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 65 33 22 20 ┆------------------- "løb-e3" ┆
0x30c20…30c40 76 69 72 6b 65 72 20 73 6f 6d 20 22 6c 7c 62 2d 65 32 22 2e 20 48 65 72 20 65 72 20 64 65 6e 20 ┆virker som "løb-e2". Her er den ┆
0x30c40…30c60 73 74 7c 72 73 74 65 20 32 2d 0a 74 61 6c 73 70 6f 74 65 6e 73 20 62 6c 6f 74 20 38 20 69 20 73 ┆største 2- talspotens blot 8 i s┆
0x30c60…30c80 74 65 64 65 74 20 66 6f 72 20 37 2e 20 32 20 6f 70 6c 7c 66 74 65 74 20 74 69 6c 20 38 20 65 72 ┆tedet for 7. 2 opløftet til 8 er┆
0x30c80…30ca0 20 0a 32 35 36 2c 20 68 76 69 6c 6b 65 74 20 73 76 61 72 65 72 20 74 69 6c 20 31 30 30 30 30 30 ┆ 256, hvilket svarer til 100000┆
0x30ca0…30cc0 30 30 30 20 62 69 6e 7b 72 74 2e 20 44 65 72 20 73 6b 61 6c 20 0a 61 6c 74 73 7d 20 39 20 62 69 ┆000 binært. Der skal altså 9 bi┆
0x30cc0…30ce0 74 20 74 69 6c 2c 20 68 76 6f 72 20 6c 79 73 70 61 6e 65 6c 65 74 20 6b 75 6e 20 76 69 73 65 72 ┆t til, hvor lyspanelet kun viser┆
0x30ce0…30d00 20 64 65 20 38 20 0a 6c 61 76 65 73 74 65 20 62 69 74 2e 20 49 67 65 6e 20 6c 61 6d 70 65 72 20 ┆ de 8 laveste bit. Igen lamper ┆
0x30d00…30d20 6c 79 73 65 72 20 64 65 72 66 6f 72 20 68 76 69 73 20 32 20 6f 70 6c 7c 66 74 65 74 20 0a 74 69 ┆lyser derfor hvis 2 opløftet ti┆
0x30d20…30d40 6c 20 38 2e 20 70 6f 74 65 6e 73 20 28 20 3d 32 35 36 20 29 20 20 73 65 6e 64 65 73 20 74 69 6c ┆l 8. potens ( =256 ) sendes til┆
0x30d40…30d60 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a ┆ lyspanelet: 0090 FOR bit:┆
0x30d60…30d80 3d 30 20 54 4f 20 38 20 44 4f 0d 0a b0 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆=0 TO 8 DO 0100 PRINT FILE┆
0x30d80…30da0 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 2d 31 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 45 58 ┆ 1: CHR$(2^bit-1); 0110 EX┆
0x30da0…30dc0 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 32 30 20 20 20 4e 45 ┆EC pause(lysperiode) 0120 NE┆
0x30dc0…30de0 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆XT bit ----------------------┆
0x30de0…30e00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30e00…30e20 (22, 0, 2) 74 61 73 74 24 3d 43 48 52 24 28 32 34 29 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 45 ┆tast$=CHR$(24) THE┆
0x30e20…30e40 4e 20 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 37 2c 30 2c 2d 31 29 0d 0a 0d 0a b0 30 31 33 30 20 ┆N EXEC løbelys(7,0,-1) 0130 ┆
0x30e40…30e60 20 20 49 46 20 74 61 73 74 24 3d 22 73 22 20 4f 52 20 74 61 73 74 24 3d 22 53 22 20 4f 52 20 74 ┆ IF tast$="s" OR tast$="S" OR t┆
0x30e60…30e80 61 73 74 24 3d 22 20 22 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 45 4e 20 45 58 45 43 ┆ast$=" " THEN EXEC┆
0x30e80…30ea0 20 73 74 61 6e 64 73 0d 0a 0d 0a b0 30 31 34 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 0d 0a 0d 0a ┆ stands 0140 UNTIL FALSE ┆
0x30ea0…30ec0 b0 30 31 35 30 20 45 4e 44 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0150 END -------------------┆
0x30ec0…30ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30ee0…30f00 2d 2d 2d 0d 0a 0c 83 68 0a 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 30 2c 37 ┆--- h EXEC løbelys(0,7┆
0x30f00…30f20 2c 2b 31 29 f0 20 66 7d 72 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 66 72 61 20 ┆,+1) får lyset til at løbe fra ┆
0x30f20…30f40 42 49 54 20 30 2c 20 0a 19 80 81 80 64 2e 76 2e 73 2e 20 76 65 6e 73 74 72 65 2c 20 6d 6f 64 20 ┆BIT 0, d.v.s. venstre, mod ┆
0x30f40…30f60 42 49 54 20 37 2c 20 61 6c 74 73 7d 20 68 7c 6a 72 65 2e 20 4d 6f 64 73 76 61 72 65 6e 64 65 20 ┆BIT 7, altså højre. Modsvarende ┆
0x30f60…30f80 0a 19 80 81 80 66 7d 72 20 b0 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 37 2c 30 2c 2d 31 29 f0 20 ┆ får EXEC løbelys(7,0,-1) ┆
0x30f80…30fa0 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 64 65 6e 20 61 6e 64 65 6e 20 0a 19 80 82 ┆lyset til at løbe den anden ┆
0x30fa0…30fc0 80 76 65 6a 3a 0d 0a 0d 0a b0 30 31 36 30 20 50 52 4f 43 20 6c 7c 62 65 6c 79 73 28 73 74 61 72 ┆ vej: 0160 PROC løbelys(star┆
0x30fc0…30fe0 74 76 7b 72 64 69 2c 73 6c 75 74 76 7b 72 64 69 2c 73 74 65 70 76 7b 72 64 69 29 0d 0a 0d 0a b0 ┆tværdi,slutværdi,stepværdi) ┆
0x30fe0…31000 30 31 37 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 73 74 61 72 74 76 7b 72 64 69 20 54 4f 20 73 6c ┆0170 FOR bit:=startværdi TO sl┆
0x31000…31020 (22, 0, 3) 0d 0a 0d 0a 48 76 69 73 20 6d 61 6e 20 7c 6e 73 6b 65 72 20 61 74 20 6c 79 73 65 74 20 73 6b 61 ┆ Hvis man ønsker at lyset ska┆
0x31020…31040 6c 20 6c 7c 62 65 20 66 72 61 20 68 7c 6a 72 65 20 6d 6f 64 20 0a 76 65 6e 73 74 72 65 20 65 72 ┆l løbe fra højre mod venstre er┆
0x31040…31060 20 22 6c 7c 62 2d 65 34 22 20 6d 7d 73 6b 65 20 65 6e 20 6e 7b 72 6c 69 67 67 65 6e 64 65 20 6c ┆ "løb-e4" måske en nærliggende l┆
0x31060…31080 7c 73 6e 69 6e 67 20 2d 20 0a 6d 65 6e 20 64 65 6e 20 64 75 65 72 20 b0 49 4b 4b 45 f0 20 21 21 ┆øsning - men den duer IKKE !!┆
0x31080…310a0 20 48 65 72 20 65 72 20 64 65 74 20 6e 65 6d 6c 69 67 20 65 6e 20 73 6c 75 6b 6b 65 74 20 70 7b ┆ Her er det nemlig en slukket pæ┆
0x310a0…310c0 72 65 20 0a 19 80 81 80 64 65 72 20 22 6c 7c 62 65 72 22 2c 20 6f 67 20 69 6b 6b 65 20 65 6e 20 ┆re der "løber", og ikke en ┆
0x310c0…310e0 74 7b 6e 64 74 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 38 20 54 4f 20 ┆tændt: 0090 FOR bit:=8 TO ┆
0x310e0…31100 30 20 53 54 45 50 20 2d 31 20 44 4f 0d 0a b0 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 ┆0 STEP -1 DO 0100 PRINT FI┆
0x31100…31120 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 2d 31 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 ┆LE 1: CHR$(2^bit-1); 0110 ┆
0x31120…31140 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 32 30 20 20 20 ┆EXEC pause(lysperiode) 0120 ┆
0x31140…31160 4e 45 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NEXT bit --------------------┆
0x31160…31180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x31180…311a0 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 65 35 22 20 65 72 20 65 6e 20 6b 6f 72 72 65 6b 74 20 6c 7c 73 ┆-- "løb-e5" er en korrekt løs┆
0x311a0…311c0 6e 69 6e 67 2c 20 68 76 69 73 20 6c 79 73 65 74 20 73 6b 61 6c 20 6c 7c 62 65 20 0a 66 72 61 20 ┆ning, hvis lyset skal løbe fra ┆
0x311c0…311e0 68 7c 6a 72 65 20 6d 6f 64 20 76 65 6e 73 74 72 65 20 73 61 6d 74 69 64 69 67 20 6d 65 64 20 61 ┆højre mod venstre samtidig med a┆
0x311e0…31200 74 20 6c 79 73 65 6e 65 20 73 6b 61 6c 20 0a 22 6f 70 73 75 6d 6d 65 72 65 73 22 3a 0d 0a 0d 0a ┆t lysene skal "opsummeres": ┆
0x31200…31220 (22, 0, 4) 75 74 76 7b 72 64 69 0d 0a 19 80 81 80 b0 20 20 20 20 20 20 20 53 54 45 50 20 73 74 65 70 76 7b ┆utværdi STEP stepvæ┆
0x31220…31240 72 64 69 20 44 4f 0d 0a 0d 0a b0 30 31 38 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆rdi DO 0180 PRINT FILE 1┆
0x31240…31260 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a 0d 0a b0 30 31 39 30 20 20 20 20 20 45 58 45 43 ┆: CHR$(2^bit); 0190 EXEC┆
0x31260…31280 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 0d 0a b0 30 32 30 30 20 20 20 4e 45 ┆ pause(lysperiode) 0200 NE┆
0x31280…312a0 58 54 20 62 69 74 0d 0a 0d 0a b0 30 32 31 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆XT bit 0210 PRINT FILE 1: ┆
0x312a0…312c0 43 48 52 24 28 30 29 3b 0d 0a 0d 0a b0 30 32 32 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c ┆CHR$(0); 0220 EXEC pause(l┆
0x312c0…312e0 79 73 70 65 72 69 6f 64 65 29 0d 0a 0d 0a b0 30 32 33 30 20 45 4e 44 50 52 4f 43 20 6c 7c 62 65 ┆ysperiode) 0230 ENDPROC løbe┆
0x312e0…31300 6c 79 73 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆lys -------------------------┆
0x31300…31320 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d ┆----------------------------- ┆
0x31320…31340 0a 48 76 69 73 20 64 65 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 20 ┆ Hvis der trykkes på MELLEMRUM- ┆
0x31340…31360 65 6c 6c 65 72 20 53 2d 74 61 73 74 65 6e 20 73 7d 20 0a 75 64 66 7c 72 65 73 20 70 72 6f 63 65 ┆eller S-tasten så udføres proce┆
0x31360…31380 64 75 72 65 6e 20 b0 73 74 61 6e 64 73 f0 2c 20 68 76 6f 72 20 6c 79 73 65 74 20 73 6c 75 6b 6b ┆duren stands , hvor lyset slukk┆
0x31380…313a0 65 73 20 6f 67 20 0a 19 80 81 80 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 6c 75 6b 6b 65 73 3a 0d ┆es og datastrømmen lukkes: ┆
0x313a0…313c0 0a 0d 0a b0 30 33 32 30 20 50 52 4f 43 20 73 74 61 6e 64 73 0d 0a b0 30 33 33 30 20 20 20 50 52 ┆ 0320 PROC stands 0330 PR┆
0x313c0…313e0 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 34 30 20 20 20 43 4c ┆INT FILE 1: CHR$(0); 0340 CL┆
0x313e0…31400 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 33 35 30 20 45 4e 44 50 52 4f 43 20 73 74 61 6e 64 73 ┆OSE FILE 1 0350 ENDPROC stands┆
0x31400…31420 (22, 0, 5) b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 38 20 54 4f 20 30 20 53 54 45 50 20 2d 31 20 ┆ 0090 FOR bit:=8 TO 0 STEP -1 ┆
0x31420…31440 44 4f 0d 0a b0 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆DO 0100 PRINT FILE 1: CHR$┆
0x31440…31460 28 32 35 35 2d 32 5e 62 69 74 2b 31 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 45 58 45 43 20 70 ┆(255-2^bit+1); 0110 EXEC p┆
0x31460…31480 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 32 30 20 20 20 4e 45 58 54 20 62 ┆ause(lysperiode) 0120 NEXT b┆
0x31480…314a0 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆it --------------------------┆
0x314a0…314c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 ┆---------------------------- ┆
0x314c0…314e0 48 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 66 22 20 65 72 20 64 65 74 20 74 6f 20 46 4f 52 2f ┆H I "løb-f" er det to FOR/┆
0x314e0…31500 4e 45 58 54 2d 6c 7c 6b 6b 65 72 20 64 65 72 20 68 76 65 72 20 66 6f 72 20 73 69 67 20 0a 66 7d ┆NEXT-løkker der hver for sig få┆
0x31500…31520 72 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 68 68 76 2e 20 6d 6f 64 20 68 7c 6a ┆r lyset til at løbe hhv. mod høj┆
0x31520…31540 72 65 20 6f 67 20 6d 6f 64 20 76 65 6e 73 74 72 65 3a 0d 0a 0d 0a 30 30 37 30 20 52 45 50 45 41 ┆re og mod venstre: 0070 REPEA┆
0x31540…31560 54 20 0d 0a b0 30 30 38 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a ┆T 0080 FOR bit:=0 TO 7 DO ┆
0x31560…31580 b0 30 30 39 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 ┆ 0090 PRINT FILE 1: CHR$(2^b┆
0x31580…315a0 69 74 29 3b 0d 0a b0 30 31 30 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 ┆it); 0100 EXEC pause(lyspe┆
0x315a0…315c0 72 69 6f 64 65 29 0d 0a b0 30 31 31 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 32 30 20 20 ┆riode) 0110 NEXT bit 0120 ┆
0x315c0…315e0 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 33 30 20 20 20 ┆ PRINT FILE 1: CHR$(0); 0130 ┆
0x315e0…31600 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 34 30 20 20 20 ┆EXEC pause(lysperiode) 0140 ┆
0x31600…31620 (22, 0, 6) 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0x31620…31640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 82 a8 0a ┆-------------------------- ┆
0x31640…31660 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 54 5b 4c 4c 45 22 3a 0d 0a 0d 0a 0d 0a 22 74 7b ┆ PROBLEM "TÆLLE": "tæ┆
0x31660…31680 6c 6c 65 2d 61 22 20 65 72 20 65 74 20 6c 69 6c 6c 65 20 70 72 6f 67 72 61 6d 20 64 65 72 20 74 ┆lle-a" er et lille program der t┆
0x31680…316a0 7b 6c 6c 65 72 20 62 69 6e 7b 72 74 2e 20 44 65 72 20 0a 6b 61 6e 20 6e 61 74 75 72 6c 69 67 76 ┆æller binært. Der kan naturligv┆
0x316a0…316c0 69 73 20 6b 75 6e 20 74 7b 6c 6c 65 73 20 66 72 61 20 30 20 74 69 6c 20 32 35 35 2c 20 64 61 20 ┆is kun tælles fra 0 til 255, da ┆
0x316c0…316e0 64 65 72 20 6b 75 6e 20 0a 65 72 20 38 20 62 69 74 2f 6c 61 6d 70 65 72 20 70 7d 20 6c 79 73 70 ┆der kun er 8 bit/lamper på lysp┆
0x316e0…31700 61 6e 65 6c 65 74 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 7b 6c 6c 65 2d 61 22 0d 0a b0 ┆anelet: 0010 // "tælle-a" ┆
0x31700…31720 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 ┆0020 OPEN FILE 1,"/17/PORT", WRI┆
0x31720…31740 54 45 20 0d 0a b0 30 30 34 30 20 46 4f 52 20 74 61 6c 3a 3d 30 20 54 4f 20 32 35 35 20 44 4f 0d ┆TE 0040 FOR tal:=0 TO 255 DO ┆
0x31740…31760 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 74 61 6c 29 ┆ 0050 PRINT FILE 1: CHR$(tal)┆
0x31760…31780 3b 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 2f 33 29 0d 0a b0 30 30 37 ┆; 0060 EXEC pause(1/3) 007┆
0x31780…33400 […elided…]
0x33400…33420 (23, 0, 3) 4e 28 34 29 0d 0a 0d 0a b0 30 30 38 30 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 34 29 0d 0a b0 30 30 ┆N(4) 0080 : SLUK RØD(4) 00┆
0x33420…33440 39 30 f0 3a 20 54 5b 4e 44 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆90 : TÆND GRØN(4) -----------┆
0x33440…33460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33460…33480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 62 22 20 73 74 79 72 ┆----------- "trafik-b" styr┆
0x33480…334a0 65 72 20 64 65 20 74 6f 20 32 2d 6c 79 73 2c 20 6f 67 20 65 72 20 73 7d 6c 65 64 65 73 20 65 6e ┆er de to 2-lys, og er således en┆
0x334a0…334c0 20 0a 6b 6f 6d 62 69 6e 61 74 69 6f 6e 20 61 66 20 64 65 20 74 6f 20 66 6f 72 65 67 7d 65 6e 64 ┆ kombination af de to foregåend┆
0x334c0…334e0 65 20 70 72 6f 67 72 61 6d 6d 65 72 3a 0d 0a 0d 0a 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 ┆e programmer: 0040 REPEAT ┆
0x334e0…33500 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b ┆ 0050 PRINT FILE 1: CHR$(8);┆
0x33500…33520 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 ┆ 0060 PRINT FILE 2: CHR$(24┆
0x33520…33540 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b 20 0d 0a b0 30 30 37 30 20 20 20 45 ┆);CHR$(5);CHR$(128); 0070 E┆
0x33540…33560 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆XEC pause(6) 0080 PRINT FILE┆
0x33560…33580 20 31 3a 20 43 48 52 24 28 31 36 29 3b 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c ┆ 1: CHR$(16); 0090 PRINT FIL┆
0x33580…335a0 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 32 29 3b 20 0d ┆E 2: CHR$(24);CHR$(5);CHR$(2); ┆
0x335a0…335c0 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 32 30 20 55 4e ┆ 0100 EXEC pause(4) 0120 UN┆
0x335c0…335e0 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 ┆TIL ORD(KEY$)=32 0050 : TÆND┆
0x335e0…33600 20 52 5c 44 28 31 29 20 20 2b 20 53 4c 55 4b 20 52 5c 44 28 34 29 20 0d 0a b0 30 30 36 30 f0 3a ┆ RØD(1) + SLUK RØD(4) 0060 :┆
0x33600…33620 (23, 0, 4) 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆EC pause(3) 0080 PRINT FILE ┆
0x33620…33640 31 3a 20 43 48 52 24 28 31 32 39 29 3b 2f 2f 52 5c 44 28 33 29 2b 52 5c 44 28 32 29 0d 0a 30 30 ┆1: CHR$(129);//RØD(3)+RØD(2) 00┆
0x33640…33660 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e ┆90 EXEC pause(2) 0100 PRIN┆
0x33660…33680 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 31 29 3b 2f 2f 52 5c 44 28 33 29 2b 47 55 4c ┆T FILE 1: CHR$(131);//RØD(3)+GUL┆
0x33680…336a0 28 33 29 2b 52 5c 44 28 32 29 0d 0a 19 80 81 80 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆(3)+RØD(2) 0110 EXEC paus┆
0x336a0…336c0 65 28 31 29 0d 0a b0 30 31 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆e(1) 0120 PRINT FILE 1: CHR$┆
0x336c0…336e0 28 31 33 32 29 3b 2f 2f 52 5c 44 28 32 29 2b 47 52 5c 4e 28 33 29 0d 0a 30 31 33 30 20 20 20 45 ┆(132);//RØD(2)+GRØN(3) 0130 E┆
0x336e0…33700 58 45 43 20 70 61 75 73 65 28 31 30 29 0a b0 30 31 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆XEC pause(10) 0140 PRINT FILE┆
0x33700…33720 20 31 3a 20 43 48 52 24 28 31 33 30 29 3b 2f 2f 52 5c 44 28 32 29 2b 47 55 4c 28 33 29 0d 0a 30 ┆ 1: CHR$(130);//RØD(2)+GUL(3) 0┆
0x33720…33740 31 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0a b0 30 31 36 30 20 20 20 50 52 49 4e ┆150 EXEC pause(3) 0160 PRIN┆
0x33740…33760 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 39 29 3b 2f 2f 52 5c 44 28 32 29 2b 52 5c 44 ┆T FILE 1: CHR$(129);//RØD(2)+RØD┆
0x33760…33780 28 33 29 0d 0a 30 31 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 31 38 30 ┆(3) 0170 EXEC pause(2) 0180┆
0x33780…337a0 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 39 33 29 3b 2f 2f 52 5c 44 ┆ PRINT FILE 1: CHR$(193);//RØD┆
0x337a0…337c0 28 32 29 2b 47 55 4c 28 32 29 2b 52 5c 44 28 33 29 0d 0a 19 80 81 80 30 31 39 30 20 20 20 45 58 ┆(2)+GUL(2)+RØD(3) 0190 EX┆
0x337c0…337e0 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 32 30 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 ┆EC pause(1) 0200 UNTIL ORD(KEY$┆
0x337e0…33800 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆)=32 ------------------------┆
0x33800…33820 (23, 0, 5) 20 53 4c 55 4b 20 47 52 5c 4e 28 31 29 20 2b 20 54 5b 4e 44 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a ┆ SLUK GRØN(1) + TÆND GRØN(4) ┆
0x33820…33840 b0 30 30 38 30 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 31 29 20 20 2b 20 54 5b 4e 44 20 52 5c 44 28 ┆ 0080 : SLUK RØD(1) + TÆND RØD(┆
0x33840…33860 34 29 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e 44 20 47 52 5c 4e 28 31 29 20 2b 20 53 4c 55 4b 20 ┆4) 0090 : TÆND GRØN(1) + SLUK ┆
0x33860…33880 47 52 5c 4e 28 34 29 0d 0a 0d 0a 44 65 6e 20 22 67 72 7c 6e 6e 65 20 62 7c 6c 67 65 22 20 70 7d ┆GRØN(4) Den "grønne bølge" på┆
0x33880…338a0 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 31 20 65 72 20 70 7d 20 34 20 73 65 6b 75 6e 64 65 72 2e ┆ lyskurv nr. 1 er på 4 sekunder.┆
0x338a0…338c0 20 0a 44 65 6e 20 22 67 72 7c 6e 6e 65 20 62 7c 6c 67 65 22 20 70 7d 20 6c 79 73 6b 75 72 76 20 ┆ Den "grønne bølge" på lyskurv ┆
0x338c0…338e0 6e 72 2e 20 32 20 65 72 20 70 7d 20 36 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d ┆nr. 2 er på 6 sekunder. -----┆
0x338e0…33900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33900…33920 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 08 0a 0d 0a 0d 0a 0d 0a 22 74 72 ┆----------------- "tr┆
0x33920…33940 61 66 69 6b 2d 63 31 22 20 6f 67 20 22 74 72 61 66 69 6b 2d 63 32 22 20 73 74 79 72 65 72 20 68 ┆afik-c1" og "trafik-c2" styrer h┆
0x33940…33960 68 76 2e 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 32 20 6f 67 20 0a 6c 79 73 6b 75 72 76 20 6e 72 ┆hv. lyskurv nr. 2 og lyskurv nr┆
0x33960…33980 2e 33 2c 20 61 6c 74 73 7d 20 b0 65 74 f0 20 33 2d 6c 79 73 3a 0d 0a 0d 0a 0d 0a b0 22 74 72 61 ┆.3, altså et 3-lys: "tra┆
0x33980…339a0 66 69 6b 2d 63 31 22 3a 0d 0a 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 ┆fik-c1": 0030 REPEAT 0040 ┆
0x339a0…339c0 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 38 29 3b 20 2f 2f 20 20 20 ┆ PRINT FILE 1: CHR$(128); // ┆
0x339c0…339e0 20 52 5c 44 28 32 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 ┆ RØD(2) 0050 EXEC pause(6) ┆
0x339e0…33a00 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 39 32 29 3b 20 ┆0060 PRINT FILE 1: CHR$(192); ┆
0x33a00…33a20 (23, 0, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------------ ┆
0x33a20…33a40 0c 81 60 0a 0d 0a 0d 0a 0d 0a 49 20 22 74 72 61 66 69 6b 2d 66 22 20 73 74 79 72 65 73 20 b0 61 ┆ ` I "trafik-f" styres a┆
0x33a40…33a60 6c 6c 65 20 34 20 6c 79 73 6b 75 72 76 65 f0 20 70 7d 20 65 6e 20 67 61 6e 67 3a 0d 0a 0d 0a 0d ┆lle 4 lyskurve på en gang: ┆
0x33a60…33a80 0a 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 ┆ 0040 REPEAT 0050 PRINT CHR┆
0x33a80…33aa0 24 28 37 29 3b 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆$(7); 0060 PRINT FILE 1: CHR┆
0x33aa0…33ac0 24 28 31 34 38 29 3b 0d 0a b0 30 30 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 ┆$(148); 0070 PRINT FILE 2: C┆
0x33ac0…33ae0 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 32 29 3b 0d 0a 30 30 38 30 20 20 ┆HR$(24);CHR$(5);CHR$(2); 0080 ┆
0x33ae0…33b00 20 45 58 45 43 20 70 61 75 73 65 28 31 30 29 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 ┆ EXEC pause(10) 0090 PRINT F┆
0x33b00…33b20 49 4c 45 20 31 3a 20 43 48 52 24 28 31 35 36 29 3b 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 ┆ILE 1: CHR$(156); 0100 PRINT┆
0x33b20…33b40 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 ┆ FILE 2: CHR$(24);CHR$(5);CHR$(0┆
0x33b40…33b60 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 31 32 30 20 ┆); 0110 EXEC pause(3) 0120 ┆
0x33b60…33b80 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 35 34 29 3b 0d 0a 30 31 33 30 ┆ PRINT FILE 1: CHR$(154); 0130┆
0x33b80…33ba0 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 31 34 30 20 20 20 50 52 49 4e 54 20 ┆ EXEC pause(3) 0140 PRINT ┆
0x33ba0…33bc0 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 31 37 29 3b 0d 0a 30 31 35 30 20 20 20 45 58 45 43 20 ┆FILE 1: CHR$(217); 0150 EXEC ┆
0x33bc0…33be0 70 61 75 73 65 28 32 29 0d 0a b0 30 31 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆pause(2) 0160 PRINT FILE 1: ┆
0x33be0…33c00 43 48 52 24 28 34 31 29 3b 0d 0a b0 30 31 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a ┆CHR$(41); 0170 PRINT FILE 2:┆
0x33c00…33c20 (23, 0, 7) 2f 2f 20 20 20 20 52 5c 44 28 32 29 20 2b 20 47 55 4c 28 32 29 0d 0a 30 30 37 30 20 20 20 45 58 ┆// RØD(2) + GUL(2) 0070 EX┆
0x33c20…33c40 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆EC pause(2) 0080 PRINT FILE ┆
0x33c40…33c60 31 3a 20 43 48 52 24 28 33 32 29 3b 20 2f 2f 20 20 20 20 20 47 52 5c 4e 28 32 29 0d 0a 30 30 39 ┆1: CHR$(32); // GRØN(2) 009┆
0x33c60…33c80 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 ┆0 EXEC pause(4) 0100 PRINT┆
0x33c80…33ca0 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 34 29 3b 20 2f 2f 20 20 20 20 20 47 55 4c 28 32 29 ┆ FILE 1: CHR$(64); // GUL(2)┆
0x33ca0…33cc0 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 31 32 30 20 55 4e 54 ┆ 0110 EXEC pause(1) 0120 UNT┆
0x33cc0…33ce0 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆IL ORD(KEY$)=32 -------------┆
0x33ce0…33d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33d00…33d20 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 22 74 72 61 66 69 6b 2d 63 32 22 3a 0d 0a 0d 0a ┆--------- "trafik-c2": ┆
0x33d20…33d40 30 30 31 30 20 2f 2f 20 22 74 72 61 66 69 6b 2d 63 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 ┆0010 // "trafik-c2" 0020 OPEN F┆
0x33d40…33d60 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 52 ┆ILE 1,"/17/PORT", WRITE 0030 R┆
0x33d60…33d80 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 ┆EPEAT 0040 PRINT FILE 1: CH┆
0x33d80…33da0 52 24 28 31 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 33 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 ┆R$(1); // RØD(3) 0050 EXEC┆
0x33da0…33dc0 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆ pause(6) 0060 PRINT FILE 1:┆
0x33dc0…33de0 20 43 48 52 24 28 33 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 33 29 20 2b 20 47 55 4c 28 33 29 0d ┆ CHR$(3); // RØD(3) + GUL(3) ┆
0x33de0…33e00 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 38 30 20 20 20 50 ┆ 0070 EXEC pause(2) 0080 P┆
0x33e00…33e20 (23, 0, 8) 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b 0d 0a 30 31 ┆ CHR$(24);CHR$(5);CHR$(128); 01┆
0x33e20…33e40 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 30 29 0d 0a b0 30 31 39 30 20 20 20 50 52 49 ┆80 EXEC pause(10) 0190 PRI┆
0x33e40…33e60 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 35 37 29 3b 0d 0a b0 30 32 30 30 20 20 20 50 52 ┆NT FILE 1: CHR$(57); 0200 PR┆
0x33e60…33e80 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 ┆INT FILE 2: CHR$(24);CHR$(5);CHR┆
0x33e80…33ea0 24 28 30 29 3b 0d 0a 30 32 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 32 ┆$(0); 0210 EXEC pause(3) 02┆
0x33ea0…33ec0 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 39 29 3b 0d 0a 30 32 ┆20 PRINT FILE 1: CHR$(89); 02┆
0x33ec0…33ee0 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 32 34 30 20 20 20 50 52 49 4e ┆30 EXEC pause(3) 0240 PRIN┆
0x33ee0…33f00 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 35 35 29 3b 0d 0a 30 32 35 30 20 20 20 45 58 45 ┆T FILE 1: CHR$(155); 0250 EXE┆
0x33f00…33f20 43 20 70 61 75 73 65 28 32 29 0d 0a 30 32 36 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 ┆C pause(2) 0260 UNTIL ORD(KEY$)┆
0x33f20…33f40 3d 33 32 0d 0a 0d 0a 0d 0a 46 6f 72 20 61 74 20 76 69 73 65 20 68 76 6f 72 64 61 6e 20 61 72 62 ┆=32 For at vise hvordan arb┆
0x33f40…33f60 65 6a 64 73 61 72 6b 65 6e 65 20 74 69 6c 20 6c 79 73 6b 75 72 76 6f 70 67 61 76 65 72 6e 65 20 ┆ejdsarkene til lyskurvopgaverne ┆
0x33f60…33f80 0a 6b 61 6e 20 62 72 75 67 65 73 2c 20 76 69 73 65 73 20 70 7d 20 6e 7b 73 74 65 20 73 69 64 65 ┆ kan bruges, vises på næste side┆
0x33f80…33fa0 20 68 76 6f 72 64 61 6e 20 65 6e 20 61 6c 67 6f 72 69 74 6d 65 20 0a 74 69 6c 20 22 74 72 61 66 ┆ hvordan en algoritme til "traf┆
0x33fa0…33fc0 69 6b 2d 66 22 20 6b 61 6e 20 74 61 67 6e 65 73 20 73 76 61 72 65 6e 64 65 20 64 69 72 65 6b 74 ┆ik-f" kan tagnes svarende direkt┆
0x33fc0…33fe0 65 20 74 69 6c 20 0a 70 72 6f 67 72 61 6d 6d 65 74 2e 20 44 65 74 20 65 72 20 6e 61 74 75 72 6c ┆e til programmet. Det er naturl┆
0x33fe0…34000 69 67 76 69 73 20 64 65 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 2c 20 73 61 6d 74 20 0a 70 6f 72 ┆igvis de decimale tal, samt por┆
0x34000…34020 (23, 0, 9) 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 34 29 3b 20 2f 2f 20 20 20 20 47 52 5c 4e ┆RINT FILE 1: CHR$(4); // GRØN┆
0x34020…34040 28 33 29 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 30 30 ┆(3) 0090 EXEC pause(4) 0100┆
0x34040…34060 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 29 3b 20 2f 2f 20 20 20 20 ┆ PRINT FILE 1: CHR$(2); // ┆
0x34060…34080 47 55 4c 28 33 29 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 31 ┆GUL(3) 0110 EXEC pause(1) 01┆
0x34080…340a0 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d ┆20 UNTIL ORD(KEY$)=32 -------┆
0x340a0…340c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x340c0…340e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 64 22 20 ┆--------------- "trafik-d" ┆
0x340e0…34100 65 72 20 65 6e 20 6b 6f 6d 62 69 6e 61 74 69 6f 6e 20 61 66 20 64 65 20 74 6f 20 66 6f 72 65 67 ┆er en kombination af de to foreg┆
0x34100…34120 7d 65 6e 64 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 2e 20 48 65 72 20 73 74 79 72 65 73 20 61 6c ┆ående programmer. Her styres al┆
0x34120…34140 74 73 7d 20 62 65 67 67 65 20 33 2d 6c 79 73 3a 0d 0a 0d 0a 0d 0a 30 30 33 30 20 52 45 50 45 41 ┆tså begge 3-lys: 0030 REPEA┆
0x34140…34160 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 ┆T 0040 PRINT FILE 1: CHR$(3┆
0x34160…34180 33 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 30 35 30 20 20 20 45 58 45 ┆3); //RØD(3)+GRØN(2) 0050 EXE┆
0x34180…341a0 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆C pause(6) 0060 PRINT FILE 1┆
0x341a0…341c0 3a 20 43 48 52 24 28 36 37 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 55 4c 28 33 29 2b 47 52 5c 4e ┆: CHR$(67); //RØD(3)+GUL(3)+GRØN┆
0x341c0…341e0 28 32 29 0d 0a 19 80 81 80 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 ┆(2) 0070 EXEC pause(2) ┆
0x341e0…34200 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 32 29 3b 2f ┆0080 PRINT FILE 1: CHR$(132);/┆
0x34200…34220 (23, 1, 1) 74 65 6e 65 2c 20 64 65 72 20 73 6b 61 6c 20 6b 6f 6e 63 65 6e 74 72 65 72 65 73 20 6f 6d 20 21 ┆tene, der skal koncentreres om !┆
0x34220…34240 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0x34240…34260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 82 b0 0a ┆-------------------------- ┆
0x34260…34280 0d 0a 0d 0a 0d 0a 45 6e 64 65 6c 69 67 20 65 72 20 64 65 72 20 70 7d 20 6e 7b 73 74 65 20 73 69 ┆ Endelig er der på næste si┆
0x34280…342a0 64 65 20 65 6e 20 6c 69 73 74 6e 69 6e 67 20 61 66 20 65 74 20 0a 22 67 65 6e 65 72 65 6c 74 22 ┆de en listning af et "generelt"┆
0x342a0…342c0 20 6c 79 73 6b 75 72 76 20 70 72 6f 67 72 61 6d 20 b0 22 54 52 41 46 49 4b 22 f0 2c 20 68 76 6f ┆ lyskurv program "TRAFIK" , hvo┆
0x342c0…342e0 72 20 61 6c 6c 65 20 6c 61 6d 70 65 72 20 0a 19 80 81 80 74 7b 6e 64 65 73 20 6f 67 20 73 6c 75 ┆r alle lamper tændes og slu┆
0x342e0…34300 6b 6b 65 73 20 65 6e 20 65 66 74 65 72 20 65 6e 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 45 58 ┆kkes en efter en ved hjælp af EX┆
0x34300…34320 45 43 2d 0a 19 80 81 80 73 7b 74 6e 69 6e 67 65 72 2e 20 44 65 74 20 65 72 20 70 72 6f 63 65 80 ┆EC- sætninger. Det er proce ┆
0x34320…34340 64 75 72 65 72 6e 65 20 b0 74 7b 6e 64 28 6c 61 6d 70 65 29 f0 20 6f 67 20 0a 19 80 82 80 b0 73 ┆durerne tænd(lampe) og s┆
0x34340…34360 6c 75 6b 28 6c 61 6d 70 65 29 f0 20 64 65 72 20 6b 61 6c 64 65 73 2e 0d 0a 0d 0a 50 72 6f 67 72 ┆luk(lampe) der kaldes. Progr┆
0x34360…34380 61 6d 6d 65 74 20 6b 61 6e 20 66 2e 65 6b 73 2e 20 62 72 75 67 65 73 20 61 66 20 64 65 20 65 6c ┆ammet kan f.eks. bruges af de el┆
0x34380…343a0 65 76 65 72 20 64 65 72 20 68 61 72 20 73 76 7b 72 74 20 0a 76 65 64 20 61 74 20 70 72 6f 67 72 ┆ever der har svært ved at progr┆
0x343a0…343c0 61 6d 6d 65 72 65 20 6c 79 73 6b 75 72 76 65 6e 65 20 6d 65 64 20 64 65 72 65 73 20 b0 65 67 6e ┆ammere lyskurvene med deres egn┆
0x343c0…343e0 65 f0 20 43 4f 4d 41 4c 38 30 2d 0a 19 80 81 80 70 72 6f 67 72 61 6d 6d 65 72 2e 20 46 6f 72 74 ┆e COMAL80- programmer. Fort┆
0x343e0…34400 7b 6c 20 64 65 6d 20 61 74 20 64 65 20 62 6c 6f 74 20 73 6b 61 6c 20 62 72 75 67 65 20 0a 19 80 ┆æl dem at de blot skal bruge ┆
0x34400…34600 (23, 1, 2) DataBlock {»LÆRER.WPB«}
0x34600…34620 (23, 1, 3) 81 80 61 72 62 65 6a 64 73 61 72 6b 65 6e 65 20 6f 67 20 64 65 72 65 66 74 65 72 20 69 6e 64 73 ┆ arbejdsarkene og derefter inds┆
0x34620…34640 7b 74 74 65 20 45 58 45 43 2d 73 7b 74 6e 69 6e 67 65 72 6e 65 20 69 20 0a 19 80 81 80 74 6f 70 ┆ætte EXEC-sætningerne i top┆
0x34640…34660 70 65 6e 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 74 21 0d 0a 0d 0a b0 22 54 52 41 46 49 4b 2d 31 ┆pen af programmet! "TRAFIK-1┆
0x34660…34680 22 f0 20 6f 67 20 b0 22 54 52 41 46 49 4b 2d 32 22 f0 20 65 72 20 69 64 65 6e 74 69 73 6b 65 20 ┆" og "TRAFIK-2" er identiske ┆
0x34680…346a0 6d 65 64 20 22 54 52 41 46 49 4b 22 2e 0d 0a 0d 0a 22 54 52 41 46 49 4b 2d 31 22 20 69 6e 64 65 ┆med "TRAFIK". "TRAFIK-1" inde┆
0x346a0…346c0 68 6f 6c 64 65 72 20 45 58 45 43 2d 73 7b 74 6e 69 6e 67 65 72 20 73 76 61 72 65 6e 64 65 20 74 ┆holder EXEC-sætninger svarende t┆
0x346c0…346e0 69 6c 20 61 74 20 0a 52 5c 44 28 31 29 20 62 6c 69 6e 6b 65 72 3a 0d 0a 0d 0a b0 30 30 31 30 20 ┆il at RØD(1) blinker: 0010 ┆
0x346e0…34700 2f 2f 20 22 54 52 41 46 49 4b 2d 31 22 0d 0a b0 30 30 32 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d ┆// "TRAFIK-1" 0020 PROC blink ┆
0x34700…34720 0a b0 30 30 33 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 72 7c 64 31 29 0d 0a b0 30 30 34 30 20 ┆ 0030 EXEC tænd(rød1) 0040 ┆
0x34720…34740 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 73 6c ┆ EXEC pause(1) 0050 EXEC sl┆
0x34740…34760 75 6b 28 72 7c 64 31 29 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d ┆uk(rød1) 0060 EXEC pause(1) ┆
0x34760…34780 0a b0 30 30 37 30 20 45 4e 44 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0070 ENDPROC blink --------┆
0x34780…347a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x347a0…347c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 54 52 41 46 49 4b 2d 32 22 20 73 74 79 ┆-------------- "TRAFIK-2" sty┆
0x347c0…347e0 72 65 72 20 65 74 20 65 6e 6b 65 6c 74 20 33 2d 6c 79 73 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f ┆rer et enkelt 3-lys: 0010 //┆
0x347e0…34800 20 22 54 52 41 46 49 4b 2d 32 22 0d 0a b0 30 30 32 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 ┆ "TRAFIK-2" 0020 PROC blink ┆
0x34800…34a00 (23, 1, 4) DataBlock {»LÆRER.WPB«}
0x34a00…34a20 (23, 1, 5) 30 30 33 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 72 7c 64 32 29 0d 0a b0 30 30 34 30 20 20 20 ┆0030 EXEC tænd(rød2) 0040 ┆
0x34a20…34a40 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 74 7b 6e 64 ┆EXEC pause(6) 0050 EXEC tænd┆
0x34a40…34a60 28 67 75 6c 32 29 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 ┆(gul2) 0060 EXEC pause(2) ┆
0x34a60…34a80 30 30 37 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 72 7c 64 32 29 0d 0a b0 30 30 38 30 20 20 20 ┆0070 EXEC sluk(rød2) 0080 ┆
0x34a80…34aa0 45 58 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a b0 30 30 39 30 20 20 20 45 58 45 43 20 74 7b ┆EXEC sluk(gul2) 0090 EXEC tæ┆
0x34aa0…34ac0 6e 64 28 67 72 7c 6e 32 29 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 ┆nd(grøn2) 0100 EXEC pause(6)┆
0x34ac0…34ae0 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 72 7c 6e 32 29 0d 0a b0 30 31 32 ┆ 0110 EXEC sluk(grøn2) 012┆
0x34ae0…34b00 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c 32 29 0d 0a b0 30 31 33 30 20 20 20 45 58 45 ┆0 EXEC tænd(gul2) 0130 EXE┆
0x34b00…34b20 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 31 34 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 75 ┆C pause(3) 0140 EXEC sluk(gu┆
0x34b20…34b40 6c 32 29 0d 0a b0 30 31 35 30 20 45 4e 44 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d ┆l2) 0150 ENDPROC blink ----┆
0x34b40…34b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x34b60…34b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 08 0a 0d 0a 0d 0a b0 22 54 52 ┆------------------ "TR┆
0x34b80…34ba0 41 46 49 4b 22 3a 0d 0a 0c 80 98 0a 0d 0a 1a 1a 20 31 3a 20 43 48 52 24 28 33 33 29 3b 20 2f 2f ┆AFIK": 1: CHR$(33); //┆
0x34ba0…34bc0 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆RØD(3)+GRØN(2) 0050 EXEC paus┆
0x34bc0…34be0 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆e(6) 0060 PRINT FILE 1: CHR$┆
0x34be0…34c00 28 36 35 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 55 4c 28 32 29 0d 0a 30 30 37 30 20 20 20 45 58 ┆(65); //RØD(3)+GUL(2) 0070 EX┆
0x34c00…34e00 (23, 1, 6) DataBlock {»LÆRER.WPB«}
0x34e00…34e20 (23, 1, 7) 30 32 33 30 2d 30 33 30 30 f0 3a 20 45 6e 20 70 72 69 6b 20 62 65 73 74 7d 72 20 61 66 20 65 6e ┆0230-0300 : En prik består af en┆
0x34e20…34e40 20 6c 79 73 70 65 72 69 6f 64 65 20 70 7d 20 30 2e 32 20 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 ┆ lysperiode på 0.2 sekunder┆
0x34e40…34e60 20 6f 67 20 65 6e 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 20 70 7d 20 30 2e 32 20 73 65 6b 75 6e ┆ og en mørkeperiode på 0.2 sekun┆
0x34e60…34e80 64 65 72 2e 0d 0a 0d 0a b0 30 33 32 2d 30 33 39 30 f0 3a 20 45 6e 20 73 74 72 65 67 20 62 65 73 ┆der. 032-0390 : En streg bes┆
0x34e80…34ea0 74 7d 72 20 61 66 20 65 6e 20 6c 79 73 70 65 72 69 6f 64 65 20 70 7d 20 30 2e 35 20 0a 19 80 81 ┆tår af en lysperiode på 0.5 ┆
0x34ea0…34ec0 80 73 65 6b 75 6e 64 65 72 20 6f 67 20 65 6e 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 20 70 7d 20 ┆ sekunder og en mørkeperiode på ┆
0x34ec0…34ee0 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a 4c 79 73 2d 20 6f 67 20 6d 7c 72 6b 65 70 65 ┆0.2 sekunder. Lys- og mørkepe┆
0x34ee0…34f00 72 69 6f 64 65 72 6e 65 20 62 7c 72 20 73 65 6c 76 66 7c 6c 67 65 6c 69 67 20 66 61 73 74 6c 7b ┆rioderne bør selvfølgelig fastlæ┆
0x34f00…34f20 67 67 65 73 20 0a 65 66 74 65 72 20 65 6c 65 76 65 72 6e 65 73 20 65 67 6e 65 20 7c 6e 73 6b 65 ┆gges efter elevernes egne ønske┆
0x34f20…34f40 72 2e 0d 0a 0c 83 70 0a 0d 0a 0d 0a 0d 0a 49 20 22 6d 6f 72 73 65 2d 63 22 20 65 72 20 6d 75 6c ┆r. p I "morse-c" er mul┆
0x34f40…34f60 69 67 68 65 64 65 6e 20 66 6f 72 20 61 74 20 76 61 72 69 65 72 65 20 6d 6f 72 73 65 2d 0a 68 61 ┆igheden for at variere morse- ha┆
0x34f60…34f80 73 74 69 67 68 65 64 65 6e 20 74 69 6c 66 7c 6a 65 74 2e 20 48 65 72 20 65 72 20 22 6e 6f 72 6d ┆stigheden tilføjet. Her er "norm┆
0x34f80…34fa0 61 6c 68 61 73 74 69 67 68 65 64 65 6e 22 20 73 61 74 20 0a 74 69 6c 20 31 30 30 25 2e 20 48 76 ┆alhastigheden" sat til 100%. Hv┆
0x34fa0…34fc0 69 73 20 68 61 73 74 69 67 68 65 64 65 6e 20 73 6b 61 6c 20 68 61 6c 76 65 72 65 73 2c 20 73 6b ┆is hastigheden skal halveres, sk┆
0x34fc0…34fe0 61 6c 20 64 65 72 20 0a 73 7d 6c 65 64 65 73 20 69 6e 64 74 61 73 74 65 73 20 20 b0 35 30 f0 20 ┆al der således indtastes 50 ┆
0x34fe0…35000 20 66 6f 72 20 35 30 25 2c 20 6f 67 20 b0 32 30 30 f0 20 66 6f 72 20 61 74 20 66 6f 72 64 6f 62 ┆ for 50%, og 200 for at fordob┆
0x35000…35200 (23, 1, 8) DataBlock {»LÆRER.WPB«}
0x35200…35220 (23, 1, 9) 6c 65 20 0a 19 80 82 80 68 61 73 74 69 67 68 65 64 65 6e 2c 20 64 2e 76 2e 73 2e 20 32 30 30 25 ┆le hastigheden, d.v.s. 200%┆
0x35220…35240 3a 0d 0a 0d 0a 48 65 72 20 65 72 20 73 65 6c 76 65 20 70 72 6f 67 72 61 6d 6d 65 74 73 20 73 74 ┆: Her er selve programmets st┆
0x35240…35260 72 75 6b 74 75 72 20 61 66 73 70 65 6a 6c 65 74 20 69 20 0a 70 72 6f 63 65 64 75 72 65 6b 61 6c ┆ruktur afspejlet i procedurekal┆
0x35260…35280 64 65 6e 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 63 22 0d 0a b0 30 30 ┆dene: 0010 // "morse-c" 00┆
0x35280…352a0 32 30 20 45 58 45 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a b0 30 30 33 30 20 45 58 45 43 20 69 6e ┆20 EXEC åbne_port 0030 EXEC in┆
0x352a0…352c0 64 5f 68 61 73 74 69 67 68 65 64 0d 0a b0 30 30 34 30 20 45 58 45 43 20 62 6c 69 6e 6b 0d 0a b0 ┆d_hastighed 0040 EXEC blink ┆
0x352c0…352e0 30 30 35 30 20 45 58 45 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a b0 30 30 36 30 20 45 4e 44 20 ┆0050 EXEC lukke_port 0060 END ┆
0x352e0…35300 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0x35300…35320 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 ┆-------------------------- He┆
0x35320…35340 72 20 7d 62 6e 65 73 20 70 6f 72 74 20 31 37 2c 20 6f 67 20 6c 61 6d 70 65 72 6e 65 20 73 6c 75 ┆r åbnes port 17, og lamperne slu┆
0x35340…35360 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 30 38 30 20 50 52 4f 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a b0 ┆kkes: 0080 PROC åbne_port ┆
0x35360…35380 30 30 39 30 20 20 20 43 4c 4f 53 45 20 0d 0a b0 30 31 30 30 20 20 20 4f 50 45 4e 20 46 49 4c 45 ┆0090 CLOSE 0100 OPEN FILE┆
0x35380…353a0 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 31 31 30 20 20 20 50 ┆ 1,"/17/PORT", WRITE 0110 P┆
0x353a0…353c0 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 32 30 20 45 4e 44 ┆RINT FILE 1: CHR$(0); 0120 END┆
0x353c0…353e0 50 52 4f 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PROC åbne_port --------------┆
0x353e0…35400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x35400…35600 (24, 0, 1) DataBlock {»LÆRER.WPB«}
[…0x36…]
0x3c200…3c220 (27, 0, 2) b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c220…3c240 20 20 20 20 20 20 70 61 75 73 65 6c 7b 6e 67 64 65 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 ┆ pauselængde 0060 PRINT "S┆
0x3c240…3c260 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 ┆TOP: TRYK PÅ MELLEMRUM-TASTEN !!┆
0x3c260…3c280 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 ┆" 0070 REPEAT 0080 PRINT FI┆
0x3c280…3c2a0 22 0d 0a 30 30 32 30 20 61 6e 74 3a 3d 32 30 0d 0a 30 30 33 30 20 50 52 49 4e 54 20 43 48 52 24 ┆" 0020 ant:=20 0030 PRINT CHR$┆
0x3c2a0…3c2c0 28 31 32 29 0d 0a 30 30 34 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 ┆(12) 0040 OPEN FILE 1,"/17/PORT┆
0x3c2c0…3c2e0 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 50 41 ┆", WRITE 0050 INPUT "SKRIV PA┆
0x3c2e0…3c300 55 53 45 4c 5b 4e 47 44 45 4e 20 49 20 53 45 4b 55 4e 44 45 52 3a 20 22 3a 20 0d 0a 19 80 81 80 ┆USELÆNGDEN I SEKUNDER: ": ┆
0x3c300…3c320 65 6e 20 6b 6f 6e 73 74 61 6e 74 65 20 70 61 75 73 65 6c 7b 6e 67 64 65 20 75 64 73 6b 69 66 74 ┆en konstante pauselængde udskift┆
0x3c320…3c340 65 74 20 6d 65 64 20 0a 76 61 72 69 61 62 6c 65 6e 20 50 41 55 53 45 4c 5b 4e 47 44 45 2c 20 64 ┆et med variablen PAUSELÆNGDE, d┆
0x3c340…3c360 65 72 20 74 69 6c 64 65 6c 65 73 20 65 6e 20 76 7b 72 64 69 20 69 20 0d 0a 49 4e 50 55 54 2d 73 ┆er tildeles en værdi i INPUT-s┆
0x3c360…3c380 7b 74 6e 69 6e 67 65 6e 3a 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 64 31 ┆ætningen: 0010 // "blink-d1┆
0x3c380…3c3a0 72 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 65 74 0d 0a 19 80 81 80 45 58 45 43 20 70 61 75 73 ┆r procedurekaldet EXEC paus┆
0x3c3a0…3c3c0 65 28 58 29 20 66 6f 72 65 6b 6f 6d 6d 65 72 20 21 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆e(X) forekommer ! -----------┆
0x3c3c0…3c3e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3c3e0…3c400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 62 6c 69 6e 6b 2d 64 31 22 20 65 72 20 64 ┆----------- I "blink-d1" er d┆
0x3c400…3c600 (27, 0, 3) DataBlock {»LÆRER.WPB«}
0x3c600…3c800 (27, 0, 4) DataBlock {»LÆRER.WP«}
0x3c800…3ca00 (27, 0, 5) DataBlock {»LÆRER.WPB«}
0x3ca00…3cc00 (27, 0, 6) DataBlock {»LÆRER.WP«}
0x3cc00…3ce00 (27, 0, 7) DataBlock {»LÆRER.WPB«}
0x3ce00…3d000 (27, 0, 8) DataBlock {»LÆRER.WP«}
0x3d000…3d080 (27, 0, 9) DataBlock {»LÆRER.WPB«}
0x3d080…3d0a0 79 73 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 54 52 41 46 49 4b 2d 32 22 0d 0a b0 30 30 32 ┆ys: 0010 // "TRAFIK-2" 002┆
0x3d0a0…3d0c0 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 30 33 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 ┆0 PROC blink 0030 EXEC tænd(┆
0x3d0c0…3d0e0 72 7c 64 32 29 0d 0a b0 30 30 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 ┆rød2) 0040 EXEC pause(6) 0┆
0x3d0e0…3d100 30 35 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c 32 29 0d 0a b0 30 30 36 30 20 20 20 45 ┆050 EXEC tænd(gul2) 0060 E┆
0x3d100…3d120 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 ┆XEC pause(2) 0070 EXEC sluk(┆
0x3d120…3d140 72 7c 64 32 29 0d 0a b0 30 30 38 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a ┆rød2) 0080 EXEC sluk(gul2) ┆
0x3d140…3d160 b0 30 30 39 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 72 7c 6e 32 29 0d 0a b0 30 31 30 30 20 ┆ 0090 EXEC tænd(grøn2) 0100 ┆
0x3d160…3d180 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 73 6c ┆ EXEC pause(6) 0110 EXEC sl┆
0x3d180…3d1a0 75 6b 28 67 72 7c 6e 32 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c ┆uk(grøn2) 0120 EXEC tænd(gul┆
0x3d1a0…3d1c0 32 29 0d 0a b0 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 31 34 30 ┆2) 0130 EXEC pause(3) 0140┆
0x3d1c0…3d1e0 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a b0 30 31 35 30 20 45 4e 44 50 52 4f ┆ EXEC sluk(gul2) 0150 ENDPRO┆
0x3d1e0…3d200 43 20 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C blink ---------------------┆
0x3d200…3d400 (27, 1, 1) DataBlock {»LÆRER.WP«}
[…0x5…]
0x3dc80…3dca0 43 20 62 6c 69 6e 6b 0d 0a b0 30 30 33 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 72 7c 64 32 29 ┆C blink 0030 EXEC tænd(rød2)┆
0x3dca0…3dcc0 0d 0a b0 30 30 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 35 30 20 20 ┆ 0040 EXEC pause(6) 0050 ┆
0x3dcc0…3dce0 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c 32 29 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 70 ┆ EXEC tænd(gul2) 0060 EXEC p┆
0x3dce0…3dd00 61 75 73 65 28 32 29 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 72 7c 64 32 29 ┆ause(2) 0070 EXEC sluk(rød2)┆
0x3dd00…3dd20 0d 0a b0 30 30 38 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a b0 30 30 39 30 ┆ 0080 EXEC sluk(gul2) 0090┆
0x3dd20…3dd40 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 72 7c 6e 32 29 0d 0a b0 30 31 30 30 20 20 20 45 58 45 ┆ EXEC tænd(grøn2) 0100 EXE┆
0x3dd40…3dd60 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 72 ┆C pause(6) 0110 EXEC sluk(gr┆
0x3dd60…3dd80 7c 6e 32 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c 32 29 0d 0a b0 ┆øn2) 0120 EXEC tænd(gul2) ┆
0x3dd80…3dda0 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 31 34 30 20 20 20 45 58 ┆0130 EXEC pause(3) 0140 EX┆
0x3dda0…3ddc0 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a b0 30 31 35 30 20 45 4e 44 50 52 4f 43 20 62 6c 69 ┆EC sluk(gul2) 0150 ENDPROC bli┆
0x3ddc0…3dde0 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆nk --------------------------┆
0x3dde0…3de00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 ┆---------------------------- ┆
0x3de00…3e000 (27, 1, 7) DataBlock {»LÆRER.WP«}
0x3e000…3e020 (27, 1, 8) b0 31 33 30 f0 29 3b 0d 0a 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 30 35 30 ┆ 130 ); 0040 CLOSE FILE 1 0050┆
0x3e020…3e040 20 45 4e 44 20 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 73 6c 75 6b 31 30 22 0d 0a 30 30 32 ┆ END 0010 // "sluk10" 002┆
0x3e040…3e060 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 30 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 ┆0 OPEN FILE 1,"/10/PORT", WRITE ┆
0x3e060…3e080 0d 0a 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 34 29 3b 43 48 ┆ 0030 PRINT FILE 1: CHR$(24);CH┆
0x3e080…3e0a0 52 24 28 35 29 3b 43 48 52 24 28 b0 30 f0 29 3b 0d 0a 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c ┆R$(5);CHR$( 0 ); 0040 CLOSE FIL┆
0x3e0a0…3e0c0 45 20 31 0d 0a 30 30 35 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E 1 0050 END --------------┆
0x3e0c0…3e0e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3e0e0…3e100 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 78 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 54 52 ┆-------- x PROBLEM "TR┆
0x3e100…3e120 41 46 49 4b 22 3a 0d 0a 0d 0a 0d 0a 4e 75 20 73 6b 61 6c 20 6c 79 73 6b 75 72 76 65 6e 65 20 70 ┆AFIK": Nu skal lyskurvene p┆
0x3e120…3e140 7d 20 6c 79 73 70 61 6e 65 6c 65 74 20 62 72 75 67 65 73 2c 20 6f 67 20 6f 6d 73 6b 69 66 74 65 ┆å lyspanelet bruges, og omskifte┆
0x3e140…3e160 72 65 6e 20 0a 73 6b 61 6c 20 64 65 72 66 6f 72 20 73 74 7d 20 70 7d 20 22 54 52 41 46 49 4b 22 ┆ren skal derfor stå på "TRAFIK"┆
0x3e160…3e180 2e 0d 0a 0d 0a 49 20 22 74 72 61 66 69 6b 2d 61 31 22 20 6f 67 20 22 74 72 61 66 69 6b 2d 61 32 ┆. I "trafik-a1" og "trafik-a2┆
0x3e180…3e1a0 22 20 65 72 20 64 65 74 20 b0 6b 75 6e f0 20 74 6f 2d 6c 79 73 65 6e 65 20 64 65 72 20 0a 19 80 ┆" er det kun to-lysene der ┆
0x3e1a0…3e1c0 81 80 73 6b 61 6c 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 2e 20 44 65 74 20 76 69 6c 20 73 69 67 ┆ skal programmeres. Det vil sig┆
0x3e1c0…3e1e0 65 20 61 74 20 62 7d 64 65 20 70 6f 72 74 20 31 37 20 6f 67 20 70 6f 72 74 20 0a 19 80 81 80 31 ┆e at både port 17 og port 1┆
0x3e1e0…3e200 30 20 73 6b 61 6c 20 62 72 75 67 65 73 20 69 20 64 65 74 20 73 61 6d 6d 65 20 70 72 6f 67 72 61 ┆0 skal bruges i det samme progra┆
0x3e200…3e400 (27, 1, 9) DataBlock {»LÆRER.WP«}
0x3e400…3e420 (28, 0, 1) 6d 2e 20 44 65 72 66 6f 72 20 73 6b 61 6c 20 64 65 72 20 0a 19 80 81 80 7d 62 6e 65 73 20 74 69 ┆m. Derfor skal der åbnes ti┆
0x3e420…3e440 6c 20 62 65 67 67 65 20 70 6f 72 74 65 2e 20 44 65 6e 20 65 6e 65 73 74 65 20 66 6f 72 73 6b 65 ┆l begge porte. Den eneste forske┆
0x3e440…3e460 6c 20 70 7d 0d 0a 22 74 72 61 66 69 6b 2d 61 31 22 20 6f 67 20 22 74 72 61 66 69 6b 2d 61 32 22 ┆l på "trafik-a1" og "trafik-a2"┆
0x3e460…3e480 20 65 72 20 61 74 20 64 65 74 20 65 72 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 31 20 0a 70 7d 20 ┆ er at det er lyskurv nr. 1 på ┆
0x3e480…3e4a0 6c 79 73 70 61 6e 65 6c 65 74 20 64 65 72 20 62 72 75 67 65 73 20 69 20 64 65 74 20 65 6e 65 20 ┆lyspanelet der bruges i det ene ┆
0x3e4a0…3e4c0 70 72 6f 67 72 61 6d 2c 20 6f 67 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 32 20 64 65 72 20 0a 62 ┆program, og lyskurv nr. 2 der b┆
0x3e4c0…3e4e0 72 75 67 65 73 20 69 20 64 65 74 20 61 6e 64 65 74 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f ┆ruges i det andet: 0010 //┆
0x3e4e0…3e500 20 22 74 72 61 66 69 6b 2d 61 31 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c ┆ "trafik-a1" 0020 OPEN FILE 1,┆
0x3e500…3e520 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 4e 20 46 ┆"/17/PORT", WRITE 0030 OPEN F┆
0x3e520…3e540 49 4c 45 20 32 2c 22 2f 31 30 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 ┆ILE 2,"/10/PORT", WRITE 0040 ┆
0x3e540…3e560 52 45 50 45 41 54 20 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆REPEAT 0050 PRINT FILE 1: C┆
0x3e560…3e580 48 52 24 28 31 36 29 3b 20 2f 2f 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆HR$(16); // 0060 PRINT FILE┆
0x3e580…3e5a0 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 3b 20 2f 2f ┆ 2: CHR$(24);CHR$(5);CHR$(0); //┆
0x3e5a0…3e5c0 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 38 30 20 ┆ 0070 EXEC pause(6) 0080 ┆
0x3e5c0…3e5e0 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 20 2f 2f 20 0d 0a b0 30 ┆ PRINT FILE 1: CHR$(0); // 0┆
0x3e5e0…3e600 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 ┆090 PRINT FILE 2: CHR$(24);CHR┆
0x3e600…3e620 (28, 0, 2) 2f 2f 20 20 20 20 52 5c 44 28 32 29 20 2b 20 47 55 4c 28 32 29 0d 0a 30 30 37 30 20 20 20 45 58 ┆// RØD(2) + GUL(2) 0070 EX┆
0x3e620…3e640 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆EC pause(2) 0080 PRINT FILE ┆
0x3e640…3e660 31 3a 20 43 48 52 24 28 33 32 29 3b 20 2f 2f 20 20 20 20 20 47 52 5c 4e 28 32 29 0d 0a 30 30 39 ┆1: CHR$(32); // GRØN(2) 009┆
0x3e660…3e680 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 ┆0 EXEC pause(4) 0100 PRINT┆
0x3e680…3e6a0 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 34 29 3b 20 2f 2f 20 20 20 20 20 47 55 4c 28 32 29 ┆ FILE 1: CHR$(64); // GUL(2)┆
0x3e6a0…3e6c0 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 31 32 30 20 55 4e 54 ┆ 0110 EXEC pause(1) 0120 UNT┆
0x3e6c0…3e6e0 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆IL ORD(KEY$)=32 -------------┆
0x3e6e0…3e700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3e700…3e720 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 22 74 72 61 66 69 6b 2d 63 32 22 3a 0d 0a 0d 0a ┆--------- "trafik-c2": ┆
0x3e720…3e740 30 30 31 30 20 2f 2f 20 22 74 72 61 66 69 6b 2d 63 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 ┆0010 // "trafik-c2" 0020 OPEN F┆
0x3e740…3e760 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 52 ┆ILE 1,"/17/PORT", WRITE 0030 R┆
0x3e760…3e780 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 ┆EPEAT 0040 PRINT FILE 1: CH┆
0x3e780…3e7a0 52 24 28 31 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 33 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 ┆R$(1); // RØD(3) 0050 EXEC┆
0x3e7a0…3e7c0 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆ pause(6) 0060 PRINT FILE 1:┆
0x3e7c0…3e7e0 20 43 48 52 24 28 33 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 33 29 20 2b 20 47 55 4c 28 33 29 0d ┆ CHR$(3); // RØD(3) + GUL(3) ┆
0x3e7e0…3e800 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 38 30 20 20 20 50 ┆ 0070 EXEC pause(2) 0080 P┆
0x3e800…3e820 (28, 0, 3) 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b 20 2f 2f 20 0d 0a b0 30 31 30 30 20 20 20 45 58 45 ┆$(5);CHR$(128); // 0100 EXE┆
0x3e820…3e840 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 ┆C pause(4) 0110 UNTIL ORD(KEY$┆
0x3e840…3e860 29 3d 33 32 0d 0a b0 30 31 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 31 33 30 20 45 4e 44 20 0d 0a ┆)=32 0120 CLOSE 0130 END ┆
0x3e860…3e880 0d 0a 0d 0a b0 30 30 32 30 f0 3a 20 44 61 74 61 73 74 72 7c 6d 20 6e 75 6d 6d 65 72 20 31 20 74 ┆ 0020 : Datastrøm nummer 1 t┆
0x3e880…3e8a0 69 6c 20 70 6f 72 74 20 31 37 20 7d 62 6e 65 73 2e 0d 0a b0 30 30 33 30 f0 3a 20 44 61 74 61 73 ┆il port 17 åbnes. 0030 : Datas┆
0x3e8a0…3e8c0 74 72 7c 6d 20 6e 75 6d 6d 65 72 20 32 20 74 69 6c 20 70 6f 72 74 20 31 30 20 7d 62 6e 65 73 2e ┆trøm nummer 2 til port 10 åbnes.┆
0x3e8c0…3e8e0 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 52 5c 44 28 31 29 2c 20 6f 67 20 66 7d 20 62 ┆ 0050 : TÆND RØD(1), og få b┆
0x3e8e0…3e900 72 7c 6b 64 65 6c 65 20 61 66 20 65 74 20 73 65 6b 75 6e 64 20 65 66 74 65 72 3a 0d 0a b0 30 30 ┆røkdele af et sekund efter: 00┆
0x3e900…3e920 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c 4e 28 31 29 0d 0a 0d 0a b0 30 30 37 30 f0 3a 20 50 61 75 ┆60 : SLUK GRØN(1) 0070 : Pau┆
0x3e920…3e940 73 65 20 70 7d 20 36 20 73 65 6b 75 6e 64 65 72 2e 20 44 65 72 20 65 72 20 61 6c 74 73 7d 20 52 ┆se på 6 sekunder. Der er altså R┆
0x3e940…3e960 5c 44 54 20 69 20 36 20 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 30 38 30 f0 ┆ØDT i 6 sekunder. 0080 ┆
0x3e960…3e980 3a 20 53 4c 55 4b 20 52 5c 44 28 31 29 2c 20 6f 67 20 66 7d 20 62 72 7c 6b 64 65 6c 65 20 61 66 ┆: SLUK RØD(1), og få brøkdele af┆
0x3e980…3e9a0 20 65 74 20 73 65 6b 75 6e 64 20 65 66 74 65 72 3a 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e 44 20 ┆ et sekund efter: 0090 : TÆND ┆
0x3e9a0…3e9c0 47 52 5c 4e 28 31 29 0d 0a 0d 0a b0 30 31 30 30 f0 3a 20 50 61 75 73 65 20 70 7d 20 34 20 73 65 ┆GRØN(1) 0100 : Pause på 4 se┆
0x3e9c0…3e9e0 6b 75 6e 64 65 72 2e 20 44 65 72 20 65 72 20 61 6c 74 73 7d 20 47 52 5c 4e 54 20 69 20 34 20 0a ┆kunder. Der er altså GRØNT i 4 ┆
0x3e9e0…3ea00 19 80 81 80 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 31 32 30 f0 3a 20 44 61 74 61 73 74 72 ┆ sekunder. 0120 : Datastr┆
0x3ea00…3ea20 (28, 0, 4) 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 34 29 3b 20 2f 2f 20 20 20 20 47 52 5c 4e ┆RINT FILE 1: CHR$(4); // GRØN┆
0x3ea20…3ea40 28 33 29 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 30 30 ┆(3) 0090 EXEC pause(4) 0100┆
0x3ea40…3ea60 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 29 3b 20 2f 2f 20 20 20 20 ┆ PRINT FILE 1: CHR$(2); // ┆
0x3ea60…3ea80 47 55 4c 28 33 29 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 31 ┆GUL(3) 0110 EXEC pause(1) 01┆
0x3ea80…3eaa0 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d ┆20 UNTIL ORD(KEY$)=32 -------┆
0x3eaa0…3eac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3eac0…3eae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 64 22 20 ┆--------------- "trafik-d" ┆
0x3eae0…3eb00 65 72 20 65 6e 20 6b 6f 6d 62 69 6e 61 74 69 6f 6e 20 61 66 20 64 65 20 74 6f 20 66 6f 72 65 67 ┆er en kombination af de to foreg┆
0x3eb00…3eb20 7d 65 6e 64 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 2e 20 48 65 72 20 73 74 79 72 65 73 20 61 6c ┆ående programmer. Her styres al┆
0x3eb20…3eb40 74 73 7d 20 62 65 67 67 65 20 33 2d 6c 79 73 3a 0d 0a 0d 0a 0d 0a 30 30 33 30 20 52 45 50 45 41 ┆tså begge 3-lys: 0030 REPEA┆
0x3eb40…3eb60 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 ┆T 0040 PRINT FILE 1: CHR$(3┆
0x3eb60…3eb80 33 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 30 35 30 20 20 20 45 58 45 ┆3); //RØD(3)+GRØN(2) 0050 EXE┆
0x3eb80…3eba0 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆C pause(6) 0060 PRINT FILE 1┆
0x3eba0…3ebc0 3a 20 43 48 52 24 28 36 37 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 55 4c 28 33 29 2b 47 52 5c 4e ┆: CHR$(67); //RØD(3)+GUL(3)+GRØN┆
0x3ebc0…3ebe0 28 32 29 0d 0a 19 80 81 80 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 ┆(2) 0070 EXEC pause(2) ┆
0x3ebe0…3ec00 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 32 29 3b 2f ┆0080 PRINT FILE 1: CHR$(132);/┆
0x3ec00…3ec20 (28, 0, 5) 7c 6d 6d 65 6e 65 20 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ømmene lukkes. --------------┆
0x3ec20…3ec40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3ec40…3ec60 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 18 0a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 72 ┆-------- 0010 // "tr┆
0x3ec60…3ec80 61 66 69 6b 2d 61 32 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 ┆afik-a2" 0020 OPEN FILE 1,"/17┆
0x3ec80…3eca0 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 ┆/PORT", WRITE 0030 OPEN FILE ┆
0x3eca0…3ecc0 32 2c 22 2f 31 30 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 52 45 50 45 ┆2,"/10/PORT", WRITE 0040 REPE┆
0x3ecc0…3ece0 41 54 20 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 ┆AT 0050 PRINT FILE 1: CHR$(┆
0x3ece0…3ed00 38 29 3b 20 2f 2f 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 ┆8); // 0060 PRINT FILE 2: C┆
0x3ed00…3ed20 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 3b 20 2f 2f 20 0d 0a b0 30 ┆HR$(24);CHR$(5);CHR$(0); // 0┆
0x3ed20…3ed40 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 ┆070 EXEC pause(6) 0080 PRI┆
0x3ed40…3ed60 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 20 2f 2f 20 0d 0a b0 30 30 39 30 20 20 ┆NT FILE 1: CHR$(0); // 0090 ┆
0x3ed60…3ed80 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b ┆ PRINT FILE 2: CHR$(24);CHR$(5);┆
0x3ed80…3eda0 43 48 52 24 28 32 29 3b 20 2f 2f 20 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 ┆CHR$(2); // 0100 EXEC pause┆
0x3eda0…3edc0 28 34 29 0d 0a b0 30 31 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 ┆(4) 0110 UNTIL ORD(KEY$)=32 ┆
0x3edc0…3ede0 30 31 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 31 33 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 35 30 ┆0120 CLOSE 0130 END 0050┆
0x3ede0…3ee00 f0 3a 20 54 5b 4e 44 20 52 5c 44 28 34 29 0d 0a b0 30 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c ┆ : TÆND RØD(4) 0060 : SLUK GRØ┆
0x3ee00…3ee20 (28, 0, 6) 2f 47 52 5c 4e 28 33 29 2b 52 5c 44 28 32 29 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 ┆/GRØN(3)+RØD(2) 0090 EXEC pau┆
0x3ee20…3ee40 73 65 28 34 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆se(4) 0100 PRINT FILE 1: CHR┆
0x3ee40…3ee60 24 28 31 39 34 29 3b 2f 2f 47 55 4c 28 33 29 2b 52 5c 44 28 32 29 2b 47 55 4c 28 32 29 0d 0a 30 ┆$(194);//GUL(3)+RØD(2)+GUL(2) 0┆
0x3ee60…3ee80 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 ┆110 EXEC pause(1) 0120 UNTIL ┆
0x3ee80…3eea0 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ORD(KEY$)=32 ----------------┆
0x3eea0…3eec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3eec0…3eee0 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 48 0a 0d 0a 0d 0a 0d 0a 49 20 22 74 72 61 66 69 6b 2d 65 22 20 65 ┆------ H I "trafik-e" e┆
0x3eee0…3ef00 72 20 64 65 74 20 69 67 65 6e 20 64 65 20 74 6f 20 33 2d 6c 79 73 20 64 65 72 20 73 74 79 72 65 ┆r det igen de to 3-lys der styre┆
0x3ef00…3ef20 73 2e 20 48 65 72 20 65 72 20 0a 73 65 6b 76 65 6e 73 65 6e 20 62 6c 6f 74 20 6c 61 76 65 74 20 ┆s. Her er sekvensen blot lavet ┆
0x3ef20…3ef40 73 7d 20 64 65 72 20 65 72 20 b0 72 7c 64 74 20 69 20 62 65 67 67 65 20 74 72 61 66 69 6b 80 0a ┆så der er rødt i begge trafik ┆
0x3ef40…3ef60 19 80 81 80 72 65 74 6e 69 6e 67 65 72 f0 20 69 20 31 20 73 65 6b 75 6e 64 20 6d 65 6c 6c 65 6d ┆ retninger i 1 sekund mellem┆
0x3ef60…3ef80 20 73 6b 69 66 74 65 6e 65 3a 0d 0a 0d 0a 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 ┆ skiftene: 0030 REPEAT 0┆
0x3ef80…3efa0 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 33 29 3b 20 2f 2f ┆040 PRINT FILE 1: CHR$(33); //┆
0x3efa0…3efc0 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆RØD(3)+GRØN(2) 0050 EXEC paus┆
0x3efc0…3efe0 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆e(6) 0060 PRINT FILE 1: CHR$┆
0x3efe0…3f000 28 36 35 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 55 4c 28 32 29 0d 0a 30 30 37 30 20 20 20 45 58 ┆(65); //RØD(3)+GUL(2) 0070 EX┆
0x3f000…3f020 (28, 0, 7) 4e 28 34 29 0d 0a 0d 0a b0 30 30 38 30 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 34 29 0d 0a b0 30 30 ┆N(4) 0080 : SLUK RØD(4) 00┆
0x3f020…3f040 39 30 f0 3a 20 54 5b 4e 44 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆90 : TÆND GRØN(4) -----------┆
0x3f040…3f060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3f060…3f080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 62 22 20 73 74 79 72 ┆----------- "trafik-b" styr┆
0x3f080…3f0a0 65 72 20 64 65 20 74 6f 20 32 2d 6c 79 73 2c 20 6f 67 20 65 72 20 73 7d 6c 65 64 65 73 20 65 6e ┆er de to 2-lys, og er således en┆
0x3f0a0…3f0c0 20 0a 6b 6f 6d 62 69 6e 61 74 69 6f 6e 20 61 66 20 64 65 20 74 6f 20 66 6f 72 65 67 7d 65 6e 64 ┆ kombination af de to foregåend┆
0x3f0c0…3f0e0 65 20 70 72 6f 67 72 61 6d 6d 65 72 3a 0d 0a 0d 0a 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 ┆e programmer: 0040 REPEAT ┆
0x3f0e0…3f100 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b ┆ 0050 PRINT FILE 1: CHR$(8);┆
0x3f100…3f120 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 ┆ 0060 PRINT FILE 2: CHR$(24┆
0x3f120…3f140 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b 20 0d 0a b0 30 30 37 30 20 20 20 45 ┆);CHR$(5);CHR$(128); 0070 E┆
0x3f140…3f160 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆XEC pause(6) 0080 PRINT FILE┆
0x3f160…3f180 20 31 3a 20 43 48 52 24 28 31 36 29 3b 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c ┆ 1: CHR$(16); 0090 PRINT FIL┆
0x3f180…3f1a0 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 32 29 3b 20 0d ┆E 2: CHR$(24);CHR$(5);CHR$(2); ┆
0x3f1a0…3f1c0 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 32 30 20 55 4e ┆ 0100 EXEC pause(4) 0120 UN┆
0x3f1c0…3f1e0 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 ┆TIL ORD(KEY$)=32 0050 : TÆND┆
0x3f1e0…3f200 20 52 5c 44 28 31 29 20 20 2b 20 53 4c 55 4b 20 52 5c 44 28 34 29 20 0d 0a b0 30 30 36 30 f0 3a ┆ RØD(1) + SLUK RØD(4) 0060 :┆
0x3f200…3f220 (28, 0, 8) 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆EC pause(3) 0080 PRINT FILE ┆
0x3f220…3f240 31 3a 20 43 48 52 24 28 31 32 39 29 3b 2f 2f 52 5c 44 28 33 29 2b 52 5c 44 28 32 29 0d 0a 30 30 ┆1: CHR$(129);//RØD(3)+RØD(2) 00┆
0x3f240…3f260 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e ┆90 EXEC pause(2) 0100 PRIN┆
0x3f260…3f280 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 31 29 3b 2f 2f 52 5c 44 28 33 29 2b 47 55 4c ┆T FILE 1: CHR$(131);//RØD(3)+GUL┆
0x3f280…3f2a0 28 33 29 2b 52 5c 44 28 32 29 0d 0a 19 80 81 80 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆(3)+RØD(2) 0110 EXEC paus┆
0x3f2a0…3f2c0 65 28 31 29 0d 0a b0 30 31 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆e(1) 0120 PRINT FILE 1: CHR$┆
0x3f2c0…3f2e0 28 31 33 32 29 3b 2f 2f 52 5c 44 28 32 29 2b 47 52 5c 4e 28 33 29 0d 0a 30 31 33 30 20 20 20 45 ┆(132);//RØD(2)+GRØN(3) 0130 E┆
0x3f2e0…3f300 58 45 43 20 70 61 75 73 65 28 31 30 29 0a b0 30 31 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆XEC pause(10) 0140 PRINT FILE┆
0x3f300…3f320 20 31 3a 20 43 48 52 24 28 31 33 30 29 3b 2f 2f 52 5c 44 28 32 29 2b 47 55 4c 28 33 29 0d 0a 30 ┆ 1: CHR$(130);//RØD(2)+GUL(3) 0┆
0x3f320…3f340 31 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0a b0 30 31 36 30 20 20 20 50 52 49 4e ┆150 EXEC pause(3) 0160 PRIN┆
0x3f340…3f360 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 39 29 3b 2f 2f 52 5c 44 28 32 29 2b 52 5c 44 ┆T FILE 1: CHR$(129);//RØD(2)+RØD┆
0x3f360…3f380 28 33 29 0d 0a 30 31 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 31 38 30 ┆(3) 0170 EXEC pause(2) 0180┆
0x3f380…3f3a0 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 39 33 29 3b 2f 2f 52 5c 44 ┆ PRINT FILE 1: CHR$(193);//RØD┆
0x3f3a0…3f3c0 28 32 29 2b 47 55 4c 28 32 29 2b 52 5c 44 28 33 29 0d 0a 19 80 81 80 30 31 39 30 20 20 20 45 58 ┆(2)+GUL(2)+RØD(3) 0190 EX┆
0x3f3c0…3f3e0 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 32 30 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 ┆EC pause(1) 0200 UNTIL ORD(KEY$┆
0x3f3e0…3f400 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆)=32 ------------------------┆
0x3f400…4f400 (28, 0, 9) […elided…]
0x4f400…4f600 (35, 1, 2) 0xe5[0x200]
[…0x7…]