Listing of file='TURKEY.BAS;01' on disk='vmedia/demos-sector.ccvf'
0 REM TURKEY AND THE HUNTER 10 REM VISIBLE AND BLIND CURSOR DEMO 20 PLOT 6,2,12:INPUT "VISIBLE OR BLIND CURSOR (V/B)?";A$ 30 BC= MID$ (A$,1,1)= "B":VC= MID$ (A$,1,1)= "V" 40 IF BC+ VC< > - 1THEN 20 50 REM DRAW BORDER AROUND SCREEN 60 PLOT 27,24:REM PAGE MODE 61 PLOT 15:REM A7 OFF - SMALL CHARACTERS 62 PLOT 6,0:REM SET COLOR - BLACK FG/BLACK BG 63 PLOT 12:REM ERASE PAGE 70 PLOT 6,15:REM SET COLOR - WHITE FG/RED BG 71 FOR I= 1TO 64:PLOT 32:NEXT :REM DRAW TOP LINE 72 PLOT 3,0,31:REM MOVE CURSOR TO BOTTOM LINE 73 FOR I= 1TO 64:PLOT 32:NEXT :REM DRAW BOTTOM LINE 74 PLOT 27,10:REM WRITE VERTICAL MODE 75 PLOT 8:REM MOVE CURSOR TO HOME 76 FOR I= 1TO 32:PLOT 32:NEXT :REM DRAW LEFT SIDE 77 PLOT 3,63,0:REM MOVE CURSOR TO TOP RIGHT 78 FOR I= 1TO 32:PLOT 32:NEXT :REM DRAW RIGHT SIDE 79 PLOT 27,24:REM PAGE MODE 90 PLOT 3,64,0:REM MOVE BLINKING CURSOR OFF SCREEN 100 REM SET UP GAME PARAMETERS 110 HX= 1:HY= 1:REM HUNTER ORIGINAL POSITION 120 TX= 32:TY= 16:REM TURKEY INITIAL POSITION 130 TS= 2:REM TURKEY SPEED 150 HC= 39:TC= 15 180 REM DEFINE FNR TO RETURN RANDOM INTEGER IN RANGE -X TO X 190 DEF FN R(X)= - X+ INT ((2* X+ 1)* RND (1)) 200 REM MOVE CURSOR TO TURKEY'S OLD POSITION 201 IF VCTHEN PLOT 3,TX,TY,6,0:REM VISIBLE 202 IF BCTHEN PLOT 3,127,TX,TY,0:REM BLIND 210 TX= TX+ FN R(TS):REM CHANGE TURKEY X POSITION 220 TY= TY+ FN R(TS):REM CHANGE TURKEY Y POSITION 230 IF TX< 1OR TX> 62OR TY< 1OR TY> 30THEN 1000:REM ESCAPE! 240 PLOT 32:REM CLEAR TURKEY'S LAST POSITION 250 REM MOVE CURSOR TO TURKEY'S NEW POSITION 251 IF VCTHEN PLOT 3,TX,TY,6,TC:REM VISIBLE 252 IF BCTHEN PLOT 3,127,TX,TY,TC:REM BLIND 260 PLOT ASC ("T"):REM OUTPUT TURKEY SYMBOL 300 REM MOVE CURSOR TO HUNTER'S OLD POSITION 301 IF VCTHEN PLOT 3,HX,HY,6,0:REM VISIBLE 302 IF BCTHEN PLOT 3,127,HX,HY,0:REM BLIND 310 REM RANDOM SELECT HUNTER'S MOVE IN X OR Y DIRECTION 320 IF RND (1)> (ABS (TY- HY)+ 1)/ (ABS (TY- HY)+ ABS (TX- HX)+ 2)THEN 500 400 HY= HY+ SGN (TY- HY):REM MOVE TOWARDS TURKEY IN Y DIRECTION 410 GOTO 600 500 HX= HX+ SGN (TX- HX):REM MOVE TOWARDS TURKEY IN X DIRECTION 600 PLOT 32:REM CLEAR HUNTERS LAST POSITION 700 REM MOVE CURSOR TO HUNTER'S LAST POSITION 701 IF VCTHEN PLOT 3,HX,HY,6,HC:REM VISIBLE 702 IF BCTHEN PLOT 3,127,HX,HY,HC:REM BLIND 710 PLOT ASC ("H"):REM OUTPUT HUNTER SYMBOL 720 IF HX= TXAND HY= TYTHEN 2000:REM HUNTER CATCHES TURKEY 800 GOTO 200 1000 REM TURKEY ESCAPES 1010 PLOT 27,27:REM VISIBLE CURSOR MODE 1020 PLOT 6,2:REM SET COLOUR - GREEN FG/BLACK BG 1030 PLOT 8:REM CURSOR HOME 1040 PRINT "TURKEY ESCAPES!!!" 1050 GOTO 3000 2000 REM HUNTER CATCHES TURKEY 2010 PLOT 27,27:REM VISIBLE CURSOR MODE 2020 PLOT 6,2:REM SET COLOUR - GREEN FG/BLACK BG 2030 PLOT 8:REM CURSOR HOME 2040 PRINT "GOBBLE GOBBLE......." 3000 FOR I= 1TO 1000:NEXT :REM DELAY FOR A WHILE 3010 RUN