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