|
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 - 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 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-┆ 0x0020…0040 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┆ 0x0040…0060 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┆ 0x0060…0080 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┆ 0x0080…00a0 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 ┆ 0x00a0…00c0 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 ┆ 0x00c0…00e0 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┆ 0x00e0…0100 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┆ 0x0100…0120 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┆ 0x0120…0140 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┆ 0x0140…0160 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 ┆ 0x0160…0180 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┆ 0x0180…01a0 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┆ 0x01a0…01c0 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 ┆ 0x01c0…01e0 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┆ 0x01e0…0200 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,┆ 0x0200…0220 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 ┆ 0x0220…0240 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┆ 0x0240…0260 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 ┆ 0x0260…0280 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 /┆ 0x0280…02a0 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┆ 0x02a0…02c0 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┆ 0x02c0…02e0 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┆ 0x02e0…0300 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┆ 0x0300…0320 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┆ 0x0320…0340 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┆ 0x0340…0360 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$:┆ 0x0360…0380 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┆ 0x0380…03a0 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 ┆ 0x03a0…03c0 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┆ 0x03c0…03e0 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┆ 0x03e0…0400 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┆ 0x0400…0420 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 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 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 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 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┆ 0x0c20…0c40 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┆ 0x0c40…0c60 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 ┆ 0x0c60…0c80 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┆ 0x0c80…0ca0 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┆ 0x0ca0…0cc0 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┆ 0x0cc0…0ce0 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", "┆ 0x0ce0…0d00 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┆ 0x0d00…0d20 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┆ 0x0d20…0d40 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┆ 0x0d40…0d60 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┆ 0x0d60…0d80 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 //┆ 0x0d80…0da0 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┆ 0x0da0…0dc0 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┆ 0x0dc0…0de0 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┆ 0x0de0…0e00 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┆ 0x0e00…0e20 33 33 33 32 31 34 34 34 31 32 33 33 33 32 22 2c 20 22 33 32 32 32 33 32 33 33 33 31 34 34 34 34 ┆33321444123332", "32223233314444┆ 0x0e20…0e40 31 32 33 33 33 32 22 2c 20 22 35 34 34 34 34 35 34 34 33 34 35 34 34 34 34 35 34 34 32 34 22 0d ┆123332", "54444544345444454424" ┆ 0x0e40…0e60 31 33 30 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 30 20 2f 2f 20 20 3b 3c 3d 20 20 2f 2f 0d 31 33 ┆1300 LABEL BLOK10 // ;<= // 13┆ 0x0e60…0e80 31 30 20 44 41 54 41 20 22 35 34 34 34 34 35 34 34 33 34 35 34 34 34 34 35 34 34 31 34 22 2c 20 ┆10 DATA "54444544345444454414", ┆ 0x0e80…0ea0 22 34 34 34 34 33 34 34 33 32 34 34 32 33 34 34 34 34 34 32 33 22 2c 20 22 34 34 34 34 34 33 33 ┆"44443443244234444423", "4444433┆ 0x0ea0…0ec0 33 33 33 33 33 33 33 33 34 34 34 34 34 22 0d 31 33 32 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 31 ┆3333333344444" 1320 LABEL BLOK11┆ 0x0ec0…0ee0 20 2f 2f 20 20 3e 3f 40 20 20 2f 2f 0d 31 33 33 30 20 44 41 54 41 20 22 33 34 34 34 34 34 32 33 ┆ // >?@ // 1330 DATA "34444423┆ 0x0ee0…0f00 34 34 34 34 33 32 34 33 32 34 34 34 22 2c 20 22 33 32 32 32 33 32 34 34 33 32 34 34 31 34 34 34 ┆444432432444", "3222324432441444┆ 0x0f00…0f20 34 33 34 34 22 2c 20 22 33 32 32 32 33 31 34 31 34 31 31 34 32 33 32 32 33 33 33 33 22 0d 31 33 ┆4344", "32223141411423223333" 13┆ 0x0f20…0f40 34 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 32 20 2f 2f 20 20 41 42 43 20 20 2f 2f 0d 31 33 35 30 ┆40 LABEL BLOK12 // ABC // 1350┆ 0x0f40…0f60 20 44 41 54 41 20 22 33 32 32 32 33 31 34 34 34 31 31 33 33 33 31 31 34 34 34 31 22 2c 20 22 31 ┆ DATA "32223144411333114441", "1┆ 0x0f60…0f80 32 32 32 33 31 33 33 33 32 31 34 34 34 31 31 33 33 33 32 22 2c 20 22 33 32 32 32 33 31 34 34 34 ┆2223133321444113332", "322231444┆ 0x0f80…0fa0 34 31 34 34 34 33 32 33 33 33 32 22 0d 31 33 36 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 33 20 2f ┆41444323332" 1360 LABEL BLOK13 /┆ 0x0fa0…0fc0 2f 20 20 44 45 46 20 20 2f 2f 0d 31 33 37 30 20 44 41 54 41 20 22 31 32 32 32 33 31 34 34 34 31 ┆/ DEF // 1370 DATA "1222314441┆ 0x0fc0…0fe0 31 34 34 34 31 31 33 33 33 32 22 2c 20 22 31 32 32 32 32 31 33 33 33 34 31 34 34 34 34 31 33 33 ┆1444113332", "122221333414444133┆ 0x0fe0…1000 33 33 22 2c 20 22 31 32 32 32 32 31 33 33 33 34 31 34 34 34 34 31 34 34 34 34 22 0d 31 33 38 30 ┆33", "12222133341444414444" 1380┆ 0x1000…1020 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 34 20 2f 2f 20 20 47 48 49 20 20 2f 2f 0d 31 33 39 30 20 44 ┆ LABEL BLOK14 // GHI // 1390 D┆ 0x1020…1040 41 54 41 20 22 33 32 32 32 33 31 34 34 34 34 31 34 34 32 31 32 33 33 33 32 22 2c 20 22 31 34 34 ┆ATA "32223144441442123332", "144┆ 0x1040…1060 34 31 31 33 33 33 31 31 34 34 34 31 31 34 34 34 31 22 2c 20 22 34 35 34 31 34 34 35 34 31 34 34 ┆41133311444114441", "45414454144┆ 0x1060…1080 35 34 31 34 34 35 34 31 34 22 0d 31 34 30 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 35 20 2f 2f 20 ┆541445414" 1400 LABEL BLOK15 // ┆ 0x1080…10a0 20 4a 4b 4c 20 20 2f 2f 0d 31 34 31 30 20 44 41 54 41 20 22 35 34 34 34 31 35 34 34 34 31 35 34 ┆ JKL // 1410 DATA "544415444154┆ 0x10a0…10c0 34 34 31 35 32 33 33 32 22 2c 20 22 31 34 34 33 32 31 33 32 34 34 31 32 32 33 34 31 34 34 34 31 ┆44152332", "14432132441223414441┆ 0x10c0…10e0 22 2c 20 22 31 34 34 34 34 31 34 34 34 34 31 34 34 34 34 31 33 33 33 33 22 0d 31 34 32 30 20 4c ┆", "14444144441444413333" 1420 L┆ 0x10e0…1100 41 42 45 4c 20 42 4c 4f 4b 31 36 20 2f 2f 20 20 4d 4e 4f 20 20 2f 2f 0d 31 34 33 30 20 44 41 54 ┆ABEL BLOK16 // MNO // 1430 DAT┆ 0x1100…1120 41 20 22 31 33 34 33 31 31 32 31 32 31 31 34 34 34 31 31 34 34 34 31 22 2c 20 22 31 33 34 34 31 ┆A "13431121211444114441", "13441┆ 0x1120…1140 31 32 31 34 31 31 34 31 33 31 31 34 34 32 31 22 2c 20 22 33 32 32 32 33 31 34 34 34 31 31 34 34 ┆121411413114421", "3222314441144┆ 0x1140…1160 34 31 32 33 33 33 32 22 0d 31 34 34 30 20 4c 41 42 45 4c 20 42 4c 4f 4b 31 37 20 2f 2f 20 20 50 ┆4123332" 1440 LABEL BLOK17 // P┆ 0x1160…1180 51 52 20 20 2f 2f 0d 31 34 35 30 20 44 41 54 41 20 22 31 32 32 32 33 31 33 33 33 32 31 34 34 34 ┆QR // 1450 DATA "12223133321444┆ 0x1180…11a0 34 31 34 34 34 34 22 2c 20 22 33 32 32 32 33 31 34 34 34 31 31 34 33 34 31 32 33 33 31 31 22 2c ┆414444", "32223144411434123311",┆ 0x11a0…11c0 20 22 31 32 32 32 33 31 33 33 33 32 31 34 31 33 34 31 34 34 32 31 22 0d 31 34 36 30 20 4c 41 42 ┆ "12223133321413414421" 1460 LAB┆ 0x11c0…11e0 45 4c 20 42 4c 4f 4b 31 38 20 2f 2f 20 20 53 54 55 20 20 2f 2f 0d 31 34 37 30 20 44 41 54 41 20 ┆EL BLOK18 // STU // 1470 DATA ┆ 0x11e0…1200 22 33 32 32 32 33 32 33 33 33 34 34 34 34 34 31 32 33 33 33 32 22 2c 20 22 32 32 31 32 32 34 34 ┆"32223233344444123332", "2212244┆ 0x1200…1220 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┆ 0x1220…1240 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┆ 0x1240…1260 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┆ 0x1260…1280 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", "┆ 0x1280…12a0 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┆ 0x12a0…12c0 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┆ 0x12c0…12e0 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┆ 0x12e0…1300 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┆ 0x1300…1320 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 // ØÅ ┆ 0x1320…1340 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┆ 0x1340…1360 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┆ 0x1360…1380 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┆ 0x1380…13a0 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 // ØÅ ┆ 0x13a0…13c0 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┆ 0x13c0…13e0 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┆ 0x13e0…1400 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 ┆