MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
SLOT
Jump to navigation
Jump to search
100 TL=0: TW=0: DIM T$(8,5) 110 CLS: PRINT@9,"SLOT MACHINE" 120 FOR I=1 TO 8 130 FOR J=1 TO 5 140 READ T$(I,J) 150 NEXT J,I 160 GOSUB390 170 GOSUB530 180 PRINT@480,"PRESS P TO PLAY"; 190 A$=INKEY$: ZZ=RND(1000) 200 IF A$="" THEN 190 210 IF A$<>"P" THEN 190 220 GOSUB690 230 IF NOT (P1=P2 AND P1=P3) THEN 270 240 GOSUB 980 250 IF P1=6 THEN TC=50: TW=TW+50: GOSUB 980: GOTO310 260 TC=6: TW=TW+6: GOTO310 270 IF (P1=P2) AND (P1=6 OR P1=2) THEN TC=6: TW=TW+6: GOTO310 280 IF P1=P2 THEN TC=3: TW=TW+3: GOTO310 290 IF P1=2 THEN TC=3: TW=TW+3: GOTO310 300 TC=0: TL=TL+1 310 REM -- PRINT TOTALS 320 PRINT@461," "; 330 PRINT@448,"CURR.PAYOFF=$" ;TC; 340 PRINT@473," "; 350 PRINT@468,"WON=$";TW; 360 PRINT@505," "; 370 PRINT@499,"LOST=$";TL; 380 GOTO180 390 REM -- SUBR. FOR OUTLINE 400 FOR I=66 TO 88 410 PRINT@I,CHR$(131);: NEXT I 420 PRINT@89,CHR$(130); 430 FOR I=121 TO 409 STEP 32 440 PRINT@I,CHR$(138);: NEXT I 450 PRINT@441,CHR$(136); 460 FOR I=440 TO 418 STEP -1 470 PRINT@I,CHR$(140);: NEXT I 480 PRINT@417,CHR$(132); 490 FOR I=385 TO 97 STEP -32 500 PRINT@I,CHR$(133);: NEXT I 510 PRINT@65,CHR$( 129); 520 RETURN 530 REM -- SUBR. FOR HANDLE UP 540 PRINT@347," "; 550 PRINT@410,CHR$(131)+CHR$(132)+CHR$(140)+CHR$(136); 560 PRINT@381,CHR$(138); 570 FOR H=347 TO 187 STEP -32 580 PRINT@H,CHR$(133)+" "+CHR$(138);: NEXT H 590 PRINT@155 ,CHR$(129)+CHR$(131)+CHR$(130); 600 PRINT@346,CHR$(140); 610 RETURN 620 REM--SUBR. FOR HANDLE DOWN 630 FOR H=154 TO 410 STEP 32 640 PRINT@H," ";: NEXT H 650 PRINT@410,CHR$(131)+CHR$(132)+CHR$(140)+CHR$(136); 660 PRINT@381,CHR$(138); 670 PRINT@346,CHR$(140)+CHR$(129)+CHR$(131)+CHR$(130); 680 RETURN 690 REM -- PRINT FIGURES 700 GOSUB620 710 FOR J=0 TO 4 720 FOR P=196 TO 210 STEP 7 730 PRINT@P+(J*32),CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128); 740 NEXT P,J 750 GOSUB530 760 FOR P=196 TO 210 STEP 7 770 I=RND(8) 780 IF P=196 THEN P1=I 790 IF P=203 THEN P2=I 800 IF P=210 THEN P3=I 810 K=((I-1)*16)+1 820 FOR J=1 TO 5 830 A=VAL(LEFT$(T$(1,J),1))*K 840 B=VAL(MID$(T$(I,J),2,1))*K 850 C=VAL(MID$(T$(I,J),3,1))*K 860 D=VAL(MID$(T$(I,J),4,1))*K 870 E=VAL(RIGHT$(T$(I,J),1))*K 880 F=128 890 PRINT@P+((J-1)*32),CHR$(F+A)+CHR$(F+B)+CHR$(F+C)+CHR$(F+D)+CHR$(F+E); 900 NEXT J: SOUND 135,1 910 NEXT P 920 RETURN 930 DATA 00000,01010,00100,01010,00000,00000,01110,01010,01110,00000 940 DATA 10000,01000,00100,00010,00001,00000,00100,01110,00100,00000 950 DATA 00001,00010,00100,01000,10000,00100,01110,01110,01110,00100 960 DATA 00000,00000,11111,00000,00000,00100,00100,00100,00100,00100 970 DATA -1,185,4,197,2,1,1,185,4,189,4,197,6,0,0 980 RESTORE 990 READ ZZ: IF ZZ<>-1 THEN 990 1000 READ ZT,ZD: IF ZT=0 THEN 1050 1010 IF ZT=1 THEN 1030 1020 SOUND ZT,ZD 1030 FOR ZT=1 TO 20:NEXT ZT 1040 GOTO 1000 1050 RETURN