Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  All
Print Page as PDF
Routine: LUNAR1

Package: Uncategorized

Routine: LUNAR1


Information

LUNAR1 ;PROGRAM MOON

Source Information

Source file <LUNAR1.m>

Entry Points

Name Comments DBIA/ICR reference
900
800
600 ;DISPLAY BACKGROUND
300 ;DESCENT STAGE
400
700 ;DISPLAY LUNAR MODULE
314
381
2000 ;DIRECTIONAL BURN CORRECTION
321
327
720
325
371
100 ;MAIN DRIVER
725
500 ;ILLEGAL BURN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,"ATTENTION APOLLO!",!
  • Line Location: 100+2
Function Call: WRITE
  • Prompt: "FAILURE IN MAIN COMPUTER DESCENT MODULE...",!
  • Line Location: 100+3
Function Call: WRITE
  • Prompt: "MODULE WILL HAVE TO BE LANDED UNDER MANUAL CONTROL",!
  • Line Location: 100+4
Function Call: WRITE
  • Prompt: "YOU MAY ADJUST THE RATE OF BURN BETWEEN 0 AND 100 kg/s",!
  • Line Location: 100+5
Function Call: WRITE
  • Prompt: "AND THE DIRECTIONAL BURN BETWEEN -100 AND +100 kg/s",!
  • Line Location: 100+6
Function Call: WRITE
  • Prompt: "POSITIVE BURNS MAKE THE MODULE TRAVEL TO THE RIGHT",!,*7
  • Line Location: 100+7
Function Call: READ
  • Prompt: "DO YOU WANT TO TRY AGAIN ? "
  • Formatting: !
  • Timeout: A="Y"
  • Variable: A S PA=0 S
  • Line Location: 100+8
Function Call: WRITE
  • Prompt: !,"OK",*7
  • Line Location: 300+1
Function Call: WRITE
  • Prompt: "TIME(s) HEIGHT(m) VELOCITY(m/s) FUEL(kg) BURN(kg/s) DIRECTION (kg/s)",!
  • Line Location: 300+4
Function Call: WRITE
  • Prompt: ?2,T,?8,H,?21,V," + ",XV,DI,?40,F
  • Line Location: 314+0
Function Call: READ
  • Prompt: "?"
  • Formatting: ?50
  • Timeout: 5,?57,"?",BH:5,"
  • Variable: B
  • Line Location: 314+1
Function Call: WRITE
  • Prompt: *7,!!,"TOUCHDOWN AT ",T+K," seconds",!,"LANDING VELOCITY ",V,"m/s",!
  • Line Location: 321+0
Function Call: WRITE
  • Prompt: "HORIZONTAL ",XV,"m/s",!,"FUEL ",F,"kg",!
  • Line Location: 321+1
Function Call: WRITE
  • Prompt: *7,*7,*7,"CONGRATULATIONS ON A SAFE LANDING !",!
  • Line Location: 321+2
Function Call: WRITE
  • Prompt: "WOULD YOU PLEASE CLEAN BUZZ ALDRIN OFF THE WALLS!",!
  • Line Location: 325+0
Function Call: WRITE
  • Prompt: "YOU HAVE ACHEIVED IMMORTALITY - THEY ARE GOING TO NAME THE CRATER AFTER YOU !",!
  • Line Location: 327+0
Function Call: WRITE
  • Prompt: "TIME(s) HEIGHT(m) VELOCITY(m/s) ",?50,"** OUT OF FUEL ***",!,*7,*7
  • Line Location: 371+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 381+1
Function Call: WRITE
  • Prompt: ?2,T,?8,H,?21,V," + ",XV,DI
  • Line Location: 381+1
Function Call: WRITE
  • Prompt: "_"
  • Line Location: 600+4
Function Call: WRITE
  • Prompt: ^(+X)
  • Line Location: 600+5
Function Call: WRITE
  • Prompt: " "
  • Line Location: 700+2
Function Call: WRITE
  • Prompt: " "
  • Line Location: 700+2
Function Call: WRITE
  • Prompt: " "
  • Line Location: 700+2
Function Call: WRITE
  • Prompt: "_"
  • Line Location: 720+0
Function Call: WRITE
  • Prompt: "(#)"
  • Line Location: 720+0
Function Call: WRITE
  • Prompt: "(#)"
  • Line Location: 720+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 725+0
Function Call: WRITE
  • Prompt: "\M/"
  • Line Location: 900+0
Function Call: WRITE
  • Prompt: "<@>"
  • Line Location: 900+1
Function Call: WRITE
  • Prompt: "/W\"
  • Line Location: 900+2
Function Call: WRITE
  • Prompt: *7,*7,*7,!!,"CRASH LANDING ON MOON...NO SURVIVORS",!!
  • Line Location: 900+5
Info |  Source |  Entry Points |  Interaction Calls |  All