0  _screen  _setup ( _update 2 _clock < _window2 F revector P clock Z _error d n _keyready _keyboard x _charready _character    _screen . 25,1);"RTTY Program (Interupt Driven)" Q 7,3);"Baud Rate USOS Supress LF's Printer Disc Time (GMT)"  _box(0,12,1278,1016)  _box(8,948,1270,1008)  _box(8,852,1270,940)  _box(8,692,1270,844)  _box(8,20,1270,684)    _box(x0,y0,x1,y1)  x0,y0  x0,y1  x1,y1 " x1,y0 , x0,y0 6 @ J _update T _store ^ 26 h _centre((baud),7,15) r" _centre(_onoff(usos),20,23) |! _centre(_onoff(lfs),28,39) % _centre(_onoff(printer),44,50) " _centre(_onoff(disc),55,58)  _restore    _setup  *FX 225,128 - 23,224,&01,&03,&06,&8C,&D8,&70,&20,&00 - 23,225,&00,&C3,&66,&3C,&3C,&6C,&C3,&00  revector = A%  clock = B%  resetirq = C%  resetclock = D%  shift = &73  delayl = &74  delayh = &75 & ptr1 = &76 0 ptr2 = &77 : status = &78 D hours = &80 N minutes = &81 X seconds = &82 b buffer = &900 l baud = 50 v usos =  lfs =  printer =  disc =  outline =  fsp$ = ""  comment$ = ""  _pokevalues    _clock  _store  _window1  "Enter Time (GMT)"  "Hours : "h   "Minutes : "m  "Seconds : "s  ?hours=h * ?minutes=m 4 ?seconds=s > H _restore R \ f _window1 p 28,2,9,77,6 z   _window2  28,2,30,77,11    _store  oldx =  oldy =  leftx = ?&308  bottomy = ?&309  rightx = ?&30A  topy = ?&30B    _restore 0 28,leftx,bottomy,rightx,topy,31,oldx,oldy $ . 8 _onoff(t) B t =(224) ="x" L V _centre(s$,x0,x1) ` x0,4);(x1-x0+1) j 5 t$ (x0+(x1+1-x0-(s$))/2)*16,888 ~ s$  4    _keyboard  key=  key=9 ?shift=0 * key=13 _output(32):_output(13) " key=128 baud=_changebaud  key=129 _enterbaud  key=130 usos=(usos)  key=131 lfs=(lfs) # key=132 printer=(printer)  key=133 _disc   key=134 _comment  key=135 outline=  key=136 _clock ( key=137 _standby 2 _pokevalues < _update F P Z _changebaud d baud=45.45 =50 n baud=50 =75 x baud=75 =100  =45.45   _enterbaud  _store  _window1    "Enter Baud Rate : "baud  baud>0   _restore    _disc  disc=(disc) " disc _discon _discoff " , 6 _discon @ _store J _window1 T ^ h "Enter Filename : "f$ r" (f$="" fsp$<>"") f$<>"" |$ f$="" _oldfile _newfile   _restore    _oldfile  file=(fsp$)  #file= #file    _newfile  fsp$=f$  file=(fsp$)    _discoff  #file & 0 : _comment D _store N _window1 X b "Enter Comment" l ": "comment$ v  _restore    _standby   _window1     31);"Stand By Mode" ' 25);"Press To Continue"  _keyboard  key=32  ?ptr1=0  ?ptr2=0    _window2 * 4 > _character H ch=buffer??ptr2 R ?ptr2=?ptr2+1 \ _output(ch) f ch<>13 (outline) p outline= zR out$="Time "+_time+" --- Speed "+(baud)+" Baud --- Comment "+comment$+(13)  a=1 (out$)  _output((out$,a,1)))     _output(c)  c=13 lfs =0  printer 2  disc #file,c  c=13 (c);  printer 3    _time > =_conv(?hours)+":"+_conv(?minutes)+":"+_conv(?seconds)  $ _conv(c) . =(48+c 10)+(48+c 10) 8 _pokevalues B! ?delayl=(1000000/baud) 256 L! ?delayh=(1000000/baud) 256 V ?status=-128*usos ` j t _keyready ~ =(-1)>0   _charready  =?ptr1<>?ptr2   _error  resetirq  resetclock #0 26,12   " at line ";