|
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)
Types: TextFile
Names: »B38«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─⟦this⟧
,S$
0012 PRINT
0013 IF S$="J" OR S$="J" THEN EXEC INSTRUKTION
0014 PRINT
0015 INPUT "VIL DU SPECIFICERE HUNDENE (JA/NEJ): ",S$
0016 IF S$<>"J" AND S$<>"J" THEN
0017 H(1,1)=16; H(1,2)=12
0018 H(2,1)=18; H(2,2)=3
0019 H(3,1)=21; H(3,2)=1.5
0020 ELSE
0021 PRINT CHR(12)
0022 FOR I=1 TO 3
0023 PRINT " HUND "; I; ": ";
0024 INPUT " HANDICAP: ",H(I,1)
0025 INPUT " OG ODDS : ",H(I,2)
0026 PRINT
0027 NEXT I
0028 ENDIF
0029 PRINT CHR(12)
0030 INPUT "ANTAL SPILLERE : ",AE
0040 DIM NAVNE$(AE,30)
0050 FOR TÆLLER=1 TO AE
0060 PRINT "HVAD HEDDER "; TÆLLER; ". SPILLER : ";
0070 INPUT NAVNE$(TÆLLER)
0080 NEXT TÆLLER
0100 RANDOMIZE
0110 DEF FNC(X)=95+X-(X>32)*64-(X>64)*64
0120 PROC CUR(XK,YK)
0130 PRINT CHR(6); CHR(FNC(XK)); CHR(FNC(YK));
0140 ENDPROC
0180 PROC INSTRUKTION
0190 PRINT "HUNDEVÆDDELØB MED 3 HUNDE. VINDER HUND NR. 1, FÅR MAN SIN"
0200 PRINT "INDSATS TILBAGE 12 GANGE. VINDER HUND 2 FÅR MAN SIN INDSATS"
0210 PRINT "TILBAGE 3 GANGE. VINDER HUND 3 FÅR MAN 1.5 GANGE SIN INDSATS."
0220 PRINT "HVER SPILLER STARTER MED 1000 KR. OG MASKINEN FØRER REGNSKAB,"
0230 PRINT "OGSÅ FOR TOTALISATOREN. "
0235 ENDPROC
0240 LH$(1)=CHR(132)+" PPPX,"+CHR(128)
0250 LH$(2)=CHR(132)+" PPX,"+CHR(128)
0260 LH$(3)=CHR(132)+" PPPX$"+CHR(128)
0270 LH$(4)=" //(("
0280 LH$(5)=" ((//"
0290 X=3
0300 PRINT CHR(12); CHR(10)
0460 PRINT " OK - SÅ ER VI KLAR TIL ";
0470 PRINT CHR(128+16); "AT BEGYNDE."; CHR(128)
0480 SUM=0
0490 FOR I=1 TO 3
0500 SUM=SUM+H(I,1)
0510 NEXT I
0520 DIM A(AE,3),N$(12),HAN(SUM)
0530 FOR I=1 TO SUM
0540 IF I<=H(1,1) THEN HAN(I)=1
0550 IF I>H(1,1) AND I<=H(2,1)+H(1,1) THEN HAN(I)=2
0560 IF I>H(2,1)+H(1,1) THEN HAN(I)=3
0570 NEXT I
0580 FOR I=1 TO AE
0590 A(I,1)=1000
0600 NEXT I
0610 BOOK=0
0620 FOR I=1 TO AE
0630 PRINT CHR(12)
0640 PRINT
0650 PRINT
0660 PRINT
0670 IND=0
0680 PRINT " "; NAVNE$(I); " SALDO: "; A(I,1); " KR"
0690 IF A(I,1)>0 THEN EXEC SATS
0700 NEXT I
0710 PROC SATS
0720 PRINT
0730 PRINT
0740 INPUT " HVOR MEGET SPILLER DU FOR (HELE KR.): ",A(I,2)
0750 IF A(I,2)>A(I,1) THEN PRINT " FJOLS - SÅ MEGET HAR DU IKKE!"
0760 IF A(I,2)<>INT(A(I,2)) THEN PRINT " JEG SAGDE HELE KRONER!!!"
0770 IF A(I,2)>A(I,1) OR A(I,2)<>INT(A(I,2)) THEN GO TO 0740
0780 IF A(I,2)<>0 THEN
0790 REPEAT
0800 INPUT " HVILKEN HUND SPILLER DU PÅ: ",A(I,3)
0810 UNTIL A(I,3)>0 AND A(I,3)<=X
0820 ENDIF
0830 BOOK=BOOK+A(I,2)
0840 ENDPROC
0850 REPEAT
0860 FOR I=1 TO 3
0870 H(I,3)=6
0880 NEXT I
0890 PRINT CHR(12)
0900 FOR I=1 TO 14
0910 EXEC CUR(65,I+3)
0920 PRINT "MÅL"
0930 NEXT I
0940 PRINT CHR(29)
0950 PRINT CHR(10); CHR(10); CHR(10); CHR(10); CHR(10); "1:"; CHR(13)
0960 PRINT CHR(10); CHR(10); CHR(10); "2:"; CHR(10); CHR(10); CHR(13)
0970 PRINT CHR(10); "3:"
0980 FOR V=1 TO 3
0990 Y=(V)*4+2; X=5
1000 FOR I=1 TO 2
1010 EXEC CUR(X,Y+I-1)
1020 IF I=1 THEN PRINT LH$(V)
1030 IF I=2 THEN PRINT LH$(4)
1040 NEXT I
1050 NEXT V
1060 FOR I=1 TO 100
1070 NEXT I
1080 PRINT CHR(7);
1090 REPEAT
1100 V=HAN(INT(RND(8)*SUM+1)); Y=(V)*4+1
1110 FOR I=1 TO 2
1120 EXEC CUR(H(V,3),Y+I)
1130 IF I=1 THEN PRINT LH$(V)
1140 IF I=2 THEN PRINT LH$(3+I)
1150 NEXT I
1160 H(V,3)=H(V,3)+2
1170 UNTIL H(V,3)=>60
1180 EXEC CUR(15,20)
1190 PRINT " VINDER BLEV HUND NR.: "; CHR(128+2); V; CHR(128);
1200 INPUT " TRYK RETURN ",N$
1210 FALLERET=0
1220 FOR I=1 TO AE
1230 PRINT CHR(12)
1240 GEVINST=0
1250 IF A(I,1)=0 THEN LET FALLERET=FALLERET+1
1260 IF A(I,1)=0 THEN GO TO 1380
1270 PRINT " "; NAVNE$(I)
1280 PRINT USING " GAMMEL SALDO: ##########.## KR." : A(I,1)
1290 PRINT USING " HÆVET: ##########.## KR." : A(I,2)
1300 IF A(I,3)=V THEN GEVINST=A(I,2)*H(V,2)
1310 PRINT USING " GEVINST: ##########.## KR." : GEVINST
1320 PRINT "_____________________________________________"
1330 A(I,1)=A(I,1)-A(I,2)+GEVINST
1340 IF A(I,1)=0 THEN LET FALLERET=FALLERET+1
1350 PRINT USING " NY SALDO: ##########.## KR." : A(I,1)
1360 IF A(I,1)=0 THEN EXEC FALLIT
1370 IF A(I,1)>0 THEN EXEC SATS
1380 BOOK=BOOK-GEVINST
1390 IF I=AE THEN
1400 PRINT CHR(12)
1410 PRINT
1420 PRINT
1430 PRINT USING " SALDO FOR TOTALISATOR: ######### KR" : BOOK;
1440 INPUT " (TRYK RETURN) ",N$
1450 ENDIF
1460 NEXT I
1470 UNTIL FALLERET=>AE
1480 PRINT CHR(12)
1490 EXEC CUR(23,12)
1500 PRINT "ALLE SPILLERE ER GÅET FALLIT"
1510 PRINT TAB(27); "BANEN LUKKER NU."
1520 CHAIN "LOGON"
1530 PROC FALLIT
1540 PRINT CHR(10); CHR(10); CHR(10)
1550 PRINT "DU HAR IKKE FLERE PENGE - VÆR VENLIG AT FORLADE BANEN !!!!!!!"
1560 FOR VENT=1 TO 900
1570 NEXT VENT
1580 ENDPROC
▶03◀«nul»