|
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: CpmFSAuto,512,2048,80,0x1,1<2,2:0-35:1
Media: [0, 0, 1] … [35, 1, 9] {128: 16, 256: 16, 512: 630}
Signature: CpmFSAuto,512,2048,80,0x1,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…2c420 (20, 0, 1) 0a 30 30 38 30 20 50 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 ┆ 0080 PRINT FILE 1: CHR$(255); ┆
0x2c420…2c440 b0 30 30 39 30 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 30 30 20 52 45 50 ┆ 0090 start:=SYS(3)/50 0100 REP┆
0x2c440…2c460 45 41 54 20 0d 0a 30 31 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3c 3e 30 0d 0a b0 ┆EAT 0110 UNTIL ORD(KEY$)<>0 ┆
0x2c460…2c480 30 31 32 30 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 33 30 20 50 52 49 4e 54 ┆0120 slut:=SYS(3)/50 0130 PRINT┆
0x2c480…2c4a0 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 34 30 20 72 65 61 6b 74 69 6f ┆ FILE 1: CHR$(0); 0140 reaktio┆
0x2c4a0…2c4c0 6e 73 74 69 64 3a 3d 73 6c 75 74 2d 73 74 61 72 74 0d 0a b0 30 31 35 30 20 50 52 49 4e 54 20 22 ┆nstid:=slut-start 0150 PRINT "┆
0x2c4c0…2c4e0 52 45 41 4b 54 49 4f 4e 53 54 49 44 3a 20 22 3b 72 65 61 6b 74 69 6f 6e 73 74 69 64 3b 22 20 73 ┆REAKTIONSTID: ";reaktionstid;" s┆
0x2c4e0…2c500 65 6b 2e 22 0d 0a 30 31 36 30 20 43 4c 4f 53 45 20 0d 0a 30 31 37 30 20 45 4e 44 20 0d 0a 0d 0a ┆ek." 0160 CLOSE 0170 END ┆
0x2c500…2c520 b0 30 30 36 30 f0 3a 20 48 65 72 20 73 6b 61 6c 20 64 65 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 ┆ 0060 : Her skal der trykkes på ┆
0x2c520…2c540 52 45 54 55 52 4e 2d 74 61 73 74 65 6e 20 66 7c 72 20 0a 19 80 81 80 72 65 61 6b 74 69 6f 6e 73 ┆RETURN-tasten før reaktions┆
0x2c540…2c560 6d 7d 6c 69 6e 67 65 6e 20 66 6f 72 65 74 61 67 65 73 2e 20 b0 76 69 64 65 72 65 24 f0 20 65 72 ┆målingen foretages. videre$ er┆
0x2c560…2c580 20 65 6e 20 64 75 6d 6d 79 2d 0a 19 80 82 80 76 61 72 69 61 62 65 6c 20 64 65 72 20 6b 75 6e 20 ┆ en dummy- variabel der kun ┆
0x2c580…2c5a0 62 72 75 67 65 73 20 74 69 6c 20 61 74 20 73 74 61 6e 64 73 65 20 70 72 6f 67 72 61 6d 80 61 66 ┆bruges til at standse program af┆
0x2c5a0…2c5c0 80 76 69 6b 80 0a 19 80 82 80 6c 69 6e 67 65 6e 20 69 6e 64 74 69 6c 20 64 65 72 20 74 72 79 6b ┆ vik lingen indtil der tryk┆
0x2c5c0…2c5e0 6b 65 73 20 70 7d 20 52 45 54 55 52 4e 2d 74 61 73 74 65 6e 2e 0d 0a 0c 83 58 0a 0d 0a 0d 0a 0d ┆kes på RETURN-tasten. X ┆
0x2c5e0…2c600 0a b0 30 30 39 30 20 6f 67 20 30 31 32 30 f0 3a 20 4d 69 63 72 6f 27 65 6e 73 20 69 6e 74 65 72 ┆ 0090 og 0120 : Micro'ens inter┆
0x2c600…2c620 (20, 0, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 69 73 6f 66 61 73 65 62 6c 69 ┆------------ EXEC isofasebli┆
0x2c620…2c640 6e 6b 28 35 2c 32 29 f0 20 66 7d 72 20 66 79 72 65 74 20 74 69 6c 20 61 74 20 67 69 76 65 20 35 ┆nk(5,2) får fyret til at give 5┆
0x2c640…2c660 20 62 6c 69 6e 6b 2c 20 0a 19 80 81 80 68 76 6f 72 20 b0 68 76 65 72 74 f0 20 62 6c 69 6e 6b 20 ┆ blink, hvor hvert blink ┆
0x2c660…2c680 62 65 73 74 7d 72 20 61 66 20 65 6e 20 6c 79 73 70 65 72 69 6f 64 65 20 6f 67 20 65 6e 20 0a 19 ┆består af en lysperiode og en ┆
0x2c680…2c6a0 80 82 80 6d 7c 72 6b 65 70 65 72 69 6f 64 65 20 64 65 72 20 65 72 20 6c 69 67 65 20 6c 61 6e 67 ┆ mørkeperiode der er lige lang┆
0x2c6a0…2c6c0 65 20 28 3d 69 73 6f 66 61 73 65 29 2c 20 74 69 6c 73 61 6d 6d 65 6e 20 32 20 0a 19 80 82 80 73 ┆e (=isofase), tilsammen 2 s┆
0x2c6c0…2c6e0 65 6b 75 6e 64 65 72 2e 20 b0 62 6c 69 6e 6b 74 69 64 f0 20 65 72 20 61 6c 74 73 7d 20 6c 79 73 ┆ekunder. blinktid er altså lys┆
0x2c6e0…2c700 70 65 72 69 6f 64 65 6e 20 2b 20 6d 7c 72 6b 65 80 0a 19 80 83 80 70 65 72 69 6f 64 65 6e 3a 0d ┆perioden + mørke perioden: ┆
0x2c700…2c720 0a 0d 0a b0 30 32 37 30 20 50 52 4f 43 20 69 73 6f 66 61 73 65 62 6c 69 6e 6b 28 61 6e 74 61 6c ┆ 0270 PROC isofaseblink(antal┆
0x2c720…2c740 62 6c 69 6e 6b 2c 62 6c 69 6e 6b 74 69 64 29 0d 0a b0 30 32 38 30 20 20 20 46 4f 52 20 62 6c 69 ┆blink,blinktid) 0280 FOR bli┆
0x2c740…2c760 6e 6b 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 62 6c 69 6e 6b 20 44 4f 0d 0a b0 30 32 39 30 20 20 20 ┆nk:=1 TO antalblink DO 0290 ┆
0x2c760…2c780 20 20 45 58 45 43 20 6c 79 73 28 62 6c 69 6e 6b 74 69 64 2f 32 29 0d 0a b0 30 33 30 30 20 20 20 ┆ EXEC lys(blinktid/2) 0300 ┆
0x2c780…2c7a0 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 62 6c 69 6e 6b 74 69 64 2f 32 29 0d 0a b0 30 33 31 30 20 ┆ EXEC mørke(blinktid/2) 0310 ┆
0x2c7a0…2c7c0 20 20 4e 45 58 54 20 62 6c 69 6e 6b 0d 0a b0 30 33 32 30 20 45 4e 44 50 52 4f 43 20 69 73 6f 66 ┆ NEXT blink 0320 ENDPROC isof┆
0x2c7c0…2c7e0 61 73 65 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 ┆aseblink --------------------┆
0x2c7e0…2c800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2c800…2c820 (20, 0, 3) 6e 65 20 75 72 20 61 66 6c 7b 73 65 73 20 69 20 73 74 61 72 74 65 6e 20 0a 19 80 81 80 28 b0 73 ┆ne ur aflæses i starten ( s┆
0x2c820…2c840 74 61 72 74 f0 29 20 6f 67 20 69 20 73 6c 75 74 6e 69 6e 67 65 6e 20 28 b0 73 6c 75 74 f0 29 20 ┆tart ) og i slutningen ( slut ) ┆
0x2c840…2c860 61 66 20 72 65 61 6b 74 69 6f 6e 73 70 65 72 69 6f 64 65 6e 2e 0d 0a 0d 0a b0 30 31 34 30 f0 3a ┆af reaktionsperioden. 0140 :┆
0x2c860…2c880 20 52 65 61 6b 74 69 6f 6e 73 74 69 64 65 6e 20 62 65 72 65 67 6e 65 73 2e 0d 0a 0d 0a b0 30 31 ┆ Reaktionstiden beregnes. 01┆
0x2c880…2c8a0 35 30 f0 3a 20 52 65 61 6b 74 69 6f 6e 73 74 69 64 65 6e 20 73 6b 72 69 76 65 73 20 70 7d 20 73 ┆50 : Reaktionstiden skrives på s┆
0x2c8a0…2c8c0 6b 7b 72 6d 65 6e 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 ┆kærmen. ---------------------┆
0x2c8c0…2c8e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2c8e0…2c900 2d 0d 0a 0d 0a 49 20 22 72 65 61 6b 74 69 6f 6e 2d 63 22 20 65 72 20 64 61 74 61 2d 74 72 61 6e ┆- I "reaktion-c" er data-tran┆
0x2c900…2c920 73 6d 69 73 73 69 6f 6e 65 6e 20 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 20 0a 65 72 73 74 61 ┆smissionen til lyspanelet ersta┆
0x2c920…2c940 74 74 65 74 20 6d 65 64 20 43 48 52 24 28 37 29 2c 20 64 65 72 20 66 7d 72 20 6d 69 63 72 6f 65 ┆ttet med CHR$(7), der får microe┆
0x2c940…2c960 6e 20 74 69 6c 20 61 74 20 67 69 76 65 20 65 74 20 0a 64 79 74 20 65 6c 6c 65 72 20 65 74 20 62 ┆n til at give et dyt eller et b┆
0x2c960…2c980 65 65 70 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 72 65 61 6b 74 69 6f 6e 2d 63 22 0d 0a 30 30 ┆eep: 0010 // "reaktion-c" 00┆
0x2c980…2c9a0 32 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 33 30 20 52 41 4e 44 4f 4d 49 5a ┆20 PRINT CHR$(12) 0030 RANDOMIZ┆
0x2c9a0…2c9c0 45 20 0d 0a 30 30 34 30 20 44 49 4d 20 76 69 64 65 72 65 24 20 4f 46 20 31 30 0d 0a 30 30 35 30 ┆E 0040 DIM videre$ OF 10 0050┆
0x2c9c0…2c9e0 20 49 4e 50 55 54 20 22 54 52 59 4b 20 3c 52 45 54 55 52 4e 3e 20 4e 5d 52 20 44 55 20 45 52 20 ┆ INPUT "TRYK <RETURN> NÅR DU ER ┆
0x2c9e0…2ca00 4b 4c 41 52 20 21 21 22 3a 20 76 69 64 65 72 65 24 0d 0a 30 30 36 30 20 45 58 45 43 20 70 61 75 ┆KLAR !!": videre$ 0060 EXEC pau┆
0x2ca00…2ca20 (20, 0, 4) 2d 2d 0d 0a 0c 84 88 0a 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 28 ┆-- EXEC hurtigblink(┆
0x2ca20…2ca40 32 30 29 f0 20 66 7d 72 20 66 79 72 65 74 20 74 69 6c 20 61 74 20 67 69 76 65 20 32 30 20 68 75 ┆20) får fyret til at give 20 hu┆
0x2ca40…2ca60 72 74 69 67 65 20 0a 19 80 81 80 62 6c 69 6e 6b 2c 20 64 2e 76 2e 73 2e 20 36 30 20 62 6c 69 6e ┆rtige blink, d.v.s. 60 blin┆
0x2ca60…2ca80 6b 20 70 72 2e 20 6d 69 6e 75 74 2e 20 4c 79 73 70 65 72 69 6f 64 65 6e 20 65 72 20 6c 69 67 65 ┆k pr. minut. Lysperioden er lige┆
0x2ca80…2caa0 20 0a 19 80 81 80 73 7d 20 6c 61 6e 67 20 73 6f 6d 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 3a ┆ så lang som mørkeperioden:┆
0x2caa0…2cac0 0d 0a 0d 0a b0 30 33 34 30 20 50 52 4f 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 28 61 6e 74 61 6c ┆ 0340 PROC hurtigblink(antal┆
0x2cac0…2cae0 62 6c 69 6e 6b 29 0d 0a b0 30 33 35 30 20 20 20 46 4f 52 20 62 6c 69 6e 6b 3a 3d 31 20 54 4f 20 ┆blink) 0350 FOR blink:=1 TO ┆
0x2cae0…2cb00 61 6e 74 61 6c 62 6c 69 6e 6b 20 44 4f 0d 0a b0 30 33 36 30 20 20 20 20 20 45 58 45 43 20 6c 79 ┆antalblink DO 0360 EXEC ly┆
0x2cb00…2cb20 73 28 30 2e 35 29 0d 0a b0 30 33 37 30 20 20 20 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 30 2e 35 ┆s(0.5) 0370 EXEC mørke(0.5┆
0x2cb20…2cb40 29 0d 0a b0 30 33 38 30 20 20 20 4e 45 58 54 20 62 6c 69 6e 6b 0d 0a b0 30 33 39 30 20 45 4e 44 ┆) 0380 NEXT blink 0390 END┆
0x2cb40…2cb60 50 52 4f 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PROC hurtigblink ------------┆
0x2cb60…2cb80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2cb80…2cba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 28 ┆---------- EXEC gruppeblink(┆
0x2cba0…2cbc0 35 2c 33 29 f0 20 66 7d 72 20 66 79 72 65 74 20 74 69 6c 20 61 74 20 67 69 76 65 20 35 20 62 6c ┆5,3) får fyret til at give 5 bl┆
0x2cbc0…2cbe0 69 6e 6b 80 0a 19 80 81 80 67 72 75 70 70 65 72 20 61 27 20 33 20 62 6c 69 6e 6b 2e 20 4c 79 73 ┆ink grupper a' 3 blink. Lys┆
0x2cbe0…2cc00 70 65 72 69 6f 64 65 6e 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 65 72 20 0a 19 80 ┆perioden og mørkeperioden er ┆
0x2cc00…2cc20 (20, 0, 5) 73 65 28 52 4e 44 28 33 2c 37 29 29 0d 0a b0 30 30 37 30 20 50 52 49 4e 54 20 43 48 52 24 28 37 ┆se(RND(3,7)) 0070 PRINT CHR$(7┆
0x2cc20…2cc40 29 0d 0a 30 30 38 30 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 30 39 30 20 52 ┆) 0080 start:=SYS(3)/50 0090 R┆
0x2cc40…2cc60 45 50 45 41 54 20 0d 0a 30 31 30 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3c 3e 30 0d ┆EPEAT 0100 UNTIL ORD(KEY$)<>0 ┆
0x2cc60…2cc80 0a 30 31 31 30 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 32 30 20 72 65 61 6b ┆ 0110 slut:=SYS(3)/50 0120 reak┆
0x2cc80…2cca0 74 69 6f 6e 73 74 69 64 3a 3d 73 6c 75 74 2d 73 74 61 72 74 0d 0a 30 31 33 30 20 50 52 49 4e 54 ┆tionstid:=slut-start 0130 PRINT┆
0x2cca0…2ccc0 20 22 52 45 41 4b 54 49 4f 4e 53 54 49 44 3a 20 22 3b 72 65 61 6b 74 69 6f 6e 73 74 69 64 3b 22 ┆ "REAKTIONSTID: ";reaktionstid;"┆
0x2ccc0…2cce0 20 73 65 6b 2e 22 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 ┆ sek." 0140 END -----------┆
0x2cce0…2cd00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2cd00…2cd20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 4e 6f 72 6d 61 6c 74 20 65 72 20 6d 61 6e 20 68 ┆---------- Normalt er man h┆
0x2cd20…2cd40 75 72 74 69 67 65 72 65 20 74 69 6c 20 61 74 20 72 65 61 67 65 72 65 20 70 7d 20 65 74 20 6c 79 ┆urtigere til at reagere på et ly┆
0x2cd40…2cd60 64 2d 0a 73 69 67 6e 61 6c 2c 20 65 6e 64 20 70 7d 20 65 74 20 6c 79 73 2d 73 69 67 6e 61 6c 2e ┆d- signal, end på et lys-signal.┆
0x2cd60…2cd80 20 4d 65 6e 20 64 65 74 20 65 72 20 64 65 72 20 6a 6f 20 0a 6d 75 6c 69 67 68 65 64 20 66 6f 72 ┆ Men det er der jo mulighed for┆
0x2cd80…2cda0 20 61 74 20 75 6e 64 65 72 73 7c 67 65 20 6d 65 64 20 64 65 20 74 6f 20 6f 76 65 6e 73 74 7d 65 ┆ at undersøge med de to ovenståe┆
0x2cda0…2cdc0 6e 64 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 2e 0d 0a 0c 82 b0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f ┆nde programmer. PRO┆
0x2cdc0…2cde0 42 4c 45 4d 20 22 46 59 52 22 3a 0d 0a 0d 0a 0d 0a 48 65 72 20 65 72 20 62 65 73 6b 72 65 76 65 ┆BLEM "FYR": Her er beskreve┆
0x2cde0…2ce00 74 20 22 66 79 72 2d 64 22 20 73 6f 6d 20 65 6e 20 6d 75 6c 69 67 20 6c 7c 73 6e 69 6e 67 20 70 ┆t "fyr-d" som en mulig løsning p┆
0x2ce00…2ce20 (20, 0, 6) 81 80 62 65 67 67 65 20 70 7d 20 65 74 20 68 61 6c 76 74 20 73 65 6b 75 6e 64 2c 20 6f 67 20 70 ┆ begge på et halvt sekund, og p┆
0x2ce20…2ce40 61 75 73 65 6e 20 6d 65 6c 6c 65 6d 20 67 72 75 70 70 65 72 6e 65 20 0a 19 80 81 80 65 72 20 70 ┆ausen mellem grupperne er p┆
0x2ce40…2ce60 7d 20 33 20 73 65 6b 75 6e 64 65 72 3a 0d 0a 0d 0a b0 30 34 31 30 20 50 52 4f 43 20 67 72 75 70 ┆å 3 sekunder: 0410 PROC grup┆
0x2ce60…2ce80 70 65 62 6c 69 6e 6b 28 61 6e 74 61 6c 67 72 75 70 70 65 72 2c 61 6e 74 61 6c 67 70 62 6c 69 6e ┆peblink(antalgrupper,antalgpblin┆
0x2ce80…2cea0 6b 29 0d 0a b0 30 34 32 30 20 20 20 46 4f 52 20 67 72 75 70 70 65 3a 3d 31 20 54 4f 20 61 6e 74 ┆k) 0420 FOR gruppe:=1 TO ant┆
0x2cea0…2cec0 61 6c 67 72 75 70 70 65 72 20 44 4f 0d 0a b0 30 34 33 30 20 20 20 20 20 46 4f 52 20 67 70 62 6c ┆algrupper DO 0430 FOR gpbl┆
0x2cec0…2cee0 69 6e 6b 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 67 70 62 6c 69 6e 6b 20 44 4f 0d 0a b0 30 34 34 30 ┆ink:=1 TO antalgpblink DO 0440┆
0x2cee0…2cf00 20 20 20 20 20 20 20 45 58 45 43 20 6c 79 73 28 30 2e 35 29 0d 0a b0 30 34 35 30 20 20 20 20 20 ┆ EXEC lys(0.5) 0450 ┆
0x2cf00…2cf20 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 30 2e 35 29 0d 0a b0 30 34 36 30 20 20 20 20 20 4e 45 58 ┆ EXEC mørke(0.5) 0460 NEX┆
0x2cf20…2cf40 54 20 67 70 62 6c 69 6e 6b 0d 0a b0 30 34 37 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆T gpblink 0470 EXEC pause(┆
0x2cf40…2cf60 33 29 0d 0a b0 30 34 38 30 20 20 20 4e 45 58 54 20 67 72 75 70 70 65 0d 0a b0 30 34 39 30 20 45 ┆3) 0480 NEXT gruppe 0490 E┆
0x2cf60…2cf80 4e 44 50 52 4f 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 0d 0a 0d 0a b0 30 34 33 30 2d 34 36 30 f0 ┆NDPROC gruppeblink 0430-460 ┆
0x2cf80…2cfa0 3a 20 44 65 6e 20 65 6e 6b 65 6c 74 65 20 62 6c 69 6e 6b 2d 67 72 75 70 70 65 2e 0d 0a 0d 0a b0 ┆: Den enkelte blink-gruppe. ┆
0x2cfa0…2cfc0 30 34 32 30 2d 34 38 30 f0 3a 20 41 6e 74 61 6c 6c 65 74 20 61 66 20 62 6c 69 6e 6b 2d 67 72 75 ┆0420-480 : Antallet af blink-gru┆
0x2cfc0…2cfe0 70 70 65 72 2e 0d 0a 0d 0a b0 30 34 37 30 f0 3a 20 50 61 75 73 65 6e 20 6d 65 6c 6c 65 6d 20 62 ┆pper. 0470 : Pausen mellem b┆
0x2cfe0…2d000 6c 69 6e 6b 2d 67 72 75 70 70 65 72 6e 65 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆link-grupperne. -------------┆
0x2d000…2d020 (20, 0, 7) 7d 20 0a 70 72 6f 62 6c 65 6d 65 74 20 69 20 65 6c 65 76 74 65 6b 73 74 65 6e 3a 0d 0a 0d 0a b0 ┆å problemet i elevteksten: ┆
0x2d020…2d040 30 30 31 30 20 2f 2f 20 22 66 79 72 2d 64 22 0d 0a b0 30 30 32 30 20 43 4c 4f 53 45 20 0d 0a b0 ┆0010 // "fyr-d" 0020 CLOSE ┆
0x2d040…2d060 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 2c 20 57 52 49 ┆0030 OPEN FILE 1,"/17/PORT", WRI┆
0x2d060…2d080 54 45 20 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 ┆TE 0040 PRINT FILE 1: CHR$(0)┆
0x2d080…2d0a0 3b 0d 0a b0 30 30 35 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 6c ┆; 0050 REPEAT 0060 EXEC l┆
0x2d0a0…2d0c0 79 73 28 34 29 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 32 29 0d 0a b0 30 ┆ys(4) 0070 EXEC mørke(2) 0┆
0x2d0c0…2d0e0 30 38 30 20 20 20 45 58 45 43 20 69 73 6f 66 61 73 65 62 6c 69 6e 6b 28 35 2c 32 29 0d 0a b0 30 ┆080 EXEC isofaseblink(5,2) 0┆
0x2d0e0…2d100 30 39 30 20 20 20 45 58 45 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 28 32 30 29 0d 0a b0 30 31 30 ┆090 EXEC hurtigblink(20) 010┆
0x2d100…2d120 30 20 20 20 45 58 45 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 28 35 2c 33 29 0d 0a b0 30 31 31 30 ┆0 EXEC gruppeblink(5,3) 0110┆
0x2d120…2d140 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 32 30 20 50 52 49 4e 54 ┆ UNTIL ORD(KEY$)=32 0120 PRINT┆
0x2d140…2d160 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 33 30 20 43 4c 4f 53 45 20 46 ┆ FILE 1: CHR$(0); 0130 CLOSE F┆
0x2d160…2d180 49 4c 45 20 31 0d 0a b0 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 ┆ILE 1 0140 END 0040 : Her┆
0x2d180…2d1a0 20 73 6c 75 6b 6b 65 73 20 61 6c 6c 65 20 6c 61 6d 70 65 72 20 64 65 72 20 6d 7d 74 74 65 20 76 ┆ slukkes alle lamper der måtte v┆
0x2d1a0…2d1c0 7b 72 65 20 74 7b 6e 64 74 20 66 7c 72 20 0a 19 80 81 80 70 72 6f 67 72 61 6d 6d 65 74 20 62 6c ┆ære tændt før programmet bl┆
0x2d1c0…2d1e0 65 76 20 73 74 61 72 74 65 74 2e 0d 0a 0d 0a b0 30 30 36 30 2d 30 31 30 30 f0 3a 20 48 65 72 20 ┆ev startet. 0060-0100 : Her ┆
0x2d1e0…2d200 65 72 20 73 65 6c 76 65 20 66 79 72 65 74 73 20 6b 61 72 61 6b 74 65 72 69 73 74 69 6b 20 73 6f ┆er selve fyrets karakteristik so┆
0x2d200…2d220 (20, 0, 8) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d220…2d240 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4f 67 20 68 65 72 20 b0 50 52 4f 43 20 70 61 75 73 65 28 ┆--------- Og her PROC pause(┆
0x2d240…2d260 58 29 f0 3a 0d 0a 0d 0a b0 30 35 31 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 ┆X) : 0510 PROC pause(sekunde┆
0x2d260…2d280 72 29 0d 0a b0 30 35 32 30 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 ┆r) 0520 start:=SYS(3)/50 0┆
0x2d280…2d2a0 35 33 30 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 35 34 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 ┆530 REPEAT 0540 slut:=S┆
0x2d2a0…2d2c0 59 53 28 33 29 2f 35 30 0d 0a b0 30 35 35 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 ┆YS(3)/50 0550 UNTIL slut-sta┆
0x2d2c0…2d2e0 72 74 3e 3d 73 65 6b 75 6e 64 65 72 0d 0a b0 30 35 36 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 ┆rt>=sekunder 0560 ENDPROC paus┆
0x2d2e0…2d300 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 2d 2d 2d 2d 2d ┆e ---------------------------┆
0x2d300…2d320 2d 2d 2d 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 0d ┆--------------------------- ┆
0x2d320…2d340 0a 50 72 6f 67 72 61 6d 6d 65 74 20 6b 61 6e 20 6e 61 74 75 72 6c 69 67 76 69 73 20 75 64 62 79 ┆ Programmet kan naturligvis udby┆
0x2d340…2d360 67 67 65 73 20 65 66 74 65 72 20 7c 6e 73 6b 65 2e 20 49 20 0a 65 6c 65 76 74 65 6b 73 74 65 6e ┆gges efter ønske. I elevteksten┆
0x2d360…2d380 20 65 72 20 64 65 72 20 65 6b 73 65 6d 70 6c 65 72 20 70 7d 20 61 6e 64 72 65 20 66 79 72 2d 6b ┆ er der eksempler på andre fyr-k┆
0x2d380…2d3a0 61 72 61 6b 74 65 72 69 1e 0d 0a 73 74 69 6b 6b 65 72 2e 0d 0a 0c 83 30 0a 0d 0a 0d 0a 0d 0a b0 ┆arakteri stikker. 0 ┆
0x2d3a0…2d3c0 50 52 4f 42 4c 45 4d 20 22 4d 4f 52 53 45 22 3a 0d 0a 0d 0a 0d 0a 22 53 4f 53 22 20 28 20 2e 2e ┆PROBLEM "MORSE": "SOS" ( ..┆
0x2d3c0…2d3e0 2e 2d 2d 2d 2e 2e 2e 20 29 20 6b 61 6e 20 6c 61 76 65 73 20 65 66 74 65 72 20 22 47 5c 47 2d 4f ┆.---... ) kan laves efter "GØG-O┆
0x2d3e0…2d400 47 2d 47 4f 4b 4b 45 2d 0a 4d 45 54 4f 44 45 4e 22 2c 20 61 6c 74 73 7d 20 6d 65 64 20 65 6e 20 ┆G-GOKKE- METODEN", altså med en ┆
0x2d400…2d420 (20, 0, 9) 6d 20 0a 19 80 81 80 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 2e 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d ┆m procedurekald. ------┆
0x2d420…2d440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d440…2d460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 6c 79 73 28 34 29 ┆---------------- EXEC lys(4)┆
0x2d460…2d480 f0 20 74 7b 6e 64 65 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 ┆ tænder fyret i 4 sekunder: ┆
0x2d480…2d4a0 b0 30 31 36 30 20 50 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 ┆ 0160 PROC lys(sek) 0170 PRI┆
0x2d4a0…2d4c0 4e 54 20 46 49 4c 45 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 ┆NT FILE 1: CHR$(255); 0180 E┆
0x2d4c0…2d4e0 58 45 43 20 70 61 75 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 ┆XEC pause(sek) 0190 PRINT FI┆
0x2d4e0…2d500 4c 45 20 31 3a 20 43 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 ┆LE 1: CHR$(0); 0200 ENDPROC ly┆
0x2d500…2d520 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 2d 2d ┆s ---------------------------┆
0x2d520…2d540 2d 2d 2d 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 b0 ┆--------------------------- ┆
0x2d540…2d560 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 32 ┆EXEC mørke(2) slukker fyret i 2┆
0x2d560…2d580 20 73 65 6b 75 6e 64 65 72 3a 20 0d 0a 0d 0a b0 30 32 32 30 20 50 52 4f 43 20 6d 7c 72 6b 65 28 ┆ sekunder: 0220 PROC mørke(┆
0x2d580…2d5a0 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$┆
0x2d5a0…2d5c0 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) ┆
0x2d5c0…2d5e0 30 32 35 30 20 45 4e 44 50 52 4f 43 20 6d 7c 72 6b 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0250 ENDPROC mørke ----------┆
0x2d5e0…2d600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d600…2d620 (20, 1, 1) 22 50 52 49 4e 54 20 46 49 4c 45 22 2d 73 7b 74 6e 69 6e 67 20 74 69 6c 20 68 76 65 72 20 0a 70 ┆"PRINT FILE"-sætning til hver p┆
0x2d620…2d640 72 69 6b 2f 73 74 72 65 67 20 73 61 6d 74 20 65 74 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 20 ┆rik/streg samt et procedurekald ┆
0x2d640…2d660 6d 65 6c 6c 65 6d 20 61 6c 6c 65 20 0a 70 72 69 6b 6b 65 72 2f 73 74 72 65 67 65 72 2e 20 22 6d ┆mellem alle prikker/streger. "m┆
0x2d660…2d680 6f 72 73 65 2d 61 22 20 65 72 20 6c 61 76 65 74 20 65 66 74 65 72 20 64 65 74 74 65 20 0a 70 72 ┆orse-a" er lavet efter dette pr┆
0x2d680…2d6a0 69 6e 63 69 70 2c 20 73 6f 6d 20 6e 61 74 75 72 6c 69 67 76 69 73 20 65 72 20 65 6e 20 62 65 73 ┆incip, som naturligvis er en bes┆
0x2d6a0…2d6c0 76 7b 72 6c 69 67 20 6c 7c 73 6e 69 6e 67 2e 20 0a 4d 65 6e 20 64 65 74 20 76 69 72 6b 65 72 3a ┆værlig løsning. Men det virker:┆
0x2d6c0…2d6e0 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 61 22 0d 0a b0 30 30 32 30 20 43 4c ┆ 0010 // "morse-a" 0020 CL┆
0x2d6e0…2d700 4f 53 45 20 0d 0a b0 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 ┆OSE 0030 OPEN FILE 1,"/17/POR┆
0x2d700…2d720 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 0d 0a 48 65 72 ┆T", WRITE 0040 REPEAT Her┆
0x2d720…2d740 20 6b 6f 6d 6d 65 72 20 64 65 20 74 72 65 20 70 72 69 6b 6b 65 72 3a 0d 0a b0 30 30 36 30 20 20 ┆ kommer de tre prikker: 0060 ┆
0x2d740…2d760 20 50 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 b0 30 30 37 30 ┆ PRINT FILE 1: CHR$(255); 0070┆
0x2d760…2d780 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e ┆ EXEC pause(0.2) 0080 PRIN┆
0x2d780…2d7a0 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 39 30 20 20 20 45 58 45 43 ┆T FILE 1: CHR$(0); 0090 EXEC┆
0x2d7a0…2d7c0 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆ pause(0.2) 0100 PRINT FILE ┆
0x2d7c0…2d7e0 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆1: CHR$(255); 0110 EXEC paus┆
0x2d7e0…2d800 65 28 30 2e 32 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 ┆e(0.2) 0120 PRINT FILE 1: CH┆
0x2d800…2d820 (20, 1, 2) 6d 20 62 6f 67 73 74 61 76 65 72 6e 65 2c 20 6f 67 20 0a 19 80 82 80 b0 45 58 45 43 20 6d 65 6c ┆m bogstaverne, og EXEC mel┆
0x2d820…2d840 6c 65 6d 72 75 6d 28 37 29 f0 20 73 76 61 72 65 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 ┆lemrum(7) svarer til mellemrum ┆
0x2d840…2d860 6d 65 6c 6c 65 6d 20 6f 72 64 65 6e 65 2e 20 20 20 20 0d 0a 0d 0a b0 30 31 39 30 2d 30 32 31 30 ┆mellem ordene. 0190-0210┆
0x2d860…2d880 f0 3a 20 45 74 20 6d 65 6c 6c 65 6d 72 75 6d 20 73 76 61 72 65 72 20 62 6c 6f 74 20 74 69 6c 20 ┆ : Et mellemrum svarer blot til ┆
0x2d880…2d8a0 65 6e 20 70 61 75 73 65 20 70 7d 20 0a 19 80 81 80 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a ┆en pause på 0.2 sekunder. ┆
0x2d8a0…2d8c0 0d 0a b0 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 ┆ 0230-0300 : En prik består af┆
0x2d8c0…2d8e0 20 65 6e 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 ┆ en lysperiode på 0.2 sekun┆
0x2d8e0…2d900 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 30 2e 32 20 73 65 ┆der og en mørkeperiode på 0.2 se┆
0x2d900…2d920 6b 75 6e 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 ┆kunder. 032-0390 : En streg ┆
0x2d920…2d940 62 65 73 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 ┆består af en lysperiode på 0.5 ┆
0x2d940…2d960 19 80 81 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 ┆ sekunder og en mørkeperiode ┆
0x2d960…2d980 70 7d 20 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 ┆på 0.2 sekunder. Lys- og mørk┆
0x2d980…2d9a0 65 70 65 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 ┆eperioderne bør selvfølgelig fas┆
0x2d9a0…2d9c0 74 6c 7b 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 ┆tlægges efter elevernes egne øn┆
0x2d9c0…2d9e0 73 6b 65 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 ┆sker. p I "morse-c" er ┆
0x2d9e0…2da00 6d 75 6c 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 ┆muligheden for at variere morse-┆
0x2da00…2da20 (20, 1, 3) 52 24 28 30 29 3b 0d 0a b0 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d ┆R$(0); 0130 EXEC pause(0.2) ┆
0x2da20…2da40 0a b0 30 31 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 ┆ 0140 PRINT FILE 1: CHR$(255)┆
0x2da40…2da60 3b 0d 0a b0 30 31 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 36 ┆; 0150 EXEC pause(0.2) 016┆
0x2da60…2da80 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 31 37 ┆0 PRINT FILE 1: CHR$(0); 017┆
0x2da80…2daa0 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 39 30 20 20 20 45 58 45 ┆0 EXEC pause(0.2) 0190 EXE┆
0x2daa0…2dac0 43 20 70 61 75 73 65 28 31 29 0d 0a 0d 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 64 65 20 74 72 65 20 ┆C pause(1) Her kommer de tre ┆
0x2dac0…2dae0 73 74 72 65 67 65 72 3a 0d 0a b0 30 32 31 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆streger: 0210 PRINT FILE 1: ┆
0x2dae0…2db00 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 32 32 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 ┆CHR$(255); 0220 EXEC pause(0┆
0x2db00…2db20 2e 35 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 28 ┆.5) 0230 PRINT FILE 1: CHR$(┆
0x2db20…2db40 30 29 3b 0d 0a b0 30 32 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 ┆0); 0240 EXEC pause(0.2) 0┆
0x2db40…2db60 32 35 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 3b 0d 0a ┆250 PRINT FILE 1: CHR$(255); ┆
0x2db60…2db80 b0 30 32 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 32 37 30 20 20 ┆ 0260 EXEC pause(0.5) 0270 ┆
0x2db80…2dba0 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 32 38 30 20 20 ┆ PRINT FILE 1: CHR$(0); 0280 ┆
0x2dba0…2dbc0 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 39 30 20 20 20 50 52 49 4e 54 20 ┆ EXEC pause(0.2) 0290 PRINT ┆
0x2dbc0…2dbe0 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 33 30 30 20 20 20 45 58 45 43 ┆FILE 1: CHR$(255); 0300 EXEC┆
0x2dbe0…2dc00 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 33 31 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆ pause(0.5) 0310 PRINT FILE ┆
0x2dc00…2dc20 (20, 1, 4) 0a 68 61 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 ┆ hastigheden tilføjet. Her er "n┆
0x2dc20…2dc40 6f 72 6d 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 ┆ormalhastigheden" sat til 100%.┆
0x2dc40…2dc60 20 48 76 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 ┆ Hvis hastigheden skal halveres,┆
0x2dc60…2dc80 20 73 6b 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 ┆ skal der således indtastes 5┆
0x2dc80…2dca0 30 f0 20 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 ┆0 for 50%, og 200 for at for┆
0x2dca0…2dcc0 64 6f 62 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 ┆doble hastigheden, d.v.s. 2┆
0x2dcc0…2dce0 30 30 25 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 ┆00%: Her er selve programmets┆
0x2dce0…2dd00 20 73 74 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 ┆ struktur afspejlet i procedure┆
0x2dd00…2dd20 6b 61 6c 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 ┆kaldene: 0010 // "morse-c" ┆
0x2dd20…2dd40 b0 30 30 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 ┆ 0020 EXEC åbne_port 0030 EXEC┆
0x2dd40…2dd60 20 69 6e 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 ┆ ind_hastighed 0040 EXEC blink┆
0x2dd60…2dd80 0d 0a b0 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 ┆ 0050 EXEC lukke_port 0060 E┆
0x2dd80…2dda0 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 2d 2d ┆ND -------------------------┆
0x2dda0…2ddc0 2d 2d 2d 2d 2d 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 ┆----------------------------- ┆
0x2ddc0…2dde0 0a 48 65 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 ┆ Her åbnes port 17, og lamperne ┆
0x2dde0…2de00 73 6c 75 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 ┆slukkes: 0080 PROC åbne_port┆
0x2de00…2de20 (20, 1, 5) 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 32 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆1: CHR$(0); 0320 EXEC pause(┆
0x2de20…2de40 30 2e 32 29 0d 0a b0 30 33 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 0d 0a 4f ┆0.2) 0340 EXEC pause(1) O┆
0x2de40…2de60 67 20 68 65 72 20 65 72 20 73 7d 20 74 72 65 20 70 72 69 6b 6b 65 72 20 69 67 65 6e 3a 0d 0a b0 ┆g her er så tre prikker igen: ┆
0x2de60…2de80 30 33 36 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 3b 0d ┆0360 PRINT FILE 1: CHR$(255); ┆
0x2de80…2dea0 0a b0 30 33 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 2e 0d 0a 6f 2e ┆ 0370 EXEC pause(0.2) . o.┆
0x2dea0…2dec0 73 2e 76 2e 0d 0a 0d 0a 4f 67 20 74 69 6c 20 73 69 64 73 74 20 61 66 73 6c 75 74 6e 69 6e 67 65 ┆s.v. Og til sidst afslutninge┆
0x2dec0…2dee0 6e 20 70 7d 20 70 72 6f 67 72 61 6d 6d 65 74 3a 0d 0a b0 30 35 31 30 20 55 4e 54 49 4c 20 4f 52 ┆n på programmet: 0510 UNTIL OR┆
0x2dee0…2df00 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 35 32 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆D(KEY$)=32 0520 PRINT FILE 1: ┆
0x2df00…2df20 43 48 52 24 28 30 29 3b 0d 0a b0 30 35 33 30 20 43 4c 4f 53 45 20 0d 0a b0 30 35 34 30 20 45 4e ┆CHR$(0); 0530 CLOSE 0540 EN┆
0x2df20…2df40 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 2d 2d 2d ┆D --------------------------┆
0x2df40…2df60 2d 2d 2d 2d 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 ┆---------------------------- ┆
0x2df60…2df80 68 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 62 22 20 65 72 20 65 6e 20 6c 7c 73 6e 69 6e 67 20 ┆h "morse-b" er en løsning ┆
0x2df80…2dfa0 70 7d 20 64 65 74 20 73 61 6d 6d 65 20 70 72 6f 62 6c 65 6d 2e 20 48 65 72 20 65 72 20 0a 64 65 ┆på det samme problem. Her er de┆
0x2dfa0…2dfc0 72 20 6c 61 76 65 74 20 65 6e 20 70 72 6f 63 65 64 75 72 65 20 74 69 6c 20 68 68 76 2e 20 65 6e ┆r lavet en procedure til hhv. en┆
0x2dfc0…2dfe0 20 70 72 69 6b 20 6f 67 20 65 6e 20 73 74 72 65 67 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f ┆ prik og en streg: 0010 //┆
0x2dfe0…2e000 20 22 6d 6f 72 73 65 2d 62 22 0d 0a b0 30 30 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 33 30 20 ┆ "morse-b" 0020 CLOSE 0030 ┆
0x2e000…2e020 (20, 1, 6) 0d 0a b0 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 ┆ 0090 CLOSE 0100 OPEN F┆
0x2e020…2e040 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 31 31 30 20 ┆ILE 1,"/17/PORT", WRITE 0110 ┆
0x2e040…2e060 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 31 32 30 20 ┆ PRINT FILE 1: CHR$(0); 0120 ┆
0x2e060…2e080 45 4e 44 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 ┆ENDPROC åbne_port -----------┆
0x2e080…2e0a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e0a0…2e0c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 72 20 69 6e 64 74 61 73 74 65 73 20 62 6c 69 ┆----------- Her indtastes bli┆
0x2e0c0…2e0e0 6e 6b 2d 68 61 73 74 69 67 68 65 64 65 6e 3a 0d 0a 0d 0a b0 30 31 34 30 20 50 52 4f 43 20 69 6e ┆nk-hastigheden: 0140 PROC in┆
0x2e0e0…2e100 64 5f 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 ┆d_hastighed 0150 PRINT CHR$(┆
0x2e100…2e120 31 32 29 0d 0a b0 30 31 36 30 20 20 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 48 41 53 54 49 47 ┆12) 0160 INPUT "SKRIV HASTIG┆
0x2e120…2e140 48 45 44 20 28 6e 6f 72 6d 61 6c 3d 31 30 30 25 29 3a 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 20 ┆HED (normal=100%): ": ┆
0x2e140…2e160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e160…2e180 20 20 20 20 20 20 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 37 30 20 20 20 6d 65 6c 6c 65 6d 72 ┆ hastighed 0170 mellemr┆
0x2e180…2e1a0 75 6d 6c 7b 6e 67 64 65 3a 3d 30 2e 32 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 0d 0a b0 ┆umlængde:=0.2/hastighed x 100 ┆
0x2e1a0…2e1c0 30 31 38 30 20 20 20 70 72 69 6b 6c 7b 6e 67 64 65 3a 3d 30 2e 32 2f 68 61 73 74 69 67 68 65 64 ┆0180 priklængde:=0.2/hastighed┆
0x2e1c0…2e1e0 20 78 20 31 30 30 0d 0a b0 30 31 39 30 20 20 20 73 74 72 65 67 6c 7b 6e 67 64 65 3a 3d 30 2e 35 ┆ x 100 0190 streglængde:=0.5┆
0x2e1e0…2e200 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 0d 0a b0 30 32 30 30 20 45 4e 44 50 52 4f 43 20 ┆/hastighed x 100 0200 ENDPROC ┆
0x2e200…2e220 (20, 1, 7) 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 ┆
0x2e220…2e240 b0 30 30 34 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 ┆ 0040 PRINT FILE 1: CHR$(0); 0┆
0x2e240…2e260 30 35 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 ┆050 REPEAT 0070 EXEC prik(3┆
0x2e260…2e280 29 0d 0a b0 30 30 38 30 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 ┆) 0080 EXEC mellemrum(1) 0┆
0x2e280…2e2a0 30 39 30 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 0d 0a b0 30 31 30 30 20 20 20 45 58 45 ┆090 EXEC streg(3) 0100 EXE┆
0x2e2a0…2e2c0 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 70 72 69 ┆C mellemrum(1) 0110 EXEC pri┆
0x2e2c0…2e2e0 6b 28 33 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 37 29 0d ┆k(3) 0120 EXEC mellemrum(7) ┆
0x2e2e0…2e300 0a b0 30 31 34 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 35 30 ┆ 0140 UNTIL ORD(KEY$)=32 0150┆
0x2e300…2e320 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 36 30 20 43 ┆ PRINT FILE 1: CHR$(0); 0160 C┆
0x2e320…2e340 4c 4f 53 45 20 0d 0a b0 30 31 37 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 31 39 30 20 50 52 4f 43 20 ┆LOSE 0170 END 0190 PROC ┆
0x2e340…2e360 6d 65 6c 6c 65 6d 72 75 6d 28 61 6e 74 61 6c 29 0d 0a b0 30 32 30 30 20 20 20 46 4f 52 20 6e 3a ┆mellemrum(antal) 0200 FOR n:┆
0x2e360…2e380 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a ┆=1 TO antal DO EXEC pause(0.2) ┆
0x2e380…2e3a0 b0 30 32 31 30 20 45 4e 44 50 52 4f 43 20 6d 65 6c 6c 65 6d 72 75 6d 0d 0a 0d 0a b0 30 32 33 30 ┆ 0210 ENDPROC mellemrum 0230┆
0x2e3a0…2e3c0 20 50 52 4f 43 20 70 72 69 6b 28 61 6e 74 61 6c 29 0d 0a b0 30 32 34 30 20 20 20 46 4f 52 20 70 ┆ PROC prik(antal) 0240 FOR p┆
0x2e3c0…2e3e0 72 69 6b 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a b0 30 32 35 30 20 20 20 20 20 ┆riknr:=1 TO antal DO 0250 ┆
0x2e3e0…2e400 50 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 b0 30 32 36 30 20 ┆PRINT FILE 1: CHR$(255); 0260 ┆
0x2e400…2e420 (20, 1, 8) 69 6e 64 5f 68 61 73 74 69 67 68 65 64 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ind_hastighed ---------------┆
0x2e420…2e440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e440…2e460 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4f 67 20 68 65 72 20 75 64 66 7c 72 65 73 20 73 65 6c 76 65 20 ┆------- Og her udføres selve ┆
0x2e460…2e480 62 6c 69 6e 6b 2d 73 65 6b 76 65 6e 73 65 6e 20 6c 69 67 65 73 6f 6d 20 69 0d 0a 22 6d 6f 72 73 ┆blink-sekvensen ligesom i "mors┆
0x2e480…2e4a0 65 2d 62 22 3a 0d 0a 0d 0a b0 30 32 32 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 32 33 30 ┆e-b": 0220 PROC blink 0230┆
0x2e4a0…2e4c0 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 32 34 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 ┆ REPEAT 0240 EXEC prik(┆
0x2e4c0…2e4e0 33 29 0d 0a b0 30 32 35 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d ┆3) 0250 EXEC mellemrum(1) ┆
0x2e4e0…2e500 0a b0 30 32 36 30 20 20 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 0d 0a b0 30 32 37 30 20 ┆ 0260 EXEC streg(3) 0270 ┆
0x2e500…2e520 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 32 38 30 20 20 20 20 ┆ EXEC mellemrum(1) 0280 ┆
0x2e520…2e540 20 45 58 45 43 20 70 72 69 6b 28 33 29 0d 0a b0 30 32 39 30 20 20 20 20 20 45 58 45 43 20 6d 65 ┆ EXEC prik(3) 0290 EXEC me┆
0x2e540…2e560 6c 6c 65 6d 72 75 6d 28 37 29 0d 0a b0 30 33 30 30 20 20 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 ┆llemrum(7) 0300 UNTIL ORD(KE┆
0x2e560…2e580 59 24 29 3d 33 32 0d 0a b0 30 33 31 30 20 45 4e 44 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a 0d 0a 2d ┆Y$)=32 0310 ENDPROC blink -┆
0x2e580…2e5a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e5a0…2e5c0 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 58 0a 0d 0a 0d 0a 0d ┆--------------------- X ┆
0x2e5c0…2e5e0 0a 54 69 6c 20 73 69 64 73 74 20 73 6c 75 6b 6b 65 73 20 6c 61 6d 70 65 72 6e 65 20 6f 67 20 64 ┆ Til sidst slukkes lamperne og d┆
0x2e5e0…2e600 61 74 61 73 74 72 7c 6d 6d 65 6e 20 6c 75 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 33 33 30 20 50 52 4f ┆atastrømmen lukkes: 0330 PRO┆
0x2e600…2e620 (20, 1, 9) 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 37 30 20 20 20 20 20 50 ┆ EXEC pause(0.2) 0270 P┆
0x2e620…2e640 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 32 38 30 20 20 20 20 ┆RINT FILE 1: CHR$(0); 0280 ┆
0x2e640…2e660 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 39 30 20 20 20 4e 45 58 54 20 70 ┆ EXEC pause(0.2) 0290 NEXT p┆
0x2e660…2e680 72 69 6b 6e 72 0d 0a b0 30 33 30 30 20 45 4e 44 50 52 4f 43 20 70 72 69 6b 0d 0a b0 0d 0a b0 30 ┆riknr 0300 ENDPROC prik 0┆
0x2e680…2e6a0 33 32 30 20 50 52 4f 43 20 73 74 72 65 67 28 61 6e 74 61 6c 29 0d 0a b0 30 33 33 30 20 20 20 46 ┆320 PROC streg(antal) 0330 F┆
0x2e6a0…2e6c0 4f 52 20 73 74 72 65 67 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a b0 30 33 34 30 ┆OR stregnr:=1 TO antal DO 0340┆
0x2e6c0…2e6e0 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 35 35 29 3b 0d 0a b0 ┆ PRINT FILE 1: CHR$(255); ┆
0x2e6e0…2e700 30 33 35 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 33 36 30 20 ┆0350 EXEC pause(0.5) 0360 ┆
0x2e700…2e720 20 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 33 37 ┆ PRINT FILE 1: CHR$(0); 037┆
0x2e720…2e740 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 33 38 30 20 20 20 4e ┆0 EXEC pause(0.2) 0380 N┆
0x2e740…2e760 45 58 54 20 73 74 72 65 67 6e 72 0d 0a b0 30 33 39 30 20 45 4e 44 50 52 4f 43 20 73 74 72 65 67 ┆EXT stregnr 0390 ENDPROC streg┆
0x2e760…2e780 0d 0a 0d 0a 0d 0a b0 30 30 37 30 2d 30 31 32 30 f0 3a 20 48 65 72 20 22 6b 61 6c 64 65 73 22 20 ┆ 0070-0120 : Her "kaldes" ┆
0x2e780…2e7a0 70 72 69 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e 65 20 68 76 65 72 20 0a 19 80 81 ┆prikkerne og stregerne hver ┆
0x2e7a0…2e7c0 80 66 6f 72 20 73 69 67 2e 20 b0 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 f0 20 73 76 ┆ for sig. EXEC mellemrum(1) sv┆
0x2e7c0…2e7e0 61 72 65 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 6d 65 6c 6c 65 6d 20 0a 19 80 82 80 70 ┆arer til mellemrum mellem p┆
0x2e7e0…2e800 72 69 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e 65 20 69 20 6f 67 20 6d 65 6c 6c 65 ┆rikkerne og stregerne i og melle┆
0x2e800…2e820 (21, 0, 1) 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a b0 30 33 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆C lukke_port 0340 PRINT FILE┆
0x2e820…2e840 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 35 30 20 20 20 43 4c 4f 53 45 20 0d 0a b0 30 ┆ 1: CHR$(0); 0350 CLOSE 0┆
0x2e840…2e860 33 36 30 20 45 4e 44 50 52 4f 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d ┆360 ENDPROC lukke_port ------┆
0x2e860…2e880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e880…2e8a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 0d 0a 50 72 6f 63 65 64 75 72 ┆---------------- Procedur┆
0x2e8a0…2e8c0 65 72 6e 65 20 b0 70 72 69 6b f0 2c 20 b0 73 74 72 65 67 f0 20 6f 67 20 b0 70 61 75 73 65 f0 20 ┆erne prik , streg og pause ┆
0x2e8c0…2e8e0 65 72 20 73 6f 6d 20 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 0a 19 80 83 80 22 6d 6f 72 73 65 2d ┆er som i programmet "morse-┆
0x2e8e0…2e900 62 22 2e 0d 0a 0c 81 00 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 64 22 20 62 6c 69 6e 6b 65 72 ┆b". "morse-d" blinker┆
0x2e900…2e920 20 6e 61 76 6e 65 74 20 b0 4f 4c 45 f0 20 28 2f 2d 2d 2d 2f 2e 2d 2e 2e 2f 2e 2f 29 2e 20 48 65 ┆ navnet OLE (/---/.-.././). He┆
0x2e920…2e940 72 20 62 6c 6f 74 20 70 72 6f 63 65 64 75 72 65 6e 20 0a 19 80 81 80 b0 62 6c 69 6e 6b f0 3a 0d ┆r blot proceduren blink : ┆
0x2e940…2e960 0a 0d 0a b0 30 32 34 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 32 35 30 20 20 20 52 45 50 ┆ 0240 PROC blink 0250 REP┆
0x2e960…2e980 45 41 54 20 0d 0a b0 30 32 36 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆EAT 0260 // -------------┆
0x2e980…2e9a0 2d 2d 0d 0a b0 30 32 37 30 20 20 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 20 20 20 20 20 ┆-- 0270 EXEC streg(3) ┆
0x2e9a0…2e9c0 20 20 20 20 20 20 2e 2e 2e 2e 20 4f 20 0d 0a b0 30 32 38 30 20 20 20 20 20 45 58 45 43 20 6d 65 ┆ .... O 0280 EXEC me┆
0x2e9c0…2e9e0 6c 6c 65 6d 72 75 6d 28 35 29 0d 0a b0 30 32 39 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d ┆llemrum(5) 0290 // -------┆
0x2e9e0…2ea00 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 33 30 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 31 29 ┆-------- 0300 EXEC prik(1)┆
0x2ea00…2ea20 (21, 0, 2) 43 20 70 72 69 6b 0d 0a 0d 0a b0 30 33 30 30 20 50 52 4f 43 20 73 74 72 65 67 0d 0a b0 30 33 31 ┆C prik 0300 PROC streg 031┆
0x2ea20…2ea40 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 3b 0d 0a b0 30 ┆0 PRINT FILE 1: CHR$(255); 0┆
0x2ea40…2ea60 33 32 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 36 2f 68 61 73 74 69 67 68 65 64 20 78 ┆320 EXEC pause(0.6/hastighed x┆
0x2ea60…2ea80 20 31 30 30 29 0d 0a b0 30 33 33 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆ 100) 0330 PRINT FILE 1: CHR┆
0x2ea80…2eaa0 24 28 30 29 3b 0d 0a b0 30 33 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 2f 68 61 ┆$(0); 0340 EXEC pause(0.2/ha┆
0x2eaa0…2eac0 73 74 69 67 68 65 64 20 78 20 31 30 30 29 0d 0a b0 30 33 34 30 20 45 4e 44 50 52 4f 43 20 73 74 ┆stighed x 100) 0340 ENDPROC st┆
0x2eac0…2eae0 72 65 67 0d 0a 04 00 2d 4e 0a 00 06 00 00 00 00 02 14 4a 31 40 00 00 00 00 00 00 00 00 00 00 00 ┆reg -N J1@ ┆
0x2eae0…2eb00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a a4 ff 04 04 00 ┆ ",6@JT^hrø ┆
0x2eb00…2eb20 2d 4e 0a 00 06 00 00 00 00 02 07 4d 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-N M1@ ┆
0x2eb20…2eb40 00 00 00 00 00 00 0b 15 1f 29 33 3d 47 51 5b 65 6f 79 83 8d 97 ff 04 0a 0d 0a b0 30 30 36 30 2d ┆ )3=GQÆeoy 0060-┆
0x2eb40…2eb60 30 30 39 30 f0 3a 20 48 65 72 20 74 69 6c 64 65 6c 65 73 20 74 65 6b 73 74 76 61 72 69 61 62 6c ┆0090 : Her tildeles tekstvariabl┆
0x2eb60…2eb80 65 6e 20 b0 6d 6f 72 73 65 74 65 67 6e 24 f0 20 64 65 20 0a 19 80 82 80 65 6e 6b 65 6c 74 65 20 ┆en morsetegn$ de enkelte ┆
0x2eb80…2eba0 6d 6f 72 73 65 74 65 67 6e 73 20 75 64 73 65 65 6e 64 65 20 6c 7b 73 74 20 66 72 61 20 44 41 54 ┆morsetegns udseende læst fra DAT┆
0x2eba0…2ebc0 41 2d 73 7b 74 6e 69 6e 67 65 72 6e 65 2e 0d 0a 0d 0a b0 30 31 31 30 f0 3a 20 48 65 72 20 74 69 ┆A-sætningerne. 0110 : Her ti┆
0x2ebc0…2ebe0 6c 64 65 6c 65 73 20 b0 74 65 6b 73 74 24 f0 20 64 65 6e 20 7c 6e 73 6b 65 64 65 20 74 65 6b 73 ┆ldeles tekst$ den ønskede teks┆
0x2ebe0…2ec00 74 2e 0d 0a 0d 0a b0 30 31 36 30 2d 30 31 39 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 64 ┆t. 0160-0190 : Her udføres d┆
0x2ec00…2ec20 (21, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 2e 20 4c 20 0d 0a b0 30 33 31 30 20 20 20 20 20 45 ┆ .... L 0310 E┆
0x2ec20…2ec40 58 45 43 20 73 74 72 65 67 28 31 29 0d 0a b0 30 33 32 30 20 20 20 20 20 45 58 45 43 20 70 72 69 ┆XEC streg(1) 0320 EXEC pri┆
0x2ec40…2ec60 6b 28 32 29 0d 0a b0 30 33 33 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 ┆k(2) 0330 EXEC mellemrum(5┆
0x2ec60…2ec80 29 0d 0a b0 30 33 34 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ┆) 0340 // --------------- ┆
0x2ec80…2eca0 0a b0 30 33 35 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 31 29 20 20 20 20 20 20 20 20 20 ┆ 0350 EXEC prik(1) ┆
0x2eca0…2ecc0 20 20 20 2e 2e 2e 2e 20 45 0d 0a b0 30 33 36 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d ┆ .... E 0360 EXEC mellem┆
0x2ecc0…2ece0 72 75 6d 28 35 29 0d 0a b0 30 33 37 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆rum(5) 0370 // -----------┆
0x2ece0…2ed00 2d 2d 2d 2d 0d 0a b0 30 33 38 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 ┆---- 0380 EXEC mellemrum(5┆
0x2ed00…2ed20 29 0d 0a b0 30 33 39 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ┆) 0390 // --------------- ┆
0x2ed20…2ed40 0a b0 30 34 30 30 20 20 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 34 ┆ 0400 UNTIL ORD(KEY$)=32 04┆
0x2ed40…2ed60 31 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 2d 2d 2d 2d ┆10 ENDPROC blink ------------┆
0x2ed60…2ed80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ed80…2eda0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 44 65 74 20 73 6b 61 6c 20 6e 7b 76 6e 65 73 2c ┆---------- Det skal nævnes,┆
0x2eda0…2edc0 20 61 74 20 6d 6f 72 73 65 70 72 6f 67 72 61 6d 6d 65 72 6e 65 20 65 72 20 73 76 7b 72 65 2c 20 ┆ at morseprogrammerne er svære, ┆
0x2edc0…2ede0 0a 19 80 81 80 6f 67 20 64 65 74 20 76 69 6c 20 69 6b 6b 65 20 76 7b 72 65 20 66 6f 72 6b 65 72 ┆ og det vil ikke være forker┆
0x2ede0…2ee00 74 20 61 74 20 73 70 72 69 6e 67 65 20 64 65 6d 20 6f 76 65 72 20 68 76 69 73 20 0a 19 80 82 80 ┆t at springe dem over hvis ┆
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…317a0 30 20 4e 45 58 54 20 74 61 6c 0d 0a b0 30 30 38 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆0 NEXT tal 0080 PRINT FILE 1: ┆
0x317a0…317c0 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 ┆CHR$(0); 0090 CLOSE FILE 1 0┆
0x317c0…317e0 31 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 2d 2d ┆100 END --------------------┆
0x317e0…31800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x31800…31820 (22, 0, 7) 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 35 ┆FOR bit:=7 TO 0 STEP -1 DO 015┆
0x31820…31840 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);┆
0x31840…31860 0d 0a b0 30 31 36 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 ┆ 0160 EXEC pause(lysperiod┆
0x31860…31880 65 29 0d 0a b0 30 31 37 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 38 30 20 20 20 50 52 49 ┆e) 0170 NEXT bit 0180 PRI┆
0x31880…318a0 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 39 30 20 20 20 45 58 45 43 ┆NT FILE 1: CHR$(0); 0190 EXEC┆
0x318a0…318c0 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 30 32 30 30 20 55 4e 54 49 4c 20 4f ┆ pause(lysperiode) 0200 UNTIL O┆
0x318c0…318e0 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 2d ┆RD(KEY$)=32 -----------------┆
0x318e0…31900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x31900…31920 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 67 31 22 2c 20 22 6c 7c 62 2d 67 32 22 20 6f 67 20 22 ┆----- "løb-g1", "løb-g2" og "┆
0x31920…31940 6c 7c 62 2d 67 33 22 20 65 72 20 66 6f 72 73 6c 61 67 20 74 69 6c 20 6c 7c 73 6e 69 6e 67 20 0a ┆løb-g3" er forslag til løsning ┆
0x31940…31960 61 66 20 70 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 61 74 20 6d 61 6e 20 66 72 61 20 74 61 73 74 ┆af problemet med at man fra tast┆
0x31960…31980 61 74 75 72 65 74 20 73 6b 61 6c 20 6b 75 6e 6e 65 20 66 7d 20 0a 6c 79 73 65 74 20 74 69 6c 20 ┆aturet skal kunne få lyset til ┆
0x31980…319a0 61 74 20 6c 7c 62 65 20 68 68 76 2e 20 6d 6f 64 20 68 7c 6a 72 65 20 6f 67 20 6d 6f 64 20 76 65 ┆at løbe hhv. mod højre og mod ve┆
0x319a0…319c0 6e 73 74 72 65 2e 0d 0a 0d 0a 48 65 72 20 22 6c 7c 62 2d 67 32 22 3a 0d 0a 0d 0a b0 30 30 31 30 ┆nstre. Her "løb-g2": 0010┆
0x319c0…319e0 20 2f 2f 20 22 6c 7c 62 2d 67 32 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c ┆ // "løb-g2" 0020 OPEN FILE 1,┆
0x319e0…31a00 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 44 49 4d 20 74 61 ┆"/17/PORT", WRITE 0030 DIM ta┆
0x31a00…31a20 (22, 0, 8) 2d 2d 0d 0a 0d 0a 49 20 22 74 7b 6c 6c 65 2d 62 22 20 6b 61 6e 20 74 7b 6c 6c 65 68 61 73 74 69 ┆-- I "tælle-b" kan tællehasti┆
0x31a20…31a40 67 68 65 64 65 6e 20 76 61 72 69 65 72 65 73 2c 20 69 64 65 74 20 0a 62 72 75 67 65 72 65 6e 20 ┆gheden varieres, idet brugeren ┆
0x31a40…31a60 73 65 6c 76 20 62 65 73 74 65 6d 6d 65 72 20 68 76 6f 72 20 6c 61 6e 67 20 74 69 64 20 68 76 65 ┆selv bestemmer hvor lang tid hve┆
0x31a60…31a80 72 74 20 70 61 75 73 65 20 73 6b 61 6c 20 0a 76 7b 72 65 2e 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f ┆rt pause skal være. 0010 /┆
0x31a80…31aa0 2f 20 22 74 7b 6c 6c 65 2d 62 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f ┆/ "tælle-b" 0020 OPEN FILE 1,"/┆
0x31aa0…31ac0 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 49 4e 50 55 54 20 22 50 ┆17/PORT", WRITE 0030 INPUT "P┆
0x31ac0…31ae0 41 55 53 45 54 49 44 3a 20 22 3a 20 74 69 64 0d 0a 30 30 34 30 20 46 4f 52 20 74 61 6c 3a 3d 30 ┆AUSETID: ": tid 0040 FOR tal:=0┆
0x31ae0…31b00 20 54 4f 20 32 35 35 20 44 4f 0d 0a 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆ TO 255 DO 0050 PRINT FILE 1:┆
0x31b00…31b20 20 43 48 52 24 28 74 61 6c 29 3b 0d 0a 30 30 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 ┆ CHR$(tal); 0060 EXEC pause( ┆
0x31b20…31b40 74 69 64 f0 29 0d 0a 30 30 37 30 20 4e 45 58 54 20 74 61 6c 0d 0a 30 30 38 30 20 50 52 49 4e 54 ┆tid ) 0070 NEXT tal 0080 PRINT┆
0x31b40…31b60 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 30 39 30 20 43 4c 4f 53 45 20 46 49 ┆ FILE 1: CHR$(0); 0090 CLOSE FI┆
0x31b60…31b80 4c 45 20 31 0d 0a 30 31 30 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆LE 1 0100 END -------------┆
0x31b80…31ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x31ba0…31bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 82 b8 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 ┆--------- PROBLEM "┆
0x31bc0…31be0 42 4c 49 4e 4b 2d 30 2f 37 22 3a 0d 0a 0d 0a 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 66 7d 72 ┆BLINK-0/7": Dette program får┆
0x31be0…31c00 20 42 49 54 2d 30 20 6f 67 20 42 49 54 2d 37 20 70 7b 72 65 72 6e 65 20 74 69 6c 20 61 74 20 62 ┆ BIT-0 og BIT-7 pærerne til at b┆
0x31c00…31c20 (22, 0, 9) 73 74 24 20 4f 46 20 31 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 ┆st$ OF 1 0040 PRINT "STOP: TRY┆
0x31c20…31c40 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 b0 30 30 35 30 ┆K PÅ MELLEMRUM-TASTEN !!" 0050┆
0x31c40…31c60 20 50 52 49 4e 54 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 36 ┆ PRINT "SKRIV LYSPERIODEN" 006┆
0x31c60…31c80 30 20 50 52 49 4e 54 20 22 49 20 53 45 4b 55 4e 44 45 52 22 0d 0a b0 30 30 37 30 20 49 4e 50 55 ┆0 PRINT "I SEKUNDER" 0070 INPU┆
0x31c80…31ca0 54 20 22 46 4f 52 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 ┆T "FOR HVER PÆRE: ": lysperiode ┆
0x31ca0…31cc0 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 2d ┆ -----------------------------┆
0x31cc0…31ce0 2d 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 72 ┆------------------------- Her┆
0x31ce0…31d00 20 65 72 20 73 65 6c 76 65 20 61 66 76 69 6b 6c 69 6e 67 65 6e 20 61 66 20 6c 7c 62 65 6c 79 73 ┆ er selve afviklingen af løbelys┆
0x31d00…31d20 65 74 2e 20 44 65 74 20 65 72 20 70 72 6f 63 65 80 0a 64 75 72 65 6e 20 b0 6c 7c 62 65 6c 79 73 ┆et. Det er proce duren løbelys┆
0x31d20…31d40 f0 20 28 73 65 20 6e 7b 73 74 65 20 73 69 64 65 29 20 64 65 72 20 66 7d 72 20 6c 79 73 65 74 20 ┆ (se næste side) der får lyset ┆
0x31d40…31d60 74 69 6c 20 61 74 20 0a 19 80 81 80 6c 7c 62 65 3a 0d 0a 0d 0a b0 30 30 39 30 20 52 45 50 45 41 ┆til at løbe: 0090 REPEA┆
0x31d60…31d80 54 20 0d 0a 0d 0a b0 30 31 30 30 20 20 20 74 61 73 74 24 3a 3d 4b 45 59 24 0d 0a 0d 0a b0 30 31 ┆T 0100 tast$:=KEY$ 01┆
0x31d80…31da0 31 30 20 20 20 49 46 20 74 61 73 74 24 3d 22 76 22 20 4f 52 20 74 61 73 74 24 3d 22 56 22 20 4f ┆10 IF tast$="v" OR tast$="V" O┆
0x31da0…31dc0 52 20 74 61 73 74 24 3d 43 48 52 24 28 38 29 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 ┆R tast$=CHR$(8) TH┆
0x31dc0…31de0 45 4e 20 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 30 2c 37 2c 2b 31 29 0d 0a 0d 0a b0 30 31 32 30 ┆EN EXEC løbelys(0,7,+1) 0120┆
0x31de0…31e00 20 20 20 49 46 20 74 61 73 74 24 3d 22 68 22 20 4f 52 20 74 61 73 74 24 3d 22 48 22 20 4f 52 20 ┆ IF tast$="h" OR tast$="H" OR ┆
0x31e00…31e20 (22, 1, 1) 6c 69 6e 6b 65 20 0a 70 7d 20 73 6b 69 66 74 2e 20 53 74 72 75 6b 74 75 72 65 6e 20 65 72 20 64 ┆linke på skift. Strukturen er d┆
0x31e20…31e40 65 6e 20 73 61 6d 6d 65 6e 20 73 6f 6d 20 69 20 65 74 20 73 69 6d 70 65 6c 74 20 0a 62 6c 69 6e ┆en sammen som i et simpelt blin┆
0x31e40…31e60 6b 2d 70 72 6f 67 72 61 6d 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 37 2f 30 ┆k-program 0010 // "blink-7/0┆
0x31e60…31e80 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 50 4f 52 54 22 2c ┆" 0020 OPEN FILE 1,"/17/PORT",┆
0x31e80…31ea0 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 30 34 30 20 20 20 ┆ WRITE 0030 REPEAT 0040 ┆
0x31ea0…31ec0 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 35 30 20 20 20 ┆PRINT FILE 1: CHR$(1); 0050 ┆
0x31ec0…31ee0 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 ┆EXEC pause(0.5) 0060 PRINT F┆
0x31ee0…31f00 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 38 29 3b 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 ┆ILE 1: CHR$(128); 0070 EXEC ┆
0x31f00…31f20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 30 38 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 ┆pause(0.5) 0080 UNTIL ORD(KEY$┆
0x31f20…31f40 29 3d 33 32 0d 0a b0 30 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 ┆)=32 0090 PRINT FILE 1: CHR$(0┆
0x31f40…31f60 29 3b 0d 0a b0 30 31 30 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 31 31 30 20 45 4e ┆); 0100 CLOSE FILE 1 0110 EN┆
0x31f60…31f80 44 20 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 6c 79 73 65 72 20 6b 75 6e 20 42 49 54 2d ┆D 0040 : Her lyser kun BIT-┆
0x31f80…31fa0 30 20 70 7b 72 65 6e 2e 0d 0a 0d 0a b0 30 30 36 30 f0 3a 20 48 65 72 20 6c 79 73 65 72 20 6b 75 ┆0 pæren. 0060 : Her lyser ku┆
0x31fa0…31fc0 6e 20 42 49 54 2d 37 20 70 7b 72 65 6e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆n BIT-7 pæren ---------------┆
0x31fc0…31fe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x31fe0…32000 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 42 4c 49 4e 4b 2d 41 2f 42 ┆------- PROBLEM "BLINK-A/B┆
0x32000…32020 (22, 1, 2) 61 6e 20 0a 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 64 69 72 65 6b 74 65 20 6d 65 64 20 64 65 74 ┆an programmeres direkte med det┆
0x32020…32040 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 64 65 72 20 73 7b 74 74 65 72 20 64 65 20 0a 65 6e 6b ┆ decimale tal der sætter de enk┆
0x32040…32060 65 6c 74 65 20 62 69 74 73 2c 20 68 76 6f 72 69 6d 6f 64 20 64 65 20 64 65 63 69 6d 61 6c 65 20 ┆elte bits, hvorimod de decimale ┆
0x32060…32080 74 61 6c 20 32 34 20 6f 67 20 35 20 73 6b 61 6c 20 0a 73 65 6e 64 65 73 20 66 6f 72 75 64 20 66 ┆tal 24 og 5 skal sendes forud f┆
0x32080…320a0 7b 72 65 6e 20 6c 79 73 65 72 2c 20 6f 67 20 b0 6b 75 6e f0 20 42 49 54 2d 41 20 70 7b 72 65 6e ┆æren lyser, og kun BIT-A pæren┆
0x320a0…320c0 2e 0d 0a 0d 0a b0 30 30 36 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 20 ┆. 0060 : Her sendes 24 og 5 ┆
0x320c0…320e0 6c 69 67 65 73 6f 6d 20 69 20 6c 69 6e 69 65 20 30 30 34 30 2c 20 6f 67 20 0a 19 80 81 80 64 65 ┆ligesom i linie 0040, og de┆
0x320e0…32100 72 65 66 74 65 72 20 73 65 6e 64 65 73 20 31 32 38 2c 20 64 65 72 20 73 7b 74 74 65 72 20 42 49 ┆refter sendes 128, der sætter BI┆
0x32100…32120 54 2d 42 2c 20 6f 67 20 6b 75 6e 20 42 49 54 2d 42 2c 20 0a 19 80 81 80 68 7c 6a 2e 0d 0a 0d 0a ┆T-B, og kun BIT-B, høj. ┆
0x32120…32140 b0 30 30 39 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 2c 20 73 61 6d 74 ┆ 0090 : Her sendes 24 og 5, samt┆
0x32140…32160 20 30 2e 20 4e 75 6c 6c 65 74 20 73 7b 74 74 65 72 20 62 7d 64 65 20 0a 19 80 81 80 42 49 54 2d ┆ 0. Nullet sætter både BIT-┆
0x32160…32180 41 20 6f 67 20 42 49 54 2d 42 20 6c 61 76 65 2c 20 73 7d 20 69 6e 67 65 6e 20 61 66 20 64 69 73 ┆A og BIT-B lave, så ingen af dis┆
0x32180…321a0 73 65 20 74 6f 20 70 7b 72 65 72 20 6c 79 73 65 72 2e 0d 0a 0d 0a 44 65 6e 20 65 6e 65 73 74 65 ┆se to pærer lyser. Den eneste┆
0x321a0…321c0 20 66 6f 72 73 6b 65 6c 20 70 7d 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 64 65 20 38 20 ┆ forskel på at programmere de 8 ┆
0x321c0…321e0 62 69 74 20 66 72 61 20 70 6f 72 74 20 0a 31 37 2c 20 6f 67 20 64 65 20 32 20 62 69 74 20 66 72 ┆bit fra port 17, og de 2 bit fr┆
0x321e0…32200 61 20 70 6f 72 74 20 31 30 2c 20 65 72 20 61 6c 74 73 7d 20 61 74 20 70 6f 72 74 20 31 37 20 6b ┆a port 10, er altså at port 17 k┆
0x32200…32220 (22, 1, 3) 22 3a 0d 0a 0d 0a 0d 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 73 7d 20 64 65 74 20 66 7c 72 73 74 65 ┆": Her kommer så det første┆
0x32220…32240 20 70 72 6f 67 72 61 6d 20 64 65 72 20 73 74 79 72 65 72 20 64 65 20 74 6f 20 0a 65 6b 73 74 72 ┆ program der styrer de to ekstr┆
0x32240…32260 61 20 62 69 74 2e 20 50 6f 72 74 20 31 37 2c 20 73 6f 6d 20 65 72 20 65 6e 20 70 61 70 61 6c 6c ┆a bit. Port 17, som er en papall┆
0x32260…32280 65 6c 70 6f 72 74 2c 20 62 65 73 74 7d 72 20 6b 75 6e 20 0a 61 66 20 38 20 62 69 74 2c 20 6f 67 ┆elport, består kun af 8 bit, og┆
0x32280…322a0 20 76 69 20 6b 61 6e 20 64 65 72 66 6f 72 20 69 6b 6b 65 20 62 72 75 67 65 20 64 65 6e 20 74 69 ┆ vi kan derfor ikke bruge den ti┆
0x322a0…322c0 6c 20 64 65 20 74 6f 20 0a 65 6b 73 74 72 61 20 62 69 74 2e 20 4e 75 20 73 6b 61 6c 20 b0 50 4f ┆l de to ekstra bit. Nu skal PO┆
0x322c0…322e0 52 54 20 31 30 f0 20 62 72 75 67 65 73 2e 20 44 65 74 20 65 72 20 67 61 6e 73 6b 65 20 76 69 73 ┆RT 10 bruges. Det er ganske vis┆
0x322e0…32300 74 20 0a 19 80 81 80 65 6e 20 73 65 72 69 65 6c 20 70 6f 72 74 2c 20 6c 69 67 65 73 6f 6d 20 64 ┆t en seriel port, ligesom d┆
0x32300…32320 65 6e 20 70 72 69 6e 74 65 72 65 6e 20 65 72 20 74 69 6c 73 6c 75 74 74 65 74 2c 20 0a 19 80 81 ┆en printeren er tilsluttet, ┆
0x32320…32340 80 6d 65 6e 20 64 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 74 6f 20 62 69 74 73 20 64 65 72 20 ┆ men den indeholder to bits der ┆
0x32340…32360 6e 6f 72 6d 61 6c 74 20 62 72 75 67 65 73 20 74 69 6c 20 0a 19 80 81 80 6b 6f 6e 74 72 6f 6c 2d ┆normalt bruges til kontrol-┆
0x32360…32380 66 6f 72 6d 7d 6c 2e 20 44 65 20 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 6c 69 67 65 ┆formål. De kan programmeres lige┆
0x32380…323a0 73 6f 6d 20 64 65 20 38 20 62 69 74 20 69 20 0a 19 80 81 80 70 6f 72 74 20 31 37 2e 20 44 65 74 ┆som de 8 bit i port 17. Det┆
0x323a0…323c0 20 66 6f 72 75 64 73 7b 74 74 65 72 20 62 6c 6f 74 2c 20 61 74 20 76 69 20 73 65 6e 64 65 72 20 ┆ forudsætter blot, at vi sender ┆
0x323c0…323e0 64 65 20 64 65 63 69 6d 61 6c 65 20 0a 19 80 81 80 74 61 6c 20 b0 32 34 f0 20 6f 67 20 b0 35 f0 ┆de decimale tal 24 og 5 ┆
0x323e0…32400 20 69 20 6e 7b 76 6e 74 65 20 72 7b 6b 6b 65 66 7c 6c 67 65 20 b0 75 6d 69 64 64 65 6c 62 61 72 ┆ i nævnte rækkefølge umiddelbar┆
0x32400…32420 (22, 1, 4) 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┆
0x32420…32440 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┆
0x32440…32460 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 ┆
0x32460…32480 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┆
0x32480…324a0 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┆
0x324a0…324c0 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 --------------┆
0x324c0…324e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x324e0…32500 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┆
0x32500…32520 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┆
0x32520…32540 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┆
0x32540…32560 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"┆
0x32560…32580 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┆
0x32580…325a0 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 ┆
0x325a0…325c0 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┆
0x325c0…325e0 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┆
0x325e0…32600 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┆
0x32600…32620 (22, 1, 5) 74 20 66 7c 72 f0 20 64 65 74 20 74 61 6c 20 0a 19 80 84 80 64 65 72 20 73 7b 74 74 65 72 20 42 ┆t før det tal der sætter B┆
0x32620…32640 49 54 2d 41 20 6f 67 2f 65 6c 6c 65 72 20 42 49 54 2d 42 20 68 7c 6a 65 2e 20 b0 32 34 f0 20 6f ┆IT-A og/eller BIT-B høje. 24 o┆
0x32640…32660 67 20 b0 35 f0 20 65 72 20 0a 19 80 86 80 6b 61 72 61 6b 74 65 72 65 72 20 64 65 72 20 70 72 6f ┆g 5 er karakterer der pro┆
0x32660…32680 67 72 61 6d 6d 65 72 65 72 20 70 6f 72 74 20 31 30 2c 20 b0 30 2f 32 2f 31 32 38 2f 31 33 30 f0 ┆grammerer port 10, 0/2/128/130 ┆
0x32680…326a0 20 65 72 20 0a 19 80 87 80 64 61 74 61 20 64 65 72 20 74 72 61 6e 73 6d 69 74 74 65 72 65 73 20 ┆ er data der transmitteres ┆
0x326a0…326c0 b0 75 64 f0 20 61 66 20 70 6f 72 74 20 31 30 21 0d 0a 0d 0a 44 65 72 20 20 65 72 20 64 69 73 73 ┆ ud af port 10! Der er diss┆
0x326c0…326e0 65 20 34 20 6d 75 6c 69 67 68 65 64 65 72 20 66 6f 72 20 70 72 6f 67 72 61 6d 6d 65 72 69 6e 67 ┆e 4 muligheder for programmering┆
0x326e0…32700 20 61 66 20 42 49 54 2d 41 20 0a 6f 67 20 42 49 54 2d 42 3a 0d 0a 0d 0a 0d 0a 44 45 43 49 4d 41 ┆ af BIT-A og BIT-B: DECIMA┆
0x32700…32720 4c 20 54 41 4c 3a 20 20 20 20 20 20 20 42 49 54 2d 41 3a 20 20 20 20 42 49 54 2d 42 3a 0d 0a 2d ┆L TAL: BIT-A: BIT-B: -┆
0x32720…32740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 20 20 20 20 2d 2d 2d 2d ┆----------- ------ ----┆
0x32740…32760 2d 2d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 4c 41 56 20 20 ┆-- 0 LAV ┆
0x32760…32780 20 20 20 20 20 4c 41 56 0d 0a 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 20 20 20 20 20 48 ┆ LAV 2 H┆
0x32780…327a0 5c 4a 20 20 20 20 20 20 20 4c 41 56 0d 0a 20 20 20 20 20 20 20 31 32 38 20 20 20 20 20 20 20 20 ┆ØJ LAV 128 ┆
0x327a0…327c0 20 20 20 4c 41 56 20 20 20 20 20 20 20 48 5c 4a 0d 0a 20 32 2b 31 32 38 3d 31 33 30 20 20 20 20 ┆ LAV HØJ 2+128=130 ┆
0x327c0…327e0 20 20 20 20 20 20 20 48 5c 4a 20 20 20 20 20 20 20 48 5c 4a 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆ HØJ HØJ --------┆
0x327e0…32800 2d 2d 2d 2d 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 ┆---- ------ ------ ┆
0x32800…32820 (22, 1, 6) 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┆
0x32820…32840 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┆
0x32840…32860 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"┆
0x32860…32880 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å ┆
0x32880…328a0 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 ┆
0x328a0…328c0 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┆
0x328c0…328e0 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 //┆
0x328e0…32900 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,┆
0x32900…32920 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┆
0x32920…32940 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 ┆
0x32940…32960 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┆
0x32960…32980 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┆
0x32980…329a0 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); //┆
0x329a0…329c0 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 ┆
0x329c0…329e0 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┆
0x329e0…32a00 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┆
0x32a00…32a20 (22, 1, 7) 48 0a 0d 0a 0d 0a 0d 0a 22 62 6c 69 6e 6b 2d 41 2f 42 22 20 66 7d 72 20 42 49 54 2d 41 20 6f 67 ┆H "blink-A/B" får BIT-A og┆
0x32a20…32a40 20 42 49 54 2d 42 20 70 7b 72 65 72 6e 65 20 74 69 6c 20 61 74 20 62 6c 69 6e 6b 65 20 70 7d 20 ┆ BIT-B pærerne til at blinke på ┆
0x32a40…32a60 0a 73 6b 69 66 74 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 41 2f 42 22 0d 0a ┆ skift: 0010 // "blink-A/B" ┆
0x32a60…32a80 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f b0 31 30 f0 2f 50 4f 52 54 22 2c 20 57 ┆0020 OPEN FILE 1,"/ 10 /PORT", W┆
0x32a80…32aa0 52 49 54 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 ┆RITE 0030 REPEAT 0040 PRIN┆
0x32aa0…32ac0 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 ┆T FILE 1: CHR$(24);CHR$(5);CHR$┆
0x32ac0…32ae0 28 32 29 3b f0 0d 0a 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 ┆(2); 0050 EXEC pause(0.5) 0┆
0x32ae0…32b00 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 32 34 29 3b 43 48 ┆060 PRINT FILE 1: CHR$(24);CH┆
0x32b00…32b20 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b f0 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 ┆R$(5);CHR$(128); 0070 EXEC p┆
0x32b20…32b40 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d ┆ause(0.5) 0080 UNTIL ORD(KEY$)=┆
0x32b40…32b60 33 32 0d 0a 30 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 32 34 29 ┆32 0090 PRINT FILE 1: CHR$(24)┆
0x32b60…32b80 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 f0 3b 0d 0a 30 31 30 30 20 43 4c 4f 53 45 20 46 ┆;CHR$(5);CHR$(0) ; 0100 CLOSE F┆
0x32b80…32ba0 49 4c 45 20 31 0d 0a 30 31 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 f0 3a 20 48 65 72 20 ┆ILE 1 0110 END 0020 : Her ┆
0x32ba0…32bc0 7d 62 6e 65 73 20 70 6f 72 74 20 b0 31 30 f0 20 66 6f 72 20 73 6b 72 69 76 6e 69 6e 67 20 28 57 ┆åbnes port 10 for skrivning (W┆
0x32bc0…32be0 52 49 54 45 29 2e 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 62 72 75 67 65 73 20 b0 32 34 ┆RITE). 0040 : Her bruges 24┆
0x32be0…32c00 f0 20 6f 67 20 b0 35 f0 20 74 69 6c 20 61 74 20 22 66 6f 72 74 7b 6c 6c 65 22 20 70 6f 72 74 20 ┆ og 5 til at "fortælle" port ┆
0x32c00…32c20 (22, 1, 8) 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┆
0x32c20…32c40 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$┆
0x32c40…32c60 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 ┆
0x32c60…32c80 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┆
0x32c80…32ca0 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┆
0x32ca0…32cc0 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.┆
0x32cc0…32ce0 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┆
0x32ce0…32d00 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┆
0x32d00…32d20 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┆
0x32d20…32d40 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┆
0x32d40…32d60 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 ┆
0x32d60…32d80 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┆
0x32d80…32da0 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 ┆
0x32da0…32dc0 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┆
0x32dc0…32de0 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 ┆
0x32de0…32e00 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┆
0x32e00…32e20 (22, 1, 9) 31 30 20 61 74 20 0a 19 80 83 80 76 69 20 67 65 72 6e 65 20 76 69 6c 20 70 72 6f 67 72 61 6d 6d ┆10 at vi gerne vil programm┆
0x32e20…32e40 65 72 65 20 42 49 54 2d 41 20 6f 67 20 42 49 54 2d 42 2c 20 6f 67 20 64 65 72 65 66 74 65 72 20 ┆ere BIT-A og BIT-B, og derefter ┆
0x32e40…32e60 0a 19 80 83 80 73 65 6e 64 65 72 20 76 69 20 74 61 6c 6c 65 74 20 b0 32 f0 2c 20 64 65 72 20 73 ┆ sender vi tallet 2 , der s┆
0x32e60…32e80 7b 74 74 65 72 20 42 49 54 2d 41 20 68 7c 6a 2c 20 73 7d 20 42 49 54 2d 41 20 0a 19 80 84 80 70 ┆ætter BIT-A høj, så BIT-A p┆
0x32e80…32ea0 7b 72 65 6e 20 6c 79 73 65 72 2c 20 6f 67 20 b0 6b 75 6e f0 20 42 49 54 2d 41 20 70 7b 72 65 6e ┆æren lyser, og kun BIT-A pæren┆
0x32ea0…32ec0 2e 0d 0a 0d 0a b0 30 30 36 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 20 ┆. 0060 : Her sendes 24 og 5 ┆
0x32ec0…32ee0 6c 69 67 65 73 6f 6d 20 69 20 6c 69 6e 69 65 20 30 30 34 30 2c 20 6f 67 20 0a 19 80 81 80 64 65 ┆ligesom i linie 0040, og de┆
0x32ee0…32f00 72 65 66 74 65 72 20 73 65 6e 64 65 73 20 31 32 38 2c 20 64 65 72 20 73 7b 74 74 65 72 20 42 49 ┆refter sendes 128, der sætter BI┆
0x32f00…32f20 54 2d 42 2c 20 6f 67 20 6b 75 6e 20 42 49 54 2d 42 2c 20 0a 19 80 81 80 68 7c 6a 2e 0d 0a 0d 0a ┆T-B, og kun BIT-B, høj. ┆
0x32f20…32f40 b0 30 30 39 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 2c 20 73 61 6d 74 ┆ 0090 : Her sendes 24 og 5, samt┆
0x32f40…32f60 20 30 2e 20 4e 75 6c 6c 65 74 20 73 7b 74 74 65 72 20 62 7d 64 65 20 0a 19 80 81 80 42 49 54 2d ┆ 0. Nullet sætter både BIT-┆
0x32f60…32f80 41 20 6f 67 20 42 49 54 2d 42 20 6c 61 76 65 2c 20 73 7d 20 69 6e 67 65 6e 20 61 66 20 64 69 73 ┆A og BIT-B lave, så ingen af dis┆
0x32f80…32fa0 73 65 20 74 6f 20 70 7b 72 65 72 20 6c 79 73 65 72 2e 0d 0a 0d 0a 44 65 6e 20 65 6e 65 73 74 65 ┆se to pærer lyser. Den eneste┆
0x32fa0…32fc0 20 66 6f 72 73 6b 65 6c 20 70 7d 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 64 65 20 38 20 ┆ forskel på at programmere de 8 ┆
0x32fc0…32fe0 62 69 74 20 66 72 61 20 70 6f 72 74 20 0a 31 37 2c 20 6f 67 20 64 65 20 32 20 62 69 74 20 66 72 ┆bit fra port 17, og de 2 bit fr┆
0x32fe0…33000 61 20 70 6f 72 74 20 31 30 2c 20 65 72 20 61 6c 74 73 7d 20 61 74 20 70 6f 72 74 20 31 37 20 6b ┆a port 10, er altså at port 17 k┆
0x33000…33020 (23, 0, 1) 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. --------------┆
0x33020…33040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33040…33060 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┆
0x33060…33080 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┆
0x33080…330a0 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 ┆
0x330a0…330c0 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┆
0x330c0…330e0 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$(┆
0x330e0…33100 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┆
0x33100…33120 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┆
0x33120…33140 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┆
0x33140…33160 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 ┆
0x33160…33180 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);┆
0x33180…331a0 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┆
0x331a0…331c0 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 ┆
0x331c0…331e0 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┆
0x331e0…33200 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Ø┆
0x33200…33220 (23, 0, 2) 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┆
0x33220…33240 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┆
0x33240…33260 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┆
0x33260…33280 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 ┆
0x33280…332a0 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 ----------------┆
0x332a0…332c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x332c0…332e0 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┆
0x332e0…33300 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┆
0x33300…33320 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 ┆
0x33320…33340 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 ┆
0x33340…33360 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┆
0x33360…33380 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┆
0x33380…333a0 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); //┆
0x333a0…333c0 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┆
0x333c0…333e0 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$┆
0x333e0…33400 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┆
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…3f420 (28, 0, 9) 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) ┆
0x3f420…3f440 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(┆
0x3f440…3f460 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 ┆
0x3f460…3f480 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å┆
0x3f480…3f4a0 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.┆
0x3f4a0…3f4c0 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 ┆
0x3f4c0…3f4e0 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. -----┆
0x3f4e0…3f500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3f500…3f520 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┆
0x3f520…3f540 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┆
0x3f540…3f560 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┆
0x3f560…3f580 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┆
0x3f580…3f5a0 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 ┆
0x3f5a0…3f5c0 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); // ┆
0x3f5c0…3f5e0 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) ┆
0x3f5e0…3f600 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); ┆
0x3f600…3f620 (28, 1, 1) 2d 2d 2d 2d 2d 2d 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 ┆------------------------------ ┆
0x3f620…3f640 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┆
0x3f640…3f660 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: ┆
0x3f660…3f680 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┆
0x3f680…3f6a0 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┆
0x3f6a0…3f6c0 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┆
0x3f6c0…3f6e0 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 ┆
0x3f6e0…3f700 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┆
0x3f700…3f720 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┆
0x3f720…3f740 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┆
0x3f740…3f760 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 ┆
0x3f760…3f780 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┆
0x3f780…3f7a0 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 ┆
0x3f7a0…3f7c0 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 ┆
0x3f7c0…3f7e0 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: ┆
0x3f7e0…3f800 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:┆
0x3f800…3f820 (28, 1, 2) 20 73 6b 61 6c 20 6c 79 73 6b 75 72 76 65 6e 65 20 70 7d 20 6c 79 73 70 61 6e 65 6c 65 74 20 62 ┆ skal lyskurvene på lyspanelet b┆
0x3f820…3f840 72 75 67 65 73 2c 20 6f 67 20 6f 6d 73 6b 69 66 74 65 72 65 6e 20 0a 73 6b 61 6c 20 64 65 72 66 ┆ruges, og omskifteren skal derf┆
0x3f840…3f860 6f 72 20 73 74 7d 20 70 7d 20 22 54 52 41 46 49 4b 22 2e 0d 0a 0d 0a 49 20 22 74 72 61 66 69 6b ┆or stå på "TRAFIK". I "trafik┆
0x3f860…3f880 2d 61 31 22 20 6f 67 20 22 74 72 61 66 69 6b 2d 61 32 22 20 65 72 20 64 65 74 20 b0 6b 75 6e f0 ┆-a1" og "trafik-a2" er det kun ┆
0x3f880…3f8a0 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 20 45 4e 44 20 ┆); 0040 CLOSE FILE 1 0050 END ┆
0x3f8a0…3f8c0 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 ┆ ----------------------------┆
0x3f8c0…3f8e0 2d 2d 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 78 0a ┆-------------------------- x ┆
0x3f8e0…3f900 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 54 52 41 46 49 4b 22 3a 0d 0a 0d 0a 0d 0a 4e 75 ┆ PROBLEM "TRAFIK": Nu┆
0x3f900…3f920 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 0d 0a 30 30 31 ┆CLOSE FILE 1 0050 END 001┆
0x3f920…3f940 30 20 2f 2f 20 22 73 6c 75 6b 31 30 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c ┆0 // "sluk10" 0020 OPEN FILE 1,┆
0x3f940…3f960 22 2f 31 30 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 20 46 ┆"/10/PORT", WRITE 0030 PRINT F┆
0x3f960…3f980 49 4c 45 20 31 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 b0 30 f0 ┆ILE 1: CHR$(24);CHR$(5);CHR$( 0 ┆
0x3f980…3f9a0 6f 20 0a 19 80 86 80 6c 61 6d 70 65 72 2e 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 74 7b 6e 64 31 ┆o lamper. 0010 // "tænd1┆
0x3f9a0…3f9c0 30 22 0d 0a 30 30 32 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 ┆0" 0020 OPEN FILE 1,"/10/PORT",┆
0x3f9c0…3f9e0 20 57 52 49 54 45 20 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 ┆ WRITE 0030 PRINT FILE 1: CHR$┆
0x3f9e0…3fa00 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 b0 31 33 30 f0 29 3b 0d 0a 30 30 34 30 20 ┆(24);CHR$(5);CHR$( 130 ); 0040 ┆
0x3fa00…3fa20 (28, 1, 3) 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┆
0x3fa20…3fa40 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┆
0x3fa40…3fa60 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┆
0x3fa60…3fa80 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┆
0x3fa80…3faa0 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┆
0x3faa0…3fac0 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┆
0x3fac0…3fae0 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┆
0x3fae0…3fb00 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┆
0x3fb00…3fb20 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$)┆
0x3fb20…3fb40 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┆
0x3fb40…3fb60 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 ┆
0x3fb60…3fb80 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┆
0x3fb80…3fba0 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┆
0x3fba0…3fbc0 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┆
0x3fbc0…3fbe0 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┆
0x3fbe0…3fc00 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┆
0x3fc00…3fc20 (28, 1, 4) 74 74 65 6e 2e 20 53 7d 20 6b 61 6e 20 0a 19 80 84 80 6d 61 6e 20 62 6c 6f 74 20 73 6b 72 69 76 ┆tten. Så kan man blot skriv┆
0x3fc20…3fc40 65 20 6b 6f 6d 61 6e 64 6f 65 6e 20 b0 72 75 6e 20 22 74 7b 6e 64 31 30 22 f0 20 65 6c 6c 65 72 ┆e komandoen run "tænd10" eller┆
0x3fc40…3fc60 20 b0 22 72 75 6e 20 0a 19 80 86 80 22 73 6c 75 6b 31 30 22 f0 20 68 76 69 73 20 6d 61 6e 20 7c ┆ "run "sluk10" hvis man ø┆
0x3fc60…3fc80 6e 73 6b 65 72 20 61 74 20 74 7b 6e 64 65 20 65 6c 6c 65 72 20 73 6c 75 6b 6b 65 20 64 65 20 74 ┆nsker at tænde eller slukke de t┆
0x3fc80…3fca0 67 72 61 6d 6d 65 72 20 64 65 72 20 68 68 76 2e 20 0a 19 80 82 80 74 7b 6e 64 65 72 20 6f 67 20 ┆grammer der hhv. tænder og ┆
0x3fca0…3fcc0 73 6c 75 6b 6b 65 72 20 42 49 54 2d 41 20 b0 6f 67 f0 20 42 49 54 2d 42 2e 20 44 65 20 72 65 66 ┆slukker BIT-A og BIT-B. De ref┆
0x3fcc0…3fce0 65 72 65 72 65 72 20 b0 69 6b 6b 65 f0 20 74 69 6c 20 0a 19 80 84 80 65 6c 65 76 74 65 6b 73 74 ┆ererer ikke til elevtekst┆
0x3fce0…3fd00 65 6e 2c 20 6d 65 6e 20 65 72 20 72 61 72 65 20 61 74 20 68 61 76 65 20 70 7d 20 64 69 73 6b 65 ┆en, men er rare at have på diske┆
0x3fd00…3fd20 20 6b 61 6c 64 65 72 20 66 6f 72 20 42 49 54 2d 41 20 6f 67 20 42 49 54 2d 42 2e 0d 0a 0d 0a 2d ┆ kalder for BIT-A og BIT-B. -┆
0x3fd20…3fd40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3fd40…3fd60 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 0d 0a b0 22 74 7b 6e ┆--------------------- "tæn┆
0x3fd60…3fd80 64 31 30 22 f0 20 6f 67 20 b0 73 6c 75 6b 31 30 22 f0 20 65 72 20 74 6f 20 73 6d 7d 20 70 72 6f ┆d10" og sluk10" er to små pro┆
0x3fd80…3fda0 72 20 64 65 20 0a 65 6e 6b 65 6c 74 65 20 62 69 74 73 2c 20 68 76 6f 72 69 6d 6f 64 20 64 65 20 ┆r de enkelte bits, hvorimod de ┆
0x3fda0…3fdc0 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 32 34 20 6f 67 20 35 20 73 6b 61 6c 20 0a 73 65 6e 64 65 ┆decimale tal 24 og 5 skal sende┆
0x3fdc0…3fde0 73 20 66 6f 72 75 64 20 66 6f 72 20 b0 68 76 65 72 20 65 6e 65 73 74 65 f0 20 7b 6e 64 72 69 6e ┆s forud for hver eneste ændrin┆
0x3fde0…3fe00 67 20 61 66 20 73 74 61 74 75 73 20 70 7d 20 64 65 20 74 6f 20 0a 19 80 81 80 62 69 74 20 76 69 ┆g af status på de to bit vi┆
0x3fe00…3fe20 (28, 1, 5) 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 !┆
0x3fe20…3fe40 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 ┆ ----------------------------┆
0x3fe40…3fe60 2d 2d 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 ┆-------------------------- ┆
0x3fe60…3fe80 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┆
0x3fe80…3fea0 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"┆
0x3fea0…3fec0 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┆
0x3fec0…3fee0 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┆
0x3fee0…3ff00 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┆
0x3ff00…3ff20 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 ┆
0x3ff20…3ff40 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┆
0x3ff40…3ff60 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┆
0x3ff60…3ff80 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┆
0x3ff80…3ffa0 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┆
0x3ffa0…3ffc0 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┆
0x3ffc0…3ffe0 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┆
0x3ffe0…40000 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 ┆
0x40000…40020 (28, 1, 6) 67 65 72 29 2e 0d 0a 0d 0a b0 30 32 30 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 6d 65 6c ┆ger). 0200 : Her udføres mel┆
0x40020…40040 6c 65 6d 72 75 6d 6d 6d 65 6e 65 20 6d 65 6c 6c 65 6d 20 64 65 20 65 6e 6b 65 6c 74 65 20 0a 19 ┆lemrummmene mellem de enkelte ┆
0x40040…40060 80 81 80 62 6f 67 73 74 61 76 65 72 2e 0d 0a 0d 0a 53 6f 6d 20 64 65 74 20 6b 61 6e 20 73 65 73 ┆ bogstaver. Som det kan ses┆
0x40060…40080 2c 20 6b 72 7b 76 65 72 20 64 65 6e 6e 65 20 6f 70 67 61 76 65 2c 20 61 74 20 65 6c 65 76 65 72 ┆, kræver denne opgave, at elever┆
0x40080…400a0 6e 65 20 65 72 20 0a 66 6f 72 74 72 6f 6c 69 67 65 20 6d 65 64 20 76 61 72 69 61 62 6c 65 20 6d ┆ne er fortrolige med variable m┆
0x400a0…400c0 65 64 20 69 6e 64 65 78 2c 20 73 61 6d 74 20 64 65 6c 2d 73 74 72 65 6e 67 65 2e 20 53 7d 20 0a ┆ed index, samt del-strenge. Så ┆
0x400c0…400e0 6f 70 67 61 76 65 6e 20 65 72 20 67 6f 64 20 68 76 69 73 20 64 65 72 20 65 72 20 65 74 20 70 61 ┆opgaven er god hvis der er et pa┆
0x400e0…40100 72 20 73 6b 72 61 70 70 65 20 65 6c 65 76 65 72 20 64 65 72 20 0a 6d 61 6e 67 6c 65 72 20 6c 69 ┆r skrappe elever der mangler li┆
0x40100…40120 64 74 20 75 64 66 6f 72 64 72 69 6e 67 2e 0d 0a 0c 84 80 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c ┆dt udfordring. PROBL┆
0x40120…40140 45 4d 20 22 4c 5c 42 45 4c 59 53 22 3a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 61 31 22 20 65 72 ┆EM "LØBELYS": I "løb-a1" er┆
0x40140…40160 20 61 6e 76 65 6e 64 74 20 22 47 5c 47 2d 4f 47 2d 47 4f 4b 4b 45 2d 4d 45 54 4f 44 45 4e 22 2c ┆ anvendt "GØG-OG-GOKKE-METODEN",┆
0x40160…40180 20 69 64 65 74 20 0a 68 76 65 72 74 20 67 65 6e 6e 65 6d 6c 7c 62 20 62 65 73 74 7d 72 20 61 74 ┆ idet hvert gennemløb består at┆
0x40180…401a0 20 38 20 22 50 52 49 4e 54 20 46 49 4c 45 22 2d 73 7b 74 6e 69 6e 67 65 72 2e 20 0a 4c 79 73 65 ┆ 8 "PRINT FILE"-sætninger. Lyse┆
0x401a0…401c0 74 20 6c 7c 62 65 72 20 6b 75 6e 20 b0 65 6e f0 20 67 61 6e 67 20 66 72 61 20 76 65 6e 73 74 72 ┆t løber kun en gang fra venstr┆
0x401c0…401e0 65 20 6d 6f 64 20 68 7c 6a 72 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 61 31 ┆e mod højre: 0010 // "løb-a1┆
0x401e0…40200 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 50 4f 52 54 22 2c ┆" 0020 OPEN FILE 1,"/17/PORT",┆
0x40200…40220 (28, 1, 7) 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┆
0x40220…40240 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┆
0x40240…40260 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┆
0x40260…40280 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 ┆
0x40280…402a0 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┆
0x402a0…402c0 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┆
0x402c0…402e0 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 ┆
0x402e0…40300 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 ┆
0x40300…40320 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 ┆
0x40320…40340 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┆
0x40340…40360 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) ┆
0x40360…40380 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 --------┆
0x40380…403a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x403a0…403c0 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┆
0x403c0…403e0 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 //┆
0x403e0…40400 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 ┆
0x40400…40420 (28, 1, 8) 20 57 52 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 ┆ WRITE 0030 PRINT FILE 1: CHR┆
0x40420…40440 24 28 31 29 3b 0d 0a b0 30 30 34 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 ┆$(1); 0040 EXEC pause(0.3) 0┆
0x40440…40460 30 35 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 29 3b 0d 0a b0 30 30 36 ┆050 PRINT FILE 1: CHR$(2); 006┆
0x40460…40480 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 30 37 30 20 50 52 49 4e 54 20 46 ┆0 EXEC pause(0.3) 0070 PRINT F┆
0x40480…404a0 49 4c 45 20 31 3a 20 43 48 52 24 28 34 29 3b 0d 0a b0 30 30 38 30 20 45 58 45 43 20 70 61 75 73 ┆ILE 1: CHR$(4); 0080 EXEC paus┆
0x404a0…404c0 65 28 30 2e 33 29 0d 0a b0 30 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆e(0.3) 0090 PRINT FILE 1: CHR$┆
0x404c0…404e0 28 38 29 3b 0d 0a b0 30 31 30 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 ┆(8); 0100 EXEC pause(0.3) 01┆
0x404e0…40500 31 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 36 29 3b 0d 0a b0 30 31 32 ┆10 PRINT FILE 1: CHR$(16); 012┆
0x40500…40520 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 33 30 20 50 52 49 4e 54 20 46 ┆0 EXEC pause(0.3) 0130 PRINT F┆
0x40520…40540 49 4c 45 20 31 3a 20 43 48 52 24 28 33 32 29 3b 0d 0a b0 30 31 34 30 20 45 58 45 43 20 70 61 75 ┆ILE 1: CHR$(32); 0140 EXEC pau┆
0x40540…40560 73 65 28 30 2e 33 29 0d 0a b0 30 31 35 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆se(0.3) 0150 PRINT FILE 1: CHR┆
0x40560…40580 24 28 36 34 29 3b 0d 0a b0 30 31 36 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 ┆$(64); 0160 EXEC pause(0.3) ┆
0x40580…405a0 30 31 37 30 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 0d 0a b0 ┆0170 PRINT FILE 1: CHR$(128); ┆
0x405a0…405c0 30 31 38 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 39 30 20 43 4c 4f 53 ┆0180 EXEC pause(0.3) 0190 CLOS┆
0x405c0…405e0 45 20 46 49 4c 45 20 31 0d 0a b0 30 32 30 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆E FILE 1 0200 END --------┆
0x405e0…40600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40600…40620 (28, 1, 9) 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 ┆
0x40620…40640 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┆
0x40640…40660 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) ┆
0x40660…40680 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 ┆
0x40680…406a0 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æ┆
0x406a0…406c0 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)┆
0x406c0…406e0 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┆
0x406e0…40700 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┆
0x40700…40720 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┆
0x40720…40740 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 ----┆
0x40740…40760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40760…40780 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┆
0x40780…407a0 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); //┆
0x407a0…407c0 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┆
0x407c0…407e0 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$┆
0x407e0…40800 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┆
0x40800…40820 (29, 0, 1) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 50 72 6f 62 6c 65 6d 65 74 20 62 7c 72 20 ┆-------------- Problemet bør ┆
0x40820…40840 6c 7c 73 65 73 20 70 7d 20 65 6e 20 6d 65 72 65 20 65 6c 65 67 61 6e 74 20 6d 7d 64 65 2c 20 6e ┆løses på en mere elegant måde, n┆
0x40840…40860 65 6d 6c 69 67 20 6d 65 64 20 65 6e 20 0a 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 2c 20 ┆emlig med en "FOR-NEXT"-løkke, ┆
0x40860…40880 68 76 6f 72 20 65 74 20 67 65 6e 6e 65 6d 6c 7c 62 20 6b 61 6e 20 75 64 74 72 79 6b 6b 65 73 20 ┆hvor et gennemløb kan udtrykkes ┆
0x40880…408a0 0a 73 69 6d 70 65 6c 74 20 72 65 6e 74 20 6d 61 74 65 6d 61 74 69 73 6b 3a 20 32 20 6f 70 6c 7c ┆ simpelt rent matematisk: 2 oplø┆
0x408a0…408c0 66 74 65 74 20 74 69 6c 20 65 6e 20 70 6f 74 65 6e 73 20 0a 73 76 61 72 65 6e 64 65 20 74 69 6c ┆ftet til en potens svarende til┆
0x408c0…408e0 20 62 69 74 2d 6e 75 6d 6d 65 72 65 74 2c 20 61 6c 74 73 7d 20 20 32 20 69 20 6e 75 6c 74 65 20 ┆ bit-nummeret, altså 2 i nulte ┆
0x408e0…40900 28 3d 31 29 2c 20 32 20 69 20 0a 66 7c 72 73 74 65 20 28 3d 32 29 2c 20 32 20 69 20 61 6e 64 65 ┆(=1), 2 i første (=2), 2 i ande┆
0x40900…40920 6e 20 28 3d 34 29 2c 20 32 20 69 20 74 72 65 64 69 65 20 28 3d 38 29 2c 20 2e 2e 2e 20 0a 6f 2e ┆n (=4), 2 i tredie (=8), ... o.┆
0x40920…40940 73 2e 76 2e 2e 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 61 32 22 20 65 72 20 64 65 74 20 67 6a 6f 72 74 ┆s.v.. I "løb-a2" er det gjort┆
0x40940…40960 20 73 7d 64 61 6e 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 61 32 22 0d 0a b0 30 ┆ sådan: 0010 // "løb-a2" 0┆
0x40960…40980 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┆
0x40980…409a0 45 20 0d 0a b0 30 30 33 30 20 46 4f 52 20 6e 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a b0 30 30 34 ┆E 0030 FOR n:=0 TO 7 DO 004┆
0x409a0…409c0 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 6e 29 3b 0d 0a b0 30 ┆0 PRINT FILE 1: CHR$(2^n); 0┆
0x409c0…409e0 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 30 36 30 20 4e 45 58 ┆050 EXEC pause(0.3) 0060 NEX┆
0x409e0…40a00 54 20 6e 0d 0a b0 30 30 37 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 30 38 30 20 45 ┆T n 0070 CLOSE FILE 1 0080 E┆
0x40a00…40a20 (29, 0, 2) 7d 20 42 49 54 2d 30 20 70 7b 72 65 6e 20 69 20 68 76 65 72 20 67 65 6e 6e 65 6d 6c 7c 62 3a 0d ┆å BIT-0 pæren i hver gennemløb: ┆
0x40a20…40a40 0a 0d 0a 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 ┆ 0080 REPEAT 0090 PRINT F┆
0x40a40…40a60 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 ┆ILE 1: CHR$(0); 0100 EXEC pa┆
0x40a60…40a80 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 30 31 31 30 20 20 20 64 65 63 74 61 6c 3a 3d ┆use(lysperiode) 0110 dectal:=┆
0x40a80…40aa0 30 0d 0a 30 31 32 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a 30 31 ┆0 0120 FOR bit:=0 TO 7 DO 01┆
0x40aa0…40ac0 33 30 20 20 20 20 20 64 65 63 74 61 6c 3a 3d 64 65 63 74 61 6c 2b 32 5e 62 69 74 0d 0a 30 31 34 ┆30 dectal:=dectal+2^bit 014┆
0x40ac0…40ae0 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 64 65 63 74 61 6c 29 ┆0 PRINT FILE 1: CHR$(dectal)┆
0x40ae0…40b00 3b 0d 0a 30 31 35 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 ┆; 0150 EXEC pause(lysperiod┆
0x40b00…40b20 65 29 0d 0a 30 31 36 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 37 30 20 55 4e 54 49 4c 20 ┆e) 0160 NEXT bit 0170 UNTIL ┆
0x40b20…40b40 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 ----------------┆
0x40b40…40b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40b60…40b80 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 65 33 22 20 76 69 72 6b 65 72 20 73 6f 6d 20 22 6c ┆------ "løb-e3" virker som "l┆
0x40b80…40ba0 7c 62 2d 65 32 22 2e 20 48 65 72 20 65 72 20 64 65 6e 20 73 74 7c 72 73 74 65 20 32 2d 0a 74 61 ┆øb-e2". Her er den største 2- ta┆
0x40ba0…40bc0 6c 73 70 6f 74 65 6e 73 20 62 6c 6f 74 20 38 20 69 20 73 74 65 64 65 74 20 66 6f 72 20 37 2e 20 ┆lspotens blot 8 i stedet for 7. ┆
0x40bc0…40be0 32 20 6f 70 6c 7c 66 74 65 74 20 74 69 6c 20 38 20 65 72 20 0a 32 35 36 2c 20 68 76 69 6c 6b 65 ┆2 opløftet til 8 er 256, hvilke┆
0x40be0…40c00 74 20 73 76 61 72 65 72 20 74 69 6c 20 31 30 30 30 30 30 30 30 30 20 62 69 6e 7b 72 74 2e 20 44 ┆t svarer til 100000000 binært. D┆
0x40c00…40c20 (29, 0, 3) 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 2d 2d ┆ND -------------------------┆
0x40c20…40c40 2d 2d 2d 2d 2d 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 ┆----------------------------- ┆
0x40c40…40c60 0a 49 20 22 6c 7c 62 2d 62 22 20 65 72 20 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 6e 20 ┆ I "løb-b" er "FOR-NEXT"-løkken ┆
0x40c60…40c80 6c 61 67 74 20 69 6e 64 20 69 20 65 6e 20 22 52 45 50 45 41 54 2d 0a 55 4e 54 49 4c 22 2d 6c 7c ┆lagt ind i en "REPEAT- UNTIL"-lø┆
0x40c80…40ca0 6b 6b 65 2c 20 66 6f 72 20 61 74 20 66 7d 20 67 65 6e 6e 65 6d 6c 7c 62 65 74 20 67 65 6e 74 61 ┆kke, for at få gennemløbet genta┆
0x40ca0…40cc0 67 65 74 20 69 6e 64 74 69 6c 20 0a 64 65 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 6d 65 6c 6c 65 ┆get indtil der trykkes på melle┆
0x40cc0…40ce0 6d 72 75 6d 2d 74 61 73 74 65 6e 3a 0d 0a 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 30 ┆mrum-tasten: 0040 REPEAT 0┆
0x40ce0…40d00 30 35 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a 30 30 36 30 20 20 ┆050 FOR bit:=0 TO 7 DO 0060 ┆
0x40d00…40d20 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 0d 0a 30 ┆ PRINT FILE 1: CHR$(2^bit); 0┆
0x40d20…40d40 30 37 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a 30 30 38 30 20 20 20 ┆070 EXEC pause(0.3) 0080 ┆
0x40d40…40d60 4e 45 58 54 20 62 69 74 0d 0a b0 30 30 39 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d ┆NEXT bit 0090 UNTIL ORD(KEY$)=┆
0x40d60…40d80 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 2d 2d ┆32 --------------------------┆
0x40d80…40da0 2d 2d 2d 2d 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 ┆---------------------------- ┆
0x40da0…40dc0 88 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 63 22 20 65 72 20 74 69 6c 66 7c 6a 65 74 20 6d 75 ┆ I "løb-c" er tilføjet mu┆
0x40dc0…40de0 6c 69 67 68 65 64 65 6e 20 66 6f 72 20 61 74 20 76 61 72 69 65 72 65 20 0a 62 6c 69 6e 6b 66 72 ┆ligheden for at variere blinkfr┆
0x40de0…40e00 65 6b 76 65 6e 73 65 6e 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 63 22 0d 0a 30 30 ┆ekvensen: 0010 // "løb-c" 00┆
0x40e00…40e20 (29, 0, 4) 65 72 20 73 6b 61 6c 20 0a 61 6c 74 73 7d 20 39 20 62 69 74 20 74 69 6c 2c 20 68 76 6f 72 20 6c ┆er skal altså 9 bit til, hvor l┆
0x40e20…40e40 79 73 70 61 6e 65 6c 65 74 20 6b 75 6e 20 76 69 73 65 72 20 64 65 20 38 20 0a 6c 61 76 65 73 74 ┆yspanelet kun viser de 8 lavest┆
0x40e40…40e60 65 20 62 69 74 2e 20 49 67 65 6e 20 6c 61 6d 70 65 72 20 6c 79 73 65 72 20 64 65 72 66 6f 72 20 ┆e bit. Igen lamper lyser derfor ┆
0x40e60…40e80 68 76 69 73 20 32 20 6f 70 6c 7c 66 74 65 74 20 0a 74 69 6c 20 38 2e 20 70 6f 74 65 6e 73 20 28 ┆hvis 2 opløftet til 8. potens (┆
0x40e80…40ea0 20 3d 32 35 36 20 29 20 20 73 65 6e 64 65 73 20 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d ┆ =256 ) sendes til lyspanelet: ┆
0x40ea0…40ec0 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 38 20 44 4f 0d 0a b0 ┆ 0090 FOR bit:=0 TO 8 DO ┆
0x40ec0…40ee0 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 69 ┆0100 PRINT FILE 1: CHR$(2^bi┆
0x40ee0…40f00 74 2d 31 29 3b 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 ┆t-1); 0110 EXEC pause(lysp┆
0x40f00…40f20 65 72 69 6f 64 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 ┆eriode) 0120 NEXT bit ---┆
0x40f20…40f40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40f40…40f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 76 69 73 20 6d 61 6e 20 ┆------------------- Hvis man ┆
0x40f60…40f80 7c 6e 73 6b 65 72 20 61 74 20 6c 79 73 65 74 20 73 6b 61 6c 20 6c 7c 62 65 20 66 72 61 20 68 7c ┆ønsker at lyset skal løbe fra hø┆
0x40f80…40fa0 6a 72 65 20 6d 6f 64 20 0a 76 65 6e 73 74 72 65 20 65 72 20 22 6c 7c 62 2d 65 34 22 20 6d 7d 73 ┆jre mod venstre er "løb-e4" mås┆
0x40fa0…40fc0 6b 65 20 65 6e 20 6e 7b 72 6c 69 67 67 65 6e 64 65 20 6c 7c 73 6e 69 6e 67 20 2d 20 0a 6d 65 6e ┆ke en nærliggende løsning - men┆
0x40fc0…40fe0 20 64 65 6e 20 64 75 65 72 20 b0 49 4b 4b 45 f0 20 21 21 2e 20 48 65 72 20 65 72 20 64 65 74 20 ┆ den duer IKKE !!. Her er det ┆
0x40fe0…41000 6e 65 6d 6c 69 67 20 65 6e 20 73 6c 75 6b 6b 65 74 20 70 7b 72 65 20 0a 19 80 81 80 64 65 72 20 ┆nemlig en slukket pære der ┆
0x41000…41020 (29, 0, 5) 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 45 ┆20 OPEN FILE 1,"/17/PORT", WRITE┆
0x41020…41040 20 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 20 22 53 4b 52 49 56 20 4c 59 53 50 45 52 49 4f 44 45 ┆ 0030 PRINT "SKRIV LYSPERIODE┆
0x41040…41060 4e 22 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 22 49 20 53 45 4b 55 4e 44 45 52 22 0d 0a b0 30 ┆N" 0040 PRINT "I SEKUNDER" 0┆
0x41060…41080 30 35 30 20 49 4e 50 55 54 20 22 46 4f 52 20 48 56 45 52 20 50 5b 52 45 3a 20 22 3a 20 6c 79 73 ┆050 INPUT "FOR HVER PÆRE: ": lys┆
0x41080…410a0 70 65 72 69 6f 64 65 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 0d 0a 30 30 37 30 20 50 52 49 4e 54 ┆periode 0060 PRINT 0070 PRINT┆
0x410a0…410c0 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┆
0x410c0…410e0 20 21 21 22 0d 0a 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a 30 30 39 30 20 20 20 46 4f 52 20 62 ┆ !!" 0080 REPEAT 0090 FOR b┆
0x410e0…41100 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 ┆it:=0 TO 7 DO 0100 PRINT FI┆
0x41100…41120 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a 30 31 31 30 20 20 20 20 20 45 58 45 ┆LE 1: CHR$(2^bit); 0110 EXE┆
0x41120…41140 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 32 30 20 20 20 4e 45 ┆C pause( lysperiode ) 0120 NE┆
0x41140…41160 58 54 20 62 69 74 0d 0a 30 31 33 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d ┆XT bit 0130 UNTIL ORD(KEY$)=32 ┆
0x41160…41180 0a 30 31 34 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 30 31 ┆ 0140 PRINT FILE 1: CHR$(0); 01┆
0x41180…411a0 35 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 36 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d ┆50 CLOSE FILE 1 0160 END --┆
0x411a0…411c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x411c0…411e0 2d 2d 2d 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 64 ┆-------------------- I "løb-d┆
0x411e0…41200 22 20 67 65 6e 6e 65 6d 6c 7c 62 65 73 20 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 6e 20 ┆" gennemløbes "FOR-NEXT"-løkken ┆
0x41200…41220 (29, 0, 6) 22 6c 7c 62 65 72 22 2c 20 6f 67 20 69 6b 6b 65 20 65 6e 20 74 7b 6e 64 74 3a 0d 0a 0d 0a b0 30 ┆"løber", og ikke en tændt: 0┆
0x41220…41240 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 44 4f ┆090 FOR bit:=8 TO 0 STEP -1 DO┆
0x41240…41260 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 28 32 ┆ 0100 PRINT FILE 1: CHR$(2┆
0x41260…41280 5e 62 69 74 2d 31 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c ┆^bit-1); 0110 EXEC pause(l┆
0x41280…412a0 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 69 74 0d 0a 0d 0a ┆ysperiode) 0120 NEXT bit ┆
0x412a0…412c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x412c0…412e0 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 6c 7c 62 2d 65 ┆---------------------- "løb-e┆
0x412e0…41300 35 22 20 65 72 20 65 6e 20 6b 6f 72 72 65 6b 74 20 6c 7c 73 6e 69 6e 67 2c 20 68 76 69 73 20 6c ┆5" er en korrekt løsning, hvis l┆
0x41300…41320 79 73 65 74 20 73 6b 61 6c 20 6c 7c 62 65 20 0a 66 72 61 20 68 7c 6a 72 65 20 6d 6f 64 20 76 65 ┆yset skal løbe fra højre mod ve┆
0x41320…41340 6e 73 74 72 65 20 73 61 6d 74 69 64 69 67 20 6d 65 64 20 61 74 20 6c 79 73 65 6e 65 20 73 6b 61 ┆nstre samtidig med at lysene ska┆
0x41340…41360 6c 20 0a 22 6f 70 73 75 6d 6d 65 72 65 73 22 3a 2e 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 ┆l "opsummeres":. 0090 FOR┆
0x41360…41380 20 62 69 74 3a 3d 38 20 54 4f 20 30 20 53 54 45 50 20 2d 31 20 44 4f 0d 0a b0 30 31 30 30 20 20 ┆ bit:=8 TO 0 STEP -1 DO 0100 ┆
0x41380…413a0 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 2d 32 5e 62 69 74 2b ┆ PRINT FILE 1: CHR$(255-2^bit+┆
0x413a0…413c0 31 29 3b 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 ┆1); 0110 EXEC pause(lysper┆
0x413c0…413e0 69 6f 64 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 ┆iode) 0120 NEXT bit -----┆
0x413e0…41400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41400…41420 (29, 0, 7) 6d 65 64 20 65 74 20 0a 6e 65 67 61 74 69 76 74 20 53 54 45 50 2c 20 73 76 61 72 65 6e 64 65 20 ┆med et negativt STEP, svarende ┆
0x41420…41440 74 69 6c 20 61 74 20 42 49 54 2d 37 20 70 7b 72 65 6e 20 62 65 67 79 6e 64 65 72 20 6f 67 20 0a ┆til at BIT-7 pæren begynder og ┆
0x41440…41460 42 49 54 2d 30 20 70 7b 72 65 6e 20 73 6c 75 74 74 65 72 20 68 76 65 72 74 20 67 65 6e 6e 65 6d ┆BIT-0 pæren slutter hvert gennem┆
0x41460…41480 6c 7c 62 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 37 20 54 4f 20 30 20 ┆løb: 0090 FOR bit:=7 TO 0 ┆
0x41480…414a0 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 4c 45 ┆STEP -1 DO 0100 PRINT FILE┆
0x414a0…414c0 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 45 58 45 43 ┆ 1: CHR$(2^bit); 0110 EXEC┆
0x414c0…414e0 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 58 54 ┆ pause(lysperiode) 0120 NEXT┆
0x414e0…41500 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 2d 2d ┆ bit ------------------------┆
0x41500…41520 2d 2d 2d 2d 2d 2d 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 ┆------------------------------ ┆
0x41520…41540 0d 0a 49 20 22 6c 7c 62 2d 65 31 22 20 65 72 20 64 65 74 20 74 61 6c 76 61 72 69 61 62 6c 65 6e ┆ I "løb-e1" er det talvariablen┆
0x41540…41560 20 b0 20 44 45 43 54 41 4c f0 20 64 65 72 20 73 65 6e 64 65 73 20 74 69 6c 20 0a 19 80 81 80 6c ┆ DECTAL der sendes til l┆
0x41560…41580 79 73 70 61 6e 65 6c 65 74 2e 20 b0 44 45 43 54 41 4c f0 20 66 6f 72 7c 67 65 73 20 69 20 22 46 ┆yspanelet. DECTAL forøges i "F┆
0x41580…415a0 4f 52 2d 4e 45 58 54 22 6c 7c 6b 6b 65 6e 20 6d 65 64 20 65 74 20 0a 19 80 82 80 74 61 6c 20 73 ┆OR-NEXT"løkken med et tal s┆
0x415a0…415c0 76 61 72 65 6e 64 65 20 74 69 6c 20 68 76 65 72 20 6c 61 6d 70 65 73 20 64 65 63 69 6d 61 6c 65 ┆varende til hver lampes decimale┆
0x415c0…415e0 20 74 61 6c 2c 20 73 7d 6c 65 64 65 73 20 61 74 20 0a 19 80 82 80 b0 44 45 43 54 41 4c f0 20 6f ┆ tal, således at DECTAL o┆
0x415e0…41600 70 73 75 6d 6d 65 72 65 72 73 2e 20 42 65 6d 7b 72 6b 20 61 74 20 42 49 54 2d 30 20 70 7b 72 65 ┆psummerers. Bemærk at BIT-0 pære┆
0x41600…41620 (29, 0, 8) 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 0a 49 20 22 ┆----------------- H I "┆
0x41620…41640 6c 7c 62 2d 66 22 20 65 72 20 64 65 74 20 74 6f 20 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b ┆løb-f" er det to "FOR-NEXT"-løkk┆
0x41640…41660 65 72 20 64 65 72 20 68 76 65 72 20 66 6f 72 20 73 69 67 20 0a 66 7d 72 20 6c 79 73 65 74 20 74 ┆er der hver for sig får lyset t┆
0x41660…41680 69 6c 20 61 74 20 6c 7c 62 65 20 68 68 76 2e 20 6d 6f 64 20 68 7c 6a 72 65 20 6f 67 20 6d 6f 64 ┆il at løbe hhv. mod højre og mod┆
0x41680…416a0 20 76 65 6e 73 74 72 65 3a 0d 0a 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 38 30 ┆ venstre: 0070 REPEAT 0080┆
0x416a0…416c0 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a b0 30 30 39 30 20 20 20 20 ┆ FOR bit:=0 TO 7 DO 0090 ┆
0x416c0…416e0 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 0d 0a b0 30 31 ┆ PRINT FILE 1: CHR$(2^bit); 01┆
0x416e0…41700 30 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 65 29 0d 0a b0 ┆00 EXEC pause(lysperiode) ┆
0x41700…41720 30 31 31 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 32 30 20 20 20 50 52 49 4e 54 20 46 49 ┆0110 NEXT bit 0120 PRINT FI┆
0x41720…41740 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆LE 1: CHR$(0); 0130 EXEC paus┆
0x41740…41760 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 34 30 20 20 20 46 4f 52 20 62 69 74 3a 3d ┆e(lysperiode) 0140 FOR bit:=┆
0x41760…41780 37 20 54 4f 20 30 20 53 54 45 50 20 2d 31 20 44 4f 0d 0a b0 30 31 35 30 20 20 20 20 20 50 52 49 ┆7 TO 0 STEP -1 DO 0150 PRI┆
0x41780…417a0 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a b0 30 31 36 30 20 20 ┆NT FILE 1: CHR$(2^bit); 0160 ┆
0x417a0…417c0 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 b0 30 31 37 30 ┆ EXEC pause(lysperiode) 0170┆
0x417c0…417e0 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆ NEXT bit 0180 PRINT FILE 1┆
0x417e0…41800 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 ┆: CHR$(0); 0190 EXEC pause(ly┆
0x41800…41820 (29, 0, 9) 6e 20 66 6f 72 62 6c 69 76 65 72 20 0a 19 80 83 80 74 7b 6e 64 74 20 75 6e 64 65 72 20 70 72 6f ┆n forbliver tændt under pro┆
0x41820…41840 67 72 61 6d 6d 65 74 73 20 61 66 76 69 6b 6c 69 6e 67 3a 0d 0a 0d 0a b0 30 30 38 30 20 52 45 50 ┆grammets afvikling: 0080 REP┆
0x41840…41860 45 41 54 20 0d 0a b0 30 30 39 30 20 20 20 64 65 63 74 61 6c 3a 3d 30 0d 0a b0 30 31 30 30 20 20 ┆EAT 0090 dectal:=0 0100 ┆
0x41860…41880 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a b0 30 31 31 30 20 20 20 20 20 64 ┆ FOR bit:=0 TO 7 DO 0110 d┆
0x41880…418a0 65 63 74 61 6c 3a 3d 64 65 63 74 61 6c 2b 32 5e 62 69 74 0d 0a b0 30 31 32 30 20 20 20 20 20 50 ┆ectal:=dectal+2^bit 0120 P┆
0x418a0…418c0 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 64 65 63 74 61 6c 29 3b 0d 0a b0 30 31 33 ┆RINT FILE 1: CHR$(dectal); 013┆
0x418c0…418e0 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 65 29 0d 0a b0 30 ┆0 EXEC pause(lysperiode) 0┆
0x418e0…41900 31 34 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a b0 30 31 35 30 20 55 4e 54 49 4c 20 4f 52 44 28 ┆140 NEXT bit 0150 UNTIL ORD(┆
0x41900…41920 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 2d 2d 2d 2d ┆KEY$)=32 --------------------┆
0x41920…41940 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41940…41960 2d 2d 0d 0a 0c 83 20 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 65 32 22 20 69 6e 64 6c 65 64 65 ┆-- I "løb-e2" indlede┆
0x41960…41980 73 20 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 6e 20 6d 65 64 20 61 74 20 30 20 73 65 6e ┆s "FOR-NEXT"-løkken med at 0 sen┆
0x41980…419a0 64 65 73 20 0a 74 69 6c 20 6c 79 75 73 70 61 6e 65 6c 65 74 20 73 7d 20 61 6c 6c 65 20 70 7b 72 ┆des til lyuspanelet så alle pær┆
0x419a0…419c0 65 72 20 73 6c 75 6b 6b 65 73 2c 20 6f 67 20 64 65 72 20 75 64 66 7c 72 65 73 20 0a 65 6e 20 70 ┆er slukkes, og der udføres en p┆
0x419c0…419e0 61 75 73 65 20 66 7c 72 20 70 7b 72 65 72 6e 65 20 62 65 67 79 6e 64 65 72 20 61 74 20 6c 79 73 ┆ause før pærerne begynder at lys┆
0x419e0…41a00 65 20 6f 70 2e 20 50 7d 20 64 65 6e 6e 65 20 0a 6d 7d 64 65 20 73 6c 75 6b 6b 65 73 20 6f 67 73 ┆e op. På denne måde slukkes ogs┆
0x41a00…41a20 (29, 1, 1) 73 70 65 72 69 6f 64 65 29 0d 0a 30 32 30 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d ┆speriode) 0200 UNTIL ORD(KEY$)=┆
0x41a20…41a40 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 2d 2d ┆32 --------------------------┆
0x41a40…41a60 2d 2d 2d 2d 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 ┆---------------------------- ┆
0x41a60…41a80 22 6c 7c 62 2d 67 31 22 2c 20 22 6c 7c 62 2d 67 32 22 20 6f 67 20 22 6c 7c 62 2d 67 33 22 20 65 ┆"løb-g1", "løb-g2" og "løb-g3" e┆
0x41a80…41aa0 72 20 66 6f 72 73 6c 61 67 20 74 69 6c 20 6c 7c 73 6e 69 6e 67 20 0a 61 66 20 70 72 6f 62 6c 65 ┆r forslag til løsning af proble┆
0x41aa0…41ac0 6d 65 74 20 6d 65 64 20 61 74 20 6d 61 6e 20 66 72 61 20 74 61 73 74 61 74 75 72 65 74 20 73 6b ┆met med at man fra tastaturet sk┆
0x41ac0…41ae0 61 6c 20 6b 75 6e 6e 65 20 66 7d 20 0a 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 68 ┆al kunne få lyset til at løbe h┆
0x41ae0…41b00 68 76 2e 20 6d 6f 64 20 68 7c 6a 72 65 20 6f 67 20 6d 6f 64 20 76 65 6e 73 74 72 65 2e 0d 0a 0d ┆hv. mod højre og mod venstre. ┆
0x41b00…41b20 0a 48 65 72 20 22 6c 7c 62 2d 67 32 22 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d ┆ Her "løb-g2": 0010 // "løb-┆
0x41b20…41b40 67 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 2f 50 4f 52 54 ┆g2" 0020 OPEN FILE 1,"/17/PORT┆
0x41b40…41b60 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 44 49 4d 20 74 61 73 74 24 20 4f 46 20 31 0d ┆", WRITE 0030 DIM tast$ OF 1 ┆
0x41b60…41b80 0a b0 30 30 34 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 4c 4c ┆ 0040 PRINT "STOP: TRYK PÅ MELL┆
0x41b80…41ba0 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a b0 30 30 35 30 20 50 52 49 4e 54 20 22 53 ┆EMRUM-TASTEN !!" 0050 PRINT "S┆
0x41ba0…41bc0 4b 52 49 56 20 4c 59 53 50 45 52 49 4f 44 45 4e 22 0d 0a b0 30 30 36 30 20 50 52 49 4e 54 20 22 ┆KRIV LYSPERIODEN" 0060 PRINT "┆
0x41bc0…41be0 49 20 53 45 4b 55 4e 44 45 52 22 0d 0a b0 30 30 37 30 20 49 4e 50 55 54 20 22 46 4f 52 20 48 56 ┆I SEKUNDER" 0070 INPUT "FOR HV┆
0x41be0…41c00 45 52 20 50 5b 52 45 3a 20 22 3a 20 6c 79 73 70 65 72 69 6f 64 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d ┆ER PÆRE: ": lysperiode ------┆
0x41c00…41c20 (29, 1, 2) 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 49 4e 50 55 54 20 22 50 41 55 53 45 54 49 44 3a 20 ┆ WRITE 0030 INPUT "PAUSETID: ┆
0x41c20…41c40 22 3a 20 74 69 64 0d 0a 30 30 34 30 20 46 4f 52 20 74 61 6c 3a 3d 30 20 54 4f 20 32 35 35 20 44 ┆": tid 0040 FOR tal:=0 TO 255 D┆
0x41c40…41c60 4f 0d 0a 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 ┆O 0050 PRINT FILE 1: CHR$(tal┆
0x41c60…41c80 29 3b 0d 0a 30 30 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 74 69 64 f0 29 0d 0a 30 30 ┆); 0060 EXEC pause( tid ) 00┆
0x41c80…41ca0 37 30 20 4e 45 58 54 20 74 61 6c 0d 0a 30 30 38 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆70 NEXT tal 0080 PRINT FILE 1: ┆
0x41ca0…41cc0 43 48 52 24 28 30 29 3b 0d 0a 30 30 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 30 ┆CHR$(0); 0090 CLOSE FILE 1 010┆
0x41cc0…41ce0 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 2d 2d 2d 2d ┆0 END ----------------------┆
0x41ce0…41d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41d00…41d20 0d 0a 0c 82 b8 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 42 4c 49 4e 4b 2d 30 2f 37 ┆ PROBLEM "BLINK-0/7┆
0x41d20…41d40 22 3a 0d 0a 0d 0a 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 66 7d 72 20 42 49 54 2d 30 20 6f 67 ┆": Dette program får BIT-0 og┆
0x41d40…41d60 20 42 49 54 2d 37 20 70 7b 72 65 72 6e 65 20 74 69 6c 20 61 74 20 62 6c 69 6e 6b 65 20 0a 70 7d ┆ BIT-7 pærerne til at blinke på┆
0x41d60…41d80 20 73 6b 69 66 74 2e 20 53 74 72 75 6b 74 75 72 65 6e 20 65 72 20 64 65 6e 20 73 61 6d 6d 65 6e ┆ skift. Strukturen er den sammen┆
0x41d80…41da0 20 73 6f 6d 20 69 20 65 74 20 73 69 6d 70 65 6c 74 20 0a 62 6c 69 6e 6b 2d 70 72 6f 67 72 61 6d ┆ som i et simpelt blink-program┆
0x41da0…41dc0 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 37 2f 30 22 0d 0a b0 30 30 32 30 20 ┆ 0010 // "blink-7/0" 0020 ┆
0x41dc0…41de0 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 ┆
0x41de0…41e00 b0 30 30 33 30 20 52 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 ┆ 0030 REPEAT 0040 PRINT FIL┆
0x41e00…41e20 (29, 1, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41e20…41e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 72 20 65 72 20 73 65 6c 76 65 ┆---------------- Her er selve┆
0x41e40…41e60 20 61 66 76 69 6b 6c 69 6e 67 65 6e 20 61 66 20 6c 7c 62 65 6c 79 73 65 74 2e 20 44 65 74 20 65 ┆ afviklingen af løbelyset. Det e┆
0x41e60…41e80 72 20 70 72 6f 63 65 80 0a 64 75 72 65 6e 20 b0 6c 7c 62 65 6c 79 73 f0 20 28 73 65 20 6e 7b 73 ┆r proce duren løbelys (se næs┆
0x41e80…41ea0 74 65 20 73 69 64 65 29 20 64 65 72 20 66 7d 72 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 0a 19 ┆te side) der får lyset til at ┆
0x41ea0…41ec0 80 81 80 6c 7c 62 65 3a 0d 0a 0d 0a b0 30 30 39 30 20 52 45 50 45 41 54 20 0d 0a 0d 0a b0 30 31 ┆ løbe: 0090 REPEAT 01┆
0x41ec0…41ee0 30 30 20 20 20 74 61 73 74 24 3a 3d 4b 45 59 24 0d 0a 0d 0a b0 30 31 31 30 20 20 20 49 46 20 74 ┆00 tast$:=KEY$ 0110 IF t┆
0x41ee0…41f00 61 73 74 24 3d 22 76 22 20 4f 52 20 74 61 73 74 24 3d 22 56 22 20 4f 52 20 74 61 73 74 24 3d 43 ┆ast$="v" OR tast$="V" OR tast$=C┆
0x41f00…41f20 48 52 24 28 38 29 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 45 4e 20 45 58 45 43 20 6c ┆HR$(8) THEN EXEC l┆
0x41f20…41f40 7c 62 65 6c 79 73 28 30 2c 37 2c 2b 31 29 0d 0a 0d 0a b0 30 31 32 30 20 20 20 49 46 20 74 61 73 ┆øbelys(0,7,+1) 0120 IF tas┆
0x41f40…41f60 74 24 3d 22 68 22 20 4f 52 20 74 61 73 74 24 3d 22 48 22 20 4f 52 20 74 61 73 74 24 3d 43 48 52 ┆t$="h" OR tast$="H" OR tast$=CHR┆
0x41f60…41f80 24 28 32 34 29 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 45 4e 20 45 58 45 43 20 6c 7c ┆$(24) THEN EXEC lø┆
0x41f80…41fa0 62 65 6c 79 73 28 37 2c 30 2c 2d 31 29 0d 0a 0d 0a b0 30 31 33 30 20 20 20 49 46 20 74 61 73 74 ┆belys(7,0,-1) 0130 IF tast┆
0x41fa0…41fc0 24 3d 22 73 22 20 4f 52 20 74 61 73 74 24 3d 22 53 22 20 4f 52 20 74 61 73 74 24 3d 22 20 22 20 ┆$="s" OR tast$="S" OR tast$=" " ┆
0x41fc0…41fe0 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 45 4e 20 45 58 45 43 20 73 74 61 6e 64 73 0d 0a ┆ THEN EXEC stands ┆
0x41fe0…42000 0d 0a b0 30 31 34 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 0d 0a 0d 0a b0 30 31 35 30 20 45 4e 44 ┆ 0140 UNTIL FALSE 0150 END┆
0x42000…42020 (29, 1, 4) 45 20 31 3a 20 43 48 52 24 28 31 29 3b 0d 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆E 1: CHR$(1); 0050 EXEC paus┆
0x42020…42040 65 28 30 2e 35 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 ┆e(0.5) 0060 PRINT FILE 1: CH┆
0x42040…42060 52 24 28 31 32 38 29 3b 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 ┆R$(128); 0070 EXEC pause(0.5┆
0x42060…42080 29 0d 0a b0 30 30 38 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 30 ┆) 0080 UNTIL ORD(KEY$)=32 00┆
0x42080…420a0 39 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 30 30 ┆90 PRINT FILE 1: CHR$(0); 0100┆
0x420a0…420c0 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 31 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 ┆ CLOSE FILE 1 0110 END 00┆
0x420c0…420e0 34 30 f0 3a 20 48 65 72 20 6c 79 73 65 72 20 6b 75 6e 20 42 49 54 2d 30 20 70 7b 72 65 6e 2e 0d ┆40 : Her lyser kun BIT-0 pæren. ┆
0x420e0…42100 0a 0d 0a b0 30 30 36 30 f0 3a 20 48 65 72 20 6c 79 73 65 72 20 6b 75 6e 20 42 49 54 2d 37 20 70 ┆ 0060 : Her lyser kun BIT-7 p┆
0x42100…42120 7b 72 65 6e 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 ┆æren ------------------------┆
0x42120…42140 2d 2d 2d 2d 2d 2d 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 ┆------------------------------ ┆
0x42140…42160 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 42 4c 49 4e 4b 2d 41 2f 42 22 3a 0d 0a 0d 0a 0d 0a 48 ┆ PROBLEM "BLINK-A/B": H┆
0x42160…42180 65 72 20 6b 6f 6d 6d 65 72 20 73 7d 20 64 65 74 20 66 7c 72 73 74 65 20 70 72 6f 67 72 61 6d 20 ┆er kommer så det første program ┆
0x42180…421a0 64 65 72 20 73 74 79 72 65 72 20 64 65 20 74 6f 20 0a 65 6b 73 74 72 61 20 62 69 74 2e 20 50 6f ┆der styrer de to ekstra bit. Po┆
0x421a0…421c0 72 74 20 31 37 2c 20 73 6f 6d 20 65 72 20 65 6e 20 70 61 70 61 6c 6c 65 6c 70 6f 72 74 2c 20 62 ┆rt 17, som er en papallelport, b┆
0x421c0…421e0 65 73 74 7d 72 20 6b 75 6e 20 0a 61 66 20 38 20 62 69 74 2c 20 6f 67 20 76 69 20 6b 61 6e 20 64 ┆estår kun af 8 bit, og vi kan d┆
0x421e0…42200 65 72 66 6f 72 20 69 6b 6b 65 20 62 72 75 67 65 20 64 65 6e 20 74 69 6c 20 64 65 20 74 6f 20 0a ┆erfor ikke bruge den til de to ┆
0x42200…42220 (29, 1, 5) 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 ┆ ----------------------------┆
0x42220…42240 2d 2d 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 68 0a ┆-------------------------- h ┆
0x42240…42260 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 30 2c 37 2c 2b 31 29 f0 20 66 7d 72 ┆ EXEC løbelys(0,7,+1) får┆
0x42260…42280 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 66 72 61 20 42 49 54 20 30 2c 20 0a 19 ┆ lyset til at løbe fra BIT 0, ┆
0x42280…422a0 80 81 80 64 2e 76 2e 73 2e 20 76 65 6e 73 74 72 65 2c 20 6d 6f 64 20 42 49 54 20 37 2c 20 61 6c ┆ d.v.s. venstre, mod BIT 7, al┆
0x422a0…422c0 74 73 7d 20 68 7c 6a 72 65 2e 20 4d 6f 64 73 76 61 72 65 6e 64 65 20 0a 19 80 81 80 66 7d 72 20 ┆tså højre. Modsvarende får ┆
0x422c0…422e0 b0 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 37 2c 30 2c 2d 31 29 f0 20 6c 79 73 65 74 20 74 69 6c ┆ EXEC løbelys(7,0,-1) lyset til┆
0x422e0…42300 20 61 74 20 6c 7c 62 65 20 64 65 6e 20 61 6e 64 65 6e 20 0a 19 80 82 80 76 65 6a 3a 0d 0a 0d 0a ┆ at løbe den anden vej: ┆
0x42300…42320 b0 30 31 36 30 20 50 52 4f 43 20 6c 7c 62 65 6c 79 73 28 73 74 61 72 74 76 7b 72 64 69 2c 73 6c ┆ 0160 PROC løbelys(startværdi,sl┆
0x42320…42340 75 74 76 7b 72 64 69 2c 73 74 65 70 76 7b 72 64 69 29 0d 0a 0d 0a b0 30 31 37 30 20 20 20 46 4f ┆utværdi,stepværdi) 0170 FO┆
0x42340…42360 52 20 62 69 74 3a 3d 73 74 61 72 74 76 7b 72 64 69 20 54 4f 20 73 6c 75 74 76 7b 72 64 69 0d 0a ┆R bit:=startværdi TO slutværdi ┆
0x42360…42380 19 80 81 80 b0 20 20 20 20 20 20 20 53 54 45 50 20 73 74 65 70 76 7b 72 64 69 20 44 4f 0d 0a 0d ┆ STEP stepværdi DO ┆
0x42380…423a0 0a b0 30 31 38 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 ┆ 0180 PRINT FILE 1: CHR$(2^┆
0x423a0…423c0 62 69 74 29 3b 0d 0a 0d 0a b0 30 31 39 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 ┆bit); 0190 EXEC pause(ly┆
0x423c0…423e0 73 70 65 72 69 6f 64 65 29 0d 0a 0d 0a b0 30 32 30 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 0d ┆speriode) 0200 NEXT bit ┆
0x423e0…42400 0a b0 30 32 31 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 ┆ 0210 PRINT FILE 1: CHR$(0); ┆
0x42400…42420 (29, 1, 6) 65 6b 73 74 72 61 20 62 69 74 2e 20 4e 75 20 73 6b 61 6c 20 b0 50 4f 52 54 20 31 30 f0 20 62 72 ┆ekstra bit. Nu skal PORT 10 br┆
0x42420…42440 75 67 65 73 2e 20 44 65 74 20 65 72 20 67 61 6e 73 6b 65 20 76 69 73 74 20 0a 19 80 81 80 65 6e ┆uges. Det er ganske vist en┆
0x42440…42460 20 73 65 72 69 65 6c 20 70 6f 72 74 2c 20 6c 69 67 65 73 6f 6d 20 64 65 6e 20 70 72 69 6e 74 65 ┆ seriel port, ligesom den printe┆
0x42460…42480 72 65 6e 20 65 72 20 74 69 6c 73 6c 75 74 74 65 74 2c 20 0a 19 80 81 80 6d 65 6e 20 64 65 6e 20 ┆ren er tilsluttet, men den ┆
0x42480…424a0 69 6e 64 65 68 6f 6c 64 65 72 20 74 6f 20 62 69 74 73 20 64 65 72 20 6e 6f 72 6d 61 6c 74 20 62 ┆indeholder to bits der normalt b┆
0x424a0…424c0 72 75 67 65 73 20 74 69 6c 20 0a 19 80 81 80 6b 6f 6e 74 72 6f 6c 2d 66 6f 72 6d 7d 6c 2e 20 44 ┆ruges til kontrol-formål. D┆
0x424c0…424e0 65 20 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 6c 69 67 65 73 6f 6d 20 64 65 20 38 20 ┆e kan programmeres ligesom de 8 ┆
0x424e0…42500 62 69 74 20 69 20 0a 19 80 81 80 70 6f 72 74 20 31 37 2e 20 44 65 74 20 66 6f 72 75 64 73 7b 74 ┆bit i port 17. Det forudsæt┆
0x42500…42520 74 65 72 20 62 6c 6f 74 2c 20 61 74 20 76 69 20 73 65 6e 64 65 72 20 64 65 20 64 65 63 69 6d 61 ┆ter blot, at vi sender de decima┆
0x42520…42540 6c 65 20 0a 19 80 81 80 74 61 6c 20 b0 32 34 f0 20 6f 67 20 b0 35 f0 20 69 20 6e 7b 76 6e 74 65 ┆le tal 24 og 5 i nævnte┆
0x42540…42560 20 72 7b 6b 6b 65 66 7c 6c 67 65 20 b0 75 6d 69 64 64 65 6c 62 61 72 74 20 66 7c 72 f0 20 64 65 ┆ rækkefølge umiddelbart før de┆
0x42560…42580 74 20 74 61 6c 20 0a 19 80 84 80 64 65 72 20 73 7b 74 74 65 72 20 42 49 54 2d 41 20 6f 67 2f 65 ┆t tal der sætter BIT-A og/e┆
0x42580…425a0 6c 6c 65 72 20 42 49 54 2d 42 20 68 7c 6a 65 2e 20 b0 32 34 f0 20 6f 67 20 b0 35 f0 20 65 72 20 ┆ller BIT-B høje. 24 og 5 er ┆
0x425a0…425c0 0a 19 80 86 80 6b 61 72 61 6b 74 65 72 65 72 20 64 65 72 20 70 72 6f 67 72 61 6d 6d 65 72 65 72 ┆ karakterer der programmerer┆
0x425c0…425e0 20 70 6f 72 74 20 31 30 2c 20 b0 30 2f 32 2f 31 32 38 2f 31 33 30 f0 20 65 72 20 0a 19 80 87 80 ┆ port 10, 0/2/128/130 er ┆
0x425e0…42600 64 61 74 61 20 64 65 72 20 74 72 61 6e 73 6d 69 74 74 65 72 65 73 20 b0 75 64 f0 20 61 66 20 70 ┆data der transmitteres ud af p┆
0x42600…42620 (29, 1, 7) 0a 0d 0a b0 30 32 32 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 ┆ 0220 EXEC pause(lysperiode┆
0x42620…42640 29 0d 0a 0d 0a b0 30 32 33 30 20 45 4e 44 50 52 4f 43 20 6c 7c 62 65 6c 79 73 0d 0a 0d 0a 2d 2d ┆) 0230 ENDPROC løbelys --┆
0x42640…42660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x42660…42680 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 76 69 73 20 64 65 72 ┆-------------------- Hvis der┆
0x42680…426a0 20 74 72 79 6b 6b 65 73 20 70 7d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 20 65 6c 6c 65 72 20 53 2d 74 ┆ trykkes på MELLEMRUM- eller S-t┆
0x426a0…426c0 61 73 74 65 6e 20 73 7d 20 0a 75 64 66 7c 72 65 73 20 70 72 6f 63 65 64 75 72 65 6e 20 b0 73 74 ┆asten så udføres proceduren st┆
0x426c0…426e0 61 6e 64 73 f0 2c 20 68 76 6f 72 20 6c 79 73 65 74 20 73 6c 75 6b 6b 65 73 20 6f 67 20 0a 19 80 ┆ands , hvor lyset slukkes og ┆
0x426e0…42700 81 80 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 6c 75 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 33 32 30 20 ┆ datastrømmen lukkes: 0320 ┆
0x42700…42720 50 52 4f 43 20 73 74 61 6e 64 73 0d 0a b0 30 33 33 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆PROC stands 0330 PRINT FILE ┆
0x42720…42740 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 34 30 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 ┆1: CHR$(0); 0340 CLOSE FILE ┆
0x42740…42760 31 0d 0a b0 30 33 35 30 20 45 4e 44 50 52 4f 43 20 73 74 61 6e 64 73 0d 0a 0d 0a 2d 2d 2d 2d 2d ┆1 0350 ENDPROC stands -----┆
0x42760…42780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x42780…427a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 82 a8 0a 0d 0a 0d 0a 0d 0a b0 50 52 ┆----------------- PR┆
0x427a0…427c0 4f 42 4c 45 4d 20 22 54 5b 4c 4c 45 22 3a 0d 0a 0d 0a 0d 0a 22 74 7b 6c 6c 65 2d 61 22 20 65 72 ┆OBLEM "TÆLLE": "tælle-a" er┆
0x427c0…427e0 20 65 74 20 6c 69 6c 6c 65 20 70 72 6f 67 72 61 6d 20 64 65 72 20 74 7b 6c 6c 65 72 20 62 69 6e ┆ et lille program der tæller bin┆
0x427e0…42800 7b 72 74 2e 20 44 65 72 20 0a 6b 61 6e 20 6e 61 74 75 72 6c 69 67 76 69 73 20 6b 75 6e 20 74 7b ┆ært. Der kan naturligvis kun tæ┆
0x42800…42820 (29, 1, 8) 6f 72 74 20 31 30 21 0d 0a 0d 0a 44 65 72 20 20 65 72 20 64 69 73 73 65 20 34 20 6d 75 6c 69 67 ┆ort 10! Der er disse 4 mulig┆
0x42820…42840 68 65 64 65 72 20 66 6f 72 20 70 72 6f 67 72 61 6d 6d 65 72 69 6e 67 20 61 66 20 42 49 54 2d 41 ┆heder for programmering af BIT-A┆
0x42840…42860 20 0a 6f 67 20 42 49 54 2d 42 3a 0d 0a 0d 0a 0d 0a 44 45 43 49 4d 41 4c 20 54 41 4c 3a 20 20 20 ┆ og BIT-B: DECIMAL TAL: ┆
0x42860…42880 20 20 20 20 42 49 54 2d 41 3a 20 20 20 20 42 49 54 2d 42 3a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ BIT-A: BIT-B: ----------┆
0x42880…428a0 2d 2d 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 20 20 20 20 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 20 20 20 ┆-- ------ ------ ┆
0x428a0…428c0 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 4c 41 56 20 20 20 20 20 20 20 4c 41 56 0d ┆ 0 LAV LAV ┆
0x428c0…428e0 0a 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 20 20 20 20 20 48 5c 4a 20 20 20 20 20 20 20 ┆ 2 HØJ ┆
0x428e0…42900 4c 41 56 0d 0a 20 20 20 20 20 20 20 31 32 38 20 20 20 20 20 20 20 20 20 20 20 4c 41 56 20 20 20 ┆LAV 128 LAV ┆
0x42900…42920 20 20 20 20 48 5c 4a 0d 0a 20 32 2b 31 32 38 3d 31 33 30 20 20 20 20 20 20 20 20 20 20 20 48 5c ┆ HØJ 2+128=130 HØ┆
0x42920…42940 4a 20 20 20 20 20 20 20 48 5c 4a 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 ┆J HØJ ------------ ┆
0x42940…42960 20 20 2d 2d 2d 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 48 0a 0d 0a 0d 0a 0d 0a 22 ┆ ------ ------ H "┆
0x42960…42980 62 6c 69 6e 6b 2d 41 2f 42 22 20 66 7d 72 20 42 49 54 2d 41 20 6f 67 20 42 49 54 2d 42 20 70 7b ┆blink-A/B" får BIT-A og BIT-B pæ┆
0x42980…429a0 72 65 72 6e 65 20 74 69 6c 20 61 74 20 62 6c 69 6e 6b 65 20 70 7d 20 0a 73 6b 69 66 74 3a 0d 0a ┆rerne til at blinke på skift: ┆
0x429a0…429c0 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 41 2f 42 22 0d 0a 30 30 32 30 20 4f 50 45 4e ┆ 0010 // "blink-A/B" 0020 OPEN┆
0x429c0…429e0 20 46 49 4c 45 20 31 2c 22 2f b0 31 30 f0 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 ┆ FILE 1,"/ 10 /PORT", WRITE 00┆
0x429e0…42a00 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 49 4c 45 20 31 3a ┆30 REPEAT 0040 PRINT FILE 1:┆
0x42a00…42a20 (29, 1, 9) 6c 6c 65 73 20 66 72 61 20 30 20 74 69 6c 20 32 35 35 2c 20 64 61 20 64 65 72 20 6b 75 6e 20 0a ┆lles fra 0 til 255, da der kun ┆
0x42a20…42a40 65 72 20 38 20 62 69 74 2f 6c 61 6d 70 65 72 20 70 7d 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d 0a ┆er 8 bit/lamper på lyspanelet: ┆
0x42a40…42a60 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 7b 6c 6c 65 2d 61 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e ┆ 0010 // "tælle-a" 0020 OPEN┆
0x42a60…42a80 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 34 ┆ FILE 1,"/17/PORT", WRITE 004┆
0x42a80…42aa0 30 20 46 4f 52 20 74 61 6c 3a 3d 30 20 54 4f 20 32 35 35 20 44 4f 0d 0a b0 30 30 35 30 20 20 20 ┆0 FOR tal:=0 TO 255 DO 0050 ┆
0x42aa0…42ac0 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 74 61 6c 29 3b 0d 0a b0 30 30 36 30 20 ┆PRINT FILE 1: CHR$(tal); 0060 ┆
0x42ac0…42ae0 20 20 45 58 45 43 20 70 61 75 73 65 28 31 2f 33 29 0d 0a b0 30 30 37 30 20 4e 45 58 54 20 74 61 ┆ EXEC pause(1/3) 0070 NEXT ta┆
0x42ae0…42b00 6c 0d 0a b0 30 30 38 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 ┆l 0080 PRINT FILE 1: CHR$(0); ┆
0x42b00…42b20 0a b0 30 30 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 31 30 30 20 45 4e 44 20 0d ┆ 0090 CLOSE FILE 1 0100 END ┆
0x42b20…42b40 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 2d ┆ -----------------------------┆
0x42b40…42b60 2d 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 49 20 22 ┆------------------------- I "┆
0x42b60…42b80 74 7b 6c 6c 65 2d 62 22 20 6b 61 6e 20 74 7b 6c 6c 65 68 61 73 74 69 67 68 65 64 65 6e 20 76 61 ┆tælle-b" kan tællehastigheden va┆
0x42b80…42ba0 72 69 65 72 65 73 2c 20 69 64 65 74 20 0a 62 72 75 67 65 72 65 6e 20 73 65 6c 76 20 62 65 73 74 ┆rieres, idet brugeren selv best┆
0x42ba0…42bc0 65 6d 6d 65 72 20 68 76 6f 72 20 6c 61 6e 67 20 74 69 64 20 68 76 65 72 74 20 70 61 75 73 65 20 ┆emmer hvor lang tid hvert pause ┆
0x42bc0…42be0 73 6b 61 6c 20 0a 76 7b 72 65 2e 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 74 7b 6c 6c 65 2d ┆skal være. 0010 // "tælle-┆
0x42be0…42c00 62 22 0d 0a 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 ┆b" 0020 OPEN FILE 1,"/17/PORT",┆
0x42c00…42c20 (30, 0, 1) 20 b0 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 f0 0d 0a 30 30 ┆ CHR$(24);CHR$(5);CHR$(2); 00┆
0x42c20…42c40 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 20 20 20 50 52 49 ┆50 EXEC pause(0.5) 0060 PRI┆
0x42c40…42c60 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 ┆NT FILE 1: CHR$(24);CHR$(5);CHR┆
0x42c60…42c80 24 28 31 32 38 29 3b f0 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 ┆$(128); 0070 EXEC pause(0.5)┆
0x42c80…42ca0 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 30 39 30 20 ┆ 0080 UNTIL ORD(KEY$)=32 0090 ┆
0x42ca0…42cc0 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b ┆PRINT FILE 1: CHR$(24);CHR$(5);┆
0x42cc0…42ce0 43 48 52 24 28 30 29 f0 3b 0d 0a 30 31 30 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 ┆CHR$(0) ; 0100 CLOSE FILE 1 01┆
0x42ce0…42d00 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 f0 3a 20 48 65 72 20 7d 62 6e 65 73 20 70 6f 72 ┆10 END 0020 : Her åbnes por┆
0x42d00…42d20 74 20 b0 31 30 f0 20 66 6f 72 20 73 6b 72 69 76 6e 69 6e 67 20 28 57 52 49 54 45 29 2e 0d 0a 0d ┆t 10 for skrivning (WRITE). ┆
0x42d20…42d40 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 62 72 75 67 65 73 20 b0 32 34 f0 20 6f 67 20 b0 35 f0 20 ┆ 0040 : Her bruges 24 og 5 ┆
0x42d40…42d60 74 69 6c 20 61 74 20 22 66 6f 72 74 7b 6c 6c 65 22 20 70 6f 72 74 20 31 30 20 61 74 20 0a 19 80 ┆til at "fortælle" port 10 at ┆
0x42d60…42d80 83 80 76 69 20 67 65 72 6e 65 20 76 69 6c 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 42 49 54 2d 41 ┆ vi gerne vil programmere BIT-A┆
0x42d80…42da0 20 6f 67 20 42 49 54 2d 42 2c 20 6f 67 20 64 65 72 65 66 74 65 72 20 0a 19 80 83 80 73 65 6e 64 ┆ og BIT-B, og derefter send┆
0x42da0…42dc0 65 72 20 76 69 20 74 61 6c 6c 65 74 20 b0 32 f0 2c 20 64 65 72 20 73 7b 74 74 65 72 20 42 49 54 ┆er vi tallet 2 , der sætter BIT┆
0x42dc0…42de0 2d 41 20 68 7c 6a 2c 20 73 7d 20 42 49 54 2d 41 20 0a 19 80 84 80 70 7b 72 65 6e 20 6c 79 73 65 ┆-A høj, så BIT-A pæren lyse┆
0x42de0…42e00 72 2c 20 6f 67 20 b0 6b 75 6e f0 20 42 49 54 2d 41 20 70 7b 72 65 6e 2e 0d 0a 0d 0a b0 30 30 36 ┆r, og kun BIT-A pæren. 006┆
0x42e00…42e20 (30, 0, 2) 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┆
0x42e20…42e40 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$┆
0x42e40…42e60 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 ┆
0x42e60…42e80 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┆
0x42e80…42ea0 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┆
0x42ea0…42ec0 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.┆
0x42ec0…42ee0 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┆
0x42ee0…42f00 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┆
0x42f00…42f20 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┆
0x42f20…42f40 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┆
0x42f40…42f60 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 ┆
0x42f60…42f80 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┆
0x42f80…42fa0 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 ┆
0x42fa0…42fc0 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┆
0x42fc0…42fe0 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 ┆
0x42fe0…43000 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┆
0x43000…43020 (30, 0, 3) 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 20 6c 69 67 65 73 6f 6d 20 69 ┆0 : Her sendes 24 og 5 ligesom i┆
0x43020…43040 20 6c 69 6e 69 65 20 30 30 34 30 2c 20 6f 67 20 0a 19 80 81 80 64 65 72 65 66 74 65 72 20 73 65 ┆ linie 0040, og derefter se┆
0x43040…43060 6e 64 65 73 20 31 32 38 2c 20 64 65 72 20 73 7b 74 74 65 72 20 42 49 54 2d 42 2c 20 6f 67 20 6b ┆ndes 128, der sætter BIT-B, og k┆
0x43060…43080 75 6e 20 42 49 54 2d 42 2c 20 0a 19 80 81 80 68 7c 6a 2e 0d 0a 0d 0a b0 30 30 39 30 f0 3a 20 48 ┆un BIT-B, høj. 0090 : H┆
0x43080…430a0 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 2c 20 73 61 6d 74 20 30 2e 20 4e 75 6c 6c 65 ┆er sendes 24 og 5, samt 0. Nulle┆
0x430a0…430c0 74 20 73 7b 74 74 65 72 20 62 7d 64 65 20 0a 19 80 81 80 42 49 54 2d 41 20 6f 67 20 42 49 54 2d ┆t sætter både BIT-A og BIT-┆
0x430c0…430e0 42 20 6c 61 76 65 2c 20 73 7d 20 69 6e 67 65 6e 20 61 66 20 64 69 73 73 65 20 74 6f 20 70 7b 72 ┆B lave, så ingen af disse to pær┆
0x430e0…43100 65 72 20 6c 79 73 65 72 2e 0d 0a 0d 0a 44 65 6e 20 65 6e 65 73 74 65 20 66 6f 72 73 6b 65 6c 20 ┆er lyser. Den eneste forskel ┆
0x43100…43120 70 7d 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 64 65 20 38 20 62 69 74 20 66 72 61 20 70 ┆på at programmere de 8 bit fra p┆
0x43120…43140 6f 72 74 20 0a 31 37 2c 20 6f 67 20 64 65 20 32 20 62 69 74 20 66 72 61 20 70 6f 72 74 20 31 30 ┆ort 17, og de 2 bit fra port 10┆
0x43140…43160 2c 20 65 72 20 61 6c 74 73 7d 20 61 74 20 70 6f 72 74 20 31 37 20 6b 61 6e 20 0a 70 72 6f 67 72 ┆, er altså at port 17 kan progr┆
0x43160…43180 61 6d 6d 65 72 65 73 20 64 69 72 65 6b 74 65 20 6d 65 64 20 64 65 74 20 64 65 63 69 6d 61 6c 65 ┆ammeres direkte med det decimale┆
0x43180…431a0 20 74 61 6c 20 64 65 72 20 73 7b 74 74 65 72 20 64 65 20 0a 65 6e 6b 65 6c 74 65 20 62 69 74 73 ┆ tal der sætter de enkelte bits┆
0x431a0…431c0 2c 20 68 76 6f 72 69 6d 6f 64 20 64 65 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 32 34 20 6f 67 ┆, hvorimod de decimale tal 24 og┆
0x431c0…431e0 20 35 20 73 6b 61 6c 20 0a 73 65 6e 64 65 73 20 66 6f 72 75 64 20 66 6f 72 20 b0 68 76 65 72 20 ┆ 5 skal sendes forud for hver ┆
0x431e0…43200 65 6e 65 73 74 65 f0 20 7b 6e 64 72 69 6e 67 20 61 66 20 73 74 61 74 75 73 20 70 7d 20 64 65 20 ┆eneste ændring af status på de ┆
0x43200…43220 (30, 0, 4) 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. --------------┆
0x43220…43240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43240…43260 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┆
0x43260…43280 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┆
0x43280…432a0 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 ┆
0x432a0…432c0 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┆
0x432c0…432e0 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$(┆
0x432e0…43300 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┆
0x43300…43320 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┆
0x43320…43340 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┆
0x43340…43360 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 ┆
0x43360…43380 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);┆
0x43380…433a0 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┆
0x433a0…433c0 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 ┆
0x433c0…433e0 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┆
0x433e0…43400 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Ø┆
0x43400…43420 (30, 0, 5) 74 6f 20 0a 19 80 81 80 62 69 74 20 76 69 20 6b 61 6c 64 65 72 20 66 6f 72 20 42 49 54 2d 41 20 ┆to bit vi kalder for BIT-A ┆
0x43420…43440 6f 67 20 42 49 54 2d 42 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆og BIT-B. -------------------┆
0x43440…43460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43460…43480 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 22 74 7b 6e 64 31 30 22 f0 20 6f 67 20 b0 73 6c 75 6b 31 30 22 f0 ┆--- "tænd10" og sluk10" ┆
0x43480…434a0 20 65 72 20 74 6f 20 73 6d 7d 20 70 72 6f 67 72 61 6d 6d 65 72 20 64 65 72 20 68 68 76 2e 20 0a ┆ er to små programmer der hhv. ┆
0x434a0…434c0 19 80 82 80 74 7b 6e 64 65 72 20 6f 67 20 73 6c 75 6b 6b 65 72 20 42 49 54 2d 41 20 b0 6f 67 f0 ┆ tænder og slukker BIT-A og ┆
0x434c0…434e0 20 42 49 54 2d 42 2e 20 44 65 20 72 65 66 65 72 65 72 65 72 20 b0 69 6b 6b 65 f0 20 74 69 6c 20 ┆ BIT-B. De refererer ikke til ┆
0x434e0…43500 0a 19 80 84 80 65 6c 65 76 74 65 6b 73 74 65 6e 2c 20 6d 65 6e 20 65 72 20 72 61 72 65 20 61 74 ┆ elevteksten, men er rare at┆
0x43500…43520 20 68 61 76 65 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 2e 20 53 7d 20 6b 61 6e 20 0a 19 80 84 80 ┆ have på disketten. Så kan ┆
0x43520…43540 6d 61 6e 20 62 6c 6f 74 20 73 6b 72 69 76 65 20 6b 6f 6d 61 6e 64 6f 65 6e 20 b0 72 75 6e 20 22 ┆man blot skrive komandoen run "┆
0x43540…43560 74 7b 6e 64 31 30 22 f0 20 65 6c 6c 65 72 20 b0 22 72 75 6e 20 0a 19 80 86 80 22 73 6c 75 6b 31 ┆tænd10" eller "run "sluk1┆
0x43560…43580 30 22 f0 20 68 76 69 73 20 6d 61 6e 20 7c 6e 73 6b 65 72 20 61 74 20 74 7b 6e 64 65 20 65 6c 6c ┆0" hvis man ønsker at tænde ell┆
0x43580…435a0 65 72 20 73 6c 75 6b 6b 65 20 64 65 20 74 6f 20 0a 19 80 86 80 6c 61 6d 70 65 72 2e 0d 0a 0d 0a ┆er slukke de to lamper. ┆
0x435a0…435c0 30 30 31 30 20 2f 2f 20 22 74 7b 6e 64 31 30 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 ┆0010 // "tænd10" 0020 OPEN FILE┆
0x435c0…435e0 20 31 2c 22 2f 31 30 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 ┆ 1,"/10/PORT", WRITE 0030 PRIN┆
0x435e0…43600 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 ┆T FILE 1: CHR$(24);CHR$(5);CHR$(┆
0x43600…43620 (30, 0, 6) 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┆
0x43620…43640 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) -----------┆
0x43640…43660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43660…43680 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┆
0x43680…436a0 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┆
0x436a0…436c0 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┆
0x436c0…436e0 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 ┆
0x436e0…43700 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);┆
0x43700…43720 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┆
0x43720…43740 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┆
0x43740…43760 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┆
0x43760…43780 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┆
0x43780…437a0 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); ┆
0x437a0…437c0 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┆
0x437c0…437e0 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┆
0x437e0…43800 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 :┆
0x43800…43820 (30, 0, 7) 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┆
0x43820…43840 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┆
0x43840…43860 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 ┆
0x43860…43880 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┆
0x43880…438a0 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┆
0x438a0…438c0 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 --------------┆
0x438c0…438e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x438e0…43900 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┆
0x43900…43920 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┆
0x43920…43940 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┆
0x43940…43960 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"┆
0x43960…43980 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┆
0x43980…439a0 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 ┆
0x439a0…439c0 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┆
0x439c0…439e0 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┆
0x439e0…43a00 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┆
0x43a00…43a20 (30, 0, 8) 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) ┆
0x43a20…43a40 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(┆
0x43a40…43a60 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 ┆
0x43a60…43a80 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å┆
0x43a80…43aa0 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.┆
0x43aa0…43ac0 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 ┆
0x43ac0…43ae0 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. -----┆
0x43ae0…43b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43b00…43b20 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┆
0x43b20…43b40 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┆
0x43b40…43b60 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┆
0x43b60…43b80 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┆
0x43b80…43ba0 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 ┆
0x43ba0…43bc0 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); // ┆
0x43bc0…43be0 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) ┆
0x43be0…43c00 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); ┆
0x43c00…43c20 (30, 0, 9) 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┆
0x43c20…43c40 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┆
0x43c40…43c60 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"┆
0x43c60…43c80 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å ┆
0x43c80…43ca0 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 ┆
0x43ca0…43cc0 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┆
0x43cc0…43ce0 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 //┆
0x43ce0…43d00 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,┆
0x43d00…43d20 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┆
0x43d20…43d40 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 ┆
0x43d40…43d60 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┆
0x43d60…43d80 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┆
0x43d80…43da0 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); //┆
0x43da0…43dc0 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 ┆
0x43dc0…43de0 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┆
0x43de0…43e00 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┆
0x43e00…43e20 (30, 1, 1) 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┆
0x43e20…43e40 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 ┆
0x43e40…43e60 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┆
0x43e60…43e80 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┆
0x43e80…43ea0 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)┆
0x43ea0…43ec0 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┆
0x43ec0…43ee0 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 -------------┆
0x43ee0…43f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43f00…43f20 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": ┆
0x43f20…43f40 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┆
0x43f40…43f60 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┆
0x43f60…43f80 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┆
0x43f80…43fa0 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┆
0x43fa0…43fc0 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:┆
0x43fc0…43fe0 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) ┆
0x43fe0…44000 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┆
0x44000…44020 (30, 1, 2) 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┆
0x44020…44040 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┆
0x44040…44060 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┆
0x44060…44080 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┆
0x44080…440a0 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┆
0x440a0…440c0 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┆
0x440c0…440e0 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┆
0x440e0…44100 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┆
0x44100…44120 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$)┆
0x44120…44140 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┆
0x44140…44160 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 ┆
0x44160…44180 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┆
0x44180…441a0 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┆
0x441a0…441c0 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┆
0x441c0…441e0 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┆
0x441e0…44200 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┆
0x44200…44220 (30, 1, 3) 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┆
0x44220…44240 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┆
0x44240…44260 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); // ┆
0x44260…44280 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┆
0x44280…442a0 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 -------┆
0x442a0…442c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x442c0…442e0 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" ┆
0x442e0…44300 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┆
0x44300…44320 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┆
0x44320…44340 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┆
0x44340…44360 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┆
0x44360…44380 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┆
0x44380…443a0 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┆
0x443a0…443c0 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┆
0x443c0…443e0 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) ┆
0x443e0…44400 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);/┆
0x44400…44420 (30, 1, 4) 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 !┆
0x44420…44440 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 ┆ ----------------------------┆
0x44440…44460 2d 2d 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 ┆-------------------------- ┆
0x44460…44480 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┆
0x44480…444a0 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"┆
0x444a0…444c0 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┆
0x444c0…444e0 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┆
0x444e0…44500 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┆
0x44500…44520 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 ┆
0x44520…44540 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┆
0x44540…44560 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┆
0x44560…44580 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┆
0x44580…445a0 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┆
0x445a0…445c0 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┆
0x445c0…445e0 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┆
0x445e0…44600 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 ┆
0x44600…44620 (30, 1, 5) 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┆
0x44620…44640 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┆
0x44640…44660 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┆
0x44660…44680 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 ┆
0x44680…446a0 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 ----------------┆
0x446a0…446c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x446c0…446e0 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┆
0x446e0…44700 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┆
0x44700…44720 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 ┆
0x44720…44740 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 ┆
0x44740…44760 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┆
0x44760…44780 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┆
0x44780…447a0 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); //┆
0x447a0…447c0 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┆
0x447c0…447e0 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$┆
0x447e0…44800 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┆
0x44800…44820 (30, 1, 6) 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┆
0x44820…44840 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┆
0x44840…44860 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┆
0x44860…44880 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 ┆
0x44880…448a0 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┆
0x448a0…448c0 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┆
0x448c0…448e0 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 ┆
0x448e0…44900 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 ┆
0x44900…44920 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 ┆
0x44920…44940 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┆
0x44940…44960 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) ┆
0x44960…44980 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 --------┆
0x44980…449a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x449a0…449c0 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┆
0x449c0…449e0 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 //┆
0x449e0…44a00 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 ┆
0x44a00…44a20 (30, 1, 7) 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 ┆
0x44a20…44a40 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┆
0x44a40…44a60 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┆
0x44a60…44a80 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┆
0x44a80…44aa0 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┆
0x44aa0…44ac0 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$┆
0x44ac0…44ae0 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┆
0x44ae0…44b00 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┆
0x44b00…44b20 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┆
0x44b20…44b40 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┆
0x44b40…44b60 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┆
0x44b60…44b80 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┆
0x44b80…44ba0 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┆
0x44ba0…44bc0 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┆
0x44bc0…44be0 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$┆
0x44be0…44c00 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 ------------------------┆
0x44c00…44c20 (30, 1, 8) 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 ┆
0x44c20…44c40 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┆
0x44c40…44c60 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) ┆
0x44c60…44c80 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 ┆
0x44c80…44ca0 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æ┆
0x44ca0…44cc0 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)┆
0x44cc0…44ce0 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┆
0x44ce0…44d00 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┆
0x44d00…44d20 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┆
0x44d20…44d40 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 ----┆
0x44d40…44d60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x44d60…44d80 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┆
0x44d80…44da0 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); //┆
0x44da0…44dc0 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┆
0x44dc0…44de0 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$┆
0x44de0…44e00 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┆
0x44e00…44e20 (30, 1, 9) 2d 2d 2d 2d 2d 2d 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 ┆------------------------------ ┆
0x44e20…44e40 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┆
0x44e40…44e60 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: ┆
0x44e60…44e80 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┆
0x44e80…44ea0 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┆
0x44ea0…44ec0 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┆
0x44ec0…44ee0 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 ┆
0x44ee0…44f00 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┆
0x44f00…44f20 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┆
0x44f20…44f40 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┆
0x44f40…44f60 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 ┆
0x44f60…44f80 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┆
0x44f80…44fa0 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 ┆
0x44fa0…44fc0 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 ┆
0x44fc0…44fe0 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: ┆
0x44fe0…45000 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:┆
0x45000…45020 (31, 0, 1) 6c 75 6b 6b 65 72 20 42 49 54 2d 41 20 b0 6f 67 f0 20 42 49 54 2d 42 3a 0d 0a 0d 0a 30 30 31 30 ┆lukker BIT-A og BIT-B: 0010┆
0x45020…45040 20 2f 2f 20 22 74 7b 6e 64 31 30 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 ┆ // "tænd10" 0020 OPEN FILE 1,"┆
0x45040…45060 2f 31 30 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 20 46 49 ┆/10/PORT", WRITE 0030 PRINT FI┆
0x45060…45080 4c 45 20 31 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 b0 31 33 30 ┆LE 1: CHR$(24);CHR$(5);CHR$( 130┆
0x45080…450a0 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 20 45 4e 44 ┆ ); 0040 CLOSE FILE 1 0050 END┆
0x450a0…450c0 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 30 20 4f 50 ┆ 0010 // "sluk10" 0020 OP┆
0x450c0…450e0 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 0d 0a 30 30 ┆EN FILE 1,"/10/PORT", WRITE 00┆
0x450e0…45100 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 52 24 28 35 ┆30 PRINT FILE 1: CHR$(24);CHR$(5┆
0x45100…45120 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 45 20 31 0d ┆);CHR$( 0 ); 0040 CLOSE FILE 1 ┆
0x45120…45140 0a 30 30 35 30 20 45 4e 44 20 0d 0a 0c 83 38 0a 0d 0a 0d 0a 0d 0a 1a 1a 30 31 31 30 20 20 20 20 ┆ 0050 END 8 0110 ┆
0x45140…45160 20 45 58 45 43 20 70 61 75 73 65 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ EXEC pause---------------------┆
0x45160…45180 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 49 20 22 6c ┆------------------------ I "l┆
0x45180…451a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x451a0…451c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 22 74 7b 6e 64 ┆-------------------- "tænd┆
0x451c0…451e0 31 30 22 f0 20 6f 67 20 b0 73 6c 75 6b 31 30 22 f0 20 65 72 20 74 6f 20 73 6d 7d 20 70 72 6f 67 ┆10" og sluk10" er to små prog┆
0x451e0…45200 72 61 6d 6d 65 72 20 64 65 72 20 68 68 76 2e 20 0a 19 80 82 80 74 7b 6e 64 65 72 20 6f 67 20 73 ┆rammer der hhv. tænder og s┆
0x45200…45220 (31, 0, 2) 20 45 4e 44 20 0d 0a 0d 0a 0d 0a 22 70 61 75 73 65 2d 61 54 49 44 22 20 65 72 20 65 74 20 6c 7b ┆ END "pause-aTID" er et læ┆
0x45220…45240 72 65 72 70 72 6f 67 72 61 6d 20 64 65 72 20 62 65 6e 79 74 74 65 72 20 6d 69 63 72 6f 27 65 6e ┆rerprogram der benytter micro'en┆
0x45240…45260 73 20 0a 69 6e 74 65 72 6e 65 20 75 72 20 74 69 6c 20 6d 7d 6c 69 6e 67 20 61 66 20 61 6e 74 61 ┆s interne ur til måling af anta┆
0x45260…45280 6c 6c 65 74 20 61 66 20 67 65 6e 6e 65 6d 6c 7c 62 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆llet af gennemløb. ----------┆
0x45280…452a0 65 6e 6e 65 6d 6c 7c 62 20 64 65 72 20 73 6b 61 6c 20 74 69 6c 20 70 72 2e 20 74 69 64 73 65 6e ┆ennemløb der skal til pr. tidsen┆
0x452a0…452c0 68 65 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 70 61 75 73 65 2d 61 22 0d 0a b0 30 30 32 ┆hed: 0010 // "pause-a" 002┆
0x452c0…452e0 30 20 6e 3a 3d 30 0d 0a b0 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 6e ┆0 n:=0 0030 REPEAT 0040 n┆
0x452e0…45300 3a 3d 6e 2b 31 0d 0a b0 30 30 35 30 20 55 4e 54 49 4c 20 6e 3d 31 30 30 30 0d 0a b0 30 30 36 30 ┆:=n+1 0050 UNTIL n=1000 0060┆
0x45300…45320 61 73 74 6c 7b 67 67 65 20 70 61 75 73 65 6e 73 20 0a 6c 7b 6e 67 64 65 2e 20 53 7d 20 6d 7d 20 ┆astlægge pausens længde. Så må ┆
0x45320…45340 65 6c 65 76 65 72 6e 65 20 74 61 67 65 20 74 69 64 20 6d 65 64 20 65 74 20 73 74 6f 70 75 72 20 ┆eleverne tage tid med et stopur ┆
0x45340…45360 6f 67 20 6b 7c 72 65 20 0a 70 72 6f 67 72 61 6d 6d 65 74 20 6e 6f 67 6c 65 20 67 61 6e 67 65 20 ┆og køre programmet nogle gange ┆
0x45360…45380 66 6f 72 20 61 74 20 66 69 6e 64 65 20 75 64 20 61 66 20 68 76 6f 72 20 6d 61 6e 67 65 20 0a 67 ┆for at finde ud af hvor mange g┆
0x45380…453a0 2d 2d 2d 2d 0d 0a 0c 83 70 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 50 41 55 53 45 ┆---- p PROBLEM "PAUSE┆
0x453a0…453c0 22 3a 0d 0a 0d 0a 0d 0a 44 65 6e 20 73 69 6d 70 6c 65 73 74 65 20 6d 7d 64 65 20 61 74 20 6c 61 ┆": Den simpleste måde at la┆
0x453c0…453e0 76 65 20 65 6e 20 70 61 75 73 65 20 70 7d 20 65 72 20 65 6e 20 52 45 50 45 41 54 2f 20 0a 55 4e ┆ve en pause på er en REPEAT/ UN┆
0x453e0…45400 54 49 4c 2d 6c 7c 6b 6b 65 20 6d 65 64 20 65 6e 20 74 7b 6c 6c 65 72 20 74 69 6c 20 61 74 20 66 ┆TIL-løkke med en tæller til at f┆
0x45400…45420 (31, 0, 3) 2f 2f 20 22 62 6c 69 6e 6b 2d 37 2f 30 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 ┆// "blink-7/0" 0020 OPEN FILE ┆
0x45420…45440 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 52 45 50 45 ┆1,"/17/PORT", WRITE 0030 REPE┆
0x45440…45460 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 52 24 28 ┆AT 0040 PRINT FILE 1: CHR$(┆
0x45460…45480 31 29 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 b0 30 ┆1); 0050 EXEC pause(0.5) 0┆
0x45480…454a0 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 32 38 29 3b 0d 0a ┆060 PRINT FILE 1: CHR$(128); ┆
0x454a0…454c0 b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 30 38 30 20 55 ┆ 0070 EXEC pause(0.5) 0080 U┆
0x454c0…454e0 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 30 39 30 20 50 52 49 4e 54 20 46 ┆NTIL ORD(KEY$)=32 0090 PRINT F┆
0x454e0…45500 49 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 46 49 4c ┆ILE 1: CHR$(0); 0100 CLOSE FIL┆
0x45500…45520 45 20 31 0d 0a b0 30 31 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 6c ┆E 1 0110 END 0040 : Her l┆
0x45520…45540 79 73 65 72 20 6b 75 6e 20 42 49 54 2d 30 20 70 7b 72 65 6e 2e 0d 0a 0d 0a b0 30 30 36 30 f0 3a ┆yser kun BIT-0 pæren. 0060 :┆
0x45540…45560 20 48 65 72 20 6c 79 73 65 72 20 6b 75 6e 20 42 49 54 2d 37 20 70 7b 72 65 6e 0d 0a 0d 0a 2d 2d ┆ Her lyser kun BIT-7 pæren --┆
0x45560…45580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x45580…455a0 2d 2d 2d 2d 2d 2d 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 ┆-------------------- PROBL┆
0x455a0…455c0 45 4d 20 22 42 4c 49 4e 4b 2d 41 2f 42 22 3a 0d 0a 0d 0a 0d 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 ┆EM "BLINK-A/B": Her kommer ┆
0x455c0…455e0 73 7d 20 64 65 74 20 66 7c 72 73 74 65 20 70 72 6f 67 72 61 6d 20 64 65 72 20 73 74 79 72 65 72 ┆så det første program der styrer┆
0x455e0…45600 20 64 65 20 74 6f 20 0a 65 6b 73 74 72 61 20 62 69 74 2e 20 50 6f 72 74 20 31 37 2c 20 73 6f 6d ┆ de to ekstra bit. Port 17, som┆
0x45600…45620 (31, 0, 4) 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 64 65 72 0d 0a b0 ┆ UNTIL slut-start>=sekunder ┆
0x45620…45640 30 35 36 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 ┆0560 ENDPROC pause ----------┆
0x45640…45660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x45660…45680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 50 72 6f 67 72 61 6d 6d 65 74 20 6b 61 6e ┆------------ Programmet kan┆
0x45680…456a0 20 6e 61 74 75 72 6c 69 67 76 69 73 20 75 64 62 79 67 67 65 73 20 65 66 74 65 72 20 7c 6e 73 6b ┆ naturligvis udbygges efter ønsk┆
0x456a0…456c0 65 2e 20 49 20 0a 65 6c 65 76 74 65 6b 73 74 65 6e 20 65 72 20 64 65 72 20 65 6b 73 65 6d 70 6c ┆e. I elevteksten er der eksempl┆
0x456c0…456e0 65 72 20 70 7d 20 61 6e 64 72 65 20 66 79 72 2d 6b 61 72 61 6b 74 65 72 69 1e 0d 0a 73 74 69 6b ┆er på andre fyr-karakteri stik┆
0x456e0…45700 6b 65 72 2e 0d 0a 0c 83 30 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 4d 4f 52 53 45 22 ┆ker. 0 PROBLEM "MORSE"┆
0x45700…45720 3a 0d 0a 0d 0a 0d 0a 22 53 4f 53 22 20 28 20 2e 2e 2e 2d 2d 2d 2e 2e 2e 20 29 20 6b 61 6e 20 6c ┆: "SOS" ( ...---... ) kan l┆
0x45720…45740 61 76 65 73 20 65 66 74 65 72 20 22 47 5c 47 2d 4f 47 2d 47 4f 4b 4b 45 2d 0a 4d 45 54 4f 44 45 ┆aves efter "GØG-OG-GOKKE- METODE┆
0x45740…45760 4e 22 2c 20 61 6c 74 73 7d 20 6d 65 64 20 65 6e 20 22 50 52 49 4e 54 20 46 49 4c 45 22 2d 73 7b ┆N", altså med en "PRINT FILE"-sæ┆
0x45760…45780 74 6e 69 6e 67 20 74 69 6c 20 68 76 65 72 20 0a 70 72 69 6b 2f 73 74 72 65 67 20 73 61 6d 74 20 ┆tning til hver prik/streg samt ┆
0x45780…457a0 65 74 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 20 6d 65 6c 6c 65 6d 20 61 6c 6c 65 20 0a 70 72 ┆et procedurekald mellem alle pr┆
0x457a0…457c0 69 6b 6b 65 72 2f 73 74 72 65 67 65 72 2e 20 22 6d 6f 72 73 65 2d 61 22 20 65 72 20 6c 61 76 65 ┆ikker/streger. "morse-a" er lave┆
0x457c0…457e0 74 20 65 66 74 65 72 20 64 65 74 74 65 20 0a 70 72 69 6e 63 69 70 2c 20 73 6f 6d 20 6e 61 74 75 ┆t efter dette princip, som natu┆
0x457e0…45800 72 6c 69 67 76 69 73 20 65 72 20 65 6e 20 62 65 73 76 7b 72 6c 69 67 20 6c 7c 73 6e 69 6e 67 2e ┆rligvis er en besværlig løsning.┆
0x45800…45820 (31, 0, 5) 65 2d 63 54 49 44 31 22 20 6b 61 6e 20 70 61 75 73 65 6c 7b 6e 67 64 65 6e 20 76 61 72 69 65 72 ┆e-cTID1" kan pauselængden varier┆
0x45820…45840 65 73 2e 0d 0a 0d 0a 49 20 22 70 61 75 73 65 2d 63 54 49 44 32 22 20 65 72 20 70 61 75 73 65 6e ┆es. I "pause-cTID2" er pausen┆
0x45840…45860 20 73 6b 72 65 76 74 20 73 6f 6d 20 65 6e 20 70 72 6f 63 65 64 75 72 65 20 64 65 72 20 0a 6b 61 ┆ skrevt som en procedure der ka┆
0x45860…45880 6c 64 65 73 20 73 7d 64 61 6e 3a 20 b0 45 58 45 43 20 70 61 75 73 65 28 33 2e 35 29 f0 2c 20 68 ┆ldes sådan: EXEC pause(3.5) , h┆
0x45880…458a0 6c 65 6e 20 6d 65 6c 6c 65 6d 20 53 4c 55 54 20 6f 67 20 0a 19 80 81 80 53 54 41 52 54 20 65 72 ┆len mellem SLUT og START er┆
0x458a0…458c0 20 31 2c 20 61 6c 74 73 7d 20 31 20 73 65 6b 75 6e 64 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 1, altså 1 sekund. ---------┆
0x458c0…458e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x458e0…45900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 84 90 0a 0d 0a 0d 0a 0d 0a 49 20 22 70 61 75 73 ┆------------- I "paus┆
0x45900…45920 75 65 6c 6c 65 20 0a 19 80 81 80 73 65 6b 75 6e 64 2d 74 61 6c 2e 20 0d 0a 19 80 81 80 0d 0a b0 ┆uelle sekund-tal. ┆
0x45920…45940 30 30 33 30 2d 30 30 35 30 3a f0 20 49 20 64 65 6e 6e 65 20 6c 7c 6b 6b 65 20 67 65 6e 74 61 67 ┆0030-0050: I denne løkke gentag┆
0x45940…45960 65 73 20 61 66 6c 7b 73 6e 69 6e 67 65 6e 20 61 66 20 75 72 65 74 20 0a 19 80 81 80 6d 65 64 20 ┆es aflæsningen af uret med ┆
0x45960…45980 74 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 4c 55 54 20 69 6e 64 74 69 6c 20 66 6f 72 73 6b 65 6c ┆talvariablen SLUT indtil forskel┆
0x45980…459a0 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 0a 19 80 83 80 61 6e 74 61 6c 6c 65 74 20 61 66 20 b0 ┆ svarende til antallet af ┆
0x459a0…459c0 68 65 6c 65 f0 20 73 65 6b 75 6e 64 65 72 2c 20 73 6b 61 6c 20 53 59 53 28 33 29 20 64 69 76 69 ┆hele sekunder, skal SYS(3) divi┆
0x459c0…459e0 64 65 72 65 73 20 6d 65 64 20 0a 19 80 84 80 35 30 21 0d 0a 0d 0a b0 30 30 34 30 3a f0 20 54 61 ┆deres med 50! 0040: Ta┆
0x459e0…45a00 6c 76 61 72 69 61 62 6c 65 6e 20 53 4c 55 54 20 74 69 6c 64 65 6c 65 73 20 64 65 74 20 61 6b 74 ┆lvariablen SLUT tildeles det akt┆
0x45a00…45a20 (31, 0, 6) 20 0a 4d 65 6e 20 64 65 74 20 76 69 72 6b 65 72 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d ┆ Men det virker: 0010 // "m┆
0x45a20…45a40 6f 72 73 65 2d 61 22 0d 0a b0 30 30 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 ┆orse-a" 0020 CLOSE 0030 OPE┆
0x45a40…45a60 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 30 30 ┆N FILE 1,"/17/PORT", WRITE 00┆
0x45a60…45a80 34 30 20 52 45 50 45 41 54 20 0d 0a 0d 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 64 65 20 74 72 65 20 ┆40 REPEAT Her kommer de tre ┆
0x45a80…45aa0 70 72 69 6b 6b 65 72 3a 0d 0a 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆prikker: 0060 PRINT FILE 1┆
0x45aa0…45ac0 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 ┆: CHR$(255); 0070 EXEC pause┆
0x45ac0…45ae0 28 30 2e 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆(0.2) 0080 PRINT FILE 1: CHR┆
0x45ae0…45b00 24 28 30 29 3b 0d 0a b0 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a ┆$(0); 0090 EXEC pause(0.2) ┆
0x45b00…45b20 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 24 28 32 35 35 29 3b ┆ 0100 PRINT FILE 1: CHR$(255);┆
0x45b20…45b40 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 32 30 ┆ 0110 EXEC pause(0.2) 0120┆
0x45b40…45b60 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 31 33 30 ┆ PRINT FILE 1: CHR$(0); 0130┆
0x45b60…45b80 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 34 30 20 20 20 50 52 49 4e ┆ EXEC pause(0.2) 0140 PRIN┆
0x45b80…45ba0 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 31 35 30 20 20 20 45 58 ┆T FILE 1: CHR$(255); 0150 EX┆
0x45ba0…45bc0 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c ┆EC pause(0.2) 0160 PRINT FIL┆
0x45bc0…45be0 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 37 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆E 1: CHR$(0); 0170 EXEC paus┆
0x45be0…45c00 65 28 30 2e 32 29 0d 0a b0 30 31 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 0d ┆e(0.2) 0190 EXEC pause(1) ┆
0x45c00…45c20 (31, 0, 7) 2d 70 65 72 69 6f 64 65 72 20 73 69 64 65 6e 20 6d 69 63 72 6f 27 65 6e 20 0a 19 80 82 80 62 6c ┆-perioder siden micro'en bl┆
0x45c20…45c40 65 76 20 74 7b 6e 64 74 2e 20 56 65 6b 73 65 6c 73 74 72 7c 6d 6d 65 6e 20 65 72 20 70 7d 20 35 ┆ev tændt. Vekselstrømmen er på 5┆
0x45c40…45c60 30 20 70 65 72 69 6f 64 65 72 20 70 72 2e 20 73 65 80 0a 19 80 82 80 6b 75 6e 64 2e 20 48 76 69 ┆0 perioder pr. se kund. Hvi┆
0x45c60…45c80 73 20 b0 53 54 41 52 54 f0 20 73 6b 61 6c 20 74 69 6c 64 65 6c 65 73 20 65 6e 20 76 7b 72 64 69 ┆s START skal tildeles en værdi┆
0x45c80…45ca0 20 76 65 64 20 70 61 75 73 65 6e 73 20 73 74 61 72 74 2e 20 b0 28 53 59 53 28 33 29 f0 20 65 72 ┆ ved pausens start. (SYS(3) er┆
0x45ca0…45cc0 20 65 6e 20 0a 19 80 82 80 66 75 6e 6b 74 69 6f 6e 20 64 65 72 20 68 61 72 20 66 75 6e 6b 74 69 ┆ en funktion der har funkti┆
0x45cc0…45ce0 6f 6e 73 76 7b 72 64 69 65 6e 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 61 6e 74 61 6c 80 0a 19 ┆onsværdien svarende til antal ┆
0x45ce0…45d00 80 82 80 6c 65 74 20 61 66 20 6c 79 73 6e 65 74 74 65 74 73 20 76 65 6b 73 65 6c 73 74 72 7c 6d ┆ let af lysnettets vekselstrøm┆
0x45d00…45d20 f0 20 54 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 54 41 52 54 20 74 69 6c 64 65 6c 65 73 20 65 6e ┆ Talvariablen START tildeles en┆
0x45d20…45d40 20 76 7b 72 64 69 20 73 76 61 72 65 6e 64 65 20 0a 19 80 81 80 74 69 6c 20 64 65 74 20 61 6b 74 ┆ værdi svarende til det akt┆
0x45d40…45d60 75 65 6c 6c 65 20 73 65 6b 75 6e 64 2d 74 61 6c 2e 20 53 54 41 52 54 20 61 6e 76 65 6e 64 65 73 ┆uelle sekund-tal. START anvendes┆
0x45d60…45d80 20 74 69 6c 20 61 74 20 0a 19 80 81 80 67 65 6d 6d 65 20 6b 6c 6f 6b 6b 65 73 6c 65 74 74 65 74 ┆ til at gemme klokkeslettet┆
0x45d80…45da0 31 30 20 2f 2f 20 22 70 61 75 73 65 2d 63 22 0d 0a b0 30 30 32 30 20 73 74 61 72 74 3a 3d 53 59 ┆10 // "pause-c" 0020 start:=SY┆
0x45da0…45dc0 53 28 33 29 2f 35 30 0d 0a b0 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 ┆S(3)/50 0030 REPEAT 0040 ┆
0x45dc0…45de0 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 30 35 30 20 55 4e 54 49 4c 20 73 6c 75 ┆slut:=SYS(3)/50 0050 UNTIL slu┆
0x45de0…45e00 74 2d 73 74 61 72 74 3e 3d 31 0d 0a b0 30 30 36 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 3a ┆t-start>=1 0060 END 0020:┆
0x45e00…45e20 (31, 0, 8) 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 64 65 20 74 72 65 20 73 74 72 65 67 65 72 3a 0d 0a 0d 0a b0 ┆ Her kommer de tre streger: ┆
0x45e20…45e40 30 32 31 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 3b 0d ┆0210 PRINT FILE 1: CHR$(255); ┆
0x45e40…45e60 0a b0 30 32 32 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 32 33 30 20 ┆ 0220 EXEC pause(0.5) 0230 ┆
0x45e60…45e80 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 32 34 30 20 ┆ PRINT FILE 1: CHR$(0); 0240 ┆
0x45e80…45ea0 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 35 30 20 20 20 50 52 49 4e 54 ┆ EXEC pause(0.2) 0250 PRINT┆
0x45ea0…45ec0 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 32 36 30 20 20 20 45 58 45 ┆ FILE 1: CHR$(255); 0260 EXE┆
0x45ec0…45ee0 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 32 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆C pause(0.5) 0270 PRINT FILE┆
0x45ee0…45f00 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 32 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 ┆ 1: CHR$(0); 0280 EXEC pause┆
0x45f00…45f20 28 30 2e 32 29 0d 0a b0 30 32 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆(0.2) 0290 PRINT FILE 1: CHR┆
0x45f20…45f40 24 28 32 35 35 29 3b 0d 0a b0 30 33 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 ┆$(255); 0300 EXEC pause(0.5)┆
0x45f40…45f60 0d 0a b0 30 33 31 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 ┆ 0310 PRINT FILE 1: CHR$(0);┆
0x45f60…45f80 0d 0a b0 30 33 32 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 33 34 30 ┆ 0320 EXEC pause(0.2) 0340┆
0x45f80…45fa0 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 0d 0a 4f 67 20 68 65 72 20 65 72 20 73 7d ┆ EXEC pause(1) Og her er så┆
0x45fa0…45fc0 20 74 72 65 20 70 72 69 6b 6b 65 72 20 69 67 65 6e 3a 0d 0a 0d 0a b0 30 33 36 30 20 20 20 50 52 ┆ tre prikker igen: 0360 PR┆
0x45fc0…45fe0 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 33 37 30 20 20 20 ┆INT FILE 1: CHR$(255); 0370 ┆
0x45fe0…46000 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 2e 0d 0a b0 2e 0d 0a 6f 2e 73 2e 76 2e 0d ┆EXEC pause(0.2) . . o.s.v. ┆
0x46000…46020 (31, 0, 9) 66 6c 7b 73 65 73 20 66 72 61 20 0a 65 74 20 70 72 6f 67 72 61 6d 20 76 65 64 20 61 74 20 74 69 ┆flæses fra et program ved at ti┆
0x46020…46040 6c 64 65 6c 65 20 65 6e 20 74 61 6c 76 61 72 69 61 62 65 6c 20 75 72 65 74 73 20 0a 61 6b 74 75 ┆ldele en talvariabel urets aktu┆
0x46040…46060 65 6c 6c 65 20 6b 6c 6f 6b 6b 65 73 6c 65 74 2e 20 22 70 61 75 73 65 2d 63 22 20 75 64 66 7c 72 ┆elle klokkeslet. "pause-c" udfør┆
0x46060…46080 65 72 20 65 6e 20 70 61 75 73 65 20 70 7d 20 31 20 0a 73 65 6b 75 6e 64 3a 0d 0a 0d 0a b0 30 30 ┆er en pause på 1 sekund: 00┆
0x46080…460a0 2d 2d 2d 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 44 ┆--------------------------- D┆
0x460a0…460c0 65 6e 20 62 65 64 73 74 65 20 6d 65 74 6f 64 65 20 61 74 20 6c 61 76 65 20 65 6e 20 70 61 75 73 ┆en bedste metode at lave en paus┆
0x460c0…460e0 65 20 70 7d 2c 20 65 72 20 6e 61 74 75 72 6c 69 67 76 69 73 20 0a 61 74 20 62 65 6e 79 74 74 65 ┆e på, er naturligvis at benytte┆
0x460e0…46100 20 6d 69 63 72 6f 27 65 6e 73 20 69 6e 74 65 72 6e 65 20 75 72 2c 20 64 65 72 20 6b 61 6e 20 61 ┆ micro'ens interne ur, der kan a┆
0x46100…46120 6e 76 65 6e 64 74 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 ┆nvendt FOR/NEXT-løkke: 0010 ┆
0x46120…46140 2f 2f 20 22 70 61 75 73 65 2d 62 22 0d 0a b0 30 30 32 30 20 46 4f 52 20 6e 3a 3d 31 20 54 4f 20 ┆// "pause-b" 0020 FOR n:=1 TO ┆
0x46140…46160 31 30 30 30 20 44 4f 0d 0a b0 30 30 33 30 20 4e 45 58 54 20 6e 0d 0a b0 30 30 34 30 20 45 4e 44 ┆1000 DO 0030 NEXT n 0040 END┆
0x46160…46180 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 2d 2d 2d 2d ┆ ---------------------------┆
0x46180…461a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x461a0…461c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 70 61 75 73 65 2d 62 22 20 6f 67 20 22 70 61 ┆------------ "pause-b" og "pa┆
0x461c0…461e0 75 73 65 2d 62 54 49 44 22 20 73 76 61 72 65 72 20 74 69 6c 20 64 65 20 74 6f 20 6f 76 65 6e 6e ┆use-bTID" svarer til de to ovenn┆
0x461e0…46200 7b 76 6e 74 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 2e 20 48 65 72 20 65 72 20 62 6c 6f 74 20 61 ┆ævnte programmer. Her er blot a┆
0x46200…46220 (31, 1, 1) 0a 0d 0a 4f 67 20 74 69 6c 20 73 69 64 73 74 20 61 66 73 6c 75 74 6e 69 6e 67 65 6e 20 70 7d 20 ┆ Og til sidst afslutningen på ┆
0x46220…46240 70 72 6f 67 72 61 6d 6d 65 74 3a 0d 0a 0d 0a b0 30 35 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b ┆programmet: 0510 UNTIL ORD(K┆
0x46240…46260 45 59 24 29 3d 33 32 0d 0a b0 30 35 32 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆EY$)=32 0520 PRINT FILE 1: CHR┆
0x46260…46280 24 28 30 29 3b 0d 0a b0 30 35 33 30 20 43 4c 4f 53 45 20 0d 0a b0 30 35 34 30 20 45 4e 44 20 0d ┆$(0); 0530 CLOSE 0540 END ┆
0x46280…462a0 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 2d ┆ -----------------------------┆
0x462a0…462c0 2d 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 90 0a 0d ┆------------------------- ┆
0x462c0…462e0 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 62 22 20 65 72 20 65 6e 20 6c 7c 73 6e 69 6e 67 20 70 7d 20 ┆ "morse-b" er en løsning på ┆
0x462e0…46300 64 65 74 20 73 61 6d 6d 65 20 70 72 6f 62 6c 65 6d 2e 20 48 65 72 20 65 72 20 0a 64 65 72 20 6c ┆det samme problem. Her er der l┆
0x46300…46320 61 76 65 74 20 65 6e 20 70 72 6f 63 65 64 75 72 65 20 74 69 6c 20 68 68 76 2e 20 65 6e 20 70 72 ┆avet en procedure til hhv. en pr┆
0x46320…46340 69 6b 20 6f 67 20 65 6e 20 73 74 72 65 67 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d ┆ik og en streg: 0010 // "m┆
0x46340…46360 6f 72 73 65 2d 62 22 0d 0a b0 30 30 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 ┆orse-b" 0020 CLOSE 0030 OPE┆
0x46360…46380 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 30 30 ┆N FILE 1,"/17/PORT", WRITE 00┆
0x46380…463a0 34 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 30 35 30 ┆40 PRINT FILE 1: CHR$(0); 0050┆
0x463a0…463c0 20 52 45 50 45 41 54 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 29 0d 0a ┆ REPEAT 0070 EXEC prik(3) ┆
0x463c0…463e0 b0 30 30 38 30 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 30 39 30 ┆ 0080 EXEC mellemrum(1) 0090┆
0x463e0…46400 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 6d ┆ EXEC streg(3) 0100 EXEC m┆
0x46400…46420 (31, 1, 2) 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 72 20 69 6e 64 74 61 73 74 65 73 20 62 6c 69 6e 6b 2d ┆-------- Her indtastes blink-┆
0x46420…46440 68 61 73 74 69 67 68 65 64 65 6e 3a 0d 0a 0d 0a b0 30 31 34 30 20 50 52 4f 43 20 69 6e 64 5f 68 ┆hastigheden: 0140 PROC ind_h┆
0x46440…46460 61 73 74 69 67 68 65 64 0d 0a b0 30 31 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 ┆astighed 0150 PRINT CHR$(12)┆
0x46460…46480 0d 0a b0 30 31 36 30 20 20 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 48 41 53 54 49 47 48 45 44 ┆ 0160 INPUT "SKRIV HASTIGHED┆
0x46480…464a0 20 28 6e 6f 72 6d 61 6c 3d 31 30 30 25 29 3a 20 22 3a 20 0a 19 80 81 80 b0 20 20 20 20 20 20 20 ┆ (normal=100%): ": ┆
0x464a0…464c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x464c0…464e0 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 37 30 20 20 20 6d 65 6c 6c 65 6d 72 75 6d 6c 7b 6e 67 ┆hastighed 0170 mellemrumlæng┆
0x464e0…46500 64 65 3a 3d 30 2e 32 2f 68 61 73 74 69 67 68 65 64 2a 31 30 30 0d 0a b0 30 31 38 30 20 20 20 70 ┆de:=0.2/hastighed*100 0180 p┆
0x46500…46520 72 69 6b 6c 7b 6e 67 64 65 3a 3d 30 2e 32 2f 68 61 73 74 69 67 68 65 64 2a 31 30 30 0d 0a b0 30 ┆riklængde:=0.2/hastighed*100 0┆
0x46520…46540 31 39 30 20 20 20 73 74 72 65 67 6c 7b 6e 67 64 65 3a 3d 30 2e 35 2f 68 61 73 74 69 67 68 65 64 ┆190 streglængde:=0.5/hastighed┆
0x46540…46560 2a 31 30 30 0d 0a b0 30 32 30 30 20 45 4e 44 50 52 4f 43 20 69 6e 64 5f 68 61 73 74 69 67 68 65 ┆*100 0200 ENDPROC ind_hastighe┆
0x46560…46580 64 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 ┆d ---------------------------┆
0x46580…465a0 2d 2d 2d 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 4f ┆--------------------------- O┆
0x465a0…465c0 67 20 68 65 72 20 75 64 66 7c 72 65 73 20 73 65 6c 76 65 20 62 6c 69 6e 6b 2d 73 65 6b 76 65 6e ┆g her udføres selve blink-sekven┆
0x465c0…465e0 73 65 6e 20 6c 69 67 65 73 6f 6d 20 69 0d 0a 22 6d 6f 72 73 65 2d 62 22 3a 0d 0a 0d 0a b0 30 32 ┆sen ligesom i "morse-b": 02┆
0x465e0…46600 32 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 32 33 30 20 20 20 52 45 50 45 41 54 20 0d 0a ┆20 PROC blink 0230 REPEAT ┆
0x46600…46620 (31, 1, 3) 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 ┆ellemrum(1) 0110 EXEC prik(3┆
0x46620…46640 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 37 29 0d 0a b0 30 ┆) 0120 EXEC mellemrum(7) 0┆
0x46640…46660 31 34 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 35 30 20 50 52 ┆140 UNTIL ORD(KEY$)=32 0150 PR┆
0x46660…46680 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 36 30 20 43 4c 4f 53 ┆INT FILE 1: CHR$(0); 0160 CLOS┆
0x46680…466a0 45 20 0d 0a b0 30 31 37 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 31 39 30 20 50 52 4f 43 20 6d 65 6c ┆E 0170 END 0190 PROC mel┆
0x466a0…466c0 6c 65 6d 72 75 6d 28 61 6e 74 61 6c 29 0d 0a b0 30 32 30 30 20 20 20 46 4f 52 20 6e 3a 3d 31 20 ┆lemrum(antal) 0200 FOR n:=1 ┆
0x466c0…466e0 54 4f 20 61 6e 74 61 6c 20 44 4f 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 ┆TO antal DO EXEC pause(0.2) 02┆
0x466e0…46700 31 30 20 45 4e 44 50 52 4f 43 20 6d 65 6c 6c 65 6d 72 75 6d 0d 0a 0d 0a b0 30 32 33 30 20 50 52 ┆10 ENDPROC mellemrum 0230 PR┆
0x46700…46720 4f 43 20 70 72 69 6b 28 61 6e 74 61 6c 29 0d 0a b0 30 32 34 30 20 20 20 46 4f 52 20 70 72 69 6b ┆OC prik(antal) 0240 FOR prik┆
0x46720…46740 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a b0 30 32 35 30 20 20 20 20 20 50 52 49 ┆nr:=1 TO antal DO 0250 PRI┆
0x46740…46760 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 32 36 30 20 20 20 20 ┆NT FILE 1: CHR$(255); 0260 ┆
0x46760…46780 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 37 30 20 20 20 20 20 50 52 49 4e ┆ EXEC pause(0.2) 0270 PRIN┆
0x46780…467a0 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 32 38 30 20 20 20 20 20 45 58 ┆T FILE 1: CHR$(0); 0280 EX┆
0x467a0…467c0 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 39 30 20 20 20 4e 45 58 54 20 70 72 69 6b ┆EC pause(0.2) 0290 NEXT prik┆
0x467c0…467e0 6e 72 0d 0a b0 30 33 30 30 20 45 4e 44 50 52 4f 43 20 70 72 69 6b 0d 0a b0 0d 0a b0 30 33 32 30 ┆nr 0300 ENDPROC prik 0320┆
0x467e0…46800 20 50 52 4f 43 20 73 74 72 65 67 28 61 6e 74 61 6c 29 0d 0a b0 30 33 33 30 20 20 20 46 4f 52 20 ┆ PROC streg(antal) 0330 FOR ┆
0x46800…46820 (31, 1, 4) b0 30 32 34 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 29 0d 0a b0 30 32 35 30 20 20 20 ┆ 0240 EXEC prik(3) 0250 ┆
0x46820…46840 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 32 36 30 20 20 20 20 20 45 ┆ EXEC mellemrum(1) 0260 E┆
0x46840…46860 58 45 43 20 73 74 72 65 67 28 33 29 0d 0a b0 30 32 37 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c ┆XEC streg(3) 0270 EXEC mel┆
0x46860…46880 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 32 38 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 ┆lemrum(1) 0280 EXEC prik(3┆
0x46880…468a0 29 0d 0a b0 30 32 39 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 37 29 0d 0a ┆) 0290 EXEC mellemrum(7) ┆
0x468a0…468c0 b0 30 33 30 30 20 20 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 33 31 ┆ 0300 UNTIL ORD(KEY$)=32 031┆
0x468c0…468e0 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 2d 2d 2d 2d 2d ┆0 ENDPROC blink -------------┆
0x468e0…46900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x46900…46920 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0c 83 58 0a 0d 0a 0d 0a 0d 0a 54 69 6c 20 73 69 64 73 74 20 73 ┆--------- X Til sidst s┆
0x46920…46940 6c 75 6b 6b 65 73 20 6c 61 6d 70 65 72 6e 65 20 6f 67 20 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 ┆lukkes lamperne og datastrømmen ┆
0x46940…46960 6c 75 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 33 33 30 20 50 52 4f 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 ┆lukkes: 0330 PROC lukke_port┆
0x46960…46980 0d 0a b0 30 33 34 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 ┆ 0340 PRINT FILE 1: CHR$(0);┆
0x46980…469a0 0d 0a b0 30 33 35 30 20 20 20 43 4c 4f 53 45 20 0d 0a b0 30 33 36 30 20 45 4e 44 50 52 4f 43 20 ┆ 0350 CLOSE 0360 ENDPROC ┆
0x469a0…469c0 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆lukke_port ------------------┆
0x469c0…469e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x469e0…46a00 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 0d 0a 50 72 6f 63 65 64 75 72 65 72 6e 65 20 b0 70 72 69 6b f0 2c ┆---- Procedurerne prik ,┆
0x46a00…46a20 (31, 1, 5) 73 74 72 65 67 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a b0 30 33 34 30 20 20 20 ┆stregnr:=1 TO antal DO 0340 ┆
0x46a20…46a40 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 3b 0d 0a b0 30 33 35 ┆ PRINT FILE 1: CHR$(255); 035┆
0x46a40…46a60 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 33 36 30 20 20 20 20 ┆0 EXEC pause(0.5) 0360 ┆
0x46a60…46a80 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 33 37 30 20 20 ┆ PRINT FILE 1: CHR$(0); 0370 ┆
0x46a80…46aa0 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 33 38 30 20 20 20 4e 45 58 54 ┆ EXEC pause(0.2) 0380 NEXT┆
0x46aa0…46ac0 20 73 74 72 65 67 6e 72 0d 0a b0 30 33 39 30 20 45 4e 44 50 52 4f 43 20 73 74 72 65 67 0d 0a 0d ┆ stregnr 0390 ENDPROC streg ┆
0x46ac0…46ae0 0a 0d 0a b0 30 30 37 30 2d 30 31 32 30 f0 3a 20 48 65 72 20 22 6b 61 6c 64 65 73 22 20 70 72 69 ┆ 0070-0120 : Her "kaldes" pri┆
0x46ae0…46b00 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e 65 20 68 76 65 72 20 0a 19 80 81 80 66 6f ┆kkerne og stregerne hver fo┆
0x46b00…46b20 72 20 73 69 67 2e 20 b0 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 f0 20 73 76 61 72 65 ┆r sig. EXEC mellemrum(1) svare┆
0x46b20…46b40 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 6d 65 6c 6c 65 6d 20 0a 19 80 82 80 70 72 69 6b ┆r til mellemrum mellem prik┆
0x46b40…46b60 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e 65 20 69 20 6f 67 20 6d 65 6c 6c 65 6d 20 62 ┆kerne og stregerne i og mellem b┆
0x46b60…46b80 6f 67 73 74 61 76 65 72 6e 65 2c 20 6f 67 20 0a 19 80 82 80 b0 45 58 45 43 20 6d 65 6c 6c 65 6d ┆ogstaverne, og EXEC mellem┆
0x46b80…46ba0 72 75 6d 28 37 29 f0 20 73 76 61 72 65 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 6d 65 6c ┆rum(7) svarer til mellemrum mel┆
0x46ba0…46bc0 6c 65 6d 20 6f 72 64 65 6e 65 2e 20 20 20 20 0d 0a 0d 0a b0 30 31 39 30 2d 30 32 31 30 f0 3a 20 ┆lem ordene. 0190-0210 : ┆
0x46bc0…46be0 45 74 20 6d 65 6c 6c 65 6d 72 75 6d 20 73 76 61 72 65 72 20 62 6c 6f 74 20 74 69 6c 20 65 6e 20 ┆Et mellemrum svarer blot til en ┆
0x46be0…46c00 70 61 75 73 65 20 70 7d 20 0a 19 80 81 80 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 ┆pause på 0.2 sekunder. ┆
0x46c00…46c20 (31, 1, 6) 20 b0 73 74 72 65 67 f0 20 6f 67 20 b0 70 61 75 73 65 f0 20 65 72 20 73 6f 6d 20 69 20 70 72 6f ┆ streg og pause er som i pro┆
0x46c20…46c40 67 72 61 6d 6d 65 74 20 0a 19 80 83 80 22 6d 6f 72 73 65 2d 62 22 2e 0d 0a 0c 81 00 0a 0d 0a 0d ┆grammet "morse-b". ┆
0x46c40…46c60 0a 0d 0a 22 6d 6f 72 73 65 2d 64 22 20 62 6c 69 6e 6b 65 72 20 6e 61 76 6e 65 74 20 b0 4f 4c 45 ┆ "morse-d" blinker navnet OLE┆
0x46c60…46c80 f0 20 28 2f 2d 2d 2d 2f 2e 2d 2e 2e 2f 2e 2f 29 2e 20 48 65 72 20 62 6c 6f 74 20 70 72 6f 63 65 ┆ (/---/.-.././). Her blot proce┆
0x46c80…46ca0 64 75 72 65 6e 20 0a 19 80 81 80 b0 62 6c 69 6e 6b f0 3a 0d 0a 0d 0a b0 30 32 34 30 20 50 52 4f ┆duren blink : 0240 PRO┆
0x46ca0…46cc0 43 20 62 6c 69 6e 6b 0d 0a b0 30 32 35 30 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 32 36 30 20 ┆C blink 0250 REPEAT 0260 ┆
0x46cc0…46ce0 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 32 37 30 20 20 20 ┆ // --------------- 0270 ┆
0x46ce0…46d00 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 2e 20 4f ┆ EXEC streg(3) .... O┆
0x46d00…46d20 20 0d 0a b0 30 32 38 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 29 0d 0a ┆ 0280 EXEC mellemrum(5) ┆
0x46d20…46d40 b0 30 32 39 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 ┆ 0290 // --------------- 0┆
0x46d40…46d60 33 30 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 31 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆300 EXEC prik(1) ┆
0x46d60…46d80 2e 2e 2e 2e 20 4c 20 0d 0a b0 30 33 31 30 20 20 20 20 20 45 58 45 43 20 73 74 72 65 67 28 31 29 ┆.... L 0310 EXEC streg(1)┆
0x46d80…46da0 0d 0a b0 30 33 32 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 32 29 0d 0a b0 30 33 33 30 20 ┆ 0320 EXEC prik(2) 0330 ┆
0x46da0…46dc0 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 29 0d 0a b0 30 33 34 30 20 20 20 20 ┆ EXEC mellemrum(5) 0340 ┆
0x46dc0…46de0 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 33 35 30 20 20 20 20 20 45 ┆ // --------------- 0350 E┆
0x46de0…46e00 58 45 43 20 70 72 69 6b 28 31 29 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 2e 20 45 0d 0a b0 ┆XEC prik(1) .... E ┆
0x46e00…46e20 (31, 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┆
0x46e20…46e40 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┆
0x46e40…46e60 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┆
0x46e60…46e80 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┆
0x46e80…46ea0 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 ┆
0x46ea0…46ec0 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å ┆
0x46ec0…46ee0 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┆
0x46ee0…46f00 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æ┆
0x46f00…46f20 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┆
0x46f20…46f40 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┆
0x46f40…46f60 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┆
0x46f60…46f80 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┆
0x46f80…46fa0 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┆
0x46fa0…46fc0 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┆
0x46fc0…46fe0 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 ┆
0x46fe0…47000 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┆
0x47000…47020 (31, 1, 8) 30 33 36 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 29 0d 0a b0 30 33 37 ┆0360 EXEC mellemrum(5) 037┆
0x47020…47040 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 33 38 30 20 ┆0 // --------------- 0380 ┆
0x47040…47060 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 29 0d 0a b0 30 33 39 30 20 20 20 20 ┆ EXEC mellemrum(5) 0390 ┆
0x47060…47080 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 34 30 30 20 20 20 55 4e 54 ┆ // --------------- 0400 UNT┆
0x47080…470a0 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 34 31 30 20 45 4e 44 50 52 4f 43 20 62 ┆IL ORD(KEY$)=32 0410 ENDPROC b┆
0x470a0…470c0 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 2d 2d 2d ┆link ------------------------┆
0x470c0…470e0 2d 2d 2d 2d 2d 2d 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 ┆------------------------------ ┆
0x470e0…47100 0d 0a 0d 0a 44 65 74 20 73 6b 61 6c 20 6e 7b 76 6e 65 73 2c 20 61 74 20 6d 6f 72 73 65 70 72 6f ┆ Det skal nævnes, at morsepro┆
0x47100…47120 67 72 61 6d 6d 65 72 6e 65 20 65 72 20 73 76 7b 72 65 2c 20 0a 19 80 81 80 6f 67 20 64 65 74 20 ┆grammerne er svære, og det ┆
0x47120…47140 76 69 6c 20 69 6b 6b 65 20 76 7b 72 65 20 66 6f 72 6b 65 72 74 20 61 74 20 73 70 72 69 6e 67 65 ┆vil ikke være forkert at springe┆
0x47140…47160 20 64 65 6d 20 6f 76 65 72 20 68 76 69 73 20 0a 19 80 82 80 65 6c 65 76 65 72 6e 65 73 20 66 6f ┆ dem over hvis elevernes fo┆
0x47160…47180 72 75 64 73 7b 74 6e 69 6e 67 65 72 20 65 6c 6c 65 72 20 69 6e 74 65 72 65 73 73 65 20 69 6b 6b ┆rudsætninger eller interesse ikk┆
0x47180…471a0 65 20 73 6c 7d 72 20 0a 19 80 83 80 74 69 6c 2e 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 65 22 2c 20 70 ┆e slår til. "morse-e", p┆
0x471a0…471c0 7d 20 6e 7b 73 74 65 20 73 69 64 65 2c 20 65 72 20 66 6f 72 20 65 6b 73 65 6d 70 65 6c 20 69 20 ┆å næste side, er for eksempel i ┆
0x471c0…471e0 6f 76 65 72 6b 61 6e 74 65 6e 20 0a 61 66 20 68 76 61 64 20 65 6c 65 76 65 72 6e 65 20 6d 7d 20 ┆overkanten af hvad eleverne må ┆
0x471e0…47200 66 6f 72 76 65 6e 74 65 73 20 61 74 20 6b 75 6e 6e 65 20 6b 6c 61 72 65 2e 0d 0a 0c 82 98 0a 0d ┆forventes at kunne klare. ┆
0x47200…47220 (31, 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%┆
0x47220…47240 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┆
0x47240…47260 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┆
0x47260…47280 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┆
0x47280…472a0 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┆
0x472a0…472c0 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 ┆
0x472c0…472e0 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 ┆
0x472e0…47300 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 ┆ ----------------------------┆
0x47300…47320 2d 2d 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┆
0x47320…47340 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┆
0x47340…47360 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 ┆
0x47360…47380 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┆
0x47380…473a0 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┆
0x473a0…473c0 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┆
0x473c0…473e0 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 --------------┆
0x473e0…47400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x47400…47600 (32, 0, 1) 0xe5[0x200]
[…0x47…]