Auto 1 # Run-time Variables Var d: Num = 0 Var x: Num = 7 Var y: Num = 8 Var a: NumArray(20, 20) = 0, 0, 3, 0, 0, 3, 2, 1, 2, 0, 2, 2, 0, 0, 2, 1, 3, 3, 1, 0, 3, 0, 0, 3, 2, 0, 2, 2, 3, 0, 3, 1, 3, 1, 3, 3, 1, 0, 2, 0, 0, 0, 1, 0, 1, 2, 0, 0, 1, 2, 0, 1, 3, 1, 3, 3, 2, 3, 3, 2, 3, 0, 2, 1, 0, 3, 3, 2, 1, 3, 1, 1, 1, 0, 1, 1, 1, 0, 3, 1, 0, 1, 3, 2, 1, 1, 0, 1, 1, 3, 3, 2, 2, 3, 1, 2, 0, 1, 3, 0, 3, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 3, 3, 0, 3, 0, 3, 0, 2, 1, 2, 2, 2, 0, 1, 3, 2, 3, 1, 1, 2, 3, 1, 0, 2, 3, 1, 1, 0, 0, 3, 1, 3, 5, 5, 2, 1, 3, 2, 1, 0, 2, 1, 0, 2, 1, 1, 0, 3, 3, 3, 2, 1, 3, 2, 0, 0, 3, 1, 1, 3, 3, 2, 1, 3, 3, 2, 2, 3, 1, 2, 3, 2, 1, 2, 3, 1, 2, 0, 3, 0, 1, 1, 0, 0, 0, 3, 1, 1, 0, 3, 1, 0, 0, 3, 3, 3, 1, 0, 0, 1, 3, 3, 3, 1, 1, 0, 3, 0, 3, 0, 2, 2, 0, 2, 1, 1, 3, 3, 3, 0, 0, 0, 3, 2, 1, 1, 2, 0, 2, 3, 2, 1, 2, 0, 3, 2, 2, 1, 1, 2, 2, 1, 0, 0, 1, 2, 2, 2, 2, 2, 2, 2, 1, 1, 3, 2, 1, 2, 3, 1, 1, 3, 1, 1, 2, 3, 3, 0, 0, 3, 1, 0, 3, 2, 1, 1, 3, 0, 3, 2, 0, 0, 0, 1, 3, 3, 2, 1, 2, 2, 0, 1, 2, 1, 0, 1, 3, 2, 2, 2, 1, 1, 2, 3, 2, 1, 3, 1, 3, 2, 3, 2, 1, 3, 2, 2, 2, 2, 2, 0, 2, 2, 2, 2, 2, 3, 2, 3, 1, 3, 1, 0, 0, 1, 2, 1, 0, 2, 1, 1, 3, 1, 0, 0, 0, 1, 2, 3, 3, 0, 2, 1, 3, 0, 1, 3, 3, 3, 3, 1, 1, 3, 3, 2, 0, 0, 1, 2, 0, 1, 1, 1, 0, 1, 0, 1, 2, 1, 3, 3, 1, 1, 0, 1, 1, 0 Var b: NumFOR = 21, 20, 1, 20, 2 Var c: NumFOR = 21, 20, 1, 20, 3 Var s$: Str = "" # End Run-time Variables 1 PAPER 0: INK 7: BORDER 0: CLS 10 DIM a(20,20) 20 FOR b=1 TO 20: FOR c=1 TO 20: LET d=INT (RND*4): LET a(b,c)=d: NEXT c: NEXT b 30 LET a(8,8)=5 40 LET a(8,7)=5 100 REM inicializamos variables 110 LET x=10: LET y=10: GO TO 1000 120 REM rutina movimiento 130 LET s$=INKEY$ 140 IF s$="o" AND x>3 AND a(x-1,y)<5 THEN LET x=x-1: GO TO 1000 150 IF s$="p" AND x<17 AND a(x+1,y)<5 THEN LET x=x+1: GO TO 1000 160 IF s$="q" AND y>3 AND a(x,y-1)<5 THEN LET y=y-1: GO TO 1000 170 IF s$="a" AND y<17 AND a(x,y+1)<5 THEN LET y=y+1: GO TO 1000 180 GO TO 130 1000 REM rutina de vision 1010 PAPER 7 1020 PRINT AT 8,10;" " 1030 PRINT AT 9,10;" " 1040 PAPER 6 1050 PRINT AT 10,10;" " 1060 PRINT AT 11,10;" " 1070 PRINT AT 12,10;" " 1080 PRINT AT 13,10;" " 1090 PAPER 8 2000 GO TO (2010-(a(x-1,y-2))) 2005 PRINT AT 9,13; INK 5;"\::\::": GO TO 2010 2007 GO TO 2010 2008 PRINT AT 9,14; INK 4;".": GO TO 2010 2009 PRINT AT 8,13; INK 4;"\.:\. ";AT 9,13; INK 2;"\ :" 2010 GO TO (2020-(a(x,y-2))) 2015 PRINT AT 9,15; INK 5;"\::\::": GO TO 2020 2017 GO TO 2020 2018 PRINT AT 9,16; INK 4;".": GO TO 2020 2019 PRINT AT 8,15; INK 4;"\.:\. ";AT 9,15; INK 2;"\ :" 2020 GO TO (2030-(a(x+1,y-2))) 2025 PRINT AT 9,17; INK 5;"\::\::": GO TO 2030 2027 GO TO 2030 2028 PRINT AT 9,18; INK 4;".": GO TO 2030 2029 PRINT AT 8,17; INK 4;"\.:\. ";AT 9,17; INK 2;"\ :" 2030 GO TO (2040-(a(x-1,y-1))) 2035 PRINT AT 8,10; INK 5;"\::\::\::"; INK 1;"\:.\. ";AT 9,10; INK 5;"\::\::\::"; INK 1;"\::\::"; INK 5;AT 10,10;"\::\::\::"; INK 1;"\::\:'";AT 11,10; INK 5;"\::\::\::"; INK 1;"\:'" 2037 GO TO 2040 2038 PRINT AT 11,13; INK 4;"\. ": GO TO 2040 2039 PRINT AT 9,11; INK 4;"\.:\:.";AT 10,11;"\::\::";AT 11,11; INK 2;"\ :\: " 2040 GO TO (2050-(a(x+1,y-1))) 2045 PRINT AT 8,17; INK 1;"\ .\.:"; INK 5;"\::\::\::";AT 9,17; INK 1;"\::\::"; INK 5;"\::\::\::"; INK 1;AT 10,17;"\':\::"; INK 5;"\::\::\::";AT 11,18; INK 1;"\':"; INK 5;"\::\::" 2047 GO TO 2050 2048 PRINT AT 11,19; INK 4;"\. ": GO TO 2050 2049 PRINT AT 9,19; INK 4;"\.:\:.";AT 10,19;"\::\::";AT 11,19; INK 2;"\ :\: " 2050 GO TO (2060-(a(x,y-1))) 2055 PRINT AT 8,13; INK 5;"\::\::\::\::\::\::";AT 9,13;"\::\::\::\::\::\::";AT 10,13;"\::\::\::\::\::\::";AT 11,13;"\::\::\::\::\::\::" 2057 GO TO 2060 2058 PRINT AT 11,16; INK 4;"\. ": GO TO 2060 2059 PRINT AT 9,15; INK 4;"\.:\:.";AT 10,15;"\::\::";AT 11,15; INK 2;"\ :\: " 2060 GO TO (2070-(a(x-1,y))) 2065 PRINT AT 8,10; INK 1;"\::\::\::";AT 9,10;"\::\::\::";AT 10,10;"\::\::\::";AT 11,10;"\::\::\::";AT 12,10;"\::\::\:'";AT 13,10;"\::\:'" 2067 GO TO 2070 2068 PRINT AT 13,12; INK 4;"\.:": GO TO 2070 2069 PRINT AT 10,10; INK 4;"\.:\::\:.";AT 11,10;"\::\::\::";AT 12,10;"\':\::\:'";AT 13,11; INK 2;"\::" 2070 GO TO (2080-(a(x+1,y))) 2075 PRINT AT 8,19; INK 1;"\::\::\::";AT 9,19;"\::\::\::";AT 10,19;"\::\::\::";AT 11,19;"\::\::\::";AT 12,19;"\':\::\::";AT 13,20;"\':\::" 2077 GO TO 2080 2078 PRINT AT 13,20; INK 4;"\.:": GO TO 2080 2079 PRINT AT 10,19; INK 4;"\.:\::\:.";AT 11,19;"\::\::\::";AT 12,19;"\':\::\:'";AT 13,20; INK 2;"\::" 2080 GO TO (2090-(a(x,y))) 2087 GO TO 2090 2088 PRINT AT 13,16; INK 4;"\.:": GO TO 2090 2089 PRINT AT 10,14; INK 4;"\ .\::\::\. ";AT 11,14;"\ :\::\::\: ";AT 12,14;"\ '\::\::\' ";AT 13,15; INK 2;"\ :\: " 2090 GO TO 130