Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

SLOT

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
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