Compucolor.org – Virtual Media

Listing of file='TWO10.BAS;01' on disk='vmedia/hangman2-sector.ccvf'

1 REM
2 PLOT 6,32,12,27,11,14,3,16,6,17,6,25
3 PRINT "  COMPUCOLOR PRESENTS TWO-TO-TEN  "
4 PLOT 3,64,0
5 FOR I= 1TO 2000:NEXT I
6 A0$= "`````":A1$= " ":A2$= "  ":A3$= "   ":A4$= "    ":A5$= "     "
7 Z$(1)= "c":Z$(2)= "d":Z$(3)= "h":Z$(4)= "s"
8 PLOT 6,7,12,6,28
9 DIM CD(36),BD(36)
10 PRINT "WHAT IS YOUR NAME";
15 PLOT 6,15:INPUT N$
18 PLOT 6,7:PRINT :PRINT
20 PRINT "DO YOU WANT INSTRUCTIONS (Y OR N) "N$" :";
21 AD= 33278:BACK= 17
22 POKE AD,0:PLOT 6,3
23 S= RND (8):IF PEEK (AD)= 0THEN 23
30 S= PEEK (AD):INPUT "";Q$:Q$= CHR$ (S)
35 PLOT 6,7
40 IF Q$= "N"THEN PLOT 12:GOTO 197
45 PLOT 12,27,24
60 PRINT "WELCOME TO THE GAME OF TWO-TO-TEN.  THE NAME COMES FROM THE"
70 PRINT "SPECIAL DECK OF CARDS USED.  THERE ARE NO FACE CARDS - ONLY"
80 PRINT "THE CARDS 2-10. THIS GAME IS EASY AND FUN TO PLAY IF YOU"
90 PRINT "UNDERSTAND WHAT YOU ARE DOING SO READ THE INSTRUCTIONS"
100 PRINT "CAREFULLY."
105 PRINT :PLOT 6,3,15
110 PRINT "AT THE START OF THE GAME YOU BET ON WINNING.  TYPE IN ANY"
120 PRINT "NUMBER BETWEEN 0 AND 200.THE MACHINE THEN PICKS A RANDOM NUMBER"
130 PRINT "YOU ARE TO REACH BY THE SUM TOTAL OF MORE CARDS CHOSEN."
140 PRINT "BECAUSE OF THE RARE CHANCE OF YOU GETTING TO THAT NUMBER"
150 PRINT "EXACTLY, YOU ARE GIVEN AN ALLOWANCE CARD.  THE OBJECT OF"
160 PRINT "THE GAME IS TO GET THE TOTAL OF CARDS WITHIN THE MYSTERY"
170 PRINT "NUMBER WITHOUT GOING OVER."
175 PRINT :PRINT
180 PRINT "YOU ARE GIVEN A HINT AS TO WHAT THE NUMBER IS.  THIS IS NOT"
185 PRINT "THE EXACT NUMBER ONLY ONE CLOSE! ALL YOU DO IN THIS GAME IS"
190 PRINT "DECIDE WHEN TO STOP. AT THIS POINT YOUR TOTAL IS COMPARED"
195 PRINT "WITH THE NUMBER AND YOUR WINNINGS ARE DETERMINED."
196 PLOT 14,6,7,3,64,0:FOR I= 1TO 15000:NEXT :PLOT 12
197 PRINT "****** ANSWER ALL QUESTIONS WITH A 'Y FOR YES & N FOR!NO' ******"
198 PRINT :PRINT "GOOD LUCK "N$
199 M= 200
200 REM
201 PLOT 27,11
205 PLOT 14
210 D= 0:T= 0
215 O= INT (10* RND (1))+ 25
220 N= INT (O* RND (1))+ O
230 R= (INT (15* RND (1))+ 1)/ 100
250 S= INT (O* RND (- 0)+ 1)
260 IF S< > 1THEN 270:E= INT (N- (N* R))
265 GOTO 280
270 E= INT (N+ (N* R))
280 IF CN= 0OR CN> 26THEN GOSUB 3000
281 CN= CN+ 1:GOSUB 3200
282 A= CX
284 PLOT 12,6,28,3,0,30,27,24
285 PRINT "PLACE YOUR BET "N$", YOU HAVE $"M;" TO SPEND. ";
288 INPUT B
289 PLOT 27,11,6,2
290 IF B< = MTHEN 300
293 PLOT 6,1,14,3,0,22
295 PRINT N$"--"N$"--"N$" YOU CAN'T BET MORE THAN YOU'VE GOT!"
296 FOR S= 1TO 500:NEXT S:GOTO 250
300 PLOT 8:FOR Q= 0TO 10STEP 2:PLOT 3,0,Q,11:NEXT Q:PLOT 8
304 PLOT 14,3,0,2
305 PRINT "YOUR 'LUCKY LIMIT' CARD IS ___"
306 PLOT 15:DX= 52:AX= A:M1= 0
307 GOSUB 2400
308 GOSUB 2250
309 D= 0:PLOT 3,0,5,6,2
310 PRINT "YOU MUST COME WITHIN ";A;" WITHOUT GOING OVER TO WIN."
315 PLOT 6:PLOT 5
320 PLOT 14,3,0,18:PRINT "WELL HERE WE GO ";N$
325 PLOT 6:PLOT 2
330 M1= 8
331 PLOT 15
335 GOSUB 2100
339 PLOT 6,7,3,0,20
340 D= D+ 1
341 DX= 1+ (D- 1)* 7
342 IF D< 10THEN 345
343 DX= 1+ (D- 10)* 7
344 M1= 16
345 CN= CN+ 1:IF (D= 1OR D= 10)AND CO> 28THEN GOSUB 3000
349 GOSUB 3200
350 C= CX
351 IF D= 10THEN PLOT 14,6,0,3,0,16,11,3,0,18,11,15,6,2
352 AX= C:GOSUB 2400
353 IF D= 10THEN GOSUB 2100
354 GOSUB 2250
355 IF D< 10THEN PLOT 15,6,2,3,0,16,11,14,3,0,18,11,15,3,0,16
356 IF D= 10THEN PLOT 6,2,3,0,26
357 IF D> 10THEN PLOT 14,6,2,3,0,26,11,15,3,0,28,11,3,0,25
360 PRINT "CARD #"D" IS A "C". YOU ARE TRYING TO COME NEAR "E
365 T= T+ C
366 IF T< = NTHEN 380
369 IF D< 10THEN PLOT 15,6,2,3,0,17,11,3,0,17
370 IF D> = 10THEN PLOT 15,6,2,3,0,24,11,3,0,24
371 PRINT "YOUR TOTAL IS "T". (LUCKY LIMIT IS "A")"
372 IF D< 10THEN PLOT 15,6,7,3,0,20,11,3,0,21,11,3,0,20
373 IF D> = 10THEN PLOT 15,6,7,3,0,26,11,3,0,26
375 PRINT "YOUR TOTAL IS GREATER THAN THE NUMBER "N","
376 PRINT "AN AUTOMATIC LOSS "N$
377 GOTO 570
380 PLOT 11
381 PRINT "YOUR TOTAL IS "T".(LUCKY LIMIT IS "A")-DO YOU WANT TO CONTINUE";
382 INPUT Q$
390 IF Q$= "Y"THEN 339
410 IF T< N- ATHEN 544:IF T> NTHEN 544
490 IF D< 10THEN PLOT 14,6,7,3,0,18,11,3,0,20,11,3,0,18,15
495 IF D> = 10THEN PLOT 14,6,7,3,0,24,11,3,0,26,11,3,0,28,11,3,0,24,15
500 PRINT "YOU WIN!--THE NUMBER WAS "N", YOUR GUESS TOTAL WAS "T
510 PRINT "WHICH WAS WITHIN YOUR LIMIT CARD OF "A
520 M= M+ B
540 GOTO 580
544 IF D> = 10THEN PLOT 15,3,0,23,11,14,3,0,24,11,3,0,26,11,15,3,0,24
545 IF D< 10THEN PLOT 3,0,21
546 PLOT 6,1
550 PRINT "OH "N$" YOU BLEW IT! THE NUMBER WAS "N","
551 PRINT "OUTSIDE YOUR ALLOWANCE BY ";
560 PRINT (N- A)- T
570 M= M- B
580 PLOT 6,7:IF D< 10THEN PRINT
600 PRINT "YOU NOW HAVE $"M" IN CASH TO BET IN THE NEXT GAME!"
607 IF M< > 0THEN 610
608 FOR M= 1TO 2000:NEXT :GOTO 630
610 PRINT "WOULD YOU LIKE TO PLAY THAT 'NEXT' GAME "N$;:INPUT Q$
620 IF Q$= "N"THEN 630
622 GOTO 200
630 PLOT 12:PRINT "DID YOU HAVE FUN "N$;:INPUT Q$
640 IF Q$= "Y"THEN 670
655 PLOT 12,14,17,31,3,19,12:PRINT "WELL-------SIT ON IT "N$
658 GOTO 999
670 PLOT 12,10,18,31,3,11,12:PRINT "WELL "N$" THAT JUST TICKLES MY CIRCUITS"
999 PLOT 3,64,0
1000 FOR I= 1TO 2500:NEXT I:PLOT 12,6,2,15,14
1010 LOAD "MENU":RUN
2000 REM
2001 A$(1)= "2"+ A4$
2002 A$(2)= A2$+ SU$+ A2$
2003 A$(3)= A5$
2004 A$(4)= A5$
2005 A$(5)= A5$
2006 A$(6)= A$(2)
2007 A$(7)= A4$+ "2"
2008 RETURN
2010 REM
2011 A$(1)= "3"+ A4$
2012 A$(2)= A2$+ SU$+ A2$
2013 A$(3)= A5$
2014 A$(4)= A$(2)
2015 A$(5)= A5$
2016 A$(6)= A$(2)
2017 A$(7)= A4$+ "3"
2018 RETURN
2020 REM
2021 A$(1)= "4"+ A4$
2022 A$(2)= A1$+ SU$+ A1$+ SU$+ A1$
2023 A$(3)= A5$
2024 A$(4)= A5$
2025 A$(5)= A5$
2026 A$(6)= A$(2)
2027 A$(7)= A4$+ "4"
2028 RETURN
2030 REM
2031 A$(1)= "5"+ A4$
2032 A$(2)= A1$+ SU$+ A1$+ SU$+ A1$
2033 A$(3)= A5$
2034 A$(4)= A2$+ SU$+ A2$
2035 A$(5)= A5$
2036 A$(6)= A$(2)
2037 A$(7)= A4$+ "5"
2038 RETURN
2040 REM
2041 A$(1)= "6"+ A4$
2042 A$(2)= A1$+ SU$+ A1$+ SU$+ A1$
2043 A$(3)= A5$
2044 A$(4)= A$(2)
2045 A$(5)= A5$
2046 A$(6)= A$(2)
2047 A$(7)= A4$+ "6"
2048 RETURN
2050 REM
2051 A$(1)= "7"+ A4$
2052 A$(2)= A1$+ SU$+ A1$+ SU$+ A1$
2053 A$(3)= A5$
2054 A$(4)= A1$+ SU$+ SU$+ SU$+ A1$
2055 A$(5)= A5$
2056 A$(6)= A$(2)
2057 A$(7)= A4$+ "7"
2058 RETURN
2060 REM
2061 A$(1)= "8"+ A4$
2062 A$(2)= A1$+ SU$+ A1$+ SU$+ A1$
2063 A$(3)= A2$+ SU$+ A2$
2064 A$(4)= A$(2)
2065 A$(5)= A$(3)
2066 A$(6)= A$(2)
2067 A$(7)= A4$+ "9"
2068 RETURN
2070 REM
2071 A$(1)= "9"+ A4$
2072 A$(2)= A1$+ SU$+ SU$+ SU$+ A1$
2073 A$(3)= A5$
2074 A$(4)= A$(2)
2075 A$(5)= A5$
2076 A$(6)= A$(2)
2077 A$(7)= A4$+ "9"
2078 RETURN
2080 REM
2081 A$(1)= "10"+ A3$
2082 A$(2)= A1$+ SU$+ A1$+ SU$+ A1$
2083 A$(3)= A$(2)
2084 A$(4)= A$(2)
2085 A$(5)= A$(2)
2086 A$(6)= A$(2)
2087 A$(7)= A3$+ "10"
2088 RETURN
2100 REM
2105 GOTO 2160
2110 PLOT 30,16,29,16
2115 FOR J= 1TO 57STEP 7
2120 FOR I= M1TO M1+ 6
2130 PLOT 3,J,I
2140 PRINT A5$
2150 NEXT I
2155 NEXT J
2160 PLOT 30,23,29,BACK
2165 FOR J= 1TO 57STEP 7
2170 FOR I= M1TO M1+ 6
2180 PLOT 3,J,I
2190 PRINT A0$
2200 NEXT I
2205 NEXT J
2210 RETURN
2250 REM
2260 PLOT 30,16,29,16
2270 FOR I= M1TO M1+ 6
2280 PLOT 3,DX,I
2290 PRINT A5$
2300 NEXT I
2310 IF SU= 1OR SU= 4THEN PLOT 30,23,29,16
2320 IF SU= 2OR SU= 3THEN PLOT 30,23,29,17
2330 FOR I= M1TO M1+ 6
2340 PLOT 3,DX,I
2350 PRINT A$(I- M1+ 1)
2360 NEXT I
2370 RETURN
2400 REM
2410 ON AX- 1GOTO 2420,2430,2440,2450,2460,2470,2480,2490,2500
2415 RETURN
2420 GOSUB 2000
2425 RETURN
2430 GOSUB 2010
2435 RETURN
2440 GOSUB 2020
2445 RETURN
2450 GOSUB 2030
2455 RETURN
2460 GOSUB 2040
2465 RETURN
2470 GOSUB 2050
2475 RETURN
2480 GOSUB 2060
2485 RETURN
2490 GOSUB 2070
2495 RETURN
2500 GOSUB 2080
2505 RETURN
3000 REM
3001 PLOT 14,3,0,24,11,3,0,26,11,3,0,28,11
3005 PLOT 3,0,26,14,6,3,31:PRINT "SHUFFLING NEW DECK"
3010 BACK= 37- BACK
3020 PLOT 3,64,0
3030 FOR V= 1TO 100000
3040 C1= INT (1+ 36* RND (5))
3050 IF BD(C1)= 1THEN 3090
3060 S1= S1+ 1
3070 CD(S1)= C1
3080 BD(C1)= 1
3090 IF S1= 36THEN 3110
3100 NEXT V
3110 FOR V= 1TO 36:BD(V)= 0:NEXT V
3115 CN= 0:S1= 0
3119 PLOT 15,14,3,0,26,11
3120 RETURN
3200 REM
3205 IF CN= 0THEN CN= 1
3210 CX= CD(CN)
3220 SU= 0
3230 IF CX< 10THEN SU= 1
3240 IF CX< 19AND SU= 0THEN SU= 2
3250 IF CX< 28AND SU= 0THEN SU= 3
3260 IF SU= 0THEN SU= 4
3270 SU$= Z$(SU)
3280 ON SUGOTO 3290,3310,3330,3350
3290 CX= CX+ 1
3300 RETURN
3310 CX= CX- 8
3320 RETURN
3330 CX= CX- 17
3340 RETURN
3350 CX= CX- 26
3360 RETURN