Listing of file='FOLLOW.BAS;01' on disk='vmedia/joystick-sideB-sector.ccvf'
7 I = PEEK (33209):IF I = 0 THEN 7 8 I = RND (- I) 10 PLOT 6,6,12:PRINT "FOLLOW ME":PRINT 20 INPUT "SMALL OR LARGE DOT (S OR L) ";S$ 30 INPUT "LEAVE A TRAIL (Y OR N) ? ";T$ 40 PLOT 12,29,17 80 LX = 32:LY = 16 90 IF S$ = "S" THEN LX = 63:LY = 63 95 PX = LX:PY = LY:FX = LX:FY = LY 100 JN = 254 110 GOSUB 2000 170 LX = PX:LY = PY:CC = 1 180 GOSUB 1000 190 PX = LX:PY = LY 200 REM 300 JN = 252 310 GOSUB 2000 480 LX = FX:LY = FY:CC = 2 490 GOSUB 1000 500 FX = LX:FY = LY 520 GOTO 100 1000 IF X < 0 THEN X = 0 1010 IF X > 127 THEN X = 127 1020 IF Y < 0 THEN Y = 0 1030 IF Y > 127 THEN Y = 127 1040 IF S$ = "S" GOTO 1120 1045 PLOT 6,CC 1050 TX = INT (X/ 2):TY = 31- INT (Y/ 4) 1052 SX = INT (LX/ 2):SY = 31- INT (LY/ 4) 1057 IF SX > 61 AND SY= 31 THEN SX = 62 1060 IF TX> 61 AND TY= 31 THEN TX= 62 1070 IF T$ = "Y" GOTO 1090 1080 PLOT 3,SX,SY,32 1090 PLOT 3,TX,TY,96 1100 LX = X:LY = Y 1110 RETURN 1120 IF T$ = "Y" GOTO 1140 1130 PLOT 6,0,2,LX,LY,255 1140 PLOT 6,CC,2,X,Y,255 1150 GOTO 1100 2000 OUT JN+ 1,1 2010 REM 2020 X = INP (JN+ 1) 2030 OUT JN,1 2040 REM 2050 Y = INP (JN) 2060 X = X- 70:Y = Y- 70 2070 RETURN