10 REM ****************************
   20 REM Amstrad Notepad  Puzzle Pack
   30 REM   4 Puzzle programs in one
   40 REM ****************************
   50 REM NC200 Version 1 : 10/25/94
   60 REM NC100 Version 1 : 02/02/02
   70 REM Port to NC100 by Ashwin Wavde -- Ashwin.Wavde@bigpond.com
   80 REM http://www.geocities.com/washin99
   90 REM Downloaded from Tim's NC Users' Site
  100 REM http://www.ncus.org.uk
  110 REM 1) HANGMAN    : NC200 Version 1 28/12/93 by Timothy Surtell adapted. 
  120 REM 2) 4 IN A ROW : NC200 Version 1 3/1/94 by Timothy Surtell adapted.
  130 REM 3) ASTEROIDS  : NC200 Version 2 by Timothy Surtell adapted.
  140 REM 4) WORM       : NC200 Experimental program by Timothy Surtell adapted.
  150 REM Menu and program adaptions by Timothy Surtell.
  160 S=1
  170 CLS
  180 ON ERROR PROCQUIT:RUN
  190 PROCBOX(2,1,37,7)PROCBOX(40,1,78,7)
  200 MOVE18,38:PLOT21,37,38:PLOT21,37,57:PLOT21,18,57:PLOT21,18,38
  210 MOVE18,6:PLOT21,37,6:PLOT21,37,25:PLOT21,18,25:PLOT21,18,6
  220 MOVE246,6:PLOT21,265,6:PLOT21,265,25:PLOT21,246,25:PLOT21,246,6
  230 MOVE246,38:PLOT21,265,38:PLOT21,265,57:PLOT21,246,57:PLOT21,246,38
  240 MOVE20,41:DRAW34,41:MOVE27,41:DRAW27,55:DRAW32,55:DRAW32,53:MOVE31,52:DRAW33,52:DRAW33,50:DRAW31,50:DRAW31,52:MOVE32,49:DRAW32,45:DRAW30,43:MOVE32,45:DRAW34,43:MOVE32,49:DRAW30,47:MOVE32,49:DRAW34,47
  250 MOVE249,40:DRAW249,55:MOVE255,40:DRAW255,55:MOVE261,40:DRAW261,55:MOVE248,42:DRAW263,42:MOVE248,48:DRAW263,48:MOVE248,54:DRAW263,54:MOVE251,44:PLOT101,253,46:MOVE257,50:PLOT101,259,52:PLOT71,258,51
  260 PRINTTAB(4,5)"**"TAB(4,6)"**":MOVE21,17:DRAW24,17:DRAW22,19:MOVE24,17:DRAW22,15
  270 PRINTTAB(43,5);:VDU27,30:PRINTTAB(42,6);:VDU27,8,27,8
  280 PRINTTAB(18,1)CHR$17"Hangman"CHR$18TAB(8,2)"Word game for one player."TAB(52,1)CHR$17"Four In A Row"CHR$18TAB(46,2)"Strategy game for two players."
  290 PRINTTAB(17,5)CHR$17"Asteroids"CHR$18TAB(8,6)"Maths game for one player."TAB(56,5)CHR$17"Worm"CHR$18TAB(46,6)"Speed game for one player."
  300 X=18:Y=37
  310 MOVEX+1,Y+1:PLOT102,X+18,Y+20
  320 G=GET
  330 MOVEX+1,Y+1:PLOT102,X+18,Y+20
  340 IF G=240 AND Y=5 Y=37:GOTO310
  350 IF G=241 AND Y=37 Y=5:GOTO310
  360 IF G=242 AND X=246 X=18:GOTO310
  370 IF G=243 AND X=18 X=246:GOTO310
  380 IF G=83 AND S=0 THEN S=1:G=0
  390 IF G=83 AND S=1 THEN S=0:G=0
  400 IF G=13 AND X=18 AND Y=37 PROCHANGMAN:GOTO170
  410 IF G=13 AND X=246 AND Y=37 PROC4INAROW:GOTO170
  420 IF G=13 AND X=18 AND Y=5 PROCASTER:GOTO170
  430 IF G=13 AND X=246 AND Y=5 PROCWORM:GOTO170
  440 GOTO310
  450 DEF PROCBOX(xx1,yy1,xx2,yy2):xx1=xx1*6-2:xx2=xx2*6+1:yy1=yy1*8-4:yy2=yy2*8+3:MOVExx1,yy1:PLOT6,xx2,yy1:PLOT6,xx2,yy2:PLOT6,xx1,yy2:PLOT6,xx1,yy1:MOVExx1-1,yy2+1:PLOT6,xx1-1,yy1-1:PLOT6,xx2+1,yy1-1:PLOT6,xx2+1,yy2+1:PLOT6,xx1-1,yy2+1:ENDPROC
  460 DEF PROCDELBUFF:FORI=1 TO 32:G=INKEY(1):NEXT:ENDPROC
  470 DEF PROCHANGMAN
  480 ONERRORRUN
  490 CLS:PROCBOX(2,1,23,7):PROCBOX(25,1,78,7)
  500 PRINTTAB(29,1)"----H o w   t o   p l a y   H a n g m a n----"TAB(27,2)"The object of this classic word game is to find"TAB(27,3)"the unknown word by guessing letters before the"TAB(27,4)"man is hung."
  510 PRINTTAB(39,4)"A correct answer inserts the letter(s)"TAB(27,5)"into the word, a wrong answer helps the man hang."TAB(27,6)"The word is chosen form a dictionary of 180 words."
  520 PRINTTAB(3,1)CHR$19"Keys :"CHR$20TAB(3,3)"Press the letter"TAB(3,4)"key of your choice."TAB(3,6)"Press any key...":PROCDELBUFF:G=GET:PROCDELBUFF
  530 CLS
  540 PRINTTAB(10,1)"The unknown word:"TAB(15,5)"Letters left:"
  550 READnum
  560 FORI=1 TO RND(num)
  570   READword$
  580 NEXT
  590 used$="":hang=0:count=0:len=LEN(word$)
  600 PROCBOX(2,1,39,3):PROCBOX(2,5,39,7):PROCBOX(48,1,69,7)
  610 PRINTTAB(15,2);
  620 FORI=1 TO len:PRINT"*";:NEXT
  630 PRINTTAB(6,6);
  640 FORI=65 TO 90:PRINTCHR$I;:NEXT
  650 lett$=GET$
  660 IF ASC(lett$)>96 lett$=CHR$(ASC(lett$)-32)
  670 IF INSTR(used$,lett$) GOTO650
  680 a=ASC(lett$)
  690 IF a<65 OR a>90 GOTO650
  700 FORI=1 TO len
  710   IF MID$(word$,I,1)=lett$ PRINTTAB(I+14,2)lett$:SOUND1,0,S*250,1:count=count+1
  720 NEXT
  730 IF INSTR(word$,lett$) : ELSE hang=hang+1:SOUND1,0,S*(50-(hang*4)),1
  740 IF count=len PROCEND(TRUE):GOTO560
  750 PRINTTAB(a-64+5,6)" "
  760 PROCHANG
  770 IF hang=9 PROCEND(FALSE):GOTO560
  780 used$=used$+lett$
  790 GOTO650
  800 END
  810 DEF PROCHANG
  820 IF hang=1 MOVE330,8DRAW400,8
  830 IF hang=2 MOVE350,8DRAW350,56
  840 IF hang=3 MOVE350,56DRAW380,56
  850 IF hang=4 MOVE350,40DRAW360,56
  860 IF hang=5 MOVE380,56DRAW380,50
  870 IF hang=6 MOVE375,40DRAW385,40DRAW385,50DRAW375,50DRAW375,40
  880 IF hang=7 MOVE380,40DRAW380,25
  890 IF hang=8 MOVE380,25DRAW370,15MOVE380,25DRAW390,15
  900 IF hang=9 MOVE380,35DRAW370,25MOVE380,35DRAW390,25
  910 ENDPROC
  920 DEF PROCEND(WL)
  930 IF WL=FALSE FORI=252 TO 200 STEP -4:SOUND1,0,S*I,1:NEXT
  940 IF WL=TRUE FORI=200 TO 252 STEP 4:SOUND1,0,S*I,1:NEXT
  950 IF WL=TRUE PRINTTAB(26,2)"Well Done! You saved the man!"TAB(26,3)SPC35
  960 IF WL=FALSE PRINTTAB(26,2)"You let him die, you fool!"TAB(26,3)"The word was ";word$;"."SPC22
  970 PRINTTAB(26,4)"Press any key...":PROCDELBUFF:G=GET
  980 RUN
  990 DATA 180
 1000 DATA ACCORD,ACQUIRE,ADDITION,ADVOCATE,AISLE,ALONG,ARTICHOKE
 1010 DATA BATTER,BEAM,BICYCLE,BIND,BLOOD,BULGE,BREED
 1020 DATA CHALLENGE,CHAP,CHARM,COMPANION,CONSULT,COOLANT,CARPET
 1030 DATA DESERT,DETECT,DOCKET,DOLLY,DORMOUSE,DRAWING,DEFACE
 1040 DATA ESTUARY,ENVIOUS,EXACTLY,EYEWITNESS,EMERY,EBONY,EXTINGUISH
 1050 DATA FEMALE,FIRE,FLAME,FUNCTION,FLOUR,FRAUD,FESTOON
 1060 DATA GAMMON,GAZETTE,GIVEN,GRAPHICAL,GUSSET,GUST,GRIEVOUS
 1070 DATA HALF,HAMPER,HINGE,HUNCH,HYPNOTIC,HOUSE,HANDSTAND
 1080 DATA IMPOUND,IDEAL,ILLEGAL,INDENT,INTERBREED,ISLAND,IMMERSION
 1090 DATA JAB,JUMPER,JUNGLE,JUNK,JOCKEY,JEALOUS,JEWELLERY
 1100 DATA KEEN,KNEEL,KICK,KINETIC,KITEMARK,KOALA,KETCHUP
 1110 DATA LABEL,LEMONADE,LITTLE,LONGING,LUMP,LUXURY,LAUNDERETTE
 1120 DATA MACHINE,MAYOR,MELLOW,METHOD,MULE,MOMENT,MICROSCOPE
 1130 DATA NEWT,NOMINAL,NUMBER,NOVICE,NEGOTIATE,NEITHER,NITRATE
 1140 DATA OCTOBER,OFFERING,OINTMENT,OPERATOR,OUTRIGGER,OXTAIL,OUTBUILDING
 1150 DATA PACE,PENTHOUSE,PHANTOM,PHONE,PHOTOGRAPH,POLYSTYRENE,PERSPECTIVE
 1160 DATA QUADRANT,QUEEN,QUESTION,QUITE,QUOTE,QUILT,QUIZ
 1170 DATA RACECOURSE,REEF,RIGHT,ROOTLESS,RUNNER,RYE,RADIOGRAPHY
 1180 DATA SACRIFICE,SAVE,SEIZE,SHAVE,SMASH,SUPER,SABOTAGE
 1190 DATA THOROUGHBRED,TOASTER,TRANSPORT,TUBE,TWINE,TWOFOLD,TIMETABLE
 1200 DATA UNNERVE,UGLY,UNIT,UTTER,UPDATE,UPPER,UNDERSTAND
 1210 DATA VACATION,VALENCE,VEGETATE,VETINARY,VIOLIN,VOYAGE,VENTRILOQUIST
 1220 DATA WATER,WALTZ,WARREN,WATCHFUL,WAXWORK,WOUND,WARDROBE
 1230 DATA XRAY,XYLOPHONE,XMAS,XEROX,XENOPHOBIA
 1240 DATA YARN,YEOMAN,YIELD,YOUTH,YUPPIE,YOGHURT,YESTERDAY
 1250 DATA ZAP,ZEBRA,ZERO,ZIPPER,ZONE,ZOOLOGY,ZODIAC
 1260 DEF PROC4INAROW
 1270 ONERRORRUN
 1280 CLS:PROCBOX(2,1,23,7):PROCBOX(25,1,78,7)
 1290 PRINTTAB(28,1)"H o w  t o  p l a y  F o u r  I n  A  R o w"TAB(27,2)STRING$(45,"-")TAB(27,3)"The object of this game is to build a row of four"TAB(27,4)"squares in your colour before your opponent does."
 1300 PRINTTAB(27,5)"The playing board is 5 x 5 sqaures."TAB(27,6)"Player 1 is black and player 2 is white."TAB(4,1)CHR$19"Keys :"CHR$20TAB(4,2)"Use cursor keys to"TAB(4,3)"select square and"TAB(4,4)"press "CHR$255TAB(4,6)"Press any key..."
 1310 PROCDELBUFF:G=GET
 1320 CLS:PROCBOX(55,1,79,7):PROCBOX(2,1,31,7):PROCBOX(33,1,53,7)
 1330 PRINTTAB(59,2)"Player 1 : "CHR$17"Black"CHR$18TAB(59,5)"Player 2 : "CHR$17"White"CHR$18:MOVE332,8:PLOT102,471,32:PRINTTAB(35,1)"Use cursor keys"TAB(35,2)"to select square"TAB(35,3)"and then press"TAB(35,4)CHR$255" to select."
 1340 PRINTTAB(35,5)"Press STOP to"TAB(35,6)"exit..."
 1350 FORI=7 TO 52  STEP 9 MOVE27,I+5:DRAW72,I+5:MOVEI+20,12:DRAWI+20,57:NEXT
 1360 DIM S(5,5):INPLAY=RND(2):C=0
 1370 X=31:Y=16:REFX=1:REFY=1
 1380 PRINTTAB(13,2)"Player ";INPLAY;"'s turn."
 1390 MOVEX,5:DRAWX,12:DRAWX-2,7:MOVEX,10:DRAWX+2,7:MOVE16,Y:DRAW21,Y:DRAW18,Y-2:MOVE21,Y:DRAW18,Y+2
 1400 G=GET
 1410 MOVEX-2,5:PLOT103,X+2,11:MOVE16,Y-2:PLOT103,21,Y+2
 1420 IF G=240 AND REFY<5 REFY=REFY+1:Y=Y+9
 1430 IF G=241 AND REFY>1 REFY=REFY-1:Y=Y-9
 1440 IF G=242 AND REFX>1 REFX=REFX-1:X=X-9
 1450 IF G=243 AND REFX<5 REFX=REFX+1:X=X+9
 1460 PRINTTAB(13,6)"Co-ordinates: ";REFX;",";REFY
 1470 IF G=13 GOTO1490
 1480 GOTO1380
 1490 IF S(REFX,REFY)<>0 PRINTTAB(13,4)CHR$14"->Illegal Move<-"CHR$15:SOUND1,0,S*50,1:GOTO1380
 1500 PRINTTAB(13,4)"                ":MOVEREFX*9+20,REFY*9+5:PLOT101,REFX*9+25,REFY*9+10
 1510 IF INPLAY=2 MOVEREFX*9+21,REFY*9+6:PLOT103,REFX*9+24,REFY*9+9:S(REFX,REFY)=2 ELSE S(REFX,REFY)=1
 1520 FORT=1 TO 2
 1530   FORI=1 TO 5
 1540     IF S(I,1)=T AND S(I,2)=T AND S(I,3)=T AND S(I,4)=T PROCWIN(T)
 1550     IF S(I,2)=T AND S(I,3)=T AND S(I,4)=T AND S(I,5)=T PROCWIN(T)
 1560     IF S(1,I)=T AND S(2,I)=T AND S(3,I)=T AND S(4,I)=T PROCWIN(T)
 1570     IF S(2,I)=T AND S(3,I)=T AND S(4,I)=T AND S(5,I)=T PROCWIN(T)
 1580   NEXT
 1590   IF S(1,1)=T AND S(2,2)=T AND S(3,3)=T AND S(4,4)=T PROCWIN(T)
 1600   IF S(2,2)=T AND S(3,3)=T AND S(4,4)=T AND S(5,5)=T PROCWIN(T)
 1610   IF S(1,5)=T AND S(2,4)=T AND S(3,3)=T AND S(4,2)=T PROCWIN(T)
 1620   IF S(2,4)=T AND S(3,3)=T AND S(4,2)=T AND S(5,1)=T PROCWIN(T)
 1630   IF S(1,2)=T AND S(2,3)=T AND S(3,4)=T AND S(4,5)=T PROCWIN(T)
 1640   IF S(2,1)=T AND S(3,2)=T AND S(4,3)=T AND S(5,4)=T PROCWIN(T)
 1650   IF S(1,4)=T AND S(2,3)=T AND S(3,2)=T AND S(4,1)=T PROCWIN(T)
 1660   IF S(2,3)=T AND S(3,4)=T AND S(4,3)=T AND S(5,2)=T PROCWIN(T)
 1670 NEXT
 1680 C=C+1
 1690 IF C=25 PROCWIN(99)
 1700 SOUND1,0,S*250,1
 1710 IF INPLAY=1 INPLAY=2 ELSE INPLAY=1
 1720 GOTO1380
 1730 DEF PROCWIN(T)
 1740 FORY=1 TO 6:PRINTTAB(13,Y)SPC39:NEXT
 1750 IF T<>99 PRINTTAB(23,2)"Player ";T;" has won!":FORI=200 TO 252 STEP 4:SOUND1,0,S*I,1:NEXT
 1760 IF T=99 PRINTTAB(29,1)"A draw!"TAB(23,3)"Nobody won the game!":FORI=200 TO 252 STEP 4:SOUND1,0,S*I,1:NEXT:FORI=252 TO 200 STEP -4:SOUND1,0,S*I,1:NEXT:FORI=200 TO 252 STEP 4:SOUND1,0,S*I,1:NEXT
 1770 PRINTTAB(23,5)"Press any key...":PROCDELBUFF:G=GET:RUN
 1780 DEF PROCASTER
 1790 ONERRORVDU15:RUN
 1800 CLS:PROCBOX(2,1,53,7):PROCBOX(55,1,78,7)
 1810 PRINTTAB(4,1)"--H o w   t o   p l a y   A s t e r o i d s--"TAB(3,2)"The object of this game is to guide the space ship"TAB(3,3)"through the asteroids to the other side of the"TAB(3,4)"screen."
 1820 PRINTTAB(10,4)"You specify the number of spaces the space"TAB(3,5)"ship moves.The number is multiplied by 1 or 2."TAB(3,6)"Remember not to go out of orbit!Up to 40 asteroids"
 1830 PRINTTAB(56,1)CHR$19"Keys :"CHR$20TAB(56,2)"Press U for UP, D for"TAB(56,3)"DOWN, or R for RIGHT."TAB(56,4)"Then type in distance"TAB(56,5)"and press "CHR$255TAB(56,6)"Press any key...":PROCDELBUFF:G=GET:PROCDELBUFF
 1840 CLS:PROCBOX(1,1,79,7)
 1850 PRINTTAB(64,1)"Use U,D,R."TAB(64,2)"DEL to delete.":M=RND(2):PRINTTAB(64,3)"The multiplier"TAB(64,4)"is ";M;"."
 1860 DIMAX(40),AY(40)
 1870 VDU14:FORI=1 TO 6:PRINTTAB(1,I)SPC63:NEXT:FORI=1 TO 40:AX(I)=RND(62)+1:AY(I)=RND(6):PRINTTAB(AX(I),AY(I))"*":NEXT:VDU15
 1880 X=1:Y=3:VDU14:PRINTTAB(X,Y);:VDU27,26,15
 1890 PRINTTAB(17,0)"Go ";
 1900 G=GET
 1910 IF G>96 G=G-32
 1920 IF G=82 D$="R" PRINT;"right by ";:GOTO1960
 1930 IF G=85 D$="U" PRINT;"up by ";:GOTO1960
 1940 IF G=68 D$="D" PRINT;"down by ";:GOTO1960
 1950 GOTO1900
 1960 G=GET
 1970 IF G=127 PRINTTAB(20,0)SPC9TAB(20,0);:GOTO1900
 1980 IF G>48 AND G<58 N=(G-48)*10:PRINTCHR$G;:GOTO2000
 1990 GOTO1960
 2000 G=GET
 2010 IF G=127 PRINTCHR$127;:GOTO1960
 2020 IF G>47 AND G<58 N2=(G-48):PRINTCHR$G;:GOTO2050
 2030 IF G=13 PRINT;:NUM=N/10:GOTO2090
 2040 GOTO2000
 2050 G=GET
 2060 IF G=127 PRINTCHR$127;:GOTO2000
 2070 IF G=13 NUM=N+N2:GOTO2090
 2080 GOTO2050
 2090 IF NUM>1 PRINT" squares." ELSE PRINT" square."
 2100 PRINTTAB(X,Y)CHR$176;
 2110 FORI=1 TO NUM*M
 2120   SOUND1,0,S*250,1
 2130   VDU14:PRINTTAB(X,Y)CHR$176:VDU15
 2140   IF D$="R" X=X+1
 2150   IF D$="U" Y=Y-1
 2160   IF D$="D" Y=Y+1
 2170   FORA=1 TO 40
 2180     IF AX(A)=X AND AY(A)=Y PRINTTAB(15,4)"You have hit an asteroid...press any key...":FORI=252 TO 200 STEP -4:SOUND1,0,S*I,1:NEXT:G=GET:RUN
 2190   NEXT
 2200   IF X>63 PRINTTAB(20,4)"Well done!!!  Press any key...":FORI=200 TO 252 STEP4:SOUND1,0,S*I,1:NEXT:G=GET:RUN
 2210   IF Y<1 OR Y>6 PRINTTAB(12,4)"You have gone out of orbit...press any key...":FORI=252 TO 200 STEP -4:SOUND1,0,S*I,1:NEXT:G=GET:RUN
 2220 NEXT
 2230 VDU14
 2240 IF D$="R" PRINTTAB(X,Y);:VDU27,26
 2250 IF D$="U" PRINTTAB(X,Y);:VDU27,24
 2260 IF D$="D" PRINTTAB(X,Y);:VDU27,25
 2270 VDU15
 2280 PRINTTAB(17,0)SPC23
 2290 GOTO1890
 2300 DEF PROCWORM
 2310 ONERRORRUN
 2320 CLS:PROCBOX(1,1,51,7):PROCBOX(53,1,79,7)
 2330 PRINTTAB(8,1)"--H o w   t o   p l a y   W o r m--"TAB(3,2)"The object of this game is to eat the numbers"TAB(3,3)"in order.As the worm eats a number, he moves"TAB(3,4)"faster, making him harder to control.Do not"
 2340 PRINTTAB(3,5)"let him hit the wrong number, his tail or go"TAB(3,6)"off the screen."TAB(56,1)CHR$19"Keys :"CHR$20TAB(56,3)"Use cursor keys."TAB(56,5)"Press any key...":PROCDELBUFF:G=GET:PROCDELBUFF
 2350 CLS:PROCBOX(1,1,79,7)
 2360 PRINTTAB(3,0)"Cursor keys to move"TAB(30,0)"STOP to exit"TAB(49,0)"The boundaries are the walls"
 2370 PRINTTAB(23,3)"Press a key to begin...":G=GET:PRINTTAB(23,3)SPC23;
 2380 DIMB(78,6)
 2390 FORI=1 TO 9:RX=RND(77)-1:RY=RND(6)-1:B(RX,RY)=I:PRINTTAB(RX+1,RY+1)CHR$17;I CHR$18:NEXT
 2400 X=40:Y=4:TX=40:TY=4:D=11:SPEED=175:F=1:NUM=1:DUM=10
 2410 PROCMOVE
 2420 IF F=0 PROCTAIL ELSE F=F+1
 2430 PROCCHECKSIDE
 2440 PROCCHECKFOOD
 2450 PROCCHECKTAIL
 2460 IF F=5 F=0
 2470 GOTO2410
 2480 DEF PROCMOVE
 2490 PRINTTAB(X+1,Y+1);
 2500 IF D=11 VDU27,16
 2510 IF D=10 VDU27,17
 2520 IF D=12 VDU27,30
 2530 IF D=13 VDU27,31
 2540 G=INKEY(1):FORI=1 TO SPEED:NEXT
 2550 PRINTTAB(X+1,Y+1);:VDU27,8
 2560 IF G=240 D=12
 2570 IF G=241 D=13
 2580 IF G=242 D=10
 2590 IF G=243 D=11
 2600 B(X,Y)=D
 2610 IF D=12 Y=Y-1
 2620 IF D=13 Y=Y+1
 2630 IF D=10 X=X-1
 2640 IF D=11 X=X+1
 2650 ENDPROC
 2660 DEF PROCTAIL
 2670 IF DUM>1 DUM=DUM-1:ENDPROC
 2680 PRINTTAB(TX+1,TY+1)" "
 2690 IF B(TX,TY)=12 B(TX,TY)=0:TY=TY-1:ENDPROC
 2700 IF B(TX,TY)=13 B(TX,TY)=0:TY=TY+1:ENDPROC
 2710 IF B(TX,TY)=10 B(TX,TY)=0:TX=TX-1:ENDPROC
 2720 IF B(TX,TY)=11 B(TX,TY)=0:TX=TX+1:ENDPROC
 2730 DEF PROCCHECKSIDE
 2740 IF X<0 OR X>77 OR Y<0 OR Y>5 PROCFIN
 2750 IF NUM=10 PROCFIN
 2760 ENDPROC
 2770 DEF PROCCHECKFOOD
 2780 IF B(X,Y)=NUM AND F=0 SPEED=SPEED-30:F=1:NUM=NUM+1:SOUND1,0,S*250,1:ENDPROC
 2790 IF B(X,Y)=NUM AND F>0 SPEED=SPEED-30:F=F-F:NUM=NUM+1:SOUND1,0,S*250,1:ENDPROC
 2800 IF B(X,Y)<>NUM AND B(X,Y)<>0 PROCFIN
 2810 DEF PROCCHECKTAIL
 2820 IF B(X,Y)>9 PROCFIN
 2830 ENDPROC
 2840 DEF PROCFIN
 2850 IF NUM=10 FORI=200 TO 252 STEP 4:SOUND1,0,S*I,1:NEXT ELSE FORI=252 TO 200 STEP -4:SOUND1,0,S*I,1:NEXT
 2860 IF NUM=10 PRINTTAB(23,3)"Well done, you have won.  Press any key..." ELSE PRINTTAB(23,3)"Bad luck!!!  Press any key..."
 2870 PROCDELBUFF:G=GET:RUN
 2880 DEF PROCQUIT
 2890 CLS
 2900 PROCBOX(2,3,78,5)
 2910 PRINTTAB(18,4)"Are you sure you want to quit?  Press Y or N..."
 2920 REPEAT:G$=GET$:UNTILG$="Y" OR G$="y" OR G$="N" OR G$="n"
 2930 IF G$="Y" OR G$="y" :*QUIT
 2940 ENDPROC