home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / BUGDEMO.TPI < prev    next >
Text File  |  1994-10-02  |  1KB  |  76 lines
  1. # BUGDEMO.TPI by Kent Peterson 9/25/94
  2.  
  3. # If this isn't an HP hundred series palmtop, gracefully abort
  4. machine? 2 <
  5. if
  6.  | Sorry, this program only runs on an HP hundred series palmtop.
  7.  bye
  8. endif
  9.  
  10. define wait
  11. 8 do loop
  12. enddef
  13.  
  14. deftable vark
  15.  "aav1.icn" "aav2.icn"
  16. endtable
  17.  
  18. deftable bug
  19.  "bug.icn" "bug2.icn"
  20. endtable
  21.  
  22. define bugs
  23.  50 do
  24.   index 2 mod 1 + bug
  25.   0 index 2 * 48 + 300 ploticon
  26.   index 2 mod 1 + bug
  27.   0 index 2 * 50 + 350 ploticon
  28.   index 2 mod 1 + vark 0 50
  29.   220 index - ploticon
  30.   wait
  31.  loop
  32. enddef
  33.  
  34. 6 setvmode
  35. 11 9 locate
  36. "This program still" print$
  37. " has a few bugs." print$
  38.  
  39. bugs
  40.  
  41. 1 setpencolor
  42. 69 260 movepen
  43. 69 312 drawline
  44.  
  45. 2 bug
  46. 3 50 300 ploticon
  47. 0 setpencolor
  48. 69 312 movepen
  49. 69 260 drawline
  50. 8 do wait loop
  51.  
  52. 1 setpencolor
  53. 69 260 movepen
  54. 69 362 drawline
  55.  
  56. 2 bug
  57. 3 52 350 ploticon
  58. 0 setpencolor
  59. 69 362 movepen
  60. 69 260 drawline
  61. 8 do wait loop
  62.  
  63. 10 0 locate
  64. |           ╔═════════════════════════════════════╗
  65. |           ║                                     ║
  66. |           ║  TIPI's debugger kills bugs dead!   ║
  67. |           ║                                     ║
  68. |           ║                                     ║
  69. |           ║           T I P I   2.0             ║
  70. |           ║                                     ║
  71. |           ║  Power Programming for Palmtop PCs. ║
  72. |           ║                                     ║
  73. |           ╚═════════════════════════════════════╝
  74. begin key until
  75. 0 screen
  76.