Listing of file='CANYON' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 416, program filename = 'CANYON' 0010 PRINT "KEYIN TO BEGIN" 0015 W=15 0020 KEYIN C$,30,30 : GOTO 20 0030 PRINT HEX(03) 0040 A=20 : B=27 0050 GOSUB 200 : PRINT TAB(A);HEX(8B);TAB(B);"M";TAB(A+W);HEX(8B) 0055 IF D/200<>INT(D/200) THEN 60 : W=W-1 0060 IF A=59THEN 70 : IF A=1THEN 80 : GOTO 90 0070 A=58 : GOTO 90 0080 A=1 0090 D=D+1 0100 IF A>BTHEN 230 : IF A+15<BTHEN 230 0110 G=INT(2*RND(1))+1 : IF G=1THEN 130 0120 A=A-1 : IF A=1THEN 130 : GOTO 160 0130 A=A+1 0140 IF A=47THEN 150 : GOTO 160 0150 A=A-1 0160 KEYIN A$,170,170 0170 IF A$="1"THEN 190 0180 B=B+1 : GOTO 50 0190 B=B-1 : GOTO 50 0200 IF D/15=(INT(D/15))THEN 210 : GOTO 220 0210 PRINT HEX(0C);D;"MILES" 0220 RETURN 0230 PRINT "YOU WENT";D;"MILES" 0240 END