Atari 8-bit Source code

5 REM BUSY CONSTRUCTION
6 REM BY DU WON KANG
7 REM WRITTEN FOR ANTIC MAGAZINE
8 REM THIS PROGRAM WAS OBTAINED FROM ANTIC'S PUBLIC DOMAIN DISK #PD034. ALTHOUGH IT BEARS [C]
9 REM NOTICE,​ IT HAS BEEN OFFERED FOR SALE THROUGH ANTIC'S CATALOG AS PUBLIC DOMAIN AND THEREFORE IS!
10 GOSUB 980:​READ I1,​I2,​I3,​I4,​I5,​I6,​I8,​I10,​I20,​I32,​I177,​I255,​G100,​G910,​G960,​P559,​P53279
15 DATA 1,​2,​3,​4,​5,​6,​8,​10,​20,​32,​177,​255,​100,​910,​960,​559,​53279
20 DIM H(I10),​V(I10),​A$(I32+I3):​GRAPHICS 17:​GOSUB 980:​IF PEEK(39642)=33 THEN GOTO I10*I4
30 POSITION I4,​I10-I1:​? #I6;"initializing":​CH=(PEEK(G100+I6)-I8)*256
35 FOR L=O TO 1023:​BYTE=PEEK(57344+L):​POKE CH+L,​BYTE:​NEXT L:​N1=63:​RESTORE 10100:​GOSUB G100*G100:​N=O
40 RST=1500:​GOSUB G100*I10:​POKE 709,​206:​POSITION I2,​I1:​? #I6;"busy":​RESTORE 47
45 READ CR,​PL,​PL1:​COLOR CR:​PLOT PL,​PL1:​IF CR THEN 45
47 DATA 177,​2,​2,​177,​2,​4,​177,​5,​2,​177,​5,​4,​110,​8,​3,​177,​11,​8,​177,​15,​6,​177,​15,​8,​115,​4,​7,​114,​8,​7
48 DATA 176,​10,​11,​177,​14,​10,​177,​14,​12,​110,​17,​11,​1,​15,​5,​0,​0,​0
50 DL1=I5:​DL2=17:​GOSUB 900:​POSITION I8,​I10+I4:​? #I6;"":​POSITION I10+I2,​I10+I5:​? #I6;"Du Won Kang"
55 POKE 712,​140:​POKE 710,​O:​POKE 708,​O:​POKE P559,​I32+I2:​DL1=I4:​DL2=I10+I8:​GOSUB 900
57 POKE 85,​I6:​? #I6;"COPYRIGHT (C) 1984 by ANTIC"
60 A$="press  to start game ":​FOR L=I1 TO 19:​POSITION I20-L,​I20+I2:​? #I6;A$(I1,​L):​GOSUB 85:​NEXT L
70 FOR L=I1 TO 35:​POSITION O,​I20+I2:​IF L<17 THEN ? #I6;A$(L,​I20-I1+L):​GOTO I10*I8
75 POSITION O,​I20+I2:​? #I6;A$(L,​35);A$(I1,​L-16)
80 GOSUB 85:​NEXT L:​GOTO 70
85 FOR D=I1 TO I10:​IF PEEK(53264) THEN NEXT D:​RETURN
87 IF PEEK(712)=O THEN RUN
90 GRAPHICS 17:​GOSUB 980:​POKE P559,​O:​POKE 709,​206:​MAZE=I1:​MEN=I3:​X1=I1:​Y1=I20:​EL=I20-I1:​N1=1500
95 POKE 77,​O:​POKE 764,​255:​POKE 756,​154:​POKE 82,​O:​POKE 201,​I20+I1:​POKE 752,​I1:​DL1=I2:​DL2=25:​GOSUB 900:​GOTO 290
100 IF Y1=I20+I2 THEN 270
105 TRAP 260:​ST=PEEK(54016):​IF ST<>251 AND ST<>247 THEN X=O:​W=O:​CH=I1:​GOTO 130
110 X=-I1:​CH=I2:​IF ST=247 THEN X=I1:​CH=I4
120 W=W+I1:​IF W=I2 THEN W=O
130 LOCATE X1,​Y1+I1,​LO1:​Y=O:​IF LO1=I32 OR LO1<16 OR LO1=19 THEN Y=I1:​IF FALL=O THEN X=O
140 IF FALL=I1 THEN FALL=O:​IF Y=I1 THEN Y=O:​GOTO 170
150 JUMP=PEEK(53264):​IF JUMP=O AND Y=O THEN LOCATE X1+X,​Y1-I1,​LO:​IF LO=I32 OR LO<16 THEN POKE 77,​O:​Y=-I1:​FALL=I1
160 IF X OR FALL=I1 THEN SOUND O,​I4,​O,​I5:​SOUND O,​O,​O,​O
170 LOCATE X1,​Y1+Y,​LO:​IF LO>I10+I5 AND LO<>I32 AND LO<>19 THEN Y=O
175 LOCATE X1+X,​Y1+Y,​LO:​IF LO>I10+I3 AND LO<>I32 THEN X=O
180 IF X OR Y THEN COLOR I32:​PLOT X1,​Y1:​X1=X1+X:​Y1=Y1+Y
190 COLOR CH+W:​PLOT X1,​Y1:​N1=N1-I1:​P=PEEK(53770):​POSITION I10,​I20+I3:​? #I6;N1;" ";
193 IF N1<G100 THEN POKE 87,​O:​POSITION I32+I1,​I10+I1:​? #I6;" ":​POKE 87,​I1:​POKE 710,​P:​IF N1=O THEN 270
195 IF PEEK(764)=33 AND PEEK(53264) THEN GOSUB 920:​GOTO G100
197 IF PEEK(764)=28 THEN RUN
200 IF ST=253 AND Y=O AND LO1>15 AND LO1<>32 AND TNT>O AND TNT5=O THEN TNT5=I1:​TNT=TNT-I1:​COLOR I32:​PLOT 14+TNT,​I1
205 IF TNT5=I1 THEN 210
207 GOTO 250
210 C=C+I1:​IF C<I4 THEN CR=I10+I4:​IF C=I1 THEN A1=X1:​B1=Y1
215 LOCATE A1,​B1,​LO:​IF (LO<I10+I4 OR LO>I10+I5) AND LO>I5 AND LO<>I32 THEN C=I6
217 LOCATE A1,​B1+I1,​LO:​IF C>I3 THEN CR=I10+I5
220 IF C=I6 OR LO=I32 THEN TNT5=O:​C=O:​CR=I32:​COLOR I20+I3:​PLOT A1,​B1:​SOUND I2,​I10*I5,​I8,​I5:​D1=I10:​GOSUB G910
225 COLOR CR:​PLOT A1,​B1:​IF C THEN 250
230 SOUND I2,​O,​O,​O:​IF (B1=Y1 OR B1=Y1+I1) AND A1<X1+I3 AND A1>X1-I3 THEN 270
235 IF (B1<>V1 AND B1<>V1+I1) OR A1>H1+I1 OR A1<H1-I1 THEN 250
240 STUN=O:​PL=I32:​IF MAZE=I1 THEN GOSUB 480:​GOTO 250
245 IF MAZE=I2 THEN GOSUB 670:​GOTO G100
250 ON MAZE GOTO G100*I3,​G100*I5,​700
260 IF X1>I10+I8 THEN X1=O:​MAZE=MAZE+I1:​GOTO 290
265 IF X1<I10+I1 THEN X1=I20-I1:​MAZE=MAZE-I1:​GOTO 290
270 MAZE=I1:​NAIL1=O:​COLOR 160+CH:​PLOT X1,​Y1:​IF N1=O THEN RST=I6:​GOSUB G960:​MEN=O:​GOTO 280
275 IF Y1=I20+I2 THEN COLOR I32:​PLOT X1,​Y1:​RST=I1:​GOSUB G960:​GOTO 280
277 RST=I2:​GOSUB G960
280 R=INT(RND(0)*240)+I10:​FOR L=O TO 15:​POKE 710,​48+L/2.5:​SOUND O,​R,​I10,​L:​NEXT L:​SOUND O,​O,​O,​O
285 X1=I1:​Y1=EL+I1:​D1=G100+G100:​GOSUB 910:​IF MEN=I1 THEN RST=I3:​GOSUB G960:​GOSUB G910
287 IF MEN=O THEN RST=I4:​GOSUB G960:​D1=G100*I3:​GOSUB G910:​POKE P559,​O:​? #I6;CHR$(125):​GOTO 3000
290 POP:​TNT5=O:​C=O:​A$="     ":​POKE 710,​148:​POKE 764,​I255:​ON MAZE GOTO 490,​690,​890
300 IF X1>I1 OR X<>-I1 OR EL+I1<>Y1 THEN 330
310 CH=31:​IF Y1=I5 THEN FOR Y1=I5 TO I20-I1:​POSITION O,​Y1-I1:​? #I6;" ":​GOSUB 395:​NEXT Y1:​EL=I20-I1:​GOTO 330
320 IF Y1=I20 THEN FOR Y1=18 TO I4 STEP -I1:​POSITION O,​Y1+I3:​? #I6;" ":​POKE 84,​Y1:​GOSUB 395:​NEXT Y1:​EL=I4:​Y1=I5
330 IF P>210 THEN 370
340 H5=INT((V1-I1)/I5)*I2+I1:​CR=I32
345 IF V1=Y1 OR V1-I1=Y1 OR (V1+I4>Y1 AND V1<Y1) OR (V1+I4=Y1 AND Y=O) THEN CR=I177
350 IF H5>I8 OR H5<I1 THEN D1=I5:​GOSUB G910:​GOTO G100*I4
355 IF (H=I1 AND H(H5)<H1) OR (H=-I1 AND H(H5+I1)<H1) OR H(H5+I1)=H1 THEN H5=H5+I1
360 IF V1>17 AND H1<I10+I2 AND H2=-I1 THEN H5=I8-I1:​CR=I32
365 LOCATE H(H5),​V(H5),​LO:​IF LO>I10+I5 AND LO<>CR THEN COLOR CR:​PLOT H(H5),​V(H5):​POKE P53279,​O
367 GOTO G100*I4
370 H5=INT(RND(O)*I8)+I1:​LOCATE H(H5),​V(H5),​LO:​CR=I32:​IF LO=I32 THEN CR=I177
380 GOTO 360
395 ? #I6;"":​? #I6;"";CHR$(I32-CH):​? #I6;"":​POKE P53279,​O:​RETURN
400 IF V1=22 THEN GOSUB 480:​GOTO 450
403 C1=C1+H2:​IF C1>I3 AND H2=I1 THEN C1=O
405 IF C1<I1 AND H2=-I1 THEN C1=I3
407 IF X1=H1 AND Y1=V1 THEN 440
410 LOCATE H1,​V1+I1,​LO:​IF LO=I32 OR LO<I10+I6 THEN V=I1:​H=O:​GOTO 430
415 IF H=O THEN H=H2
420 V=O:​LOCATE H1+H,​V1,​LO:​IF LO<>I32 AND LO>I10+I5 THEN H=H*-I1:​H2=H
430 COLOR I32:​PLOT H1,​V1:​H1=H1+H:​V1=V1+V
440 COLOR I8+C1:​PLOT H1,​V1:​IF X1=H1 AND Y1=V1 THEN 270
450 LOCATE TNT1,​TNT2,​LO:​IF LO>I5 AND LO<I10+I2 AND TNT5=O THEN TNT5=I1:​C=I8-I1:​A1=TNT1:​B1=TNT2
455 IF (LO<I6 OR LO=I32) AND TNT=I3 THEN GOSUB 935:​GOTO G100
460 IF LO<>I10+I3 THEN GOSUB 930:​IF LO<I6 THEN TNT=TNT+I1:​GOSUB G960+I10
470 GOTO G100
480 COLOR I32:​PLOT H1,​V1:​H2=I1:​H1=I1:​V1=O:​COLOR I8+C1:​PLOT H1,​V1:​RETURN
490 RST=1100:​GOSUB G100*I10:​POSITION O,​EL:​CH=O:​GOSUB 395:​POKE P559,​I32+I2:​X=O:​IF TNT1 THEN GOSUB 935
493 IF X1<>I1 OR Y1<>EL+I1 THEN 497
495 COLOR I20+I2:​PLOT X1,​Y1:​SOUND O,​I8-I1,​I2,​I5:​D1=I10:​GOSUB G910:​MEN=MEN-I1:​COLOR I32:​PLOT I3+MEN,​I1
497 RESTORE 2100:​FOR L=I1 TO I8:​READ PL,​PL1:​H(L)=PL+I1:​V(L)=PL1:​NEXT L
499 SOUND O,​O,​O,​O:​H2=I1:​H1=I1:​V1=O:​GOSUB 480:​GOTO 450
500 IF V1=I20+I2 THEN COLOR I32:​PLOT H1,​V1:​GOSUB 677:​D1=I5:​GOSUB G910:​GOTO 590
505 LOCATE H1,​V1,​LO:​IF LO<>I10+I2 THEN GOSUB 670
507 LOCATE H1,​V1+I1,​LO:​IF LO=I32 OR LO<I10+I6 THEN H2=O:​D1=I6:​GOSUB G910:​GOTO 680
510 IF P>215 AND H2=O THEN H5=INT(RND(O)*I4)+I1:​H2=I1:​H=I1:​IF P>235 THEN H=-I1
515 IF P>128 AND H2=O THEN H5=INT((Y1-I1)/I5)+I1:​H=(H(H5)<X1)-(H(H5)>X1):​H2=I1:​IF H=O THEN H2=O:​GOTO G100
520 IF H2<I6 AND H2>O THEN H2=H2+I1:​GOTO 550
540 H5=V1/I5:​H=(H(H5)<H1)-(H(H5)>H1):​H2=I10
550 LOCATE H(H5),​V(H5)-I1,​LO:​LOCATE H(H5),​V(H5),​LO1:​IF LO<>I32 OR LO1<>I32 THEN 590
560 IF H(H5)+H<I5 OR H(H5)+H>I10+I2 THEN H=H*-I1
570 H(H5)=H(H5)+H:​POSITION H(H5)-I2,​V(H5):​? #6;A$(I1,​I5):​POKE P53279,​O
590 IF X1<>I10+I6 THEN Y2=Y1
600 IF X1<>I10+I6 OR Y1<I20-I1 THEN GOTO G100
610 COLOR I20+I1:​PLOT I10+I6,​Y1+I1:​D1=I10:​GOSUB G910:​D1=O:​GOSUB 660:​GOSUB 655
620 IF Y1>Y2+I1 THEN GOSUB 652:​D1=D1+I2:​GOTO 620
630 Y2=Y2+I1:​O=I1:​IF PEEK(54016)=247 THEN O=-I1
635 IF PEEK(54016)=I255 THEN O=0
640 D1=I20:​GOSUB 652:​I1=0:​GOSUB 650:​O=0:​I1=1:​GOTO G100*I5
650 LOCATE X1-O,​Y1,​LO:​IF LO<>I32 THEN RETURN
652 COLOR I32:​PLOT X1,​Y1
655 X1=X1-O:​Y1=Y1-I1:​COLOR 1:​PLOT X1,​Y1:​GOSUB G910:​RETURN
660 COLOR I20-I1:​PLOT I10+I6,​I20-I1:​COLOR I20:​PLOT I10+I6,​I20:​RETURN
670 IF LO<>I10+I2 AND NAIL=I2 THEN COLOR I10+I2:​PLOT H1,​V1:​GOTO 507
675 IF LO<I6 THEN NAIL=NAIL+I1:​GOSUB G960+I10
677 H1=INT(RND(O)*I8)+I5:​V1=I2:​D1=I5:​RETURN
680 COLOR I32:​PLOT H1,​V1:​V1=V1+I1:​COLOR I10+I2:​PLOT H1,​V1:​IF LO<I6 THEN 270
685 GOTO 590
690 I177=I32:​RST=1200:​GOSUB G100*I10:​I177=177:​GOSUB 660:​V1=I2:​FOR L=I1 TO I4:​H(L)=INT(RND(O)*I8)+I5:​V(L)=L*I5+I1
695 POSITION H(L)-I2,​V(L):​? #I6;A$(I1,​I5):​NEXT L:​POKE P559,​I32+I2:​GOSUB 677:​GOTO 590
700 LOCATE H1,​V1+I1,​LO1:​V=O:​IF (LO1=I32 OR LO1<I10+I6) AND JUP=O THEN W1=O:​H=O:​V=I1:​D1=I10:​GOSUB G910:​GOTO 787
705 IF JUP=I1 THEN JUP=O:​V=O:​W1=O:​D1=I10:​GOSUB G910:​GOTO 785
710 IF STUN<I6 THEN COLOR PL:​PLOT H1,​V1-I1:​D1=I10:​GOSUB G910:​COLOR I32:​PLOT H1,​V1-I1:​STUN=STUN+I1:​W1=O:​GOTO 795
713 FAL=I1:​H5=O:​IF V1/I5=INT(V1/I5) THEN H5=I1
715 IF V1=I5 OR (V1<I10+I6 AND V1>I10) THEN H=I1:​H2=I1
717 IF (V1<I10+I1 AND V1>I5) OR (V1<I20+I1 AND V1>I10+I5) THEN H=-I1:​H2=-I1
720 IF (V1=Y1 OR V1=Y1+I1) AND H5 THEN 750
725 IF V1>Y1 AND (V1<>I6 OR X1<I10-I1) THEN 760
730 IF V1=Y1 OR V1=Y1+I1 OR (V1=Y1-I1 AND LO1=17) THEN 750
735 IF V1<I10 AND X1>I10-I1 AND Y1<11 THEN H=I1:​GOTO 765
740 H=H2:​LOCATE H1+H,​V1,​LO:​IF LO>I10+I5 AND LO<>I32 THEN H=H2*-I1
742 IF (V1+I4>Y1 AND V1<Y1) OR (V1+I4=Y1 AND LO1=49) THEN 765
743 IF P>G100 THEN FAL=O
745 GOTO 765
750 H=(H1<X1)-(H1>X1):​GOTO 765
760 H=H2*-I1:​IF (V1-I1)/I5=INT((V1-I1)/I5) THEN LOCATE H1+H,​V1-I1,​LO:​IF LO>I5 THEN H=H2:​JUP=I1
765 LOCATE H1+H,​V1,​LO:​IF LO>I10+I5 AND LO<>I32 AND LO1<>17 THEN V=-I1:​GOTO 775
770 LOCATE H1+H,​V1+I1,​LO:​IF (LO=I32 OR LO<I6) AND FAL=I1 AND H5 AND H1<>I10 AND LO1=I177 THEN JUP=I1
775 IF H3 AND H AND H5 AND H3<>H THEN STUN=I4:​PL=I20+I3:​GOTO G100
780 IF JUP=I1 THEN V=-I1:​W1=O
785 LOCATE H1+H,​V1+V,​LO:​IF LO<>I32 AND LO>I10+I5 THEN H=O
787 IF H1=X1 AND V1=Y1 THEN 797
790 COLOR I32:​PLOT H1,​V1:​H1=H1+H:​V1=V1+V:​IF JUP OR W1 THEN SOUND I1,​I10,​I10,​I5:​SOUND I1,​O,​O,​O
795 COLOR I6+W1:​PLOT H1,​V1:​W1=W1+I1:​H3=H:​IF W1=I2 THEN W1=O
797 IF H1=X1 AND V1=Y1 THEN 270
800 IF X1=I10+I3 AND Y1=I10-I1 AND NAIL AND NAIL1=O THEN NAIL1=I1:​NAIL=NAIL-I1:​COLOR I32:​PLOT I8+I1+NAIL,​I1
805 IF NAIL1 THEN POSITION I10+I3,​I10-I1:​? #I6;A$(I20+I4,​29)
807 IF NAIL1=O OR Y1<I10 OR (H1=I10+I3 AND V1=I10-I1) THEN GOTO G100
810 NAIL1=O:​FOR L=I10 TO I3 STEP -I1:​IF L>I3 THEN POSITION I10+I3,​L-I2:​? #I6;A$(I20+I4,​29)
820 POSITION I10+I3,​L:​? #I6;A$(I10+I8,​23):​POSITION I10+I3,​L-I1:​? #I6;A$(I6,​I10+I1):​POKE P53279,​O:​NEXT L
825 POSITION 13,​I2:​? #I6;A$(18,​23):​POKE 710,​42:​FOR L=G100 TO O STEP -I1:​SOUND O,​L,​I10,​I5:​NEXT L:​N=N+I1:​GOSUB 950
827 POKE 710,​148:​IF N=I10 THEN RST=I5:​GOSUB G960:​D1=G100*I3:​GOSUB G910:​POKE P559,​O:​? #I6;CHR$(125):​GOTO 3000
830 FOR L=I2 TO I10:​IF L>I2 THEN COLOR I32:​PLOT I10+I8,​L-I2:​POSITION I10+I3,​L-I1:​? #I6;A$(I10+I2,​17)
840 POSITION I10+I3,​L:​? #I6;A$(I6,​I10+I1):​POKE P53279,​O:​NEXT L:​GOTO G100
890 RST=1300:​GOSUB G100*I10:​POSITION I10+I3,​I10:​? #I6;A$(I6,​I10+I1):​H1=I6:​V1=I10:​COLOR I6:​PLOT H1,​V1
895 COLOR I10+I2:​PLOT I10+I8,​I8+I1:​POKE P559,​I32+I2:​H=O:​STUN=I4:​PL=I20+I3:​GOTO 250
900 DL=PEEK(560)+PEEK(561)*256+I3:​POKE DL+DL2,​DL1:​RETURN
910 FOR D=O TO D1:​NEXT D:​RETURN
920 IF PEEK(764)=33 AND PEEK(53264) THEN 920
925 POKE 764,​I255:​RETURN
930 TNT2=(INT(RND(O)*I4)+I1)*I5:​TNT1=I10
935 COLOR I10+I3:​PLOT TNT1,​TNT2:​RETURN
940 POKE 708,​46:​FOR L=I10+I5 TO O STEP -I1:​SOUND O,​I10*I5,​I10,​L:​NEXT L:​POKE 708,​I10*I4:​RETURN
950 POKE 87,​O:​POSITION I20+I4,​I10+I1:​? #I6;"TIME:​ ";N1,​"FLOORS:​ ";N;" ":​POKE 87,​I1:​RETURN
960 POKE 87,​O:​RESTORE G960+RST:​READ A$:​POSITION 22,​11:​? #I6;A$;" ":​POKE 87,​I1:​RETURN
961 DATA YOU FELL OFF THE BUILDING.
962 DATA ***YOUR HIT***
963 DATA THIS IS YOUR LAST MAN.
964 DATA ***GAME OVER***
965 DATA YOU WON - ***CONGRADULATIONS***
966 DATA 
970 GOSUB 940
971 IF MEN THEN COLOR 33:​PLOT I3,​I1:​DRAWTO I2+MEN,​I1
973 IF NAIL THEN COLOR 44:​PLOT I8+I1,​I1:​DRAWTO I8+NAIL,​I1
975 IF TNT THEN COLOR 45:​PLOT I10+I4,​I1:​DRAWTO I10+I3+TNT,​I1
977 RETURN
980 POKE I10+I6,​64:​POKE 53774,​64:​RETURN
1000 POKE P559,​O:​? #I6;CHR$(125):​POKE 756,​154:​COLOR CH:​PLOT X1,​Y1:​RESTORE RST:​IF MAZE=O THEN 1050
1010 POSITION I3,​O:​? #I6;"men";:​POKE 85,​I8:​? #I6;"nail";:​POKE 85,​I10+I4:​? #I6;"tnt":​GOSUB 960-I10:​GOSUB 971
1050 READ CR,​PL,​PL1,​DT,​DT1:​IF CR=-I1 THEN RST=RST+G100*I10:​RESTORE RST:​GOTO G100*I20
1060 COLOR CR:​PLOT PL,​PL1:​DRAWTO DT,​DT1:​GOTO 1050
1100 DATA 144,​0,​0,​0,​22,​145,​2,​6,​16,​6,​145,​5,​11,​19,​11,​145,​2,​16,​16,​16,​145,​2,​21,​19,​21
1110 DATA 145,​19,​6,​15,​10,​145,​2,​11,​6,​15,​145,​19,​16,​15,​20,​145,​1,​3,​3,​3,​-1
1200 DATA 145,​0,​6,​19,​6,​145,​0,​11,​19,​11,​145,​3,​16,​19,​16,​145,​0,​21,​19,​21,​145,​0,​16,​4,​20,​-1
1300 DATA 146,​19,​0,​19,​22,​145,​0,​6,​8,​6,​145,​3,​11,​18,​11,​145,​0,​16,​15,​16,​145,​0,​21,​18,​21
1310 DATA 145,​11,​6,​7,​10,​145,​0,​11,​4,​15,​145,​18,​16,​14,​20,​24,​14,​2,​14,​9,​24,​17,​2,​17,​9,​-1
1500 DATA 176,​1,​2,​1,​4,​176,​4,​2,​4,​4,​178,​6,​2,​6,​4,​177,​5,​6,​7,​6,​176,​6,​7,​6,​8,​176,​10,​6,​10,​8,​178,​12,​6,​12,​8,​176,​14,​6,​14,​8
1510 DATA 177,​5,​10,​7,​10,​176,​6,​11,​6,​12,​177,​9,​10,​11,​10,​177,​9,​12,​11,​12,​176,​13,​10,​13,​12,​178,​15,​10,​15,​12,​-1
2000 READ PL,​PL1:​IF PL=-I1 THEN RETURN
2010 COLOR I177:​PLOT PL,​PL1:​PLOT PL+2,​PL1:​COLOR I32:​PLOT PL+1,​PL1:​GOTO 2000
2100 DATA 7,​6,​12,​6,​7,​11,​12,​11,​7,​16,​12,​16,​7,​21,​12,​21,​17,​21,​-1
2200 DATA 15,​11,​15,​16,​-1
2300 DATA 5,​6,​4,​11,​8,​11,​12,​16,​11,​21,​-1
2500 DATA -1
3000 POKE 710,​148:​COLOR 144:​PLOT I1,​I2:​DRAWTO I1,​I10+I3:​COLOR 146:​PLOT I4,​I2:​DRAWTO I4,​I10+I3
3010 FOR L=O TO I10:​COLOR I20+I6+INT(RND(O)*I2):​PLOT L,​I10+I4:​NEXT L:​POSITION I5,​I2:​? #I6;" tenth floor"
3020 POSITION I5,​I3:​? #I6;"your goal":​POSITION I5,​I10+I3:​? #I6;"ground":​POKE P559,​I32+I2
3030 GOSUB 950:​COLOR 145:​POSITION O,​17:​IF N=I10 THEN ? #I6;"  ***you win***":​GOTO 3050
3040 ? #I6;" ***try again***"
3050 FOR L=I10+I2 TO I10+I2-N STEP -I1:​PLOT I2,​L:​PLOT I3,​L:​COLOR 17:​NEXT L:​COLOR I1:​PLOT I2,​L:​GOTO I10*I6
10000 N1=N1+I1:​N=N1*I8:​FOR L=O TO I8-I1:​READ BYTE:​IF BYTE=-I1 THEN RETURN
10010 POKE CH+N+L,​BYTE:​NEXT L:​GOTO G100*G100
10100 DATA 0,​0,​0,​0,​0,​0,​0,​0,​56,​84,​124,​56,​16,​40,​40,​238,​24,​44,​252,​56,​8,​148,​82,​47,​24,​44,​252,​56,​12,​10,​12,​56
10105 DATA 24,​52,​63,​8,​16,​41,​74,​244,​24,​52,​63,​28,​48,​80,​48,​28
10110 DATA 56,​254,​56,​56,​16,​16,​16,​56,​56,​254,​56,​56,​16,​56,​0,​0
10120 DATA 0,​56,​84,​146,​146,​146,​84,​56,​0,​56,​68,​138,​146,​162,​68,​56,​0,​56,​68,​130,​254,​130,​68,​56,​0,​56,​68,​162,​146,​138,​68,​56
10130 DATA 0,​0,​0,​0,​56,​16,​16,​16,​12,​22,​22,​22,​22,​38,​6,​6,​12,​22,​22,​22,​86,​166,​70,​6,​12,​22,​46,​22,​6,​6,​6,​6
10140 DATA 35,​37,​41,​49,​49,​41,​37,​35,​255,​24,​36,​66,​129,​255,​0,​0,​140,​148,​164,​196,​196,​164,​148,​140
10150 DATA 255,​4,​24,​32,​4,​24,​32,​4,​24,​32,​4,​24,​32,​4,​24,​32,​255,​60,​60,​60,​60,​60,​60,​60
10160 DATA 16,​96,​64,​112,​28,​4,​12,​16,​0,​0,​0,​16,​16,​146,​68,​0
10170 DATA 16,​16,​56,​40,​40,​40,​56,​16,​255,​24,​60,​106,​169,​255,​56,​16
10180 DATA 24,​100,​131,​0,​0,​0,​0,​0,​8,​214,​33,​0,​0,​0,​0,​0,​-1	

• Download link 1

• Download link 1