                       Real World To DOOM for TI-85
                      By: Jacob Berendes (Stonegaze)
                             (phudge@aol.com)

This is my TI-85 conversion program.  It converts real world measurements
to DOOM units.  ENJOY!


Jacob Berendes
(phudge@aol.com)


-TI-85----------------------------------------------------REAL-WORLD-TO-DOOM-
Lbl r2dmm
AxesOff
DispG
ClDrw
RcPic RTOD
********REMARK********RTOD is RTOD.85i (TI-85 IMAGE)*************************
Menu(1,"H2D",HFI,2,"W2D",WFI,3,"De2D",D2D,4,"INFO",NF,5,"QUIT",ENDD)
Lbl NF
ClLCD
Outpt(1,1,"([([(Information)])])")
Outpt(2,1,"H2D-Height")
Outpt(3,1,"to Doom units (Du)")
Outpt(4,1,"W2D-Width to (Du)")
Outpt(5,1,"De2D-Depth to (Du)")
Outpt(8,1,"..ENTER to CONTINUE..")
Pause
ClLCD
Outpt(1,1,"..Tested Demensions..")
Outpt(2,1,"Height 1 ft=10.285 Du")
Outpt(3,1,"Width  1 ft=21.333 Du")
Outpt(4,1,"Depth  1 ft=21.333 Du")
Outpt(5,1,"Based on Human2Player")
Outpt(6,1,"and RWDoor2 72Du Door")
Outpt(8,1,".ENTER for MAIN MENU.")
Pause
ClLCD
DispG
ClDrw
RcPic JRDI
********REMARK********JRDI is JRDI.85i (TI-85 IMAGE)*************************
Pause
Goto r2dmm
Lbl HFI
ClLCD
Outpt(1,7,"-HEIGHT-")
********REMARK********** v 2 spaces on purpose***** v ***********************
Outpt(2,1,"How many feet  would you like to convert  to Du")
Disp "","","",""
Input hft
ClLCD
Outpt(1,7,"-HEIGHT-")
********REMARK********no space  v ***** v 2 spaces on purpose****************
Outpt(2,1,"How many inches wouldyou like  to convert  to Du")
Disp "","","",""
Input hin
ClLCD
Disp "Feet:",hft
Disp "Inches:",hin
Disp "Height in Du:",int (((hin/12)*10.2857142857)+(hft*10.2857142857))
Menu(1,"HOME",r2dmm,2,"REDO",HFI)
Lbl WFI
ClLCD
Outpt(1,7,"-WIDTH-")
Outpt(2,1,"How many feet  would you like to convert  to Du")
Disp "","","",""
Input wft
ClLCD
Outpt(1,7,"-WIDTH-")
Outpt(2,1,"How many inches wouldyou like  to convert  to Du")
Disp "","","",""
Input win
ClLCD
Disp "Feet:",wft
Disp "Inches:",win
Disp "Width in Du:",int (((win/12)*21.3333333333)+(wft*21.3333333333))
Menu(1,"HOME",r2dmm,2,"REDO",WFI)
Lbl D2D
ClLCD
Outpt(1,7,"-DEPTH-")
Outpt(2,1,"How many feet  would you like to convert  to Du")
Disp "","","",""
Input dft
ClLCD
Outpt(1,7,"-DEPTH-")
Outpt(2,1,"How many inches wouldyou like  to convert  to Du")
Disp "","","",""
Input din
ClLCD
Disp "Feet:",dft
Disp "Inches:",din
Disp "DEPTH in Du:",int (((din/12)*21.3333333333)+(dft*21.3333333333))
Menu(1,"HOME",r2dmm,2,"REDO",D2D)
Lbl ENDD
ClLCD
Outpt(1,1,".......Credits.......")
Outpt(3,4,"THANK YOU TO...")
Outpt(5,2,"idSoftware for DooM")
Outpt(7,5,"Scott Ampoker")
Outpt(8,4,"for Metrics.txt")
Pause
ClLCD
Outpt(1,1,".......Credits.......")
Outpt(3,2,"Watch for RW2DM.txt")
Outpt(4,3,"on your favorite")
Outpt(5,3,"WWW or FTP site.")
Pause
DispG
ClDrw
RcPic JRDI
Pause
ClDrw
AxesOn
ClLCD
---------------------------------END PROGRAM---------------------------------
