home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / pilot.lzh / PILOT / DF2DEMONPS.PIL < prev    next >
Encoding:
Text File  |  1991-08-16  |  6.5 KB  |  297 lines
  1. R:This is demonps.pil file
  2. c:delaytime=500
  3. gx:"DF2:pic/lists/c" 2
  4. gx:2
  5. Ts:f6;g1,1;a         Demonstration  of the PILOT language
  6. ts:g1,3;a      The program you are seeing was originally written
  7. ts:g1,4;a  in BASIC on the SONY SMC-70 computer.  The program
  8. ts:g1,5;a  originally required over 600 separate files either
  9. ts:g1,6;a  chained together or referenced to run the full demo.
  10. ts:g1,7;a  The translation to PILOT was done to demonstrate the
  11. ts:g1,8;a  capabilities of the Amiga to run a public information
  12. ts:g1,9;a  display.  The full demo includes touchpanel and laser
  13. ts:g1,10;a  disk support. 
  14. ts:g1,12;a      The PILOT program and the actual translation are
  15. ts:g1,13;a  copyright Flight Training Devices - ALASKA 
  16. ts:g1,14;a  and Terry LaGrone, P. O. Box 91723,
  17. ts:g1,15;a  Anchorage, AK 99509.    907-276-6719.
  18. ts:g1,17;a      The demo content and graphics content are in the
  19. ts:g1,18;a  Public Domain and were developed by Jerry Petsche,
  20. ts:g1,19;a  U.S Dept. of the Interior, National Park Service,
  21. ts:g1,20;a  Washington, DC.  The original project was funded under
  22. ts:g1,21;a  Public Law 96-487,  Alaska National Interest Lands
  23. ts:g1,22;a  Conservation Act (ANILCA).  
  24. apx:
  25. u:Tail
  26. c:end=0
  27. d:A$(60),fl1$(9)
  28. r:***************************************************************************
  29. c:counter=0;End=0
  30. *LOOP
  31. c:counter=counter+1
  32. u:TMAIN
  33. e(end>1):
  34. j(counter<10):LOOP
  35. e:
  36. r:##########################################
  37. r:$$$$$$       Travel Tips Section     $$$$$
  38. r:$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  39. *TMAIN
  40. e(end>1):
  41. c:msg=6;b=0
  42. gx:"DF2:pic/tips/TIPSMN" 3
  43. gx:3
  44. *TMAINsub
  45. apx:
  46. ee:
  47. u:box1
  48. e(end>1):
  49. c:cbox=box
  50. c(cbox=8):a$="Recreational Mining";a=60;fl1$="TIP46"
  51. u(cbox=8):PT
  52. u(cbox=4):TBOOK
  53. u(cbox=3):TSURV
  54. u(cbox=5):TTRAV
  55. u(cbox=6):TCONT
  56. u(cbox=7):TWETH
  57. e(end>1):
  58. c(cbox=12):msg=10
  59. j(msg=7):TMAIN
  60. j:TMAINsub
  61. e:
  62.  
  63. *TBOOK
  64. r: This is the second level of the travel tips section
  65. c: msg=8
  66. gx:"DF2:pic/tips/BOOKMN" 1
  67. gx:1
  68. apx:
  69. ee:
  70. u:box1
  71. e(end>1):
  72. j(box=0):TBOOK
  73. c(box=11):msg=7
  74. e(box>10):
  75. c(box=1):a$="SURVIVAL";fl1$="TIP31";a=536
  76. c(box=2):a$="HUNTING";fl1$="TIP36";a=536
  77. c(box=3):a$="WILDLIFE VIEWING";fl1$="TIP32";a=512
  78. c(box=4):a$="HIKING, CAMPING";fl1$="TIP37";a=520
  79. c(box=5):a$="SPORTFISHING";fl1$="TIP33";a=528
  80. c(box=6):a$="ON-WATER RECREATION";fl1$="TIP38";a=504
  81. c(box=7):a$="MOUNTAINEERING";fl1$="TIP34";a=520
  82. c(box=8):a$="PLANTS OF ALASKA";fl1$="TIP39";a=512
  83. c(box=9):a$="TRAVEL IN ALASKA";fl1$="TIP35";a=512
  84. c(box=10):a$="HISTORY CULTURE";fl1$="TIP40";a=512
  85. c:a=a/8-3
  86. u:PT
  87. e:
  88.  
  89. *TSURV
  90. c:msg=8;b=0
  91. gx:"DF2:pic/tips/SURVMN" 1
  92. gx:1
  93. apx:
  94. ee:
  95. u:box1
  96. e(end>1):
  97. j(box=0):TSURV
  98. c(box=11):msg=7
  99. e(box>10):
  100. c(box=1):a$="BEAR SAFETY";fl1$="TIP01";a=528
  101. c(box=2):a$="CARE FOR WILDLIFE";fl1$="TIP08";a=512
  102. c(box=3):a$="HYPOTHERMIA";fl1$="TIP02";a=528;b=1
  103. c(box=4):a$="SAFE DRINKING WATER";fl1$="TIP09";a=504
  104. c(box=5):a$="FIRE DANGERS";fl1$="TIP05";a=528
  105. c(box=6):a$="AVALANCHE SAFETY";fl1$="TIP10";a=512
  106. c(box=7):a$="ON-WATER SAFETY";fl1$="TIP06";a=520
  107. c(box=8):a$="SNOW BLINDNESS";fl1$="TIP11";a=520
  108. c(box=9):a$="CARBON MONOXIDE";fl1$="TIP07";a=520
  109. c(box=10):a$="MOSQUITOS, INSECTS";fl1$="TIP12";a=504
  110. c:a=a/8-3
  111. u:PT
  112. e:
  113.  
  114. *TTRAV
  115. c:msg=8;b=0
  116. gx:"DF2:pic/tips/TRAVMN" 1
  117. gx:1
  118. apx:
  119. ee:
  120. u:box1
  121. e(end>1):
  122. j(box=0):TTRAV
  123. c(box=11):msg=7
  124. e(box>10):
  125. c(box=1):a$="DRIVING IN ALASKA";fl1$="TIP13";a=512;b=3
  126. c(box=2):a$="DRESS TO WALK";fl1$="TIP20";a=528
  127. c(box=3):a$="FLYING IN ALASKA";fl1$="TIP16";a=512
  128. c(box=4):a$="NO-TRACE CAMPING";fl1$="TIP21";a=512
  129. c(box=5):a$="THE ALASKA RAILROAD";fl1$="TIP17";a=504
  130. c(box=6):a$="FILE A TRIP PLAN";fl1$="TIP22";a=512
  131. c(box=7):a$="MARINE HIGHWAY";fl1$="TIP18";a=528
  132. c(box=8):a$="HISTORIC ARTIFACTS";fl1$="TIP23";a=504
  133. c(box=9):a$="TRAVELING BY BUS";fl1$="TIP19";a=512
  134. c(box=10):a$="AVOIDING TRESPASS";fl1$="TIP24";a=512
  135. c:a=a/8-3
  136. u:PT
  137. e:
  138.  
  139. *TWETH
  140. c:msg=8
  141. r:
  142. gx:"DF2:pic/tips/WETHMN" 1
  143. gx:1
  144. apx:
  145. ee:
  146. u:box3
  147. e(end>1):
  148. j(box=0):TWETH
  149. c(box=1):a$="FAR NORTH";fl1$="TIP25";a=528
  150. c(box=2):a$="NORTHWEST";fl1$="TIP26";a=528
  151. c(box=5):a$="INTERIOR";fl1$="TIP27";a=536
  152. c(box=3):a$="SOUTHWEST";fl1$="TIP28";a=536
  153. c(box=6):a$="SOUTH CENTRAL";fl1$="TIP29";a=520
  154. c(box=4):a$="SOUTHEAST";fl1$="TIP30";a=528
  155. c:a=a/8-3
  156. u:PT
  157. e:
  158.  
  159. *TCONT
  160. c:msg=8
  161. r:
  162. gx:"DF2:pic/tips/CONTMN" 1
  163. gx:1
  164. apx:
  165. ee:
  166. u:box1
  167. e(end>1):
  168. j(box=0):TCONT
  169. c(box=7):msg=7
  170. e(msg<>8):
  171. j(box>5):TCONT
  172. c(box=1):a$="ANCHORAGE CONTACTS";fl1$="TIP41";a=520
  173. c(box=2):a$="ANCHORAGE PHONES";fl1$="TIP44";a=512
  174. c(box=3):a$="FAIRBANKS CONTACTS";fl1$="TIP42";a=520
  175. c(box=4):a$="FAIRBANKS PHONES";fl1$="TIP45";a=512
  176. c(box=5):a$="CONTACTS IN TOK";fl1$="TIP43";a=520
  177. c:a=a/8-3
  178. u:PT
  179. e:
  180.  
  181. *PT
  182. c: msg=9
  183. r:
  184. gx:"DF2:pic/tips/TPCOPY" 4
  185. gx:4
  186. *olay
  187. gx(b=1):"DF2:pic/tips/FBWCH.brush" 2
  188. gx(b=2):"DF2:pic/tips/WNDCH.brush" 2
  189. gx(b=3):"DF2:pic/tips/DRVNG.brush" 2
  190. gx(b=4):"DF2:pic/tips/DRVNG.brush" 2
  191. gx(b<>0&b<>5&b<>6):64
  192. *next
  193. r: If b= 1  overlay the picture  FBWCH
  194. r: If b= 2  overlay the picture  WNDCH
  195. r: If b= 3 or 4  overlay the picture DRVNG
  196. c(b=6):a$="WINDCHILL  ";fl1$="TIP04";b=0
  197. c(b=2):a$="FROSTBITE  ";fl1$="TIP03";b=6
  198. c(b=1):b=2
  199. c(b=5):a$="EMERGENCY EQUIPMENT";a=60;fl1$="TIP15";b=0
  200. c(b=4):a$=" ROAD CONDITIONS  ";a=61;fl1$="TIP14";b=5
  201. c(b=3):b=4
  202. ts:f6;G#a ,9;A$a$
  203. ts:NDF2:tex/tip/$fl1$
  204. *PTsub
  205. apx:
  206. ee:
  207. u:box2
  208. e(end>1):
  209. j(box=0):PTsub
  210. u(box=4):clear
  211. j(box=4):olay
  212. c(box=2):msg=7
  213. e:
  214.  
  215. *clear
  216. c:A$="                                                         "
  217. ts:o1;b1;f1;g0,1;a$A$
  218. ts:g1,0;a$A$
  219. ts:g0,2;a$A$
  220. ts:g0,3;a$A$
  221. ts:g0,4;a$A$
  222. ts:g0,5;a$A$
  223. ts:g0,6;a$A$
  224. ts:g0,7;a$A$
  225. ts:g0,8;a$A$
  226. ts:g0,9;a$A$
  227. ts:g0,10;a$A$
  228. ts:g0,11;a$A$
  229. ts:g0,12;a$A$
  230. ts:g0,13;a$A$
  231. ts:g0,14;a$A$
  232. ts:g0,15;a$A$
  233. ts:g0,16;a$A$
  234. ts:g0,17;a$A$
  235. ts:g0,18;a$A$
  236. ts:g0,19;a$A$
  237. ts:g0,20;a$A$
  238. ts:g0,21;a$A$
  239. ts:g0,22;a$A$
  240. ts:g0,23;a$A$ ;f6
  241. e:
  242.  
  243. *box1
  244. r:This is a temporary subroutine to be replaced with an integrated pilot call.
  245. r:This routine returns a chosen box number.
  246. c:box=0
  247. ee:
  248. e(xpt<5&ypt<6):end
  249. c(xpt<31&ypt>5):box=1
  250. c(xpt<31&ypt>11):box=3
  251. c(xpt<31&ypt>18):box=5
  252. c(xpt<31&ypt>24):box=7
  253. c(xpt<31&ypt>31):box=9
  254. c(xpt<31&ypt>37):box=11
  255. c(xpt>30&ypt>5):box=2
  256. c(xpt>30&ypt>11):box=4
  257. c(xpt>30&ypt>18):box=6
  258. c(xpt>30&ypt>24):box=8
  259. c(xpt>30&ypt>31):box=10
  260. c(xpt>30&ypt>37):box=12
  261. e:
  262.  
  263. *box2
  264. r:This is the substitute subroutine for the Travel tips copy
  265. c:box=0
  266. e(xpt<5&ypt<7):end
  267. e(ypt<20):
  268. c(ypt>38):box=4
  269. e(xpt<40):
  270. c:box=1
  271. c(ypt>29):box=2
  272. c(ypt>35):box=3
  273. e:
  274.  
  275. *box3
  276. c:box=0
  277. r:This is the sub subroutine for the Map of Alaska
  278. e(xpt<5&ypt<7):end
  279. c(ypt<7): box=1
  280. e(box=1):
  281. c(xpt>38):box=4
  282. c(ypt<33):box=6
  283. e(box=4):
  284. c(ypt<22):box=5
  285. c(box=5&xpt<14):box=2
  286. c(xpt<22): box=3
  287. c(box=0):box=6
  288. e:
  289. r:****  Subroutine to force label list build up
  290. *Tail
  291. e:
  292. r:****  Subroutine to allow simulation of Amiga close box
  293. *end
  294. c:end=2
  295. e:
  296. r:  End  of  File
  297.