; 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(" ° Òåóåô ÁÌÌ Öáìõåó  ")›Print("x GRAPHICS 7PLUS x ")›PrintE("  ðåòóðåãôéöå öéå÷ ")›PrintE(" filename>>")›PrintE("eye dist. mag")›PrintE("PreRotated ri=")›PrintE("Center Focus")›PrintE("  ÛÓÐÁÃÅÝ ­ Ðéãôõòå     ÛÂÝ ­ Íåîõ   ")›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››