|
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: 3968 (0xf80)
Names: »RESULT«
└─⟦9f1fc2afd⟧ Bits:30005939 Spil: Pacman, Invaders, Kong til RC700
└─ ⟦this⟧ »RESULT«
0x000…020 35 30 31 30 20 2f 2f 20 3d 20 3d 20 3d 20 72 65 73 75 6c 74 61 74 65 74 20 3d 20 3d 20 3d 20 20 ┆5010 // = = = resultatet = = = ┆ 0x020…040 00 0d 0a 35 30 32 30 20 50 52 4f 43 20 72 65 73 75 6c 74 0d 0a 35 30 33 30 20 20 20 50 52 49 4e ┆ 5020 PROC result 5030 PRIN┆ 0x040…060 54 00 20 43 48 52 24 28 31 32 29 00 0d 0a 35 30 34 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 ┆T CHR$(12) 5040 PRINT " ┆ 0x060…080 20 20 20 20 20 44 49 4e 20 53 43 4f 52 45 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 43 48 52 ┆ DIN SCORE ";CHR┆ 0x080…0a0 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 3b 0d 0a 35 30 35 30 20 20 20 ┆$(132) ;"5";CHR$(128) ; 5050 ┆ 0x0a0…0c0 50 52 49 4e 54 00 20 54 41 42 00 28 34 33 29 00 3b 22 52 43 37 30 32 27 53 20 53 43 4f 52 45 22 ┆PRINT TAB (43) ;"RC702'S SCORE"┆ 0x0c0…0e0 0d 0a 35 30 36 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ 5060 PRINT " ==========┆ 0x0e0…100 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 3b 22 35 22 3b ┆===== ";CHR$(132) ;"5";┆ 0x100…120 43 48 52 24 28 31 32 38 29 00 3b 0d 0a 35 30 37 30 20 20 20 50 52 49 4e 54 00 20 54 41 42 00 28 ┆CHR$(128) ; 5070 PRINT TAB (┆ 0x120…140 34 30 29 00 3b 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 0a 35 30 38 30 ┆40) ;"===================" 5080┆ 0x140…160 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PRINT " ┆ 0x160…180 20 20 20 20 20 20 20 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 ┆ ";CHR$(132) ;"5";CHR$(1┆ 0x180…1a0 32 38 29 00 0d 0a 35 30 39 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 22 3b 43 48 52 24 28 31 33 ┆28) 5090 PRINT " ";CHR$(13┆ 0x1a0…1c0 32 29 00 3b 43 48 52 24 28 32 32 33 29 00 3b 43 48 52 24 28 31 32 38 29 00 3b 6d 61 6e 63 6c 75 ┆2) ;CHR$(223) ;CHR$(128) ;manclu┆ 0x1c0…1e0 62 00 3b 22 73 74 6b 2e 3a 22 3b 0d 0a 35 31 30 30 20 20 20 50 52 49 4e 54 00 20 54 41 42 00 28 ┆b ;"stk.:"; 5100 PRINT TAB (┆ 0x1e0…200 31 35 29 00 3b 0d 0a 35 31 31 30 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 ┆15) ; 5110 PRINT USING tal ┆ 0x200…220 24 3a 20 6d 61 6e 63 6c 75 62 00 2a 00 35 30 3b 0d 0a 35 31 32 30 20 20 20 50 52 49 4e 54 00 20 ┆$: manclub * 50; 5120 PRINT ┆ 0x220…240 22 20 70 74 73 2e 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 ┆" pts. ";CHR$(132) ;"5";CHR$(12┆ 0x240…260 38 29 00 3b 0d 0a 35 31 33 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 22 3b 43 48 52 24 ┆8) ; 5130 PRINT " ";CHR$┆ 0x260…280 28 31 33 32 29 00 3b 43 48 52 24 28 32 32 33 29 00 3b 43 48 52 24 28 31 32 38 29 00 3b 65 64 62 ┆(132) ;CHR$(223) ;CHR$(128) ;edb┆ 0x280…2a0 63 6c 75 62 00 3b 22 73 74 6b 2e 3a 22 3b 0d 0a 35 31 34 30 20 20 20 50 52 49 4e 54 00 20 54 41 ┆club ;"stk.:"; 5140 PRINT TA┆ 0x2a0…2c0 42 00 28 34 39 29 00 3b 0d 0a 35 31 35 30 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 ┆B (49) ; 5150 PRINT USING t┆ 0x2c0…2e0 61 6c 00 24 3a 20 65 64 62 63 6c 75 62 00 2a 00 35 30 3b 0d 0a 35 31 36 30 20 20 20 50 52 49 4e ┆al $: edbclub * 50; 5160 PRIN┆ 0x2e0…300 54 00 20 22 20 70 74 73 2e 22 0d 0a 35 31 37 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 22 3b 43 ┆T " pts." 5170 PRINT " ";C┆ 0x300…320 48 52 24 28 31 33 32 29 00 3b 43 48 52 24 28 32 32 32 29 00 3b 43 48 52 24 28 31 32 38 29 00 3b ┆HR$(132) ;CHR$(222) ;CHR$(128) ;┆ 0x320…340 0d 0a 35 31 38 30 20 20 20 50 52 49 4e 54 00 20 54 41 42 00 28 31 35 29 00 3b 0d 0a 35 31 39 30 ┆ 5180 PRINT TAB (15) ; 5190┆ 0x340…360 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 24 3a 20 68 65 61 72 74 73 3b 0d ┆ PRINT USING tal $: hearts; ┆ 0x360…380 0a 35 32 30 30 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 73 2e 20 20 22 3b 43 48 52 24 28 31 33 ┆ 5200 PRINT " pts. ";CHR$(13┆ 0x380…3a0 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 3b 0d 0a 35 32 31 30 20 20 20 50 52 49 4e ┆2) ;"5";CHR$(128) ; 5210 PRIN┆ 0x3a0…3c0 54 00 20 22 20 20 20 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 3b 43 48 52 24 28 32 32 31 29 00 ┆T " ";CHR$(132) ;CHR$(221) ┆ 0x3c0…3e0 3b 43 48 52 24 28 31 32 38 29 00 3b 0d 0a 35 32 32 30 20 20 20 50 52 49 4e 54 00 20 54 41 42 00 ┆;CHR$(128) ; 5220 PRINT TAB ┆ 0x3e0…400 28 34 39 29 00 3b 0d 0a 35 32 33 30 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c ┆(49) ; 5230 PRINT USING tal┆ 0x400…420 00 24 3a 20 73 70 61 64 65 73 3b 0d 0a 35 32 34 30 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 73 ┆ $: spades; 5240 PRINT " pts┆ 0x420…440 2e 22 0d 0a 35 32 35 30 20 20 20 6d 61 6e 70 74 00 3a 3d 35 30 2a 00 6d 61 6e 63 6c 75 62 00 2b ┆." 5250 manpt :=50* manclub +┆ 0x440…460 00 68 65 61 72 74 73 0d 0a 35 32 36 30 20 20 20 65 64 62 70 74 00 3a 3d 35 30 2a 00 65 64 62 63 ┆ hearts 5260 edbpt :=50* edbc┆ 0x460…480 6c 75 62 00 2b 00 73 70 61 64 65 73 0d 0a 35 32 37 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 ┆lub + spades 5270 PRINT " ┆ 0x480…4a0 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 22 3b 43 48 52 ┆ ";CHR┆ 0x4a0…4c0 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 0d 0a 35 32 38 30 20 20 20 50 ┆$(132) ;"5";CHR$(128) 5280 P┆ 0x4c0…4e0 52 49 4e 54 00 20 22 20 20 49 20 41 4c 54 3a 22 3b 54 41 42 00 28 31 35 29 00 3b 0d 0a 35 32 39 ┆RINT " I ALT:";TAB (15) ; 529┆ 0x4e0…500 30 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 24 3a 20 6d 61 6e 70 74 00 3b ┆0 PRINT USING tal $: manpt ;┆ 0x500…520 0d 0a 35 33 30 30 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 73 2e 20 20 22 3b 43 48 52 24 28 31 ┆ 5300 PRINT " pts. ";CHR$(1┆ 0x520…540 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 3b 22 20 20 20 20 20 20 49 20 41 4c 54 ┆32) ;"5";CHR$(128) ;" I ALT┆ 0x540…560 3a 22 3b 54 41 42 00 28 34 39 29 00 3b 0d 0a 35 33 31 30 20 20 20 50 52 49 4e 54 00 20 55 53 49 ┆:";TAB (49) ; 5310 PRINT USI┆ 0x560…580 4e 47 00 20 74 61 6c 00 24 3a 20 65 64 62 70 74 00 3b 0d 0a 35 33 32 30 20 20 20 50 52 49 4e 54 ┆NG tal $: edbpt ; 5320 PRINT┆ 0x580…5a0 00 20 22 20 70 74 73 2e 22 0d 0a 35 33 33 30 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 20 ┆ " pts." 5330 PRINT " ┆ 0x5a0…5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 43 48 52 24 28 31 ┆ ";CHR$(1┆ 0x5c0…5e0 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 0d 0a 35 33 34 30 20 20 20 49 46 20 74 ┆32) ;"5";CHR$(128) 5340 IF t┆ 0x5e0…600 74 79 00 3d 00 31 20 54 48 45 4e 0d 0a 35 33 35 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 20 ┆ty = 1 THEN 5350 PRINT " ┆ 0x600…620 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 22 3b 43 48 ┆ ";CH┆ 0x620…640 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 3b 0d 0a 35 33 36 30 20 20 ┆R$(132) ;"5";CHR$(128) ; 5360 ┆ 0x640…660 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 20 42 4f 4e 55 53 3a 22 3b 54 41 42 00 28 34 39 ┆ PRINT " BONUS:";TAB (49┆ 0x660…680 29 00 3b 0d 0a 35 33 37 30 20 20 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 ┆) ; 5370 PRINT USING tal ┆ 0x680…6a0 24 3a 20 65 64 62 70 74 00 3b 0d 0a 35 33 38 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 ┆$: edbpt ; 5380 PRINT " pt┆ 0x6a0…6c0 73 2e 22 0d 0a 35 33 39 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 20 20 20 20 20 ┆s." 5390 PRINT " ┆ 0x6c0…6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 ┆ ";CHR$(132) ┆ 0x6e0…700 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 0d 0a 35 34 30 30 20 20 20 20 20 65 64 62 70 74 00 ┆;"5";CHR$(128) 5400 edbpt ┆ 0x700…720 3a 3d 32 2a 00 65 64 62 70 74 00 0d 0a 35 34 31 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 20 ┆:=2* edbpt 5410 PRINT " ┆ 0x720…740 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 22 3b 43 48 ┆ ";CH┆ 0x740…760 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 3b 0d 0a 35 34 32 30 20 20 ┆R$(132) ;"5";CHR$(128) ; 5420 ┆ 0x760…780 20 20 20 50 52 49 4e 54 00 20 22 20 20 20 20 20 20 49 20 41 4c 54 3a 22 3b 54 41 42 00 28 34 39 ┆ PRINT " I ALT:";TAB (49┆ 0x780…7a0 29 00 3b 0d 0a 35 34 33 30 20 20 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 ┆) ; 5430 PRINT USING tal ┆ 0x7a0…7c0 24 3a 20 65 64 62 70 74 00 3b 0d 0a 35 34 34 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 ┆$: edbpt ; 5440 PRINT " pt┆ 0x7c0…7e0 73 2e 22 0d 0a 35 34 35 30 20 20 20 45 4c 53 45 20 0d 0a 35 34 36 30 20 20 20 20 20 50 52 49 4e ┆s." 5450 ELSE 5460 PRIN┆ 0x7e0…800 54 00 20 22 20 20 42 4f 4e 55 53 3a 22 3b 54 41 42 00 28 31 35 29 00 3b 0d 0a 35 34 37 30 20 20 ┆T " BONUS:";TAB (15) ; 5470 ┆ 0x800…820 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 24 3a 20 6d 61 6e 70 74 00 3b 0d ┆ PRINT USING tal $: manpt ; ┆ 0x820…840 0a 35 34 38 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 73 2e 20 20 22 3b 43 48 52 24 28 ┆ 5480 PRINT " pts. ";CHR$(┆ 0x840…860 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 0d 0a 35 34 39 30 20 20 20 20 20 50 ┆132) ;"5";CHR$(128) 5490 P┆ 0x860…880 52 49 4e 54 00 20 22 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 ┆RINT " ┆ 0x880…8a0 20 20 20 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 ┆ ";CHR$(132) ;"5";CHR$(128) ┆ 0x8a0…8c0 0d 0a 35 35 30 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 20 49 20 41 4c 54 3a 22 3b 54 41 42 ┆ 5500 PRINT " I ALT:";TAB┆ 0x8c0…8e0 00 28 31 35 29 00 3b 0d 0a 35 35 31 30 20 20 20 20 20 6d 61 6e 70 74 00 3a 3d 32 2a 00 6d 61 6e ┆ (15) ; 5510 manpt :=2* man┆ 0x8e0…900 70 74 00 0d 0a 35 35 32 30 20 20 20 20 20 50 52 49 4e 54 00 20 55 53 49 4e 47 00 20 74 61 6c 00 ┆pt 5520 PRINT USING tal ┆ 0x900…920 24 3a 20 6d 61 6e 70 74 00 3b 0d 0a 35 35 33 30 20 20 20 20 20 50 52 49 4e 54 00 20 22 20 70 74 ┆$: manpt ; 5530 PRINT " pt┆ 0x920…940 73 2e 20 20 22 3b 43 48 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 0d ┆s. ";CHR$(132) ;"5";CHR$(128) ┆ 0x940…960 0a 35 35 34 32 20 20 20 45 4e 44 49 46 00 20 0d 0a 35 35 35 30 20 20 20 50 52 49 4e 54 00 20 22 ┆ 5542 ENDIF 5550 PRINT "┆ 0x960…980 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 22 3b ┆ ";┆ 0x980…9a0 43 48 52 24 28 31 33 32 29 00 3b 22 35 22 3b 43 48 52 24 28 31 32 38 29 00 0d 0a 35 35 36 30 20 ┆CHR$(132) ;"5";CHR$(128) 5560 ┆ 0x9a0…9c0 20 20 50 52 49 4e 54 00 20 43 48 52 24 28 31 33 32 29 00 3b 0d 0a 35 35 37 30 20 20 20 50 52 49 ┆ PRINT CHR$(132) ; 5570 PRI┆ 0x9c0…9e0 4e 54 00 20 22 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c ┆NT "øøøøøøøøøøøøøøøøøøøøøøøøøøø┆ 0x9e0…a00 7c 7c 7c 7d 22 3b 0d 0a 35 35 38 30 20 20 20 50 52 49 4e 54 00 20 22 7c 7c 7c 7c 7c 7c 7c 7c 7c ┆øøøå"; 5580 PRINT "øøøøøøøøø┆ 0xa00…a20 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c 7c ┆øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø┆ 0xa20…a40 7c 22 3b 43 48 52 24 28 31 32 38 29 00 0d 0a 35 35 39 30 20 20 20 50 52 49 4e 54 00 20 0d 0a 35 ┆ø";CHR$(128) 5590 PRINT 5┆ 0xa40…a60 36 30 30 20 20 20 50 52 49 4e 54 00 20 0d 0a 35 36 31 30 20 20 20 49 46 20 65 64 62 70 74 00 3e ┆600 PRINT 5610 IF edbpt >┆ 0xa60…a80 00 6d 61 6e 70 74 00 20 54 48 45 4e 0d 0a 35 36 32 30 20 20 20 20 20 64 69 66 66 65 72 65 6e 73 ┆ manpt THEN 5620 differens┆ 0xa80…aa0 00 3a 3d 65 64 62 70 74 00 2d 00 6d 61 6e 70 74 00 0d 0a 35 36 33 30 20 20 20 20 20 50 52 49 4e ┆ :=edbpt - manpt 5630 PRIN┆ 0xaa0…ac0 54 00 20 22 44 65 72 6d 65 64 20 76 61 6e 64 74 20 52 43 37 30 32 20 6d 65 64 22 3b 64 69 66 66 ┆T "Dermed vandt RC702 med";diff┆ 0xac0…ae0 65 72 65 6e 73 00 3b 0d 0a 35 36 34 30 20 20 20 20 20 49 46 20 64 69 66 66 65 72 65 6e 73 00 3d ┆erens ; 5640 IF differens =┆ 0xae0…b00 00 31 20 54 48 45 4e 20 50 52 49 4e 54 00 20 22 70 6f 69 6e 74 2e 20 22 3b 0d 0a 35 36 35 30 20 ┆ 1 THEN PRINT "point. "; 5650 ┆ 0xb00…b20 20 20 20 20 49 46 20 64 69 66 66 65 72 65 6e 73 00 3e 00 31 20 54 48 45 4e 20 50 52 49 4e 54 00 ┆ IF differens > 1 THEN PRINT ┆ 0xb20…b40 20 22 70 6f 69 6e 74 73 2e 20 22 3b 0d 0a 35 36 36 30 20 20 20 20 20 61 00 24 3a 3d 22 52 43 37 ┆ "points. "; 5660 a $:="RC7┆ 0xb40…b60 30 32 20 6f 76 65 72 20 22 2b 00 61 00 24 3b 20 65 6b 73 74 72 61 24 3a 3d 22 52 43 37 30 32 22 ┆02 over "+ a $; ekstra$:="RC702"┆ 0xb60…b80 0d 0a 35 36 37 30 20 20 20 45 4e 44 49 46 00 20 0d 0a 35 36 38 30 20 20 20 49 46 20 6d 61 6e 70 ┆ 5670 ENDIF 5680 IF manp┆ 0xb80…ba0 74 00 3e 00 65 64 62 70 74 00 20 54 48 45 4e 0d 0a 35 36 39 30 20 20 20 20 20 64 69 66 66 65 72 ┆t > edbpt THEN 5690 differ┆ 0xba0…bc0 65 6e 73 00 3a 3d 6d 61 6e 70 74 00 2d 00 65 64 62 70 74 00 0d 0a 35 37 30 30 20 20 20 20 20 50 ┆ens :=manpt - edbpt 5700 P┆ 0xbc0…be0 52 49 4e 54 00 20 22 44 65 72 6d 65 64 20 76 61 6e 64 74 20 64 75 20 6d 65 64 22 3b 64 69 66 66 ┆RINT "Dermed vandt du med";diff┆ 0xbe0…c00 65 72 65 6e 73 00 3b 0d 0a 35 37 31 30 20 20 20 20 20 49 46 20 64 69 66 66 65 72 65 6e 73 00 3d ┆erens ; 5710 IF differens =┆ 0xc00…c20 00 31 20 54 48 45 4e 20 50 52 49 4e 54 00 20 22 70 6f 69 6e 74 2e 20 22 3b 0d 0a 35 37 32 30 20 ┆ 1 THEN PRINT "point. "; 5720 ┆ 0xc20…c40 20 20 20 20 49 46 20 64 69 66 66 65 72 65 6e 73 00 3e 00 31 20 54 48 45 4e 20 50 52 49 4e 54 00 ┆ IF differens > 1 THEN PRINT ┆ 0xc40…c60 20 22 70 6f 69 6e 74 73 2e 20 22 3b 0d 0a 35 37 32 35 20 20 20 20 20 65 6b 73 74 72 61 24 3a 3d ┆ "points. "; 5725 ekstra$:=┆ 0xc60…c80 22 64 75 22 0d 0a 35 37 33 30 20 20 20 45 4e 44 49 46 00 20 0d 0a 35 37 34 30 20 20 20 49 46 20 ┆"du" 5730 ENDIF 5740 IF ┆ 0xc80…ca0 6d 61 6e 70 74 00 3d 00 65 64 62 70 74 00 20 54 48 45 4e 20 50 52 49 4e 54 00 20 22 44 65 72 6d ┆manpt = edbpt THEN PRINT "Derm┆ 0xca0…cc0 65 64 20 62 6c 65 76 20 64 65 74 20 64 7c 64 74 20 6c 7c 62 2e 22 3b 0d 0a 35 37 35 30 20 20 20 ┆ed blev det dødt løb."; 5750 ┆ 0xcc0…ce0 49 46 20 6d 61 6e 70 74 00 3d 00 65 64 62 70 74 00 20 54 48 45 4e 20 64 69 66 66 65 72 65 6e 73 ┆IF manpt = edbpt THEN differens┆ 0xce0…d00 00 3a 3d 30 0d 0a 35 37 36 30 20 20 20 49 46 20 64 69 66 66 65 72 65 6e 73 00 3e 3d 66 69 6e 65 ┆ :=0 5760 IF differens >=fine┆ 0xd00…d20 20 54 48 45 4e 0d 0a 35 37 36 32 20 20 20 20 20 50 52 49 4e 54 00 20 0d 0a 35 37 36 34 20 20 20 ┆ THEN 5762 PRINT 5764 ┆ 0xd20…d40 20 20 65 6b 73 74 72 61 62 6f 6e 75 73 00 3a 3d 49 4e 54 00 28 31 30 30 2b 00 00 28 64 69 66 66 ┆ ekstrabonus :=INT (100+ (diff┆ 0xd40…d60 65 72 65 6e 73 00 2d 00 66 69 6e 65 29 00 2f 00 32 29 00 0d 0a 35 37 36 35 20 20 20 20 20 64 69 ┆erens - fine) / 2) 5765 di┆ 0xd60…d80 66 66 65 72 65 6e 73 00 3a 3d 64 69 66 66 65 72 65 6e 73 00 2b 00 65 6b 73 74 72 61 62 6f 6e 75 ┆fferens :=differens + ekstrabonu┆ 0xd80…da0 73 00 0d 0a 35 37 36 36 20 20 20 20 20 50 52 49 4e 54 00 20 22 44 61 20 22 3b 65 6b 73 74 72 61 ┆s 5766 PRINT "Da ";ekstra┆ 0xda0…dc0 24 3b 22 20 68 65 72 6d 65 64 20 68 61 72 20 6f 70 6e 7d 65 74 20 69 64 65 61 6c 73 63 6f 72 65 ┆$;" hermed har opnået idealscore┆ 0xdc0…de0 6e 20 70 7d 22 3b 66 69 6e 65 3b 22 70 74 73 2e 2c 22 0d 0a 35 37 36 37 20 20 20 20 20 50 52 49 ┆n på";fine;"pts.," 5767 PRI┆ 0xde0…e00 4e 54 00 20 22 74 69 6c 6c 7b 67 67 65 73 20 65 6e 20 45 4b 53 54 52 41 42 4f 4e 55 53 20 70 7d ┆NT "tillægges en EKSTRABONUS på┆ 0xe00…e20 22 3b 65 6b 73 74 72 61 62 6f 6e 75 73 00 3b 22 70 74 73 2e 2c 22 3b 0d 0a 35 37 36 38 20 20 20 ┆";ekstrabonus ;"pts.,"; 5768 ┆ 0xe20…e40 20 20 50 52 49 4e 54 00 20 22 20 61 6c 74 73 7d 20 69 20 61 6c 74 3a 22 3b 43 48 52 24 28 31 34 ┆ PRINT " altså i alt:";CHR$(14┆ 0xe40…e60 34 29 00 3b 64 69 66 66 65 72 65 6e 73 00 3b 22 70 74 73 2e 22 3b 43 48 52 24 28 31 32 38 29 00 ┆4) ;differens ;"pts.";CHR$(128) ┆ 0xe60…e80 0d 0a 35 37 36 39 20 20 20 45 4c 53 45 20 0d 0a 35 37 37 30 20 20 20 20 20 50 52 49 4e 54 00 20 ┆ 5769 ELSE 5770 PRINT ┆ 0xe80…ea0 22 28 49 64 65 61 6c 73 63 6f 72 65 6e 20 76 61 72 22 3b 66 69 6e 65 3b 22 70 6f 69 6e 74 73 2e ┆"(Idealscoren var";fine;"points.┆ 0xea0…ec0 29 22 0d 0a 35 37 37 31 20 20 20 45 4e 44 49 46 00 20 0d 0a 35 37 37 34 20 20 20 45 58 45 43 20 ┆)" 5771 ENDIF 5774 EXEC ┆ 0xec0…ee0 67 65 74 66 69 6c 65 00 0d 0a 35 37 37 35 20 20 20 45 58 45 43 20 70 75 74 66 69 6c 65 00 0d 0a ┆getfile 5775 EXEC putfile ┆ 0xee0…f00 35 37 37 37 20 20 20 45 58 45 43 20 73 70 6f 74 28 31 2c 32 32 29 00 0d 0a 35 37 38 30 20 20 20 ┆5777 EXEC spot(1,22) 5780 ┆ 0xf00…f20 50 52 49 4e 54 00 20 22 54 72 79 6b 20 70 7d 20 65 6e 20 74 61 73 74 20 2d 20 73 7d 20 66 7d 72 ┆PRINT "Tryk på en tast - så får┆ 0xf20…f40 20 64 75 20 53 50 49 4c 4c 45 54 53 20 4d 45 53 54 52 45 2e 2e 2e 22 0d 0a 35 37 39 30 20 20 20 ┆ du SPILLETS MESTRE..." 5790 ┆ 0xf40…f60 7d 00 3a 3d 6b 65 79 71 28 30 29 00 0d 0a 35 38 30 30 20 45 4e 44 50 52 4f 43 00 20 72 65 73 75 ┆å :=keyq(0) 5800 ENDPROC resu┆ 0xf60…f80 6c 74 0d 0a 19 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆lt ┆