|
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 - download
Length: 3584 (0xe00)
Names: »NYTEST.PAS«
└─⟦afd5800b3⟧ Bits:30003056 Grid-runner: Tron-spil til RC Partner udviklet af Anders Melander
└─⟦this⟧ »NYTEST.PAS«
0x000…020 70 72 6f 67 72 61 6d 20 74 74 65 73 74 3b 0d 0a 54 59 50 45 0d 0a 20 20 66 75 6e 63 6e 61 76 20 ┆program ttest; TYPE funcnav ┆
0x020…040 3d 20 28 66 31 2c 66 32 2c 66 33 2c 66 34 2c 66 35 2c 66 36 2c 66 37 2c 66 38 2c 66 39 2c 66 31 ┆= (f1,f2,f3,f4,f5,f6,f7,f8,f9,f1┆
0x040…060 30 2c 66 31 31 2c 66 31 32 2c 61 31 2c 61 32 2c 61 33 2c 61 34 29 3b 0d 0a 20 20 73 74 72 33 30 ┆0,f11,f12,a1,a2,a3,a4); str30┆
0x060…080 20 3d 20 53 54 52 49 4e 47 5b 33 30 5d 3b 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 66 63 68 3a 20 ┆ = STRINGÆ30Å; CONST fch: ┆
0x080…0a0 41 52 52 41 59 5b 30 2e 2e 31 35 5d 20 4f 46 20 63 68 61 72 20 3d 20 28 27 3b 27 2c 27 3c 27 2c ┆ARRAYÆ0..15Å OF char = (';','<',┆
0x0a0…0c0 27 3d 27 2c 27 3e 27 2c 27 3f 27 2c 27 40 27 2c 27 41 27 2c 27 42 27 2c 27 43 27 2c 27 44 27 0d ┆'=','>','?','@','A','B','C','D' ┆
0x0c0…0e0 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 20 20 ┆ ┆
0x0e0…100 2c 27 45 27 2c 27 46 27 2c 27 49 27 2c 27 4a 27 2c 27 4e 27 2c 27 4f 27 29 3b 0d 0a 56 41 52 0d ┆,'E','F','I','J','N','O'); VAR ┆
0x100…120 0a 20 20 61 3a 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 64 65 66 66 6b ┆ a:integer; PROCEDURE deffk┆
0x120…140 65 79 28 66 6b 65 79 3a 20 66 75 6e 63 6e 61 76 3b 20 61 3a 20 73 74 72 33 30 29 3b 0d 0a 42 45 ┆ey(fkey: funcnav; a: str30); BE┆
0x140…160 47 49 4e 0d 0a 20 20 77 72 69 74 65 28 40 32 37 2c 27 3a 27 2c 66 63 68 5b 6f 72 64 28 66 6b 65 ┆GIN write(@27,':',fchÆord(fke┆
0x160…180 79 29 5d 2c 61 2c 40 30 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 64 65 66 ┆y)Å,a,@0); END; BEGIN def┆
0x180…1a0 66 6b 65 79 28 66 31 2c 27 6b 6f 6e 66 69 67 34 30 2f 2f 74 27 2b 5e 4d 2b 27 64 61 27 29 3b 0d ┆fkey(f1,'konfig40//t'+^M+'da'); ┆
0x1a0…1c0 0a 20 20 64 65 66 66 6b 65 79 28 66 32 2c 27 73 76 2f 2f 74 27 2b 5e 4d 2b 27 74 64 61 73 20 27 ┆ deffkey(f2,'sv//t'+^M+'tdas '┆
0x1c0…1e0 2b 5e 4d 2b 27 6d 20 27 2b 5e 4d 2b 27 7a 75 27 2b 40 32 37 2b 27 64 27 29 3b 0d 0a 20 20 64 65 ┆+^M+'m '+^M+'zu'+@27+'d'); de┆
0x1e0…200 66 66 6b 65 79 28 66 33 2c 27 63 70 6d 77 64 69 6e 69 2f 2f 71 27 2b 5e 4d 29 3b 0d 0a 20 20 64 ┆ffkey(f3,'cpmwdini//q'+^M); d┆
0x200…220 65 66 66 6b 65 79 28 66 34 2c 27 73 76 2f 2f 74 27 2b 5e 4d 2b 27 74 77 62 73 20 27 2b 5e 4d 2b ┆effkey(f4,'sv//t'+^M+'twbs '+^M+┆
0x220…240 27 6d 20 27 2b 5e 4d 2b 27 7a 27 2b 40 32 37 2b 27 77 27 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 ┆'m '+^M+'z'+@27+'w'); deffkey┆
0x240…260 28 66 35 2c 27 73 69 6f 72 65 6c 2f 2f 74 27 2b 5e 4d 2b 27 74 27 2b 5e 4d 2b 5e 4d 29 3b 0d 0a ┆(f5,'siorel//t'+^M+'t'+^M+^M); ┆
0x260…280 20 20 64 65 66 66 6b 65 79 28 66 36 2c 27 6c 69 73 74 66 69 6c 27 2b 5e 4d 2b 5e 4d 2b 27 74 27 ┆ deffkey(f6,'listfil'+^M+^M+'t'┆
0x280…2a0 2b 5e 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 66 37 2c 27 6d 6f 64 65 6d 2f 2f 74 27 2b 5e ┆+^M); deffkey(f7,'modem//t'+^┆
0x2a0…2c0 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 66 38 2c 27 73 64 69 72 20 62 3a 2f 2f 74 27 2b 5e ┆M); deffkey(f8,'sdir b://t'+^┆
0x2c0…2e0 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 66 39 2c 27 65 72 61 20 62 3a 2a 2e 2a 27 2b 5e 4d ┆M); deffkey(f9,'era b:*.*'+^M┆
0x2e0…300 2b 27 59 27 2b 5e 4d 2b 27 73 68 6f 77 20 62 3a 27 2b 5e 4d 2b 5e 4d 27 74 27 2b 5e 4d 29 3b 0d ┆+'Y'+^M+'show b:'+^M+^M't'+^M); ┆
0x300…320 0a 20 20 64 65 66 66 6b 65 79 28 66 31 30 2c 27 6e 65 64 6c 75 6b 27 2b 5e 4d 29 3b 0d 0a 20 20 ┆ deffkey(f10,'nedluk'+^M); ┆
0x320…340 64 65 66 66 6b 65 79 28 66 31 31 2c 27 72 77 6e 76 6d 27 2b 5e 4d 2b 27 73 27 2b 40 32 37 2b 27 ┆deffkey(f11,'rwnvm'+^M+'s'+@27+'┆
0x340…360 74 65 6b 73 74 27 2b 5e 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 66 31 32 2c 27 73 75 62 6d ┆tekst'+^M); deffkey(f12,'subm┆
0x360…380 69 74 20 6d 65 6e 31 27 2b 5e 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 61 31 2c 27 6c 27 2b ┆it men1'+^M); deffkey(a1,'l'+┆
0x380…3a0 5e 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 61 32 2c 27 77 27 2b 5e 4d 29 3b 0d 0a 20 20 64 ┆^M); deffkey(a2,'w'+^M); d┆
0x3a0…3c0 65 66 66 6b 65 79 28 61 33 2c 27 73 27 2b 5e 4d 29 3b 0d 0a 20 20 64 65 66 66 6b 65 79 28 61 34 ┆effkey(a3,'s'+^M); deffkey(a4┆
0x3c0…3e0 2c 27 6d 61 74 27 2b 5e 4d 29 3b 0d 0a 20 20 77 72 69 74 65 20 28 63 6c 72 68 6f 6d 29 3b 0d 0a ┆,'mat'+^M); write (clrhom); ┆
0x3e0…400 20 20 77 72 69 74 65 6c 6e 28 69 6e 74 6f 6e 2c 27 8b 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ writeln(inton,' ┆
0x400…420 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ ┆
0x420…440 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 8c ┆ ┆
0x440…460 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 ┆'); writeln(' P┆
0x460…480 20 41 20 52 20 54 20 4e 20 45 20 52 20 20 20 54 20 45 20 53 20 54 20 50 20 52 20 4f 20 47 20 52 ┆ A R T N E R T E S T P R O G R┆
0x480…4a0 20 41 20 4d 20 4d 20 45 20 52 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 89 27 ┆ A M M E R : '┆
0x4a0…4c0 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 86 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆); writeln(' ┆
0x4c0…4e0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ ┆
0x4e0…500 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 85 27 29 ┆ ')┆
0x500…520 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; writeln(' ┆
0x520…540 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 ┆ ┆
0x540…560 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 89 27 29 3b ┆ ');┆
0x560…580 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 ┆ writeln(' ',intoff,' ┆
0x580…5a0 20 20 54 72 79 6b 20 46 31 20 20 3d 20 49 6e 64 74 61 73 74 20 70 61 72 61 6d 65 74 72 65 20 3c ┆ Tryk F1 = Indtast parametre <┆
0x5a0…5c0 6a 75 73 74 2e 20 61 66 20 75 72 20 6f 67 20 69 6e 64 6b 6f 64 2e 20 61 66 20 73 2f 6e 3e 27 2c ┆just. af ur og indkod. af s/n>',┆
0x5c0…5e0 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 ┆inton,' '); writeln(' ┆
0x5e0…600 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 32 20 20 3d 20 54 ┆',intoff,' - F2 = T┆
0x600…620 65 73 74 20 61 66 20 66 6c 6f 70 70 79 20 64 72 69 76 65 20 41 2f 42 20 20 20 20 20 20 20 20 20 ┆est af floppy drive A/B ┆
0x620…640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 ┆ ',inton,' ┆
0x640…660 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 ┆ '); writeln(' ',intoff,' ┆
0x660…680 20 20 20 20 20 20 20 2d 20 20 20 46 33 20 20 3d 20 4b 7c 72 20 77 64 69 6e 69 74 20 20 20 20 20 ┆ - F3 = Kør wdinit ┆
0x680…6a0 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 ┆ ┆
0x6a0…6c0 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c ┆ ',inton,' '); writel┆
0x6c0…6e0 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 34 20 ┆n(' ',intoff,' - F4 ┆
0x6e0…700 20 3d 20 54 65 73 74 20 57 69 6e 63 68 65 73 74 65 72 64 72 69 76 65 20 20 20 20 20 20 20 20 20 ┆ = Test Winchesterdrive ┆
0x700…720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 ┆ ',inton,' ┆
0x720…740 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 ┆ '); writeln(' ',intoff,'┆
0x740…760 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 35 20 20 3d 20 54 65 73 74 20 73 69 6f 20 20 20 ┆ - F5 = Test sio ┆
0x760…780 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 ┆ ┆
0x780…7a0 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 ┆ ',inton,' '); wr┆
0x7a0…7c0 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 ┆iteln(' ',intoff,' - ┆
0x7c0…7e0 20 46 36 20 20 3d 20 54 65 73 74 20 70 72 69 6e 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ F6 = Test printer ┆
0x7e0…800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c ┆ ',inton,┆
0x800…820 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f ┆' '); writeln(' ',into┆
0x820…840 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 37 20 20 3d 20 54 65 6c 65 66 6f 6e ┆ff,' - F7 = Telefon┆
0x840…860 6d 6f 64 65 6d 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 ┆modem ┆
0x860…880 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a ┆ ',inton,' '); ┆
0x880…8a0 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 ┆ writeln(' ',intoff,' ┆
0x8a0…8c0 20 2d 20 20 20 46 38 20 20 3d 20 73 64 69 72 20 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ - F8 = sdir b: ┆
0x8c0…8e0 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 27 2c 69 6e ┆ ',in┆
0x8e0…900 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c ┆ton,' '); writeln(' ',┆
0x900…920 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 39 20 20 3d 20 65 72 61 ┆intoff,' - F9 = era┆
0x920…940 20 62 3a 2a 2e 2a 20 2f 20 73 68 6f 77 20 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ b:*.* / show b: ┆
0x940…960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 ┆ ',inton,' '┆
0x960…980 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 ┆); writeln(' ',intoff,' ┆
0x980…9a0 20 20 20 20 20 2d 20 20 20 46 31 30 20 3d 20 4e 65 64 6c 75 6b 6e 69 6e 67 20 61 66 20 57 69 6e ┆ - F10 = Nedlukning af Win┆
0x9a0…9c0 63 68 65 73 74 65 72 64 72 69 76 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆chesterdrive ┆
0x9c0…9e0 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 ┆',inton,' '); writeln(┆
0x9e0…a00 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 31 31 20 3d ┆' ',intoff,' - F11 =┆
0xa00…a20 20 4b 6f 6e 66 69 67 75 72 65 72 69 6e 67 20 74 69 6c 20 6e 65 74 20 20 20 20 20 20 20 20 20 20 ┆ Konfigurering til net ┆
0xa20…a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 ┆ ',inton,' ┆
0xa40…a60 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 ┆ '); writeln(' ',intoff,' ┆
0xa60…a80 20 20 20 20 20 20 20 20 20 2d 20 20 20 46 31 32 20 3d 20 70 69 70 20 62 3a 3d 61 3a 63 63 70 6d ┆ - F12 = pip b:=a:ccpm┆
0xa80…aa0 2e 73 79 73 2f 6b 6f 6e 66 69 67 2e 63 6d 64 2f 73 69 6f 72 65 6c 2e 63 6d 64 2f 73 74 61 72 74 ┆.sys/konfig.cmd/siorel.cmd/start┆
0xaa0…ac0 75 70 2e 30 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 ┆up.0',inton,' '); writ┆
0xac0…ae0 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 41 ┆eln(' ',intoff,' - A┆
0xae0…b00 31 20 20 3d 20 4c 6f 6b 61 6c 20 6e 65 74 2d 74 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 = Lokal net-test ┆
0xb00…b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 ┆ ',inton,' ┆
0xb20…b40 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 ┆ '); writeln(' ',intoff┆
0xb40…b60 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 41 32 20 20 3d 20 57 69 6e 63 68 65 73 74 65 ┆,' - A2 = Wincheste┆
0xb60…b80 72 64 69 73 6b 76 65 64 6c 69 67 65 68 6f 6c 64 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆rdiskvedligeholdelse ┆
0xb80…ba0 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 ┆ ',inton,' '); ┆
0xba0…bc0 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d ┆writeln(' ',intoff,' -┆
0xbc0…be0 20 20 20 41 33 20 20 3d 20 53 74 72 65 61 6d 65 72 74 65 73 74 20 20 20 20 20 20 20 20 20 20 20 ┆ A3 = Streamertest ┆
0xbe0…c00 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 27 2c 69 6e 74 6f ┆ ',into┆
0xc00…c20 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 27 2c 69 6e ┆n,' '); writeln(' ',in┆
0xc20…c40 74 6f 66 66 2c 27 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 41 34 20 20 3d 20 4d 61 74 65 6d ┆toff,' - A4 = Matem┆
0xc40…c60 61 74 69 6b 70 72 6f 63 65 73 73 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆atikprocessor ┆
0xc60…c80 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 69 6e 74 6f 6e 2c 27 20 20 20 20 20 20 20 89 27 29 3b ┆ ',inton,' ');┆
0xc80…ca0 0d 0a 20 20 77 72 69 74 65 6c 6e 28 27 86 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ writeln(' ┆
0xca0…cc0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ ┆
0xcc0…ce0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 85 27 29 3b 0d ┆ '); ┆
0xce0…d00 0a 20 20 77 72 69 74 65 6c 6e 28 27 89 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 64 ┆ writeln(' Ind┆
0xd00…d20 74 61 73 74 20 65 6e 20 61 66 20 66 7c 6c 67 65 6e 64 65 20 66 75 6e 6b 74 69 6f 6e 73 74 61 73 ┆tast en af følgende funktionstas┆
0xd20…d40 74 65 72 20 3e 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 89 27 29 3b 0d 0a ┆ter >> '); ┆
0xd40…d60 20 20 77 72 69 74 65 6c 6e 28 27 8d 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ writeln(' ┆
0xd60…d80 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ ┆
0xd80…da0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 8e 27 29 3b 0d 0a 20 ┆ '); ┆
0xda0…dc0 20 67 6f 74 6f 78 79 28 35 39 2c 32 31 29 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 20 55 4e 54 49 ┆ gotoxy(59,21); REPEAT UNTI┆
0xdc0…de0 4c 20 6b 65 79 70 72 65 73 73 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 0d 0a 1a 65 73 73 3b 0d e9 7d ┆L keypress; END. ess; å┆
0xde0…e00 27 00 00 a7 9b a4 87 87 87 87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 52 ┆' R┆