home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / pc_book.zip / SCRIPT.DEM < prev    next >
Text File  |  1985-04-22  |  10KB  |  490 lines
  1. CL 0,0,80,25
  2. OV BANNER.DEM,7,10,61,5,7,10
  3. PA 15
  4. OV BANNER.DEM,3,6,68,19,3,6
  5. PA 5
  6. OV BANNER.DEM,2,4,72,21,2,4
  7. PA 5
  8. OV BANNER.DEM,1,2,76,23,1,2
  9. PA 5
  10. OV BANNER.DEM,0,0,80,25,0,0
  11. PA 30
  12. +;       IBM PC and printer without paper.
  13.  
  14. CL 0,0,80,25
  15. SLIDE INTRO.DEM
  16. PA 10
  17.  
  18. ;       Moving printer paper.
  19.  
  20. SC INTRO1.DEM,1,26,48,1,15,26,15,1,2,50
  21. PA 30
  22. CL 0,18,62,25
  23.  
  24. ;     Tell them what your going to tell them about 
  25. OV WORDS1.DEM,0,18,62,25,0,18
  26. WAIT
  27. ;     Scroll product overview on printer paper
  28. CL 0,0,80,25
  29. SC OVIEW.DEM,0,0,80,1,24,0,14,1,2,50
  30. WAIT
  31.  
  32. SC OVIEW.DEM,0,0,80,15,10,0,11,1,2,50
  33. ;SC OVIEW.DEM,0,0,80,17,8,0,9,1,2,50
  34. WAIT
  35.  
  36. ;    Showing the Little Black Book actual size
  37. CL 0,0,80,25
  38. SLIDE BOOK.DEM
  39. PA 30
  40. TE "NAMES",8,0,RED-BLUE-IB
  41. PA 15
  42. AT 8,0,5,RED-BLUE
  43. TE "ADDRESSES",11,0,RED-BLUE-IB
  44. PA 15
  45. AT 11,0,9,RED-BLUE
  46. TE "NUMBERS",14,0,RED-BLUE-IB
  47. PA 15
  48. AT 14,0,7,RED-BLUE
  49. TE "NOTES",17,0,RED-BLUE-IB
  50. PA 15
  51. AT 17,0,5,RED-BLUE
  52. PA 30
  53.  
  54. ;     Telling them how to get started by typing in book.
  55. CL 19,0,80,6
  56. BOX 19,0,80,6,2,CYAN-BLACK
  57. TE " NOW, HERE'S A QUICK DEMONSTRATION OF HOW IT WORKS ",21,14,MAGENTA-WHITE
  58. PA 30
  59. SLIDE MONITOR.DEM
  60. TE " TAKE YOUR DEMO DISK, PUT IT IN YOUR PC, AND TYPE IN BOOK  ",20,10,MAGENTA-WHITE
  61. PA 20
  62. TE "B",11,18,WHI-GRE-I
  63. PA 8
  64. TE "O",11,19,WHI-GRE-I
  65. PA 8
  66. TE "O",11,20,WHI-GRE-I
  67. PA 8
  68. TE "K",11,21,WHI-GRE-I
  69. PA 10
  70. CL 20,10,60,1
  71. TE " THIS BRINGS UP THE LITTLE BLACK BOOK MAIN MENU ",20,16,MAGENTA-WHITE
  72. PA 20
  73. ;     Bring up main menu, select add entry, then fill out form 
  74. CL 0,0,80,25
  75. SLIDE MAINMENU.DEM
  76. PA 10
  77. CL 20,0,80,4
  78. BOX 19,0,80,6,2,CYAN-BLUE
  79. TE " SELECT ADD ENTRY BY HITTING THE RETURN KEY ",21,18,MAGENTA-WHITE
  80. PA 20
  81. AT 6,25,22,BLA-WHI-B
  82. PA 20
  83. SLIDE ENTERING.DEM
  84. ;     Fill out entry screen
  85. AT 3,20,20,BW
  86. PA 5
  87. CL 20,0,80,4
  88. BOX 19,0,80,6,2,CYAN-BLUE
  89. TE " THIS SIMPLE FORM LETS YOU CREATE YOUR PERSONAL DIRECTORY ",21,11,MAGENTA-WHITE
  90.  
  91. PA 25
  92. ;     Fill out add entry screen including name,number,address, and note
  93. SLIDE ENTERING.DEM
  94. AT 3,20,20,BW
  95. PA 10
  96. CU 3,20
  97. TYPE "APC",BW
  98. AT 3,20,20,WB
  99. AT 4,20,20,BW
  100. CU 4,20
  101. TYPE "FINANCIAL PLANNING",BW
  102. AT 4,20,20,WB
  103. AT 6,20,3,BW
  104. TE "-",6,23,WB
  105. AT 6,24,3,BW
  106. TE "-",6,27,WB
  107. AT 6,28,4,BW
  108. AT 6,42,5,BW
  109. CU 6,20
  110. TYPE "555",BW
  111. CU 6,24
  112. TYPE "812",BW
  113. CU 6,28
  114. TYPE "3456",BW
  115. AT 6,20,3,WB
  116. AT 6,24,3,WB
  117. AT 6,28,4,WB
  118. AT 6,42,5,WB
  119. AT 7,20,2,BW
  120. OV DIALMETH.DEM,2,48,31,17,2,48
  121. CU 7,20
  122. TYPE "2",BW
  123. AT 4,50,27,RED-WHITE
  124. SNAPSHOT
  125. PA 20
  126. AT 7,20,2,WB
  127. AT 4,51,26,WB
  128. AT 9,20,2,BW
  129. OV DIALMETH.DEM,3,0,31,17,2,48
  130. PA 10
  131. SNAPSHOT
  132. CU 9,20
  133. TYPE "1",BW
  134. AT 3,50,27,RED-WHITE
  135. PA 10
  136. CU 9,20
  137. TYPE "7",BW
  138. AT 9,50,27,RED-WHITE
  139. PA 10
  140. CU 9,20
  141. TYPE "12",BW
  142. AT 14,50,27,RED-WHITE
  143. PA 15
  144. AT 3,51,26,WB
  145. AT 9,51,26,WB
  146. AT 14,50,27,WB
  147. AT 11,20,25,BW
  148. TE "1  7  12",9,20,WB
  149. CL 2,48,31,17
  150. CU 11,20
  151. TYPE "3000 Millstream Dr.",BW
  152. AT 11,20,25,WB
  153. AT 12,20,25,BW
  154. CU 12,20
  155. TYPE "P.O. Box 45",BW
  156. AT 12,20,25,WB
  157. AT 13,20,25,BW
  158. CU 13,20
  159. TYPE "Santa Clara",BW
  160. PA 5
  161. AT 13,20,25,WB
  162. AT 14,20,2,BW
  163. AT 14,25,5,BW
  164. TE "-",14,30,WB
  165. AT 14,31,4,BW
  166.  
  167. CU 14,20
  168. TYPE "CA",BW
  169. CU 14,25
  170. TYPE "94123",BW
  171. AT 14,20,2,WB
  172. AT 14,25,5,WB
  173. TE "     ",14,30,WB
  174.  
  175. AT 16,20,25,BW
  176. PA 15
  177. CU 16,20
  178. TYPE "Financial planning",BW
  179. AT 16,20,25,WB
  180. AT 17,20,25,BW
  181. CU 17,20
  182. TYPE "experts. VERY RESPONSIVE",BW
  183.  
  184. AT 17,20,25,WB
  185. AT 18,20,25,BW
  186. PA 15
  187. AT 18,20,25,WB
  188. CL 19,0,80,6
  189. BOX 19,0,80,6,2,CYAN-BLUE
  190. TE " THAT'S THE FIRST ONE.  NOW YOU WOULD TYPE IN THE OTHERS...",21,10,MAGENTA-WHITE
  191. PA 30
  192.  
  193. CL 21,5,72,1
  194. TE "...AND THEN GO TO THE MAIN MENU TO PRINT OUT YOUR BOOK ",21,13,MAGENTA-WHITE
  195. PA 30
  196. CL 0,0,80,18
  197. PA 10
  198.  
  199. ;  Bring up MAIN MENU to get started printing your little black book
  200. SLIDE MAINMENU.DEM
  201. AT 6,25,25,RED-WHITE
  202. PA 20
  203. CL 20,0,80,4
  204. BOX 19,0,80,6,2,CYAN-BLUE
  205. TE " START BY SELECTING PRINT DIRECTORY ", 21,22,MAGENTA-WHITE
  206. PA 20
  207. AT 6,25,25,WB
  208. AT 7,25,25,RED-WHITE
  209. PA 10
  210. AT 7,25,25,WB
  211. AT 8,25,25,RED-WHITE
  212. PA 20
  213. CL 0,0,80,18
  214. PA 10
  215. SLIDE PMENU.DEM
  216. AT 3,55,4,RED-WHITE
  217. PA 10
  218.  
  219. SNAPSHOT
  220. CL 19,0,80,6
  221. BOX 19,0,80,6,2,CYAN-BLUE
  222. TE " SIMPLY FILL OUT THE FORM AGAIN, AND YOU'RE READY TO PRINT ",21,10,MAGENTA-WHITE
  223. PA 45
  224. REPLAY
  225. PA 25
  226. AT 3,55,4,WB
  227. AT 5,55,2,RED-WHITE
  228. TE "No     ",21,0,WHI-BLA-I
  229. TE "Yes ",21,15,WB
  230. PA 10
  231.  
  232. AT 5,55,2,WB
  233. AT 7,55,3,RED-WHITE
  234. TE "No     ",21,0,WB
  235. TE "Yes ",21,15,WHI-BLA-I
  236. PA 10
  237.  
  238. AT 7,55,3,WB
  239. AT 9,55,3,RED-WHITE
  240. PA 10
  241.  
  242. AT 9,55,3,WB
  243. AT 11,55,25,RED-WHITE
  244. CL 21,0,30,1
  245. CU 11,55
  246. TYPE "Ken Dickens",BW
  247. PA 10
  248.  
  249. AT 11,55,25,WB
  250. AT 13,55,25,RED-WHITE
  251. CU 13,55
  252. TYPE "April 15, 1985",BW
  253. PA 10
  254.  
  255. AT 13,55,25,WB
  256. AT 15,55,2,RED-WHITE
  257. TE "No     ",21,0,WHI-BLA-I
  258. TE "Yes ",21,15,WB
  259. PA 10
  260.  
  261. AT 15,55,2,WB
  262. AT 17,55,11,RED-WHITE
  263. TE "Normal-sized",21,0,WB
  264. TE "Compressed",21,15,WHI-BLA-I
  265. PA 20
  266.  
  267. SNAPSHOT
  268.  
  269. CL 19,0,80,6
  270. BOX 19,0,80,6,2,CYAN-BLUE
  271. TE " OK, NOW LET'S PRINT THE LITTLE BLACK BOOK ",21,18,MAGENTA-WHITE
  272. PA 30
  273. REPLAY
  274. CL 23,64,7,3
  275. TE "9",23,64,WHI-BLA-IB
  276. TE " Print",24,65,WHI-BLA-IB
  277. PA 20
  278.  
  279. CL 0,0,80,25
  280. SC PAPER1.DEM,0,0,80,1,24,0,25,1,2,50
  281. PA 30
  282.  
  283. SNAPSHOT
  284.  
  285. CL 19,0,80,6
  286. BOX 19,0,80,6,2,CYAN-BLUE
  287. TE " NOW, LET'S CUT OUT THE FIRST PAGE, LIKE IT SAYS IN THE INSTRUCTIONS ",21,5,MAGENTA-WHITE
  288. PA 25
  289. REPLAY
  290. AT 20,7,30,WHT-BLA-I
  291. PA 10
  292.  
  293. CL 19,7,60,1
  294. SC HPAPER1.DEM,1,7,60,19,0,7,19,0,2,0
  295. CL 0,7,60,1
  296. CL 19,0,80,6
  297. BOX 19,0,80,6,2,CYAN-BLUE
  298. TE " TO PARAPHRASE PAUL HARVEY, AND NOW....  PAGE TWO ",21,15,MAGENTA-WHITE
  299. PA 25
  300. CL 0,0,80,25
  301.  
  302. ;Print second page and cut it out and move it off the top of the screen
  303.  
  304. SC PAPER2.DEM,0,0,80,1,24,0,25,1,1,50
  305. PA 10
  306.  
  307. SNAPSHOT
  308. CL 19,0,80,6
  309. BOX 19,0,80,6,2,CYAN-BLUE
  310. TE " NOW, LET'S CUT OUT THE SECOND PAGE ",21,22,MAGENTA-WHITE
  311. PA 30
  312. REPLAY
  313. AT 20,7,30,WHI-BLA-I
  314. CL 19,7,60,1
  315. SC HPAPER2.DEM,1,7,60,19,0,7,19,0,2,0
  316. CL 0,7,60,1
  317. CL 19,0,80,6
  318. BOX 19,0,80,6,2,CYAN-BLUE
  319. TE " THAT'S THE SECOND PAGE.  LET'S DO JUST ONE MORE ",21,15,MAGENTA-WHITE
  320. PA 30
  321. CL 0,0,80,25
  322.  
  323. SC PAPER.DEM,0,0,80,1,24,0,25,1,1,50
  324. PA 10
  325. SNAPSHOT
  326. CL 19,0,80,6
  327. BOX 19,0,80,6,2,CYAN-BLUE
  328. TE " NOW, LET'S CUT OUT THE FINAL PAGE ",21,22,MAGENTA-WHITE
  329. PA 30
  330. REPLAY
  331. AT 20,7,30,WHI-BLA-I
  332. CL 19,7,60,1
  333. SC HPAPER.DEM,1,7,60,19,0,7,19,0,2,0
  334. CL 0,7,60,1
  335. CL 19,0,80,6
  336. BOX 19,0,80,6,2,CYAN-BLUE
  337. TE " THAT'S IT.  NOW STACK AND STAPLE ",21,23,MAGENTA-WHITE
  338. PA 20
  339. CL 0,0,80,25
  340.  
  341. ;   Stacking and stapling the paper together
  342. OV HPAPER1.DEM,1,7,60,19,0,5
  343. OV HPAPER2.DEM,1,7,60,19,3,10
  344. OV HPAPER.DEM,1,7,60,19,6,15  
  345. CL 19,0,80,6
  346. BOX 19,0,80,6,2,CYAN-BLUE
  347. TE " STACK THEM UP SQUARELY....",21,26,MAGENTA-WHITE
  348. PA 30
  349. CL 0,0,80,25
  350. OV HPAPER.DEM,1,7,60,19,1,9
  351. SNAPSHOT
  352. PA 30
  353. CL 19,0,80,6
  354. BOX 19,0,80,6,2,CYAN-BLUE
  355. TE " STAPLE THE PAGES TOGETHER ON THE STAPLE MARKS ",21,16,MAGENTA-WHITE
  356. PA 25
  357. REPLAY
  358. GRAPHICS ":",7,37,WHI-BLA-B
  359. PA 5
  360. GRAPHICS ":",13,37,WHI-BLA-B
  361. PA 10
  362. SNAPSHOT
  363. CL 19,0,80,6
  364. BOX 19,0,80,6,2,CYAN-BLUE
  365. TE " FOLD THE PAGES, AND INSERT IN THE LITTLE BLACK BOOK COVER ",21,10,MAGENTA-WHITE
  366. PA 30
  367. REPLAY
  368.  
  369. CL 1,9,2,19
  370. PA 2
  371. CL 1,11,2,19
  372. PA 2
  373. CL 1,13,2,19
  374. PA 2
  375. CL 1,15,2,19
  376. PA 2
  377. CL 1,17,2,19
  378. PA 2
  379. CL 1,19,2,19
  380. PA 2
  381. CL 1,21,2,19
  382. PA 2
  383. CL 1,23,2,19
  384. PA 2
  385. CL 1,25,2,19
  386. PA 2
  387. CL 1,27,2,19
  388. PA 2
  389. CL 1,29,2,19
  390. PA 2
  391. CL 1,31,2,19
  392. PA 2
  393. CL 1,33,2,19
  394. PA 2
  395. CL 1,35,2,19
  396. PA 2
  397. CL 1,37,2,19
  398.  
  399. SC INSPAGE.DEM,1,38,1,19,1,38,31,5,1,0
  400.  
  401. CL 0,0,80,25
  402. SNAPSHOT
  403.  
  404. OV INSPAGE.DEM,1,38,31,19,1,38
  405.  
  406. SC INSPAGE.DEM,1,30,1,19,1,1,30,2,1,0
  407. PA 15
  408.  
  409. MOVE 1,38,31,19,LT,7
  410. MOVE 1,31,38,19,RT,1
  411. MOVE 1,32,38,19,LT,1
  412. CL 1,63,1,19
  413.  
  414.  
  415. SNAPSHOT
  416.  
  417. CL 19,0,80,6
  418. BOX 19,0,80,6,2,CYAN-BLUE
  419. TE " WHOOPS.....BETTER OPEN THE COVER FIRST !!!!!! ",21,17,MAGENTA-WHITE
  420. PA 25
  421. REPLAY
  422.  
  423. SC INSPAGE.DEM,1,39,31,19,1,31,31,4,1,0
  424. PA 15
  425.  
  426. CL 5,10,60,15
  427. BOX 5,10,60,15,2,WB
  428. TE " NOW THAT YOU'VE FINISHED ",8,29,MAGENTA-WHITE
  429. PA 20
  430. TE " INTRODUCE THE LITTLE BLACK BOOK ",11,25,MAGENTA-WHITE
  431. TE "TO YOUR POCKET",14,33,MAGENTA-WHITE
  432. PA 20
  433. SLIDE POCKET.DEM
  434. PA 20
  435. SC INSPAGE.DEM,19,1,30,1,0,23,13,3,0,0
  436.  
  437. GRAPHICS "0000000000000",0,23,CYAN-BLACK
  438. TE "/ /",0,34,CYAN-BLACK
  439. GRAPHICS ":0:0:0:0:0:0:0:0:",0,37,CYAN-BLACK
  440.  
  441. OV INSPAGE.DEM,1,1,30,11,2,23
  442. GRAPHICS "00000000000",1,23,CYAN-BLACK
  443. TE "/ /",1,32,CYAN-BLACK
  444. GRAPHICS ":0:0:0:0:0:0:0:0:0:",1,35,CYAN-BLACK
  445.  
  446. OV INSPAGE.DEM,1,1,30,10,3,23
  447. GRAPHICS "000000000",2,23,CYAN-BLACK
  448. TE "/ /",2,30,CYAN-BLACK
  449. GRAPHICS ":0:0:0:0:0:0:0:0:0:0:",2,33,CYAN-BLACK
  450.  
  451. OV INSPAGE.DEM,1,1,30,9,4,23
  452. GRAPHICS "0000000",3,23,CYAN-BLACK
  453. TE "/ /",3,28,CYAN-BLACK
  454. GRAPHICS ":0:0:0:0:0:0:0:0:0:0:0:",3,31,CYAN-BLACK
  455.  
  456. OV INSPAGE.DEM,1,1,30,8,5,23
  457. GRAPHICS "00000",4,23,CYAN-BLACK
  458. TE "/ /",4,26,CYAN-BLACK
  459. GRAPHICS ":0:0:0:0:0:0:0:0:0:0:0:0:",4,29,CYAN-BLACK
  460.  
  461. OV INSPAGE.DEM,1,1,30,7,6,23
  462. GRAPHICS "000",5,23,CYAN-BLACK
  463. TE "/ /",5,24,CYAN-BLACK
  464. GRAPHICS ":0:0:0:0:0:0:0:0:0:0:0:0:0:",5,27,CYAN-BLACK
  465. PA 50
  466. CL 0,0,80,6
  467. CL 6,0,23,7
  468. CL 6,53,32,7
  469. CL 13,0,19,12
  470. CL 13,56,24,12
  471. GRAPHICS "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD",3,11,WB
  472. GRAPHICS "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD",5,11,WB
  473.  
  474. CU 4,11
  475. TYPE "T  H  E    L  I  T  T  L  E    B  L  A  C  K    B  O  O  K",WHI-BLA-I
  476. PA 20
  477. CL 6,0,80,19
  478. TE " ORDER YOURS TODAY AT: ",12,28,MAGENTA-WHITE
  479. TE " 1 (800) 621-4292 ",15,30,MAGENTA-WHITE
  480. TE " 1 (800) 331-9113 in California ",17,30,MAGENTA-WHITE
  481. TE " 30-DAY, NO QUESTIONS ASKED MONEY BACK GUARANTEE ",20,17,MAGENTA-WHITE
  482. PA 50
  483. TE "Tap any key to continue",23,27,WHI-BLA-I
  484. WAIT
  485. SLIDE CYGNET.DEM
  486. PA 40
  487. TE "T h a n k   Y o u",22,28,WB
  488. PA  30
  489. END
  490.