Help Romeo get into the tower.
Content
Image Gallery
Source Code
10 PAPER 0: INK 7: BORDER 0: CLS
20 DATA 56,56,146,254,16,124,68,198
30 DATA 0,255,171,a,a,a,255,a
40 DATA 0,a,28,20,62,a,127,a
50 DATA 0,a,a,a,24,126,255,a
60 DATA 192,224,a,240,a,224,a,192
70 FOR f=0 TO 39: READ a: POKE USR "\a"+f,a: NEXT f
80 PRINT AT 4,0; INK 6;"\:: \:: \:: \::"'"\::\::\::\::\::\::\::"'"\::\::\::\::\::\::\::"
90 FOR n=7 TO 21: PRINT AT n,1; INK 6;"\::\::\::\::\::": NEXT n
100 PRINT AT 11,13; INK 4;"\':\::\::";AT 12,15;"\':";AT 13,15;"\ :";AT 14,15;"\ '";AT 18,15;"\ :";AT 19,15;"\ :";AT 20,15;"\ :";AT 21,15;"\.:"
110 FOR n=11 TO 21: PRINT AT n,16; INK 4;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::": NEXT n
120 LET x=21: LET y=8: PRINT AT 21,10;"O": PLOT 64,0: DRAW 37,16
130 PRINT AT x,y; INK 5;"\a"
140 LET h=INT (RND*11)+8
150 PRINT AT h+1,6;"\b"
160 PRINT AT 4,11;"ENTER WEIGHT";AT 5,13;"(max.14)"
170 INPUT w: IF w<=0 OR w>=15 THEN GO TO 170
180 FOR n=10 TO 20: PRINT AT n-1,12;" ";AT n,12;"\c": BEEP .1,n: NEXT n
190 PLOT 64,0: DRAW OVER 1;37,16: PLOT 64,16: DRAW 37,-16
200 FOR n=1 TO w
210 LET x=x-1
220 PRINT AT x,y;"\a";AT x+1,y;" "
230 NEXT n
240 FOR n=1 TO 2: LET y=y-1: PRINT AT x,y;"\a ": NEXT n
250 IF x=h THEN GO TO 280
260 IF x>h THEN GO TO 320
270 IF x<=h THEN PRINT AT x,y; INK 5;"\e": BEEP 1,-10: PAUSE 30: CLS : GO TO 80
280 PRINT AT x,y+1;"WELL DONE!"
290 FOR n=0 TO 40 STEP 10: BEEP .1,n: NEXT n
300 CLS
310 PAUSE 30: RUN
320 FOR n=x TO 21
330 PRINT AT n,y; INK 5;"\e";AT n-1,y;" "
340 BEEP .05,n: NEXT n
350 PRINT AT 21,y; INK 5;"\d"
360 BEEP 1,-10
370 PAUSE 30: CLS : GO TO 80
9900 OVER 0: INVERSE 0: BRIGHT 0: FLASH 0: BORDER 7: PAPER 7: INK 0: CLS
9901 LET a=PEEK 23635+256*PEEK 23636
9902 LET c=0: LET y=175: LET x=130
9903 LET l=PEEK (a+1)+256*PEEK a: LET a=a+4
9904 IF l>9900 THEN GO TO 9942
9905 PRINT l;TAB 5;CHR$ PEEK a: LET c=c+2: PRINT
9906 PLOT x,y: LET b=PEEK a
9907 IF b=226 OR b=234 OR b=242 OR b=254 THEN GO TO 9923
9908 IF b>227 AND b<231 OR b=232 OR b=235 OR b=241 OR b=247 OR b=249 OR b=253 THEN GO TO 9924
9909 IF b=243 OR b=250 THEN GO TO 9925
9910 IF b=236 OR b=237 THEN GO TO 9933
9911 DRAW 16,0: DRAW -4,-8: DRAW -28,0: DRAW 4,8: DRAW 12,0
9912 LET y=y-8
9913 IF b=226 OR b=236 OR b=237 OR b=254 THEN GO TO 9915
9914 PLOT x,y: DRAW 0,-7: DRAW 4,4: DRAW -4,-4: DRAW -4,4
9915 LET y=y-8
9916 LET b=PEEK a: IF b=34 THEN GO SUB 9951
9917 IF b=14 THEN LET a=a+4
9918 IF b=13 THEN GO TO 9921
9919 IF b=58 THEN GO TO 9939
9920 LET a=a+1: GO TO 9916
9921 IF c=20 THEN GO TO 9942
9922 LET a=a+1: GO TO 9903
9923 DRAW 12,0: DRAW 4,-8,-PI: DRAW -24,0: DRAW -4,8,-PI: DRAW 12,0: GO TO 9912
9924 DRAW 16,0: DRAW 0,-8: DRAW -32,0: DRAW 0,8: DRAW 16,0: GO TO 9912
9925 DRAW 8,-4: DRAW 8,0: DRAW -4,4: DRAW 4,-4: DRAW -4,-4: DRAW 4,4: DRAW -8,0: DRAW -8,-4: DRAW -8,4: DRAW 8,4
9926 IF b=243 THEN GO TO 9932
9927 LET a=a+1: LET f=PEEK a
9928 IF f=14 THEN LET a=a+4
9929 IF NOT f=203 THEN GO TO 9927
9930 LET a=a+1: LET f=PEEK a: PRINT AT c-2,19;CHR$ f: PRINT
9931 IF f=236 OR f=237 THEN GO TO 9934
9932 GO TO 9912
9933 CIRCLE x,y-4,4: PLOT x+4,y-4: DRAW 64,0: DRAW -4,4: DRAW 4,-4: DRAW -4,-4: PLOT x,y
9934 LET a=a+1: LET f=PEEK a
9935 IF NOT f=14 THEN GO TO 9934
9936 LET a=a+3: LET g=PEEK a+256*PEEK (a+1)
9937 PRINT AT c-2,26;g: PRINT
9938 GO TO 9912
9939 IF c=20 THEN GO TO 9942
9940 LET a=a+1: PRINT " :";TAB 5;CHR$ PEEK a: PRINT : LET c=c+2
9941 GO TO 9906
9942 INVERSE 1: PRINT AT 21,0;" PRESS ""V"" TO VIEW:""P"" TO PRINT ": INVERSE 0
9943 IF INKEY$="v" THEN GO TO 9946
9944 IF INKEY$="p" THEN GO TO 9950
9945 GO TO 9943
9946 CLS : LET d=0: LET e=22: LET c=0: LET x=130: LET y=175
9947 IF PEEK a=58 THEN GO TO 9940
9948 IF l>9900 THEN PRINT AT 20,6;"End of Basic Program": STOP
9949 LET a=a+1: GO TO 9903
9950 PRINT AT 21,0,,: COPY : GO TO 9946
9951 LET a=a+1: LET b=PEEK a: IF b=34 THEN RETURN
9952 GO TO 9951
9953 SAVE "ROMEO T" LINE 0