home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / Jenkins.LZH / config!Z < prev    next >
Text File  |  1992-01-06  |  3KB  |  95 lines
  1. Startup
  2. -------------------------------------------------------------------------------
  3. ..<shftAltCtl-z:    EasyWriter Demo     
  4. -------------------------------------------------------------------------------
  5. buf54
  6. n54
  7. n59
  8. -------------------------------------------------------------------------------
  9. EasyWriter Demo
  10. <shftAltCtl-z:
  11. text(" ",0,0,0,-2)                       .. -2 clear screen using color 0
  12. text("Welcome to this demonstration of",2,22,0,0)
  13. text("The Amigas",3,32,7,0)
  14. text("The best personal computers",4,24,0,0)
  15. text("Uedit",6,35,7,0)
  16. text("The best program editor for Amiga and PC",7,18,0,0)
  17. text("EasyWriter",9,32,7,0)
  18. text("The easiest personal wordprocessor and system editor",10,12,0,0)
  19. text(" Uedit is a SHAREWARE programmable text editor.",12,10,0,0)
  20. text(" EasyWriter is a SHAREWARE configuration of Uedit which",13,10,-1,0)
  21. text(" demonstrates how a wordprocessor should be designed.",14,10,-1,0)
  22. text("                                                     ",15,10,-1,0)
  23. text("hit any key to continue ",16,25,7,0)
  24.  
  25. ..do border
  26. do(n54,8,67) text(" ",1,n54,2,1)
  27. do(n54,2,17) text(" ",n54,67,-1,1)
  28. equateNum(n54,67)
  29. while (!eqNum(n54,8)) {
  30.     text(" ",17,n54,-1,1)
  31.     decNum(n54) }
  32. equateNum(n54,17)
  33. while (!eqNum(n54,1)) {
  34.     text(" ",n54,8,-1,1)
  35.     decNum(n54) }
  36.  
  37. getKey(n54)
  38.  
  39. text(" ",0,0,0,-2)                        .. -2 clear screen in normalVid
  40. text("This demonstration disk can be run on any Amiga.  ", 2,1,0,0)
  41. text("(1) You can just stick this disk in Amy and turn her on. ", 3,1,0,0)
  42. text("(2) If she is already on, just stick in this disk and ", 4,1,0,0)
  43. text("    press the CTRL, left red A, and right red A keys  ", 5,1,0,0)
  44. text("    at the same time.",6,1,0,0)
  45. text(" ",7,1,0,0)
  46. text("You can restart this demo when you are in EasyWriter ",8,1,0,0)
  47. text("by holding down SHFT, ALT, and CTRL while you hit z. ",9,1,0,0)
  48. text(" ",10,1,0,0)
  49. text("You can restart this demo when you can see the HELP pane",11,1,0,0)
  50. text("by hitting ESC to go into EasyWriter, and then",12,1,0,0)
  51. text("press SHFT-ALT-CTRL-z ",13,1,0,0)
  52. text(" ",14,1,0,0)
  53. text("Don't worry if you don't understand this right now.",15,1,0,0)
  54. text("hit any key to continue ",16,15,7,0)
  55. getKey(n54)
  56. text(" ",0,0,0,-2)                        .. -2 clear screen in normalVid
  57.  
  58. loadFile("Uedit/EasyWriter/LetterToBob")
  59.  
  60. ..make sure hyper is closed, then open
  61. if (hyperUp) hyperClose
  62. putMsg("Loading EasyWriter HELP stack, please wait....")
  63. hyperOpen("EasyWriter","EasyWriter.tbl",0)
  64.  
  65. ..show <introduction> card first
  66. freeBuf(buf54)
  67. insertRgn(buf54,sFile,"introduction",all)
  68. equateNum(n59,15)
  69. runKey(virtual-gadget2)  ..lookup loop
  70.  
  71. >Saturday 22-Dec-90 11:36:19
  72.  
  73.  
  74.  
  75.  
  76. text(" ",0,0,0,-2)                        .. -2 clear screen in normalVid
  77. text(" ", 2,1,0,0)
  78. text(" ", 3,1,0,0)
  79. text(" ", 4,1,0,0)
  80. text(" ", 5,1,0,0)
  81. text(" ", 6,1,0,0)
  82. text(" ", 7,1,0,0)
  83. text(" ", 8,1,0,0)
  84. text(" ", 9,1,0,0)
  85. text(" ",10,1,0,0)
  86. text(" ",11,1,0,0)
  87. text(" ",12,1,0,0)
  88. text(" ",13,1,0,0)
  89. text(" ",14,1,0,0)
  90. text(" ",15,1,0,0)
  91. text("hit any key to continue ",16,25,7,0)
  92. getKey(n54)
  93. refreshDisplay
  94.  
  95.