g.bas

100 PRINT GON$,"S(E)"

110 PRINT "W(R,I(G),P1,N0,A0,S0);"

120 PRINT "T(A0,D0,I0,S2);"

130 PRINT "P[30,20]T '13 Points';"

140 PRINT "@.;"

150 PRINT "@:BV[ 620, 240 ]@;"

160 PRINT "@:CV[ 595, 342 ]@;"

170 PRINT "@:DV[ 525, 421 ]@;"

180 PRINT "@:EV[ 427, 458 ]@;"

190 PRINT "@:FV[ 322, 446 ]@;"

200 PRINT "@:GV[ 235, 386 ]@;"

210 PRINT "@:HV[ 186, 293 ]@;"

220 PRINT "@:IV[ 186, 187 ]@;"

230 PRINT "@:JV[ 235,  94 ]@;"

240 PRINT "@:KV[ 322,  34 ]@;"

250 PRINT "@:LV[ 427,  22 ]@;"

260 PRINT "@:MV[ 525,  59 ]@;"

270 PRINT "@:NV[ 595, 138 ]@;"

290 PRINT "@:AP[ 620, 240];"

300 PRINT "@C@D@E@F@G@H@I@J@K@L@M@N@B;"

310 PRINT "@D@F@H@J@9@N@C@E@G@I@K@M@B;"

320 PRINT "@E@H@K@N@D@G@J@M@C@F@I@L@B;"

330 PRINT "@F@J@N@E@I@M@D@H@L@C@G@K@B;"

340 PRINT "@G@L@D@I@N@F@K@C@H@M@E@J@B;"

350 PRINT "@H@N@G@M@F@L@E@K@D@J@C@I@B;"

360 PRINT "@;"

370 PRINT "@A;"

380 PRINT CHR$(155)+"[H"