|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Names: »KERNE.CML«
└─⟦b8c2906c0⟧ Bits:30004180 METANIC COMAL v. 1.6 og en del COMAL programmer (Comet)
└─⟦this⟧ »KERNE.CML«
0x0000…0020 (0,) 50 05 13 78 ff 30 f9 09 00 20 20 44 45 46 20 20 2f 2f f8 5a 05 4e 72 4e a4 45 14 00 31 32 32 32 ┆P x 0 DEF // Z NrN E 1222┆ 0x0020…0040 33 31 34 34 34 31 31 34 34 34 31 31 33 33 33 32 e6 45 14 00 31 32 32 32 32 31 33 33 33 34 31 34 ┆3144411444113332 E 122221333414┆ 0x0040…0060 34 34 34 31 33 33 33 33 e6 45 14 00 31 32 32 32 32 31 33 33 33 34 31 34 34 34 34 31 34 34 34 34 ┆44413333 E 12222133341444414444┆ 0x0060…0080 f8 64 05 13 78 ff 31 f9 09 00 20 20 47 48 49 20 20 2f 2f f8 6e 05 4e 72 af a4 45 14 00 33 32 32 ┆ d x 1 GHI // n Nr E 322┆ 0x0080…00a0 32 33 31 34 34 34 34 31 34 34 32 31 32 33 33 33 32 e6 45 14 00 31 34 34 34 31 31 33 33 33 31 31 ┆23144441442123332 E 14441133311┆ 0x00a0…00c0 34 34 34 31 31 34 34 34 31 e6 45 14 00 34 35 34 31 34 34 35 34 31 34 34 35 34 31 34 34 35 34 31 ┆444114441 E 4541445414454144541┆ 0x00c0…00e0 34 f8 78 05 13 78 ff 32 f9 09 00 20 20 4a 4b 4c 20 20 2f 2f f8 82 05 4e 72 10 a5 45 14 00 35 34 ┆4 x x 2 JKL // Nr E 54┆ 0x00e0…0100 34 34 31 35 34 34 34 31 35 34 34 34 31 35 32 33 33 32 e6 45 14 00 31 34 34 33 32 31 33 32 34 34 ┆441544415444152332 E 1443213244┆ 0x0100…0120 31 32 32 33 34 31 34 34 34 31 e6 45 14 00 31 34 34 34 34 31 34 34 34 34 31 34 34 34 34 31 33 33 ┆1223414441 E 144441444414444133┆ 0x0120…0140 33 33 f8 8c 05 13 78 ff 33 f9 09 00 20 20 4d 4e 4f 20 20 2f 2f f8 96 05 4e 72 71 a5 45 14 00 31 ┆33 x 3 MNO // Nrq E 1┆ 0x0140…0160 33 34 33 31 31 32 31 32 31 31 34 34 34 31 31 34 34 34 31 e6 45 14 00 31 33 34 34 31 31 32 31 34 ┆3431121211444114441 E 134411214┆ 0x0160…0180 31 31 34 31 33 31 31 34 34 32 31 e6 45 14 00 33 32 32 32 33 31 34 34 34 31 31 34 34 34 31 32 33 ┆11413114421 E 32223144411444123┆ 0x0180…01a0 33 33 32 f8 a0 05 13 78 ff 34 f9 09 00 20 20 50 51 52 20 20 2f 2f f8 aa 05 4e 72 d2 a5 45 14 00 ┆332 x 4 PQR // Nr E ┆ 0x01a0…01c0 31 32 32 32 33 31 33 33 33 32 31 34 34 34 34 31 34 34 34 34 e6 45 14 00 33 32 32 32 33 31 34 34 ┆12223133321444414444 E 32223144┆ 0x01c0…01e0 34 31 31 34 33 34 31 32 33 33 31 31 e6 45 14 00 31 32 32 32 33 31 33 33 33 32 31 34 31 33 34 31 ┆411434123311 E 1222313332141341┆ 0x01e0…0200 34 34 32 31 f8 b4 05 13 78 ff 35 f9 09 00 20 20 53 54 55 20 20 2f 2f f8 be 05 4e 72 33 a6 45 14 ┆4421 x 5 STU // Nr3 E ┆ 0x0200…0220 (1,) 00 33 32 32 32 33 32 33 33 33 34 69 01 34 34 34 34 31 32 33 33 33 32 e6 45 14 00 32 32 31 32 32 ┆ 3222323334i 4444123332 E 22122┆ 0x0220…0240 34 34 31 34 34 34 34 31 34 34 34 34 31 34 34 e6 45 14 00 31 34 34 34 31 31 34 34 34 31 31 34 34 ┆441444414444144 E 1444114441144┆ 0x0240…0260 34 31 32 33 33 33 32 f8 c8 05 13 78 ff 36 f9 09 00 20 20 56 57 58 20 20 2f 2f f8 d2 05 4e 72 94 ┆4123332 x 6 VWX // Nr ┆ 0x0260…0280 a6 45 14 00 31 34 34 34 31 31 34 34 34 31 32 31 34 31 32 34 32 31 32 34 e6 45 14 00 31 34 34 34 ┆ E 14441144412141242124 E 1444┆ 0x0280…02a0 31 31 34 33 34 31 31 33 32 33 31 31 32 34 32 31 e6 45 14 00 31 33 34 33 31 34 32 33 32 34 33 31 ┆1143411323112421 E 134314232431┆ 0x02a0…02c0 32 31 33 31 34 34 34 31 f8 dc 05 13 78 ff 37 f9 09 00 20 20 59 5a 5b 20 20 2f 2f f8 e6 05 4e 72 ┆21314441 x 7 YZÆ // Nr┆ 0x02c0…02e0 f5 a6 45 14 00 31 34 34 34 31 32 31 34 31 32 34 32 31 32 34 34 34 31 34 34 e6 45 14 00 32 32 32 ┆ E 14441214124212444144 E 222┆ 0x02e0…0300 32 31 34 34 33 32 32 33 33 32 34 34 31 33 33 33 33 e6 45 14 00 33 32 31 32 32 31 34 31 34 34 31 ┆21443223324413333 E 32122141441┆ 0x0300…0320 32 31 32 34 31 34 31 33 33 f8 f0 05 13 78 ff 38 f9 09 00 20 20 5c 5d 01 20 20 2f 2f f8 fa 05 4e ┆212414133 x 8 ØÅ // N┆ 0x0320…0340 72 00 00 45 14 00 33 32 32 31 31 31 34 31 34 31 31 34 31 34 31 31 31 33 33 32 e6 45 14 00 34 31 ┆r E 32211141411414111332 E 41┆ 0x0340…0360 32 31 34 31 32 32 32 31 31 33 33 33 31 31 34 34 34 31 e6 45 14 00 34 34 34 34 34 34 34 34 34 34 ┆214122211333114441 E 4444444444┆ 0x0360…0380 34 34 34 34 34 34 34 34 34 34 f8 04 06 07 75 ff 01 f8 10 27 00 91 20 02 04 03 03 03 03 03 03 03 ┆4444444444 u ' ┆ 0x0380…03a0 04 03 03 04 03 04 03 03 03 03 03 03 03 04 04 04 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ┆ ┆ 0x03a0…03c0 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 02 04 04 04 04 04 03 03 03 ┆ ┆ 0x03c0…03e0 03 03 03 03 03 04 03 07 4b 4f 4e 54 52 4f 4c 04 46 45 4c 54 04 46 45 4a 4c 06 53 4b 52 49 44 54 ┆ KONTROL FELT FEJL SKRIDT┆ 0x03e0…0400 08 50 4f 53 49 54 49 4f 4e 07 54 41 53 54 4c 5b 53 07 4e 55 4c 53 54 49 4c 04 53 4c 55 54 06 4d ┆ POSITION TASTLÆS NULSTIL SLUT M┆ 0x0400…0420 (2,) 20 4d 41 4c 45 52 49 20 6f 67 20 42 49 4c 4c 45 44 45 20 65 72 20 6e 7c 64 76 65 6e 64 69 67 65 ┆ MALERI og BILLEDE er nødvendige┆ 0x0420…0440 20 66 6f 72 20 61 74 20 61 66 76 69 6b 6c 65 20 65 74 20 74 65 67 6e 65 74 0d 30 33 34 30 20 2f ┆ for at afvikle et tegnet 0340 /┆ 0x0440…0460 2f 20 62 69 6c 6c 65 64 65 2e 0d 30 33 35 30 20 2f 2f 0d 30 33 36 30 20 50 52 4f 43 20 4d 41 4c ┆/ billede. 0350 // 0360 PROC MAL┆ 0x0460…0480 45 52 49 0d 30 33 37 30 20 20 43 4c 45 41 52 20 0d 30 33 38 30 20 20 46 4f 52 20 59 3a 3d 32 20 ┆ERI 0370 CLEAR 0380 FOR Y:=2 ┆ 0x0480…04a0 54 4f 20 32 34 20 44 4f 20 0d 30 33 39 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 59 0d 30 34 30 ┆TO 24 DO 0390 CURSOR 1, Y 040┆ 0x04a0…04c0 30 20 20 20 50 52 49 4e 54 20 4c 49 4e 24 28 59 29 3b 0d 30 34 31 30 20 20 4e 45 58 54 20 59 0d ┆0 PRINT LIN$(Y); 0410 NEXT Y ┆ 0x04c0…04e0 30 34 32 30 20 20 43 55 52 53 4f 52 20 31 2c 20 31 0d 30 34 33 30 20 20 50 52 49 4e 54 20 43 48 ┆0420 CURSOR 1, 1 0430 PRINT CH┆ 0x04e0…0500 52 24 28 31 31 29 3b 20 2f 2f 20 27 42 61 63 6b 73 63 72 6f 6c 6c 27 20 2f 2f 0d 30 34 34 30 20 ┆R$(11); // 'Backscroll' // 0440 ┆ 0x0500…0520 20 43 55 52 53 4f 52 20 31 2c 20 31 0d 30 34 35 30 20 20 50 52 49 4e 54 20 4c 49 4e 24 28 31 29 ┆ CURSOR 1, 1 0450 PRINT LIN$(1)┆ 0x0520…0540 0d 30 34 36 30 20 20 43 55 52 53 4f 52 20 31 2c 20 32 34 0d 30 34 37 30 20 45 4e 44 50 52 4f 43 ┆ 0460 CURSOR 1, 24 0470 ENDPROC┆ 0x0540…0560 20 4d 41 4c 45 52 49 0d 30 34 38 30 20 50 52 4f 43 20 42 49 4c 4c 45 44 45 0d 30 34 39 30 20 20 ┆ MALERI 0480 PROC BILLEDE 0490 ┆ 0x0560…0580 4f 50 45 4e 20 46 49 4c 45 20 32 2c 20 42 49 4c 4c 45 44 4e 41 56 4e 24 2c 20 52 41 4e 44 4f 4d ┆OPEN FILE 2, BILLEDNAVN$, RANDOM┆ 0x0580…05a0 20 2c 20 38 33 0d 30 35 30 30 20 20 46 4f 52 20 59 3a 3d 31 20 54 4f 20 32 34 20 44 4f 20 0d 30 ┆ , 83 0500 FOR Y:=1 TO 24 DO 0┆ 0x05a0…05c0 35 31 30 20 20 20 52 45 41 44 20 46 49 4c 45 20 32 2c 20 59 3a 20 4c 49 4e 24 28 59 29 0d 30 35 ┆510 READ FILE 2, Y: LIN$(Y) 05┆ 0x05c0…05e0 32 30 20 20 4e 45 58 54 20 59 0d 30 35 33 30 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 32 0d 30 35 ┆20 NEXT Y 0530 CLOSE FILE 2 05┆ 0x05e0…0600 34 30 20 20 45 58 45 43 20 4d 41 4c 45 52 49 0d 30 35 35 30 20 45 4e 44 50 52 4f 43 20 42 49 4c ┆40 EXEC MALERI 0550 ENDPROC BIL┆ 0x0600…0620 (3,) 4c 45 44 45 0d 30 35 36 30 20 2f 2f 0d 30 35 37 30 20 2f 2f 20 4e 65 64 65 6e 73 74 7d 65 6e 64 ┆LEDE 0560 // 0570 // Nedenståend┆ 0x0620…0640 65 20 70 72 6f 67 72 61 6d 73 74 75 6d 70 65 72 20 65 72 20 68 65 6e 74 65 74 20 66 72 61 20 53 ┆e programstumper er hentet fra S┆ 0x0640…0660 50 49 4c 45 58 2e 0d 30 35 38 30 20 2f 2f 20 4e 6f 67 65 74 20 6c 69 67 6e 65 6e 64 65 20 6b 61 ┆PILEX. 0580 // Noget lignende ka┆ 0x0660…0680 6e 20 61 6e 76 65 6e 64 65 73 2c 20 68 76 69 73 20 6d 61 6e 20 76 69 6c 20 6c 61 76 65 20 73 70 ┆n anvendes, hvis man vil lave sp┆ 0x0680…06a0 69 6c 2c 20 64 65 72 20 62 79 67 67 65 72 20 70 7d 0d 30 35 39 30 20 2f 2f 20 73 70 69 6c 6c 65 ┆il, der bygger på 0590 // spille┆ 0x06a0…06c0 70 6c 61 64 65 72 20 74 65 67 6e 65 74 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 46 55 4c 4c 2d ┆plader tegnet ved hjælp af FULL-┆ 0x06c0…06e0 53 43 52 45 45 4e 2d 45 44 49 54 4f 52 2e 0d 30 36 30 30 20 2f 2f 0d 30 36 31 30 20 53 4c 55 54 ┆SCREEN-EDITOR. 0600 // 0610 SLUT┆ 0x06e0…0700 3a 3d 31 33 20 2f 2f 20 52 45 54 55 52 4e 2d 74 61 73 74 65 6e 20 62 72 75 67 65 73 20 74 69 6c ┆:=13 // RETURN-tasten bruges til┆ 0x0700…0720 20 61 74 20 73 6c 69 70 70 65 20 75 64 2e 0d 30 36 32 30 20 42 49 4c 4c 45 44 4e 41 56 4e 24 3a ┆ at slippe ud. 0620 BILLEDNAVN$:┆ 0x0720…0740 3d 22 4d 41 5a 45 22 0d 30 36 33 30 20 45 58 45 43 20 42 49 4c 4c 45 44 45 0d 30 36 34 30 20 45 ┆="MAZE" 0630 EXEC BILLEDE 0640 E┆ 0x0740…0760 58 45 43 20 4e 55 4c 53 54 49 4c 0d 30 36 35 30 20 52 45 50 45 41 54 20 0d 30 36 36 30 20 20 52 ┆XEC NULSTIL 0650 REPEAT 0660 R┆ 0x0760…0780 45 50 45 41 54 20 0d 30 36 37 30 20 20 20 45 58 45 43 20 54 41 53 54 4c 5b 53 0d 30 36 38 30 20 ┆EPEAT 0670 EXEC TASTLÆS 0680 ┆ 0x0780…07a0 20 20 45 58 45 43 20 50 4f 53 49 54 49 4f 4e 0d 30 36 39 30 20 20 55 4e 54 49 4c 20 54 41 53 54 ┆ EXEC POSITION 0690 UNTIL TAST┆ 0x07a0…07c0 23 3d 53 4c 55 54 0d 30 37 30 30 20 20 43 55 52 53 4f 52 20 34 30 2c 20 32 31 0d 30 37 31 30 20 ┆#=SLUT 0700 CURSOR 40, 21 0710 ┆ 0x07c0…07e0 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 62 72 75 67 74 20 22 3b 53 4b 52 49 44 54 3b 22 20 ┆ PRINT "Du har brugt ";SKRIDT;" ┆ 0x07e0…0800 73 6b 72 69 64 74 2e 20 20 20 22 0d 30 37 32 30 20 20 43 55 52 53 4f 52 20 34 30 2c 20 32 32 0d ┆skridt. " 0720 CURSOR 40, 22 ┆ 0x0800…0820 (4,) 30 37 33 30 20 20 50 52 49 4e 54 20 22 44 75 20 74 72 7d 64 74 65 20 70 7d 20 73 74 72 65 67 65 ┆0730 PRINT "Du trådte på strege┆ 0x0820…0840 6e 20 22 3b 46 45 4a 4c 3b 22 20 67 61 6e 67 65 2e 20 20 20 22 0d 30 37 34 30 20 20 43 55 52 53 ┆n ";FEJL;" gange. " 0740 CURS┆ 0x0840…0860 4f 52 20 34 30 2c 20 32 33 0d 30 37 35 30 20 20 50 52 49 4e 54 20 22 56 69 6c 20 64 75 20 66 6f ┆OR 40, 23 0750 PRINT "Vil du fo┆ 0x0860…0880 72 74 73 7b 74 74 65 3f 20 20 4a 2f 4e 20 22 3b 0d 30 37 36 30 20 20 43 41 4c 4c 20 33 30 37 33 ┆rtsætte? J/N "; 0760 CALL 3073┆ 0x0880…08a0 0d 30 37 37 30 20 20 53 56 24 3a 3d 43 48 52 24 28 50 45 45 4b 28 33 30 37 32 29 29 0d 30 37 38 ┆ 0770 SV$:=CHR$(PEEK(3072)) 078┆ 0x08a0…08c0 30 20 20 49 46 20 53 56 24 3d 22 6a 22 20 4f 52 20 53 56 24 3d 22 4a 22 20 54 48 45 4e 20 0d 30 ┆0 IF SV$="j" OR SV$="J" THEN 0┆ 0x08c0…08e0 37 39 30 20 20 20 43 55 52 53 4f 52 20 34 30 2c 20 32 31 0d 30 38 30 30 20 20 20 50 52 49 4e 54 ┆790 CURSOR 40, 21 0800 PRINT┆ 0x08e0…0900 20 43 48 52 24 28 33 31 29 3b 0d 30 38 31 30 20 20 20 43 55 52 53 4f 52 20 34 30 2c 20 32 32 0d ┆ CHR$(31); 0810 CURSOR 40, 22 ┆ 0x0900…0920 30 38 32 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 33 31 29 3b 0d 30 38 33 30 20 20 20 43 55 ┆0820 PRINT CHR$(31); 0830 CU┆ 0x0920…0940 52 53 4f 52 20 34 30 2c 20 32 33 0d 30 38 34 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 33 31 ┆RSOR 40, 23 0840 PRINT CHR$(31┆ 0x0940…0960 29 3b 0d 30 38 35 30 20 20 20 43 55 52 53 4f 52 20 58 2c 20 59 0d 30 38 36 30 20 20 45 4e 44 49 ┆); 0850 CURSOR X, Y 0860 ENDI┆ 0x0960…0980 46 20 0d 30 38 37 30 20 55 4e 54 49 4c 20 53 56 24 3c 3e 22 6a 22 20 41 4e 44 20 53 56 24 3c 3e ┆F 0870 UNTIL SV$<>"j" AND SV$<>┆ 0x0980…09a0 22 4a 22 0d 30 38 38 30 20 43 55 52 53 4f 52 20 31 2c 20 31 0d 30 38 39 30 20 50 52 4f 43 20 50 ┆"J" 0880 CURSOR 1, 1 0890 PROC P┆ 0x09a0…09c0 4f 53 49 54 49 4f 4e 0d 30 39 30 30 20 20 49 46 20 54 41 53 54 23 3d 38 20 54 48 45 4e 20 58 3a ┆OSITION 0900 IF TAST#=8 THEN X:┆ 0x09c0…09e0 2d 31 0d 30 39 31 30 20 20 49 46 20 54 41 53 54 23 3d 31 32 20 54 48 45 4e 20 58 3a 2b 31 0d 30 ┆-1 0910 IF TAST#=12 THEN X:+1 0┆ 0x09e0…0a00 39 32 30 20 20 49 46 20 54 41 53 54 23 3d 31 30 20 54 48 45 4e 20 59 3a 2b 31 0d 30 39 33 30 20 ┆920 IF TAST#=10 THEN Y:+1 0930 ┆ 0x0a00…0a20 (5,) 20 49 46 20 54 41 53 54 23 3d 31 31 20 54 48 45 4e 20 59 3a 2d 31 0d 30 39 34 30 20 20 49 46 20 ┆ IF TAST#=11 THEN Y:-1 0940 IF ┆ 0x0a20…0a40 58 3e 38 30 20 54 48 45 4e 20 58 3a 3d 38 30 0d 30 39 35 30 20 20 49 46 20 58 3c 31 20 54 48 45 ┆X>80 THEN X:=80 0950 IF X<1 THE┆ 0x0a40…0a60 4e 20 58 3a 3d 31 0d 30 39 36 30 20 20 49 46 20 59 3c 31 20 54 48 45 4e 20 59 3a 3d 31 0d 30 39 ┆N X:=1 0960 IF Y<1 THEN Y:=1 09┆ 0x0a60…0a80 37 30 20 20 49 46 20 59 3e 3d 32 34 20 54 48 45 4e 20 59 3a 3d 32 33 0d 30 39 38 30 20 20 50 52 ┆70 IF Y>=24 THEN Y:=23 0980 PR┆ 0x0a80…0aa0 49 4e 54 20 46 45 4c 54 24 0d 30 39 39 30 20 20 43 55 52 53 4f 52 20 58 2c 20 59 0d 31 30 30 30 ┆INT FELT$ 0990 CURSOR X, Y 1000┆ 0x0aa0…0ac0 20 20 50 52 49 4e 54 20 22 2a 22 3b 0d 31 30 31 30 20 20 43 55 52 53 4f 52 20 58 2c 20 59 0d 31 ┆ PRINT "*"; 1010 CURSOR X, Y 1┆ 0x0ac0…0ae0 30 32 30 20 20 45 58 45 43 20 4b 4f 4e 54 52 4f 4c 0d 31 30 33 30 20 45 4e 44 50 52 4f 43 20 50 ┆020 EXEC KONTROL 1030 ENDPROC P┆ 0x0ae0…0b00 4f 53 49 54 49 4f 4e 0d 31 30 34 30 20 50 52 4f 43 20 4b 4f 4e 54 52 4f 4c 0d 31 30 35 30 20 20 ┆OSITION 1040 PROC KONTROL 1050 ┆ 0x0b00…0b20 46 45 4c 54 24 3a 3d 4c 49 4e 24 28 59 29 28 58 3a 58 29 0d 31 30 36 30 20 20 49 46 20 46 45 4c ┆FELT$:=LIN$(Y)(X:X) 1060 IF FEL┆ 0x0b20…0b40 54 24 3c 3e 22 20 22 20 54 48 45 4e 20 46 45 4a 4c 3a 2b 31 0d 31 30 37 30 20 45 4e 44 50 52 4f ┆T$<>" " THEN FEJL:+1 1070 ENDPRO┆ 0x0b40…0b60 43 20 4b 4f 4e 54 52 4f 4c 0d 31 30 38 30 20 50 52 4f 43 20 54 41 53 54 4c 5b 53 0d 31 30 39 30 ┆C KONTROL 1080 PROC TASTLÆS 1090┆ 0x0b60…0b80 20 20 43 41 4c 4c 20 33 30 37 33 0d 31 31 30 30 20 20 54 41 53 54 23 3a 3d 50 45 45 4b 28 33 30 ┆ CALL 3073 1100 TAST#:=PEEK(30┆ 0x0b80…0ba0 37 32 29 0d 31 31 31 30 20 20 49 46 20 54 41 53 54 23 3c 3e 38 20 41 4e 44 20 54 41 53 54 23 3c ┆72) 1110 IF TAST#<>8 AND TAST#<┆ 0x0ba0…0bc0 3e 31 30 20 41 4e 44 20 54 41 53 54 23 3c 3e 31 31 20 41 4e 44 20 54 41 53 54 23 3c 3e 31 32 20 ┆>10 AND TAST#<>11 AND TAST#<>12 ┆ 0x0bc0…0be0 54 48 45 4e 20 0d 31 31 32 30 20 20 20 43 55 52 53 4f 52 20 58 2c 20 59 0d 31 31 33 30 20 20 45 ┆THEN 1120 CURSOR X, Y 1130 E┆ 0x0be0…0c00 4c 53 45 20 0d 31 31 34 30 20 20 20 53 4b 52 49 44 54 3a 2b 31 0d 31 31 35 30 20 20 45 4e 44 49 ┆LSE 1140 SKRIDT:+1 1150 ENDI┆ 0x0c00…0c20 (6,) 31 34 34 34 34 31 34 34 34 34 31 34 34 22 2c 20 22 31 34 34 34 31 31 34 34 34 31 31 34 34 34 31 ┆1444414444144", "144411444114441┆ 0x0c20…0c40 32 33 33 33 32 22 0d 31 34 38 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 39 20 2f 2f 20 20 56 57 58 ┆23332" 1480 LABEL BLOK19 // VWX┆ 0x0c40…0c60 20 20 2f 2f 0d 31 34 39 30 20 44 41 54 41 20 22 31 34 34 34 31 31 34 34 34 31 32 31 34 31 32 34 ┆ // 1490 DATA "1444114441214124┆ 0x0c60…0c80 32 31 32 34 22 2c 20 22 31 34 34 34 31 31 34 33 34 31 31 33 32 33 31 31 32 34 32 31 22 2c 20 22 ┆2124", "14441143411323112421", "┆ 0x0c80…0ca0 31 33 34 33 31 34 32 33 32 34 33 31 32 31 33 31 34 34 34 31 22 0d 31 35 30 30 20 4c 41 42 45 4c ┆13431423243121314441" 1500 LABEL┆ 0x0ca0…0cc0 20 42 4c 4f 4b 32 30 20 2f 2f 20 20 59 5a 5b 20 20 2f 2f 0d 31 35 31 30 20 44 41 54 41 20 22 31 ┆ BLOK20 // YZÆ // 1510 DATA "1┆ 0x0cc0…0ce0 34 34 34 31 32 31 34 31 32 34 32 31 32 34 34 34 31 34 34 22 2c 20 22 32 32 32 32 31 34 34 33 32 ┆4441214124212444144", "222214432┆ 0x0ce0…0d00 32 33 33 32 34 34 31 33 33 33 33 22 2c 20 22 33 32 31 32 32 31 34 31 34 34 31 32 31 32 34 31 34 ┆23324413333", "32122141441212414┆ 0x0d00…0d20 31 33 33 22 0d 31 35 32 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 32 31 20 2f 2f 20 20 5c 5d 01 20 20 ┆133" 1520 LABEL BLOK21 // ØÅ ┆ 0x0d20…0d40 2f 2f 0d 31 35 33 30 20 44 41 54 41 20 22 33 32 32 31 31 31 34 31 34 31 31 34 31 34 31 31 31 33 ┆// 1530 DATA "322111414114141113┆ 0x0d40…0d60 33 32 22 2c 20 22 34 31 32 31 34 31 32 32 32 31 31 33 33 33 31 31 34 34 34 31 22 2c 20 22 34 34 ┆32", "41214122211333114441", "44┆ 0x0d60…0d80 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 22 0d 31 35 34 30 20 45 4e 44 50 52 4f 43 ┆444444444444444444" 1540 ENDPROC┆ 0x0d80…0da0 20 42 49 47 0d 31 35 32 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 32 31 20 2f 2f 20 20 5c 5d 01 20 20 ┆ BIG 1520 LABEL BLOK21 // ØÅ ┆ 0x0da0…0dc0 2f 2f 0d 31 35 33 30 20 44 41 54 41 20 22 33 32 32 31 31 31 34 31 34 31 31 34 31 34 31 31 31 33 ┆// 1530 DATA "322111414114141113┆ 0x0dc0…0de0 33 32 22 2c 20 22 34 31 32 31 34 31 32 32 32 31 31 33 33 33 31 31 34 34 34 31 22 2c 20 22 34 34 ┆32", "41214122211333114441", "44┆ 0x0de0…0e00 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 34 22 0d 31 35 34 30 20 45 4e 44 50 52 4f 05 ┆444444444444444444" 1540 ENDPRO ┆ 0x0e00…0e20 (7,) 07 00 03 09 67 1c 03 02 00 03 09 f8 0a 00 4a 71 f9 42 00 20 44 65 74 74 65 20 65 72 20 65 74 20 ┆ g Jq B Dette er et ┆ 0x0e20…0e40 65 6b 73 65 6d 70 65 6c 20 70 7d 2c 20 68 76 6f 72 64 61 6e 20 65 74 20 62 69 6c 6c 65 64 65 20 ┆eksempel på, hvordan et billede ┆ 0x0e40…0e60 66 72 65 6d 73 74 69 6c 6c 65 74 20 76 65 64 20 68 6a 7b 6c 70 f8 14 00 48 71 f9 40 00 20 61 66 ┆fremstillet ved hjælp Hq @ af┆ 0x0e60…0e80 20 46 55 4c 4c 2d 53 43 52 45 45 4e 2d 45 44 49 54 4f 52 20 6b 61 6e 20 62 72 75 67 65 73 20 73 ┆ FULL-SCREEN-EDITOR kan bruges s┆ 0x0e80…0ea0 6f 6d 20 75 6e 64 65 72 6c 61 67 20 74 69 6c 20 65 6e 20 70 7b 64 61 67 6f 67 69 73 6b f8 1e 00 ┆om underlag til en pædagogisk ┆ 0x0ea0…0ec0 10 71 f9 08 00 20 6f 70 67 61 76 65 2e f8 28 00 08 71 f9 00 00 f8 32 00 42 71 f9 3a 00 20 50 72 ┆ q opgave. ( q 2 Bq : Pr┆ 0x0ec0…0ee0 6f 67 72 61 6d 6d 65 74 20 65 72 20 73 6b 72 65 76 65 74 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 ┆ogrammet er skrevet ved hjælp af┆ 0x0ee0…0f00 20 46 55 4c 4c 2d 53 43 52 45 45 4e 2d 45 44 49 54 4f 52 2e 20 2f 2f f8 3c 00 22 71 f9 1a 00 20 ┆ FULL-SCREEN-EDITOR. // < "q ┆ 0x0f00…0f20 61 66 20 4a 7c 72 67 65 6e 20 43 68 72 69 73 74 69 61 6e 73 65 6e 20 2f 2f f8 46 00 42 71 f9 3a ┆af Jørgen Christiansen // F Bq :┆ 0x0f20…0f40 00 20 66 6f 72 20 4a 43 20 44 41 54 41 2d 53 45 52 56 49 43 45 2c 20 56 65 73 74 72 65 20 52 69 ┆ for JC DATA-SERVICE, Vestre Ri┆ 0x0f40…0f60 6e 67 67 61 64 65 20 38 34 2c 20 38 30 30 30 20 5d 72 68 75 73 20 43 2e 20 2f 2f f8 50 00 25 71 ┆nggade 84, 8000 Århus C. // P %q┆ 0x0f60…0f80 f9 1d 00 20 44 65 6e 6e 65 20 76 65 72 73 69 6f 6e 20 61 66 20 31 30 2e 31 32 2e 38 31 20 2f 2f ┆ Denne version af 10.12.81 //┆ 0x0f80…0fa0 f8 5a 00 08 71 f9 00 00 f8 64 00 13 af fa 06 47 01 0c 33 31 e6 fa 05 47 cd 00 31 f8 6e 00 13 af ┆ Z q d G 31 G 1 n ┆ 0x0fa0…0fc0 fa 06 47 02 0c 33 31 e6 fa 05 47 84 00 31 f8 78 00 13 af fa 06 47 03 0c 33 31 e6 fa 05 47 f8 00 ┆ G 31 G 1 x G 31 G ┆ 0x0fc0…0fe0 31 f8 82 00 13 af fa 06 47 04 0c 33 31 e6 fa 05 47 32 00 31 f8 8c 00 13 af fa 06 47 05 0c 33 31 ┆1 G 31 G2 1 G 31┆ 0x0fe0…1000 e6 fa 05 47 00 00 31 f8 96 00 13 af fa 06 47 06 0c 33 31 e6 fa 05 47 0c 00 31 f8 a0 00 13 af fa ┆ G 1 G 31 G 1 ┆ 0x1000…1020 (8,) 06 47 07 0c 33 31 e6 fa 05 47 c9 00 31 f8 aa 00 34 73 ff 01 df fa 05 47 01 00 31 e6 ff 02 4a fa ┆ G 31 G 1 4s G 1 J ┆ 0x1020…1040 05 47 19 00 31 4b df fa 05 47 51 00 31 e6 ff 04 df fa 05 47 08 00 31 e6 ff 36 df fa 05 47 01 00 ┆ G 1K GQ 1 G 1 6 G ┆ 0x1040…1060 31 f8 b4 00 0e 73 ff 1e df fa 05 47 04 00 31 f8 be 00 15 a8 fa 04 38 1e 31 ec fa 09 45 04 00 6e ┆1 s G 1 8 1 E n┆ 0x1060…1080 4e 6a 4a 31 f8 c8 00 46 a8 fa 04 37 1b 31 ec fa 06 47 0d 00 33 31 f9 31 00 20 52 45 54 55 52 4e ┆NjJ1 F 7 1 G 31 1 RETURN┆ 0x1080…10a0 2d 74 61 73 74 65 6e 20 62 72 75 67 65 73 20 74 69 6c 20 61 74 20 61 6e 62 72 69 6e 67 65 20 62 ┆-tasten bruges til at anbringe b┆ 0x10a0…10c0 79 65 6e 20 6d 65 64 2e 2f 2f f8 d2 00 15 a8 fa 04 38 04 31 ec fa 09 45 04 00 4b 4f 52 54 31 f8 ┆yen med.// 8 1 E KORT1 ┆ 0x10c0…10e0 dc 00 0a 96 fa 04 41 2d 31 f8 e6 00 12 ad fa 05 47 3c 00 31 e6 fa 05 47 02 00 31 f8 f0 00 1e aa ┆ A-1 G< 1 G 1 ┆ 0x10e0…1100 fa 16 45 11 00 41 6e 62 72 69 6e 67 20 41 20 69 20 5d 72 68 75 73 31 f7 04 f8 fa 00 12 ad fa 05 ┆ E Anbring A i Århus1 ┆ 0x1100…1120 47 3c 00 31 e6 fa 05 47 03 00 31 f8 04 01 1f aa fa 17 45 12 00 6f 67 20 74 72 79 6b 20 70 7d 20 ┆G< 1 G 1 E og tryk på ┆ 0x1120…1140 52 45 54 55 52 4e 2e 31 f7 04 f8 0e 01 40 a8 fa 04 37 65 31 ec fa 06 47 21 00 33 31 e8 fa 04 37 ┆RETURN.1 @ 7e1 G! 31 7┆ 0x1140…1160 66 31 ec fa 06 47 0d 00 33 31 f9 1d 00 5d 72 68 75 73 27 20 62 65 6c 69 67 67 65 6e 68 65 64 20 ┆f1 G 31 Århus' beliggenhed ┆ 0x1160…1180 70 7d 20 6b 6f 72 74 65 74 2e f8 18 01 0a 96 fa 04 41 49 31 f8 22 01 05 7c f8 2c 01 05 7c f8 36 ┆på kortet. AI1 " ø , ø 6┆ 0x1180…11a0 01 0a 96 fa 04 41 26 31 f8 40 01 0a 96 fa 04 41 24 31 f8 4a 01 12 7d 62 9a fa 0a 38 2b 3b 38 1b ┆ A&1 @ A$1 J åb 8+;8 ┆ 0x11a0…11c0 3b 32 59 31 f8 54 01 1a 9c 0d 9b fa 11 38 22 3b 38 65 3b 59 38 23 3b 38 66 3b 59 5b 31 dd f8 5e ┆;2Y1 T 8";8e;Y8#;8f;YÆ1 ^┆ 0x11c0…11e0 01 12 ad fa 05 47 37 00 31 e6 fa 05 47 05 00 31 f8 68 01 24 aa fa 1b 45 16 00 4d 65 67 65 74 20 ┆ G7 1 G 1 h $ E Meget ┆ 0x11e0…1200 66 69 6e 74 21 20 20 20 41 3d 5d 72 68 75 73 2e 31 f7 04 e9 f8 72 01 12 ad fa 05 47 37 00 31 e6 ┆fint! A=Århus.1 r G7 1 ┆ 0x1200…1220 (9,) 46 20 0d 31 31 36 30 20 45 4e 44 50 52 4f 43 20 54 41 53 54 4c 5b 53 0d 31 31 37 30 20 50 52 4f ┆F 1160 ENDPROC TASTLÆS 1170 PRO┆ 0x1220…1240 43 20 4e 55 4c 53 54 49 4c 0d 31 31 38 30 20 20 58 3a 3d 31 3b 20 59 3a 3d 31 3b 20 46 45 4a 4c ┆C NULSTIL 1180 X:=1; Y:=1; FEJL┆ 0x1240…1260 3a 3d 30 3b 20 53 4b 52 49 44 54 3a 3d 30 3b 20 46 45 4c 54 24 3a 3d 22 20 22 0d 31 31 39 30 20 ┆:=0; SKRIDT:=0; FELT$:=" " 1190 ┆ 0x1260…1280 20 43 55 52 53 4f 52 20 58 2c 20 59 0d 31 32 30 30 20 20 50 52 49 4e 54 20 22 2a 22 3b 0d 31 32 ┆ CURSOR X, Y 1200 PRINT "*"; 12┆ 0x1280…12a0 31 30 20 20 43 55 52 53 4f 52 20 58 2c 20 59 0d 31 32 32 30 20 45 4e 44 50 52 4f 43 20 4e 55 4c ┆10 CURSOR X, Y 1220 ENDPROC NUL┆ 0x12a0…12c0 53 54 49 4c 0d 31 32 33 30 20 44 41 54 41 20 22 34 34 34 34 33 34 34 34 33 32 34 33 32 34 34 31 ┆STIL 1230 DATA "4444344432432441┆ 0x12c0…12e0 34 34 34 34 22 2c 20 22 34 31 32 31 34 31 32 34 32 31 31 33 34 33 31 34 31 33 31 34 22 2c 20 22 ┆4444", "41214124211343141314", "┆ 0x12e0…1300 35 34 32 31 34 35 34 34 31 34 35 34 34 31 34 35 34 33 31 33 22 0d 31 32 34 30 20 4c 41 42 45 4c ┆54214544145441454313" 1240 LABEL┆ 0x1300…1320 20 42 4c 4f 4b 37 20 2f 2f 20 20 32 33 34 20 20 2f 2f 0d 31 32 35 30 20 44 41 54 41 20 22 33 32 ┆ BLOK7 // 234 // 1250 DATA "32┆ 0x1320…1340 32 32 33 34 34 33 33 32 34 31 34 34 34 31 33 33 33 33 22 2c 20 22 33 32 32 32 33 34 34 34 33 32 ┆223443324144413333", "3222344432┆ 0x1340…1360 34 34 34 34 31 32 33 33 33 32 22 2c 20 22 34 34 33 31 34 33 32 34 31 34 32 32 32 31 32 34 34 34 ┆4444123332", "443143241422212444┆ 0x1360…1380 31 34 22 0d 31 32 36 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 38 20 2f 2f 20 20 35 36 37 20 20 2f 2f ┆14" 1260 LABEL BLOK8 // 567 //┆ 0x1380…13a0 0d 31 32 37 30 20 44 41 54 41 20 22 31 32 32 32 32 31 33 33 33 34 34 34 34 34 31 32 33 33 33 32 ┆ 1270 DATA "12222133344444123332┆ 0x13a0…13c0 22 2c 20 22 33 32 32 32 33 31 33 33 33 34 31 34 34 34 31 32 33 33 33 32 22 2c 20 22 32 32 32 32 ┆", "32223133341444123332", "2222┆ 0x13c0…13e0 31 34 34 34 33 32 34 34 31 34 34 34 34 31 34 34 22 0d 31 32 38 30 20 4c 41 42 45 4c 20 42 4c 4f ┆1444324414444144" 1280 LABEL BLO┆ 0x13e0…1400 4b 39 20 2f 2f 20 20 38 39 3a 20 20 2f 2f 0d 31 32 39 30 20 44 41 54 41 20 22 33 32 32 32 33 32 ┆K9 // 89: // 1290 DATA "322232┆