home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / SW2LLIB.ZIP / EXAMPLES / LINKEX.PRG
Encoding:
Text File  |  1990-07-23  |  9.5 KB  |  608 lines
  1. * Example for SWBOX()
  2.  
  3. startmode = swsetvmode(-1)
  4. clear
  5. ulx   = 100
  6. uly   = 60
  7. lrx   = 200
  8. lry   = 150
  9. color = 1
  10. fill  = 1
  11. @2,2 say [Enter ULX:  ] get ulx
  12. @3,2 say [Enter ULY:  ] get uly
  13. @4,2 say [Enter LRX:  ] get lrx
  14. @5,2 say [Enter LRY:  ] get lry
  15. @6,2 say [Enter Color:] get color
  16. @7,2 say [Enter Fill: ] get fill
  17. read
  18. swsetvmode(4)
  19. swbox(ulx,uly,lrx,lry,color,fill)
  20. swdelay(2*18)
  21. swsetvmode(startmode)
  22.  
  23.  
  24. * Example for SWCIRCLE()
  25.  
  26. startmode = swsetvmode(-1)
  27. clear
  28. ulx   = 100
  29. uly   = 60
  30. lrx   = 200
  31. lry   = 150
  32. color = 1
  33. fill  = 1
  34. @2,2 say [Enter ULX:  ] get ulx
  35. @3,2 say [Enter ULY:  ] get uly
  36. @4,2 say [Enter LRX:  ] get lrx
  37. @5,2 say [Enter LRY:  ] get lry
  38. @6,2 say [Enter Color:] get color
  39. @7,2 say [Enter Fill: ] get fill
  40. read
  41. swsetvmode(4)
  42. swbox(ulx,uly,lrx,lry,color,fill)
  43. swdelay(2*18)
  44. swsetvmode(startmode)
  45.  
  46.  
  47. * Example for SWCOATSAY()
  48.  
  49. startmode = swsetvmode(-1)
  50. clear
  51. row    = 10
  52. column = 0
  53. color  = 1
  54. string = space(40)
  55. @2,2 say [Enter Text:] get string
  56. read
  57. swsetvmode(4)
  58. swcoatsay(row,column,color,string)
  59. swdelay(2*18)
  60. swsetvmode(startmode)
  61.  
  62.  
  63.  
  64. * Example for SWCOGET()
  65.  
  66. startmode = swsetvmode(-1)
  67. swsetvmode(4)
  68. swcoatsay(5,1,3,"Enter Social Security #:")
  69. input=swcoget(5,27,11,2,3,1)
  70. rn=swcogeter()
  71. exitkey=swcogetxit()
  72. swsetvmode(startmode)
  73. if(rn>=0)
  74.   ?input
  75.   ?"Length of input string = ",rn
  76.   ?"Code for key that caused exit = ",exitkey
  77. else
  78.   ?"swcoget() returned "+str(rn,3,0)
  79. endif
  80.  
  81.  
  82.  
  83. * Example for SWCOGETER()
  84.  
  85. startmode = swsetvmode(-1)
  86. swsetvmode(4)
  87. swcoatsay(5,1,3,"Enter Social Security #:")
  88. input=swcoget(5,27,11,2,3,1)
  89. rn=swcogeter()
  90. exitkey=swcogetxit()
  91. swsetvmode(startmode)
  92. if(rn>=0)
  93.   ?input
  94.   ?"Length of input string = ",rn
  95.   ?"Code for key that caused exit = ",exitkey
  96. else
  97.   ?"swcoget() returned "+str(rn,3,0)
  98. endif
  99.  
  100.  
  101. * Example for SWCOGETXIT()
  102.  
  103. startmode = swsetvmode(-1)
  104. swsetvmode(4)
  105. swcoatsay(5,1,3,"Enter Social Security #:")
  106. input=swcoget(5,27,11,2,3,1)
  107. rn=swcogeter()
  108. exitkey=swcogetxit()
  109. swsetvmode(startmode)
  110. if(rn>=0)
  111.   ?input
  112.   ?"Length of input string = ",rn
  113.   ?"Code for key that caused exit = ",exitkey
  114. else
  115.   ?"swcoget() returned "+str(rn,3,0)
  116. endif
  117.  
  118.  
  119. * Example for SWDELAY()
  120.  
  121. clear
  122. ?[Delaying 1 Second]
  123. ?
  124. swdelay(1*18)
  125. ?[Delaying 2 Seconds]
  126. ?
  127. swdelay(2*18)
  128. ?[Delaying 3 Seconds]
  129. swdelay(3*18)
  130.  
  131.  
  132.  
  133.  
  134. * Example for SWFORSOUND()
  135.  
  136. i       = 1
  137. mode0   = 0
  138. mode1   = 1
  139. start   = 200
  140. end     = 1500
  141. posinc  = 10
  142. neginc  = -10
  143. loopcnt = 130
  144. dur     = 500
  145. swsetsound(mode1)
  146. do while i < 6
  147.    swforsound(start,posinc,loopcnt,dur)
  148.    swforsound(end,neginc,loopcnt,dur)
  149.    i = i + 1
  150. enddo
  151. swsetsound(mode0)
  152. wait
  153.  
  154.  
  155.  
  156. * Example for SWGCLS()
  157.  
  158. startmode = swsetvmode(-1)
  159. swsetvmode(4)
  160. swgcls()
  161. swsetvmode(startmode)
  162.  
  163.  
  164. * Example for SWGETABORT()
  165.  
  166. * Set F1 key to abort SWCOGET()
  167. *
  168. abortkey = 15104
  169. startmode = swsetvmode(-1)
  170. swsetvmode(4)
  171. swcoatsay(5,1,3,"Enter Social Security #:")
  172. swgetabort(abortkey)
  173. input=swcoget(5,27,11,2,3,1)
  174. rn=swcogeter()
  175. exitkey=swcogetxit()
  176. swsetvmode(startmode)
  177. if(rn>=0)
  178.   ?input
  179.   ?"Length of input string = ",rn
  180.   ?"Code for key that caused exit = ",exitkey
  181.   if(exitkey=abortkey)
  182.     ?"F1 Key Pressed to exit."
  183.   endif
  184. else
  185.   ?"swcoget() returned "+str(rn,3,0)
  186. endif
  187.  
  188.  
  189. * Example for SWGETMAXC()
  190.  
  191. startmode = swsetvmode(-1)
  192. swsetvmode(4)
  193. maxc4 = swgetmaxc()
  194. swsetvmode(6)
  195. maxc6 = swgetmaxc()
  196. swsetvmode(startmode)
  197. ?[Max color for mode 4: ]+str(maxc4,3,0)
  198. ?
  199. ?[Max color for mode 6: ]+str(maxc6,3,0)
  200. ?
  201. wait
  202.  
  203.  
  204. * Example for SWGETMAXX()
  205.  
  206. startmode = swsetvmode(-1)
  207. swsetvmode(4)
  208. max4 = swgetmaxx()
  209. may4 = swgetmaxy()
  210. swsetvmode(6)
  211. max6 = swgetmaxx()
  212. may6 = swgetmaxy()
  213. swsetvmode(startmode)
  214. ?[Max x vmode = 4: ]+str(max4,3,0)
  215. ?[Max y vmode = 4: ]+str(may4,3,0)
  216. ?
  217. ?[Max x vmode = 6: ]+str(max6,3,0)
  218. ?[Max y vmode = 6: ]+str(may6,3,0)
  219. ?
  220. wait
  221.  
  222.  
  223.  
  224. * Example for SWGETMAXY()
  225.  
  226. startmode = swsetvmode(-1)
  227. swsetvmode(4)
  228. max4 = swgetmaxx()
  229. may4 = swgetmaxy()
  230. swsetvmode(6)
  231. max6 = swgetmaxx()
  232. may6 = swgetmaxy()
  233. swsetvmode(startmode)
  234. ?[Max x vmode = 4: ]+str(max4,3,0)
  235. ?[Max y vmode = 4: ]+str(may4,3,0)
  236. ?
  237. ?[Max x vmode = 6: ]+str(max6,3,0)
  238. ?[Max y vmode = 6: ]+str(may6,3,0)
  239. ?
  240. wait
  241.  
  242.  
  243.  
  244. * Example for SWGETVMODE()
  245.  
  246. clear
  247. mode = swgetvmode()
  248. ?[Video mode is set to: ]+str(mode,1,0)
  249. wait
  250.  
  251.  
  252. * Example for SWGETXORV()
  253.  
  254. row     = 2
  255. column  = 2
  256. color   = 1
  257. startmode = swgetvmode(-1)
  258. swsetvmode(19)
  259. xorval = swgetxorv()
  260. string = [XOR vale = ]+str(xorval,3,0)
  261. swcoatsay(row,column,color,string)
  262. swdelay(2*18)
  263. swsetvmode(startmode)
  264.  
  265.  
  266. * Example for SWISEGA()
  267.  
  268. startmode = swsetvmode(-1)
  269. row       = 2
  270. column    = 2
  271. color     = 1
  272. string    = [Mode set to EGA]
  273. if swisega()
  274.    mode = 16
  275.    swsetvmode(mode)
  276.    swcoatsay(row,column,color,string)
  277.    swdelay(2*18)
  278. else
  279.    ?[EGA not detected]
  280. endif
  281. swdelay(2*18)
  282. swsetvmode(startmode)
  283.  
  284.  
  285. * Example for SWISHERC()
  286.  
  287. startmode = swsetvmode(-1)
  288. row       = 2
  289. column    = 2
  290. color     = 1
  291. string    = [Mode set to HERC]
  292. if swisherc()
  293.    mode = 16
  294.    swsetvmode(mode)
  295.    swcoatsay(row,column,color,string)
  296.    swdelay(2*18)
  297. else
  298.    ?[HERC not detected]
  299. endif
  300. swdelay(2*18)
  301. swsetvmode(startmode)
  302.  
  303.  
  304.  
  305. * Example for SWISVGA()
  306.  
  307. startmode = swsetvmode(-1)
  308. row       = 2
  309. column    = 2
  310. color     = 1
  311. string    = [Mode set to VGA]
  312. if swisvga()
  313.    mode = 16
  314.    swsetvmode(mode)
  315.    swcoatsay(row,column,color,string)
  316.    swdelay(2*18)
  317. else
  318.    ?[VGA not detected]
  319. endif
  320. swdelay(2*18)
  321. swsetvmode(startmode)
  322.  
  323.  
  324. * Example for SWLINE()
  325.  
  326. startmode = swsetvmode(-1)
  327. swsetvmode(4)
  328. x1    = 0
  329. y1    = 0
  330. x2    = 319
  331. y2    = 199
  332. color = 1
  333. c     = 1
  334. do  while x1 <= 319
  335.     swline(x1,y1,x2,y2,color+128)
  336.     x2=x2-1
  337.     x1 = x1 + 1
  338. enddo
  339. swdelay(2*18)
  340. swsetvmode(startmode)
  341.  
  342.  
  343. * Example for SWLINETO()
  344.  
  345. startmode = swsetvmode(-1)
  346. swsetvmode(4)
  347. x     = 0
  348. y     = 0
  349. color = 1
  350. swsetorign(x,y)
  351. x = 300
  352. y = 90
  353. swlineto(x,y,color)
  354. x = 120
  355. y = 199
  356. swlineto(x,y,color)
  357. swdelay(2*18)
  358. swsetvmode(startmode)
  359.  
  360.  
  361. * Example for SWPAINTREV()
  362.  
  363. clear
  364. ver = SWPAINTVER()
  365. rev = SWPAINTREV()
  366. if  rev < 10
  367.     version = str(ver,2,0)+[.]+str(rev,1,0)+[0]
  368. else
  369.     version = str(ver,2,0)+[.]+str(rev,2,0)
  370. endif
  371. ?[Version: ]+version
  372. wait
  373.  
  374.  
  375. * Example for SWPAINTVER()
  376.  
  377. clear
  378. ver = SWPAINTVER()
  379. rev = SWPAINTREV()
  380. if  rev < 10
  381.     version = str(ver,2,0)+[.]+str(rev,1,0)+[0]
  382. else
  383.     version = str(ver,2,0)+[.]+str(rev,2,0)
  384. endif
  385. ?[Version: ]+version
  386.  
  387.  
  388. * Example for SWPALETTE()
  389.  
  390. startmode = swsetvmode(-1)
  391. swsetvmode(4)
  392. swpalette(1,1)
  393. swpalette(0,1)
  394. cid   = 0
  395. ulx   = 100
  396. uly   = 60
  397. lrx   = 200
  398. lry   = 150
  399. color = 1
  400. fill  = 1
  401. swbox(ulx,uly,lrx,lry,color,fill)
  402. i = 2
  403. do  while i <= 16
  404.     swpalette(cid,i)
  405.     i = i + 1
  406.     swdelay(9)
  407. enddo
  408. swdelay(2*18)
  409. swsetvmode(startmode)
  410.  
  411.  
  412. * Example for SWPOPSLIDE()
  413.  
  414. startmode = swsetvmode(-1)
  415. swsetvmode(4)
  416. swpopslide([d1.pcx])
  417. swdelay(2*18)
  418. swsetvmode(startmode)
  419.  
  420.  
  421. * Example for SWPRTSCRN()
  422.  
  423. startmode = swsetvmode(-1)
  424. swsetvmode(4)
  425. swpopslide([d1.pcx])
  426. swprtscrn()
  427. swdelay(2*18)
  428. swsetvmode(startmode)
  429.  
  430.  
  431. * Example for SWQDELAY()
  432.  
  433. i    = 500
  434. hold = 10
  435. do  while i < 1000
  436.     swsoundon(i)
  437.     swqdelay(hold)
  438.     i = i + 10
  439. enddo
  440. swsoundoff()
  441.  
  442.  
  443.  
  444. * Example for SWRAND()
  445.  
  446. rand = 1
  447. i    = 1
  448. swsrand(rand)
  449. do  while i < 10
  450.     rand = swrand()
  451.     ?i,rand
  452.     i = i + 1
  453. enddo
  454.  
  455.  
  456. * Example for SWREADDOT()
  457.  
  458. startmode = swsetvmode(-1)
  459. swsetvmode(4)
  460. row    = 10
  461. column = 0
  462. color  = 1
  463. x      = 100
  464. y      = 100
  465. swwritedot(x,y,color)
  466. dot    = swreaddot(x,y)
  467. string = [Attribute Value of x = 100, y = 100
  468. :]+str(dot,3,0)
  469. swcoatsay(row,column,color,string)
  470. swdelay(2*18)
  471. swsetvmode(startmode)
  472.  
  473.  
  474. * Example for SWSETORIGIN()
  475.  
  476. startmode = swsetvmode(-1)
  477. swsetvmode(4)
  478. x     = 0
  479. y     = 0
  480. color = 1
  481. swsetorign(x,y)
  482. x = 300
  483. y = 90
  484. swlineto(x,y,color)
  485. x = 120
  486. y = 199
  487. swlineto(x,y,color)
  488. swdelay(2*18)
  489. swsetvmode(startmode)
  490.  
  491.  
  492. * Example for SWSETPOPXY()
  493.  
  494. startmode = swsetvmode(-1)
  495. swsetvmode(4)
  496. swsetvmpop(0)
  497. swsetpopxy(20,20,120,120)
  498. swpopslide([d1.pcx])
  499. swdelay(2*18)
  500. swsetvmode(startmode)
  501.  
  502.  
  503.  
  504. * Example for SWSETSOUND()
  505.  
  506. i       = 1
  507. mode0   = 0
  508. mode1   = 1
  509. start   = 200
  510. end     = 1500
  511. posinc  = 10
  512. neginc  = -10
  513. loopcnt = 130
  514. dur     = 500
  515. swsetsound(mode1)
  516. do  while i < 6
  517.     swforsound(start,posinc,loopcnt,dur)
  518.     swforsound(end,neginc,loopcnt,dur)
  519.     i = i + 1
  520. enddo
  521. swsetsound(mode0)
  522. wait
  523.  
  524.  
  525. * Example for SWSETVMODE()
  526.  
  527. startmode=swsetvmode(-1)
  528. swsetvmode(4)
  529. swgcls()
  530. swsetvmode(startmode)
  531.  
  532.  
  533.  
  534. * Example for SWSETVMPOP()
  535.  
  536. startmode = swsetvmode(-1)
  537. swsetvmode(4)
  538. swsetvmpop(0)
  539. swsetpopxy(20,20,120,120)
  540. swpopslide([d1.pcx])
  541. swdelay(2*18)
  542. swsetvmode(startmode)
  543.  
  544.  
  545. * Example for SWSOUND()
  546.  
  547. color = 2
  548. x     = 0
  549. y     = 0
  550. i     = 1
  551. swsrand(i)
  552. do  while i < 100
  553.     x = swrand()%1999
  554.     if x > 32
  555.        swsound(x,1)
  556.     endif
  557.     i = i + 1
  558. enddo
  559.  
  560.  
  561. * Example for SWSOUNDOFF()
  562.  
  563. i    = 500
  564. hold = 10
  565. do  while i < 1000
  566.     swsoundon(i)
  567.     swqdelay(hold)
  568.     i = i + 10
  569. enddo
  570. swsoundoff()
  571.  
  572.  
  573. * Example for SWSOUNDON()
  574.  
  575. i    = 500
  576. hold = 10
  577. do  while i < 1000
  578.     swsoundon(i)
  579.     swqdelay(hold)
  580.     i = i + 10
  581. enddo
  582. swsoundoff()
  583.  
  584.  
  585. * Example for SWSRAND()
  586.  
  587. rand = 1
  588. i    = 1
  589. swsrand(rand)
  590. do  while i < 10
  591.     rand = swrand()
  592.     ?i,rand
  593.     i = i + 1
  594. enddo
  595.  
  596.  
  597. * Example for SWWRITEDOT()
  598.  
  599. startmode = swsetvmode(-1)
  600. swsetvmode(4)
  601. i = 1
  602. swsrand(i)
  603. do while i < 300
  604.    swwritedot(swrand()%319,swrand()%199,1)
  605.    i = i + 1
  606. enddo
  607. swsetvmode(startmode)
  608.