PROGRAM LISTING: 85-06/MENU3D.ACT

; 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