Category : Miscellaneous Language Source Code
Archive   : UNST13.ZIP
Filename : BUTTONS

 
Output of file : BUTTONS contained in archive : UNST13.ZIP
;****************************************************************
; This Universal INSTALL script file demos BUTTONS, User
; Input, and a simple technique for creating some "animation".
;
;****************************************************************
[Main Intro]
ClearScreen
BackPlane Gray on Brown =±
TopBar Black on Gray =Sample Top Message Bar
BottomBar Black on Gray =Sample Bottom Message Bar
BuildWindow
StartRow =Center
StartColumn =Center
TopTitle =What do you want to do?
ShadowType =Big
WindowColor =Gray
Border =Blue
ColumnMargin = 21
RowMargin =3
EndWindow
Buttons
RowMargin =1
ColumnMargin =4
StartRow =Window+1
StartCol =Window+5
ButtonOnColor =White on Blue
ButtonOffColor =Black on Gray
Travel =Horizontal
Distance =5
Message =See moving window
GoButton =Moving Window
Message =Try entering text
GoButton =Enter Text
EndButtons
Jump =Quit
;
; ------------------------
; Display "moving" window
; ------------------------
;
[Moving Window]
ClearPlane
BuildWindow
StartRow =4
StartColumn =3
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =6
StartColumn =8
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =8
StartColumn =13
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =10
StartColumn =18
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =12
StartColumn =23
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =14
StartColumn =28
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =16
StartColumn =33
TopTitle =Moving Window!
ShadowType =None
WindowColor =Gray
Border =Blue
ColumnMargin = 3
RowMargin =1
EndWindow
SystemDelay =1
BuildWindow
StartRow =17
StartColumn =48
TopTitle =Moving Window!
ShadowType =Big
WindowColor =Gray
Border =Magenta
Text Black =Universal INSTALL!
ColumnMargin =4
RowMargin =2
EndWindow
SystemDelay =1
BottomBar Black on Gray =Press ENTER to return to opening screen, ESC to Quit...
Wait =Enter,Esc
On (Esc) Jump =Quit
On (Enter) Jump =Main Intro
;
; --------------------
; Ask for user input
; --------------------
;
[Enter Text]
ClearPlane
Input
StartRow = 9
StartColumn =20
Action =Enter,Esc
TextColor =Blue on Gray
Default =Type some text here. (default text demo)
Width =45
EndInput
BottomBar Black on Gray =Press ENTER to return to opening screen, ESC to Quit...
Wait =Enter,Esc
On (Esc) Jump =Quit
On (Enter) Jump =Main Intro
;
; --------------
; Quit
; --------------
;
[Quit]
ClearScreen
Text 1,1 Gray on Black =Thanks for trying Universal INSTALL.


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : UNST13.ZIP
Filename : BUTTONS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/