Ê, c: LINE (x1, y1)-(" READ x1, y1, , y2), c CASE ",39,42,0 DATA V ), c CASE " , y1)-(85, y LINE (0, y 2,0 DATA H, ,17,0 DATA ,36,0 DATA ,27,0 DATA 0,0 DATA P, 3,0 DATA H, ,38,43,0,V,3 ,38,43,0,V,4 ,44,51,2,V,5 ,2 DATA H,2 ,2,H,25,30,4 ,2,H,38,43,5 CASE "" READ ), c, BF,10,0,P,,14,0,V,,15,0,P,,19,0,H,,21,0,P,,0 DATA,26,0,H,3,27,0,H,28,0,H,,29,0,H,,31,36,0,36,0,V,,35,0,P,,35,0,V,,39,42,0,H,39,41,2 DATA,2,H,24,,51,2,H,,H,37,43DO SELECASEx, y, c:x2, , y2LINE0,12,V,08,0,9,0,,11,0,P,,13,0,16,20,18,2,24,,25,,23,,3,3,V,24,327,36,0,HH,37,50,,51,52,20,V,,12,0,H,61,6,67,,68,,69,,71,,57,,36,41,4,38,,45,9,2,29,46,3042,55,46CSCREEN 1 *READ c$ +CT , U,$(c$)P-. PSET (-Vy2x1Hx1, /y1x2, y1By10. 1 (02S/y2, c 1 (x11), c1 + 1)-(850 - 12)-(x2X" EXIT *END +CT LOOP k$ = INPUT$(1) SYSTEM DATA B,23,33,7,4V,1,8,5V,2,934675,16,78778,14919,711H,12814P,1314,15:71617,22,7;3 P,19<720=72110,2>296628 H,4,62?0,03 ,V,1 @ ,V?2 V,A!5,33!6,34!7,34!8,35 H,9,1BC,;5"3031,3233,36 D,4748E27CFG4V,72,23=H73:24 V,74822,H75821,H76I15V,77I14V,78,12V,79616,H80,1181613,H82,12,783,1 5,54,5555,56=J56,57<J58,59>760,2K263:J64,6566L14HM69HN79CO7273,14,7748J70O26,770 PN24PM25PL30C,65,66,31C,63,6AC,K2,3 59,60,34CP58"55,32,H56,33#5B,5 27,31,0@6,32#25Q41,0,V<R7,0@9,30 1 2 3$,V,46,4789S43,H50$%,4 39,R4,740TH52T4UV,534,44,51& V,556,45F2,VP46,49'28,44'V54,V6'30,478UH,2W,50W(27,29,G,H,39,X432& D,43(37,43E2),49,1),48,1,P,3Y HQ44,47,74YCSX8,0%,59 X