home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 51 / SCRPAINT / SCRPAINT.ZIP / DEMO.TXT < prev    next >
Encoding:
Text File  |  1989-11-07  |  2.0 KB  |  131 lines
  1. :demo
  2.   dos cls
  3.   cursor 01,00
  4.   color 15
  5.   puttext Please enter your first name :
  6.   color 31
  7.   cursor 01,31
  8.   gettext 1 10
  9.  
  10.   nokey
  11.   display demo.scr
  12.   cursor 00,52
  13.   color 49
  14.   puttext %1
  15.   hilite 95,3,1,3,14
  16.   repeat vertically 6,2
  17.   hilite 95,24,4,24,11
  18.   choice 1,i do intro
  19.   choice 2,o do pcplus
  20.   choice 3,d do dropdown
  21.   choice 4,p do popup
  22.   choice 5,b do button
  23.   choice 6,n do simple
  24.   choice 7,s do scrpaint
  25.   choice 8,27 goto exit
  26.   display noscreen
  27.  
  28. :intro
  29.   nokey
  30.   display demo1.scr
  31.   cursor 00,52
  32.   color 49
  33.   puttext %1
  34.   hilite 95,3,1,3,14
  35.   repeat vertically 4,2
  36.   hilite 95,24,4,24,11
  37.   choice 1 do music
  38.   choice 2 do sdmc
  39.   choice 3 do sdmr
  40.   choice 4 do scrpaint
  41.   choice 5 do other
  42.   choice 6,27 return
  43.   display noscreen
  44.  
  45. :music
  46.   savedir
  47.   dos cd music
  48.   dos ..\sdmr music
  49.   popdir
  50.   return
  51.  
  52. :sdmc
  53.   hilite 95,24,13,24,29
  54.   hilite 95,24,53,24,69
  55.   choice 1 goto sdmr
  56.   choice 2,27 return
  57.   display sdmc.scr
  58.  
  59. :sdmr
  60.   hilite 95,24,13,24,29
  61.   repeat horizontally 2,3
  62.   choice 1 goto scrpaint
  63.   choice 2 goto sdmc
  64.   choice 3,27 return
  65.   display sdmr.scr
  66.  
  67. :scrpaint
  68.   hilite 95,24,13,24,29
  69.   repeat horizontally 2,3
  70.   choice 1 goto other
  71.   choice 2 goto sdmr
  72.   choice 3,27 return
  73.   display scrpaint.scr
  74.  
  75. :other
  76.   hilite 95,24,33,24,49
  77.   hilite 95,24,53,24,69
  78.   choice 1 goto scrpaint
  79.   choice 2,27 return
  80.   display other.scr
  81.  
  82. :pcplus
  83.   savedir
  84.   dos cd pcplus
  85.   dos ..\sdmr pcplus
  86.   popdir
  87.   return
  88.  
  89. :dropdown
  90.   savedir
  91.   dos cd dropdown
  92.   dos ..\sdmr dropdown
  93.   popdir
  94.   return
  95.  
  96. :popup
  97.   savedir
  98.   dos cd popup
  99.   dos ..\sdmr popup
  100.   popdir
  101.   return
  102.  
  103. :button
  104.   savedir
  105.   dos cd button
  106.   dos ..\sdmr button
  107.   popdir
  108.   return
  109.  
  110. :simple
  111.   savedir
  112.   dos cd simple
  113.   dos ..\sdmr simple
  114.   popdir
  115.   return
  116.  
  117. :scrpaint
  118.   savedir
  119.   dos cd scrpaint
  120.   dos scrpaint
  121.   popdir
  122.   return
  123.  
  124. :exit
  125.   dos cls
  126.   cursor 10,30
  127.   color 241
  128.   puttext Goodbye %1
  129.   display noscreen
  130.   exit
  131.