10 BORDER 0: PAPER 0: INK 2: BRIGHT 1: CLS : PRINT AT 10,13; PAPER 2; INK 7;"xxxxxx!": PRINT AT 12,13;"x/x/x/x" 20 FOR a=USR "a" TO USR "s"+7: READ b: POKE a,b: NEXT a 21 DATA 255,192,128,128,128,128,128,128,255,3,1,5,5,5,5,5,128,128,128,128,128,159,192,255,5,5,5,5,5,249,3,255 22 DATA 14,31,31,31,15,7,3,1,112,248,248,232,208,160,64,128,85,149,37,201,18,228,10,241,195,129,20,20,0,36,153,195 23 DATA 7,15,25,24,26,25,51,56,224,240,152,24,88,152,204,28,63,124,120,120,92,95,17,46,252,62,30,30,58,250,136,116 24 DATA 1,3,39,95,191,71,153,167,128,192,228,250,253,226,153,229,75,145,162,162,160,160,160,128,210,137,69,69,5,5,5,1 25 DATA 143,80,39,72,147,164,169,170,241,10,228,18,201,37,149,85,170,169,164,147,72,39,80,143 30 BORDER 0: PAPER 0: CLS : PRINT AT 10,13; PAPER 2; INK 7;"b1n4ry!": PRINT INK 2;AT 12,13;"O/P/Q/A" 32 RESTORE 32: FOR z=1 TO 43: READ w: BEEP .3,w+12: IF INKEY$="" THEN NEXT z: DATA 4,4,4,4,2,0,0,-1,-3,-3,0,4,9,9,9,9,7,5,5,4,2,2,4,5,4,5,4,7,5,4,4,2,0,0,-1,-3,-1,-1,-1,-1,0,-1,-3 33 PAUSE 666: IF INKEY$<>"" THEN GO TO 87 34 FOR z=1 TO 7: PAPER 0: CLS : INK 0: PAPER z: FOR y=3 TO 19 STEP 2: PRINT AT y,15;"\a\b";AT y+1,15;"\c\d": NEXT y: GO SUB 1000+10*z: PAUSE 99: NEXT z: GO TO 30 87 LET l=1: IF INKEY$="z" THEN PRINT AT 17,12; PAPER 7; INK 2;"I\e\fU,Zoe!" 88 IF INKEY$="x" THEN PRINT AT 15,16; PAPER 6; INK 0;"\h" 89 IF l=1 THEN INK 0: PLOT 38,16: DRAW 4,8: DRAW 4,-9: PLOT 37,19: DRAW 10,0: CIRCLE 42,19,3: PRINT AT 19,6;"z1m0v/Bytemaniacos2020": FOR z=4 TO 31: PRINT OVER 1;AT 19,z; INK 1+RND*6;" ": PRINT OVER 1;AT 19,z-4; INK 7;" ": BEEP .001,44: NEXT z 91 LET ny=19: LET nx=13: LET by=19: LET bx=17: LET ony=1: LET onx=1: LET oby=1: LET obx=1: LET t=99+l*19: LET dir=1: LET oay=1 95 INK 0: PRINT AT 0,0; PAPER 2;"\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d";AT 21,0;"\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d": FOR z=1 TO 20: PRINT PAPER 2;AT z,0;"\d"; PAPER 0; INK 2;" "; PAPER 2; INK 0;"\d": NEXT z: PAPER l 96 IF l=8 THEN PRINT AT 9,10; INK 7; FLASH 1;"YOU'RE FREE!": FOR z=0 TO 99: PRINT AT 11,13; INK 3;"\i\j"; INK 2;"\e\f"; INK 5;"\i\j";AT 12,13; INK 3;"\k\l";" "; INK 5;"\k\l";AT 1+RND*19,1+RND*28; INK 2;"\e\f": BEEP .01,RND*44: IF INKEY$="" THEN GO TO 96 99 FOR z=3 TO 19 STEP 2: PRINT AT z,15;"\a\b";AT z+1,15;"\c\d": NEXT z: GO SUB 1000+10*l: PAPER 0: INK 2: PRINT #0;AT 1,0;"TIME ";AT 1,24;"ROUND 0" 102 PRINT AT 2,15;"\e\f": PRINT #0;AT 1,5;t;" ";AT 1,31;l: LET t=t-1: IF t<0 THEN PRINT PAPER 7; INK 0;AT 10,11;"TIME OVER!": BEEP 1,55: FOR z=0 TO 199: NEXT z: GO TO 30 132 IF INKEY$="o" THEN LET nx=nx-(2*(ATTR (ny,nx-1)<72)): LET bx=bx+2*(ATTR (by,bx+2)<72) 133 IF INKEY$="p" THEN LET nx=nx+2*(ATTR (ny,nx+2)<72): LET bx=bx-(2*(ATTR (by,bx-1)<72)) 134 IF INKEY$="q" THEN LET ny=ny-2*((ATTR (ny-2,nx)<72)*(ny>1)): LET by=by-2*((ATTR (by-2,bx)<72)*(by>1)) 135 IF INKEY$="a" THEN LET ny=ny+2*(ATTR (ny+2,nx)<72): LET by=by+2*(ATTR (by+2,bx)<72) 148 IF ATTR (ny,nx)=70 OR ATTR (by,bx)=70 THEN BORDER 2: BEEP 1,22: GO TO 30 149 IF ATTR (ny,nx)=71 OR ATTR (by,bx)=71 THEN BORDER 6: BEEP .1,33: LET t=t-30: BORDER 0 150 IF oby<>by OR obx<>bx OR ony<>ny OR onx<>nx THEN PAPER 8: PRINT PAPER 0;AT ony,onx;" ";AT ony+1,onx;" ";AT oby,obx;" ";AT oby+1,obx;" "; INK 3;AT ny,nx;"\i\j";AT ny+1,nx;"\k\l"; INK 5;AT by,bx;"\i\j";AT by+1,bx;"\k\l" 153 PRINT AT oay,ax;" ";AT oay+1,ax;" "; INK 6;AT ay,ax;"\m\n";AT ay+1,ax;"\o\p": IF (ay+2*dir=ny AND ax=nx) OR (ay+2*dir=by AND ax=bx) THEN BORDER 2: BEEP 2,22: GO TO 30 154 IF ATTR (ay+2,ax)<>66 THEN LET dir=-1 155 IF ATTR (ay-2,ax)<>66 THEN LET dir=1 159 LET oay=ay: LET ay=ay+2*dir: LET ony=ny: LET onx=nx: LET oby=by: LET obx=bx 160 IF ny=1 AND by=1 AND ((nx=13 AND bx=17) OR (nx=17 AND bx=13)) THEN BORDER 2: PRINT AT 1,15;"\e\f";AT 2,15;" ": BEEP 2,22: BORDER 0: LET l=l+1: GO TO 91 199 GO TO 100 1010 PRINT AT 3,3;"\a\b\a\b\a\b";AT 3,11;"\a\b\a\b";AT 3,19;"\a\b\a\b\a\b";AT 3,27;"\a\b\a\b";AT 4,3;"\c\d\c\d\c\d";AT 4,11;"\c\d\c\d";AT 4,19;"\c\d\c\d\c\d";AT 4,27;"\c\d\c\d" 1011 PRINT AT 5,1;"\a\b\a\b";AT 5,7;"\a\b";AT 5,11;"\a\b";AT 5,17;"\a\b\a\b";AT 5,23;"\a\b";AT 5,27;"\a\b";AT 6,1;"\c\d\c\d";AT 6,7;"\c\d";AT 6,11;"\c\d";AT 6,17;"\c\d\c\d";AT 6,23;"\c\d";AT 6,27;"\c\d" 1012 PRINT AT 9,3;"\a\b\a\b\a\b\a\b\a\b";AT 9,19;"\a\b\a\b\a\b\a\b\a\b";AT 10,3;"\c\d\c\d\c\d\c\d\c\d";AT 10,19;"\c\d\c\d\c\d\c\d\c\d" 1013 PRINT AT 13,1;"\a\b\a\b";AT 13,7;"\a\b";AT 13,11;"\a\b";AT 13,19;"\a\b";AT 13,23;"\a\b";AT 13,27;"\a\b\a\b";AT 14,1;"\c\d\c\d";AT 14,7;"\c\d";AT 14,11;"\c\d";AT 14,19;"\c\d";AT 14,23;"\c\d";AT 14,27;"\c\d\c\d" 1014 PRINT AT 17,5;"\a\b\a\b\a\b\a\b\a\b";AT 17,17;"\a\b\a\b\a\b\a\b\a\b";AT 17,29;"\a\b";AT 18,5;"\c\d\c\d\c\d\c\d\c\d";AT 18,17;"\c\d\c\d\c\d\c\d\c\d";AT 18,29;"\c\d" 1015 PRINT PAPER 0; INK 7;AT 7,5;"\q\r";AT 8,5;"\s\g";AT 11,9;"\q\r";AT 12,9;"\s\g";AT 11,25;"\q\r";AT 12,25;"\s\g";AT 15,17;"\q\r";AT 16,17;"\s\g";AT 17,3;"\q\r";AT 18,3;"\s\g": LET ay=5: LET ax=13: RETURN 1020 PRINT AT 3,3;"\a\b";AT 3,7;"\a\b";AT 3,11;"\a\b\a\b";AT 3,17;"\a\b\a\b";AT 3,23;"\a\b";AT 3,27;"\a\b";AT 4,3;"\c\d";AT 4,7;"\c\d";AT 4,11;"\c\d\c\d";AT 4,17;"\c\d\c\d";AT 4,23;"\c\d";AT 4,27;"\c\d" 1021 PRINT AT 5,3;"\a\b";AT 5,7;"\a\b";AT 5,11;"\a\b";AT 5,19;"\a\b\a\b\a\b\a\b\a\b";AT 6,3;"\c\d";AT 6,7;"\c\d";AT 6,11;"\c\d";AT 6,19;"\c\d\c\d\c\d\c\d\c\d";AT 7,7;"\a\b";AT 7,23;"\a\b";AT 8,7;"\c\d";AT 8,23;"\c\d" 1023 PRINT AT 9,3;"\a\b\a\b\a\b";AT 9,11;"\a\b\a\b";AT 9,17;"\a\b\a\b";AT 9,23;"\a\b";AT 9,27;"\a\b\a\b";AT 10,3;"\c\d\c\d\c\d";AT 10,11;"\c\d\c\d";AT 10,17;"\c\d\c\d";AT 10,23;"\c\d";AT 10,27;"\c\d\c\d" 1024 PRINT AT 13,1;"\a\b\a\b";AT 13,7;"\a\b\a\b\a\b";AT 13,19;"\a\b\a\b\a\b\a\b\a\b";AT 14,1;"\c\d\c\d";AT 14,7;"\c\d\c\d\c\d";AT 14,19;"\c\d\c\d\c\d\c\d\c\d" 1025 PRINT AT 15,7;"\a\b";AT 16,7;"\c\d";AT 17,3;"\a\b";AT 17,7;"\a\b";AT 17,11;"\a\b";AT 17,17;"\a\b\a\b";AT 17,23;"\a\b";AT 17,27;"\a\b\a\b";AT 18,3;"\c\d";AT 18,7;"\c\d";AT 18,11;"\c\d";AT 18,17;"\c\d\c\d";AT 18,23;"\c\d";AT 18,27;"\c\d\c\d";AT 19,11;"\a\b";AT 20,11;"\c\d" 1027 PRINT INK 7; PAPER 0;AT 11,29;"\q\r";AT 12,29;"\s\g";AT 15,5;"\q\r";AT 16,5;"\s\g";AT 5,1;"\q\r";AT 6,1;"\s\g";AT 17,21;"\q\r";AT 18,21;"\s\g": LET ay=1: LET ax=9: RETURN 1030 PRINT AT 1,7;"\a\b";AT 2,7;"\c\d";AT 3,3;"\a\b";AT 3,7;"\a\b";AT 3,11;"\a\b";AT 3,19;"\a\b";AT 3,23;"\a\b";AT 3,27;"\a\b\a\b";AT 4,3;"\c\d";AT 4,7;"\c\d";AT 4,11;"\c\d";AT 4,19;"\c\d";AT 4,23;"\c\d";AT 4,27;"\c\d\c\d" 1031 PRINT AT 5,3;"\a\b";AT 5,7;"\a\b";AT 5,11;"\a\b";AT 5,19;"\a\b";AT 5,23;"\a\b";AT 5,27;"\a\b";AT 6,3;"\c\d";AT 6,7;"\c\d";AT 6,11;"\c\d";AT 6,19;"\c\d";AT 6,23;"\c\d";AT 6,27;"\c\d" 1033 PRINT AT 7,3;"\a\b";AT 7,11;"\a\b";AT 7,23;"\a\b";AT 8,3;"\c\d";AT 8,11;"\c\d";AT 8,23;"\c\d";AT 9,3;"\a\b\a\b\a\b\a\b\a\b\a\b";AT 9,19;"\a\b\a\b\a\b";AT 9,27;"\a\b\a\b";AT 10,3;"\c\d\c\d\c\d\c\d\c\d\c\d";AT 10,19;"\c\d\c\d\c\d";AT 10,27;"\c\d\c\d" 1034 PRINT AT 11,7;"\a\b";AT 12,7;"\c\d";AT 13,3;"\a\b";AT 13,7;"\a\b";AT 13,11;"\a\b";AT 13,17;"\a\b\a\b";AT 13,23;"\a\b\a\b\a\b";AT 14,3;"\c\d";AT 14,7;"\c\d";AT 14,11;"\c\d";AT 14,17;"\c\d\c\d";AT 14,23;"\c\d\c\d\c\d" 1035 PRINT AT 15,3;"\a\b";AT 15,7;"\a\b";AT 15,11;"\a\b";AT 15,23;"\a\b";AT 16,3;"\c\d";AT 16,7;"\c\d";AT 16,11;"\c\d";AT 16,23;"\c\d" 1036 PRINT AT 17,3;"\a\b";AT 17,7;"\a\b";AT 17,11;"\a\b";AT 17,23;"\a\b";AT 17,27;"\a\b";AT 18,3;"\c\d";AT 18,7;"\c\d";AT 18,11;"\c\d";AT 18,23;"\c\d";AT 18,27;"\c\d" 1037 PRINT AT 19,3;"\a\b";AT 19,11;"\a\b";AT 19,27;"\a\b";AT 20,3;"\c\d";AT 20,11;"\c\d";AT 20,27;"\c\d" 1038 PRINT PAPER 0; INK 7;AT 5,13;"\q\r";AT 6,13;"\s\g";AT 5,17;"\q\r";AT 6,17;"\s\g";AT 15,27;"\q\r";AT 16,27;"\s\g": LET ay=1: LET ax=25: RETURN 1040 PRINT AT 3,3;"\a\b\a\b\a\b";AT 3,11;"\a\b\a\b";AT 3,19;"\a\b";AT 3,23;"\a\b";AT 3,27;"\a\b";AT 4,3;"\c\d\c\d\c\d";AT 4,11;"\c\d\c\d";AT 4,19;"\c\d";AT 4,23;"\c\d";AT 4,27;"\c\d" 1041 PRINT AT 5,3;"\a\b";AT 5,7;"\a\b";AT 5,11;"\a\b";AT 5,19;"\a\b\a\b\a\b";AT 5,27;"\a\b\a\b";AT 6,3;"\c\d";AT 6,7;"\c\d";AT 6,11;"\c\d";AT 6,19;"\c\d\c\d\c\d";AT 6,27;"\c\d\c\d" 1042 PRINT AT 9,1;"\a\b\a\b";AT 9,7;"\a\b\a\b\a\b";AT 9,19;"\a\b";AT 9,23;"\a\b";AT 9,27;"\a\b";AT 10,1;"\c\d\c\d";AT 10,7;"\c\d\c\d\c\d";AT 10,19;"\c\d";AT 10,23;"\c\d";AT 10,27;"\c\d" 1043 PRINT AT 11,3;"\a\b";AT 11,7;"\a\b";AT 11,11;"\a\b";AT 11,19;"\a\b";AT 11,23;"\a\b";AT 11,27;"\a\b";AT 12,3;"\c\d";AT 12,7;"\c\d";AT 12,11;"\c\d";AT 12,19;"\c\d";AT 12,23;"\c\d";AT 12,27;"\c\d" 1044 PRINT AT 13,3;"\a\b";AT 13,7;"\a\b";AT 13,11;"\a\b";AT 13,17;"\a\b\a\b\a\b\a\b";AT 13,27;"\a\b";AT 14,3;"\c\d";AT 14,7;"\c\d";AT 14,11;"\c\d";AT 14,17;"\c\d\c\d\c\d\c\d";AT 14,27;"\c\d" 1045 PRINT AT 17,3;"\a\b\a\b\a\b";AT 17,11;"\a\b\a\b";AT 17,19;"\a\b";AT 17,23;"\a\b";AT 17,27;"\a\b";AT 18,3;"\c\d\c\d\c\d";AT 18,11;"\c\d\c\d";AT 18,19;"\c\d";AT 18,23;"\c\d";AT 18,27;"\c\d" 1046 PRINT AT 19,3;"\a\b";AT 19,19;"\a\b\a\b\a\b";AT 19,27;"\a\b";AT 20,3;"\c\d";AT 20,19;"\c\d\c\d\c\d";AT 20,27;"\c\d": PRINT INK 7; PAPER 0;AT 7,9;"\q\r";AT 8,9;"\s\g";AT 3,17;"\q\r";AT 4,17;"\s\g";AT 5,17;"\q\r";AT 6,17;"\s\g": RETURN 1050 PRINT AT 1,11;"\a\b";AT 2,11;"\c\d";AT 3,1;"\a\b\a\b";AT 3,7;"\a\b";AT 3,11;"\a\b";AT 3,19;"\a\b";AT 3,23;"\a\b";AT 3,27;"\a\b";AT 4,1;"\c\d\c\d";AT 4,7;"\c\d";AT 4,11;"\c\d";AT 4,19;"\c\d";AT 4,23;"\c\d";AT 4,27;"\c\d" 1051 PRINT AT 5,3;"\a\b";AT 5,7;"\a\b";AT 5,11;"\a\b";AT 5,17;"\a\b\a\b";AT 5,23;"\a\b\a\b\a\b";AT 6,3;"\c\d";AT 6,7;"\c\d";AT 6,11;"\c\d";AT 6,17;"\c\d\c\d";AT 6,23;"\c\d\c\d\c\d";AT 7,7;"\a\b";AT 8,7;"\c\d" 1052 PRINT AT 9,1;"\a\b\a\b";AT 9,7;"\a\b\a\b\a\b";AT 9,19;"\a\b\a\b\a\b";AT 9,27;"\a\b\a\b";AT 10,1;"\c\d\c\d";AT 10,7;"\c\d\c\d\c\d";AT 10,19;"\c\d\c\d\c\d";AT 10,27;"\c\d\c\d";AT 11,3;"\a\b";AT 12,3;"\c\d" 1053 PRINT AT 13,3;"\a\b\a\b\a\b";AT 13,11;"\a\b\a\b";AT 13,17;"\a\b\a\b\a\b\a\b\a\b\a\b";AT 14,3;"\c\d\c\d\c\d";AT 14,11;"\c\d\c\d";AT 14,17;"\c\d\c\d\c\d\c\d\c\d\c\d";AT 15,7;"\a\b";AT 16,7;"\c\d" 1054 PRINT AT 17,3;"\a\b";AT 17,7;"\a\b";AT 17,11;"\a\b";AT 17,19;"\a\b\a\b\a\b";AT 17,27;"\a\b";AT 18,3;"\c\d";AT 18,7;"\c\d";AT 18,11;"\c\d";AT 18,19;"\c\d\c\d\c\d";AT 18,27;"\c\d";AT 19,3;"\a\b";AT 20,3;"\c\d" 1055 PRINT PAPER 0; INK 7;AT 15,27;"\q\r";AT 16,27;"\s\g";AT 9,13;"\q\r";AT 10,13;"\s\g": LET ay=1: LET ax=21: RETURN 1060 PRINT AT 3,1;"\a\b\a\b";AT 3,7;"\a\b";AT 3,11;"\a\b";AT 3,19;"\a\b\a\b\a\b\a\b\a\b\a\b";AT 4,1;"\c\d\c\d";AT 4,7;"\c\d";AT 4,11;"\c\d";AT 4,19;"\c\d\c\d\c\d\c\d\c\d\c\d" 1061 PRINT AT 5,3;"\a\b\a\b\a\b\a\b\a\b";AT 5,19;"\a\b\a\b\a\b\a\b\a\b\a\b";AT 6,3;"\c\d\c\d\c\d\c\d\c\d";AT 6,19;"\c\d\c\d\c\d\c\d\c\d\c\d";AT 7,7;"\a\b";AT 8,7;"\c\d" 1062 PRINT AT 9,1;"\a\b\a\b";AT 9,7;"\a\b";AT 9,11;"\a\b\a\b";AT 9,19;"\a\b";AT 9,23;"\a\b";AT 9,27;"\a\b";AT 10,1;"\c\d\c\d";AT 10,7;"\c\d";AT 10,11;"\c\d\c\d";AT 10,19;"\c\d";AT 10,23;"\c\d";AT 10,27;"\c\d" 1063 PRINT AT 11,19;"\a\b";AT 11,23;"\a\b";AT 11,27;"\a\b";AT 12,19;"\c\d";AT 12,23;"\c\d";AT 12,27;"\c\d" 1064 PRINT AT 13,3;"\a\b\a\b\a\b\a\b\a\b";AT 13,19;"\a\b";AT 13,23;"\a\b";AT 13,27;"\a\b";AT 14,3;"\c\d\c\d\c\d\c\d\c\d";AT 14,19;"\c\d";AT 14,23;"\c\d";AT 14,27;"\c\d" 1065 PRINT AT 15,19;"\a\b";AT 15,23;"\a\b";AT 15,27;"\a\b";AT 16,19;"\c\d";AT 16,23;"\c\d";AT 16,27;"\c\d" 1066 PRINT AT 17,1;"\a\b\a\b";AT 17,7;"\a\b";AT 17,11;"\a\b\a\b";AT 17,17;"\a\b\a\b";AT 17,23;"\a\b";AT 17,27;"\a\b";AT 18,1;"\c\d\c\d";AT 18,7;"\c\d";AT 18,11;"\c\d\c\d";AT 18,17;"\c\d\c\d";AT 18,23;"\c\d";AT 18,27;"\c\d" 1069 PRINT PAPER 0; INK 7;AT 11,7;"\q\r";AT 12,7;"\s\g";AT 1,21;"\q\r";AT 2,21;"\s\g";AT 17,21;"\q\r";AT 18,21;"\s\g";AT 7,29;"\q\r";AT 8,29;"\s\g": LET ay=1: LET ax=17: RETURN 1070 PRINT AT 3,3;"\a\b\a\b\a\b\a\b\a\b\a\b";AT 3,19;"\a\b";AT 3,23;"\a\b";AT 3,27;"\a\b";AT 4,3;"\c\d\c\d\c\d\c\d\c\d\c\d";AT 4,19;"\c\d";AT 4,23;"\c\d";AT 4,27;"\c\d" 1071 PRINT AT 5,3;"\a\b\a\b\a\b\a\b\a\b\a\b";AT 5,19;"\a\b\a\b\a\b";AT 5,27;"\a\b\a\b";AT 6,3;"\c\d\c\d\c\d\c\d\c\d\c\d";AT 6,19;"\c\d\c\d\c\d";AT 6,27;"\c\d\c\d";AT 7,7;"\a\b";AT 8,7;"\c\d" 1072 PRINT AT 9,3;"\a\b";AT 9,7;"\a\b";AT 9,11;"\a\b";AT 9,17;"\a\b\a\b";AT 9,23;"\a\b\a\b\a\b";AT 10,3;"\c\d";AT 10,7;"\c\d";AT 10,11;"\c\d";AT 10,17;"\c\d\c\d";AT 10,23;"\c\d\c\d\c\d" 1073 PRINT AT 11,3;"\a\b";AT 11,7;"\a\b";AT 11,11;"\a\b";AT 12,3;"\c\d";AT 12,7;"\c\d";AT 12,11;"\c\d" 1074 PRINT AT 13,3;"\a\b";AT 13,7;"\a\b";AT 13,11;"\a\b";AT 13,19;"\a\b\a\b\a\b";AT 13,27;"\a\b\a\b";AT 14,3;"\c\d";AT 14,7;"\c\d";AT 14,11;"\c\d";AT 14,19;"\c\d\c\d\c\d";AT 14,27;"\c\d\c\d" 1075 PRINT AT 15,3;"\a\b";AT 15,11;"\a\b";AT 16,3;"\c\d";AT 16,11;"\c\d";AT 17,3;"\a\b\a\b\a\b\a\b\a\b";AT 18,3;"\c\d\c\d\c\d\c\d\c\d" 1079 PRINT AT 17,17;"\a\b";AT 18,17;"\c\d": PRINT INK 7; PAPER 0;AT 7,29;"\q\r";AT 8,29;"\s\g";AT 17,21;"\q\r";AT 18,21;"\s\g";AT 17,25;"\q\r";AT 18,25;"\s\g";AT 17,29;"\q\r";AT 18,29;"\s\g": LET ay=1: LET ax=1: RETURN 9998 GO TO 30