; MENU3D (LISTING 9)¢¢PROC Menu():BYTE i,lft=82:BYTE ARRAY dl¢dl=dl2-5:dlist=dl:dl2=dlist¢FOR i=0 TO 12 DO dl(i)=dl(5+i) OD¢dl(1)=48:dl(2)=48:dl(3)=71:dl(6)=6¢dl(8)=48:dl(22)=6:dl(23)=6:dl(24)=16¢dl(26)=16:dl(28)=16:dl(30)=16¢dl(32)=16:dl(35)=dl&255:lft=1¢Print(" v i e w 3 D ")¢PrintE("°∩°∩°∩°∩°∩°∩°∩°∩°∩")¢PrintE(" Paul Chabot 1985")¢PrintE("áס≥σפ∩⌠β⌠σá G Gr7/8ááááגחפדבקנפךáááá")¢PrintE("áX Inc rxá V View á")¢PrintE("áY Inc ryá M Mag. á")¢PrintE("áZ Inc rzá C Colorá")¢PrintE("áI Inc riáááחá»áנááá")¢PrintE("áJ Dec riá D L S P á")¢PrintE("ááט∩∙≤⌠Θπδ¡ק≥Θττσ≥ááá")¢PrintE("á1 ADD Points/Lines á")¢PrintE("á2 EDIT Points/Linesá")¢PrintE("á3 Change EYE/dist. á")¢PrintE("á4 Change FOCUS á")¢PrintE("á5 Change CENTER á")¢PrintE("áãáפσ≤σ⌠áIJככáשβ∮⌡σ≤áá")¢Print("x GRAPHICS 7PLUS x ")¢PrintE(" á≡σ≥≤≡σπ⌠Θ÷σá÷Θσ≈á")¢PrintE(" filename>>")¢PrintE("eye dist. mag")¢PrintE("PreRotated ri=")¢PrintE("Center Focus")¢PrintE("ááףצסIJבד§á¡áסΘπ⌠⌡≥σáááááףא§á¡áלσ∈⌡ááá")¢PrintE(" ááדפפנפáá [any key] - MENU")¢PrintE("pt# color")¢Print(" áבáolor áזáue áכáum áגáefault")¢lin15=sa+600¢lin16=sa+640:lin17=sa+680:lin18=sa+720¢lin19=sa+760:lin20=sa+800:lin21=sa+840¢lin22=sa+880:lin23=sa+920:RETURN¢¢