> Econet 1.30 3&87:4:"FX220,27":=17:&87:chain ::  *Exec ( *FX15 2 *KEY10 < *FX5,4 F *FX247 PBA%=0:X%=1:os%=((&FFF4)&FF00)256:ctrl%30:X%=ctrl%:Y%=X%256 Z.!X%=5:A%=&13:&FFF1:!X%=8:&FFF1:Stn%=X%?1 d,CheckStn:&81:23;8202;0;0;0;:*FX220,32 n':os%<3:0,9); xos%<6:*ROMS 0,0);:A%=08:(24): 0,15);:A%=13:(24): $3:double(0,0,"STATION "+Stn%) (2:double(0,3,"MYERS GROVE ECONET") '3:double(0,6,"ROMS AVAILABLE"):2 +19,1,4,0,0,0,19,2,3,0,0,0,19,3,6,0,0,0 :  Leftward acorn: 23,128,0,0,0,0,0,0,0,3 23,129,0,0,0,0,0,255,127,63 $23,130,3,7,14,28,56,240,224,224 "23,131,7,15,31,31,31,31,63,63 +23,132,159,207,231,243,249,252,254,255 )23,133,224,224,224,224,224,224,96,32 !23,134,63,63,63,63,63,63,0,0 '23,135,255,255,255,255,252,192,0,0 "23,136,128,128,0,0,0,0,0,0 ,: 6 Rightward acorn: @$23,137,192,224,112,56,28,15,7,7 J!23,138,0,0,0,0,0,255,254,252 T23,139,0,0,0,0,0,0,0,192 ^23,140,7,7,7,7,7,7,6,4 h*23,141,249,243,231,207,159,63,127,255 r+23,142,224,240,248,248,248,248,252,252 |23,143,1,1,0,0,0,0,0,0 $23,144,255,255,255,255,63,3,0,0 '23,145,252,252,252,252,252,252,0,0 :  Downward acorn: 23,146,0,0,0,3,7,15,15,31 )23,147,24,24,255,255,255,255,255,255 %23,148,0,0,0,192,224,240,240,248  23,149,31,0,15,15,15,15,7,7 )23,150,255,0,255,255,255,255,255,255 )23,151,248,0,240,240,240,240,224,224 23,152,7,7,3,3,1,0,0,0 *23,153,255,255,255,255,255,255,126,60 %23,154,224,224,192,192,128,0,0,0 :  GROG&GRAY: %23,156,127,64,86,84,84,116,0,127 &&23,157,254,0,234,42,234,238,2,254 0$23,158,0,127,64,86,84,116,0,127 :%23,159,0,254,0,238,170,238,2,254 D: N\ PRINTTAB(0,15);SPC(24)'SPC(10)'SPC(10)'SPC(10)'SPC(10)'SPC(10)'SPC(10)'SPC(10)'SPC(10) X: b Draw badge: l X=960:Y=650 v Z=1 6  Z=3TLC B G=(2 Z=1)+(3 Z=2)+(3 Z=3)+(2 Z=4)+(1 Z=5)+(3 Z=6)  0,G  R=274-(Z*25)  ST=(2*/100)+50  S=(ST):C=(ST)  XP=R:YP=0  X+R,Y  L%=1 16  XR=XP*C-YP*S  YP=XP*S+YP*C:XP=XR  X,Y  85, X+XP,Y+YP  L%   Z  OUTER BADGE  0,2 * 782,650: 782,960 4 85,1136,960 > 1136,650 H 85,782,650 R 0,2 \ BORDER TOPS f 780,650: 780,775 p 85,710,750 z 710,650  85,780,650  1138,650: 1138,775  85,1210,750  1210,650  85,1138,650  INNER BORDER TOPS  0,3  738,650: 738,730  85,780,650: 85,780,740  1138,650: 1138,740  85,1185,650: 85,1185,730   INNER BORDER TOPS  0,1  810,650: 810,930  85,1110,930 $ 1110,650 . 85,810,650 8 SUPER INNER B 0,3: 836,648: 836,900 L 85,1084,900 V 1084,648: 85,836,648 ` 5:0,2 j 865,718:"" t 865,686:"" ~ 865,654:""  915,628:""  915,596:""  915,574:""  963,618: 963,720  956,618: 956,720  :  Righthand leaf: 23,128,0,0,0,0,1,3,7,15 (23,129,0,28,126,254,252,249,251,255 ' 23,130,0,0,30,63,255,255,255,254 ! 23,131,0,0,0,6,14,31,31,31 ) 23,132,15,31,63,63,127,127,127,127 - 23,133,255,255,255,255,255,255,255,255  - 23,134,252,254,255,255,254,224,240,224 ( 23,135,63,63,63,63,63,127,127,127 + 23,136,192,128,0,224,224,240,224,192 (- 23,137,127,127,127,127,127,255,255,224 2+ 23,138,255,255,255,255,255,255,240,0 <) 23,139,255,192,240,248,240,224,0,0 F 960,845:" " P 960,819:"" Z 960,787:"" d 960,755:"" n: x Lefthand leaf: ) 23,128,0,0,120,252,255,255,255,127 ) 23,129,0,56,126,127,63,143,207,255 % 23,130,0,0,0,0,128,192,224,240 ' 23,131,63,127,255,255,127,7,15,7 - 23,132,240,248,252,252,254,254,254,254 & 23,134,0,0,0,96,112,248,248,248  23,135,3,1,0,7,7,15,7,3 - 23,136,252,252,252,252,252,254,254,254 " 23,137,255,3,15,31,15,7,0,0 * 23,138,255,255,255,255,255,255,15,0 + 23,139,254,254,254,254,254,255,255,7  838,845:""  838,819:""  838,787:""  838,755:" "  4 ": , 3 6%double(2,16,"Fileserver discs") @'double(0,18," on line are"):' J 2:*FREE T 1:33,26);" & " ^5double(5,30,"Press SPACE to continue"):*FX220,27 h:&87:chain: r: |chain: "Hello": : /double(xpos%,ypos%,text$):xpos%,ypos%); 2A%=10: Z%=1 text$:?X%=text$,Z%,1):&FFF1 <23,128,X%?1,X%?1,X%?2,X%?2,X%?3,X%?3,X%?4,X%?4,128,8,10 :23,128,X%?5,X%?5,X%?6,X%?6,X%?7,X%?7,X%?8,X%?8,128,11 : : CheckStn  os%>2: &(Stn%10)=2:"TV255": Downstairs