10 REM    SUPERHERO
20 REM    BY J.C.HILTY
30 REM    1036 BARNSLEY DR.
40 REM    LIBRARY,PA.,15129
100 PRINT"[147]"
102 SR=0:ALT=000
103 Q=192:L=1141:C=28:CM=54272:M=0
105 V=53248:O=54272
108 POKE 52,48:POKE 56,48
110 POKE 53281,6:POKE 53280,2
120 PRINT""TAB(5)"       [223]"
130 PRINT TAB(5)"        [223]"
140 PRINT TAB(5)"[144]  [158]        [223][146] [144]  [223][144]   [223][144]   [223][144]   [223]"
150 PRINT TAB(5)"[144]  [158]       [144]  [223][144]   [144]     [144]    [144]   [223]"
160 PRINT TAB(5)"[144]  [158]     [144]   [158]  [144]  [158]  [144] [158]   [144] [158]   [144] [158]   "
170 PRINT TAB(5)"[144][223] [158]       [144] [158]  [144]  [158]  [144] [158] [144] [158] [144] [158]  [144]  [158] [144] [158] "
180 PRINT TAB(6)"[144][223][158]       [144] [158]  [144]  [158]  [144] [158]   [144] [158] [146] [144]  [158]   [144][223]"
190 PRINT TAB(10)"[144]  [158]  [144] [158]  [144]  [158]  [144] [158] [146] [144][223] [158]   [146][144][223][158] [146] [144][223][158] "
200 PRINT TAB(5)"[144]     [144]  [158]  [144] [158]      [146][144][223][158] "
210 PRINT TAB(5)"[144]      [144] [158]  [146][144][223][158]      "
220 PRINT TAB(5)"[144][223] [158]       "
230 PRINT TAB(6)"[144][223][158]       [146] [144] [223][144] [223][146] [144]    [223][146] [144]   [223][146]  [144]   [223]"
240 PRINT TAB(15)"[144] [158] [144] [158] [146] [144] [158]    [146] [144] [158]   [146]  [144] [158]   "
250 PRINT TAB(15)"[144] [158] [144] [158] [146] [144] [158] [144] [223][146]   [158] [144] [158] [146]  [144] [158] [144] [158] "
260 PRINT TAB(15)"[144] [158]   [146] [144] [158]   [146]  [144] [158]   [146]  [144] [158] [144] [158] "
270 PRINT TAB(15)"[144] [158] [144] [158] [146] [144] [158] [144]  [223][146] [144] [158] [144][146][223][158]  [146] [144] [158] [144] [158] "
280 PRINT TAB(15)"[144][223][158] [146][144][223][158] [146] [144][223][158]    [146] [144][223][158] [146] [144][223][158] [146] [144][223][158]   "
290 PRINT
300 PRINT TAB(9)"SAVE THE SPACE SHUTTLE"
310 PRINT TAB(16)"PRESS ANY KEY"
320 GET A$:IF A$="" THEN 320
330 PRINT"":PRINT""  TAB(15)"PLEASE WAIT..."
340 PRINT TAB(15)"READING DATA"
370 FOR X=12288 TO 12350
380 READ A:POKE X,A:NEXT
390 FOR X=12352 TO 12414
400 READ A:POKE X,A:NEXT
410 FOR X= 12416 TO 12478
420 READ A:POKE X,A:NEXT
430 FOR X=12480 TO 12542
440 READ A:POKEX,A:NEXT
464 FOR X=828 TO 973
466 READ A:POKEX,A:NEXT
470 PRINT"[147]"
480 POKE 53280,0:POKE 53281,0
490 POKE 2040,194:POKE 2041,195
500 POKE V+39,6:POKE V+40,1
510 POKE V+0,70:POKE V+1,80:POKE V+2,70:POKE V+3,140
530 POKE V+29,3:POKE V+23,3
540 POKE V+28,1:POKE V+37,10:POKE V+38,2
550 PRINT"":PRINT"[159]"TAB(12)"GRAPHICS   CHART"
560 POKE V+21,3
570 PRINT""TAB(12)"\      SUPERHERO"
580 PRINT""TAB(18)"SPACESHUTTLE"
590 PRINT""TAB(12)"*[159]     ZYPTONITE  METEOR"
600 PRINT""TAB(14)"PRESS ANY KEY"
610 GET A$:IF A$="" THEN 610
620 PRINT"[147]":POKE V+21,0
630 POKE 53280,2:POKE 53281,0
700 DIMA(3)
710 A(0)=2:A(1)=-80:A(2)=-2:A(3)=80
720 WL=160:HL=32:SC=1024:A=SC+81
740 FOR I=1 TO 6
741 PRINT      "               [146]                        "
742 NEXT I
744 FOR I=1 TO 9
745 PRINT       "                                       "
746 NEXT I
748 FOR I=1 TO 8
750 PRINT"               [146]                        "
760 NEXT I
770 POKEA,4
780 J=INT(RND(1)*4):X=J
790 B=A+A(J):IF PEEK(B)=WLTHENPOKEB,J:POKEA+A(J)/2,HL:A=B:GOTO 780
800 J=(J+1)*-(J<3):IF J<>XTHEN790
810 J=PEEK(A):POKE A,HL:IFJ<4THENA=A-A(J):GOTO 780
820 PRINT"":PRINT""TAB(16)"[159]SCORE"
830 PRINT TAB(17);SR
831 PRINT""TAB(16)"ALT":PRINT TAB(16);ALT
832 POKE 2040,192
833 POKE V+0,150:POKE V+1,60:POKE V+2,150:POKE V+3,190
834 POKE V+21,3
840 POKE 1113,81 :POKE 1113+CM,7
842 POKE 1835,81:POKE 1835+CM,7
844 POKE 1825,81:POKE 1825+CM,7
846 POKE 1509,81:POKE 1509+CM,7
848 POKE 1599,81:POKE 1599+CM,7
850 POKE 1605,81:POKE 1605+CM,7
852 POKE 1137,81:POKE 1137+CM,7
854 POKE 1131,81:POKE 1131+CM,7
856 POKE 1857,81:POKE 1857+CM,7
858 POKE 1851,81:POKE 1851+CM,7
860 POKE 1141,28:POKE 1141+CM,3
865 POKE A,42:J=2
870 Q=Q+1:IF Q=195 THEN Q=192
871 POKE 2040,Q
872 ALT=ALT+1
873 IF ALT=800THEN3500
875 PRINT"":PRINT"[159]" TAB(16);ALT
876 B=A+A(J)/2
877 IF PEEK(B)=32THENPOKEB,42:POKEA,32:A=B:J=(J+2)+4*(J>1)
878 IF PEEK(B)=81 THEN POKE B,42:POKE A,81:POKE A+CM,7:A=B:J=(J+2)+4*(J>1)
879 IF PEEK(B)=28 THEN 3000
880 J=(J-1)-4*(J=0)
881 SYS(828):R=PEEK(254)-PEEK(253)
890 IF R=0 THEN 870
900 W=PEEK(L+R)
910 IF W=81 THEN 1500
920 IF W<>32 THEN 870
930 L=L+R:POKE L-R,32:POKE(L-R)+CM,5
940 POKE L,C:POKE L+CM,3
950 GOTO 870
1500 M=M+1:IF M=10 THEN 2500
1505 L=L+R:POKE L-R,32
1510 POKEL,C:POKEL+CM,3
1520 GOSUB 2000
1530 PRINT"":SR=SR+10:PRINT"[159]"TAB(17);SR
1540 GOTO 870
2000 FOR X=O TO 0+24:POKE X,0:NEXT
2010 POKE O,150:POKEO+1,200:POKEO+5,8:POKEO+6,248
2020 POKEO+24,15:POKEO+4,17
2030 FOR T=0TO50:NEXT
2040 POKEO+4,16
2050 FOR T=0TO50:NEXT
2060 POKEO+24,0
2070 RETURN
2100 FOR X=O TO O+24:POKEX,0:NEXT
2110 POKEO+24,15:POKEO+12,160:POKEO+13,252
2120 POKEO+8,80:POKEO+7,40:POKE O+11,129
2130 FOR T=0TO100:NEXT
2140 POKEO+11,128:RETURN
2500 PRINT"[147]"
2502 PRINT"[159]"TAB(6)"CONGRATULATIONS"
2503 PRINT"      PLAY ON!"
2504 FOR T=0 TO 3000:NEXT
2510 M=0
2520 SR=SR+100:ALT=ALT -200
2525 L=1141
2528 PRINT"[147]"
2530 GOTO 710
3000 PRINT"[147]"
3005 FOR T=1 TO 30
3010 POKE V+39,2:POKE V+39,1:POKE V+39,6
3020 NEXT
3030 GOSUB 2100
3040 PRINT"SORRY,A ZYPTONITE METEOR CRUSHED YOU."
3050 FOR T=0 TO 3000:NEXT
3060 GOTO 4000
3500 PRINT "[147]"
3510 FOR T=1 TO 20
3520 POKE V+40,2:POKE V+40,6:POKE V+40,1
3530 NEXT
3540 GOSUB 2100
3550 PRINT"[159]THE SHUTTLE IS 800 MILES UP--TOO LATE."
3560 FOR T=0 TO 3000:NEXT
3570 GOTO 4000
4000 PRINT"[147]"
4005 POKE V+21,0
4010 PRINT"S C O R E  ";SR
4020 PRINT"PLAY AGAIN---Y OR N "
4030 GET JUNK$:IF JUNK$<>""THEN 4030
4040 GET A$:IF A$=""THEN 4040
4050 IF A$="Y" THEN 4060
4055 END
4060 PRINT"[147]"
4070 M=0
4080 L=1141
4090 ALT=000
4100 SR=0
4110 GOTO 710
6240 REM MULTICOLOR SUPERHERO X3
6250 DATA 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,12,160,0
6260 DATA 48,160,0,48,160,0,48,160,0,48,128,0,192,128,0,192,192,0
6270 DATA 192,192,0,192,128,0,192,128,0,0,128,0,0,128,0,0,192,0
6280 DATA 0,192,0,0,192,0,0,240,0
6290 DATA 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,0,50,170,64,50,170,64
6300 DATA 50,160,0,56,128,0,204,128,0,196,192,0,192,192,0,194,32,0
6310 DATA 194,32,0,8,8,0,8,8,0,48,12,0,48,12,0,12,12,0,0,15,0
6320 DATA 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,64,48,171,0,48,162,0
6330 DATA 48,164,0,48,136,0,192,128,0,192,192,0,192,192,0,194,32,0
6340 DATA 194,32,0,2,32,0,2,32,0,2,32,0,3,48,0,3,48,0,3,252,0
6350 REM SPACESHUTTLE
6360 DATA 0,0,0,0,0,0,32,0,0,32,0,0,48,0,0,56,0,0
6370 DATA 63,255,192,63,255,224,61,85,48,63,255,56
6380 DATA 63,255,252,12,62,0,8,60,0,8,56,0,0,48,0
6390 DATA 0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6450 REM ML JOYSTICK ROUTINE
6460 DATA 173,1,220,74,176,40,74,74,176,11,169,0
6470 DATA 133,254,169,41,133,253,76,182,3,74,176,11,169,0,133,254,169,39
6480 DATA 133,253,76,182,3,169,0,133,254,169,40,133,253,76,182,3,74,176
6490 DATA 39,74,176,11,169,39,133,254,169,0,133,253,76,182,3,74,176,11
6500 DATA 169,41,133,254,169,0,133,253,76,182,3,169,40,133,254,169,0
6510 DATA 133,253,76,182,3,74,176,11,169,0,133,254,169,1,133,253,76,182,3
6520 DATA 74,176,11,169,1,133,254,169,0,133,253,76,182,3,169,0,133,254
6530 DATA 133,253,173,1,220,74,74,74,74,74,176,7,169,1,133,80,76,203,3
6540 DATA 169,0,133,80,96,234,234