PCDisk Magazine Disks

home *** CD-ROM | disk | FTP | other *** search

/ PCDisk Magazine Disks / PCDisk Magazine - Disk 4.img / FUNNELS.BAS (.txt) < prev next >

Wrap

GW-BASIC | 1984-07-09 | 14.5 KB | 773 lines

10 ' --------------------------------- 20 ' -- TITLE: Funnels and Buckets 30 ' -- Copyright (C) 1984 by Data Sage 70 ' --------------------------------- 80 ' 140 DEFINT A-Z 150 DQ = 5 : CL = 3 : AC = DQ * CL : CD$ = CHR$(27) : DO = -1 200 FJ = 1 : DP = 0 : AI = -1 : CJ = 1 : AJ = 0 : EB = 12 270 BQ = 11 : FI = 14 : FH = 15 : CY = 10 : BY = 3 : DA = 20 330 DJ = 5 : BA = 30 : BH = 4 : CN$ = CHR$(200)+CHR$(187)+" "+CHR$(201)+CHR$(188) 370 CO = LEN(CN$) : BS = 2 : CF = 15 : AK$ = " " 430 FE = 10 440 FD = 55 450 DIM FC$(5) 460 FC$(1) = "A" 470 FC$(2) = "S" 480 FC$(3) = "M" 490 FC$(4) = "D" 500 FC$(5) = "X" 510 DY = 11 : DX = 55 : EU = 12 : ES = 55 : DL = 19 560 DK = 10 : AF = 1<UNK! {0009}>: AE = 3 : EN = 1 : EK = 61 610 CU$ = CHR$(218) 620 EF$ = CHR$(191) 630 CR$ = CHR$(192) 640 ED$ = CHR$(217) 650 AP$ = CHR$(196) 660 AQ$ = CHR$(179) 670 CV$ = CHR$(201) 680 EG$ = CHR$(187) 690 BX$ = CHR$(205) 700 AX$ = CHR$(186) 710 AS$ = CHR$(200)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(205)+CHR$(188) 720 AO = 23 730 FA = AO - CL + 1 740 AY = 13 750 DIM CT(5) 760 CT(1) = 2 : CT(2) = 17 : CT(3) = 32 : CT(4) = 47 : CT(5) = 62 810 DIM AV(5) 820 DIM BM$(5, 3) 830 DIM EQ(5, 3) 840 DIM CE$(3) 850 CE$(1) = "\ | | | | /" : CE$(2) = "-- --" : CE$(3) = "/ | | | | \" 880 AL$ = " " 890 DH = 2 900 DIM CZ$(2) 910 CZ$(1) = CHR$(2) 920 CZ$(2) = CHR$(234) 930 BF = 2 940 DIM AZ$(2) 950 AZ$(1) = CHR$(1) 960 AZ$(2) = CHR$(19) 970 DIM ET$(6) 980 ET$(0) = "FASTEST " 990 ET$(1) = "FASTER " 1000 ET$(2) = "FAST " 1010 ET$(3) = "SLOW " 1020 ET$(4) = "SLOWER " 1030 ET$(5) = "SLOWEST " 1040 AM$ = " " : EV = 2 1060 BZ = 80 - (CO + 1) 1070 EY$ = "> > > F U N N E L S & B U C K E T S < < <" 1080 FG$ = "Version 1.00" 1090 BN$ = "Copyright (C) 1984 by Data Sage" 1100 EC$ = "All Rights Reserved" 1110 CG$ = "O3AAAAO4D4O3F+ABBBA;" 1120 CH$ = "O3GGBBAAAGF+4EED4D4;" 1130 ER$ = "O3CCA2G2F2E2F1;" 1140 DI$ = "O5C32E32G32;" 1150 BG$ = "O1E32F32D32;" 1160 ' 1210 GOSUB 1920 1220 GOSUB 2190 1230 GOSUB 1570 1240 GOSUB 3320 1250 GOSUB 4250 1260 GOSUB 6530 1270 GOSUB 7290 1280 GOSUB 8500 1290 EH = 6 1300 WHILE (CM < AC) 1310 BL = EV 1320 BW = CJ 1330 WHILE ((BL <= BZ) AND (CM < AC)) 1340 IF DN = FJ THEN GOSUB 2050 1360 IF (EA = FJ AND DM = FJ) THEN GOSUB 5240 1370 IF (EA = FJ AND DM = FJ) THEN GOSUB 5580 1380 IF (EA = FJ AND DM = FJ) THEN GOSUB 5920 1390 IF (EA = FJ) THEN GOSUB 6110 1400 GOSUB 7580 1410 WEND 1420 ' 1430 BL = BZ 1440 BW = AI 1450 WHILE ((BL >= EV) AND (CM < AC)) 1460 IF DN = FJ THEN GOSUB 2050 1480 IF (EA = FJ AND DM = FJ) THEN GOSUB 5240 1490 IF (EA = FJ AND DM = FJ) THEN GOSUB 5580 1500 IF (EA = FJ AND DM = FJ) THEN GOSUB 5920 1510 IF (EA = FJ) THEN GOSUB 6110 1520 GOSUB 7580 1530 WEND 1540 WEND 1550 GOSUB 9580 1560 END 1570 ' 1620 BP = FI 1630 AT = 3 1640 FOR AR = 1 TO DQ 1650 AV(AR) = 0 1660 FOR CW = 0 TO CL 1670 BM$(AR, CW) = " " 1680 EQ(AR, CW) = -1 1690 NEXT 1700 NEXT 1710 AD$ = CHR$(1) 1720 BO = 0 1730 DU = 1 1740 BV = 1 1750 BU = 0 1760 CM = 0 1770 DN = FJ 1780 DM = FJ 1790 BT = 200 1800 AU = 2 1810 EJ# = 0 1820 EM = 0 1830 DF = 10 1840 DB = 10 1850 DE = DO 1860 BE = 10 1870 BB = 10 1880 BD = DO 1910 RETURN 1920 ' 1970 ON ERROR GOTO 10090 1980 KEY OFF 1990 SCREEN 0,0,0 2000 WIDTH 80 2010 COLOR FH, AJ, AJ 2011 DW = DO 2012 FB$ = "X" 2013 CC = 2 * BS 2020 CLS 2030 GOSUB 6440 2040 RETURN 2050 ' 2100 IF BW = CJ THEN LOCATE EH, BL - 1, DP 2110 IF BW = AI THEN LOCATE EH, BL + CO, DP 2120 PRINT AM$; 2130 LOCATE EH, BL, DP 2140 PRINT CN$; 2150 IF BL = BJ THEN EA = FJ 2160 IF BW = CJ THEN BL = BL + 1 2170 IF BW = AI THEN BL = BL - 1 2180 RETURN 2190 ' 2250 PLAY "MB T125 O3 L8" 2260 PLAY "X" + VARPTR$(CG$) 2290 COLOR FH, AJ, AJ 2300 EZ = 1 2310 AN = 9 2320 CS = 1 2330 EE = 80 2340 GOSUB 4840 2360 PLAY "X" + VARPTR$(CH$) + "D4P8" 2390 COLOR EB, AJ, AJ 2400 DT$ = EY$ 2410 EH = 3 2420 GOSUB 3120 2430 COLOR FI, AJ, AJ 2440 DT$ = FG$ 2450 EH = 5 2460 GOSUB 3220 2470 DT$ = BN$ 2480 EH = 6 2490 GOSUB 3120 2500 EH = 7 2510 LOCATE EH, (40 - (LEN(EC$))/2), DP 2520 PRINT EC$; 2540 PLAY "X" + VARPTR$(CG$) 2570 COLOR FH, AJ, AJ 2580 EZ = 10 2590 AN = 23 2600 CS = 3 2610 EE = 77 2620 GOSUB 4840 2640 PLAY "X" + VARPTR$(CH$) + "D2" 2670 COLOR BQ, AJ, AJ 2680 LOCATE 12, (40 - (LEN("??? WHAT IS THIS ???"))/2), DP 2690 PRINT "??? WHAT IS THIS ???"; 2700 COLOR FI, AJ, AJ 2710 LOCATE 14, 7, DP 2720 PRINT " POP the problems before they fill your buckets. To POP them,"; 2730 LOCATE 15, 7, DP 2740 PRINT "type in the right answer. The more you POP, the higher your score."; 2750 COLOR EB, AJ, AJ 2760 LOCATE 17, 7, DP 2770 PRINT CZ$(1); 2780 COLOR FI, AJ, AJ 2790 LOCATE 17, 12, DP 2800 PRINT "Watch for MEGGIE! If you type the answer when she appears,"; 2810 COLOR EB, AJ, AJ 2820 LOCATE 18, 7, DP 2830 PRINT CZ$(2); 2840 COLOR FI, AJ, AJ 2850 LOCATE 18, 12, DP 2860 PRINT " you get BONUS points."; 2870 COLOR EB, AJ, AJ 2880 LOCATE 20, 7, DP 2890 PRINT AZ$(1); 2900 COLOR FI, AJ, AJ 2910 LOCATE 20, 12, DP 2920 PRINT "But watch OUT for BURGLAR! He'll steal points if you type"; 2930 COLOR EB, AJ, AJ 2940 LOCATE 21, 7, DP 2950 PRINT AZ$(2); 2960 COLOR FI, AJ, AJ 2970 LOCATE 21, 12, DP 2980 PRINT " an answer when he's around."; 2990 COLOR BQ, AJ, AJ 3000 LOCATE 25, (40 - (LEN("Press SPACE BAR to start."))/2), DP 3010 PRINT "Press SPACE BAR to start."; 3020 COLOR BQ, AJ, AJ 3030 DT$ = EY$ 3040 EH = 3 3050 GOSUB 3220 3060 COLOR FH, AJ, AJ 3090 PLAY "MF" 3100 IF INKEY$ = "" THEN 3100 3110 RETURN 3120 ' 3170 FOR BL = 3 TO (40 - (LEN(DT$))/2) 3180 LOCATE EH, BL, DP 3190 PRINT " "; DT$; 3200 NEXT BL 3210 RETURN 3220 ' 3270 FOR BL = (78 - LEN(DT$)) TO (40 - (LEN(DT$))/2) STEP -1 3280 LOCATE EH, BL, DP 3290 PRINT DT$; " "; 3300 NEXT BL 3310 RETURN 3320 ' 3380 CLS 3400 COLOR FH, AJ, AJ 3410 EZ = 1 3420 AN = 5 3430 CS = 1 3440 EE = 80 3450 GOSUB 4840 3480 COLOR BQ, AJ, AJ 3490 EH = 3 3500 LOCATE EH, (40 - (LEN(EY$))/2), DP 3510 PRINT EY$; 3540 COLOR FH, AJ, AJ 3550 EZ = 6 3560 AN = 17 3570 CS = 3 3580 EE = 77 3590 GOSUB 4840 3620 COLOR BQ, AJ, AJ 3630 LOCATE 8, (40 - (LEN("--- MAKE THE GAME THE WAY YOU LIKE IT ---"))/2), DP 3640 PRINT "--- MAKE THE GAME THE WAY YOU LIKE IT ---"; 3650 COLOR FI, AJ, AJ 3660 LOCATE 10, 17, DP 3670 PRINT "Press 1 to choose Problems ( )"; 3680 LOCATE 11, 17, DP 3690 PRINT "Press 2 to choose Sound Effects ( )"; 3700 LOCATE 12, 17, DP 3710 PRINT "Press 3 to choose Speed! ( )"; 3720 LOCATE 14, 17, DP 3730 PRINT "Press ESC to Quit"; 3740 LOCATE 15, 17, DP 3750 PRINT "Press SPACE BAR to Start Playing"; 3760 GOSUB 4000 3790 COLOR FH, AJ, AJ 3800 EZ = 18 3810 AN = 23 3820 CS = 1 3830 EE = 80 3840 GOSUB 4840 3870 LOCATE EZ + 1, CS + 5, DP 3880 PRINT "CHOOSE:"; 3910 EO$ = INKEY$ 3920 WHILE (EO$ <> " ") 3930 IF EO$ = "1" THEN GOSUB 8190 : GOSUB 4000 3940 IF EO$ = "2" THEN GOSUB 7810 : GOSUB 4000 3950 IF EO$ = "3" THEN GOSUB 7990 : GOSUB 4000 3960 IF EO$ = CD$ THEN GOSUB 9580 : GOSUB 4000 3970 EO$ = INKEY$ 3980 WEND 3990 RETURN 1250 4000 ' 4050 COLOR BQ, AJ, AJ 4060 LOCATE FE, FD 4070 IF FB$ = "A" THEN PRINT "ADD "; 4080 IF FB$ = "S" THEN PRINT "SUBTRACT"; 4090 IF FB$ = "M" THEN PRINT "MULTIPLY"; 4100 IF FB$ = "D" THEN PRINT "DIVIDE "; 4110 IF FB$ = "X" THEN PRINT "MIX "; 4120 LOCATE DY, DX 4130 IF DW = FJ THEN PRINT "QUIET "; 4140 IF DW = DO THEN PRINT "SOUND "; 4150 LOCATE EU, ES 4160 PRINT ET$(CC/BS); 4170 LOCATE DL, DK + 5, DP 4180 PRINT SPC(40); 4190 LOCATE DL + 2, DK, DP 4200 PRINT SPC(65); 4210 LOCATE DL + 3, DK, DP 4220 PRINT SPC(65); 4230 COLOR FH, AJ, AJ 4240 RETURN 4250 ' 4300 CLS 4330 COLOR FI, AJ, AJ 4340 EH = 3 4350 LOCATE EH, (40 - (LEN("F U N N E L S & B U C K E T S"))/2), DP 4360 PRINT "F U N N E L S & B U C K E T S"; 4380 COLOR FH, AJ, AJ 4390 LOCATE AF, AE 4400 PRINT " ANSWER"; 4410 EZ = AF + 1 4420 AN = EZ + 2 4430 CS = AE 4440 EE = CS + 16 4450 GOSUB 4840 4470 LOCATE EN, EK 4480 PRINT " SCORE"; 4490 CS = EK 4500 EE = CS + 16 4510 GOSUB 4840 4520 LOCATE EN + 2, 68 4530 PRINT EJ#; 4550 COLOR FI, AJ, AJ 4560 EH = 5 4570 BL = 1 4580 LOCATE EH, BL 4590 FOR CQ = BL TO (80 - BL) 4600 PRINT BX$; 4610 NEXT 4620 LOCATE EH, 1 4630 PRINT CV$; 4640 LOCATE EH, 79 4650 PRINT EG$; 4670 COLOR FH, AJ, AJ 4680 FOR AT = 1 TO DQ 4690 AU = CT(AT) 4700 GOSUB 5100 4710 BJ = AU + 2 4720 FOR CW = 0 TO (CL - 1) 4730 LOCATE AO - CW, BJ, DP 4740 PRINT BM$(AT, CW); 4750 IF EQ(AT, CW) >= 0 THEN PRINT " ="; EQ(AT, CW); 4760 NEXT 4770 NEXT 4790 COLOR FI, AJ, AJ 4800 LOCATE 25, 21, DP 4810 PRINT "Press ESC to change choices or quit."; 4820 COLOR FH, AJ, AJ 4830 RETURN 4840 ' 4890 LOCATE AN, CS, DP 4900 PRINT CR$; 4910 LOCATE EZ, CS, DP 4920 PRINT CU$; 4930 FOR DV = EZ + 1 TO AN - 1 4940 LOCATE DV, CS 4950 PRINT AQ$; 4960 LOCATE DV, EE 4970 PRINT AQ$; 4980 NEXT 4990 LOCATE AN, EE, DP 5000 PRINT ED$; 5010 LOCATE EZ, EE, DP 5020 PRINT EF$; 5030 FOR DV = CS + 1 TO EE - 1 5040 LOCATE EZ, DV 5050 PRINT AP$; 5060 LOCATE AN, DV 5070 PRINT AP$; 5080 NEXT 5090 RETURN 5100 ' 5150 FOR AW = FA TO AO 5160 LOCATE AW, AU, DP 5170 PRINT AX$; 5180 LOCATE AW, AU + AY, DP 5190 PRINT AX$; 5200 NEXT 5210 LOCATE AO + 1, AU, DP 5220 PRINT AS$; 5230 RETURN 5240 ' 5290 IF (BD = FJ) THEN RETURN 5300 IF (DE = FJ) THEN GOTO 5460 5330 CI = INT(RND(1) * DA) + 1 5340 IF CI >= DA THEN DE = FJ 5350 IF DE = DO THEN RETURN 5380 DC = DC + 1 5390 DF = (INT(RND(1) * 11) + 7) 5400 DB = (INT(RND(1) * 76) + 2) 5410 FOR CX = 1 TO DH 5420 LOCATE DF + CX - 1, DB, DP 5430 PRINT CZ$(CX); 5440 NEXT CX 5450 IF DW = DO THEN PLAY "X" + VARPTR$(DI$) 5460 ' 5480 DC = DC + 1 5490 WHILE ((DC >= DJ) OR (EA = DO)) 5500 FOR CX = 0 TO (DH - 1) 5510 LOCATE DF + CX, DB, DP 5520 PRINT " "; 5530 NEXT CX 5540 DC = 0 5550 DE = DO 5560 WEND 5570 RETURN 5580 ' 5630 IF (DE = FJ) THEN RETURN 5640 IF (BD = FJ) THEN GOTO 5800 5670 CI = INT(RND(1) * BA) + 1 5680 IF CI >= BA THEN BD = FJ 5690 IF BD = DO THEN RETURN 5720 BC = BC + 1 5730 BE = (INT(RND(1) * 11) + 7) 5740 BB = (INT(RND(1) * 79) + 1) 5750 FOR CX = 1 TO BF 5760 LOCATE BE + CX - 1, BB, DP 5770 PRINT AZ$(CX); 5780 NEXT CX 5790 IF DW = DO THEN PLAY "X" + VARPTR$(BG$) 5800 ' 5820 BC = BC + 1 5830 WHILE ((BC >= BH) OR (EA = DO)) 5840 FOR CX = 0 TO (BF - 1) 5850 LOCATE BE + CX, BB, DP 5860 PRINT " "; 5870 NEXT CX 5880 BC = 0 5890 BD = DO 5900 WEND 5910 RETURN 5920 ' 5970 WHILE (BK > FA - 3) 5980 DU = BO + 1 5990 GOSUB 8390 6000 RETURN 6010 WEND 6020 ' 6030 IF DW = DO THEN SOUND CK, BY 6040 CK = CK - 50 6050 LOCATE BK, BJ, DP 6060 PRINT AK$; 6070 BK = BK + 1 6080 LOCATE BK, BJ, DP 6090 PRINT CA$; 6100 RETURN 6110 ' 6160 WHILE (DM = FJ) 6170 CB = 0 6180 DM = DO 6190 WEND 6200 CB = CB + 1 6210 IF CB >= CC THEN DM = FJ 6220 RETURN 6350 ' 6400 FOR BR = 1 TO BT 6410 GOSUB 6440 6420 NEXT BR 6430 RETURN 6440 ' 6490 EW$ = MID$(TIME$,7,2) 6500 EX = VAL(EW$) 6510 RANDOMIZE EX 6520 RETURN 6530 ' 6580 AA = INT(RND(1) * CY) 6590 AG = INT(RND(1) * CY) 6600 IF FB$ = "A" THEN GOSUB 6790 6610 IF FB$ = "S" THEN GOSUB 6880 6620 IF FB$ = "M" THEN GOSUB 6980 6630 IF FB$ = "D" THEN GOSUB 7070 6640 IF FB$ = "X" THEN GOSUB 7180 6650 AB$ = CHR$(AA + &H30) 6660 AH$ = CHR$(AG + &H30) 6670 IF AA >= 10 THEN AB$ = CHR$((AA\10) + &H30) + CHR$((AA MOD 10) + &H30) 6680 IF AG >= 10 THEN AH$ = CHR$((AG\10) + &H30) + CHR$((AG MOD 10) + &H30) 6690 CA$ = AB$+" "+EP$+" "+AH$+" =" 6700 BU = 0 6710 BV = 0 6720 CQ = 1 6730 WHILE ((BO\CQ) > 0) 6740 BV = BV + 1 6750 CQ = CQ * 10 6760 WEND 6770 IF BO = 0 THEN BV = 1 6780 RETURN 6790 ' 6840 EP$ = "+" 6850 BO = (AA + AG) 6860 EL# = 5 6870 RETURN 6880 ' 6930 EP$ = "-" 6940 IF AG > AA THEN SWAP AA, AG 6950 BO = (AA - AG) 6960 EL# = 10 6970 RETURN 6980 ' 7030 EP$ = "x" 7040 BO = (AA * AG) 7050 EL# = 15 7060 RETURN 7070 ' 7120 EP$ = CHR$(246) 7130 IF AG = 0 THEN AG = 1 7140 BO = (AA * AG) 7150 SWAP BO, AA 7160 EL# = 20 7170 RETURN 7180 ' 7230 FF = INT(RND(1) * 4) 7240 IF FF = 0 THEN GOSUB 6790 7250 IF FF = 1 THEN GOSUB 6880 7260 IF FF = 2 THEN GOSUB 6980 7270 IF FF = 3 THEN GOSUB 7070 7280 RETURN 7290 ' 7340 COLOR FH, AJ, AJ 7350 GOSUB 5100 7360 IF CM >= AC THEN RETURN 7370 BI = INT(RND(1) * (DQ - 1)/2) + 1 7380 IF BW = CJ THEN AT = AT + BI 7390 IF BW = AI THEN AT = AT - BI 7400 IF AT > DQ THEN AT = 1 7410 IF AT < 1 THEN AT = DQ 7420 IF AV(AT) >= CL THEN GOTO 7370 7430 AU = CT(AT) 7440 BJ = CT(AT) + 2 7450 GOSUB 7480 7460 BK = 7 7470 RETURN 7480 ' 7530 BP = BP + 1 7540 IF BP > 15 THEN BP = 2 7550 IF BP = 8 THEN BP = 10 7560 COLOR BP, AJ, AJ 7570 RETURN 7580 ' 7630 AD$ = INKEY$ 7640 IF AD$ = "" THEN RETURN 7650 IF ASC(AD$) >= &H30 THEN IF ASC(AD$) <= &H39 THEN GOSUB 7680 7660 IF AD$ = CD$ THEN GOSUB 3320 7670 RETURN 7680 ' 7730 DR = ASC(AD$) - &H30 7740 EI = 10 ^ BU 7750 DU = (DU * EI) + DR 7760 BU = BU + 1 7770 LOCATE 3,AE + 7 7780 PRINT DU; 7790 IF BU = BV THEN GOSUB 8390 7800 RETURN 7810 ' 7860 COLOR BQ, AJ, AJ 7870 LOCATE DL, (40 - (LEN("2 - SOUND EFFECTS"))/2), DP 7880 PRINT "2 - SOUND EFFECTS"; 7890 COLOR FH, AJ, AJ 7900 LOCATE DL + 2, DK, DP 7910 PRINT "1 for SOUND 2 for QUIET"; 7920 EO$ = INKEY$ 7930 IF EO$ = "" THEN 7920 7940 IF EO$ = "1" THEN DW = DO 7950 IF EO$ = "2" THEN DW = FJ 7960 GOSUB 4000 7970 EO$ = "" 7980 RETURN 7990 ' 8040 COLOR BQ, AJ, AJ 8050 LOCATE DL, (40 - (LEN("3 - SPEED"))/2), DP 8060 PRINT "3 - SPEED"; 8070 COLOR FH, AJ, AJ 8080 LOCATE DL + 2, DK, DP 8090 PRINT "1 for FASTEST 2 for FASTER 3 for FAST"; 8100 LOCATE DL + 3, DK 8110 PRINT "6 for SLOWEST 5 for SLOWER 4 for SLOW"; 8120 EO$ = INKEY$ 8130 IF EO$ = "" THEN 8120 8140 IF (EO$ < "1" OR EO$ > "6") THEN RETURN 8150 CC = (ASC(EO$) - &H31) * BS 8160 GOSUB 4000 8170 EO$ = "" 8180 RETURN 8190 ' 8240 COLOR BQ, AJ, AJ 8250 LOCATE DL, (40 - (LEN("1 - PROBLEMS"))/2), DP 8260 PRINT "1 - PROBLEMS"; 8270 COLOR FH, AJ, AJ 8280 LOCATE DL + 2, DK, DP 8290 PRINT "1 for ADD 2 for SUBTRACT 3 for MULTIPLY"; 8300 LOCATE DL + 3, DK 8310 PRINT "4 for DIVIDE 5 for MIX"; 8320 EO$ = INKEY$ 8330 IF EO$ = "" THEN 8320 8340 IF (EO$ < "1" OR EO$ > "5") THEN RETURN 8350 FB$ = FC$(ASC(EO$) - &H30) 8360 GOSUB 4000 8370 EO$ = "" 8380 RETURN 8390 ' 8440 IF DU = BO THEN GOSUB 8760 8450 IF DU <> BO THEN GOSUB 8970 8460 GOSUB 6530 8470 GOSUB 7290 8480 GOSUB 8500 8490 RETURN 8500 ' 8550 DU = 0 8560 BU = 0 8570 EA = DO 8590 FOR CX = 0 TO (DH - 1) 8600 LOCATE DF + CX, DB, DP 8610 PRINT " "; 8620 NEXT CX 8630 DC = 0 8640 DE = DO 8660 FOR CX = 0 TO (BF - 1) 8670 LOCATE BE + CX, BB, DP 8680 PRINT " "; 8690 NEXT CX 8700 BC = 0 8710 BD = DO 8720 CK = INT(RND(1) * 1500) + 2500 8730 DEF SEG=0: POKE 1050, PEEK(1052) 8740 DEF SEG: POKE 106,0 8750 RETURN 8760 ' 8810 EJ# = EJ# + EL# 8820 IF DE = FJ THEN EJ# = EJ# + (EL# * 2) 8830 IF (DE = FJ AND DW = DO) THEN PLAY "X" + VARPTR$(DI$) 8840 IF (BD = FJ AND DW = DO) THEN PLAY "X" + VARPTR$(BG$) 8850 IF BD = FJ THEN EJ# = EJ# - (2 * EL#) 8860 IF EJ# < 0 THEN EJ# = 0 8870 LOCATE 3,68 8880 PRINT EJ#; 8890 GOSUB 9310 8910 WHILE (INT(EJ#/1000) > EM) 8920 CC = CC - BS 8930 IF CC < 0 THEN CC = 0 8940 EM = INT(EJ#/500) 8950 WEND 8960 RETURN 8970 ' 9020 BT = CF 9030 IF DW = DO THEN SOUND 150, 10 9040 FOR CQ = 1 TO 3 9050 LOCATE AF + 2, AE + 3, DP 9060 PRINT CA$;BO; 9080 GOSUB 6350 9100 LOCATE AF + 2, AE + 1, DP 9110 PRINT AK$; 9130 GOSUB 6350 9140 NEXT 9150 BT = CC 9170 LOCATE BK, BJ, DP 9180 PRINT AK$; 9190 LOCATE AO - AV(AT), BJ, DP 9200 PRINT CA$; BO; 9210 BM$(AT, AV(AT)) = CA$ 9220 EQ(AT, AV(AT)) = BO 9230 AV(AT) = AV(AT) + 1 9240 CM = CM + 1 9250 IF (BD = FJ AND DW = DO) THEN PLAY "X" + VARPTR$(BG$) 9260 IF BD = FJ THEN EJ# = EJ# - (2 * EL#) 9270 IF EJ# < 0 THEN EJ# = 0 9280 LOCATE 3,68 9290 PRINT EJ#; 9300 RETURN 9310 ' 9360 COLOR EB, AJ, AJ 9370 IF DW = DO THEN SOUND 1000, 2 9380 CQ = 1 9390 FOR DZ = BK - 1 TO BK + 1 9400 LOCATE DZ, BJ - 1, DP 9410 PRINT CE$(CQ); 9420 CQ = CQ + 1 9430 NEXT 9450 COLOR BP, AJ, AJ 9460 LOCATE BK, BJ + 5, DP 9470 PRINT BO; 9490 BT = CF 9500 GOSUB 6350 9510 BT = CC 9530 FOR DZ = BK - 1 TO BK + 1 9540 LOCATE DZ, BJ - 1, DP 9550 PRINT AL$; 9560 NEXT 9570 RETURN 9580 ' 9630 CLS 9640 OPEN "FUNNELS.SCR" FOR INPUT AS #1 9650 INPUT #1, DS$, CP# 9660 CLOSE #1 9670 LOCATE 8, 31 9680 PRINT "YOUR SCORE WAS "; EJ#; 9690 IF CP# >= EJ# THEN GOSUB 9790 9700 IF CP# < EJ# THEN GOSUB 9920 9720 LOCATE 18, 26 9730 PRINT "Care to play again (Y/N)?"; 9740 AD$ = INKEY$ 9750 IF AD$ = "Y" OR AD$ = "y" THEN GOTO 1230 9760 IF AD$ = "N" OR AD$ = "n" OR AD$ = CD$ THEN CLS : SYSTEM 9770 GOTO 9740 9780 RETURN 9790 ' 9840 LOCATE 10, 31 9850 PRINT "Good job. But ..."; 9860 LOCATE 12, (80 - LEN(DS$))/2 9870 PRINT DS$ 9880 LOCATE 14, 25 9890 PRINT "still holds the high score of "; CP#; 9900 IF DW = DO THEN PLAY "X" + VARPTR$(ER$) 9910 RETURN 9920 ' 9970 IF DW = DO THEN PLAY "X" + VARPTR$(CG$) 9980 LOCATE 10, 27 9990 PRINT "You have set a new record!" 10000 IF DW = DO THEN PLAY "X" + VARPTR$(CH$) + "D2" 10010 LOCATE 12, 21 10020 PRINT "What is your name, please"; 10030 INPUT DS$ 10040 CP# = EJ# 10050 OPEN "FUNNELS.SCR" FOR OUTPUT AS #1 10060 WRITE #1, DS$; CP# 10070 CLOSE #1 10080 RETURN 10090 ' 10150 IF ERR <> 53 THEN GOTO 10220 10160 CLOSE #1 10170 OPEN "FUNNELS.SCR" FOR OUTPUT AS #1 10180 WRITE #1, "Nobody" 10190 WRITE #1, 0 10200 CLOSE #1 10210 RESUME 9630 10220 ' 10230 CLS 10240 LOCATE 7, 29 10250 COLOR EB, AJ, AJ 10260 PRINT "--- PROBLEM "; ERR; " ---"; 10270 COLOR FH, AJ, AJ 10280 LOCATE 10, 30 10290 PRINT "Something is wrong."; 10300 LOCATE 12, 27 10310 ' 10320 IF ERR = 71 THEN PRINT "The disk drive is not ready." 10330 IF ERR = 72 THEN PRINT " The disk may be damaged." 10340 ' 10350 IF (ERR = 24 OR ERR = 27) THEN PRINT "The printer is not ready." 10360 ' 10370 IF ERR = 57 THEN PRINT " There is an I/O error." 10380 ' 10390 PRINT " IBM error code: "; ERR 10400 LOCATE 22, 10 10410 PRINT "--- Press <Esc> to Quit or any OTHER key to Resume again. ---" 10420 LOCATE 23, 10 10430 PRINT "(It only makes sense to resume if you have corrected the problem.)" 10440 AD$ = INKEY$ 10450 IF AD$ = "" THEN 10440 10460 IF AD$ = CD$ THEN SYSTEM 10470 CLS 10480 RESUME 1240