home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / do101j2.arj / TUTORIAL.SCR < prev    next >
Encoding:
Text File  |  1992-01-11  |  4.3 KB  |  281 lines
  1. * ----------------- A DO script tutorial ------------------------------
  2. .wi full clr
  3. * Reset EDIT and LIST variables incase DO.CFG exists
  4. /SET HoldEdit %Edit
  5. /SET EDIT ""
  6. /SET HoldList %List
  7. /SET LIST ""
  8. /STOP EOF
  9. /CANCEL ALL
  10. /SET t "c 14 1"
  11. /IF %Tutorial01 NE "" GetLabel
  12. /SET Label %Tutorial01
  13. /GOTO %Label NOTFOUND
  14. :GetLabel
  15. .clr
  16.  
  17.  
  18.        Enter a command or section at which to start the tutorial.
  19.          Press »bo«<enter>»#« to take the complete tutorial.
  20.  
  21.  
  22.  
  23. /BOX 1 1 80 6 14 11 " DO Tutorial "
  24. /SET Default ""
  25. /GETS Label Default "Start at?"  "" UC
  26. /IF %Label NE "" TOP
  27. /GOTO %Label NOTFOUND
  28. :TOP
  29. /PAGEPROMPT
  30. .clr go 1 20 gray
  31. ┌───────────────────────────────────────────────────────────────────────────┐
  32. │                                                                           │
  33. └───────────────────────────────────────────────────────────────────────────┘
  34. /VERSION
  35. .go 8 7 cy
  36. T H E
  37. .cy go 57 13
  38. tutorial
  39. .pa 1 re
  40. /DRAW V 16 7 11 50 ▓
  41. /DRAW H 7 16 21 50 ▓
  42. /DRAW V 22 8 10 50 ▓
  43. /DRAW H 11 21 16 50 ▓
  44. /DRAW V 24 7 11 50 ▓
  45. /DRAW H 11 24 30 50 ▓
  46. /DRAW V 30 11 7 50 ▓
  47. /DRAW H 7 30 24 50 ▓
  48. .ye
  49. /WALK R 11 34 'S C R I P T   P R O C E S S O R' 100
  50. .pa 1 ye
  51. /WALK L 21 75 'Copyright BOBsWARE, Sacramento, CA 1989, 1990, 1991, 1992' 100
  52. :INTRODUCTION
  53. /INTRO
  54. :INSTALLING
  55. /INSTALL
  56. :LICENSE
  57. /LICENSE
  58. :SCRIPTS
  59. /SCRIPTS
  60. :VARIABLES
  61. /VARIABLE
  62. :SPECIAL
  63. /SPECIAL
  64. :LABELS
  65. /LABELS
  66. :COMMENTS
  67. /COMMENTS
  68. :FUNCTIONS
  69. :STRINGS
  70. /STRINGS
  71. :DATES
  72. /DATES
  73. :OTHER
  74. /FUNCTION.SCR
  75. :COMMANDS
  76. /COMMANDS
  77. :/ASK
  78. /ASK.SCR
  79. :/SET
  80. /SET.SCR
  81. :/CAL
  82. /CAL.SCR
  83. :/BIG
  84. /BIG.SCR
  85. :/CANCEL
  86. :/BOX
  87. /BOX.SCR
  88. :/CANCEL
  89. /CANCEL.SCR
  90. :/CD
  91. /CD.SCR
  92. :/CHAIN
  93. /CHAIN.SCR
  94. :CHAIN2
  95.  
  96.     You have now returned to the Tutorial Script.
  97.  
  98.  
  99. /BOX 2 1 52 3 14 15 " Tutorial Script "
  100. :/CLEAR
  101. /CLEAR.SCR
  102. :/CLOCK
  103. /CLOCK.SCR
  104. :/DOCUMENT
  105. /DOCUMENT.SCR
  106. :/DIR
  107. /DIR.SCR
  108. :FILES
  109. /FILES.SCR
  110. :/OPEN
  111. /OPEN.SCR
  112. :/CLOSE
  113. /CLOSE.SCR
  114. :/WRITE
  115. /WRITE.SCR
  116. :/READ
  117. /READ.SCR
  118. :/DEBUG
  119. :/INFO
  120. /INFO.SCR
  121. :/FREE
  122. /FREE.SCR
  123. /DEBUG.SCR
  124. :/LISTVARS
  125. /LISTVARS.SCR
  126. :/IF
  127. /IF.SCR
  128. :/DISPLAY
  129. /DISPLAY.SCR
  130. :!
  131. /DOIT
  132. :/DRAW
  133. /DRAW.SCR
  134. :/EDIT
  135. /EDIT.SCR
  136. :/ERASE
  137. /ERASE.SCR
  138. :/EXEC
  139. /EXEC.SCR
  140. :/EXIT
  141. /EXIT.SCR
  142. :/FRAME
  143. /BOXFRAME.SCR
  144. :/GETC
  145. /GETC.SCR
  146. :/GD
  147. /GD.SCR
  148. :/GETS
  149. /GETS.SCR
  150. :/GOTOC
  151. /GOTOC.SCR
  152. :/GOTO
  153. /GOTO.SCR
  154. :/GOSUB
  155. /GOSUB.SCR
  156. :/HALT
  157. /HALT.SCR
  158. :/EXIST
  159. /EXIST.SCR
  160. :/INTERACTIVE
  161. /INTERACT.SCR
  162. :/LIST
  163. /LIST.SCR
  164. :/LISTVARS
  165. /LISTVARS.SCR
  166. :MACROS
  167. :/MACROS
  168. /MACROS.SCR
  169. :/MD
  170. /MD.SCR
  171. :/MATH
  172. /MATH.SCR
  173. :/PASSWORD
  174. /PASSWORD.SCR
  175. :/PAUSE
  176. /PAUSE.SCR
  177. :/PRINT
  178. /PRINT.SCR
  179. :/RENAME
  180. /RENAME.SCR
  181. :/REPEAT
  182. /REPEAT.SCR
  183. :/INKEY
  184. /INKEY.SCR
  185. :/RETURN
  186. /RETURN.SCR
  187. :/RETURNCODE
  188. /RETURNCD.SCR
  189. :/INC
  190. :/DEC
  191. /INCDEC.SCR
  192. :/PAGE
  193. /PAGE.SCR
  194. :/PAGEPROMPT
  195. /PGPROMPT.SCR
  196. :/PARSE
  197. /PARSE.SCR
  198. :/RD
  199. /RD.SCR
  200. :/STOP
  201. /STOP.SCR
  202. /CANCEL ALL
  203. .clr
  204.  
  205.     You have been returned to the »ye«TUTORIAL»#« script to continue
  206.     your tutorial.  We have reset the »%t«/CANCEL»#« command to »wh«cancel all
  207.     scripts»#« from this point.
  208.  
  209. :/SUBST
  210. /SUBST.SCR
  211. :/VERSION
  212. /VERSION.SCR
  213. :/WALK
  214. /WALK.SCR
  215. :COMM
  216. /COMMFUNC
  217. :/INITCOM
  218. /INITCOM.SCR
  219. :/TERM
  220. /TERM.SCR
  221. :/CLOSECOM
  222. /CLOSECOM.SCR
  223. :/SEND
  224. /SEND.SCR
  225. :/DIAL
  226. /DIAL.SCR
  227. :/SETCOMDELAY
  228. /SETDELAY.SCR
  229. :/SETWAIT
  230. /SETWAIT.SCR
  231. :/DELWAIT
  232. /DELWAIT.SCR
  233. :/CWAIT
  234. /CWAIT.SCR
  235. :/LOOK
  236. /LOOKAT.SCR
  237. :/FLUSHCOM
  238. /FLUSHCOM.SCR
  239. :END
  240. .pg wi full clr wi 10 7 79 24 wh
  241. /VERSION
  242.  
  243. This is the end of the »%t«DO»ye« Tutorial»wh«. For additional
  244. information and practice, you might want to examine
  245. this script, the sample scripts, and create scripts
  246. of your own.
  247.  
  248. /BOX 8 6 65 13 12 14 " Thank You "
  249. .pg -24 wi full clr
  250. /GOTO EOF
  251. :NotWritten
  252. .pg wi full c 0 7 clr go 1 10
  253.     »c 4 7«%Section»c 0 7« has not been written yet»+c 4 7«!»c 0 7«
  254. .pg -24 #
  255. /RETURN
  256. :NOTFOUND
  257. .clr bell
  258.  
  259.  
  260.                       »wh«The label »bo«%Label»wh« was not found.»#«
  261.  
  262.  
  263. /box 1 1 80 5 14 7 " E R R O R ! "
  264.  
  265.  
  266.     Press »bo«<enter>»#« to start at the top of the script or
  267.           »bo«<esc>»#« to terminate tutorial.
  268.  
  269. /PAGEPROMPT "Press <enter> to continue <esc> to abort . . ."
  270. /PAGE
  271. /PAGEPROMPT
  272. :NOLABEL
  273. /GOTO TOP
  274. :EOF
  275. .wi full clr
  276. /SET LIST %HoldList
  277. /SET EDIT %HoldEdit
  278. * Clear variable memory
  279. /ENDEXEC CLEAR
  280. * -------------- End of Tutorial Script ----------------
  281.