|
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 - metrics - download
Length: 6656 (0x1a00)
Types: TextFile
Names: »B51«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─⟦this⟧ »/B51«
0010 REM * * * E N A R M * * * 0020 REM ERIK RASMUSSEN, HJALLESESKOLEN, 15-2-81 0030 DIM P$(80),S$(31),S1$(31),S2$(31),S3$(31),S4$(80),S5$(160),TAL(100) 0040 DIM P1$(80) 0050 S1$=" "; S2$=" " 0060 FOR Q=1 TO 11 0070 S3$=S3$+CHR(127) 0080 NEXT Q 0090 RANDOMIZE 0100 S4$="KIRSEBÆR ,,BAR,, BLOMME CITRON FIRKLØVERAPPELSIN KLOKKE " 0110 DEF FNC(X)=95+X-64*(X>32)-64*(X>64) 0120 PROC PLOT(XX,YY,CC) 0130 PRINT CHR(6); CHR(FNC(XX)); CHR(FNC(YY)); CHR(CC); P$; CHR(128); 0140 ENDPROC 0150 PRINT CHR(12); CHR(130); " $ $ $ $ $ "; CHR(144); 0160 PRINT " D E N E N A R M E D E T Y V E K N Æ G T "; 0170 PRINT CHR(130); " $ $ $ $ $"; CHR(128) 0180 SUM=100 0190 PRINT 0200 PRINT " STARTSUMMEN ER 100 KR. INDSATSEN KAN VÆRE FRA 1 TIL 9 KR." 0210 PRINT " EN EVT. GEVINST GANGES MED INDSATSEN. MEN TRO IKKE, AT DU VINDER" 0220 PRINT " STORE SLAMBERT HAR KRAMMET PÅ DIG." 0230 PRINT " G O D F O R N Ø J E L S E " 0240 FOR Q=1 TO 100 0250 TAL(Q)=INT(RND(0)*7) 0260 NEXT Q 0270 PRINT " TRYK <SPACE> NÅR DU ER KLAR " 0280 Z=KEY(0) 0290 REM ---------- KASSEN LAVES ---------- 0300 OUT 1,0 0310 PRINT CHR(12) 0320 P$=S1$ 0330 FOR L=3 TO 18 0340 EXEC PLOT(24,L,144) 0350 PRINT 0360 NEXT L 0370 REM ---------- PYNT FOROVEN ---------- 0380 P$="###############" 0390 EXEC PLOT(32,2,144) 0400 PRINT 0410 REM ---------- SPILLEHULLER ---------- 0420 P$=CHR(127)+S2$+CHR(127)+S2$+CHR(127)+S2$+CHR(127) 0430 EXEC PLOT(24,5,132) 0440 PRINT 0450 REM ---------- TEKST SKRIVES ---------- 0460 P$=" >> " 0470 EXEC PLOT(24,7,144) 0480 P$=" S T O R E S L A M B E R T " 0490 PRINT 0500 EXEC PLOT(24,9,144) 0510 P$=" O O O " 0520 EXEC PLOT(24,11,146) 0530 PRINT 0540 P$=" C A S I N O PPP" 0550 EXEC PLOT(24,13,148) 0560 PRINT 0570 REM ---------- GEVINSTHULLET ---------- 0580 P$=S3$+S2$+S3$ 0590 FOR L=16 TO 17 0600 EXEC PLOT(24,L,132) 0610 NEXT L 0620 PRINT 0630 REM ---------- TRÆK-ARMEN ---------- 0640 P$=CHR(127) 0650 FOR L=12 TO 6 STEP -1 0660 EXEC PLOT(57,L,132) 0670 NEXT L 0680 PRINT 0690 REM ---------- FØDDERNE ---------- 0700 P$="#####" 0710 FOR V=24 TO 50 STEP 26 0720 EXEC PLOT(V,19,144) 0730 NEXT V 0740 REM ---------- BORDPLADEN ---------- 0750 P$="##########################################################" 0760 PRINT 0770 EXEC PLOT(10,20,132) 0780 REM ---------- SPILLET STARTER ---------- 0790 GEV=0 0800 REPEAT 0810 CC=128 0820 IF SUM<10 THEN CC=130 0830 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(22)); CHR(CC); 0840 PRINT USING " PENGEBEHOLDNING: ###### " : SUM; 0850 PRINT CHR(128) 0860 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(24)); CHR(144); 0870 PRINT USING " G E V I N S T : ###### " : GEV; 0880 PRINT CHR(128) 0890 OUT 1,35 0900 REPEAT 0910 P$=" INDSATS >> " 0920 EXEC PLOT(24,7,144) 0930 PRINT CHR(6); CHR(FNC(52)); CHR(FNC(7)); CHR(144); 0940 I=KEY(0)-48 0950 PRINT CHR(8); CHR(I+48) 0960 UNTIL I=>1 AND I<=9 AND I<=SUM 0970 SUM=SUM-I 0980 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(22)); CHR(128); 0990 PRINT USING " PENGEBEHOLDNING: ###### " : SUM; 1000 PRINT CHR(128) 1010 REM ---------- GEVINSTHULLET ---------- 1020 P$=S3$+S2$+S3$ 1030 FOR L=16 TO 17 1040 EXEC PLOT(24,L,132) 1050 NEXT L 1060 PRINT 1070 REM ---------- TRÆK-ARM NED --------- 1080 P$=" " 1090 FOR L=6 TO 12 1100 EXEC PLOT(57,L,128) 1110 NEXT L 1120 REM ---------- SPILLEHJULENES TEKST UDVÆLGES TILFÆLDIGT ---------- 1130 TAL(1)=INT(RND(0)*7) 1140 TAL(2)=INT(RND(0)*7) 1150 TAL(3)=INT(RND(0)*7) 1160 REM ---------- TRÆK-ARM OP ---------- 1170 P$=CHR(127) 1180 FOR L=12 TO 6 STEP -1 1190 EXEC PLOT(57,L,132) 1200 PRINT 1210 NEXT L 1220 REM ---------- "SPILLEHJULENE" RULLER ---------- 1230 FOR Q=94 TO 1 STEP -3 1240 PRINT CHR(6); CHR(119); CHR(100); CHR(132); 1250 PRINT CHR(127); S4$(TAL((Q)*(Q>80)+1)*9+1 : 9); 1260 PRINT CHR(127); S4$(TAL((Q+1)*(Q>40)+2)*9+1 : 9); 1270 PRINT CHR(127); S4$(TAL(Q+2)*9+1 : 9); CHR(127) 1280 NEXT Q 1290 GEV=0 1300 REM ---------- GEVINST UDMÅLING ---------- 1310 IF TAL(1)=0 THEN 1320 P1$=" 2 "; SUM=SUM+I*2; GEV=I*2 1330 IF TAL(2)=0 THEN P1$=" 5 "; SUM=SUM+I*5; GEV=I*5 1340 ENDIF 1350 IF TAL(1)=TAL(2) AND TAL(2)=TAL(3) THEN 1360 P1$=" 10 "; SUM=SUM+I*10; GEV=I*10 1370 IF TAL(1)=1 THEN P1$="JACKPOT"; SUM=SUM+I*100; GEV=I*100 1380 IF TAL(1)=4 THEN P1$=" 50 "; SUM=SUM+I*50; GEV=I*50 1390 IF TAL(1)=6 THEN P1$=" 18 "; SUM=SUM+I*18; GEV=I*18 1400 IF TAL(1)=3 THEN P1$=" 12 "; SUM=SUM+I*12; GEV=I*12 1410 IF TAL(1)=2 THEN P1$=" 14 "; SUM=SUM+I*14; GEV=I*14 1420 ENDIF 1430 IF TAL(3)=1 THEN 1440 IF TAL(1)=TAL(2) AND TAL(1)=6 THEN 1450 P1$=" 10 "; SUM=SUM+I*10; GEV=I*10 1460 ENDIF 1470 IF TAL(1)=TAL(2) AND TAL(1)=3 THEN 1480 P1$=" 10 "; SUM=SUM+I*10; GEV=I*10 1490 ENDIF 1500 ENDIF 1510 REM ---------- GEVINST ---------- 1520 IF GEV>0 THEN 1530 GEVI=GEV/I 1540 FOR Q=1 TO GEVI 1550 CC=CRT(7) 1560 IF GEVI<5 THEN 1570 FOR J=1 TO 100 1580 NEXT J 1590 ELSE 1600 FOR J=1 TO 80 1610 NEXT J 1620 ENDIF 1630 NEXT Q 1640 PRINT 1650 P$="GEVINST"+CHR(132)+S3$ 1660 EXEC PLOT(36,16,134) 1670 P$=P1$+CHR(132)+S3$ 1680 EXEC PLOT(36,17,128) 1690 ENDIF 1700 UNTIL SUM<=0 1710 PRINT CHR(12) 1720 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(12)); CHR(144); 1730 PRINT " TAK FOR DENNE GANG! "; 1740 PRINT CHR(128) 1750 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(14)); CHR(144); 1760 PRINT " HILSEN STORE SLAMBERT "; 1770 PRINT CHR(128); 1780 CHAIN "LOGON" ▶03◀«nul»