home *** CD-ROM | disk | FTP | other *** search
/ CD Action 2 / CD_Action_2.iso / train / ogrodnik.trn < prev    next >
Text File  |  1995-11-07  |  2KB  |  74 lines
  1. 100   VAR  ' ' = 3
  2. 101   VAR  '  ' = 1
  3. 102   VAR  '   ' = 2
  4. 103   VAR  'x' = 3
  5. 104   VAR  'y' = 4
  6. 105   VAR  'z' = 5
  7. 106   VAR  'Wagon 6' = 60
  8. 107   VAR  'Wagon 7' = 40
  9. 108   VAR  'Wagon 8' = 8
  10. 109   VAR  'Wagon 9' = 9
  11. 110   VAR  'Wagon 10' = 10
  12. 111   VAR  'Wagon 11' = 11
  13. 112   VAR  'Wagon 12' = 12
  14. 113   VAR  'Wagon 13' = 13
  15. 114   VAR  'Wagon 14' = 14
  16. 115   VAR  'Wagon 15' = 15
  17. 116   VAR  'Wagon 16' = 16
  18. 117   VAR  'Wagon 17' = 17
  19. 118   VAR  'Wagon 18' = 18
  20. 119   VAR  'Wagon 19' = 19
  21. 120   VAR  'Wagon 20' = 20
  22. 121   VAR  'Wagon 21' = 21
  23. 122   VAR  'Wagon 22' = 22
  24. 123   VAR  'Wagon 23' = 23
  25. 124   VAR  'Wagon 24' = 24
  26. 125   VAR  'Wagon 25' = 25
  27. 126   VAR  'Wagon 26' = 26
  28. 127   VAR  'Wagon 27' = 27
  29. 128   VAR  'Wagon 28' = 28
  30. 129   VAR  'Wagon 29' = 29
  31. 130   VAR  'Wagon 30' = 30
  32. 131   VAR  'Wagon 31' = 31
  33. 132   VAR  'Wagon 32' = 32
  34. 133   VAR  'Wagon 33' = 33
  35. 134   VAR  'Wagon 34' = 34
  36. 135   VAR  'Wagon 35' = 35
  37. 136   VAR  'Wagon 36' = 36
  38. 137   VAR  'Wagon 37' = 37
  39. 138   VAR  'Wagon 38' = 38
  40. 139   VAR  'Wagon 39' = 39
  41. 140   VAR  'Wagon 40' = 40
  42. 141   VAR  'Wagon 41' = 41
  43. 142   VAR  'Wagon 42' = 42
  44. 143   VAR  'Wagon 43' = 43
  45. 144   VAR  'Wagon 44' = 44
  46. 145   VAR  'Wagon 45' = 45
  47. 146   VAR  'Wagon 46' = 46
  48. 147   VAR  'Wagon 47' = 47
  49. 148   VAR  'Wagon 48' = 48
  50. 149   VAR  'Wagon 49' = 49
  51. 150   VAR  'Wagon 50' = 50
  52. 200   LET 'x':='  '{464,80}
  53. 300   IF (('   '+(' '*'x'){448,80}){432,112}{432,144}>'Wagon 6'){448,144}{448,160}{224,160} THEN 2000{218}
  54. 400   LET 'y':=('x'+'  '{464,64}){464,96}{464,112}
  55. 500   IF (('  '{400,64}+(('y'*'   '){448,80}+'x'){432,96}){400,144}>'Wagon 6'){432,144}{432,160}{224,160} THEN 1800{196}
  56. 600   LET 'z':=(('Wagon 7'-'y'){416,112}-'x'){400,96}{400,128}
  57. 700   IF ('z'{432,128}{432,112}<'y'){448,112}{448,96}{224,96} THEN 900{166}
  58. 800   LET 'z':=('y'+'  '){448,112}{448,128}
  59. 900   IF ((('x'+'y'){464,112}+'z'){432,128}{432,144}>'Wagon 6'){448,144}{448,160}{224,160} THEN 1600{171}
  60. 1000   IF (('z'*'z'{464,144}){448,128}<>(('x'*'x'{480,96}){448,80}+('y'{464,96}*'y'){448,112}){416,96}){368,112}{224,112} THEN 1400{151}
  61. 1100   PRINT "x="
  62. 1101   PRINT 'x'
  63. 1200   PRINT "y="
  64. 1201   PRINT 'y'
  65. 1300   PRINT "z="
  66. 1301   PRINT 'z'
  67. 1400   LET 'z':=('z'+'  '){432,128}
  68. 1500   GOTO 900{63}
  69. 1600   LET 'y':=('y'+'  '){448,112}
  70. 1700   GOTO 500{40}
  71. 1800   LET 'x':=('  '{448,64}{448,96}+'x'){464,96}
  72. 1900   GOTO 300{21}
  73. 2000   STOP
  74.