L+LۀMICRONET 1.40(C) 1983 Scicon Ltd`X Ą  x kBz{ |x}~ Ӄ 0 U Ą  |}"z{ޅ~ xp Ѡ  愢ˠLBASIC  OLD RUN H ;h(`   /L~L1FRAMEST   Ч Ą U  t OL $p `$p _ Ӄ$p ʁ ! : P X ⪩$p` ^ȑ  HH$phhuH0Hhhi`HHHHH hhhhhъ?$p ^  f"$p(88ȱ8`qq`%pp` Wƈ   Ɖ  %qq _ kL 0LH򅆩$qI%qq(@e NH Khɍ   qƉ 'ƉL((扥L; `$pƉ ( N $q y`H h`H( h`HHH N ɘ $q( (hhh`H h  y`H  q$q y扥h`ii{ee8劅勅` N(ф %qqLJqq$q` U` ` ``ȅ~}ȅ|z{j Leȅz{H h`$r)zH{H|z}{h}h|` Ȣ `    0`LS /LO$p #_EqqH ӃhLQ`ȱl$p `i zi{zi|{i}~ z ` Ӄ LS %qq N-%qq%qqL煩 qq  $q @_. ( $q I%qq   `H  h H h` e & &eii ee`ȥHH fhh`*00*90___0~8z|~~~&z{z|}|Lz{|}L`B$p2 % #_  Jj ` $p )ȑ` H ؁h J)`` `HH8厅叅hh`+ƏƎ~|z}{|H h`74:4ȑtsru $rt$r Lt OL~LRL\ H$p z%pp hHhz{zȱzɪ Oz{ lzL8(1L 8ȱȑ8(  z`rz{v|}$r ~ iHip~ s| jA$rI%rr(3 O|*}u eu$r$rۊsstL AXZ| ZrrL҉LI %rrL$rЕ680 uLF rrLLL"$r  |; Z4 LE|L}rrLH I&hŇrrrr`~~~(rrE$r(` 80rr rre e L"`$p1(  )Z| `| _ ^ RmS Z  Z [  s t 愦 LT OL~ LT  L ~ ' Save or Run ( S/R ) ? Filename ? `8  䬰.Ѩ(` W 8` `|}~| ~`MICRONET 800 (C) Ver 1.40 14/11/83 80hh 80hh 8 `.,>fb,,>fb.,< )prt8)prt8)prt8! *%"$& "$& "$& `p0 .}/}j5~//}j=/o4~//}j=/o4~//}"#!   j5pp|j5p ppj5 j5sss pz5 # # #"!"##1"qpy0"3sq2!8"!"##! "## bf (1bf (1bf h?o4~/}h?o4 8!h+3;ih+3;i !h?o4 j5j5 * " ** " * *}~%o|?*}~% ####################################### #(c)1983 Scicon Ltd V1.40 DS/RT =256*?&8B-1900:Ppu *FX18 *FX219,20 *FX7,4 *FX8,1 *FX4,2  *KEY11*  *KEY12|H  *KEY13|I  *KEY14|J  *KEY15|K  *KEY3|G  *KEY5|T5  *FX4,0 wk%80,mb$(19):i%=019:mb$(i%)=40," ")::id$=10,"*"):E$=20," "):q$=80," "):f$=40," "):init:log=1:E$="Download Failure" 2?ex=0E$=n$:log=0:DF@ <?ex=7E$=n$ Fclr P?ex=8dPG Z tx("") d0ttE x2clr:E$=n$:3,20)"New ID no. ",q$:q$=""Dd@ 5q$<>10E$="Invalid ID number":err:x=100:DxE >id$=q$:i=2102:idst?(i/2-1)=16*id$,i,1)+id$,i-1,1): Ftx(id$):clr:dble(9,5,"PHONE COMPUTER"):log=1:con=2:diG -clr:log=0E$="Already Logged OFF":Dd@ 1tx("*90#"):?md=0:osc(f$):?ex=2log=0:Dd@ =clr:5,5);"Log OFF ?";:7:q$=:q$="y"q$="Y"d~FDd@ ,log=0:tx("*90##"):?md=16:osc(f$):Dd@ con=0:clr  +?md=con:osc(f$):x=?ex:x=1E$=n$:Dd@ $x=2E$="Line Break":log=0:Dd@ :clr:8,5)"You are still Logged ON":7:x=30000:Dd@ Hosc("S."+34+fnme("Save Frames")+34+" "+~(vars+32)+"+3C0"):Dd@ #mn(4):ky TDP,DhP,D@_,Dd@ con=100:ddG hAosc("L."+34+fnme("View Frames")+34+" "+~(vars+32)):TDP  *FX3,10 ?md=108:osc(f$):*FX3,12  *FX7,4  *FX8,1  Dd@ p(mn(6):ky dTW,TxX,t\X,D@_,Dd@  dld=17 !?fmd=123-s$:?md=dld:osc(f$) 8dld=1:dYW ^clr:5,5);"Start Frame is ' ";s$;" '"5,7);"Press New Letter :":q$=:q$=13E$=n$:DpW Eq$=(q$32):q$<"a"q$>"z"E$="Invalid Letter":err:x=100:t\X E$=n$:s$=q$:DpW X2mn(7):ky t|[,T`\,tD\,dh\,DL],D@_,Dd@ sclr:row%=0:ct%=0:adr%=vars-1:lc%=1::q$=mb$(row%):q$=""dZ[q$,1)<>"#"q$=q$+13+lc%,10):lc%=lc%+1lc%=1 Elen%=q$:ct%=ct%+len%:$wk%=q$:txld(wk%,adr%,len%):adr%=adr%-len% row%=row%+1:q$=""row%>19 $?txc=ct%256:txc?1=ct%256:dPG  qclr:clmb:tle("Prepare Message"):row%=0:wd:12:cur(1):31,10,22,157,132:"TAB ";:156,135:"to End";:30 *Dwi:15:Y%=:Y%=20DH\A%=138:X%=0:&FFF4:""q$:q$=""q$=" " 4q$>407 >Mmb$(row%)=q$,40):wd:31,0,row%+1:;mb$(row%):row%<19row%=row%+1:Tj\ H$wd:cur(0):any(22):E$=n$:DX[ Kfl$=fnme("Save Message"):wf:x=(fl$):i%=019:#x,mb$(i%)::#x:DX[ Qfl$=fnme("Fetch Message"):x=(fl$):clmb:i%=0::#x,mb$(i%):i%=i%+1:#x:#x LZclr:tle("Current Message"):wd:12:row%=019:0,row%+1);mb$(row%)::any(22):DX[ @Zclr:3,19);"OS Command ?";3,22);"*";:""q$:q$<>"":cur(1):osc(q$):cur(0)Dd@ Tany(23):Dd@ ' "Main Micronet Menu",7,"Log ON or OFF","Micronet Terminal","Save Frame","View Frame","Print Frame","Downloader","Mailbox Message" 'A "Logon Menu",3,"Automatic Log ON","Manual Log ON","Log OFF" '89 "View Frames Menu",2,"Current Frame","Stored Frame" 'LK "Downloader Menu",3,"RUN & Log OFF","RUN & STAY","Change Start Frame" 'Vp "Mailbox Message Menu",5,"Send Message","Prepare Message","Save Message","Fetch Message","Display Message" N init:n$=8+8+8+132+157:f$="FRAMEST":s$="c":vars=256*?&8B:md=&70:ex=&8C:txc=&8E:idst=&81:fmd=vars+17:id$="":i=04:id$=id$+(idst?i 16)+(idst?i 16)::(id$)=0id$=10,"*") N>?md=0:md?1=0: NRcur(c%):23,1,c%;0;0;0;: N\"clmb:i%=019:mb$(i%)="":: Nfwi:28,0,23,39,23,12: Npwd:28,0,24,39,2: Nzwf:28,3,22,30,20,12: N3clr:26,12:i=023:132,157,135,13,10::30: Nmn(n):clr:cur(0):err:(10000+n*10):m$:tle(m$):it:9,9,9,131:;" KEY FUNCTION"':i=1it:m$:9,9,9,9,9,9:;i-1;7);m$': O 9,9,9,9,9,9:;i-1;7);"Operating System"':132,157,135,157,132:"TAB ";:157,135:" GOTO Main Menu"':l$=" ON":log=0l$="OFF" O$725,23);"Logged ";l$;:E$=n$:ky=:ky=20ky=it+2: O8ky=0PdO OB=ky>47ky<(49+it)ky=ky-47::E$="Invalid Key":err:PdO OLFtxld(s%,d%,len%):j%=d%:len%>0 i%=0len%-1:?j%=i%?s%:j%=j%-1: OV"?txc=len%256:txc?1=len%256: O~8tx(t$):len%=(t$):$wk%=t$:txld(wk%,vars-1,len%): O4osc(a$):$wk%=a$:X%=wk%256:Y%=wk%256:&FFF7: Pxerr:E$<>n$E$=E$+7 PI0,23);:132,157:(20);0,23);:131,157,132:;E$;:132,157,135,30: PPtle(m$):9,9:dble((40-(m$))/2-4,0,135+157+129+m$+132+157):0,3);: Q@6dble(x,y,m$):i:i=01:x,y+i);141;m$;140:: Q5any(r%):8,r%);"Any key to continue";:q$=: R?ݤfnme(t$):clr:tle(t$):wf:15:膊3,20)"Filename: "q$:=q$ u0YE%=256*?&FE+?&FD+1:F%=0::F%?wk%=F%?E%:F%=F%+1:F%?E%=0:F%?wk%=&D:E$=$wk%:=17E$=n$ u: Dd@