Auto 1 # Run-time Variables Var d: Num = 0 Var x: Num = 11 Var y: Num = 3 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, 0, 2, 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 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 THEN LET x=x-1: GO TO 1000 150 IF s$="p" AND x<17 THEN LET x=x+1: GO TO 1000 160 IF s$="q" AND y>3 THEN LET y=y-1: GO TO 1000 170 IF s$="a" AND y<17 THEN LET y=y+1: GO TO 1000 180 GO TO 130 1000 REM rutina de vision 1010 PAPER 7 1020 PRINT AT 8,11;" " 1030 PRINT AT 9,11;" " 1040 PAPER 6 1050 PRINT AT 10,11;" " 1060 PRINT AT 11,11;" " 1070 PRINT AT 12,11;" " 1080 PRINT AT 13,11;" " 1090 PAPER 8 2000 GO TO (2010-(a(x-1,y-2))) 2007 GO TO 2010 2008 PRINT AT 9,12; INK 4;".": GO TO 2010 2009 PRINT AT 8,12; INK 4;"\.:\. ";AT 9,12; INK 2;"\ :" 2010 GO TO (2020-(a(x,y-2))) 2017 GO TO 2020 2018 PRINT AT 9,15; 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))) 2027 GO TO 2030 2028 PRINT AT 9,18; INK 4;".": GO TO 2030 2029 PRINT AT 8,18; INK 4;"\.:\. ";AT 9,18; INK 2;"\ :" 2030 GO TO (2040-(a(x-1,y-1))) 2037 GO TO 2040 2038 PRINT AT 11,12; 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,y-1))) 2047 GO TO 2050 2048 PRINT AT 11,15; INK 4;"\. ": GO TO 2050 2049 PRINT AT 9,14; INK 4;"\.:\:.";AT 10,14;"\::\::";AT 11,14; INK 2;"\ :\: " 2050 GO TO (2060-(a(x+1,y-1))) 2057 GO TO 2060 2058 PRINT AT 11,18; INK 4;"\. ": GO TO 2060 2059 PRINT AT 9,17; INK 4;"\.:\:.";AT 10,17;"\::\::";AT 11,17; INK 2;"\ :\: " 2060 GO TO (2070-(a(x-1,y))) 2067 GO TO 2070 2068 PRINT AT 13,12; INK 4;"\.:": GO TO 2070 2069 PRINT AT 10,11; INK 4;"\.:\::\:.";AT 11,11;"\::\::\::";AT 12,11;"\':\::\:'";AT 13,12; INK 2;"\::" 2070 GO TO (2080-(a(x,y))) 2077 GO TO 2080 2078 PRINT AT 13,15; INK 4;"\.:": GO TO 2080 2079 PRINT AT 10,14; INK 4;"\.:\::\:.";AT 11,14;"\::\::\::";AT 12,14;"\':\::\:'";AT 13,15; INK 2;"\::" 2080 GO TO (2090-(a(x+1,y))) 2087 GO TO 2090 2088 PRINT AT 13,18; INK 4;"\.:": GO TO 2090 2089 PRINT AT 10,17; INK 4;"\.:\::\:.";AT 11,17;"\::\::\::";AT 12,17;"\':\::\:'";AT 13,18; INK 2;"\::" 2090 GO TO 130