| !Teletext
| version 2.01 (30-May-90)
|
RMEnsure ViewEmulator 0.93/01 RMLoad <Obey$Dir>.65TubeView
RMKill ViewEmulator
|
WimpSlot -min 64k -max 64K
RMEnsure ColourTrans 0 If "<System$Path>" ="" Then Error 0 System resources cannot be found Else RMLoad System:Modules.Colours
RMEnsure VData 1.02 RMLoad <Obey$Dir>.VData
RMEnsure VData 1.02 Error Viewdata module is out of date
Iconsprites <Obey$Dir>.!Sprites
|
| Set your channel preferences here ...
Set TText$Page1 100
Set TText$Page2 200
Set TText$Page3 100
Set TText$Page4 400
|
| Set the teletext options here ...
| C[n] - which channel you want it to start on
| K    - if present, the keypad is displayed when you open the window
| B    - if present, !Teletext beeps when you get a new page
Set TText$Options C1 B K
|
Set TText$Dir <Obey$Dir>
Run <TText$Dir>.!RunImage
