; 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

---

Back to previous page