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: »B38«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image └─ ⟦this⟧ »/B38«
0x0000…0020 2c 53 24 0d 0a 20 30 30 31 32 20 50 52 49 4e 54 20 0d 0a 20 30 30 31 33 20 49 46 20 53 24 3d 22 ┆,S$ 0012 PRINT 0013 IF S$="┆ 0x0020…0040 4a 22 20 4f 52 20 53 24 3d 22 4a 22 20 54 48 45 4e 20 45 58 45 43 20 49 4e 53 54 52 55 4b 54 49 ┆J" OR S$="J" THEN EXEC INSTRUKTI┆ 0x0040…0060 4f 4e 0d 0a 20 30 30 31 34 20 50 52 49 4e 54 20 0d 0a 20 30 30 31 35 20 49 4e 50 55 54 20 22 56 ┆ON 0014 PRINT 0015 INPUT "V┆ 0x0060…0080 49 4c 20 44 55 20 53 50 45 43 49 46 49 43 45 52 45 20 48 55 4e 44 45 4e 45 20 28 4a 41 2f 4e 45 ┆IL DU SPECIFICERE HUNDENE (JA/NE┆ 0x0080…00a0 4a 29 3a 20 22 2c 53 24 0d 0a 20 30 30 31 36 20 49 46 20 53 24 3c 3e 22 4a 22 20 41 4e 44 20 53 ┆J): ",S$ 0016 IF S$<>"J" AND S┆ 0x00a0…00c0 24 3c 3e 22 4a 22 20 54 48 45 4e 20 0d 0a 20 30 30 31 37 20 20 20 48 28 31 2c 31 29 3d 31 36 3b ┆$<>"J" THEN 0017 H(1,1)=16;┆ 0x00c0…00e0 20 48 28 31 2c 32 29 3d 31 32 0d 0a 20 30 30 31 38 20 20 20 48 28 32 2c 31 29 3d 31 38 3b 20 48 ┆ H(1,2)=12 0018 H(2,1)=18; H┆ 0x00e0…0100 28 32 2c 32 29 3d 33 0d 0a 20 30 30 31 39 20 20 20 48 28 33 2c 31 29 3d 32 31 3b 20 48 28 33 2c ┆(2,2)=3 0019 H(3,1)=21; H(3,┆ 0x0100…0120 32 29 3d 31 2e 35 0d 0a 20 30 30 32 30 20 45 4c 53 45 20 0d 0a 20 30 30 32 31 20 20 20 50 52 49 ┆2)=1.5 0020 ELSE 0021 PRI┆ 0x0120…0140 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 30 32 32 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 33 ┆NT CHR(12) 0022 FOR I=1 TO 3┆ 0x0140…0160 0d 0a 20 30 30 32 33 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 48 55 4e ┆ 0023 PRINT " HUN┆ 0x0160…0180 44 20 22 3b 20 49 3b 20 22 3a 20 22 3b 20 0d 0a 20 30 30 32 34 20 20 20 20 20 49 4e 50 55 54 20 ┆D "; I; ": "; 0024 INPUT ┆ 0x0180…01a0 22 20 48 41 4e 44 49 43 41 50 3a 20 22 2c 48 28 49 2c 31 29 0d 0a 20 30 30 32 35 20 20 20 20 20 ┆" HANDICAP: ",H(I,1) 0025 ┆ 0x01a0…01c0 49 4e 50 55 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 47 20 4f ┆INPUT " OG O┆ 0x01c0…01e0 44 44 53 20 3a 20 22 2c 48 28 49 2c 32 29 0d 0a 20 30 30 32 36 20 20 20 20 20 50 52 49 4e 54 20 ┆DDS : ",H(I,2) 0026 PRINT ┆ 0x01e0…0200 0d 0a 20 30 30 32 37 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 30 32 38 20 45 4e 44 49 46 20 0d 0a ┆ 0027 NEXT I 0028 ENDIF ┆ 0x0200…0220 20 30 30 32 39 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 30 33 30 20 49 4e 50 55 54 ┆ 0029 PRINT CHR(12) 0030 INPUT┆ 0x0220…0240 20 22 41 4e 54 41 4c 20 53 50 49 4c 4c 45 52 45 20 20 3a 20 22 2c 41 45 0d 0a 20 30 30 34 30 20 ┆ "ANTAL SPILLERE : ",AE 0040 ┆ 0x0240…0260 44 49 4d 20 4e 41 56 4e 45 24 28 41 45 2c 33 30 29 0d 0a 20 30 30 35 30 20 46 4f 52 20 54 5b 4c ┆DIM NAVNE$(AE,30) 0050 FOR TÆL┆ 0x0260…0280 4c 45 52 3d 31 20 54 4f 20 41 45 0d 0a 20 30 30 36 30 20 20 20 50 52 49 4e 54 20 22 48 56 41 44 ┆LER=1 TO AE 0060 PRINT "HVAD┆ 0x0280…02a0 20 48 45 44 44 45 52 20 22 3b 20 54 5b 4c 4c 45 52 3b 20 22 2e 20 53 50 49 4c 4c 45 52 20 20 3a ┆ HEDDER "; TÆLLER; ". SPILLER :┆ 0x02a0…02c0 20 22 3b 20 0d 0a 20 30 30 37 30 20 20 20 49 4e 50 55 54 20 4e 41 56 4e 45 24 28 54 5b 4c 4c 45 ┆ "; 0070 INPUT NAVNE$(TÆLLE┆ 0x02c0…02e0 52 29 0d 0a 20 30 30 38 30 20 4e 45 58 54 20 54 5b 4c 4c 45 52 0d 0a 20 30 31 30 30 20 52 41 4e ┆R) 0080 NEXT TÆLLER 0100 RAN┆ 0x02e0…0300 44 4f 4d 49 5a 45 20 0d 0a 20 30 31 31 30 20 44 45 46 20 46 4e 43 28 58 29 3d 39 35 2b 58 2d 28 ┆DOMIZE 0110 DEF FNC(X)=95+X-(┆ 0x0300…0320 58 3e 33 32 29 2a 36 34 2d 28 58 3e 36 34 29 2a 36 34 0d 0a 20 30 31 32 30 20 50 52 4f 43 20 43 ┆X>32)*64-(X>64)*64 0120 PROC C┆ 0x0320…0340 55 52 28 58 4b 2c 59 4b 29 0d 0a 20 30 31 33 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b ┆UR(XK,YK) 0130 PRINT CHR(6);┆ 0x0340…0360 20 43 48 52 28 46 4e 43 28 58 4b 29 29 3b 20 43 48 52 28 46 4e 43 28 59 4b 29 29 3b 20 0d 0a 20 ┆ CHR(FNC(XK)); CHR(FNC(YK)); ┆ 0x0360…0380 30 31 34 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 31 38 30 20 50 52 4f 43 20 49 4e 53 54 52 55 ┆0140 ENDPROC 0180 PROC INSTRU┆ 0x0380…03a0 4b 54 49 4f 4e 0d 0a 20 30 31 39 30 20 20 20 50 52 49 4e 54 20 22 48 55 4e 44 45 56 5b 44 44 45 ┆KTION 0190 PRINT "HUNDEVÆDDE┆ 0x03a0…03c0 4c 5c 42 20 4d 45 44 20 33 20 48 55 4e 44 45 2e 20 56 49 4e 44 45 52 20 48 55 4e 44 20 4e 52 2e ┆LØB MED 3 HUNDE. VINDER HUND NR.┆ 0x03c0…03e0 20 31 2c 20 46 5d 52 20 4d 41 4e 20 53 49 4e 22 0d 0a 20 30 32 30 30 20 20 20 50 52 49 4e 54 20 ┆ 1, FÅR MAN SIN" 0200 PRINT ┆ 0x03e0…0400 22 49 4e 44 53 41 54 53 20 54 49 4c 42 41 47 45 20 31 32 20 47 41 4e 47 45 2e 20 56 49 4e 44 45 ┆"INDSATS TILBAGE 12 GANGE. VINDE┆ 0x0400…0420 52 20 48 55 4e 44 20 32 20 46 5d 52 20 4d 41 4e 20 53 49 4e 20 49 4e 44 53 41 54 53 22 0d 0a 20 ┆R HUND 2 FÅR MAN SIN INDSATS" ┆ 0x0420…0440 30 32 31 30 20 20 20 50 52 49 4e 54 20 22 54 49 4c 42 41 47 45 20 33 20 47 41 4e 47 45 2e 20 56 ┆0210 PRINT "TILBAGE 3 GANGE. V┆ 0x0440…0460 49 4e 44 45 52 20 48 55 4e 44 20 33 20 46 5d 52 20 4d 41 4e 20 31 2e 35 20 47 41 4e 47 45 20 53 ┆INDER HUND 3 FÅR MAN 1.5 GANGE S┆ 0x0460…0480 49 4e 20 49 4e 44 53 41 54 53 2e 22 0d 0a 20 30 32 32 30 20 20 20 50 52 49 4e 54 20 22 48 56 45 ┆IN INDSATS." 0220 PRINT "HVE┆ 0x0480…04a0 52 20 53 50 49 4c 4c 45 52 20 53 54 41 52 54 45 52 20 4d 45 44 20 31 30 30 30 20 4b 52 2e 20 4f ┆R SPILLER STARTER MED 1000 KR. O┆ 0x04a0…04c0 47 20 4d 41 53 4b 49 4e 45 4e 20 46 5c 52 45 52 20 52 45 47 4e 53 4b 41 42 2c 22 0d 0a 20 30 32 ┆G MASKINEN FØRER REGNSKAB," 02┆ 0x04c0…04e0 33 30 20 20 20 50 52 49 4e 54 20 22 4f 47 53 5d 20 46 4f 52 20 54 4f 54 41 4c 49 53 41 54 4f 52 ┆30 PRINT "OGSÅ FOR TOTALISATOR┆ 0x04e0…0500 45 4e 2e 20 22 0d 0a 20 30 32 33 35 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 32 34 30 20 4c 48 24 ┆EN. " 0235 ENDPROC 0240 LH$┆ 0x0500…0520 28 31 29 3d 43 48 52 28 31 33 32 29 2b 22 20 50 50 50 58 2c 22 2b 43 48 52 28 31 32 38 29 0d 0a ┆(1)=CHR(132)+" PPPX,"+CHR(128) ┆ 0x0520…0540 20 30 32 35 30 20 4c 48 24 28 32 29 3d 43 48 52 28 31 33 32 29 2b 22 20 20 50 50 58 2c 22 2b 43 ┆ 0250 LH$(2)=CHR(132)+" PPX,"+C┆ 0x0540…0560 48 52 28 31 32 38 29 0d 0a 20 30 32 36 30 20 4c 48 24 28 33 29 3d 43 48 52 28 31 33 32 29 2b 22 ┆HR(128) 0260 LH$(3)=CHR(132)+"┆ 0x0560…0580 20 50 50 50 58 24 22 2b 43 48 52 28 31 32 38 29 0d 0a 20 30 32 37 30 20 4c 48 24 28 34 29 3d 22 ┆ PPPX$"+CHR(128) 0270 LH$(4)="┆ 0x0580…05a0 20 20 2f 2f 28 28 22 0d 0a 20 30 32 38 30 20 4c 48 24 28 35 29 3d 22 20 20 28 28 2f 2f 22 0d 0a ┆ //((" 0280 LH$(5)=" ((//" ┆ 0x05a0…05c0 20 30 32 39 30 20 58 3d 33 0d 0a 20 30 33 30 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 3b 20 ┆ 0290 X=3 0300 PRINT CHR(12); ┆ 0x05c0…05e0 43 48 52 28 31 30 29 0d 0a 20 30 34 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 4f 4b 20 2d 20 ┆CHR(10) 0460 PRINT " OK - ┆ 0x05e0…0600 53 5d 20 45 52 20 56 49 20 4b 4c 41 52 20 54 49 4c 20 22 3b 20 0d 0a 20 30 34 37 30 20 50 52 49 ┆SÅ ER VI KLAR TIL "; 0470 PRI┆ 0x0600…0620 4e 54 20 43 48 52 28 31 32 38 2b 31 36 29 3b 20 22 41 54 20 42 45 47 59 4e 44 45 2e 22 3b 20 43 ┆NT CHR(128+16); "AT BEGYNDE."; C┆ 0x0620…0640 48 52 28 31 32 38 29 0d 0a 20 30 34 38 30 20 53 55 4d 3d 30 0d 0a 20 30 34 39 30 20 46 4f 52 20 ┆HR(128) 0480 SUM=0 0490 FOR ┆ 0x0640…0660 49 3d 31 20 54 4f 20 33 0d 0a 20 30 35 30 30 20 20 20 53 55 4d 3d 53 55 4d 2b 48 28 49 2c 31 29 ┆I=1 TO 3 0500 SUM=SUM+H(I,1)┆ 0x0660…0680 0d 0a 20 30 35 31 30 20 4e 45 58 54 20 49 0d 0a 20 30 35 32 30 20 44 49 4d 20 41 28 41 45 2c 33 ┆ 0510 NEXT I 0520 DIM A(AE,3┆ 0x0680…06a0 29 2c 4e 24 28 31 32 29 2c 48 41 4e 28 53 55 4d 29 0d 0a 20 30 35 33 30 20 46 4f 52 20 49 3d 31 ┆),N$(12),HAN(SUM) 0530 FOR I=1┆ 0x06a0…06c0 20 54 4f 20 53 55 4d 0d 0a 20 30 35 34 30 20 20 20 49 46 20 49 3c 3d 48 28 31 2c 31 29 20 54 48 ┆ TO SUM 0540 IF I<=H(1,1) TH┆ 0x06c0…06e0 45 4e 20 48 41 4e 28 49 29 3d 31 0d 0a 20 30 35 35 30 20 20 20 49 46 20 49 3e 48 28 31 2c 31 29 ┆EN HAN(I)=1 0550 IF I>H(1,1)┆ 0x06e0…0700 20 41 4e 44 20 49 3c 3d 48 28 32 2c 31 29 2b 48 28 31 2c 31 29 20 54 48 45 4e 20 48 41 4e 28 49 ┆ AND I<=H(2,1)+H(1,1) THEN HAN(I┆ 0x0700…0720 29 3d 32 0d 0a 20 30 35 36 30 20 20 20 49 46 20 49 3e 48 28 32 2c 31 29 2b 48 28 31 2c 31 29 20 ┆)=2 0560 IF I>H(2,1)+H(1,1) ┆ 0x0720…0740 54 48 45 4e 20 48 41 4e 28 49 29 3d 33 0d 0a 20 30 35 37 30 20 4e 45 58 54 20 49 0d 0a 20 30 35 ┆THEN HAN(I)=3 0570 NEXT I 05┆ 0x0740…0760 38 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 41 45 0d 0a 20 30 35 39 30 20 20 20 41 28 49 2c 31 29 ┆80 FOR I=1 TO AE 0590 A(I,1)┆ 0x0760…0780 3d 31 30 30 30 0d 0a 20 30 36 30 30 20 4e 45 58 54 20 49 0d 0a 20 30 36 31 30 20 42 4f 4f 4b 3d ┆=1000 0600 NEXT I 0610 BOOK=┆ 0x0780…07a0 30 0d 0a 20 30 36 32 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 41 45 0d 0a 20 30 36 33 30 20 20 20 ┆0 0620 FOR I=1 TO AE 0630 ┆ 0x07a0…07c0 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 36 34 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 ┆PRINT CHR(12) 0640 PRINT ┆ 0x07c0…07e0 30 36 35 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 36 36 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 ┆0650 PRINT 0660 PRINT ┆ 0x07e0…0800 30 36 37 30 20 20 20 49 4e 44 3d 30 0d 0a 20 30 36 38 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 ┆0670 IND=0 0680 PRINT " ┆ 0x0800…0820 20 20 20 20 20 20 20 22 3b 20 4e 41 56 4e 45 24 28 49 29 3b 20 22 20 20 20 53 41 4c 44 4f 3a 20 ┆ "; NAVNE$(I); " SALDO: ┆ 0x0820…0840 22 3b 20 41 28 49 2c 31 29 3b 20 22 20 4b 52 22 0d 0a 20 30 36 39 30 20 20 20 49 46 20 41 28 49 ┆"; A(I,1); " KR" 0690 IF A(I┆ 0x0840…0860 2c 31 29 3e 30 20 54 48 45 4e 20 45 58 45 43 20 53 41 54 53 0d 0a 20 30 37 30 30 20 4e 45 58 54 ┆,1)>0 THEN EXEC SATS 0700 NEXT┆ 0x0860…0880 20 49 0d 0a 20 30 37 31 30 20 50 52 4f 43 20 53 41 54 53 0d 0a 20 30 37 32 30 20 20 20 50 52 49 ┆ I 0710 PROC SATS 0720 PRI┆ 0x0880…08a0 4e 54 20 0d 0a 20 30 37 33 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 37 34 30 20 20 20 49 4e 50 ┆NT 0730 PRINT 0740 INP┆ 0x08a0…08c0 55 54 20 22 20 20 20 20 20 20 20 20 20 20 48 56 4f 52 20 4d 45 47 45 54 20 53 50 49 4c 4c 45 52 ┆UT " HVOR MEGET SPILLER┆ 0x08c0…08e0 20 44 55 20 46 4f 52 20 28 48 45 4c 45 20 4b 52 2e 29 3a 20 22 2c 41 28 49 2c 32 29 0d 0a 20 30 ┆ DU FOR (HELE KR.): ",A(I,2) 0┆ 0x08e0…0900 37 35 30 20 20 20 49 46 20 41 28 49 2c 32 29 3e 41 28 49 2c 31 29 20 54 48 45 4e 20 50 52 49 4e ┆750 IF A(I,2)>A(I,1) THEN PRIN┆ 0x0900…0920 54 20 22 20 20 20 20 20 20 20 20 20 20 46 4a 4f 4c 53 20 2d 20 53 5d 20 4d 45 47 45 54 20 48 41 ┆T " FJOLS - SÅ MEGET HA┆ 0x0920…0940 52 20 44 55 20 49 4b 4b 45 21 22 0d 0a 20 30 37 36 30 20 20 20 49 46 20 41 28 49 2c 32 29 3c 3e ┆R DU IKKE!" 0760 IF A(I,2)<>┆ 0x0940…0960 49 4e 54 28 41 28 49 2c 32 29 29 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 ┆INT(A(I,2)) THEN PRINT " ┆ 0x0960…0980 20 20 4a 45 47 20 53 41 47 44 45 20 48 45 4c 45 20 4b 52 4f 4e 45 52 21 21 21 22 0d 0a 20 30 37 ┆ JEG SAGDE HELE KRONER!!!" 07┆ 0x0980…09a0 37 30 20 20 20 49 46 20 41 28 49 2c 32 29 3e 41 28 49 2c 31 29 20 4f 52 20 41 28 49 2c 32 29 3c ┆70 IF A(I,2)>A(I,1) OR A(I,2)<┆ 0x09a0…09c0 3e 49 4e 54 28 41 28 49 2c 32 29 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 30 37 34 30 0d 0a 20 30 ┆>INT(A(I,2)) THEN GO TO 0740 0┆ 0x09c0…09e0 37 38 30 20 20 20 49 46 20 41 28 49 2c 32 29 3c 3e 30 20 54 48 45 4e 20 0d 0a 20 30 37 39 30 20 ┆780 IF A(I,2)<>0 THEN 0790 ┆ 0x09e0…0a00 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 38 30 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 ┆ REPEAT 0800 INPUT "┆ 0x0a00…0a20 20 20 20 20 20 20 20 20 20 20 48 56 49 4c 4b 45 4e 20 48 55 4e 44 20 53 50 49 4c 4c 45 52 20 44 ┆ HVILKEN HUND SPILLER D┆ 0x0a20…0a40 55 20 50 5d 3a 20 22 2c 41 28 49 2c 33 29 0d 0a 20 30 38 31 30 20 20 20 20 20 55 4e 54 49 4c 20 ┆U PÅ: ",A(I,3) 0810 UNTIL ┆ 0x0a40…0a60 41 28 49 2c 33 29 3e 30 20 41 4e 44 20 41 28 49 2c 33 29 3c 3d 58 0d 0a 20 30 38 32 30 20 20 20 ┆A(I,3)>0 AND A(I,3)<=X 0820 ┆ 0x0a60…0a80 45 4e 44 49 46 20 0d 0a 20 30 38 33 30 20 20 20 42 4f 4f 4b 3d 42 4f 4f 4b 2b 41 28 49 2c 32 29 ┆ENDIF 0830 BOOK=BOOK+A(I,2)┆ 0x0a80…0aa0 0d 0a 20 30 38 34 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 38 35 30 20 52 45 50 45 41 54 20 0d ┆ 0840 ENDPROC 0850 REPEAT ┆ 0x0aa0…0ac0 0a 20 30 38 36 30 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 33 0d 0a 20 30 38 37 30 20 20 20 20 ┆ 0860 FOR I=1 TO 3 0870 ┆ 0x0ac0…0ae0 20 48 28 49 2c 33 29 3d 36 0d 0a 20 30 38 38 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 38 39 30 ┆ H(I,3)=6 0880 NEXT I 0890┆ 0x0ae0…0b00 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 39 30 30 20 20 20 46 4f 52 20 49 3d ┆ PRINT CHR(12) 0900 FOR I=┆ 0x0b00…0b20 31 20 54 4f 20 31 34 0d 0a 20 30 39 31 30 20 20 20 20 20 45 58 45 43 20 43 55 52 28 36 35 2c 49 ┆1 TO 14 0910 EXEC CUR(65,I┆ 0x0b20…0b40 2b 33 29 0d 0a 20 30 39 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 4d 5d 4c 22 0d 0a 20 30 39 33 ┆+3) 0920 PRINT "MÅL" 093┆ 0x0b40…0b60 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 39 34 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 32 39 ┆0 NEXT I 0940 PRINT CHR(29┆ 0x0b60…0b80 29 0d 0a 20 30 39 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 30 29 3b 20 43 48 52 28 31 30 ┆) 0950 PRINT CHR(10); CHR(10┆ 0x0b80…0ba0 29 3b 20 43 48 52 28 31 30 29 3b 20 43 48 52 28 31 30 29 3b 20 43 48 52 28 31 30 29 3b 20 22 31 ┆); CHR(10); CHR(10); CHR(10); "1┆ 0x0ba0…0bc0 3a 22 3b 20 43 48 52 28 31 33 29 0d 0a 20 30 39 36 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 ┆:"; CHR(13) 0960 PRINT CHR(1┆ 0x0bc0…0be0 30 29 3b 20 43 48 52 28 31 30 29 3b 20 43 48 52 28 31 30 29 3b 20 22 32 3a 22 3b 20 43 48 52 28 ┆0); CHR(10); CHR(10); "2:"; CHR(┆ 0x0be0…0c00 31 30 29 3b 20 43 48 52 28 31 30 29 3b 20 43 48 52 28 31 33 29 0d 0a 20 30 39 37 30 20 20 20 50 ┆10); CHR(10); CHR(13) 0970 P┆ 0x0c00…0c20 52 49 4e 54 20 43 48 52 28 31 30 29 3b 20 22 33 3a 22 0d 0a 20 30 39 38 30 20 20 20 46 4f 52 20 ┆RINT CHR(10); "3:" 0980 FOR ┆ 0x0c20…0c40 56 3d 31 20 54 4f 20 33 0d 0a 20 30 39 39 30 20 20 20 20 20 59 3d 28 56 29 2a 34 2b 32 3b 20 58 ┆V=1 TO 3 0990 Y=(V)*4+2; X┆ 0x0c40…0c60 3d 35 0d 0a 20 31 30 30 30 20 20 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 32 0d 0a 20 31 30 31 ┆=5 1000 FOR I=1 TO 2 101┆ 0x0c60…0c80 30 20 20 20 20 20 20 20 45 58 45 43 20 43 55 52 28 58 2c 59 2b 49 2d 31 29 0d 0a 20 31 30 32 30 ┆0 EXEC CUR(X,Y+I-1) 1020┆ 0x0c80…0ca0 20 20 20 20 20 20 20 49 46 20 49 3d 31 20 54 48 45 4e 20 50 52 49 4e 54 20 4c 48 24 28 56 29 0d ┆ IF I=1 THEN PRINT LH$(V) ┆ 0x0ca0…0cc0 0a 20 31 30 33 30 20 20 20 20 20 20 20 49 46 20 49 3d 32 20 54 48 45 4e 20 50 52 49 4e 54 20 4c ┆ 1030 IF I=2 THEN PRINT L┆ 0x0cc0…0ce0 48 24 28 34 29 0d 0a 20 31 30 34 30 20 20 20 20 20 4e 45 58 54 20 49 0d 0a 20 31 30 35 30 20 20 ┆H$(4) 1040 NEXT I 1050 ┆ 0x0ce0…0d00 20 4e 45 58 54 20 56 0d 0a 20 31 30 36 30 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 31 30 30 0d ┆ NEXT V 1060 FOR I=1 TO 100 ┆ 0x0d00…0d20 0a 20 31 30 37 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 31 30 38 30 20 20 20 50 52 49 4e 54 20 43 ┆ 1070 NEXT I 1080 PRINT C┆ 0x0d20…0d40 48 52 28 37 29 3b 20 0d 0a 20 31 30 39 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 31 30 30 20 ┆HR(7); 1090 REPEAT 1100 ┆ 0x0d40…0d60 20 20 20 20 56 3d 48 41 4e 28 49 4e 54 28 52 4e 44 28 38 29 2a 53 55 4d 2b 31 29 29 3b 20 59 3d ┆ V=HAN(INT(RND(8)*SUM+1)); Y=┆ 0x0d60…0d80 28 56 29 2a 34 2b 31 0d 0a 20 31 31 31 30 20 20 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 32 0d ┆(V)*4+1 1110 FOR I=1 TO 2 ┆ 0x0d80…0da0 0a 20 31 31 32 30 20 20 20 20 20 20 20 45 58 45 43 20 43 55 52 28 48 28 56 2c 33 29 2c 59 2b 49 ┆ 1120 EXEC CUR(H(V,3),Y+I┆ 0x0da0…0dc0 29 0d 0a 20 31 31 33 30 20 20 20 20 20 20 20 49 46 20 49 3d 31 20 54 48 45 4e 20 50 52 49 4e 54 ┆) 1130 IF I=1 THEN PRINT┆ 0x0dc0…0de0 20 4c 48 24 28 56 29 0d 0a 20 31 31 34 30 20 20 20 20 20 20 20 49 46 20 49 3d 32 20 54 48 45 4e ┆ LH$(V) 1140 IF I=2 THEN┆ 0x0de0…0e00 20 50 52 49 4e 54 20 4c 48 24 28 33 2b 49 29 0d 0a 20 31 31 35 30 20 20 20 20 20 4e 45 58 54 20 ┆ PRINT LH$(3+I) 1150 NEXT ┆ 0x0e00…0e20 49 0d 0a 20 31 31 36 30 20 20 20 20 20 48 28 56 2c 33 29 3d 48 28 56 2c 33 29 2b 32 0d 0a 20 31 ┆I 1160 H(V,3)=H(V,3)+2 1┆ 0x0e20…0e40 31 37 30 20 20 20 55 4e 54 49 4c 20 48 28 56 2c 33 29 3d 3e 36 30 0d 0a 20 31 31 38 30 20 20 20 ┆170 UNTIL H(V,3)=>60 1180 ┆ 0x0e40…0e60 45 58 45 43 20 43 55 52 28 31 35 2c 32 30 29 0d 0a 20 31 31 39 30 20 20 20 50 52 49 4e 54 20 22 ┆EXEC CUR(15,20) 1190 PRINT "┆ 0x0e60…0e80 20 20 20 20 20 56 49 4e 44 45 52 20 42 4c 45 56 20 48 55 4e 44 20 4e 52 2e 3a 20 22 3b 20 43 48 ┆ VINDER BLEV HUND NR.: "; CH┆ 0x0e80…0ea0 52 28 31 32 38 2b 32 29 3b 20 56 3b 20 43 48 52 28 31 32 38 29 3b 20 0d 0a 20 31 32 30 30 20 20 ┆R(128+2); V; CHR(128); 1200 ┆ 0x0ea0…0ec0 20 49 4e 50 55 54 20 22 20 20 54 52 59 4b 20 20 52 45 54 55 52 4e 20 22 2c 4e 24 0d 0a 20 31 32 ┆ INPUT " TRYK RETURN ",N$ 12┆ 0x0ec0…0ee0 31 30 20 20 20 46 41 4c 4c 45 52 45 54 3d 30 0d 0a 20 31 32 32 30 20 20 20 46 4f 52 20 49 3d 31 ┆10 FALLERET=0 1220 FOR I=1┆ 0x0ee0…0f00 20 54 4f 20 41 45 0d 0a 20 31 32 33 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d ┆ TO AE 1230 PRINT CHR(12) ┆ 0x0f00…0f20 0a 20 31 32 34 30 20 20 20 20 20 47 45 56 49 4e 53 54 3d 30 0d 0a 20 31 32 35 30 20 20 20 20 20 ┆ 1240 GEVINST=0 1250 ┆ 0x0f20…0f40 49 46 20 41 28 49 2c 31 29 3d 30 20 54 48 45 4e 20 4c 45 54 20 46 41 4c 4c 45 52 45 54 3d 46 41 ┆IF A(I,1)=0 THEN LET FALLERET=FA┆ 0x0f40…0f60 4c 4c 45 52 45 54 2b 31 0d 0a 20 31 32 36 30 20 20 20 20 20 49 46 20 41 28 49 2c 31 29 3d 30 20 ┆LLERET+1 1260 IF A(I,1)=0 ┆ 0x0f60…0f80 54 48 45 4e 20 47 4f 20 54 4f 20 31 33 38 30 0d 0a 20 31 32 37 30 20 20 20 20 20 50 52 49 4e 54 ┆THEN GO TO 1380 1270 PRINT┆ 0x0f80…0fa0 20 22 20 20 20 20 20 20 20 20 20 20 22 3b 20 4e 41 56 4e 45 24 28 49 29 0d 0a 20 31 32 38 30 20 ┆ " "; NAVNE$(I) 1280 ┆ 0x0fa0…0fc0 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 20 20 20 20 20 20 47 41 4d 4d 45 ┆ PRINT USING " GAMME┆ 0x0fc0…0fe0 4c 20 53 41 4c 44 4f 3a 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 4b 52 2e 22 20 3a 20 41 28 ┆L SALDO: ##########.## KR." : A(┆ 0x0fe0…1000 49 2c 31 29 0d 0a 20 31 32 39 30 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 ┆I,1) 1290 PRINT USING " ┆ 0x1000…1020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 5b 56 45 54 3a 20 23 23 23 23 23 23 23 23 23 23 2e ┆ HÆVET: ##########.┆ 0x1020…1040 23 23 20 4b 52 2e 22 20 3a 20 41 28 49 2c 32 29 0d 0a 20 31 33 30 30 20 20 20 20 20 49 46 20 41 ┆## KR." : A(I,2) 1300 IF A┆ 0x1040…1060 28 49 2c 33 29 3d 56 20 54 48 45 4e 20 47 45 56 49 4e 53 54 3d 41 28 49 2c 32 29 2a 48 28 56 2c ┆(I,3)=V THEN GEVINST=A(I,2)*H(V,┆ 0x1060…1080 32 29 0d 0a 20 31 33 31 30 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 20 ┆2) 1310 PRINT USING " ┆ 0x1080…10a0 20 20 20 20 20 20 20 20 20 20 47 45 56 49 4e 53 54 3a 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 ┆ GEVINST: ##########.##┆ 0x10a0…10c0 20 4b 52 2e 22 20 3a 20 47 45 56 49 4e 53 54 0d 0a 20 31 33 32 30 20 20 20 20 20 50 52 49 4e 54 ┆ KR." : GEVINST 1320 PRINT┆ 0x10c0…10e0 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ "______________________________┆ 0x10e0…1100 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 0d 0a 20 31 33 33 30 20 20 20 20 20 41 28 49 2c ┆_______________" 1330 A(I,┆ 0x1100…1120 31 29 3d 41 28 49 2c 31 29 2d 41 28 49 2c 32 29 2b 47 45 56 49 4e 53 54 0d 0a 20 31 33 34 30 20 ┆1)=A(I,1)-A(I,2)+GEVINST 1340 ┆ 0x1120…1140 20 20 20 20 49 46 20 41 28 49 2c 31 29 3d 30 20 54 48 45 4e 20 4c 45 54 20 46 41 4c 4c 45 52 45 ┆ IF A(I,1)=0 THEN LET FALLERE┆ 0x1140…1160 54 3d 46 41 4c 4c 45 52 45 54 2b 31 0d 0a 20 31 33 35 30 20 20 20 20 20 50 52 49 4e 54 20 55 53 ┆T=FALLERET+1 1350 PRINT US┆ 0x1160…1180 49 4e 47 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 59 20 53 41 4c 44 4f 3a 20 23 23 23 ┆ING " NY SALDO: ###┆ 0x1180…11a0 23 23 23 23 23 23 23 2e 23 23 20 4b 52 2e 22 20 3a 20 41 28 49 2c 31 29 0d 0a 20 31 33 36 30 20 ┆#######.## KR." : A(I,1) 1360 ┆ 0x11a0…11c0 20 20 20 20 49 46 20 41 28 49 2c 31 29 3d 30 20 54 48 45 4e 20 45 58 45 43 20 46 41 4c 4c 49 54 ┆ IF A(I,1)=0 THEN EXEC FALLIT┆ 0x11c0…11e0 0d 0a 20 31 33 37 30 20 20 20 20 20 49 46 20 41 28 49 2c 31 29 3e 30 20 54 48 45 4e 20 45 58 45 ┆ 1370 IF A(I,1)>0 THEN EXE┆ 0x11e0…1200 43 20 53 41 54 53 0d 0a 20 31 33 38 30 20 20 20 20 20 42 4f 4f 4b 3d 42 4f 4f 4b 2d 47 45 56 49 ┆C SATS 1380 BOOK=BOOK-GEVI┆ 0x1200…1220 4e 53 54 0d 0a 20 31 33 39 30 20 20 20 20 20 49 46 20 49 3d 41 45 20 54 48 45 4e 20 0d 0a 20 31 ┆NST 1390 IF I=AE THEN 1┆ 0x1220…1240 34 30 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 31 34 31 30 20 20 ┆400 PRINT CHR(12) 1410 ┆ 0x1240…1260 20 20 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 34 32 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d ┆ PRINT 1420 PRINT ┆ 0x1260…1280 0a 20 31 34 33 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 20 20 ┆ 1430 PRINT USING " ┆ 0x1280…12a0 20 20 20 20 53 41 4c 44 4f 20 46 4f 52 20 54 4f 54 41 4c 49 53 41 54 4f 52 3a 20 23 23 23 23 23 ┆ SALDO FOR TOTALISATOR: #####┆ 0x12a0…12c0 23 23 23 23 20 4b 52 22 20 3a 20 42 4f 4f 4b 3b 20 0d 0a 20 31 34 34 30 20 20 20 20 20 20 20 49 ┆#### KR" : BOOK; 1440 I┆ 0x12c0…12e0 4e 50 55 54 20 22 20 20 20 20 20 20 20 28 54 52 59 4b 20 52 45 54 55 52 4e 29 20 22 2c 4e 24 0d ┆NPUT " (TRYK RETURN) ",N$ ┆ 0x12e0…1300 0a 20 31 34 35 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 36 30 20 20 20 4e 45 58 54 20 ┆ 1450 ENDIF 1460 NEXT ┆ 0x1300…1320 49 0d 0a 20 31 34 37 30 20 55 4e 54 49 4c 20 46 41 4c 4c 45 52 45 54 3d 3e 41 45 0d 0a 20 31 34 ┆I 1470 UNTIL FALLERET=>AE 14┆ 0x1320…1340 38 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 31 34 39 30 20 45 58 45 43 20 43 55 52 ┆80 PRINT CHR(12) 1490 EXEC CUR┆ 0x1340…1360 28 32 33 2c 31 32 29 0d 0a 20 31 35 30 30 20 50 52 49 4e 54 20 22 41 4c 4c 45 20 53 50 49 4c 4c ┆(23,12) 1500 PRINT "ALLE SPILL┆ 0x1360…1380 45 52 45 20 45 52 20 47 5d 45 54 20 46 41 4c 4c 49 54 22 0d 0a 20 31 35 31 30 20 50 52 49 4e 54 ┆ERE ER GÅET FALLIT" 1510 PRINT┆ 0x1380…13a0 20 54 41 42 28 32 37 29 3b 20 22 42 41 4e 45 4e 20 4c 55 4b 4b 45 52 20 4e 55 2e 22 0d 0a 20 31 ┆ TAB(27); "BANEN LUKKER NU." 1┆ 0x13a0…13c0 35 32 30 20 43 48 41 49 4e 20 22 4c 4f 47 4f 4e 22 0d 0a 20 31 35 33 30 20 50 52 4f 43 20 46 41 ┆520 CHAIN "LOGON" 1530 PROC FA┆ 0x13c0…13e0 4c 4c 49 54 0d 0a 20 31 35 34 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 30 29 3b 20 43 48 52 ┆LLIT 1540 PRINT CHR(10); CHR┆ 0x13e0…1400 28 31 30 29 3b 20 43 48 52 28 31 30 29 0d 0a 20 31 35 35 30 20 20 20 50 52 49 4e 54 20 22 44 55 ┆(10); CHR(10) 1550 PRINT "DU┆ 0x1400…1420 20 48 41 52 20 49 4b 4b 45 20 46 4c 45 52 45 20 50 45 4e 47 45 20 2d 20 56 5b 52 20 56 45 4e 4c ┆ HAR IKKE FLERE PENGE - VÆR VENL┆ 0x1420…1440 49 47 20 41 54 20 46 4f 52 4c 41 44 45 20 42 41 4e 45 4e 20 21 21 21 21 21 21 21 22 0d 0a 20 31 ┆IG AT FORLADE BANEN !!!!!!!" 1┆ 0x1440…1460 35 36 30 20 20 20 46 4f 52 20 56 45 4e 54 3d 31 20 54 4f 20 39 30 30 0d 0a 20 31 35 37 30 20 20 ┆560 FOR VENT=1 TO 900 1570 ┆ 0x1460…1480 20 4e 45 58 54 20 56 45 4e 54 0d 0a 20 31 35 38 30 20 45 4e 44 50 52 4f 43 20 0d 0a 03 00 00 00 ┆ NEXT VENT 1580 ENDPROC ┆ 0x1480…14a0 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 ┆ ┆ […0xb…]