ZXTape! 0Created with Ramsoft MakeTZXFISBENTAP2g €Õ\w"iÿúý:ñin=0:ñoi=0:ñs=0:ñsx=0:ñlt=0:ñap=0:ñba=0:ñbx=0:ñfi=0:ñhh=0:ñbr=0:ñj=0:ñag=0:ñk=0:ñw=0:ñtg=0:ñbe=0:ñst=0:ñkb=0:ñka=0:ñfx=0 'Ú7:Ù0:ç7:í9000(#  ñyn=3000¸ :ñcash=3100 Ïä4350þ,1105Q,2680x ,730Ú,2145a,580D,1650r,475Û,1370Z,0,915“,0,25,25,0,885u,100d,885u,100d,9800H&,885u,0,530,0,455Ç,0,295',0,9800H&,700¼,1015÷,1015÷,23,29,500ô,3000¸ ,7600°,950¶,20,1900l,200È,11 ,16,18,99c,1535ÿ,1375_ 27év(47/):ãv(47/):ëx=1Ì46.:ãv(x):óx <ñp$="Please repeat that!" Fû Põ"What is your name?":în$ ZQú±n$<3űn$>20Ëõ"3 to 20 letters please":ì80 P dû n õ"Hello ";n$ ‚õ"Male or Female?":îs$ ƒñs$=s$(1) „ús$="m"Ëñs$="M" …ús$="f"Ëñs$="F" Œ3ús$É"M"Æs$É"F"Ëû:õ"Reply M or F please":ì130‚ •ñf$=s$ –û   õ"How old are you?":îa$:ñag=°a$ ª/úag<10 Åag>120xËû:õp$:ì160  ´û ¾8õ"Have you a partner that you admit to?":íyn:ñs$=a$ Òús$="N"Ëì290" Ü1õ"Can I assume you'd be the claimant?":íyn ðúa$="Y"Ëì260 úñsx=3:ì1230Î û õ"Age of Partner?":îap )úap<10 Åap>120xËõp$:ì270 "û ,6õ"Are you a Householder(eg Tenant or Mortgagee)?":íyn @úa$="Y"Ëì500ô Eús$="Y"Ëì410š Jû T&õ"Joint Householder(eg Sharing)?":íyn húa$="N"Ëñhh=2:ì410š rû:ñhh=1 |õ"How many share?":îj †új<2Ëõp$:ì380|  ì500ô šû ¤'õ"Boarding?(If unsure read note 7":íyn Âúa$="N"Ëì500ô Ì ñhh=3 Öû àõ"Breakfast Provided?":íyn êúa$="Y"Ëñhh=4 ôû þ$õ"How many dependant children?":îa$ 3úa$(1)="n"Åa$(1)="N"Åa$="0"Ëì650Š ñk=°a$ %úk<1Åk>15Ëõp$:ì510þ ék(k) & ñka=0 0 ñkb=0 : ëx=1Ìk Dõ"Age of child " ;x;"?" N0îq:ñk(x)=q:úq<0Åq>19Ëõp$:ì580D Xúk(x)<11 Ëñka=ka+1 gúk(x)È11 Ëñkb=kb+1 €óx Šû ”õ"Are you working?":íyn žúa$="N"Ëì710Æ ¨û ²õ"How many hours a week?":îw ¼%úw<1Åw>60<Ëõp$:ì690² Æ í1880X Ðúw>v(33!)Ëì870f äû î&õ"Savings over `";v(34");"?":íyn øúa$="N"Ëì810* ñs=v(34")+1  û &õ"Savings over `";v(35#);"?":íyn  úa$="Y"Ëñs=v(35#)+1 * êlong term 4$úag>59;Ëñlt=1:ì870f >úk=0Ås$="Y"Ëì870f Hû R5õ"Have you been claiming for one year?":íyn \úa$="Y"Ëñlt=1 fúwÇ0Ëì910Ž pû zdõ"What are your Gross weekly earnings?(answer in Pounds.Pencee.g. 72.05)":îin:ñin=in*100d „,úin<100dÅin>32500ô~Ëõp$:ì890z Žúw>v(33!)Ëñsx=1 ˜úag<16Ëñsx=2 ¢ús>v(35#)Ëñsx=4 ¬úk=0Ëñfx=1 ¶2ñtg=v(33!):ús$="N"Æk>0Ëñtg=v(32 ) ÀúwÇtgËñfx=3 Êúsx>0Ëì1170’ Ôús$="N"Ëì1010ò ÞúhhÈ3Ëì1040 ãñba=v(47/)+lt*v(1) è ì1070. ò5úhh=0Ëñba=v(2)+lt*v(3):ì1070. üuúhh=1Åhh=2Ëñba=v(6)+lt*v(7)+(ag>17)*(v(4)-v(6)+lt*(v(5)-v(7))) Búhh=1Ëñba=ba+º((v(2)+lt*v(3)-ba)/j):ì1070. Xúhh>2Ëñbe=v(15)+v(17)*(s$="Y")+v(16)*lt+v(18)*lt*(s$="Y") Búhh>2Ëñba=be+(v(30)+v(31))*(k+1+(s$="Y")) $4úhh=3Ëñba=ba+v(29)*(k+1+(s$="Y")) .;ñba=ba+v(45-)*(ag>79O)+v(13 )*(ap>79O) 8êkids Búk=0Ëì1170’ L&ñmd=12 :úhh>2Ëñmd=28 V ëx=1Ìk `ëy=1Ì4 j1úk(x)0Ëì1230Î ¦ñst=v(36$)+v(37%)*k °<ú(st-(in+oi))<2*(v(38&))Ëñfx=4:ì1230Î ºñfi=º((st-in)/2) Ä>úfi>(v(39')+k*v(40())Ëñfi=v(39')+k*v(40() Î êprint data Øû ì&õ"Name:-";n$;" Age ";ag;" Sex ";f$ ús$="N"Ëõ"No ";  õ"Partner "; ús$="Y"Ëõ"Age ";ap; õ ('úhh=0Ëõ"Householder":ì1380d 2;úhh=1Ëõ"Joint Householder ";j;" sharing":ì1380d <+úhh=2Ëõ"Non-Householder":ì1380d Fõ"Boarder-Breakfast "; Púhh=3Ëõ"not "; Z õ"provided" dúk=0Ëì1420Œ nõ"Child";:úk>1Ëõ"ren"; s õ" age"; xëx=1Ìk:õ" ";k(x);:óx Œ&úw=0Ëõ"Not Working":ì1440  –õ"Working ";w;" hrs/week"  úw>v(33!)Ëì1480È ª õ"Savings "; ´ús0Åoi>0Ëñv=in+oi:ícash:õ"Gross Income `";v$ Òúhh>2Ëí1960¨ Ü+õ"###SUPPLEMENTARY BENEFIT#####" æúsx=0Ëì15906 ð$õ"You don't appear to qualify 'cos" ú(úsx=1Ëõ"You're in full time work" !úsx=2 Ëõ"You're too young" /úsx=3Ëõ"Your partner should be claimant" *úsx=4Ëõ"Your savings are too great" ,õ"Sorry........":ì1730 6,ñv=ba:ícash:õ"You seem to qualify for `";v$ @Rúin+oi>0Ëõ"Part of your income shown above will probably go to reduce this" JBúoi>0Æs$="y"Ëõ"Partners earnings over `4 will be deducted" ^-úk>0Ëõ"Child benefit will be deducted" hmús$="N"Æk>0Æfi>0Ëõ"Compare this,after adding any additional payments,to the FIS option below" rCúhh>2Æbr>0Ëñv=br:ícash:õ"Rent will be paid up to `";v$ Âúw=0Ëì18400 Ì#õ"##FAMILY INCOME SUPPLEMENT#####" Öúw=0Ëì18400 Ûúfx=0Ëì1810 à"õ"You don't seem to qualify 'cos" ê"úfx=1Ëõ"You've no children" ô&úfx=3Ëõ"You work too few hours" þ&úfx=4Ëõ"Your income's too high" õ"Sorry.......":ì18400 ,ñv=fi:ícash:õ"You seem to qualify for `";v$ :õ"To claim get form FIS1 from the Social Security Office" :7úhh<3Ëõ"You may qualify for housing benefit" Dÿ E# î"Press enter to clear screen";z$ N÷ Xús$="N"Æf$="M"Ëþ ]4û:õ"Any other family income (Maintenance,"; b ús$="Y"Ëõ"partner's earnings,"; l õ"etc)":íyn v úa$="N"Ëþ €û ŠXõ"How much per week? (Reply Pounds.Pence e.g. 43.05)":îoi:ñoi=oi*100d ”úoi<1Ëõp$:ì1930Š ™þ ¨Túhh>2Ëñbr=(v(19)+v(28)*(s$="Y")+v(28)*kb+v(46.)*ka)-ba ²úbr<0Ëñba=ba+br:þ ·þ ¸îa$:ña$=a$(1) ºúa$="y"Ëña$="Y" ¼úa$="n"Ëña$="N" ¾5úa$É"Y"Æa$É"N"Ëõ"Please reply YES or NO":ì3000¸ Àþ 3ñv$=Áv:ñv$=v$(̱v$-2)+"."+v$(±v$-1Ì):þ #(û:Ú7:Ù0 #*û #24 õ " CAMDEN COUNCIL PRESENTS " #20Ëõ"3 to 20 letters please":ì80 P dû n õ"Hello ";n$ ‚õ"Male or Female?":îs$ ƒñs$=s$(1) „ús$="m"Ëñs$="M" …ús$="f"Ëñs$="F" Œ3ús$É"M"Æs$É"F"Ëû:õ"Reply M or F please":ì130‚ •ñf$=s$ –û   õ"How old are you?":îa$:ñag=°a$ ª/úag<10 Åag>120xËû:õp$:ì160  ´û ¾8õ"Have you a partner that you admit to?":íyn:ñs$=a$ Òús$="N"Ëì290" Ü1õ"Can I assume you'd be the claimant?":íyn ðúa$="Y"Ëì260 úñsx=3:ì1230Î û õ"Age of Partner?":îap )úap<10 Åap>120xËõp$:ì270 "û ,6õ"Are you a Householder(eg Tenant or Mortgagee)?":íyn @úa$="Y"Ëì500ô Eús$="Y"Ëì410š Jû T&õ"Joint Householder(eg Sharing)?":íyn húa$="N"Ëñhh=2:ì410š rû:ñhh=1 |õ"How many share?":îj †új<2Ëõp$:ì380|  ì500ô šû ¤'õ"Boarding?(If unsure read note 7":íyn Âúa$="N"Ëì500ô Ì ñhh=3 Öû àõ"Breakfast Provided?":íyn êúa$="Y"Ëñhh=4 ôû þ$õ"How many dependant children?":îa$ 3úa$(1)="n"Åa$(1)="N"Åa$="0"Ëì650Š ñk=°a$ %úk<1Åk>15Ëõp$:ì510þ ék(k) & ñka=0 0 ñkb=0 : ëx=1Ìk Dõ"Age of child " ;x;"?" N0îq:ñk(x)=q:úq<0Åq>19Ëõp$:ì580D Xúk(x)<11 Ëñka=ka+1 gúk(x)È11 Ëñkb=kb+1 €óx Šû ”õ"Are you working?":íyn žúa$="N"Ëì710Æ ¨û ²õ"How many hours a week?":îw ¼%úw<1Åw>60<Ëõp$:ì690² Æ í1880X Ðúw>v(33!)Ëì870f äû î&õ"Savings over `";v(34");"?":íyn øúa$="N"Ëì810* ñs=v(34")+1  û &õ"Savings over `";v(35#);"?":íyn  úa$="Y"Ëñs=v(35#)+1 * êlong term 4$úag>59;Ëñlt=1:ì870f >úk=0Ås$="Y"Ëì870f Hû R5õ"Have you been claiming for one year?":íyn \úa$="Y"Ëñlt=1 fúwÇ0Ëì910Ž pû zdõ"What are your Gross weekly earnings?(answer in Pounds.Pencee.g. 72.05)":îin:ñin=in*100d „,úin<100dÅin>32500ô~Ëõp$:ì890z Žúw>v(33!)Ëñsx=1 ˜úag<16Ëñsx=2 ¢ús>v(35#)Ëñsx=4 ¬úk=0Ëñfx=1 ¶2ñtg=v(33!):ús$="N"Æk>0Ëñtg=v(32 ) ÀúwÇtgËñfx=3 Êúsx>0Ëì1170’ Ôús$="N"Ëì1010ò ÞúhhÈ3Ëì1040 ãñba=v(47/)+lt*v(1) è ì1070. ò5úhh=0Ëñba=v(2)+lt*v(3):ì1070. üuúhh=1Åhh=2Ëñba=v(6)+lt*v(7)+(ag>17)*(v(4)-v(6)+lt*(v(5)-v(7))) Búhh=1Ëñba=ba+º((v(2)+lt*v(3)-ba)/j):ì1070. Xúhh>2Ëñbe=v(15)+v(17)*(s$="Y")+v(16)*lt+v(18)*lt*(s$="Y") Búhh>2Ëñba=be+(v(30)+v(31))*(k+1+(s$="Y")) $4úhh=3Ëñba=ba+v(29)*(k+1+(s$="Y")) .;ñba=ba+v(45-)*(ag>79O)+v(13 )*(ap>79O) 8êkids Búk=0Ëì1170’ L&ñmd=12 :úhh>2Ëñmd=28 V ëx=1Ìk `ëy=1Ì4 j1úk(x)0Ëì1230Î ¦ñst=v(36$)+v(37%)*k °<ú(st-(in+oi))<2*(v(38&))Ëñfx=4:ì1230Î ºñfi=º((st-in)/2) Ä>úfi>(v(39')+k*v(40())Ëñfi=v(39')+k*v(40() Î êprint data Øû ì&õ"Name:-";n$;" Age ";ag;" Sex ";f$ ús$="N"Ëõ"No ";  õ"Partner "; ús$="Y"Ëõ"Age ";ap; õ ('úhh=0Ëõ"Householder":ì1380d 2;úhh=1Ëõ"Joint Householder ";j;" sharing":ì1380d <+úhh=2Ëõ"Non-Householder":ì1380d Fõ"Boarder-Breakfast "; Púhh=3Ëõ"not "; Z õ"provided" dúk=0Ëì1420Œ nõ"Child";:úk>1Ëõ"ren"; s õ" age"; xëx=1Ìk:õ" ";k(x);:óx Œ&úw=0Ëõ"Not Working":ì1440  –õ"Working ";w;" hrs/week"  úw>v(33!)Ëì1480È ª õ"Savings "; ´ús0Åoi>0Ëñv=in+oi:ícash:õ"Gross Income `";v$ Òúhh>2Ëí1960¨ Ü+õ"###SUPPLEMENTARY BENEFIT#####" æúsx=0Ëì15906 ð$õ"You don't appear to qualify 'cos" ú(úsx=1Ëõ"You're in full time work" !úsx=2 Ëõ"You're too young" /úsx=3Ëõ"Your partner should be claimant" *úsx=4Ëõ"Your savings are too great" ,õ"Sorry........":ì1730 6,ñv=ba:ícash:õ"You seem to qualify for `";v$ @Rúin+oi>0Ëõ"Part of your income shown above will probably go to reduce this" JBúoi>0Æs$="y"Ëõ"Partners earnings over `4 will be deducted" ^-úk>0Ëõ"Child benefit will be deducted" hmús$="N"Æk>0Æfi>0Ëõ"Compare this,after adding any additional payments,to the FIS option below" rCúhh>2Æbr>0Ëñv=br:ícash:õ"Rent will be paid up to `";v$ Âúw=0Ëì18400 Ì#õ"##FAMILY INCOME SUPPLEMENT#####" Öúw=0Ëì18400 Ûúfx=0Ëì1810 à"õ"You don't seem to qualify 'cos" ê"úfx=1Ëõ"You've no children" ô&úfx=3Ëõ"You work too few hours" þ&úfx=4Ëõ"Your income's too high" õ"Sorry.......":ì18400 ,ñv=fi:ícash:õ"You seem to qualify for `";v$ :õ"To claim get form FIS1 from the Social Security Office" :7úhh<3Ëõ"You may qualify for housing benefit" Dÿ E# î"Press enter to clear screen";z$ N÷ Xús$="N"Æf$="M"Ëþ ]4û:õ"Any other family income (Maintenance,"; b ús$="Y"Ëõ"partner's earnings,"; l õ"etc)":íyn v úa$="N"Ëþ €û ŠXõ"How much per week? (Reply Pounds.Pence e.g. 43.05)":îoi:ñoi=oi*100d ”úoi<1Ëõp$:ì1930Š ™þ ¨Túhh>2Ëñbr=(v(19)+v(28)*(s$="Y")+v(28)*kb+v(46.)*ka)-ba ²úbr<0Ëñba=ba+br:þ ·þ ¸îa$:ña$=a$(1) ºúa$="y"Ëña$="Y" ¼úa$="n"Ëña$="N" ¾5úa$É"Y"Æa$É"N"Ëõ"Please reply YES or NO":ì3000¸ Àþ 3ñv$=Áv:ñv$=v$(̱v$-2)+"."+v$(±v$-1Ì):þ #(û:Ú7:Ù0 #*û #24 õ " CAMDEN COUNCIL PRESENTS " #