|
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 30 30 31 30 20 2f 2f 20 50 52 4f 47 52 41 4d 53 54 55 4d 50 45 52 20 54 49 4c 20 46 55 4c 4c 2d ┆0010 // PROGRAMSTUMPER TIL FULL-┆ 0x020…040 53 43 52 45 45 4e 2d 45 44 49 54 4f 52 20 74 69 6c 20 43 4f 4d 45 54 20 4d 50 53 2d 33 30 30 30 ┆SCREEN-EDITOR til COMET MPS-3000┆ 0x040…060 2e 0d 30 30 32 30 20 2f 2f 20 53 6b 72 65 76 65 74 20 69 20 43 4f 4d 41 4c 2d 38 30 0d 30 30 33 ┆. 0020 // Skrevet i COMAL-80 003┆ 0x060…080 30 20 2f 2f 20 61 66 20 4a 7c 72 67 65 6e 20 43 68 72 69 73 74 69 61 6e 73 65 6e 0d 30 30 34 30 ┆0 // af Jørgen Christiansen 0040┆ 0x080…0a0 20 2f 2f 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 ┆ // for JC DATA-SERVICE, Vestre ┆ 0x0a0…0c0 52 69 6e 67 67 61 64 65 20 38 34 2c 20 38 30 30 30 20 5d 72 68 75 73 20 43 2e 0d 30 30 35 30 20 ┆Ringgade 84, 8000 Århus C. 0050 ┆ 0x0c0…0e0 2f 2f 0d 30 30 36 30 20 2f 2f 20 6c 69 6e 6a 65 20 39 30 2d 31 35 30 20 65 72 20 65 6e 20 6d 61 ┆// 0060 // linje 90-150 er en ma┆ 0x0e0…100 73 6b 69 6e 6b 6f 64 65 73 65 6b 76 65 6e 73 2c 20 64 65 72 20 76 65 64 20 6b 61 6c 64 20 6d 65 ┆skinkodesekvens, der ved kald me┆ 0x100…120 64 20 6c 69 6e 6a 65 20 31 37 30 2d 31 38 30 0d 30 30 37 30 20 2f 2f 20 62 65 76 69 72 6b 65 72 ┆d linje 170-180 0070 // bevirker┆ 0x120…140 2c 20 61 74 20 70 72 6f 67 72 61 6d 6d 61 66 76 69 6b 6c 69 6e 67 65 6e 20 73 74 61 6e 64 73 65 ┆, at programmafviklingen standse┆ 0x140…160 73 20 69 6e 64 74 69 6c 20 64 65 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 65 6e 20 74 61 73 74 0d ┆s indtil der trykkes på en tast ┆ 0x160…180 30 30 38 30 20 2f 2f 20 61 73 63 69 69 2d 76 7b 72 64 69 65 6e 20 61 66 20 64 65 6e 6e 65 20 74 ┆0080 // ascii-værdien af denne t┆ 0x180…1a0 61 73 74 20 76 69 6c 20 64 61 20 76 7b 72 65 20 69 20 76 61 72 69 61 62 6c 65 6e 20 54 41 53 54 ┆ast vil da være i variablen TAST┆ 0x1a0…1c0 23 0d 30 30 39 30 20 50 4f 4b 45 20 33 30 37 33 2c 20 32 30 35 0d 30 31 30 30 20 50 4f 4b 45 20 ┆# 0090 POKE 3073, 205 0100 POKE ┆ 0x1c0…1e0 33 30 37 34 2c 20 31 33 32 0d 30 31 31 30 20 50 4f 4b 45 20 33 30 37 35 2c 20 32 34 38 0d 30 31 ┆3074, 132 0110 POKE 3075, 248 01┆ 0x1e0…200 32 30 20 50 4f 4b 45 20 33 30 37 36 2c 20 35 30 0d 30 31 33 30 20 50 4f 4b 45 20 33 30 37 37 2c ┆20 POKE 3076, 50 0130 POKE 3077,┆ 0x200…220 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 ┆ 0x220…240 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┆ 0x240…260 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 ┆ 0x260…280 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 /┆ 0x280…2a0 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┆ 0x2a0…2c0 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┆ 0x2c0…2e0 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┆ 0x2e0…300 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┆ 0x300…320 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┆ 0x320…340 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┆ 0x340…360 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$:┆ 0x360…380 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┆ 0x380…3a0 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 ┆ 0x3a0…3c0 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┆ 0x3c0…3e0 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┆ 0x3e0…400 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┆ 0x400…420 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┆ 0x420…440 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 /┆ 0x440…460 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┆ 0x460…480 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 ┆ 0x480…4a0 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┆ 0x4a0…4c0 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 ┆ 0x4c0…4e0 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┆ 0x4e0…500 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 ┆ 0x500…520 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)┆ 0x520…540 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┆ 0x540…560 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 ┆ 0x560…580 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┆ 0x580…5a0 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┆ 0x5a0…5c0 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┆ 0x5c0…5e0 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┆ 0x5e0…600 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┆ 0x600…620 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┆ 0x620…640 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┆ 0x640…660 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┆ 0x660…680 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┆ 0x680…6a0 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┆ 0x6a0…6c0 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-┆ 0x6c0…6e0 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┆ 0x6e0…700 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┆ 0x700…720 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$:┆ 0x720…740 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┆ 0x740…760 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┆ 0x760…780 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 ┆ 0x780…7a0 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┆ 0x7a0…7c0 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 ┆ 0x7c0…7e0 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;" ┆ 0x7e0…800 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 ┆ 0x800…820 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┆ 0x820…840 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┆ 0x840…860 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┆ 0x860…880 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┆ 0x880…8a0 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┆ 0x8a0…8c0 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┆ 0x8c0…8e0 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┆ 0x8e0…900 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 ┆ 0x900…920 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┆ 0x920…940 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┆ 0x940…960 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┆ 0x960…980 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$<>┆ 0x980…9a0 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┆ 0x9a0…9c0 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:┆ 0x9c0…9e0 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┆ 0x9e0…a00 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 ┆ 0xa00…a20 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 ┆ 0xa20…a40 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┆ 0xa40…a60 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┆ 0xa60…a80 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┆ 0xa80…aa0 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┆ 0xaa0…ac0 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┆ 0xac0…ae0 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┆ 0xae0…b00 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 ┆ 0xb00…b20 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┆ 0xb20…b40 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┆ 0xb40…b60 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┆ 0xb60…b80 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┆ 0xb80…ba0 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#<┆ 0xba0…bc0 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 ┆ 0xbc0…be0 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┆ 0xbe0…c00 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┆ 0xc00…c20 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%┆