DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5632 (0x1600) Names: »B42«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image └─ ⟦this⟧ »/B42«
0x0000…0020 20 30 30 30 31 20 4f 4e 20 45 53 43 20 43 48 41 49 4e 20 22 4c 4f 47 4f 4e 22 0d 0a 20 30 30 31 ┆ 0001 ON ESC CHAIN "LOGON" 001┆ 0x0020…0040 30 20 52 45 4d 20 0d 0a 20 30 30 32 30 20 52 45 4d 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 REM 0020 REM . ┆ 0x0040…0060 4e 45 44 53 4b 59 44 0d 0a 20 30 30 33 30 20 52 45 4d 20 0d 0a 20 30 30 34 30 20 52 45 4d 20 43 ┆NEDSKYD 0030 REM 0040 REM C┆ 0x0060…0080 4f 50 59 52 49 47 48 54 3a 20 43 41 52 53 54 45 4e 20 44 2e 20 42 45 43 48 2e 0d 0a 20 30 30 35 ┆OPYRIGHT: CARSTEN D. BECH. 005┆ 0x0080…00a0 30 20 52 45 4d 20 0d 0a 20 30 30 36 30 20 52 45 4d 20 0d 0a 20 30 30 37 30 20 52 45 4d 20 34 2d ┆0 REM 0060 REM 0070 REM 4-┆ 0x00a0…00c0 36 2d 31 39 38 31 0d 0a 20 30 30 38 30 20 44 49 4d 20 53 56 41 52 24 28 31 29 2c 48 24 28 38 30 ┆6-1981 0080 DIM SVAR$(1),H$(80┆ 0x00c0…00e0 29 2c 4b 4b 28 32 34 29 2c 4a 24 28 38 30 29 2c 56 5b 28 32 34 29 2c 46 46 28 33 29 2c 54 4f 28 ┆),KK(24),J$(80),VÆ(24),FF(3),TO(┆ 0x00e0…0100 33 29 2c 4e 5d 28 32 34 29 2c 4c 53 24 28 32 29 0d 0a 20 30 30 39 30 20 44 49 4d 20 42 55 24 28 ┆3),NÅ(24),LS$(2) 0090 DIM BU$(┆ 0x0100…0120 31 32 38 29 0d 0a 20 30 31 30 30 20 52 41 4e 44 4f 4d 49 5a 45 20 0d 0a 20 30 31 31 30 20 44 45 ┆128) 0100 RANDOMIZE 0110 DE┆ 0x0120…0140 46 20 46 4e 51 28 58 29 3d 39 35 2b 58 2d 28 28 58 2d 31 29 20 44 49 56 20 33 32 29 2a 36 34 0d ┆F FNQ(X)=95+X-((X-1) DIV 32)*64 ┆ 0x0140…0160 0a 20 30 31 32 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 32 30 30 20 45 58 45 43 ┆ 0120 PRINT CHR(12) 0200 EXEC┆ 0x0160…0180 20 46 52 45 4d 0d 0a 20 30 32 31 30 20 4f 50 45 4e 20 22 32 2f 53 43 4f 52 45 22 2c 4d 4d 4f 2c ┆ FREM 0210 OPEN "2/SCORE",MMO,┆ 0x0180…01a0 42 55 24 2c 31 30 0d 0a 20 30 32 32 35 20 4e 59 3d 30 0d 0a 20 30 32 33 30 20 52 45 50 45 41 54 ┆BU$,10 0225 NY=0 0230 REPEAT┆ 0x01a0…01c0 20 0d 0a 20 30 32 34 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 32 35 30 20 ┆ 0240 PRINT CHR(12) 0250 ┆ 0x01c0…01e0 20 20 50 52 49 4e 54 20 22 48 56 49 4c 4b 45 4e 20 53 56 5b 52 48 45 44 53 47 52 41 44 20 56 49 ┆ PRINT "HVILKEN SVÆRHEDSGRAD VI┆ 0x01e0…0200 4c 20 49 20 42 52 55 47 45 3f 22 0d 0a 20 30 32 36 30 20 20 20 50 52 49 4e 54 20 54 41 42 28 33 ┆L I BRUGE?" 0260 PRINT TAB(3┆ 0x0200…0220 35 29 3b 20 22 31 2e 20 46 4f 52 20 45 4c 49 54 45 2d 53 50 49 4c 4c 45 52 45 22 0d 0a 20 30 32 ┆5); "1. FOR ELITE-SPILLERE" 02┆ 0x0220…0240 37 30 20 20 20 50 52 49 4e 54 20 54 41 42 28 33 35 29 3b 20 22 32 2e 20 46 4f 52 20 53 5b 52 4c ┆70 PRINT TAB(35); "2. FOR SÆRL┆ 0x0240…0260 49 47 20 47 4f 44 45 20 53 50 49 4c 4c 45 52 45 22 0d 0a 20 30 32 38 30 20 20 20 50 52 49 4e 54 ┆IG GODE SPILLERE" 0280 PRINT┆ 0x0260…0280 20 54 41 42 28 33 35 29 3b 20 22 33 2e 20 46 4f 52 20 47 4f 44 45 20 53 50 49 4c 4c 45 52 45 22 ┆ TAB(35); "3. FOR GODE SPILLERE"┆ 0x0280…02a0 0d 0a 20 30 32 39 30 20 20 20 50 52 49 4e 54 20 54 41 42 28 33 35 29 3b 20 22 34 2e 20 46 4f 52 ┆ 0290 PRINT TAB(35); "4. FOR┆ 0x02a0…02c0 20 41 4c 4d 49 4e 44 45 4c 49 47 45 20 53 50 49 4c 4c 45 52 45 22 0d 0a 20 30 33 30 30 20 20 20 ┆ ALMINDELIGE SPILLERE" 0300 ┆ 0x02c0…02e0 50 52 49 4e 54 20 54 41 42 28 33 35 29 3b 20 22 35 2e 20 46 4f 52 20 44 5d 52 4c 49 47 45 20 53 ┆PRINT TAB(35); "5. FOR DÅRLIGE S┆ 0x02e0…0300 50 49 4c 45 52 45 2f 4e 59 42 45 47 59 4e 44 45 52 45 22 0d 0a 20 30 33 30 32 20 20 20 50 52 49 ┆PILERE/NYBEGYNDERE" 0302 PRI┆ 0x0300…0320 4e 54 20 0d 0a 20 30 33 30 34 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 42 52 55 47 ┆NT 0304 PRINT " BRUG┆ 0x0320…0340 20 3c 45 53 43 3e 20 4e 5d 52 20 44 55 20 56 49 4c 20 53 4b 59 44 45 21 22 0d 0a 20 30 33 30 36 ┆ <ESC> NÅR DU VIL SKYDE!" 0306┆ 0x0340…0360 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 33 31 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 33 32 ┆ PRINT 0310 REPEAT 032┆ 0x0360…0380 30 20 20 20 20 20 49 4e 50 55 54 20 22 53 56 5b 52 48 45 44 53 47 52 41 44 20 4e 52 2e 20 22 2c ┆0 INPUT "SVÆRHEDSGRAD NR. ",┆ 0x0380…03a0 53 56 5b 52 0d 0a 20 30 33 33 30 20 20 20 55 4e 54 49 4c 20 53 56 5b 52 3d 49 4e 54 28 53 56 5b ┆SVÆR 0330 UNTIL SVÆR=INT(SVÆ┆ 0x03a0…03c0 52 29 20 41 4e 44 20 53 56 5b 52 3e 30 20 41 4e 44 20 53 56 5b 52 3c 36 0d 0a 20 30 33 34 30 20 ┆R) AND SVÆR>0 AND SVÆR<6 0340 ┆ 0x03c0…03e0 20 20 53 56 5b 52 48 3d 53 56 5b 52 0d 0a 20 30 33 35 30 20 20 20 53 56 5b 52 3d 49 4e 54 28 31 ┆ SVÆRH=SVÆR 0350 SVÆR=INT(1┆ 0x03e0…0400 32 2b 28 28 53 56 5b 52 2d 31 29 2a 28 53 56 5b 52 2d 32 29 29 29 0d 0a 20 30 33 36 30 20 20 20 ┆2+((SVÆR-1)*(SVÆR-2))) 0360 ┆ 0x0400…0420 49 46 20 53 56 5b 52 48 3d 31 20 54 48 45 4e 20 53 56 5b 52 3d 31 30 0d 0a 20 30 33 37 30 20 20 ┆IF SVÆRH=1 THEN SVÆR=10 0370 ┆ 0x0420…0440 20 52 45 4d 20 45 58 45 43 20 56 5b 4b 0d 0a 20 30 33 38 30 20 20 20 45 58 45 43 20 4b 5c 52 0d ┆ REM EXEC VÆK 0380 EXEC KØR ┆ 0x0440…0460 0a 20 30 33 39 30 20 20 20 49 46 20 50 4f 49 55 3e 48 49 47 48 20 54 48 45 4e 20 4c 45 54 20 48 ┆ 0390 IF POIU>HIGH THEN LET H┆ 0x0460…0480 49 47 48 3d 50 4f 49 55 3b 20 4e 59 3d 31 0d 0a 20 30 33 39 35 20 20 20 4f 4e 20 45 53 43 20 47 ┆IGH=POIU; NY=1 0395 ON ESC G┆ 0x0480…04a0 31 3d 31 0d 0a 20 30 34 30 30 20 20 20 45 58 45 43 20 43 55 52 28 31 39 2c 31 34 29 0d 0a 20 30 ┆1=1 0400 EXEC CUR(19,14) 0┆ 0x04a0…04c0 34 30 35 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 34 31 30 20 20 20 50 52 49 4e 54 ┆405 ON ESC G1=1 0410 PRINT┆ 0x04c0…04e0 20 43 48 52 28 31 34 34 29 3b 20 22 48 5c 4a 45 53 54 45 20 53 43 4f 52 45 20 50 5d 20 44 45 4e ┆ CHR(144); "HØJESTE SCORE PÅ DEN┆ 0x04e0…0500 4e 45 20 43 4f 4d 50 55 54 45 52 3a 22 3b 20 48 49 47 48 3b 20 43 48 52 28 31 32 38 29 0d 0a 20 ┆NE COMPUTER:"; HIGH; CHR(128) ┆ 0x0500…0520 30 34 32 30 20 20 20 46 4f 52 20 41 3d 31 20 54 4f 20 32 30 30 0d 0a 20 30 34 33 30 20 20 20 20 ┆0420 FOR A=1 TO 200 0430 ┆ 0x0520…0540 20 4f 4e 20 45 53 43 20 47 31 3d 30 0d 0a 20 30 34 34 30 20 20 20 4e 45 58 54 20 41 0d 0a 20 30 ┆ ON ESC G1=0 0440 NEXT A 0┆ 0x0540…0560 34 35 30 20 20 20 45 58 45 43 20 46 52 45 4d 0d 0a 20 30 34 36 30 20 20 20 45 58 45 43 20 43 55 ┆450 EXEC FREM 0460 EXEC CU┆ 0x0560…0580 52 28 31 2c 31 38 29 0d 0a 20 30 34 37 30 20 20 20 49 4e 50 55 54 20 22 56 49 4c 20 49 20 50 52 ┆R(1,18) 0470 INPUT "VIL I PR┆ 0x0580…05a0 5c 56 45 20 49 47 45 4e 3f 20 22 2c 53 56 41 52 24 0d 0a 20 30 34 38 30 20 55 4e 54 49 4c 20 53 ┆ØVE IGEN? ",SVAR$ 0480 UNTIL S┆ 0x05a0…05c0 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 22 0d 0a 20 30 34 39 30 20 49 46 20 ┆VAR$="N" OR SVAR$="N" 0490 IF ┆ 0x05c0…05e0 4e 59 3d 31 20 54 48 45 4e 20 50 55 54 20 4d 4d 4f 2c 31 20 3a 20 48 49 47 48 0d 0a 20 30 35 30 ┆NY=1 THEN PUT MMO,1 : HIGH 050┆ 0x05e0…0600 30 20 43 4c 4f 53 45 20 4d 4d 4f 0d 0a 20 30 35 31 30 20 43 48 41 49 4e 20 22 4c 4f 47 4f 4e 22 ┆0 CLOSE MMO 0510 CHAIN "LOGON"┆ 0x0600…0620 0d 0a 20 30 35 32 30 20 47 4f 20 54 4f 20 30 30 31 30 0d 0a 20 30 35 33 30 20 50 52 4f 43 20 43 ┆ 0520 GO TO 0010 0530 PROC C┆ 0x0620…0640 55 52 28 58 2c 59 29 0d 0a 20 30 35 34 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 ┆UR(X,Y) 0540 PRINT CHR(6); C┆ 0x0640…0660 48 52 28 46 4e 51 28 58 29 29 3b 20 43 48 52 28 46 4e 51 28 59 29 29 3b 20 0d 0a 20 30 35 35 30 ┆HR(FNQ(X)); CHR(FNQ(Y)); 0550┆ 0x0660…0680 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 35 36 30 20 50 52 4f 43 20 5c 45 52 0d 0a 20 30 35 37 30 ┆ ENDPROC 0560 PROC ØER 0570┆ 0x0680…06a0 20 20 20 54 4f 28 31 29 3d 31 3b 20 54 4f 28 33 29 3d 32 34 3b 20 47 41 4e 47 3d 32 30 2e 35 3b ┆ TO(1)=1; TO(3)=24; GANG=20.5;┆ 0x06a0…06c0 20 49 41 4c 54 3d 32 34 3b 20 53 4b 55 44 3d 30 3b 20 54 52 5b 46 3d 30 0d 0a 20 30 35 38 30 20 ┆ IALT=24; SKUD=0; TRÆF=0 0580 ┆ 0x06c0…06e0 20 20 54 54 54 3d 49 4e 54 28 52 4e 44 28 30 29 2a 31 30 29 2b 31 0d 0a 20 30 35 39 30 20 20 20 ┆ TTT=INT(RND(0)*10)+1 0590 ┆ 0x06e0…0700 46 4f 52 20 41 3d 31 20 54 4f 20 54 54 54 0d 0a 20 30 36 30 30 20 20 20 20 20 42 3d 52 4e 44 28 ┆FOR A=1 TO TTT 0600 B=RND(┆ 0x0700…0720 30 29 0d 0a 20 30 36 31 30 20 20 20 4e 45 58 54 20 41 0d 0a 20 30 36 32 30 20 20 20 50 52 49 4e ┆0) 0610 NEXT A 0620 PRIN┆ 0x0720…0740 54 20 43 48 52 28 31 32 29 3b 20 43 48 52 28 36 29 3b 20 43 48 52 28 34 32 29 3b 20 43 48 52 28 ┆T CHR(12); CHR(6); CHR(42); CHR(┆ 0x0740…0760 31 30 37 29 3b 20 22 52 45 53 54 22 0d 0a 20 30 36 33 30 20 20 20 46 4f 52 20 41 3d 31 20 54 4f ┆107); "REST" 0630 FOR A=1 TO┆ 0x0760…0780 20 32 34 0d 0a 20 30 36 34 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 ┆ 24 0640 PRINT CHR(6); CHR┆ 0x0780…07a0 28 39 36 29 3b 20 43 48 52 28 39 35 2b 41 29 3b 20 43 48 52 28 31 34 31 29 0d 0a 20 30 36 35 30 ┆(96); CHR(95+A); CHR(141) 0650┆ 0x07a0…07c0 20 20 20 20 20 4b 4b 28 41 29 3d 49 4e 54 28 52 4e 44 28 30 29 2a 39 29 2b 31 3b 20 4e 5d 28 41 ┆ KK(A)=INT(RND(0)*9)+1; NÅ(A┆ 0x07c0…07e0 29 3d 31 3b 20 56 5b 28 41 29 3d 49 4e 54 28 52 4e 44 28 30 29 2a 53 56 5b 52 29 2b 32 0d 0a 20 ┆)=1; VÆ(A)=INT(RND(0)*SVÆR)+2 ┆ 0x07e0…0800 30 36 36 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 33 35 29 3b 20 ┆0660 PRINT CHR(6); CHR(35); ┆ 0x0800…0820 43 48 52 28 39 35 2b 41 29 3b 20 43 48 52 28 31 32 38 29 3b 20 0d 0a 20 30 36 37 30 20 20 20 20 ┆CHR(95+A); CHR(128); 0670 ┆ 0x0820…0840 20 49 46 20 41 3d 31 20 4f 52 20 41 3d 32 34 20 54 48 45 4e 20 4c 45 54 20 56 5b 28 41 29 3d 49 ┆ IF A=1 OR A=24 THEN LET VÆ(A)=I┆ 0x0840…0860 4e 54 28 56 5b 28 41 29 2a 31 2e 35 29 0d 0a 20 30 36 38 30 20 20 20 20 20 50 52 49 4e 54 20 55 ┆NT(VÆ(A)*1.5) 0680 PRINT U┆ 0x0860…0880 53 49 4e 47 20 22 23 23 23 22 20 3a 20 56 5b 28 41 29 0d 0a 20 30 36 39 30 20 20 20 20 20 46 4f ┆SING "###" : VÆ(A) 0690 FO┆ 0x0880…08a0 52 20 43 3d 31 20 54 4f 20 4b 4b 28 41 29 0d 0a 20 30 37 30 30 20 20 20 20 20 20 20 50 52 49 4e ┆R C=1 TO KK(A) 0700 PRIN┆ 0x08a0…08c0 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 46 4e 51 28 33 31 2d 43 29 29 3b 20 43 48 52 28 39 35 ┆T CHR(6); CHR(FNQ(31-C)); CHR(95┆ 0x08c0…08e0 2b 41 29 3b 20 43 48 52 28 31 32 37 29 0d 0a 20 30 37 31 30 20 20 20 20 20 4e 45 58 54 20 43 0d ┆+A); CHR(127) 0710 NEXT C ┆ 0x08e0…0900 0a 20 30 37 32 30 20 20 20 4e 45 58 54 20 41 0d 0a 20 30 37 33 30 20 20 20 48 24 3d 43 48 52 28 ┆ 0720 NEXT A 0730 H$=CHR(┆ 0x0900…0920 31 32 37 29 2b 43 48 52 28 36 31 29 3b 20 4a 24 3d 22 22 3b 20 4c 53 24 3d 48 24 0d 0a 20 30 37 ┆127)+CHR(61); J$=""; LS$=H$ 07┆ 0x0920…0940 34 30 20 20 20 46 4f 52 20 41 3d 31 20 54 4f 20 38 0d 0a 20 30 37 35 30 20 20 20 20 20 49 46 20 ┆40 FOR A=1 TO 8 0750 IF ┆ 0x0940…0960 41 3c 34 20 54 48 45 4e 20 0d 0a 20 30 37 36 30 20 20 20 20 20 20 20 48 24 3d 48 24 2b 22 24 24 ┆A<4 THEN 0760 H$=H$+"$$┆ 0x0960…0980 24 24 24 24 24 24 24 24 22 0d 0a 20 30 37 37 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 37 38 ┆$$$$$$$$" 0770 ELSE 078┆ 0x0980…09a0 30 20 20 20 20 20 20 20 48 24 3d 48 24 2b 22 20 24 20 24 20 24 20 24 20 24 22 0d 0a 20 30 37 39 ┆0 H$=H$+" $ $ $ $ $" 079┆ 0x09a0…09c0 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 38 30 30 20 20 20 20 20 4a 24 3d 4a 24 2b 22 20 ┆0 ENDIF 0800 J$=J$+" ┆ 0x09c0…09e0 20 20 20 20 20 20 20 20 20 22 0d 0a 20 30 38 31 30 20 20 20 4e 45 58 54 20 41 0d 0a 20 30 38 32 ┆ " 0810 NEXT A 082┆ 0x09e0…0a00 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 38 33 30 20 50 52 4f 43 20 53 4b 59 44 28 5b 29 0d 0a ┆0 ENDPROC 0830 PROC SKYD(Æ) ┆ 0x0a00…0a20 20 30 38 34 30 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 38 35 30 20 20 20 49 46 20 ┆ 0840 ON ESC G1=1 0850 IF ┆ 0x0a20…0a40 5b 3e 30 20 41 4e 44 20 5b 3c 32 35 20 54 48 45 4e 20 0d 0a 20 30 38 36 30 20 20 20 20 20 4f 4e ┆Æ>0 AND Æ<25 THEN 0860 ON┆ 0x0a40…0a60 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 38 37 30 20 20 20 20 20 41 3d 4b 4b 28 5b 29 3b 20 53 4b ┆ ESC G1=1 0870 A=KK(Æ); SK┆ 0x0a60…0a80 55 44 3d 53 4b 55 44 2b 31 0d 0a 20 30 38 38 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 ┆UD=SKUD+1 0880 PRINT CHR(6┆ 0x0a80…0aa0 29 3b 20 43 48 52 28 39 37 29 3b 20 43 48 52 28 39 35 2b 53 54 5d 29 3b 20 22 20 20 22 0d 0a 20 ┆); CHR(97); CHR(95+STÅ); " " ┆ 0x0aa0…0ac0 30 38 39 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 39 30 30 20 20 20 20 20 ┆0890 ON ESC G1=1 0900 ┆ 0x0ac0…0ae0 49 46 20 41 3c 3d 30 20 54 48 45 4e 20 4c 45 54 20 41 3d 2d 34 30 3b 20 4e 5d 28 5b 29 3d 4e 5d ┆IF A<=0 THEN LET A=-40; NÅ(Æ)=NÅ┆ 0x0ae0…0b00 28 5b 29 2d 31 0d 0a 20 30 39 31 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 ┆(Æ)-1 0910 ON ESC G1=1 0┆ 0x0b00…0b20 39 32 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 39 37 29 3b 20 43 ┆920 PRINT CHR(6); CHR(97); C┆ 0x0b20…0b40 48 52 28 39 35 2b 5b 29 3b 20 48 24 28 31 20 3a 20 33 30 2d 41 29 0d 0a 20 30 39 33 30 20 20 20 ┆HR(95+Æ); H$(1 : 30-A) 0930 ┆ 0x0b40…0b60 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 39 34 30 20 20 20 20 20 50 52 49 4e 54 20 43 ┆ ON ESC G1=1 0940 PRINT C┆ 0x0b60…0b80 48 52 28 36 29 3b 20 43 48 52 28 39 37 29 3b 20 43 48 52 28 39 35 2b 5b 29 3b 20 4a 24 28 31 20 ┆HR(6); CHR(97); CHR(95+Æ); J$(1 ┆ 0x0b80…0ba0 3a 20 33 30 2d 41 29 0d 0a 20 30 39 35 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a ┆: 30-A) 0950 ON ESC G1=1 ┆ 0x0ba0…0bc0 20 30 39 36 30 20 20 20 20 20 4b 4b 28 5b 29 3d 4b 4b 28 5b 29 2d 31 3b 20 47 41 4e 47 3d 47 41 ┆ 0960 KK(Æ)=KK(Æ)-1; GANG=GA┆ 0x0bc0…0be0 4e 47 2d 31 0d 0a 20 30 39 37 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 30 39 ┆NG-1 0970 ON ESC G1=1 09┆ 0x0be0…0c00 38 30 20 20 20 20 20 49 46 20 4e 5d 28 5b 29 3e 2d 31 20 54 48 45 4e 20 4c 45 54 20 54 52 5b 46 ┆80 IF NÅ(Æ)>-1 THEN LET TRÆF┆ 0x0c00…0c20 3d 54 52 5b 46 2b 31 0d 0a 20 30 39 39 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a ┆=TRÆF+1 0990 ON ESC G1=1 ┆ 0x0c20…0c40 20 31 30 30 30 20 20 20 20 20 49 46 20 4e 5d 28 5b 29 3d 30 20 54 48 45 4e 20 4c 45 54 20 47 41 ┆ 1000 IF NÅ(Æ)=0 THEN LET GA┆ 0x0c40…0c60 4e 47 3d 47 41 4e 47 2b 56 5b 28 5b 29 3b 20 49 41 4c 54 3d 49 41 4c 54 2d 31 0d 0a 20 31 30 31 ┆NG=GANG+VÆ(Æ); IALT=IALT-1 101┆ 0x0c60…0c80 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 31 30 32 30 20 20 20 20 20 49 46 20 ┆0 ON ESC G1=1 1020 IF ┆ 0x0c80…0ca0 4e 5d 28 5b 29 3e 2d 31 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 ┆NÅ(Æ)>-1 THEN PRINT CHR(6); CHR(┆ 0x0ca0…0cc0 34 32 29 3b 20 43 48 52 28 39 36 29 0d 0a 20 31 30 33 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 ┆42); CHR(96) 1030 ON ESC G┆ 0x0cc0…0ce0 31 3d 31 0d 0a 20 31 30 34 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 ┆1=1 1040 PRINT CHR(6); CHR┆ 0x0ce0…0d00 28 33 39 29 3b 20 43 48 52 28 31 30 38 29 3b 20 43 48 52 28 31 32 38 29 3b 20 0d 0a 20 31 30 35 ┆(39); CHR(108); CHR(128); 105┆ 0x0d00…0d20 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 31 30 36 30 20 20 20 20 20 50 52 49 ┆0 ON ESC G1=1 1060 PRI┆ 0x0d20…0d40 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 2e 23 22 20 3a 20 47 41 4e 47 0d 0a 20 31 30 37 30 20 ┆NT USING "####.#" : GANG 1070 ┆ 0x0d40…0d60 20 20 45 4e 44 49 46 20 0d 0a 20 31 30 38 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 31 30 39 30 20 ┆ ENDIF 1080 ENDPROC 1090 ┆ 0x0d60…0d80 50 52 4f 43 20 4b 5c 52 0d 0a 20 31 31 30 30 20 20 20 45 58 45 43 20 5c 45 52 0d 0a 20 31 31 31 ┆PROC KØR 1100 EXEC ØER 111┆ 0x0d80…0da0 30 20 20 20 52 45 54 3d 49 4e 54 28 52 4e 44 28 30 29 2a 32 29 3b 20 5c 3d 32 3b 20 47 47 3d 30 ┆0 RET=INT(RND(0)*2); Ø=2; GG=0┆ 0x0da0…0dc0 0d 0a 20 31 31 32 30 20 20 20 49 46 20 52 45 54 3d 30 20 54 48 45 4e 20 52 45 54 3d 2d 31 0d 0a ┆ 1120 IF RET=0 THEN RET=-1 ┆ 0x0dc0…0de0 20 31 31 33 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 31 34 30 20 20 20 20 20 52 45 54 3d 2d ┆ 1130 REPEAT 1140 RET=-┆ 0x0de0…0e00 52 45 54 3b 20 47 41 4e 47 3d 47 41 4e 47 2d 30 2e 35 3b 20 46 52 3d 54 4f 28 32 2d 52 45 54 29 ┆RET; GANG=GANG-0.5; FR=TO(2-RET)┆ 0x0e00…0e20 2b 52 45 54 3b 20 54 49 3d 54 4f 28 32 2b 52 45 54 29 0d 0a 20 31 31 35 30 20 20 20 20 20 50 52 ┆+RET; TI=TO(2+RET) 1150 PR┆ 0x0e20…0e40 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 34 30 29 3b 20 43 48 52 28 31 30 38 29 3b 20 0d ┆INT CHR(6); CHR(40); CHR(108); ┆ 0x0e40…0e60 0a 20 31 31 36 30 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 2e 23 22 20 ┆ 1160 PRINT USING "####.#" ┆ 0x0e60…0e80 3a 20 47 41 4e 47 0d 0a 20 31 31 37 30 20 20 20 20 20 46 4f 52 20 53 54 5d 3d 46 52 20 54 4f 20 ┆: GANG 1170 FOR STÅ=FR TO ┆ 0x0e80…0ea0 54 49 20 53 54 45 50 20 52 45 54 0d 0a 20 31 31 38 30 20 20 20 20 20 20 20 4f 4e 20 45 53 43 20 ┆TI STEP RET 1180 ON ESC ┆ 0x0ea0…0ec0 45 58 45 43 20 53 4b 59 44 28 5c 29 0d 0a 20 31 31 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆EXEC SKYD(Ø) 1190 PRINT ┆ 0x0ec0…0ee0 43 48 52 28 36 29 3b 20 43 48 52 28 39 37 29 3b 20 43 48 52 28 39 35 2b 5c 29 3b 20 22 20 20 22 ┆CHR(6); CHR(97); CHR(95+Ø); " "┆ 0x0ee0…0f00 0d 0a 20 31 32 30 30 20 20 20 20 20 20 20 4f 4e 20 45 53 43 20 45 58 45 43 20 53 4b 59 44 28 5c ┆ 1200 ON ESC EXEC SKYD(Ø┆ 0x0f00…0f20 29 0d 0a 20 31 32 31 30 20 20 20 20 20 20 20 5c 3d 53 54 5d 0d 0a 20 31 32 32 30 20 20 20 20 20 ┆) 1210 Ø=STÅ 1220 ┆ 0x0f20…0f40 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 39 37 29 3b 20 43 48 52 28 39 35 2b ┆ PRINT CHR(6); CHR(97); CHR(95+┆ 0x0f40…0f60 53 54 5d 29 3b 20 43 48 52 28 31 32 37 29 3b 20 43 48 52 28 36 31 29 0d 0a 20 31 32 33 30 20 20 ┆STÅ); CHR(127); CHR(61) 1230 ┆ 0x0f60…0f80 20 20 20 20 20 4f 4e 20 45 53 43 20 45 58 45 43 20 53 4b 59 44 28 53 54 5d 29 0d 0a 20 31 32 34 ┆ ON ESC EXEC SKYD(STÅ) 124┆ 0x0f80…0fa0 30 20 20 20 20 20 20 20 49 46 20 47 41 4e 47 3c 3d 30 20 4f 52 20 49 41 4c 54 3d 30 20 54 48 45 ┆0 IF GANG<=0 OR IALT=0 THE┆ 0x0fa0…0fc0 4e 20 53 54 5d 3d 54 49 0d 0a 20 31 32 35 30 20 20 20 20 20 4e 45 58 54 20 53 54 5d 0d 0a 20 31 ┆N STÅ=TI 1250 NEXT STÅ 1┆ 0x0fc0…0fe0 32 36 30 20 20 20 55 4e 54 49 4c 20 47 41 4e 47 3c 3d 30 20 4f 52 20 49 41 4c 54 3d 30 0d 0a 20 ┆260 UNTIL GANG<=0 OR IALT=0 ┆ 0x0fe0…1000 31 32 37 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 3b 20 22 44 55 20 4e 5d 45 44 45 20 ┆1270 PRINT CHR(12); "DU NÅEDE ┆ 0x1000…1020 41 54 20 41 46 46 59 52 45 22 3b 20 53 4b 55 44 3b 20 22 53 4b 55 44 20 49 4e 44 45 4e 22 3b 20 ┆AT AFFYRE"; SKUD; "SKUD INDEN"; ┆ 0x1020…1040 0d 0a 20 31 32 38 30 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 31 32 39 30 20 20 20 51 ┆ 1280 ON ESC G1=1 1290 Q┆ 0x1040…1060 57 45 3d 49 4e 54 28 28 54 52 5b 46 2a 31 30 30 29 2f 53 4b 55 44 29 0d 0a 20 31 33 30 30 20 20 ┆WE=INT((TRÆF*100)/SKUD) 1300 ┆ 0x1060…1080 20 50 4f 49 55 3d 49 4e 54 28 28 28 54 52 5b 46 2a 51 57 45 29 2f 31 30 29 2a 28 31 2b 28 28 35 ┆ POIU=INT(((TRÆF*QWE)/10)*(1+((5┆ 0x1080…10a0 2d 53 56 5b 52 48 29 2a 2e 34 29 29 29 0d 0a 20 31 33 31 30 20 20 20 4f 4e 20 45 53 43 20 47 31 ┆-SVÆRH)*.4))) 1310 ON ESC G1┆ 0x10a0…10c0 3d 31 0d 0a 20 31 33 32 30 20 20 20 49 46 20 49 41 4c 54 3d 30 20 54 48 45 4e 20 0d 0a 20 31 33 ┆=1 1320 IF IALT=0 THEN 13┆ 0x10c0…10e0 33 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 44 55 20 48 41 56 44 45 20 4e 45 44 53 4b 55 44 54 ┆30 PRINT " DU HAVDE NEDSKUDT┆ 0x10e0…1100 20 41 4c 4c 45 20 50 4f 49 4e 54 45 4e 45 2e 22 0d 0a 20 31 33 34 30 20 20 20 20 20 45 58 45 43 ┆ ALLE POINTENE." 1340 EXEC┆ 0x1100…1120 20 43 55 52 28 32 35 2c 31 30 29 0d 0a 20 31 33 35 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 ┆ CUR(25,10) 1350 ON ESC G1┆ 0x1120…1140 3d 31 0d 0a 20 31 33 36 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 33 30 29 3b 20 22 42 ┆=1 1360 PRINT CHR(130); "B┆ 0x1140…1160 20 52 20 41 20 56 20 4f 22 3b 20 43 48 52 28 31 32 38 29 3b 20 22 20 28 53 49 4b 4b 45 20 48 45 ┆ R A V O"; CHR(128); " (SIKKE HE┆ 0x1160…1180 4c 44 49 47 54 29 22 0d 0a 20 31 33 37 30 20 20 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a ┆LDIGT)" 1370 ON ESC G1=1 ┆ 0x1180…11a0 20 31 33 38 30 20 20 20 20 20 50 4f 49 55 3d 49 4e 54 28 50 4f 49 55 2a 31 2e 35 29 0d 0a 20 31 ┆ 1380 POIU=INT(POIU*1.5) 1┆ 0x11a0…11c0 33 39 30 20 20 20 45 4c 53 45 20 0d 0a 20 31 34 30 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 44 ┆390 ELSE 1400 PRINT " D┆ 0x11c0…11e0 55 20 22 3b 20 43 48 52 28 33 34 29 3b 20 22 4c 5c 42 20 54 5c 52 20 46 4f 52 20 45 4e 45 52 47 ┆U "; CHR(34); "LØB TØR FOR ENERG┆ 0x11e0…1200 49 22 3b 20 43 48 52 28 33 34 29 3b 20 22 2e 22 0d 0a 20 31 34 30 35 20 20 20 20 20 4f 4e 20 45 ┆I"; CHR(34); "." 1405 ON E┆ 0x1200…1220 53 43 20 47 31 3d 31 0d 0a 20 31 34 31 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 32 30 20 20 ┆SC G1=1 1410 ENDIF 1420 ┆ 0x1220…1240 20 45 58 45 43 20 43 55 52 28 31 2c 35 29 0d 0a 20 31 34 33 30 20 20 20 4f 4e 20 45 53 43 20 47 ┆ EXEC CUR(1,5) 1430 ON ESC G┆ 0x1240…1260 31 3d 31 0d 0a 20 31 34 34 30 20 20 20 50 52 49 4e 54 20 22 44 55 20 48 41 56 44 45 20 45 4e 20 ┆1=1 1440 PRINT "DU HAVDE EN ┆ 0x1260…1280 54 52 5b 46 2d 53 49 4b 4b 45 52 48 45 44 20 50 5d 22 3b 20 51 57 45 3b 20 22 25 22 0d 0a 20 31 ┆TRÆF-SIKKERHED PÅ"; QWE; "%" 1┆ 0x1280…12a0 34 34 35 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 31 34 35 30 20 20 20 45 58 45 43 20 ┆445 ON ESC G1=1 1450 EXEC ┆ 0x12a0…12c0 43 55 52 28 31 2c 37 29 0d 0a 20 31 34 35 35 20 20 20 4f 4e 20 45 53 43 20 47 31 3d 31 0d 0a 20 ┆CUR(1,7) 1455 ON ESC G1=1 ┆ 0x12c0…12e0 31 34 36 30 20 20 20 50 52 49 4e 54 20 22 44 55 20 46 49 4b 22 3b 20 43 48 52 28 31 33 30 29 3b ┆1460 PRINT "DU FIK"; CHR(130);┆ 0x12e0…1300 20 50 4f 49 55 3b 20 43 48 52 28 31 32 38 29 3b 20 22 50 4f 49 4e 54 22 0d 0a 20 31 34 37 30 20 ┆ POIU; CHR(128); "POINT" 1470 ┆ 0x1300…1320 45 4e 44 50 52 4f 43 20 0d 0a 20 31 34 38 30 20 45 4e 44 20 0d 0a 20 31 34 39 30 20 50 52 4f 43 ┆ENDPROC 1480 END 1490 PROC┆ 0x1320…1340 20 56 5b 4b 0d 0a 20 31 35 30 30 20 20 20 4f 55 54 20 31 2c 30 0d 0a 20 31 35 31 30 20 20 20 4f ┆ VÆK 1500 OUT 1,0 1510 O┆ 0x1340…1360 55 54 20 30 2c 37 39 0d 0a 20 31 35 32 30 20 20 20 4f 55 54 20 30 2c 31 35 32 0d 0a 20 31 35 33 ┆UT 0,79 1520 OUT 0,152 153┆ 0x1360…1380 30 20 20 20 4f 55 54 20 30 2c 31 38 36 0d 0a 20 31 35 34 30 20 20 20 4f 55 54 20 30 2c 31 32 35 ┆0 OUT 0,186 1540 OUT 0,125┆ 0x1380…13a0 0d 0a 20 31 35 35 30 20 20 20 4f 55 54 20 31 2c 33 35 0d 0a 20 31 35 36 30 20 20 20 4f 55 54 20 ┆ 1550 OUT 1,35 1560 OUT ┆ 0x13a0…13c0 31 2c 31 32 38 0d 0a 20 31 35 37 30 20 20 20 4f 55 54 20 30 2c 30 0d 0a 20 31 35 38 30 20 20 20 ┆1,128 1570 OUT 0,0 1580 ┆ 0x13c0…13e0 4f 55 54 20 30 2c 30 0d 0a 20 31 35 39 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 31 36 30 30 20 50 ┆OUT 0,0 1590 ENDPROC 1600 P┆ 0x13e0…1400 52 4f 43 20 46 52 45 4d 0d 0a 20 31 36 31 30 20 20 20 4f 55 54 20 31 2c 30 0d 0a 20 31 36 32 30 ┆ROC FREM 1610 OUT 1,0 1620┆ 0x1400…1420 20 20 20 4f 55 54 20 30 2c 37 39 0d 0a 20 31 36 33 30 20 20 20 4f 55 54 20 30 2c 31 35 32 0d 0a ┆ OUT 0,79 1630 OUT 0,152 ┆ 0x1420…1440 20 31 36 34 30 20 20 20 4f 55 54 20 30 2c 31 32 32 0d 0a 20 31 36 35 30 20 20 20 4f 55 54 20 30 ┆ 1640 OUT 0,122 1650 OUT 0┆ 0x1440…1460 2c 39 33 0d 0a 20 31 36 36 30 20 20 20 4f 55 54 20 31 2c 33 35 0d 0a 20 31 36 37 30 20 20 20 4f ┆,93 1660 OUT 1,35 1670 O┆ 0x1460…1480 55 54 20 31 2c 31 32 38 0d 0a 20 31 36 38 30 20 20 20 4f 55 54 20 30 2c 30 0d 0a 20 31 36 39 30 ┆UT 1,128 1680 OUT 0,0 1690┆ 0x1480…14a0 20 20 20 4f 55 54 20 30 2c 30 0d 0a 20 31 37 30 30 20 45 4e 44 50 52 4f 43 20 0d 0a 03 00 00 00 ┆ OUT 0,0 1700 ENDPROC ┆ 0x14a0…14c0 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 00 00 00 00 00 00 ┆ ┆ […0xa…]