2019-04-15 16:31:29 +00:00
|
|
|
10
20 CLS:GOSUB 370
30 DIM A(3000):DIM B(2000):DIM X(50):DIM CN(200):DIM ANSY(100)
31 DIM DOT(100):DIM MTN(100):DIM SCR(5000)
40 GPA=0:MISS=0:TEMPU$=TIME$
100 LINE(316,96)-(312,96):LINE-(311,95):LINE-(307,95):LINE-(305,96):LINE-(297,96):LINE-(286,91):LINE-(282,93):LINE-(284,95):LINE-(281,97):LINE-(273,94):LINE-(270,90):LINE-(267,89):LINE-(264,90):LINE-(260,87):LINE-(260,86):LINE-(262,84):LINE-(262,80)
101 LINE(262,80)-(264,78):LINE-(262,79):LINE-(261,78):LINE-(257,78):LINE-(255,79):LINE-(253,78):LINE-(249,79):LINE-(246,78):LINE-(242,78):LINE-(232,81):LINE-(226,81):LINE-(224,78):LINE-(222,80):LINE-(220,83):LINE-(213,87):LINE-(212,92):LINE-(206,97)
102 LINE(206,97)-(203,98):LINE-(189,115):LINE-(190,120):LINE-(190,124):LINE-(187,131):LINE-(183,135):LINE-(185,137):LINE-(185,140):LINE-(192,150):LINE-(192,154):LINE-(197,159):LINE-(200,160):LINE-(205,164):LINE-(210,165):LINE-(216,163):LINE-(219,163)
103 LINE(219,163)-(222,164):LINE-(225,164):LINE-(237,160):LINE-(240,160):LINE-(242,165):LINE-(245,165):LINE-(249,167):LINE-(249,165):LINE-(254,169):LINE-(251,181):LINE-(251,184):LINE-(261,201):LINE-(260,204):LINE-(262,210):LINE-(261,212):LINE-(257,223)
104 LINE(257,223)-(257,229):LINE-(258,229):LINE-(258,234):LINE-(263,240):LINE-(262,243):LINE-(265,252):LINE-(272,265):LINE-(272,267):LINE-(271,268):LINE-(271,269):LINE-(272,270):LINE-(272,272):LINE-(275,272):LINE-(276,274):LINE-(279,272):LINE-(282,272)
105 LINE(282,272)-(284,271):LINE-(286,272):LINE-(290,272):LINE-(291,271):LINE-(293,271):LINE-(302,265):LINE-(309,256):LINE-(310,250):LINE-(316,247):LINE-(318,239):LINE-(316,236):LINE-(334,221):LINE-(332,219):LINE-(333,214):LINE-(334,211):LINE-(334,209)
106 LINE(334,209)-(330,203):LINE-(330,198):LINE-(329,196):LINE-(336,186):LINE-(339,186):LINE-(341,183):LINE-(343,179):LINE-(355,169):LINE-(365,152):LINE-(364,151):LINE-(364,148):LINE-(361,148):LINE-(358,151):LINE-(356,151):LINE-(348,152):LINE-(344,152)
107 LINE(344,152)-(344,150):LINE-(340,150):LINE-(342,148):LINE-(334,138):LINE-(332,138):LINE-(332,136):LINE-(329,130):LINE-(326,130):LINE-(326,120):LINE-(321,117):LINE-(321,113):LINE-(313,100):LINE-(314,100):LINE-(318,104):LINE-(318,100):LINE-(316,96)
108 LINE(355,215)-(355,219):LINE-(351,219):LINE-(351,223):LINE-(342,226):LINE-(340,232):LINE-(340,237):LINE-(337,242):LINE-(336,245):LINE-(337,250):LINE-(339,252):LINE-(345,250):LINE-(350,240):LINE-(354,228):LINE-(354,226):LINE-(355,224):LINE-(357,228)
109 LINE(357,228)-(358,226):LINE-(357,217):LINE-(355,215)
110 IF TITLE>0 THEN 264
160 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
161 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
162 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
163 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
164 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
165 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
166 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
167 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130)
168 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):
|
