1 REM \*2021 QI -MEMSOFTWARE - MARIANO E.M. CHIAVERANO

10 LET lo=0: LET niv=1: LET k$="qaopl": LET a=24
50 INK 6: PAPER 0: BORDER 0: CLS : GO SUB 9500: GO SUB 7500
54 PRINT AT 5,4; INK 7;"DIRIGE LA CHISPA \{f1i6}(\e)\{f0i7}";AT 6,0; INK 7;"    HACIA EL PUNTO VERDE \{i4}(\q)\{i7}": PRINT AT 9,0; PAPER 0; INK 7;"Para eso, posiciona a QI  y coloca una flecha para que la chispaimpacte y cambie su direccion": PRINT AT 14,13; INK 0; BRIGHT 1; PAPER 6;"\a";AT 14,14; PAPER 7;"\b";AT 14,15; PAPER 4;"\c";AT 14,16; PAPER 5;"\d": PRINT AT 15,13; INK 2; BRIGHT 1;"\k\m\g\i": PRINT AT 20,0; INK 7;"Presione una tecla para empezar.": FOR g=1 TO 1000: NEXT g: PAUSE 0
55 LET e$="\::"
110 BORDER 0: PAPER 0: CLS : PRINT AT 0,0; PAPER 1; BRIGHT 0; INK 5;"\o\o\o\o\o\o\o\o\o\o\o\o\o  \o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 0,15;niv;"0%": PRINT AT 1,2; BRIGHT 1; INK 5;"\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r": PRINT AT 17,2; BRIGHT 1; INK 5;"\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r": PRINT AT 18,0; PAPER 1; BRIGHT 0; INK 5;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o"
115 PRINT AT 1,1; BRIGHT 1; INK 5;"\p";AT 2,1;"\p";AT 3,1;"\p";AT 4,1;"\p";AT 5,1;"\p";AT 6,1;"\p";AT 7,1;"\p";AT 8,1;"\p";AT 9,1;"\p";AT 10,1;"\p";AT 11,1;"\p";AT 12,1;"\p";AT 13,1;"\p";AT 14,1;"\p";AT 15,1;"\p";AT 16,1;"\p";AT 17,1;"\p"
117 PRINT AT 1,0; BRIGHT 0; INK 5;"\p";AT 2,0;"\p";AT 3,0;"\p";AT 4,0;"\p";AT 5,0;"\p";AT 6,0;"\p";AT 7,0;"\p";AT 8,0;"\p";AT 9,0;"\p";AT 10,0;"\p";AT 11,0;"\p";AT 12,0;"\p";AT 13,0;"\p";AT 14,0;"\p";AT 15,0;"\p";AT 16,0;"\p";AT 17,0;"\p"
118 PRINT AT 1,30; BRIGHT 1; INK 5;"\p";AT 2,30;"\p";AT 3,30;"\p";AT 4,30;"\p";AT 5,30;"\p";AT 6,30;"\p";AT 7,30;"\p";AT 8,30;"\p";AT 9,30;"\p";AT 10,30;"\p";AT 11,30;"\p";AT 12,30;"\p";AT 13,30;"\p";AT 14,30;"\p";AT 15,30;"\p";AT 16,30;"\p";AT 17,30;"\p"
119 PRINT AT 1,31; BRIGHT 0; INK 5;"\p";AT 2,31;"\p";AT 3,31;"\p";AT 4,31;"\p";AT 5,31;"\p";AT 6,31;"\p";AT 7,31;"\p";AT 8,31;"\p";AT 9,31;"\p";AT 10,31;"\p";AT 11,31;"\p";AT 12,31;"\p";AT 13,31;"\p";AT 14,31;"\p";AT 15,31;"\p";AT 16,31;"\p";AT 17,31;"\p"
120 GO SUB 9520: PRINT AT 19,0; BRIGHT 0; INK 5;"\d";AT 20,0;"\d";AT 21,0;"\d_{                          }_\c": PRINT AT 19,31; BRIGHT 0; INK 5;"\c";AT 20,31;"\c": PRINT AT 0,13; BRIGHT 1; PAPER 1; INK 6;"\h": GO SUB 9500: PRINT #0; INK 5; PAPER 1;"\''\''\''\''\''\''\''\''\''\''\''\''\'' \iQI \''\''\''\''\''\''\''\''\''\''\''\''\''\''": PRINT AT 19,2; INK 7;"Energia____________________"
150 LET d=0: LET e$="\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''": LET en=29
200 LET m$="\e": LET z$="\f": LET pu=0: LET p$="\g\h\i\j\k\l\m\n": GO SUB 6500
210 IF niv=1 THEN GO SUB 1500
215 IF niv=2 THEN GO SUB 1530
218 IF niv=3 THEN GO SUB 1600
228 IF niv=4 THEN GO SUB 1700
230 IF niv=5 THEN GO SUB 1800
235 IF niv=6 THEN GO SUB 1900
240 IF niv=7 THEN GO SUB 2000
242 IF niv=8 THEN GO SUB 2500
244 IF niv=9 THEN GO SUB 3000
246 IF niv=10 THEN GO SUB 3600
250 LET a$=INKEY$
300 LET xx=x: LET yy=y: LET yy1=y1
320 IF a$="" THEN GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600
350 IF a$=k$(3) THEN BEEP .01,-10: LET x=x-1: LET d=1: GO SUB 605
400 IF a$=k$(4) THEN BEEP .01,-10: LET x=x+1: LET d=3: GO SUB 605
450 IF a$=k$(1) THEN BEEP .01,-5: LET y=y-1: LET d=2: GO SUB 605
500 IF a$=k$(2) THEN BEEP .01,-5: LET y=y+1: LET d=4: GO SUB 605
550 IF a$=k$(5) THEN GO SUB 700
552 IF a$="0" THEN GO TO 7500
600 GO SUB 5000: GO TO 250
605 LET a=ATTR (y,x): LET b=ATTR (y+1,x)
610 IF a=69 OR b=69 OR a=4 OR b=4 THEN LET x=xx: LET y=yy: RETURN 
620 IF a=198 OR b=198 OR a=2 OR b=2 THEN LET en=en-10: BEEP .01,7: BEEP .01,6: BEEP .01,5: BEEP .01,4: PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 2;"CORTOCIRCUITO(-10 \f)": GO SUB 6500
630 IF a=67 OR b=67 THEN LET en=29: BEEP .01,4: BEEP .01,5: BEEP .01,6: BEEP .01,7: PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 3; BRIGHT 1;"DIRECTIVA:CARGA(\f)": GO SUB 6500
635 IF a=71 OR b=71 THEN GO SUB 4000
650 IF d=1 THEN GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: LET y1=y+1: PRINT AT yy,xx; PAPER 0; INK 6;" ": PRINT AT yy1,xx; PAPER 0; INK 6;" ": PRINT INK 2; BRIGHT 1;AT y,x;p$(1);AT y1,x;p$(2): RETURN 
655 IF d=2 THEN GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: LET y1=y+1: PRINT AT yy,xx; PAPER 0; INK 6;" ": PRINT AT yy1,xx; PAPER 0; INK 6;" ": PRINT INK 2; BRIGHT 1;AT y,x;p$(5);AT y1,x;p$(6): RETURN 
665 IF d=3 THEN GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: LET y1=y+1: PRINT AT yy,xx; PAPER 0; INK 6;" ": PRINT AT yy1,xx; PAPER 0; INK 6;" ": PRINT INK 2; BRIGHT 1;AT y,x;p$(3);AT y1,x;p$(4): RETURN 
675 IF d=4 THEN GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: LET y1=y+1: PRINT AT yy,xx; PAPER 0; INK 6;" ": PRINT AT yy1,xx; PAPER 0; INK 6;" ": PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8): RETURN 
750 IF d=1 THEN LET k=ATTR (y,x-1): IF x>2 AND k<>4 AND k<>69 THEN BEEP .01,25: PRINT AT y,x-1; PAPER 4; BRIGHT 1; INK 0;"\c": PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 5;"DIRECTIVA:DIRECCION(-3 \f)": LET en=en-3: GO SUB 6500: RETURN 
800 IF d=3 THEN LET k=ATTR (y,x+1): IF x<30 AND k<>4 AND k<>69 THEN BEEP .01,25: PRINT AT y,x+1; PAPER 5; BRIGHT 1; INK 0;"\d": PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 5;"DIRECTIVA:DIRECCION(-3 \f)": LET en=en-3: GO SUB 6500: RETURN 
850 IF d=2 THEN LET k=ATTR (y-1,x): IF y>2 AND k<>4 AND k<>69 THEN BEEP .01,25: PRINT AT y-1,x; PAPER 6; BRIGHT 1; INK 0;"\a": PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 5;"DIRECTIVA:DIRECCION(-3 \f)": LET en=en-3: GO SUB 6500: RETURN 
900 IF d=4 THEN LET k=ATTR (y+2,x): IF y<15 AND k<>4 AND k<>69 THEN BEEP .01,25: PRINT AT y+2,x; PAPER 7; BRIGHT 1; INK 0;"\b": PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 5;"DIRECTIVA:DIRECCION(-3 \f)": LET en=en-3: GO SUB 6500: RETURN 
920 PRINT AT 21,3;TAB 27: PRINT AT 21,5; FLASH 1;"\::"; FLASH 0; INK 2;"DIRECTIVA: DENEGADA  ": BEEP 1,-25
950 RETURN 
1510 LET xm=8: LET ym=8: LET xxm=xm: LET yym=ym: LET x=12: LET y=12: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: LET dm=1: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
1520 PRINT AT 1,8; INK 4; PAPER 0; BRIGHT 0;"\q": PRINT AT 2,20; PAPER 0; INK 5; BRIGHT 1;"\r\s\r\s\o\s\r\s\r\p";AT 3,20;"\r\q\s\r\p\t\s\r\s\r";AT 4,20;"\r\t\r\s\f\s\r\s\o\o";AT 5,20;"\p\s\r\s\r\s\r\r\r\r": PRINT AT 13,2; PAPER 0; INK 5; BRIGHT 1;"\r\s\r\s\o\s\r\s\r\p";AT 14,2;"\r\q\s\r\p\t\s\r\s\r";AT 15,2;"\r\t\f\r\s\r\s\r\r\t\f\r\s\r\s\s\r\s\s\r\r\s\s\r\s\r\o\o";AT 16,2; BRIGHT 0;"\p\s\r\s\r\s\f\r\r\f\r\r\r\f\r\r\f\f\r\r\r\r\r\r"
1525 GO SUB 9520: PRINT AT 15,20; PAPER 0; INK 5; BRIGHT 1;"\f\g \f\g": GO SUB 9500: RETURN 
1535 LET xm=4: LET ym=10: LET xxm=xm: LET yym=ym: LET x=12: LET y=8: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: LET dm=2: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
1536 PRINT AT 1,10; INK 4; PAPER 0; BRIGHT 0;"\q": PRINT AT 6,6; INK 3; PAPER 0; BRIGHT 1;z$;AT 6,7; BRIGHT 0; INK 2; PAPER 0;"\o\o"
1540 PRINT AT 7,2; BRIGHT 1; INK 5;"\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\r\s\q";AT 6,2;"\r\s\r\s";AT 6,8;"\u";AT 7,8;"\q";AT 8,8;"\t";AT 9,8;"\u";AT 10,8;"\t";AT 11,8;"\t";AT 12,8;"\q\s\s\s\r\r\s\s\r\r\s\s\r\r\s\s\r\r\p"
1590 RETURN 
1600 LET xm=27: LET ym=13: LET xxm=xm: LET yym=ym: LET x=12: LET y=8: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: LET dm=2: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
1636 PRINT AT 14,1; INK 4; PAPER 0; BRIGHT 0;"\q"
1640 PRINT AT 12,2; BRIGHT 1; INK 5;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\r\s\s\r\s\s\r\s\q";AT 13,10;"\t";AT 14,10;"\u";AT 15,10;"\q";AT 16,10;"\u";AT 17,10;"\q": GO SUB 9520: PRINT AT 3,6; INK 7; PAPER 0; BRIGHT 1;"\e": GO SUB 9500
1690 RETURN 
1710 LET xm=4: LET ym=2: LET xxm=ym: LET yym=ym: LET dm=3: LET x=12: LET y=8: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
1715 PRINT AT 16,11; INK 3; PAPER 0; BRIGHT 1;z$
1718 PRINT AT 11,21; PAPER 7; BRIGHT 1; INK 0;"\b"
1720 PRINT AT 6,2; BRIGHT 1; INK 5;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 10,2;"\q\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 14,2;"\q\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r"
1730 GO SUB 9520: PRINT AT 4,22; INK 7; PAPER 0; BRIGHT 1;"\e": PRINT AT 6,10; BRIGHT 0; INK 2; PAPER 0;"\a\a": GO SUB 9500
1740 PRINT AT 2,3; PAPER 5; BRIGHT 1; INK 0;"\d";AT 2,15; PAPER 7; BRIGHT 1; INK 0;"\b";AT 3,15; PAPER 7; BRIGHT 1; INK 0;"\b";AT 5,14; PAPER 4; BRIGHT 1; INK 0;"\c";AT 4,2; PAPER 6; BRIGHT 1; INK 0;"\a";AT 3,2; PAPER 6; BRIGHT 1; INK 0;"\a"
1742 PRINT AT 11,30; INK 4; PAPER 0; BRIGHT 0;"\q"
1760 RETURN 
1810 LET xm=28: LET ym=7: LET xxm=ym: LET yym=ym: LET dm=3: LET x=3: LET y=7: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
1815 PRINT AT 2,2; BRIGHT 1; INK 5;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 3,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 4,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 5,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 6,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 9,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\q";AT 10,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r";AT 11,2;"\q\r\r\r\r\r\s\r\r\s\r\s\s\r\s\r\s\r\s\s\r\s\s\s\q\r\s\r"
1820 GO SUB 9520: PRINT INK 4;AT 12,2;"\f\g\f\g\d\f\g\f\g\d\f\g\f\g\d\f\g\f\g\d": PRINT AT 9,6; INK 2; BRIGHT 0;"\a\a";AT 10,25;"\a\a";AT 11,25;"\a\a": GO SUB 9500: PRINT AT 12,21; INK 4;"\q"
1890 RETURN 
1910 LET xm=13: LET ym=13: LET xxm=ym: LET yym=ym: LET dm=3: LET x=2: LET y=2: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
1915 PRINT AT 2,12; BRIGHT 1; INK 5;"\::\p\{b0}\p\{b1}\p\p\::";AT 3,12;"\::\p\{b1}\p\{b0}\p\{b1}\p\::": PRINT AT 14,4; INK 3; PAPER 0; BRIGHT 1;z$: PRINT AT 2,20; INK 3; PAPER 0; BRIGHT 1;z$: PRINT INK 4;AT 3,30;"\q": GO SUB 9520: FOR l=4 TO 12: PRINT AT l,2; BRIGHT 0; INK 2;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a": NEXT l: PRINT AT 13,2; BRIGHT 0; INK 2;"\a";AT 14,2;"\a";AT 15,2;"\a";AT 13,29;"\a";AT 14,29;"\a";AT 15,29;"\a": PRINT AT 13,12; BRIGHT 1; PAPER 5; INK 0;"\b";AT 14,12;"\b";AT 15,12;"\b";AT 16,12;"\b": PRINT AT 13,18; BRIGHT 1; PAPER 4; INK 0;"\b";AT 14,18;"\b";AT 15,18;"\b";AT 16,18;"\b": GO SUB 9500: PRINT AT 5,12; INK 3; PAPER 0; BRIGHT 1;z$: PRINT AT 6,12; INK 3; PAPER 0; BRIGHT 1;z$: PRINT AT 5,13; INK 3; PAPER 0; BRIGHT 1;z$: PRINT AT 6,13; INK 3; PAPER 0; BRIGHT 1;z$
1990 RETURN 
2010 LET xm=3: LET ym=15: LET xxm=ym: LET yym=ym: LET dm=3: LET x=28: LET y=15: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8): PRINT AT 4,6; INK 5; BRIGHT 1;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.."
2015 CIRCLE 114,112,13: PLOT 51,132: DRAW 0,-60: DRAW 166,0: DRAW 0,60: DRAW -166,0: CIRCLE 175,104,21: PLOT 175,104: DRAW -6,15: PLOT 114,112: DRAW 5,-9: PLOT 63,132: DRAW 0,-60:
2018 CIRCLE 77,87,4: PLOT 94,87: DRAW 0,-3: DRAW 51,0: DRAW 0,3: DRAW -51,0: PLOT 52,113: DRAW 11,0: PLOT 52,112: DRAW 11,0: PLOT 52,111: DRAW 11,0: PLOT 52,110: DRAW 11,0: PLOT 52,109: DRAW 11,0: PLOT 52,108: DRAW 11,0: PLOT 52,107: DRAW 11,0: PLOT 52,106: DRAW 11,0: PLOT 52,105: DRAW 11,0: PLOT 52,104: DRAW 11,0:
2020 PLOT 52,103: DRAW 11,0: PLOT 52,102: DRAW 11,0: PLOT 52,101: DRAW 11,0: PLOT 52,100: DRAW 11,0: PLOT 52,99: DRAW 11,0: PLOT 52,98: DRAW 11,0: PLOT 52,97: DRAW 11,0: PLOT 52,96: DRAW 11,0: PLOT 52,95: DRAW 11,0: PLOT 52,94: DRAW 11,0:
2022 PLOT 52,93: DRAW 11,0: PLOT 52,92: DRAW 11,0: PLOT 52,91: DRAW 11,0: PLOT 52,90: DRAW 11,0: PLOT 52,89: DRAW 11,0: PLOT 52,88: DRAW 11,0: PLOT 52,87: DRAW 11,0: PLOT 52,86: DRAW 11,0: PLOT 52,85: DRAW 11,0: PLOT 52,84: DRAW 11,0:
2025 PLOT 52,83: DRAW 11,0: PLOT 52,82: DRAW 11,0: PLOT 52,81: DRAW 11,0: PLOT 52,80: DRAW 11,0: PLOT 52,79: DRAW 11,0: PLOT 52,78: DRAW 11,0: PLOT 52,77: DRAW 11,0: PLOT 52,76: DRAW 11,0: PLOT 52,75: DRAW 11,0: PLOT 52,74: DRAW 11,0:
2028 PLOT 52,73: DRAW 11,0: PLOT 52,114: DRAW 11,0: PLOT 52,115: DRAW 11,0: PLOT 52,116: DRAW 11,0: PLOT 52,117: DRAW 11,0: PLOT 52,118: DRAW 11,0: PLOT 52,119: DRAW 11,0: PLOT 52,120: DRAW 11,0: PLOT 52,121: DRAW 11,0: PLOT 52,122: DRAW 11,0: PLOT 52,123: DRAW 11,0:
2030 PLOT 52,124: DRAW 11,0: PLOT 52,125: DRAW 11,0: PLOT 52,126: DRAW 11,0: PLOT 52,127: DRAW 11,0: PLOT 52,128: DRAW 11,0: PLOT 52,129: DRAW 11,0: PLOT 52,130: DRAW 11,0: PLOT 52,131: DRAW 11,0:
2035 LET ra=10: LET ds=10: LET xtt=80: LET ytt=114: GO SUB 2095
2038 LET ra=10: LET ds=10: LET xtt=142: LET ytt=100: GO SUB 2095
2040 LET ra=10: LET ds=10: LET xtt=206: LET ytt=121: GO SUB 2095
2045 LET ra=10: LET ds=10: LET xtt=207: LET ytt=82: GO SUB 2095
2050 PLOT 185,104: DRAW -9,-8: PLOT 191,102: DRAW -8,-9
2055 PRINT AT 13,6; INK 5; BRIGHT 1;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";AT 5,6;"\ :";AT 6,6;"\ :";AT 7,6;"\ :";AT 8,6;"\ :";AT 9,6;"\ :";AT 10,6;"\ :";AT 11,6;"\ :";AT 12,6;"\ :";
2058 PRINT AT 5,27; INK 5; BRIGHT 1;"\: ";AT 6,27;"\: ";AT 7,27;"\: ";AT 8,27;"\: ";AT 9,27;"\: ";AT 10,27;"\: ";AT 11,27;"\: ";AT 12,27;"\: ": PRINT AT 16,3; INK 3; PAPER 0; BRIGHT 1;z$: GO SUB 9520: PRINT AT 14,2; INK 5; BRIGHT 1;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''": PRINT AT 5,28; INK 2;"\a\a";AT 6,28;"\a\a";AT 12,28;"\a\a";AT 11,28;"\a\a": PRINT AT 8,28; INK 7; BRIGHT 1; PAPER 0;"\e";AT 6,9;"\i \j";AT 9,8;"OFF": PRINT AT 14,4; BRIGHT 0; INK 2;"\a\a": GO SUB 9500
2090 RETURN 
2095 FOR n=1 TO ds: PLOT xtt-(INT (ra/2))+INT (RND*ra),ytt-(INT (ra/2))+INT (RND*ra): NEXT n: RETURN 
2510 LET xm=4: LET ym=4: LET xxm=ym: LET yym=ym: LET dm=3: LET x=15: LET y=4: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1: PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8)
2515 GO SUB 9520: PRINT AT 7,2; INK 5; BRIGHT 1;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a";AT 11,2;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a": PRINT AT 14,28; INK 7; BRIGHT 1; PAPER 0;"\e": PRINT AT 7,10; INK 2;"\a\a": PRINT AT 11,15; INK 2;"\a\a": PRINT AT 2,2; INK 2;"\a\a";AT 3,2;"\a\a";AT 4,2;"\a\a";AT 5,2;"\a\a";AT 2,28;"\a\a";AT 3,28;"\a\a";AT 4,28;"\a\a";AT 5,28;"\a\a";AT 8,2;"\a\a";AT 9,2;;"\a\a";AT 10,2;"\a\a";AT 8,28;"\a\a";AT 9,28;"\a\a";AT 10,28;"\a\a": GO SUB 9500: RETURN 
3510 LET xm=15: LET ym=10: LET xxm=ym: LET yym=ym: LET dm=2: LET x=10: LET y=13: LET y1=y+1: LET xx=x: LET yy=y: LET yy1=y1
3525 PRINT INK 2; BRIGHT 1;AT y,x;p$(7);AT y1,x;p$(8): PRINT AT 11,25; INK 2;"\o\p\o\o\o";AT 12,25;"\o\o\p\p\o";AT 9,25;"\o\o\p\o\o";AT 10,25;"\o\o\p\p\o";AT 13,25;"\o\o\o\p\o";AT 10,25;"\o\o\p\p\o";AT 14,25;"\o\o\p\p\o";AT 15,25;"\o\o\p\p\o": PRINT AT 12,29; INK 4;"\q"
3530 PRINT AT 4,5; INK 5; BRIGHT 1; PAPER 0;"\o\p";AT 5,5;"\p\o";AT 4,15;"\p\o";AT 5,15;"\o\p";AT 9,10;"\o\p";AT 10,10;"\p\o";AT 4,25;"\o\p";AT 5,25;"\p\o";AT 14,5;"\o\p";AT 15,5;"\o\p";AT 14,15;"\p\o";AT 15,15;"\p\o"
3532 PRINT AT 15,12; INK 3; PAPER 0; BRIGHT 1;z$
3535 RETURN 
3605 PAPER 0: INK 7: CLS : PRINT AT 1,0;"::COMANDOS DEL SISTEMA CENTRAL::": LET j$="Energia restablecida...": PRINT : PRINT : GO SUB 7560: LET j$="Encendiendo equipo central...": PRINT : PRINT : GO SUB 7560: LET j$="EQUIPO ENCENDIDO": PRINT : PRINT : GO SUB 7560: PRINT AT 10,0; PAPER 5; INK 0; FLASH 1;"EQUIPO FUNCIONANDO CORRECTAMENTE"
3610 FOR n=1 TO 20: FOR t=10 TO 20: BEEP .01,RND*55: PRINT AT 12,t; INK INT 1+(RND*6);"\. ": NEXT t: NEXT n: GO TO 7500
4010 IF niv=3 THEN BEEP .01,2: BEEP .1,5: GO SUB 9520: PRINT AT 12,7; BRIGHT 0; INK 2; PAPER 0;"\a\a";AT 12,15;"\a\a": GO SUB 9500: RETURN 
4020 IF niv=4 THEN BEEP .01,2: BEEP .1,5: GO SUB 9520: PRINT AT 6,10; BRIGHT 0; INK 2; PAPER 0;"\a\a";AT 10,4;"\a\a";AT 14,20;"\a": GO SUB 9500: RETURN 
4100 IF niv=7 THEN BEEP .01,2: BEEP .1,5: PRINT AT 8,6; INK 4;"\q";AT 9,8; INK 6; PAPER 0;" ON": PRINT AT 15,12; INK 3; PAPER 0; BRIGHT 1;z$: RETURN 
4150 IF niv=8 THEN BEEP .01,2: BEEP .1,5: PRINT AT 14,2; INK 4;"\q";AT 12,2; INK 5; BRIGHT 1;"\o\o\o\o\o\o\o\o\o";AT 14,13;"\o\o": PRINT AT 15,12; INK 3; PAPER 0; BRIGHT 1;z$: GO SUB 9520: PRINT AT 13,2; INK 2;"\a";AT 14,3;"\a";AT 15,2;"\a": GO SUB 9500: RETURN 
4160 RETURN 
5020 IF dm=1 THEN LET xxm=xm: LET yym=ym: LET xm=xm-1: GO SUB 5700: GO SUB 5500: RETURN 
5025 IF dm=3 THEN LET xxm=xm: LET yym=ym: LET xm=xm+1: GO SUB 5700: GO SUB 5500: RETURN 
5035 IF dm=2 THEN LET xxm=xm: LET yym=ym: LET ym=ym-1: GO SUB 5700: GO SUB 5500: RETURN 
5045 IF dm=4 THEN LET xxm=xm: LET yym=ym: LET ym=ym+1: GO SUB 5700: GO SUB 5500: RETURN 
5500 GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: GO SUB 5600: PRINT AT yym,xxm;" ";AT ym,xm; INK 6; BRIGHT 1; FLASH 1;m$: RETURN 
5605 LET j=PEEK 23672
5610 IF PEEK 23672=a THEN GO TO 5610
5615 RETURN 
5800 LET atrm=ATTR (ym,xm)
5810 IF atrm=66 THEN LET en=en-10: BEEP .01,-25: BEEP .01,7: BEEP .01,6: BEEP .01,5: BEEP .01,4: PRINT AT 21,3;TAB 27: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 2;"CORTOCIRCUITO(-10 \f)": PRINT AT y,x; INK 6; BRIGHT 1; FLASH 1;m$;AT y+1,x;m$: GO SUB 6500
5820 IF atrm=4 THEN LET niv=niv+1: BEEP .1,25: BEEP .1,28: BEEP .1,23: CLS : GO TO 110
5825 IF atrm=71 THEN LET en=0: GO SUB 6500
5840 IF atrm=2 THEN LET en=en-10: BEEP .01,-25: GO SUB 6500
5850 IF niv=9 AND atrm=69 THEN LET xm=xxm: LET ym=yym: BEEP .01,-25: LET dm=INT (RND*4+(dm<=4 AND dm>=1)): RETURN 
6000 IF dm=1 AND atrm=69 THEN BEEP .01,-25: LET xm=xxm: LET ym=yym: LET dm=3: RETURN 
6010 IF dm=3 AND atrm=69 THEN BEEP .01,-25: LET xm=xxm: LET ym=yym: LET dm=1: RETURN 
6020 IF dm=2 AND atrm=69 THEN BEEP .01,-25: LET xm=xxm: LET ym=yym: LET dm=4: RETURN 
6030 IF dm=4 AND atrm=69 THEN BEEP .01,-25: LET xm=xxm: LET ym=yym: LET dm=2: RETURN 
6040 IF atrm=112 THEN LET xm=xxm: LET ym=yym: LET dm=2: RETURN 
6050 IF atrm=120 THEN LET xm=xxm: LET ym=yym: LET dm=4: RETURN 
6060 IF atrm=104 THEN LET xm=xxm: LET ym=yym: LET dm=3: RETURN 
6070 IF atrm=96 THEN LET xm=xxm: LET ym=yym: LET dm=1: RETURN 
6200 RETURN 
6505 IF en<2 THEN GO TO 7000
6507 IF en<10 THEN BORDER 2: PRINT AT 21,3; FLASH 1;"\::"; FLASH 0; INK 5;"DIRECTIVA: FALTA ENERGIA": BEEP .1,-10: BEEP .1,-15: LET o=2
6508 IF en>10 THEN BORDER 0: LET o=4
6510 PRINT AT 20,2; PAPER 0; INK 0;TAB 29: PRINT AT 20,2; INK o;e$(3 TO en)
6520 RETURN 
7010 FOR l=7 TO 0 STEP -1: PRINT INK l;AT y,x;p$(7);AT y1,x;p$(8): BEEP .005,RND*20: PAUSE 1: NEXT l
7020 PAPER 0: INK 7: CLS : PRINT AT 14,2; INK 7; PAPER 2; FLASH 1;"\::"; FLASH 0;"ENERGIAS TOTALMENTE AGOTADAS": BEEP 1,-2: BEEP 1,-5: BEEP 1,-10: PRINT AT 15,2; INK 7; PAPER 0; FLASH 0;">\g Reiniciando el sistema...": PAUSE 20: BEEP .1,-2: BEEP .1,2: PRINT AT 16,2; INK 7; PAPER 0; FLASH 0;">\f Recargando energias...": PAUSE 20: BEEP .1,-2: BEEP .1,2: INK 6: PAPER 0: BORDER 0: CLS : GO TO 110
7510 CLS : PRINT AT 0,5; INK 7; BRIGHT 1;"MEMSOFTWARE PRESENTA";AT 1,0;"________________________________"
7520 PRINT AT 3,11; INK 5; BRIGHT 1;"\::\''\''\''\::\::";AT 4,11;"\::   \::\::";AT 5,11;"\::    \::";AT 6,11; BRIGHT 0;"\::  \:: \::";AT 7,11;"\::   \::\::";AT 8,11;"\::\..\..\..\..\::";AT 8,17;"\::\.'";
7525 PRINT AT 3,19; INK 5; BRIGHT 1;"\: ";AT 4,19;"\: ";AT 5,19;"\: ";AT 6,19; BRIGHT 0;"\: ";AT 7,19;"\: "
7530 LET j$="          NUEVO JUEGO": PRINT '': GO SUB 7560
7540 BEEP .01,20: LET j$="          HISTORIA": PRINT ': GO SUB 7560
7545 BEEP .01,20: LET j$="          AYUDAS": PRINT ': GO SUB 7560
7550 BEEP .01,20: LET j$="          REDEFINIR": PRINT ': GO SUB 7560: BEEP .01,20: PRINT AT 10,9; INK 7; PAPER 1;"1";AT 12,9;"2";AT 14,9;"3";AT 16,9;"4": PRINT AT 21,0; BRIGHT 1; INK 5;"\o\o\o\o\p\o\o\o\p\o\o\o\p\o\o\o\p\o\o\o\o\p\o\p\o\o\o\p\o\o\o\p": PRINT AT 19,5; INK 2; BRIGHT 1;"\i";AT 20,5;"\j";AT 19,25; INK 6;"\e":
7551 IF INKEY$="1" THEN CLS : GO TO 54
7552 BEEP .03,-RND*45
7553 IF INKEY$="2" THEN CLS : GO TO 7700
7555 IF INKEY$="3" THEN CLS : GO TO 7900
7556 IF INKEY$="9" THEN INPUT l$: IF l$="palamar" THEN INPUT "Nivel?";niv
7558 IF INKEY$="4" THEN CLS : GO TO 8000
7559 GO TO 7551
7560 PRINT INK 7;j$
7590 RETURN 
7710 CLS : PRINT AT 1,0;"QI es un pequeno robot encargado"'"de reparar el equipo"'"electronico de su nave. La com-"'"putadora a bordo ha tomado"'"parte del control desviando la"'"energia hacia una central que"'"no corresponde. QI ha logrado"'"recuperarla, pero debe guiarla"'"por los circuitos para"'"alimentar el equipo que le"'"devolvera el control de su nave."
7712 PRINT AT 13,0; INK 7;"COLOCA FLECHAS \{p7i0}\a\b\c\d\{p0i7} PARA DESVIARLA CHISPA \{f1i6}\e"
7715 PAUSE 0: GO TO 7500
7910 CLS : PRINT AT 1,0; INK 6;"QI ira informando todos los"'"eventos en la parte inferior de la pantalla"
7915 PRINT AT 6,0; INK 3;"Puedes utilizar las flechas para"'"detener o rechazar la chispa": PRINT AT 11,0; INK 5;"Las partes rojas restan energia a QI por lo que debes evitarlas"'"colocando flechas"
7920 PAUSE 0: GO TO 7500
8000 FOR g=1 TO 1000: NEXT g
8010 LET K$="": LET T$=""
8020 PRINT AT 1,0;"Arriba... ";: GO SUB 8070: PRINT AT 1,15;T$
8030 PRINT AT 3,0;"Abajo... ";: GO SUB 8070: PRINT AT 3,15;T$
8040 PRINT AT 5,0;"Izquierda... ";: GO SUB 8070: PRINT AT 5,15;T$
8050 PRINT AT 7,0;"Derecha... ";: GO SUB 8070: PRINT AT 7,15;T$
8060 PRINT AT 9,0;"Colocar flechas... ";: GO SUB 8070: PRINT AT 9,25;T$: GO TO 7500
8070 LET T$=INKEY$
8080 IF T$="" THEN GO TO 8070
8090 LET K$=K$+T$
8100 IF INKEY$=T$ THEN GO TO 8100
8110 RETURN 
9510 POKE 23676,230: POKE 23675,0: RETURN 
9525 POKE 23676,230: POKE 23675,168: RETURN