100 REM ************************ 110 REM * * 120 REM * SWAGGER * 130 REM * * 140 REM * COPYRIGHT (C) 1988 * 150 REM * BY * 160 REM * JOHN M. CAMPBELL * 170 REM * * 180 REM * ALL RIGHTS RESERVED * 190 REM * * 200 REM ************************ 210 REM SWAGGER COVER PAGE 220 PRINT "[147]"CHR$(142) 230 POKE 53281,0:POKE 53280,12 250 AD=1666 260 POKE AD,74:AD=AD+1 270 POKE AD,67:AD=AD+1 280 POKE AD,67:AD=AD+1 290 POKE AD,67:AD=AD+1 300 POKE AD,75:AD=AD-40 310 POKE AD,93:AD=AD-40 320 POKE AD,93:AD=AD-40 330 POKE AD,73:AD=AD-1 340 POKE AD,67:AD=AD-1 350 POKE AD,67:AD=AD-1 360 POKE AD,67:AD=AD-1 370 POKE AD,74:AD=AD-40 380 POKE AD,93:AD=AD-40 390 POKE AD,93:AD=AD-40 400 POKE AD,85:AD=AD+1 410 POKE AD,67:AD=AD+1 420 POKE AD,67:AD=AD+1 430 POKE AD,67:AD=AD+1 440 POKE AD,73:AD=AD+1 450 POKE AD,85:AD=AD+40 460 POKE AD,93:AD=AD+40 470 POKE AD,93:AD=AD+40 480 POKE AD,93:AD=AD+40 490 POKE AD,93:AD=AD+40 500 POKE AD,93:AD=AD+40 510 POKE AD,74:AD=AD+1 520 POKE AD,67:AD=AD+1 530 POKE AD,75:AD=AD-40 540 POKE AD,93:AD=AD-40 550 POKE AD,85:AD=AD+1 560 POKE AD,73:AD=AD+40 570 POKE AD,93:AD=AD+40 580 POKE AD,74:AD=AD+1 590 POKE AD,67:AD=AD+1 600 POKE AD,75:AD=AD-40 610 POKE AD,93:AD=AD-40 620 POKE AD,93:AD=AD-40 630 POKE AD,93:AD=AD-40 640 POKE AD,93:AD=AD-40 650 POKE AD,93:AD=AD-40 660 POKE AD,73 670 AD=1677 680 POKE AD,74:AD=AD-40 690 POKE AD,93:AD=AD-40 700 POKE AD,93:AD=AD-40 710 POKE AD,107:AD=AD-40 720 POKE AD,93:AD=AD-40 730 POKE AD,93:AD=AD-40 740 POKE AD,85:AD=AD+1 750 POKE AD,67:AD=AD+1 760 POKE AD,67:AD=AD+1 770 POKE AD,67:AD=AD+1 780 POKE AD,73:AD=AD+40 790 POKE AD,93:AD=AD+40 800 POKE AD,93:AD=AD+40 810 POKE AD,115:AD=AD+40 820 POKE AD,93:AD=AD+40 830 POKE AD,93:AD=AD+40 840 POKE AD,75:AD=AD-120-3 850 POKE AD,67:AD=AD+1 860 POKE AD,67:AD=AD+1 870 POKE AD,67:AD=AD+1 880 AD=1684-120 890 POKE AD,85:AD=AD+1 900 POKE AD,67:AD=AD+1 910 POKE AD,73:AD=AD+40 920 POKE AD,93:AD=AD+40 930 POKE AD,93:AD=AD+40 940 POKE AD,75:AD=AD-1 950 POKE AD,67:AD=AD-1 960 POKE AD,67:AD=AD-1 970 POKE AD,67:AD=AD-1 980 POKE AD,74:AD=AD-40 990 POKE AD,93:AD=AD-40 1000 POKE AD,93:AD=AD-40 1010 POKE AD,93:AD=AD-40 1020 POKE AD,93:AD=AD-40 1030 POKE AD,93:AD=AD-40 1040 POKE AD,85:AD=AD+1 1050 POKE AD,67:AD=AD+1 1060 POKE AD,67:AD=AD+1 1070 POKE AD,67:AD=AD+1 1080 POKE AD,73:AD=AD+123 1090 POKE AD,85:AD=AD+1 1100 POKE AD,67:AD=AD+1 1110 POKE AD,73:AD=AD+40 1120 POKE AD,93:AD=AD+40 1130 POKE AD,93:AD=AD+40 1140 POKE AD,75:AD=AD-1 1150 POKE AD,67:AD=AD-1 1160 POKE AD,67:AD=AD-1 1170 POKE AD,67:AD=AD-1 1180 POKE AD,74:AD=AD-40 1190 POKE AD,93:AD=AD-40 1200 POKE AD,93:AD=AD-40 1210 POKE AD,93:AD=AD-40 1220 POKE AD,93:AD=AD-40 1230 POKE AD,93:AD=AD-40 1240 POKE AD,85:AD=AD+1 1250 POKE AD,67:AD=AD+1 1260 POKE AD,67:AD=AD+1 1270 POKE AD,67:AD=AD+1 1280 POKE AD,73:AD=AD+123 1290 AD=1696 1300 POKE AD,75:AD=AD-1 1310 POKE AD,67:AD=AD-1 1320 POKE AD,67:AD=AD-1 1330 POKE AD,67:AD=AD-1 1340 POKE AD,74:AD=AD-40 1350 POKE AD,93:AD=AD-40 1360 POKE AD,85:AD=AD+1 1370 POKE AD,67:AD=AD+1 1380 POKE AD,75:AD=AD-40 1390 POKE AD,93:AD=AD-40 1400 POKE AD,73:AD=AD-1 1410 POKE AD,67:AD=AD-1 1420 POKE AD,74:AD=AD-40 1430 POKE AD,93:AD=AD-40 1440 POKE AD,85:AD=AD+1 1450 POKE AD,67:AD=AD+1 1460 POKE AD,67:AD=AD+1 1470 POKE AD,67:AD=AD+1 1480 POKE AD,73 1490 AD=1697 1500 POKE AD,74:AD=AD-40 1510 POKE AD,93:AD=AD-40 1520 POKE AD,93:AD=AD-40 1530 POKE AD,93:AD=AD-40 1540 POKE AD,93:AD=AD-40 1550 POKE AD,93:AD=AD-40 1560 POKE AD,85:AD=AD+1 1570 POKE AD,67:AD=AD+1 1580 POKE AD,67:AD=AD+1 1590 POKE AD,67:AD=AD+1 1600 POKE AD,73:AD=AD+40 1610 POKE AD,93:AD=AD+40 1620 POKE AD,75:AD=AD-1 1630 POKE AD,67:AD=AD-1 1640 POKE AD,85:AD=AD+40 1650 POKE AD,74:AD=AD+1 1660 POKE AD,67:AD=AD+1 1670 POKE AD,73:AD=AD+40 1680 POKE AD,93:AD=AD+40 1690 POKE AD,93:AD=AD+40 1700 POKE AD,75 1710 REM DISPLAY COPYRIGHT 1720 LN%=1:CM%=1:GOSUB 11170 1730 PRINT "[159] COPYRIGHT 1988(C) UPTIME MAGAZINE" 1740 PRINT 1750 PRINT "[151] PUBLISHED BY SOFTDISK PUBLISHING, INC." 1760 LN%=23:CM%=4:GOSUB 11170 1770 PRINT "[159]DO YOU WANT INSTRUCTIONS (Y/N)?" 1780 REM TEST FOR Y/N ANSWER AFTER PROMPT 1790 A$="A" 1800 GET A$:IF A$="" THEN 1800 1810 IF A$="[217]" OR A$="Y" THEN 1840 1820 IF A$="[206]" OR A$="N" THEN 2900 1830 GOTO 1800 1840 PRINT "[147]" 1850 REM DISPLAY TEXT 1860 FOR J=1 TO 4 1870 PRINT "[147]"; 1880 FOR I=1 TO 22 1890 READ A$ 1900 PRINT " "A$ 1910 NEXT 1920 PRINT 1930 IF J<4 THEN PRINT "[158] [208]LEASE [208]RESS [210][197][212][213][210][206] TO [195]ONTINUE" 1940 IF J=4 THEN PRINT "[158] [208]LEASE [208]RESS [210][197][212][213][210][206] TO [211]TART [199]AME" 1945 POKE 198,0 1950 GET A$ 1955 IF A$<>CHR$(13) THEN 1950 1960 NEXT 1970 GOTO 2900 1980 REM ==================== 1990 REM INSTRUCTIONS TEXT 2000 REM ==================== 2010 DATA "" 2020 DATA "" 2030 DATA " [211][215][193][199][199][197][210] IS A MODERN FORM OF THE" 2040 DATA "ANCIENT GUESSING GAME PLAYED BY THE" 2050 DATA "[201]NCAS OF [208]ERU. [212]HEY WOULD WANDER " 2060 DATA "THROUGH THE FORESTS AND MOUNTAIN" 2070 DATA "PASSAGES OF [208]ERU LOOKING FOR OBJECTS" 2080 DATA "OF SPECIAL INTEREST. [215]HEN ONE OF THEM" 2090 DATA "SAW SOMETHING UNIQUE, HE WOULD SAY," 2100 DATA "'[201] SEE A WILD ASS.' [212]HIS WAS THE" 2110 DATA "SIGNAL TO THE OTHERS TO START GUESSING" 2120 DATA "WHAT HE REALLY SAW, SINCE WILD ASSES" 2130 DATA "WERE INDEED RARE IN [208]ERU. [197]ACH IN" 2140 DATA "TURN WOULD MAKE THEIR WILD ASS GUESS," 2150 DATA "AND THEY WOULD BE GUIDED TO THE PRIZE" 2160 DATA "BY THE RESPONSE 'HOTTER' WHEN THE" 2170 DATA "GUESS WAS CLOSER THAN THE LAST ONE," 2180 DATA "AND 'COLDER' WHEN IT WAS FARTHER" 2190 DATA "AWAY. [193] GUESS WAS CALLED A [215][193][199] (SHORT" 2200 DATA "FOR [215]ILD [193]SS [199]UESS), FROM WHICH OUR" 2210 DATA "WORD 'WAGER' IS DERIVED." 2220 DATA "" 2230 DATA "" 2240 DATA " [201] HAVE ADAPTED THIS GAME TO THE" 2250 DATA "[195]OMMODORE 64, CHANGED [215][193][199] TO [211][215][193][199]" 2260 DATA "(FOR [211]CIENTIFIC [215]ILD [193]SS [199]UESS), AND" 2270 DATA "NAMED IT [211][215][193][199][199][197][210]." 2280 DATA "" 2290 DATA " [201]N [211][215][193][199][199][197][210], THE COMPUTER PICKS A" 2300 DATA "KEY FROM THE KEYBOARD AT RANDOM AND" 2310 DATA "ASKS YOU TO GUESS IT. [217]OU ENTER YOUR" 2320 DATA "[211][215][193][199] BY TYPING THE KEY YOU THINK IT" 2330 DATA "IS. [212]HE COMPUTER INDICATES HOW CLOSE" 2340 DATA "YOU ARE WITH A TEMPERATURE SCALE" 2350 DATA "WHICH RANGES FROM ARCTIC TO SEARING." 2360 DATA "[217]OU TRY TO GUESS THE KEY IN AS FEW" 2370 DATA "[211][215][193][199]S AS POSSIBLE, BUT 20 MAXIMUM." 2380 DATA "" 2390 DATA " [196]ON'T TRY TO USE THE [210][197][211][212][207][210][197] OR" 2400 DATA "[210][213][206]/[211][212][207][208] KEYS FOR THIS GAME. [193]LSO," 2410 DATA "SOME CONTROL KEYS ARE NOT ALLOWED," 2420 DATA "BUT THEY WILL NOT COUNT AGAINST YOUR" 2430 DATA "SCORE IF YOU TYPE THEM BY ACCIDENT." 2440 DATA "" 2450 DATA "" 2460 DATA " [212]HERE IS ONE THING TO KEEP IN" 2470 DATA "MIND WHILE PLAYING THE GAME. [212]HE" 2480 DATA "COMPUTER CONSIDERS SHIFTED KEYS," 2490 DATA "CONTROL KEYS, AND [195]OMMODORE KEYS" 2500 DATA "TO BE JUST AS VALID AS REGULAR KEYS." 2510 DATA "[212]HE GAME SCREEN REPRESENTS EACH" 2520 DATA "KEY WITH FOUR SPACES, AS SHOWN BELOW:" 2530 DATA "" 2540 DATA " [176][192][178][192][174]" 2550 DATA " [176][192][192][192]>[221] [221] [221]<[192][192][192][174]" 2560 DATA " [221] [171][192][219][192][179] [221]" 2570 DATA " [221] [176][192]>[221][203][221] [221]<[192][174] [221]" 2580 DATA " [221] [221] [173][192][177][192][189] [221] [221]" 2590 DATA " [221] [221] [221] [221]" 2600 DATA " [221] [221] [195]ONTROL [189] [221] [204]EVEL 4" 2610 DATA " [221] [221] [221] [221] [221]" 2620 DATA " [221] [173][192][192] [203]EY [221] [204]EVEL 3" 2630 DATA " [221] [221] [221] [221]" 2640 DATA " [221] [195]OMMODORE [192][189] [204]EVEL 2" 2650 DATA " [221] [221] [221]" 2660 DATA " [173][192][192][192] [211]HIFT [204]EVEL 1" 2670 DATA "" 2680 DATA " [212]HE COMPUTER WILL LIGHT UP THE" 2690 DATA "SQUARE CORRESPONDING TO THE KEY YOU" 2700 DATA "PRESSED. [212]HE COMPUTER CALCULATES HOW" 2710 DATA "CLOSE YOUR GUESS IS, AND USES THE" 2720 DATA "APPROPRIATE COLOR FOR THAT DISTANCE" 2730 DATA "WHEN IT LIGHTS UP THE SQUARE. [206]OTE" 2740 DATA "THAT THE COMPUTER FACTORS IN THE" 2750 DATA "[204]EVEL OF THE KEY (SHIFTED, [195]OMMODORE," 2760 DATA "OR CONTROL), AS WELL AS ITS POSITION," 2770 DATA "WHEN CALCULATING DISTANCE." 2780 DATA "" 2790 DATA " [193]LSO WATCH OUT FOR [206]UCLEAR [215]INTER," 2800 DATA "SO NAMED BECAUSE YOU CANNOT TELL IF" 2810 DATA "IF IT IS HOT OR COLD. [215]HEN [206]UCLEAR" 2820 DATA "[215]INTER HITS, YOU GET ONE [211][215][193][199]. [201]F" 2830 DATA "THAT GUESS IS HOTTER THAN THE LAST," 2840 DATA "YOU ARE ALLOWED TO CONTINUE. [201]F IT" 2850 DATA "IS COLDER, YOU LOSE IMMEDIATELY." 2860 DATA "" 2870 DATA " [206]OW GET READY TO PLAY. [199]OOD [204]UCK!" 2880 DATA "[217]OU ARE GOING TO NEED IT..." 2890 REM ==================== 2900 REM LAY OUT KEYBOARD ON SCREEN 2910 REM ==================== 2920 DIM X(63),Y(63),D$(11),HF(11) 2930 DIM G$(20),GS$(20),MS$(20),PR$(8):GM=20 2940 BL$=" " 2950 CH=1024:REM CHARACTER RAM 2960 CL=55296:REM COLOR RAM 2970 PRINT "[147]" 2980 POKE 53281,0:REM BACKGROUND COLOR 3000 LN=2:CM=3 3010 REM TOP ROW OF KEYS 3020 C1=12:C2=11 3030 DL=40*(LN-1)+(CM-1) 3040 FOR I=1TO16 3050 A1=CH+DL:A2=CL+DL 3060 POKE A2,C1:POKE A1,160 3070 DL=DL+1 3080 A1=CH+DL:A2=CL+DL 3090 POKE A2,C2:POKE A1,160 3100 DL=DL+1 3110 NEXT I 3120 A1=A1+3:A2=A2+3 3130 POKE A2,C1:POKE A1,160 3140 A1=A1+1:A2=A2+1 3150 POKE A2,C2:POKE A1,160 3160 IF LN>2 THEN 3180 3170 LN=LN+1:C2=C1:C1=15:GOTO 3030 3180 AD=CH+82 3190 POKE AD,128+31:AD=AD+2 3200 POKE AD,128+49:AD=AD+2 3210 POKE AD,128+50:AD=AD+2 3220 POKE AD,128+51:AD=AD+2 3230 POKE AD,128+52:AD=AD+2 3240 POKE AD,128+53:AD=AD+2 3250 POKE AD,128+54:AD=AD+2 3260 POKE AD,128+55:AD=AD+2 3270 POKE AD,128+56:AD=AD+2 3280 POKE AD,128+57:AD=AD+2 3290 POKE AD,128+48:AD=AD+2 3300 POKE AD,128+43:AD=AD+2 3310 POKE AD,128+45:AD=AD+2 3320 POKE AD,128+28:AD=AD+2 3330 POKE AD,128+72:AD=AD+1 3340 POKE AD,128+15:AD=AD+1 3350 POKE AD,128+68:AD=AD+1 3360 POKE AD,128+ 5:AD=AD+3 3370 POKE AD,128+ 6:AD=AD+1 3380 POKE AD,128+49:AD=AD+1 3390 REM SECOND ROW OF KEYS 3400 LN=5:CM=6 3410 C1=12:C2=11 3420 DL=40*(LN-1)+(CM-1) 3430 FOR I=1TO13 3440 A1=CH+DL:A2=CL+DL 3450 POKE A2,C1:POKE A1,160 3460 DL=DL+1 3470 A1=CH+DL:A2=CL+DL 3480 POKE A2,C2:POKE A1,160 3490 DL=DL+1 3500 NEXT I 3510 A1=A1+6:A2=A2+6 3520 POKE A2,C1:POKE A1,160 3530 A1=A1+1:A2=A2+1 3540 POKE A2,C2:POKE A1,160 3550 IF LN>5 THEN 3570 3560 LN=LN+1:C2=C1:C1=15:GOTO 3420 3570 AD=CH+205 3580 POKE AD,128+81:AD=AD+2 3590 POKE AD,128+87:AD=AD+2 3600 POKE AD,128+69:AD=AD+2 3610 POKE AD,128+82:AD=AD+2 3620 POKE AD,128+84:AD=AD+2 3630 POKE AD,128+89:AD=AD+2 3640 POKE AD,128+85:AD=AD+2 3650 POKE AD,128+73:AD=AD+2 3660 POKE AD,128+79:AD=AD+2 3670 POKE AD,128+80:AD=AD+2 3680 POKE AD,128+ 0:AD=AD+2 3690 POKE AD,128+42:AD=AD+2 3700 POKE AD,128+30:AD=AD+7 3710 POKE AD,128+6:AD=AD+1 3720 POKE AD,128+51 3730 REM THIRD ROW OF KEYS 3740 LN=8:CM=7 3750 C1=12:C2=11 3760 DL=40*(LN-1)+(CM-1) 3770 FOR I=1TO13 3780 A1=CH+DL:A2=CL+DL 3790 POKE A2,C1:POKE A1,160 3800 DL=DL+1 3810 A1=CH+DL:A2=CL+DL 3820 POKE A2,C2:POKE A1,160 3830 DL=DL+1 3840 NEXT 3850 A1=A1+5:A2=A2+5 3860 POKE A2,C1:POKE A1,160 3870 A1=A1+1:A2=A2+1 3880 POKE A2,C2:POKE A1,160 3890 IF LN>8 THEN 3910 3900 LN=LN+1:C2=C1:C1=15:GOTO 3760 3910 AD=CH+326 3920 POKE AD,128+65:AD=AD+2 3930 POKE AD,128+83:AD=AD+2 3940 POKE AD,128+68:AD=AD+2 3950 POKE AD,128+70:AD=AD+2 3960 POKE AD,128+71:AD=AD+2 3970 POKE AD,128+72:AD=AD+2 3980 POKE AD,128+74:AD=AD+2 3990 POKE AD,128+75:AD=AD+2 4000 POKE AD,128+76:AD=AD+2 4010 POKE AD,128+58:AD=AD+2 4020 POKE AD,128+59:AD=AD+2 4030 POKE AD,128+61:AD=AD+2 4040 POKE AD,128+82:AD=AD+1 4050 POKE AD,128+20:AD=AD+5 4060 POKE AD,128+6:AD=AD+1 4070 POKE AD,128+53 4080 REM FOURTH ROW OF KEYS 4090 LN=11:CM=7 4100 C1=12:C2=11 4110 DL=40*(LN-1)+(CM-1) 4120 FOR I=1TO11 4130 A1=CH+DL:A2=CL+DL 4140 POKE A2,C1:POKE A1,160 4150 DL=DL+1 4160 A1=CH+DL:A2=CL+DL 4170 POKE A2,C2:POKE A1,160 4180 DL=DL+1 4190 NEXT 4200 A1=A1+3:A2=A2+3 4210 POKE A2,C1:POKE A1,160 4220 A1=A1+1:A2=A2+1 4230 POKE A2,C2:POKE A1,160 4240 A1=A1+1:A2=A2+1 4250 POKE A2,C1:POKE A1,160 4260 A1=A1+1:A2=A2+1 4270 POKE A2,C2:POKE A1,160 4280 A1=A1+3:A2=A2+3 4290 POKE A2,C1:POKE A1,160 4300 A1=A1+1:A2=A2+1 4310 POKE A2,C2:POKE A1,160 4320 IF LN>11 THEN 4340 4330 LN=LN+1:C2=C1:C1=15:GOTO 4110 4340 AD=CH+446 4350 POKE AD,128+90:AD=AD+2 4360 POKE AD,128+88:AD=AD+2 4370 POKE AD,128+67:AD=AD+2 4380 POKE AD,128+86:AD=AD+2 4390 POKE AD,128+66:AD=AD+2 4400 POKE AD,128+83:AD=AD+1 4410 POKE AD,128+16:AD=AD+1 4420 POKE AD,128+78:AD=AD+2 4430 POKE AD,128+77:AD=AD+2 4440 POKE AD,128+44:AD=AD+2 4450 POKE AD,128+46:AD=AD+2 4460 POKE AD,128+47:AD=AD+4 4470 POKE AD,128+30:AD=AD+2 4480 POKE AD,128+31:AD=AD+4 4490 POKE AD,128+ 6:AD=AD+1 4500 POKE AD,128+55:AD=AD+1 4510 REM DISPLAY LEGEND 4520 POKE 1305,83 4530 POKE 1307,67 4540 POKE 1308,61 4550 POKE 1345,8 4560 POKE 1346,160:POKE 55618,12 4570 POKE 1347,160:POKE 55619,11 4580 POKE 1386,160:POKE 55658,15 4590 POKE 1387,160:POKE 55659,12 4600 POKE 1388,67 4610 POKE 1425,75 4620 POKE 1426,25 4630 POKE 1428,20 4640 REM KEY POSITIONS 4650 X( 0)=33:Y( 0)=3 4660 X( 1)=31:Y( 1)=9 4670 X( 2)=33:Y( 2)=12 4680 X( 3)=37:Y( 3)=12 4690 X( 4)=37:Y( 4)=3 4700 X( 5)=37:Y( 5)=6 4710 X( 6)=37:Y( 6)=9 4720 X( 7)=31:Y( 7)=12 4730 X( 8)= 9:Y( 8)=3 4740 X( 9)= 8:Y( 9)=6 4750 X(10)= 7:Y(10)=9 4760 X(11)=11:Y(11)=3 4770 X(12)= 7:Y(12)=12 4780 X(13)= 9:Y(13)=9 4790 X(14)=10:Y(14)=6 4800 X(15)=-99:Y(15)=-99 4810 X(16)=13:Y(16)=3 4820 X(17)=12:Y(17)=6 4830 X(18)=11:Y(18)=9 4840 X(19)=15:Y(19)=3 4850 X(20)=11:Y(20)=12 4860 X(21)=13:Y(21)=9 4870 X(22)=14:Y(22)=6 4880 X(23)= 9:Y(23)=12 4890 X(24)=17:Y(24)=3 4900 X(25)=16:Y(25)=6 4910 X(26)=15:Y(26)=9 4920 X(27)=19:Y(27)=3 4930 X(28)=15:Y(28)=12 4940 X(29)=17:Y(29)=9 4950 X(30)=18:Y(30)=6 4960 X(31)=13:Y(31)=12 4970 X(32)=21:Y(32)=3 4980 X(33)=20:Y(33)=6 4990 X(34)=19:Y(34)=9 5000 X(35)=23:Y(35)=3 5010 X(36)=21:Y(36)=12 5020 X(37)=21:Y(37)=9 5030 X(38)=22:Y(38)=6 5040 X(39)=19:Y(39)=12 5050 X(40)=25:Y(40)=3 5060 X(41)=24:Y(41)=6 5070 X(42)=23:Y(42)=9 5080 X(43)=27:Y(43)=3 5090 X(44)=25:Y(44)=12 5100 X(45)=25:Y(45)=9 5110 X(46)=26:Y(46)=6 5120 X(47)=23:Y(47)=12 5130 X(48)=29:Y(48)=3 5140 X(49)=28:Y(49)=6 5150 X(50)=27:Y(50)=9 5160 X(51)=31:Y(51)=3 5170 X(52)=-99:Y(52)=-99 5180 X(53)=29:Y(53)=9 5190 X(54)=30:Y(54)=6 5200 X(55)=27:Y(55)=12 5210 X(56)= 5:Y(56)=3 5220 X(57)= 3:Y(57)=3 5230 X(58)=-99:Y(58)=-99 5240 X(59)= 7:Y(59)=3 5250 X(60)=17:Y(60)=12 5260 X(61)=-99:Y(61)=-99 5270 X(62)= 6:Y(62)=6 5280 X(63)= 2:Y(63)=9 5290 REM TEMPERATURE DESCRIPTIONS 5300 D$(0)="[213][206][203][206][207][215][206]" 5310 D$(1)="[211][197][193][210][201][206][199]" 5320 D$(2)="[212][207][210][210][201][196]" 5330 D$(3)="[200][207][212]" 5340 D$(4)="[211][212][197][193][205][217]" 5350 D$(5)="[215][193][210][205] 5360 D$(6)[178]"LEN(null)(null)(null)" 5370 D$(7)[178]"ASC(null)(null)(null)(null)(null)" 5380 D$(8)[178]"LEN(null)(null)STR$" 5390 D$(9)[178]"ASC(null)RIGHT$CHR$RIGHT$STR$" 5400 D$(10)[178]"ATN(null)LEN(null)RIGHT$LEN" 5410 D$(11)[178]"" 5420 CC(0)[178]1 5430 CC(1)[178]9 5440 CC(2)[178]2 5450 CC(3)[178]8 5460 CC(4)[178]10 5470 CC(5)[178]7 5480 CC(6)[178]13 5490 CC(7)[178]5 5500 CC(8)[178]3 5510 CC(9)[178]14 5520 CC(10)[178]6 5530 [143] DISPLAY THERMOMETER 5540 A1[178]1504 5550 [151] A1,112 5560 [129] I[178]1 [164] 11 5570 A1[178]A1[170]1 5580 [151] A1,64 5590 [130] 5600 [151] A1[170]1,110 5610 A1[178]1506:A2[178]55778 5620 [129] J[178]1 [164] 11 5630 A1[178]A1[170]40:A2[178]A2[170]40 5640 [151] A1[171]2,93:[151] A2[171]2,1 5650 [151] A1[170]10,93:[151] A2[170]10,1 5660 [151] A1,160 5670 [139] J[178]1 [167] [151] A2,9 :[143] BROWN 5680 [139] J[178]2 [167] [151] A2,2 :[143] RED 5690 [139] J[178]3 [167] [151] A2,8 :[143] ORANGE 5700 [139] J[178]4 [167] [151] A2,10:[143] LT RED 5710 [139] J[178]5 [167] [151] A2,7 :[143] YELLOW 5720 [139] J[178]6 [167] [151] A2,1 :[143] WHITE 5730 [139] J[178]7 [167] [151] A2,13:[143] LT GRN 5740 [139] J[178]8 [167] [151] A2,5 :[143] GREEN 5750 [139] J[178]9 [167] [151] A2,3 :[143] CYAN 5760 [139] J[178]10 [167] [151] A2,14:[143] LT BLUE 5770 [139] J[178]11 [167] [151] A2,6 :[143] BLUE 5780 [130] 5790 A1[178]1984 5800 [151] A1,109 5810 [129] I[178]1 [164] 11 5820 A1[178]A1[170]1 5830 [151] A1,64 5840 [130] 5850 [151] A1[170]1,125 5860 [153]"" 5870 [129] K[178]1[164]11 5880 [139] K[179]6 [167] [153] ""D$(K) 5890 [139] K[178]6 [167] [153] ""D$(0) 5900 [139] K[177]6 [167] [153] ""D$(K[171]1) 5910 [130] 5920 [143] DISPLAY TITLE 5930 A1[178]1558 5940 [151] A1,112 5950 [129] I[178]1[164]7 5960 A1[178]A1[170]1 5970 [151] A1,64 5980 [130] I 5990 [151] A1[170]1,110 6000 A1[178]1598 6010 [151] A1,93:A1[178]A1[170]1 6020 [151] A1,83:A1[178]A1[170]1 6030 [151] A1,87:A1[178]A1[170]1 6040 [151] A1,65:A1[178]A1[170]1 6050 [151] A1,71:A1[178]A1[170]1 6060 [151] A1,71:A1[178]A1[170]1 6070 [151] A1,69:A1[178]A1[170]1 6080 [151] A1,82:A1[178]A1[170]1 6090 [151] A1,93 6100 A1[178]1638 6110 [151] A1,109 6120 [129] I[178]1[164]7 6130 A1[178]A1[170]1 6140 [151] A1,64 6150 [130] 6160 [151] A1[170]1,125 6170 [143] DISPLAY COUNT/RATING 6180 A1[178]1568 6190 [151] A1,112:A1[178]A1[170]1 6200 [151] A1,64 :A1[178]A1[170]1 6210 [151] A1,64 :A1[178]A1[170]1 6220 [151] A1,64 :A1[178]A1[170]1 6230 [151] A1,64 :A1[178]A1[170]1 6240 [151] A1,82 :A1[178]A1[170]1 6250 [151] A1,1 :A1[178]A1[170]1 6260 [151] A1,20 :A1[178]A1[170]1 6270 [151] A1,9 :A1[178]A1[170]1 6280 [151] A1,14 :A1[178]A1[170]1 6290 [151] A1,7 :A1[178]A1[170]1 6300 [151] A1,64 :A1[178]A1[170]1 6310 [151] A1,64 :A1[178]A1[170]1 6320 [151] A1,64 :A1[178]A1[170]1 6330 [151] A1,64 :A1[178]A1[170]1 6340 [151] A1,110 6350 A1[178]1608 6360 [151] A1,93 6370 A1[178]A1[170]15 6380 [151] A1,93 6390 A1[178]1648 6400 [151] A1,109 6410 [129] I[178]1[164]14 6420 A1[178]A1[170]1 6430 [151] A1,64 6440 [130] 6450 [151] A1[170]1,125 6460 [143] DISPLAY MESSAGE BOX 6470 A1[178]1718 6480 [151] A1,112:A1[178]A1[170]1 6490 [151] A1,64:A1[178]A1[170]1 6500 [151] A1,64:A1[178]A1[170]1 6510 [151] A1,64:A1[178]A1[170]1 6520 [151] A1,77:A1[178]A1[170]1 6530 [151] A1,5 :A1[178]A1[170]1 6540 [151] A1,19:A1[178]A1[170]1 6550 [151] A1,19:A1[178]A1[170]1 6560 [151] A1,1 :A1[178]A1[170]1 6570 [151] A1,7 :A1[178]A1[170]1 6580 [151] A1,5 :A1[178]A1[170]1 6590 [151] A1,64:A1[178]A1[170]1 6600 [151] A1,76:A1[178]A1[170]1 6610 [151] A1,9 :A1[178]A1[170]1 6620 [151] A1,14:A1[178]A1[170]1 6630 [151] A1,5 :A1[178]A1[170]1 6640 [151] A1,64:A1[178]A1[170]1 6650 [151] A1,64:A1[178]A1[170]1 6660 [151] A1,64:A1[178]A1[170]1 6670 [151] A1,64:A1[178]A1[170]1 6680 [151] A1,64:A1[178]A1[170]1 6690 [151] A1,64:A1[178]A1[170]1 6700 [151] A1,64:A1[178]A1[170]1 6710 [151] A1,64:A1[178]A1[170]1 6720 [151] A1,64:A1[178]A1[170]1 6730 [151] A1,110 6740 A1[178]1758:[151] A1,93 6750 A1[178]1783:[151] A1,93 6760 A1[178]1798:[151] A1,93 6770 A1[178]1823:[151] A1,93 6780 A1[178]1838 6790 [151] A1,109 6800 [129] I[178]1[164]24 6810 A1[178]A1[170]1 6820 [151] A1,64 6830 [130] 6840 [151] A1[170]1,125 6850 [143] DISPLAY PROMPT AREA 6860 A1[178]1918 6870 [151] A1,112:A1[178]A1[170]1 6880 [151] A1,64:A1[178]A1[170]1 6890 [151] A1,64:A1[178]A1[170]1 6900 [151] A1,64:A1[178]A1[170]1 6910 [151] A1,73:A1[178]A1[170]1 6920 [151] A1,14:A1[178]A1[170]1 6930 [151] A1,16:A1[178]A1[170]1 6940 [151] A1,21:A1[178]A1[170]1 6950 [151] A1,20:A1[178]A1[170]1 6960 [151] A1,64:A1[178]A1[170]1 6970 [151] A1,80:A1[178]A1[170]1 6980 [151] A1,18:A1[178]A1[170]1 6990 [151] A1,15:A1[178]A1[170]1 7000 [151] A1,13:A1[178]A1[170]1 7010 [151] A1,16:A1[178]A1[170]1 7020 [151] A1,20:A1[178]A1[170]1 7030 [151] A1,64:A1[178]A1[170]1 7040 [151] A1,64:A1[178]A1[170]1 7050 [151] A1,64:A1[178]A1[170]1 7060 [151] A1,64:A1[178]A1[170]1 7070 [151] A1,64:A1[178]A1[170]1 7080 [151] A1,64:A1[178]A1[170]1 7090 [151] A1,64:A1[178]A1[170]1 7100 [151] A1,64:A1[178]A1[170]1 7110 [151] A1,64:A1[178]A1[170]1 7120 [151] A1,110 7130 A1[178]1958:[151] A1,93 7140 A1[178]1983:[151] A1,93 7150 A1[178]1998 7160 [151] A1,109 7170 [129] I[178]1[164]24 7180 A1[178]A1[170]1 7190 [151] A1,64 7200 [130] 7210 [151] A1[170]1,125 7220 [143] INITIALIZE RATING STRINGS 7230 G$(1)[178]"(null)OTTO (null)INNER" 7240 G$(2)[178]"RIGHT$DIOT (null)AVANT" 7250 G$(3)[178]"(null)UCKY (null)TIFF" 7260 G$(4)[178]"(null)IZARD" 7270 G$(5)[178]"(null)WAGSMAN" 7280 G$(6)[178]"LEFT$ACKER" 7290 G$(7)[178]"CHR$URU" 7300 G$(8)[178]"(null)ERD" 7310 G$(9)[178]"(null)ROGRAMMER" 7320 G$(10)[178]"VALNGINEER" 7330 G$(11)[178]"(null)REKKIE" 7340 G$(12)[178]"LENHEERLEADER" 7350 G$(13)[178]"(null)UPPIE" 7360 G$(14)[178]"2-(null)EAR-(null)LD" 7370 G$(15)[178]"ATNCTOR" 7380 G$(16)[178]"(null)OTHERINLAW" 7390 G$(17)[178]"PEEKANKER" 7400 G$(18)[178]"(null)AWYER" 7410 G$(19)[178]"(null)OLITICIAN" 7420 G$(20)[178]"ATNYATOLLUH" 7430 [143] "123456789012345678901234" 7440 GS$( 0)[178]"LEFT$INT: (null)RY ANOTHER KEY!" 7450 GS$( 1)[178]"CHR$O BUY A TICKET, (null)(null)RIGHT$LEN(null)!" 7460 GS$( 2)[178]"(null)OW WHAT DAY WAS RIGHT$ BORN?" 7470 GS$( 3)[178]"PEEKETTER LUCKY THAN GOOD." 7480 GS$( 4)[178]"(null)O FAIR USING MAGIC!" 7490 GS$( 5)[178]"(null)WAGGER RIGHTS GRANTED!" 7500 GS$( 6)[178]"(null)OU DO (null)LEFT$RIGHT$(null) ALL NIGHT?" 7510 GS$( 7)[178]"(null)OU'VE ACHIEVED (null)IRVANA!" 7520 GS$( 8)[178]"(null)TOP IT AND GET A DATE!" 7530 GS$( 9)[178]"(null)OU DO (null)LEFT$RIGHT$(null) ALL DAY?" 7540 GS$(10)[178]"CHR$ET ME ATN(null)(null)(null)ATN(null) DISCOUNTS?" 7550 GS$(11)[178]"(null)AKE OFF THE SILLY EARS!" 7560 GS$(12)[178]"CHR$O CHANGE YOUR DIAPERS!" 7570 GS$(13)[178]"LEFT$AVE YOU VACUUMED, YET?" 7580 GS$(14)[178]"CHR$O TO POM-POM PRACTICE!" 7590 GS$(15)[178]"(null)EXT TIME TRY AD-LIBBING" 7600 GS$(16)[178]"CHR$OOD AS CAN BE EXPECTED." 7610 GS$(17)[178]"(null)EXT TIME TRY LETTERS!" 7620 GS$(18)[178]"(null)O, THERE IS NO (null)(null)VAL KEY!" 7630 GS$(19)[178]"ATN FILIBUSTER WON'T HELP!" 7640 GS$(20)[178]"ATN MIRACLE! (null)RAISE ATNLLAH!" 7650 [143] INITIALIZE PROMPTS 7660 PR$( 0)[178]"(null)ANT TO PLAY AGAIN?((null)/(null))" 7670 PR$( 1)[178]"(null)AKE A (null)(null)ATNCHR$ AT A KEY" 7680 PR$( 2)[178]"(null)AKE ANOTHER (null)(null)ATNCHR$ AT IT" 7690 PR$( 3)[178]"CHR$IVE ME YOUR BEST (null)(null)ATNCHR$" 7700 PR$( 4)[178]"(null)(null)ATNCHR$ YOUR TAIL, BABY!" 7710 PR$( 5)[178]"(null)(null)ATNCHR$ UNTIL IT HURTS!" 7720 PR$( 6)[178]"(null)OU CALL THAT A (null)(null)ATNCHR$?" 7730 PR$( 7)[178]"(null)EED A HINT? ((null)/(null))" 7740 PR$( 8)[178]"(null)ANT SOME ADVICE? ((null)/(null))" 7750 [143] INITIALIZE MESSAGES 7760 MS$( 1)[178]"(null)OU (null)ATN(null)(null) TO BE HOTTER-ISTHIS TOO TOUGH FOR YOU?" 7770 MS$( 2)[178]"LENOLDER MEANS YOU ARE GETTING FARTHER AWAY." 7780 MS$( 3)[178]"(null)EVERSE PSYCHOLOGY WON'TWORK ON A COMPUTER." 7790 MS$( 4)[178]"(null)RY LOGIC FOR A CHANGE. (null)OU MAY BE SURPRISED!" 7800 MS$( 5)[178]"CHR$OOD GUESS! (null)OW DON'T LOSE YOUR MOMENTUM!" 7810 MS$( 6)[178]"(null)OW YOU ARE MOVING IN THE RIGHT DIRECTION!" 7820 MS$( 7)[178]"(null)EEP IT UP! (null)OU ARE ON A ROLL NOW!" 7830 MS$( 8)[178]"(null)OU GOT THE HANG OF IT -THE HOTTER THE BETTER!" 7840 MS$( 9)[178]"CHR$ET A HAIRCUT, BUY A SUIT, & FIND A REAL JOB." 7850 MS$(10)[178]"(null)EVER DRINK MILK AFTER LEMONADE..." 7860 MS$(11)[178]"(null)RY (null)HIFT, LENONTROL, OR LENOMMODORE WITH YOUR KEY" 7870 MS$(12)[178]"RIGHT$ SEE YOU DECIDED TO KEEP GUESSING..." 7880 MS$(13)[178]"(null)HAT MADE YOU THINK LOGIC WOULD HELP ANY?" 7890 MS$(14)[178]"(null)HE GAME IS INTENDED FORPERSONS OLDER THAN TWO" 7900 MS$(15)[178]"RIGHT$F YOU LIKE IT SO COLD, MOVE TO PEEKUFFALO!" 7910 MS$(16)[178]"CHR$ET ANY CLOSER AND YOU WILL BURN YOUR TUSH!" 7920 MS$(17)[178]"(null)ARNING!, (null)OU ARE DOWN TO YOUR LAST FOUR (null)(null)ATNCHR$S!" 7930 MS$(18)[178]"(null)LEASE ANSWER WITH A (null) FOR (null)ES OR (null) FOR (null)O." 7940 MS$(19)[178]"(null)OU SAVED YOURSELF FROM OBLIVION! (null)AKE IT COUNT." 7950 MS$(20)[178]"(null)UCLEAR (null)INTER. (null)OU LOSEIF NEXT GUESS IS COLDER" 7960 [143] SET UP SOUNDS 7970 S[178]54272:[143] CLEAR SOUND CHIP 7980 [129] I[178]1[164]24 7990 [151] S[170]I,0 8000 [130] 8010 [151] S[170]5,9 8020 [151] S[170]6,0 8030 [151] S,0 8040 [151] S[170]24,15:[143] VOLUME=MAX 8050 HF(1)[178]3 8060 HF(2)[178]5 8070 HF(3)[178]7 8080 HF(4)[178]10 8090 HF(5)[178]13 8100 HF(6)[178]16 8110 HF(7)[178]20 8120 HF(8)[178]24 8130 HF(9)[178]28 8140 HF(10)[178]33 8150 HF(11)[178]38 8160 [143] ==================== 8170 [143] MAIN LOOP 8180 [143] ==================== 8190 KK%[178][181]([187](0)[172]62)[170]1 8200 X0[178]X(KK%):Y0[178]Y(KK%) 8210 KZ%[178][181]([187](0)[172]4)[170]1:Z0[178]KZ% 8220 [139] X0[179]0 [167] 8190:[143] NONEXISTENT 8230 [139] KZ%[179][177]4 [167] 8280 8240 [139] KK%[179]8 [167] 8190 8250 [139] KK%[178]40 [176] KK%[178]43 [176] KK%[178]44 [167] 8190 8260 [139] KK%[178]46 [176] KK%[178]47 [176] KK%[178]49 [167] 8190 8270 [139] KK%[178]51 [176] KK%[178]55 [176] KK%[178]60 [167] 8190 8280 PR[178]1:[141] 10040:[143] OUTPUT PROMPT 8290 [151] 783,[194](783)[176]1 8300 DD[178]11:GN[178]0:DO[178]20:S0[178]0:MS$(0)[178]"" 8310 [161] A$:[139] A$[178]"" [167] 8310 8320 [143] DETECTED KEYSTROKE, GET KEY CODE 8330 NK%[178][194](197):[139] NK%[177][178]63 [167] 8310 8340 LN%[178]LD%:CM%[178]3:[141] 11170 8350 [153] " "D$(DD); 8360 [141] 10130:[143] UPDATE GUESS COUNT 8370 [143] GET SHIFT/CTRL/LOGO 8380 JZ%[178][194](653) 8390 [139] JZ%[179][178]0 [176] JZ%[177][178]5 [167] JZ%[178]3 8400 Z[178]JZ% 8410 D[178][186](((X0[171]X(NK%))[173]2)[174]2[170]((Y0[171]Y(NK%))[173]3)[174]2[170](Z0[171]Z)[174]2) 8420 DL[178]40[172](Y(NK%)[171]1)[170](X(NK%)[171]1) 8430 [139] JZ%[178]1 [167] DL[178]DL[171]40 8440 [139] JZ%[178]2 [167] DL[178]DL[171]39 8450 [139] JZ%[178]4 [167] DL[178]DL[170]1 8460 A1[178]CH[170]DL 8470 A2[178]CL[170]DL 8480 [139] D[179].1 [167] 9390 8490 DD[178][181](D[172]1.5):[139] DD[177]10 [167] DD[178]10 8500 LD%[178][181](12[170]DD):[139] LD%[177]17 [167] LD%[178]LD%[170]1 8510 [139] [187](0)[179].1 [167] DD[178]0:LD%[178]18 8520 C[178]CC(DD) 8530 [151] A2,C 8540 LN%[178]LD%:CM%[178]3 8550 [141] 11170: [143] SET CURSOR POSN 8560 [153] "<"[199](18)D$(DD)[199](146); 8570 [143] SOUND TONE 8580 [151] S[170]1,HF(24[171]LD%) 8590 [151] S[170]4,33 8600 [129] I[178]1[164]125:[130] 8610 [151] S[170]4,32 8620 [139] GN[177][178]20 [167] 9490:[143] END GAME 8630 [139] DD[179][177]0 [167] 8670 8640 MS[178]20:[141] 9900 8650 S0[178][171]1:GN[178]GN[171]1 8660 [137] 8310 8670 [143] START CHECKING CONDITIONS 8680 [139] S0[177][178]0 [167] 8740 8690 [143] NUCLEAR WINTER 8700 [139] DD[177][178]DO [167] 9360 8710 MS[178]19:[141] 9900 8720 S0[178]0 8730 [137] 9130 8740 [139] S0[179][177]1 [167] 8800 8750 [143] TRY LOGIC 8760 [139] DD[179]DO [167] MS[178]12:[143] HOTTER 8770 [139] DD[177][178]DO [167] MS[178]13:[143] COLDER 8780 [141] 9900 8790 S0[178]0:[137] 9130 8800 [139] GN[179][177]16 [167] 8840 8810 [143] FOUR CHANCES LEFT 8820 MS[178]17:[141] 9900 8830 [137] 9130 8840 [139] DD[179][178]8 [167] 8890 8850 [139] [187](0)[177]0.3 [167] 8890 8860 [143] BUFFALO 8870 MS[178]15:[141] 9900 8880 [137] 9130 8890 [139] DD[177][178]3 [167] 8940 8900 [139] [187](0)[177]0.2 [167] 8940 8910 [143] TUSH 8920 MS[178]16:[141] 9900 8930 [137] 9130 8940 [139] GN[179][178]12 [167] 8990 8950 [139] [187](0)[177].2 [167] 8990 8960 [143] TWO YEAR OLD 8970 MS[178]14:[141] 9900 8980 [137] 9130 8990 [143] 9000 [143] NORMAL CASE 9010 [139] DD[179]DO [167] 9080 9020 [143] COLDER 9030 MS[178][181]([187](0)[172]5)[170]1 9040 [139] MS[177]4 [167] MS[178]0 9050 [141] 9900 9060 S0[178]0:[139] MS[178]4 [167] S0[178]1 9070 [137] 9130 9080 [143] HOTTER 9090 MS[178][181]([187](0)[172]5)[170]5 9100 [139] MS[177]8 [167] MS[178]0 9110 [141] 9900 9120 S0[178]0 9130 [143] SPECIAL PROMPTS 9140 [139] GN[179][178]10 [167] 9290 9150 RN[178][187](0) 9160 [139] RN[177]0.1 [167] 9200 9170 [143] HINT? 9180 PR[178]7:[141] 10040 9190 [137] 9230 9200 [139] RN[179]0.9 [167] 9290 9210 [143] ADVICE? 9220 PR[178]8:[141] 10040 9230 [143] GET ANSWER 9240 [141] 10240 9250 [139] AN[178]0 [167] 9300 9260 MS[178][181]([187](0)[172]3)[170]9 9270 [141] 9900 9280 [137] 9300 9290 [143] 9300 [143] END OF LOOP 9310 DO[178]DD 9320 [143] NEXT PROMPT 9330 PR[178][181]([187](0)[172]6)[170]1 9340 [141] 10040 9350 [137] 8310 9360 [143] NUKED 9370 MS$(0)[178]"(null)(null)LEN(null)VALATN(null) LEFT$(null)(null)(null)LENATN(null)(null)(null)!!! STR$EATH BY FIRE OR ICE." 9380 [137] 9510 9390 [143] FOUND KEY 9400 MS$(0)[178]"(null)(null)(null) CHR$(null)VAL(null)(null)VALSTR$ (null)LEFT$VAL (null)VAL(null)! -- "[170]GS$(GN) 9410 [151] A2,4:[143] PURPLE 9420 [151] S[170]1,60 9430 [129] I[178]1 [164] 5 9440 [151] S[170]4,33 9450 [129] J[178]1 [164] 50:[130] 9460 [151] S[170]4,32 9470 [130] 9480 [137] 9580 9490 [143] KEY NOT FOUND 9500 MS$(0)[178]"(null)(null)(null) (null)ATN(null) (null)(null)(null) (null)ASC (null)RIGHT$(null)VAL! -- "[170]GS$(0) 9510 [143] LIGHT UP KEY 9520 DL[178]40[172](Y(KK%)[171]1)[170](X(KK%)[171]1) 9530 [139] KZ%[178]1 [167] DL[178]DL[171]40 9540 [139] KZ%[178]2 [167] DL[178]DL[171]39 9550 [139] KZ%[178]4 [167] DL[178]DL[170]1 9560 A2[178]CL[170]DL 9570 [151] A2,4 9580 [143] DISPLAY ENDING MESSAGE 9590 MS[178]0:[141] 9900 9600 PR[178]0:[141] 10040 9610 [141] 10240 9620 [139] AN[179][177]0 [167] 9710 9630 LN%[178]24:CM%[178]1:[141] 11170 9640 [153] [199](142)[199](9); 9650 [143] ==================== 9660 [143] RETURN TO UPTIME SHELL 9670 [143] ==================== 9680 [158] (8[172]4096)[170]4 9690 [128] 9700 [143] ==================== 9710 [143] CLEAR AND RESTART 9720 [143] ==================== 9730 LN%[178]LD%:CM%[178]3:[141] 11170 9740 [153] " "D$(DD); 9750 LN%[178]14:CM%[178]25 9760 [141] 11170: [143] POSITION CURSOR 9770 [153] " "; 9780 LN%[178]18:CM%[178]15 9790 [141] 11170: [143] POSITION CURSOR 9800 [153] BL$ 9810 LN%[178]LN%[170]1 9820 [141] 11170 9830 [153] BL$ 9840 LN%[178]23:CM%[178]15 9850 [141] 11170: [143] POSITION CURSOR 9860 [153] BL$ 9870 [141] 10330:[143] CLEAR KEYBOARD 9880 [137] 8170 9890 [143] ==================== 9900 [143] OUTPUT MESSAGE TO SCREEN 9910 [143] ==================== 9920 LN%[178]18:CM%[178]15 9930 [141] 11170: [143] POSITION CURSOR 9940 [153] BL$ 9950 [141] 11170 9960 [153] [202](MS$(MS),1,24); 9970 LN%[178]LN%[170]1 9980 [141] 11170 9990 [153] BL$ 10000 [141] 11170 10010 [153] [202](MS$(MS),25); 10020 [142] 10030 [143] ==================== 10040 [143] OUTPUT PROMPT TO SCREEN 10050 [143] ==================== 10060 LN%[178]23:CM%[178]15 10070 [141] 11170: [143] POSITION CURSOR 10080 [153] BL$ 10090 [141] 11170 10100 [153] PR$(PR); 10110 [142] 10120 [143] ==================== 10130 [143] INCREMENT COUNT AND DISPLAY 10140 [143] ==================== 10150 GN[178]GN[170]1:[139] GN[177]GM [167] GN[178]GM 10160 GN$[178][202]([196](GN),2) 10170 LN%[178]14:CM%[178]25 10180 [141] 11170: [143] POSITION CURSOR 10190 [153] " "; 10200 [141] 11170 10210 [153] GN$;" "G$(GN); 10220 [142] 10230 [143] ==================== 10240 [143] TEST FOR Y/N ANSWER AFTER PROMPT 10250 [143] ==================== 10260 A$[178]"A" 10270 [161] A$:[139] A$[178]"" [167] 10270 10280 [139] A$[178]"(null)" [176] A$[178]"Y" [167] AN[178]1:[142] 10290 [139] A$[178]"(null)" [176] A$[178]"N" [167] AN[178]0:[142] 10300 MS[178]18:[141] 9900 10310 [137] 10270 10320 [143] ==================== 10330 [143] CLEAR KEYBOARD 10340 [143] ==================== 10350 LN[178]2:CM[178]3 10360 [143] TOP ROW OF KEYS 10370 C1[178]12:C2[178]11 10380 DL[178]40[172](LN[171]1)[170](CM[171]1) 10390 [129] I[178]1[164]16 10400 A2[178]CL[170]DL 10410 [151] A2,C1 10420 DL[178]DL[170]1 10430 A2[178]CL[170]DL 10440 [151] A2,C2 10450 DL[178]DL[170]1 10460 [130] 10470 A2[178]A2[170]3 10480 [151] A2,C1 10490 A2[178]A2[170]1 10500 [151] A2,C2 10510 [139] LN[177]2 [167] 10530 10520 LN[178]LN[170]1:C2[178]C1:C1[178]15:[137] 10380 10530 [143] SECOND ROW OF KEYS 10540 LN[178]5:CM[178]6 10550 C1[178]12:C2[178]11 10560 DL[178]40[172](LN[171]1)[170](CM[171]1) 10570 [129] I[178]1[164]13 10580 A2[178]CL[170]DL 10590 [151] A2,C1 10600 DL[178]DL[170]1 10610 A2[178]CL[170]DL 10620 [151] A2,C2 10630 DL[178]DL[170]1 10640 [130] 10650 A2[178]A2[170]6 10660 [151] A2,C1 10670 A2[178]A2[170]1 10680 [151] A2,C2 10690 [139] LN[177]5 [167] 10710 10700 LN[178]LN[170]1:C2[178]C1:C1[178]15:[137] 10560 10710 [143] THIRD ROW OF KEYS 10720 LN[178]8:CM[178]7 10730 C1[178]12:C2[178]11 10740 DL[178]40[172](LN[171]1)[170](CM[171]1) 10750 [129] I[178]1[164]13 10760 A2[178]CL[170]DL 10770 [151] A2,C1 10780 DL[178]DL[170]1 10790 A2[178]CL[170]DL 10800 [151] A2,C2 10810 DL[178]DL[170]1 10820 [130] 10830 A2[178]A2[170]5 10840 [151] A2,C1 10850 A2[178]A2[170]1 10860 [151] A2,C2 10870 [139] LN[177]8 [167] 10890 10880 LN[178]LN[170]1:C2[178]C1:C1[178]15:[137] 10740 10890 [143] FOURTH ROW OF KEYS 10900 LN[178]11:CM[178]7 10910 C1[178]12:C2[178]11 10920 DL[178]40[172](LN[171]1)[170](CM[171]1) 10930 [129] I[178]1[164]11 10940 A2[178]CL[170]DL 10950 [151] A2,C1 10960 DL[178]DL[170]1 10970 A2[178]CL[170]DL 10980 [151] A2,C2 10990 DL[178]DL[170]1 11000 [130] 11010 A2[178]A2[170]3 11020 [151] A2,C1 11030 A2[178]A2[170]1 11040 [151] A2,C2 11050 A2[178]A2[170]1 11060 [151] A2,C1 11070 A2[178]A2[170]1 11080 [151] A2,C2 11090 A2[178]A2[170]3 11100 [151] A2,C1 11110 A2[178]A2[170]1 11120 [151] A2,C2 11130 [139] LN[177]11 [167] 11150 11140 LN[178]LN[170]1:C2[178]C1:C1[178]15:[137] 10920 11150 [142] 11160 [143] ==================== 11170 [143] POSITION CURSOR 11180 [143] ==================== 11190 [151] 783,0:[143] SET CURSOR POSITION 11200 [151] 781,LN%:[143] LINE NUMBER 11210 [151] 782,CM%:[143] COLUMN NUMBER 11220 [158] 65520:[143] CHANGE CURSOR POSN 11230 [142]