|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3328 (0xd00)
Names: »KERNE.CML«
└─⟦fcbeab93f⟧ Bits:30004198 FULL-SCREEN EDITOR vers. 2 på Comet
└─⟦this⟧ »KERNE.CML«
0x000…020 (0,) 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┆ 0x020…040 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 /┆ 0x040…060 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┆ 0x060…080 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 ┆ 0x080…0a0 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┆ 0x0a0…0c0 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 ┆ 0x0c0…0e0 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┆ 0x0e0…100 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 ┆ 0x100…120 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)┆ 0x120…140 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┆ 0x140…160 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 ┆ 0x160…180 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┆ 0x180…1a0 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┆ 0x1a0…1c0 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┆ 0x1c0…1e0 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┆ 0x1e0…200 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┆ 0x200…220 (1,) 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┆ 0x220…240 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┆ 0x240…260 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┆ 0x260…280 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┆ 0x280…2a0 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┆ 0x2a0…2c0 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-┆ 0x2c0…2e0 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┆ 0x2e0…300 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┆ 0x300…320 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$:┆ 0x320…340 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┆ 0x340…360 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┆ 0x360…380 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 ┆ 0x380…3a0 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┆ 0x3a0…3c0 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 ┆ 0x3c0…3e0 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;" ┆ 0x3e0…400 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 ┆ 0x400…420 (2,) 21 9d 0f db fa 0a 38 22 3b 47 01 00 33 56 31 dd a8 fa 04 37 22 31 ec fa 06 47 01 00 33 31 f8 94 ┆! 8";G 3V1 7"1 G 31 ┆ 0x420…440 02 21 9d 0f db fa 0a 38 23 3b 47 01 00 33 56 31 dd a8 fa 04 37 23 31 ec fa 06 47 01 00 33 31 f8 ┆ ! 8#;G 3V1 7#1 G 31 ┆ 0x440…460 9e 02 21 9d 0f db fa 0a 38 23 3b 47 18 00 33 57 31 dd a8 fa 04 37 23 31 ec fa 06 47 17 00 33 31 ┆ ! 8#;G 3W1 7#1 G 31┆ 0x460…480 f8 a8 02 0d aa fa 05 38 36 3b 31 f7 04 f8 b2 02 14 ad fa 06 38 22 3b 34 31 e6 fa 06 38 23 3b 34 ┆ 86;1 8";41 8#;4┆ 0x480…4a0 31 f8 bc 02 0f aa fa 06 45 01 00 2a 31 f7 04 e9 f8 c6 02 14 ad fa 06 38 22 3b 34 31 e6 fa 06 38 ┆1 E *1 8";41 8┆ 0x4a0…4c0 23 3b 34 31 f8 d0 02 0a 96 fa 04 41 58 31 f8 da 02 07 75 ff 24 f8 e4 02 09 74 e7 9d ff 58 f8 ee ┆#;41 AX1 u $ t X ┆ 0x4c0…4e0 02 1f a8 fa 04 38 36 31 ec fa 13 38 02 38 23 3b 34 39 38 22 3b 34 38 22 3b 34 3a 3b 31 f8 f8 02 ┆ 861 8 8#;498";48";4:;1 ┆ 0x4e0…500 21 9d 0f da fa 0a 38 36 3b 45 01 00 20 70 31 dd a8 fa 04 37 68 31 ed fa 06 47 01 00 33 31 f8 02 ┆! 86;E p1 7h1 G 31 ┆ 0x500…520 03 07 75 ff 58 f8 0c 03 09 74 72 9e ff 26 f8 16 03 0c b0 fa 06 47 01 0c 33 31 f8 20 03 13 a8 fa ┆ u X tr & G 31 ┆ 0x520…540 04 37 2b 31 ec fa 07 47 00 0c 33 20 31 f8 2a 03 2a 9c 54 9e fa 21 38 2b 3b 47 08 00 6a 38 2b 3b ┆ 7+1 G 3 1 * * T !8+;G j8+;┆ 0x540…560 47 0a 00 6a 5b 38 2b 3b 47 0b 00 6a 5b 38 2b 3b 47 0c 00 6a 5b 31 dd f8 34 03 14 ad fa 06 38 22 ┆G jÆ8+;G jÆ8+;G jÆ1 4 8"┆ 0x560…580 3b 34 31 e6 fa 06 38 23 3b 34 31 f8 3e 03 07 7a 6d 9e f8 48 03 12 a8 fa 04 37 67 31 ed fa 06 47 ┆;41 8#;41 > zm H 7g1 G┆ 0x580…5a0 01 00 33 31 f8 52 03 05 7b f8 5c 03 07 75 ff 26 f8 66 03 09 74 f7 9e ff 2d f8 70 03 1c b3 f5 fa ┆ 31 R æ Ø u & f t - p ┆ 0x5a0…5c0 05 47 02 00 31 e6 fa 05 38 04 3b 31 e6 b2 e6 fa 05 47 53 00 31 f8 7a 03 1b 8f d7 9e 00 ff 64 ec ┆ G 1 8 ;1 GS 1 z d ┆ 0x5c0…5e0 fa 06 47 01 00 33 31 e0 fa 06 47 18 00 33 31 de f8 84 03 1e 92 f5 fa 05 47 02 00 31 e6 fa 05 38 ┆ G 31 G 31 G 1 8┆ 0x5e0…600 64 3b 31 ea fa 09 38 02 38 64 3b 34 39 31 f8 8e 03 0a 90 9e 9e 00 ff 64 f8 98 03 0c b4 f5 fa 05 ┆d;1 8 8d;491 d ┆ 0x600…620 (3,) 20 30 0d 30 31 34 30 20 50 4f 4b 45 20 33 30 37 38 2c 20 31 32 0d 30 31 35 30 20 50 4f 4b 45 20 ┆ 0 0140 POKE 3078, 12 0150 POKE ┆ 0x620…640 33 30 37 39 2c 20 32 30 31 0d 30 31 36 30 20 2f 2f 0d 30 31 37 30 20 43 41 4c 4c 20 33 30 37 33 ┆3079, 201 0160 // 0170 CALL 3073┆ 0x640…660 20 2f 2f 20 6b 61 6c 64 20 61 66 20 6d 61 73 6b 69 6e 73 70 72 6f 67 73 73 65 6b 76 65 6e 73 20 ┆ // kald af maskinsprogssekvens ┆ 0x660…680 2f 2f 0d 30 31 38 30 20 54 41 53 54 23 3a 3d 50 45 45 4b 28 33 30 37 32 29 0d 30 31 39 30 20 2f ┆// 0180 TAST#:=PEEK(3072) 0190 /┆ 0x680…6a0 2f 0d 30 32 30 30 20 2f 2f 20 4e 65 64 65 6e 73 74 7d 65 6e 64 65 20 66 69 6e 64 65 73 20 64 65 ┆/ 0200 // Nedenstående findes de┆ 0x6a0…6c0 20 6e 7c 64 76 65 6e 64 69 67 65 20 64 69 6d 65 6e 73 69 6f 6e 65 72 69 6e 67 65 72 2e 0d 30 32 ┆ nødvendige dimensioneringer. 02┆ 0x6c0…6e0 31 30 20 2f 2f 0d 30 32 32 30 20 44 49 4d 20 53 56 24 20 4f 46 20 31 2c 20 4c 49 4e 24 28 32 35 ┆10 // 0220 DIM SV$ OF 1, LIN$(25┆ 0x6e0…700 29 20 4f 46 20 38 31 2c 20 46 49 4c 4e 41 56 4e 24 20 4f 46 20 38 2c 20 42 49 4c 4c 45 44 4e 41 ┆) OF 81, FILNAVN$ OF 8, BILLEDNA┆ 0x700…720 56 4e 24 20 4f 46 20 38 0d 30 32 33 30 20 44 49 4d 20 53 56 41 52 31 24 20 4f 46 20 34 0d 30 32 ┆VN$ OF 8 0230 DIM SVAR1$ OF 4 02┆ 0x720…740 34 30 20 2f 2f 0d 30 32 35 30 20 2f 2f 20 4e 65 64 65 6e 66 6f 72 20 6e 75 6c 73 74 69 6c 6c 65 ┆40 // 0250 // Nedenfor nulstille┆ 0x740…760 73 20 76 61 72 69 61 62 6c 65 2e 0d 30 32 36 30 20 2f 2f 0d 30 32 37 30 20 53 56 41 52 31 24 3a ┆s variable. 0260 // 0270 SVAR1$:┆ 0x760…780 3d 22 6e 4e 6a 4a 22 0d 30 32 38 30 20 2f 2f 0d 30 32 39 30 20 2f 2f 20 45 74 20 62 69 6c 6c 65 ┆="nNjJ" 0280 // 0290 // Et bille┆ 0x780…7a0 64 65 20 6b 61 6c 64 65 73 20 66 72 65 6d 20 76 65 64 20 6e 65 64 65 6e 73 74 7d 65 6e 64 65 20 ┆de kaldes frem ved nedenstående ┆ 0x7a0…7c0 74 6f 20 6f 72 64 72 65 72 2e 0d 30 33 30 30 20 42 49 4c 4c 45 44 4e 41 56 4e 24 3a 3d 22 61 6b ┆to ordrer. 0300 BILLEDNAVN$:="ak┆ 0x7c0…7e0 74 75 65 6c 74 20 62 69 6c 6c 65 64 6e 61 76 6e 22 0d 30 33 31 30 20 45 58 45 43 20 42 49 4c 4c ┆tuelt billednavn" 0310 EXEC BILL┆ 0x7e0…800 45 44 45 0d 30 33 32 30 20 2f 2f 0d 30 33 33 30 20 2f 2f 20 50 72 6f 63 65 64 75 72 65 72 6e 65 ┆EDE 0320 // 0330 // Procedurerne┆ 0x800…820 (4,) 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 ┆ 0x820…840 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┆ 0x840…860 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┆ 0x860…880 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┆ 0x880…8a0 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┆ 0x8a0…8c0 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┆ 0x8c0…8e0 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┆ 0x8e0…900 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 ┆ 0x900…920 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┆ 0x920…940 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┆ 0x940…960 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┆ 0x960…980 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┆ 0x980…9a0 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#<┆ 0x9a0…9c0 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 ┆ 0x9c0…9e0 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┆ 0x9e0…a00 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┆ 0xa00…a20 (5,) 4c 45 04 4f 4c 44 59 04 4f 4c 44 58 05 43 45 4e 54 59 05 43 45 4e 54 58 05 56 45 4b 54 59 05 56 ┆LE OLDY OLDX CENTY CENTX VEKTY V┆ 0xa20…a40 45 4b 54 58 05 46 5c 4c 47 45 06 49 4e 52 41 43 45 04 48 41 53 54 05 53 50 45 4a 4c 08 44 45 4c ┆EKTX FØLGE INRACE HAST SPEJL DEL┆ 0xa40…a60 54 41 47 45 52 03 4d 5d 4c 03 42 49 4c 04 46 45 4c 54 05 48 45 4e 41 44 01 4b 04 59 52 55 4e 06 ┆TAGER MÅL BIL FELT HENAD K YRUN ┆ 0xa60…a80 53 43 52 4f 4c 4c 01 55 04 54 49 4d 45 07 48 45 4e 54 46 49 4c 08 46 49 4c 4e 4e 41 56 4e 07 42 ┆SCROLL U TIME HENTFIL FILNNAVN B┆ 0xa80…aa0 49 4c 4c 45 44 45 03 54 49 44 04 54 41 53 54 04 54 41 53 54 07 50 4f 4c 4c 49 4e 47 0a 53 4b 52 ┆ILLEDE TID TAST TAST POLLING SKR┆ 0xaa0…ac0 49 56 53 4b 5b 52 4d 0b 4b 41 52 41 4b 54 45 52 47 45 4d 07 54 41 53 54 4c 5b 53 10 50 4f 53 49 ┆IVSKÆRM KARAKTERGEM TASTLÆS POSI┆ 0xac0…ae0 54 49 4f 4e 53 4b 4f 4e 54 52 4f 4c 08 50 4f 53 49 54 49 4f 4e 01 59 01 58 0a 52 45 54 55 52 4e ┆TIONSKONTROL POSITION Y X RETURN┆ 0xae0…b00 53 56 41 52 06 4c 5b 53 46 49 4c 08 53 4b 52 49 56 46 49 4c 05 53 56 41 52 31 06 41 43 43 45 50 ┆SVAR LÆSFIL SKRIVFIL SVAR1 ACCEP┆ 0xb00…b20 54 06 4d 41 4c 45 52 49 04 53 4c 55 54 08 4b 55 4e 53 54 4e 45 52 0a 42 49 4c 4c 45 44 4b 4c 41 ┆T MALERI SLUT KUNSTNER BILLEDKLA┆ 0xb20…b40 52 09 4c 49 4e 4a 45 4b 4c 41 52 05 50 41 55 53 45 05 54 45 4b 53 54 09 53 4b 5b 52 4d 56 41 4c ┆R LINJEKLAR PAUSE TEKST SKÆRMVAL┆ 0xb40…b60 47 06 46 49 4c 44 41 4e 08 55 44 53 4b 52 49 46 54 07 4b 4f 50 49 45 52 45 07 45 44 49 54 45 52 ┆G FILDAN UDSKRIFT KOPIERE EDITER┆ 0xb60…b80 45 07 42 45 55 4e 44 52 45 05 54 45 47 4e 45 0a 56 45 4a 4c 45 44 4e 49 4e 47 01 55 04 4d 45 4e ┆E BEUNDRE TEGNE VEJLEDNING U MEN┆ 0xb80…ba0 55 06 49 4e 4c 49 4e 45 06 45 44 49 54 5c 52 07 46 4f 52 52 49 47 45 0a 45 4a 4b 41 52 41 4b 54 ┆U INLINE EDITØR FORRIGE EJKARAKT┆ 0xba0…bc0 45 52 08 4b 41 52 41 4b 54 45 52 08 53 4c 55 54 54 41 53 54 06 53 54 4f 50 50 45 0a 42 49 4c 4c ┆ER KARAKTER SLUTTAST STOPPE BILL┆ 0xbc0…be0 45 44 4e 41 56 4e 07 46 49 4c 4e 41 56 4e 03 4c 49 4e 02 53 56 01 41 52 45 07 45 44 49 54 45 52 ┆EDNAVN FILNAVN LIN SV ARE EDITER┆ 0xbe0…c00 45 07 42 45 55 4e 44 52 45 05 54 45 47 4e 45 0a 56 45 4a 4c 45 44 4e 49 4e 47 01 55 04 4d 45 57 ┆E BEUNDRE TEGNE VEJLEDNING U MEW┆ 0xc00…c20 (6,) 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┆ 0xc20…c40 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┆ 0xc40…c60 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 ┆ 0xc60…c80 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┆ 0xc80…ca0 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┆ 0xca0…cc0 53 54 49 4c 0d 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 ┆STIL STIL 1180 X:=1; Y:=1; FEJL┆ 0xcc0…ce0 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 ┆ 0xce0…d00 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 25 ┆ CURSOR X, Y 1200 PRINT "*"; 1%┆