\MOVE A TO #221\SCREE 0,0,9\MOVE 0 TO #745
\IF O>20\MOVE 999 TO #221\MOVE 0 TO #744\ELSE\MOVE 310 TO #744\ENDIF
\CLEAR NAMES\CLEAR MACROS\+
\MOVE 999 TO #9001  ;MENU CHOICE COUNTER
\NAME #98=MEM_SIZE\+
\READ PR_ORDER.MAC
\LENGTH #999
\IF A<>0\JUMP VALUES_SET\ENDIF
\MOVE #221 TO #98\MOVE #221 TO #211
\MOVE G TO #212\MOVE H TO #213
\MOVE I TO #214\MOVE J TO #215
\MOVE K TO #216\MOVE K TO #97
\MOVE L TO #217\MOVE M TO #218
\MOVE N TO #239
\MOVE 'MASTER MENU' TO #999
\MOVE 0 TO #771  ;MASKHORS ROOM ENUF
\MOVE 0 TO #775 ;PISTON ROOM ENUF
\MOVE 0 TO #774 ;CONDUC ENUF ROOM
\X VALUES_SET
\LENGTH #211\IF A=2\CONVERT #211\ENDIF
\LENGTH #212\IF A=2\CONVERT #212\ENDIF
\LENGTH #213\IF A=2\CONVERT #213\ENDIF
\LENGTH #214\IF A=2\CONVERT #214\ENDIF
\LENGTH #215\IF A=2\CONVERT #215\ENDIF
\LENGTH #216\IF A=2\CONVERT #216\ENDIF
\LENGTH #217\IF A=2\CONVERT #217\ENDIF
\IF #97>2
\MOVE #97 TO #94\MOVE #97 TO #93
\ELSE
\MOVE 1 TO #93\MOVE 2 TO #94
\ENDIF
\MOVE #213[5,1] TO #220
\IF #220=' '\BUILD #213=#213[1,4],'0',#213[6,1]\ENDIF
\MOVE #215[5,1] TO #220
\IF #220=' '\BUILD #215=#215[1,4],'0',#215[6,1]\ENDIF
\MOVE " NO" TO #220
\MOUSE ?
\IF A=2 \MOVE "YES" TO #220 \ENDIF
\BUILD #211=#211[2,5],'K'
\BUILD #217=#217[2,5]
\BUILD #216=#216[2,5]
\BUILD #215=#214[2,6],'.',#215[5,2]
\BUILD #213=#212[2,6],'.',#213[5,2]
\IF #218=255\MOVE '    PC   ' TO #219\ELSE
\IF #218=254\MOVE '    PC/XT' TO #219\ELSE
\IF #218=253\MOVE '    PCjr ' TO #219\ELSE
\IF #218=252\MOVE '    PC/AT' TO #219\ELSE
\IF #218=249\MOVE ' PC Conv.' TO #219\ELSE
\MOVE '    N/A  ' TO #219\ENDIF
\X VALUES_SET
\* the next fields are for the heart 
\* tutorial...
\MOVE 0 TO #1012\MOVE 1 TO #1001
\MOVE 0 TO #1002\MOVE 0 TO #1003
\MOVE 0 TO #1004\MOVE 0 TO #1005
\MOVE 0 TO #1006\MOVE 0 TO #1007
\MOVE 0 TO #1008\MOVE 0 TO #1009
\MOVE 0 TO #1010\MOVE 0 TO #1011
\MOVE 0 TO #9997 ;TELLS MENU TO WAIT RET
\CLEAR PICS
\READ MENU.TXT
\*END OF TEXT
