Home » Personal collection » Acorn DFS disks » dfs_box03_disk06_games_4_backup.scp » GBLTD

GBLTD

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn DFS disks » dfs_box03_disk06_games_4_backup.scp
Filename: GBLTD
Read OK:
File size: 476B bytes
Load address: FF1900
Exec address: FF801F
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    1REM GREAT BRITAIN LIMITED
    2REM COPYRIGHT SIMON W HESSEL
    3REM SOFTWARE  8/82
    4REM 15 LYTHAM COURT,CARDWELL CRES.
    5REM SUNNINGHILL,BERKSHIRE,ENGLAND.
   10*KEY10"OLD|M RUN|M"
   40MODE7:VDU23;8202;0;0;0;
   50PROCVAR: CLS:FORI%=11TO12:PRINTTAB(8,I%);VV$;Z$;"GREAT BRITAIN LIMITED":NEXT
   55PRINTTAB(1,19);"Copyright Simon W Hessel Software 8/82"
   60PROCTIMER(.25)
   69QQ$=V$
   70CLS
   80PROCQUEST
  100PRINTTAB(1,3);UU$;"ENTER YOUR NAME (MAX 25 CHARACTERS)"
  110INPUTA$
  115IF A$=""GOTO100
  120IF LEN A$>25 PRINTCHR$(7);TAB(1,5);LENA$-25;" TOO MANY CHARACTERS PLEASE RE-ENTER":PRINTTAB(1,4);"                         <   ":GOTO100 
  130PRINTSPC(40)
  140CLS
  150PRINTTAB(1,3);UU$;"WHICH PARTY DO YOU WISH TO REPRESENT:-"
  155PROCPARTY
  160PRINT''''TAB(10)"A.";L1$;''TAB(10)"B.";L2$;''TAB(10)"C.";L3$;''TAB(10)"D.";L4$ 
  170PRINT''''TAB(7);VV$;PP$;"ENTER A-D THEN RETURN":INPUTK$ 
  180   IFK$="A"ORK$="B"ORK$="C"ORK$="D"GOTO190
  185       PRINTCHR$(12):PRINTCHR$(7):GOTO150
  190  IF K$="A"M1$=L1$:M2$=L2$:M3$=L3$:M4$=L4$:QQ$=T$
  200   IF K$="B"M1$=L2$:M2$=L1$:M3$=L3$:M4$=L4$:QQ$=W$
  210   IF K$="C"M1$=L3$:M2$=L1$:M3$=L2$:M4$=L4$:QQ$=U$
  220   IF K$="D"M1$=L4$:M2$=L1$:M3$=L2$:M4$=L3$:QQ$=Y$
  300PROCSETUP 
  301IFT=1ORY>1GOTO350
  302IFT>1 GOTO350
  310IFU>3.8 AND WAL=1 PROCRIOTB 
  315WB=RND(7):WB=WB-(INTU):IF WB<=1 AND WAL=2 AND Y>1 PROCRIOTA 
  350IFT=1ORY>1PROCCALC 
  355IF XC/XD>1.4 PROCLOSOC 
  360PROCCLR:PROCPROCD:PROCRES 
  370  PRINTTAB(0,7):PROCCLR:PROCPROF
  390  PRINTTAB(0,7):PROCCLR:PROCBASKET
  395IFY=5THENPROCELECTION
  400 PRINTTAB(0,7):PROCCLR:PROCBUDGETA
  410  PRINTTAB(0,7):PROCCLR:PROCBUDGETB
  415 PRINTTAB(0,7):PROCCLR:PROCREFORM
  420Y=Y+1:IFIX>.5 PROCREVOLT
  430GOTO310
 1160 SS=INT(200*((TS/1000)/10)) 
 1200DEFPROCQUEST
 1210PRINTTAB(2,10);"IF YOU WISH TO LOAD A PREVIOUS GAME"
 1220PRINTTAB(2,14);"ENTER  Y  AND THEN PRESS  <RETURN>"
 1230PRINTTAB(5,18);"IF NOT JUST  PRESS  <RETURN>"
 1240INPUTB$:IF B$="Y" THEN PROCVARLOAD:CLS:GOTO300
 1250CLS:ENDPROC
 1500DEFPROCNEWS
 1502FOR Z=1 TO 5
 1505FORI%=8TO9:PRINTTAB(0,I%);UU$;NN$;SPC(39):NEXT
 1510FORX=1TO30:FORI%=8TO9:PRINTTAB(X,I%);Z$;"���*NEWS ":NEXTI%:FORI%=8TO9:PRINTTAB(0,I%);UU$;NN$:NEXTI%:NEXTX  
 1512SOUND0,-10,1,2:SOUND0,-10,0,2
 1515NEXTZ
 1520ENDPROC
 2000DEFPROCLOSOC:PROCCLR
 2010PROCNEWS
 2015PROCTIMER(.1)
 2020FOR I%=11TO 12:PRINTTAB(11,I%);PP$;WW$;Z$;"W A R N I N G":NEXT
 2030PRINTTAB(6,15);UU$;"Social Benefits are falling"'';UU$;"        badly behind INFLATION":SOUND0,-15,2,20:PROCSPACE:ENDPROC
 2100DEFPROCRIOTA
 2105PROCCLR
 2110PROCNEWS
 2115PROCTIMER(.1)
 2120PRINTTAB(5,14);VV$;"SEVERE RIOTING IN MANY LARGE"''';VV$;"    CITIES OCCURRED DURING THE YEAR":WAL=1:SOUND0,-15,2,20:PROCSPACE:ENDPROC
 2200DEFPROCRIOTB:PROCCLR
 2210PROCNEWS:PROCTIMER(.1)
 2220PRINTTAB(5,12);YY$;"Law and order has broken down";TAB(4,15);SS$;PP$;"A GENERAL ELECTION MUST TAKE "'';SS$;PP$;"         PLACE IMMEDIATELY":SOUND0,-15,2,35:PROCSPACE:AWL=1:WAL=0:PROCELECTION
 2225ENDPROC
 2300DEFPROCREVOLT:PROCCLR
 2310PROCNEWS:PROCTIMER(.1)
 2320PRINTTAB(3,13);UU$;"Party Wets have rebelled  against"'';UU$;"      ";IX*100;" PERCENT Income Tax rate" 
 2330IX=.40+(K*.02)
 2340PRINTTAB(3,18);SS$;"It must be reduced to ";IX*100; " PERCENT":SOUND0,-15,1,10:SOUND0,-15,2,20:PROCSPACE:ENDPROC 
 4000DEFPROCPROF
 4010       FORI%=8TO9:PRINTTAB(11,I%);Z$;VV$;"COUNTRY PROFILE":NEXT 
 4020PRINTTAB(12,10);V$;",,,,,,,,,,,,,,,"   
 4030PRINTTAB(9,11);C;"M.PEOPLE(INCLUDING)"  
 4040 PRINTTAB(4,12);"(";FA;"M.CHILDREN & ";OP;"M.PENSIONERS)" 
 4050PRINTTAB(10,13);CO*1000;" COMPANIES"   
 4060PRINTTAB(10,14);VV$;"INCOME FROM TAXES" 
 4070PRINTTAB(4,15);UU$;"V A T   Income    :";RR$;"`";TAB(FNK(VT)-6,15);INTVT;"M."
 4080PRINTTAB(4,16);UU$;"P A Y E Income    :";RR$;"`";TAB(FNK(IA)-6,16);INTIA;"M." 
 4090PRINTTAB(4,17);UU$;"Company Tax Income:";RR$;"`";TAB(FNK(CI)-6,17);INTCI;"M."
 4100PRINTTAB(4,18);UU$;"Excise Duties     :";RR$;"`";TAB(FNK(TS)-6,18);INTTS;"M."
 4110PRINTTAB(4,19);VV$;"  TOTAL INCOME    :";VV$;"`";TAB(FNK(TT)-6,19);INTTT;"M."  
 4120PRINTTAB(4,20);WW$;"less EXPENDITURE  :";WW$;"`";TAB(FNK(XP+XZ)-7,20);WW$;INT(XP+XZ);"M." 
 4140PRINTTAB(7,21);"BALANCE (+/-)   : `";TAB(FNK(TT-XP-XZ)-6,21);INT(TT-XP-XZ);"M." 
 4145IF (TT-XP-XZ)<0 PRINTTAB(6,21);WW$;"BALANCE (+/-)   : `";TAB(FNK(TT-XP-XZ)-7,21);WW$;INT(TT-XP-XZ);"M."
 4150OT=TT+XB+XZ
 4160PROCSPACE
 4199ENDPROC
 4200DEFPROCBASKET
 4210       FORI%=8TO9:PRINTTAB(11,I%);Z$;WW$;"SHOPPING BASKET":NEXT
 4220PRINTTAB(12,10);W$;",,,,,,,,,,,,,,,"  
 4225@%=&0002020A 
 4227QE=(INT((EE+PX+(EE*I))*100))/100
 4230PRINTTAB(6,11);UU$;"Petrol   (gallon)  :";RR$;"`";TAB(FNK(QE)-7,11);QE
 4235QD=(INT((DD+AX+(DD*I))*100))/100
 4240PRINTTAB(6,12);UU$;"Scotch   (bottle)  :";RR$;"`";TAB(FNK(QD)-7,12);QD 
 4245QC=(INT((CC+TX+(CC*I))*100))/100
 4250PRINTTAB(6,13);UU$;"Cigarettes   (20)  :";RR$;"`";TAB(FNK(QC)-7,13);QC
 4255D=(INT((D+(D*I))*100))/100
 4260PRINTTAB(6,14);UU$;"Milk       (pint)  :";RR$;"`";TAB(FNK(D)-7,14);D  
 4270PRINTTAB(6,15);UU$;"Bread      (loaf)  :";RR$;"`";TAB(FNK(D*2)-7,15);D*2 
 4280PRINTTAB(6,16);UU$;"Tea     (quarter)  :";RR$;"`";TAB(FNK(D+(D/2))-7,16);D+(D/2) 
 4285@%=10
 4287PRINTTAB(12,17);W$;",,,,,,,,,,,,,,,"  
 4290PRINTTAB(6,18);UU$;"Average Income     :";RR$;"`";INTIN
 4295RR=INT(RR+(RR*I))
 4300PRINTTAB(6,19);UU$;"Retail Price Index : ";RR$;RR 
 4305 PRINTTAB(0,21);QQ$;STRING$(39,CHR$44) 
 4310PROCSPACE
 4399ENDPROC
 4400DEFPROCREFORM
 4410       FORI%=8TO9:PRINTTAB(8,I%);Z$;VV$;"REFORM OPPORTUNITIES":NEXT
 4420PRINTTAB(9,10);V$;",,,,,,,,,,,,,,,,,,,,"
 4430 PRINTTAB(2,12);"A";UU$;"Improve Health Service   ";RR$;":`      ";TAB(FNK(II)-1,12);INTII;"M" 
 4440  PRINTTAB(2,13);"B";UU$;"Build New Homes          ";RR$;":`      ";TAB(FNK(JJ)-1,13);INTJJ;"M"
 4450  PRINTTAB(2,14);"C";UU$;"Jobs for School Leavers  ";RR$;":`      ";TAB(FNK(KK)-1,14);INTKK;"M"
 4460  PRINTTAB(2,15);"D";UU$;"Build New Schools        ";RR$;":`      ";TAB(FNK(LL)-1,15);INTLL;"M"
 4470 PRINTTAB(2,16);"E";UU$;"Improve Road System      ";RR$;":`      ";TAB(FNK(MM)-1,16);INTMM;"M"     
 4480 PRINTTAB(2,18);"F";VV$;"When finished"
 4485  PRINTTAB(0,20);QQ$;STRING$(39,CHR$44)
 4490   PRINTTAB(0,21);UU$;NN$;VV$;PP$;"Enter PREFIX of reform to change  "  
 4500INPUTK$
 4510IFK$="F"THEN4599 
 4520             IF K$<"A"ORK$>"F"PRINTCHR$(7);TAB(0,22)SPC(18):GOTO4490
 4530   PRINTTAB(0,21)SPC(40);TAB(2,21);UU$;PP$;"Enter AMOUNT you wish to allocate"  
 4540PRINTTAB(0,22)"        ";TAB(0,21) 
 4550IFK$="A"INPUTII:II=ABSII
 4560IFK$="B"INPUTJJ:JJ=ABSJJ
 4570IFK$="C"INPUTKK:KK=ABSKK
 4580IFK$="D"INPUTLL:LL=ABSLL
 4590IFK$="E"INPUTMM:MM=ABSMM
 4595PRINTTAB(0,22)"        "
 4597GOTO4410
 4599PRINTTAB(32,17);"________"  
 4600PRINTTAB(0,18);SPC(39)
 4610XZ=II+JJ+KK+LL+MM
 4620PRINTTAB(32,18);"`";TAB(FNK(XZ)-1,18);XZ;"M" 
 4625 PROCTIMER(.125)
 4627PRINTTAB(0,22);"     ":PROCCLR 
 4630J=RND(5):K=RND(4):F=F+(F*I)
 4640IFXZ>(200*K)ANDPO<10 PO=PO+10 
 4645IFS=3 ENDPROC
 4650IF J=1 AND II>(K*F)ORJ=2ANDJJ>(K*F)ORJ=3ANDKK>(K*F)ORJ=4ANDLL>(K*F)ORJ=5ANDMM>(K*F) THEN GOTO4700
 4699ENDPROC
 4700 O$="   A Social Reform has been recognised "
 4702FORX=1TO5:Z=RND(2):Z=Z-1:SOUND0,-15,Z,7:NEXT
 4705FORX1=1TO5
 4710FORX=8TO22
 4720          PRINTTAB(0,X);VV$;O$:NEXTX  
 4730FORX=8TO22
 4740     PRINTTAB(0,X);RR$;O$:NEXTX
 4750NEXTX1
 4755 PROCCLR:IFS<3S=S+1 
 4799ENDPROC
 5000DEFPROCELECTION
 5005Q=RND(2)
 5006IFAWL=1GOTO5008
 5007IFI>.11+(J/100) OR U>1.4+(J/10) OR WAL<2 OR OO=3 PROCWKE
 5008OO=1
 5009FORX=1TO20:Z=RND(3):Z=Z-1:SOUND0,-15,Z,5:NEXT 
 5010PROCCLR:PRINTTAB(0,5);QQ$;"sssssssssssssssssssssssssssssssssssssss" 
 5020  FORI%=3TO4:PRINTTAB(1,I%);Z$;"TERM:";T;"      ELECTION NIGHT     YEAR:";Y:NEXT
 5030FORI%=6TO7:PRINTTAB(0,I%);Y$;Z$;"PERCENT          PARTY         SEATS   ":NEXT   
 5040FORX=8TO20STEP3:PRINTTAB(0,X);QQ$;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":NEXT
 5050 FORI%=9TO10:PRINTTAB(12,I%);Z$;M1$;RR$:NEXT
 5070 FORI%=12TO13:PRINTTAB(12,I%);Z$;M2$;RR$:NEXT
 5090 FORI%=15TO16:PRINTTAB(12,I%);Z$;M3$;RR$:NEXT  
 5100 FORI%=18TO19:PRINTTAB(12,I%);Z$;M4$;RR$:NEXT 
 5110G1=0:G2=0:G3=0:G4=0
 5120W1=300*(P/100)
 5122IFW1>300W1=300
 5125W2=300-W1
 5130PROCSEAT
 5140IFI<.12W1=INT(50*((.11-I)/.10)) 
 5150IFI>.11W1=0
 5160W2=50-W1  
 5170PROCSEAT
 5180IFU<2.1W1=INT(100*((2-U)/2))
 5190IFU>2W1=0
 5200W2=100-W1:PROCSEAT
 5210W1=S*50
 5220W2=150-W1:PROCSEAT
 5230IFE<1.5W1=0
 5240IFE>1.5W1=INT(ABS(1.5-E)*100)
 5250IFE>2.1W1=50
 5260W2=50-W1:PROCSEAT
 5265PROCREELECT
 5270ENDPROC
 5300DEFPROCSEAT
 5305LOCALX
 5310FORX=1TOW2
 5320QE=RND(10)
 5330   IFQE<8ANDQ=1G1=G1+1
 5335   IFQE<8ANDQ=2G2=G2+1
 5340   IFQE>7ANDQE<10ANDQ=1G2=G2+1 
 5345IFQE>7ANDQE<10ANDQ=2 G1=G1+1 
 5350IFQE=10G3=G3+1  
 5360PROCTOT
 5370NEXTX
 5380FORX=1TOW1
 5390G4=G4+1
 5400PROCTOT
 5410NEXTX
 5420ENDPROC
 5490DEFPROCTOT
 5500  FORI%=9TO10:PRINTTAB(FNK(G4)-2,I%);G4:NEXT 
 5510 FORI%=12TO13:PRINTTAB(FNK(G3)-2,I%);G3:NEXT 
 5520 FORI%=15TO16:PRINTTAB(FNK(G2)-2,I%);G2:NEXT   
 5530 FORI%=18TO19:PRINTTAB(FNK(G1)-2,I%);G1:NEXT 
 5540  IF G1+G2+G3+G4>550THENPROCPERCENT   
 5550ENDPROC
 5600DEFPROCREELECT
 5610G5=G1+G2+G3+G4
 5650 IFG1>(G5/2)THENLO$=M4$:N=18:PROCLOSE
 5652 IFG2>(G5/2)THENLO$=M3$:N=15:PROCLOSE
 5654 IFG3>(G5/2)THENLO$=M2$:N=12:PROCLOSE   
 5660IFG4>(G5/2)PROCWIN:GOTO300
 5670   IFG1+G2>G5/2 LO$=M4$:LP$=M3$:N=18:O=15:PROCCOAL   
 5680   IFG1+G3>G5/2 LO$=M4$:LP$=M2$:N=18:O=12:PROCCOAL 
 5690   IFG2+G3>G5/2 LO$=M3$:LP$=M2$:N=15:O=12:PROCCOAL 
 5692  PROCNOGOV:ENDPROC
 5695PROCWIN:GOTO300  
 5699ENDPROC
 5700DEFPROCCOAL
 5710   FORI%=3 TO 4:PRINTTAB(9,I%);Z$;PP$;"      COALITION    ";OO$:NEXT 
 5720   FORI%=N TO N+1:PRINTTAB(11,I%);PP$:NEXT:FORI%=O TO O+1:PRINTTAB(11,I%);PP$:NEXT 
 5730FORX=1TO10:Z=RND(2):SOUND0,-15,Z,5:NEXT 
 5790  PROCTIMER(1):PROCSPACE:RUN
 5799ENDPROC
 5800DEFPROCNOGOV
 5810 PRINTTAB(0,18);SPC160;TAB(5,19);YY$;"No government can be formed";TAB(2,20);SS$;PP$;"THERE MUST BE A FUTHER ELECTION":SOUND0,-15,2,20:OO=3
 5820PROCSPACE:CLS:PROCSETUP:PROCRES:PROCELECTION:ENDPROC
 6000DEFPROCLOSE
 6010 FORI%=N TO N+1:PRINTTAB(11,I%);PP$:NEXT
 6020   FORI%=3 TO 4:PRINTTAB(9,I%);Z$;PP$;"    R E S U L T      ";OO$:NEXT
 6030 FORX=1TO10:Z=RND(2):SOUND0,-15,Z,5:NEXT
 6040PROCSPACE:RUN:ENDPROC
 6500DEFPROCPERCENT
 6510G5=G4/(G1+G2+G3+G4)*100
 6515G6=G1/(G1+G2+G3+G4)*100
 6520G7=G2/(G1+G2+G3+G4)*100 
 6525G8=G3/(G1+G2+G3+G4)*100
 6530  FORI%=9TO10:PRINTTAB(FNK(G5)-34,I%);Z$;INTG5;"  ":NEXT 
 6540  FORI%=12TO13:PRINTTAB(FNK(G8)-34,I%);Z$;INTG8;"  ":NEXT 
 6550  FORI%=15TO16:PRINTTAB(FNK(G7)-34,I%);Z$;INTG7;"  ":NEXT  
 6560  FORI%=18TO19:PRINTTAB(FNK(G6)-34,I%);Z$;INTG6;"  ":NEXT   
 6999ENDPROC
 7000DEFPROCWIN 
 7005   FORI%=3 TO 4:PRINTTAB(9,I%);Z$;PP$;"    R E S U L T      ";OO$:NEXT 
 7010 T=T+1:S=0:PO=0:Y=1:WAL=2:AWL=0 
 7020FORI%=9 TO 10:PRINTTAB(11,I%);PP$:NEXT 
 7024  FORX=1TO30:Z=RND(2):Z=Z-1:SOUND0,-15,Z,5:NEXT 
 7025  O$=">>>> E L E C T E D  E L E C T E D <<<< "
 7030IFG4>480 O$="** L A N D S L I D E  V I C T O R Y ** "
 7040FORX1=1TO10:FORX=3TO20:PRINTTAB(0,X);WW$;O$:NEXTX:FORX2=3TO20:PRINTTAB(0,X2);RR$;O$:NEXTX2:NEXTX1 
 7090  PROCSPACE:PROCQUESTB:GOTO300:ENDPROC 
 7999STOP
 8000DEFPROCTIMER(X)
 8010LOCALZ
 8015Z=TIME
 8020REPEATUNTILTIME-Z>X*1000
 8030ENDPROC
 8040DEFPROCPARTY
 8050L1$="�  Conservative  "
 8060L2$="�    Labour   "
 8070L3$="    �Liberal   "
 8080L4$="�Social�Democrat"
 8090ENDPROC
 9000DEFPROCSETUP
 9005  A=INT(40-(10+LENA$)):A=A/2 
 9010CLS
 9025     FORI%=0TO1:PRINTTAB(A,I%);Z$;"RT HON ";A$;" PM";:NEXT 
 9027 PRINTTAB(0,2);QQ$;"sssssssssssssssssssssssssssssssssssssss"
 9030 PRINTTAB(5,3);UU$;"Term";RR$;":";TAB(25,3);UU$;"Year";RR$;":" 
 9040 PRINTTAB(0,4);UU$;"Inflation";RR$;":";TAB(17,4);UU$;"Unemployment";RR$;":"
 9050 PRINTTAB(2,5);UU$;"Reforms";RR$;":";TAB(16,5);UU$;"Exchange Rate";RR$;":"
 9055 PRINTTAB(1,6);UU$;"Pop.Rtng";RR$;":";TAB(16,6);UU$;"Acc.Bal";RR$;":`"
 9060 PRINTTAB(0,7);QQ$;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
 9199ENDPROC
 9200DEFPROCBUDGETA
 9210       FORI%=8TO9:PRINTTAB(10,I%);Z$;UU$;"BUDGET DAY ]TAXES[":NEXT
 9215PRINTTAB(11,10);U$;",,,,,,,,,,,,,,,,,,"
 9216IFIX<0.01 IX=0  
 9217IFCX<0.01 CX=0
 9218IFVX<0.01 VX=0
 9220    PRINTTAB(8,12);"A";VV$;"Income      Tax";RR$;":          ";TAB(FNK(IX*100)-9,12);IX*100;"%"
 9230  PRINTTAB(8,13);"B";VV$;"Corporation Tax";RR$;":          ";TAB(FNK(CX*100)-9,13);CX*100;"%"
 9240    PRINTTAB(8,14);"C";VV$;"Value Added Tax";RR$;":          ";TAB(FNK(VX*100)-9,14);VX*100;"%"  
 9245@%=&0002020A 
 9250  PRINTTAB(8,16);"D";UU$;"Tobacco     Tax";RR$;":`          ";TAB(FNK(TX)-9,16);TX
 9260  PRINTTAB(8,17);"E";UU$;"Alcohol     Tax";RR$;":`          ";TAB(FNK(AX)-9,17);AX 
 9270  PRINTTAB(8,18);"F";UU$;"Petroleum   Tax";RR$;":`          ";TAB(FNK(PX)-9,18);PX      
 9275@%=10
 9280     PRINTTAB(8,19);"G";VV$;"No more changes" 
 9285 PRINTTAB(0,20);QQ$;STRING$(39,CHR$44) 
 9290   PRINTTAB(0,21);UU$;NN$;VV$;PP$;"    Enter PREFIX of tax change   "
 9300INPUTK$
 9305IFK$="G"THEN9399  
 9310             IF K$<"A"ORK$>"G"PRINTCHR$(7);TAB(0,22)SPC(18):GOTO9290   
 9320   PRINTTAB(0,21)SPC(40);TAB(3,21);UU$;PP$;"Enter future RATE then <RETURN>"
 9325PRINTTAB(0,22)"        ";TAB(0,21) 
 9330IFK$="A"INPUTIX:IX=IX/100
 9332IFK$="B"INPUTCX:CX=CX/100
 9334IFK$="C"INPUTVX:VX=VX/100
 9336IFK$="D"INPUTTX
 9338IFK$="E"INPUTAX 
 9340IFK$="F"INPUTPX
 9347PRINTTAB(0,22)"        "
 9350GOTO9210
 9399ENDPROC
 9400DEFPROCBUDGETB
 9410       FORI%=8TO9:PRINTTAB(8,I%);Z$;SS$;"BUDGET DAY ]BENEFITS[":NEXT     
 9420PRINTTAB(9,10);S$;",,,,,,,,,,,,,,,,,,,,,"
 9425@%=&0002020A
 9430   PRINTTAB(4,12);"A";YY$;"Child Allowance     ";RR$;":`      ";TAB(FNK(FF)-6,12);FF
 9440   PRINTTAB(4,14);"B";YY$;"Old Age Pension     ";RR$;":`      ";TAB(FNK(GG)-6,14);GG 
 9450   PRINTTAB(4,16);"C";YY$;"Unemployment Benefit";RR$;":`      ";TAB(FNK(HH)-6,16);HH
 9455@%=10
 9460     PRINTTAB(4,19)"D";SS$;"No more changes"
 9465  PRINTTAB(0,20);QQ$;STRING$(39,CHR$44)
 9470   PRINTTAB(0,21);SS$;NN$;UU$;PP$;"    Enter PREFIX of tax change" 
 9480INPUTK$ 
 9490IFK$="D"THEN9599
 9500             IF K$<"A"ORK$>"D"PRINTCHR$(7);TAB(0,22)SPC(18):GOTO9470
 9510  PRINTTAB(0,21)SPC(40);TAB(2,21);UU$;PP$;"Enter future RATE then <RETURN>"
 9520PRINTTAB(0,22)"        ";TAB(0,21) 
 9530IFK$="A"INPUTFF
 9535IFK$="B"INPUTGG
 9560IFK$="C"INPUTHH
 9565PRINTTAB(0,22)"        " 
 9570GOTO9410
 9599ENDPROC
10000DEFPROCVAR
10005LOCALK$
10010 Z$=CHR$(141):Y$=CHR$(&96):W$=CHR$(&91):V$=CHR$(&92):U$=CHR$(&93):T$=CHR$(&94):S$=CHR$(&95):YY$=CHR$(&86):TT$=CHR$(&84):SS$=CHR$(&85) 
10015R$=CHR$(&97):RR$=CHR$(&87):PP$=CHR$(136):OO$=CHR$(137):NN$=CHR$(157):VV$=CHR$(&82):WW$=CHR$(&81):UU$=CHR$(&83)
10020IX=.30:CX=.5:VX=.15:TX=.6:AX=4:PX=.8
10030FF=5.5:GG=30:HH=28:PCM=0:WAL=2:AWL=0
10040T=1:G=0:I=.1:U=0:E=2:P=0:KT=1:COU=2:PCM=0:K=0:OO=0
10050F=100:B=0:OT=132000:S=0 
10060L=0:PO=0:C=55:FA=10
10070OP=12:CO=1000:AA=RND(5)+98
10080IN=7450+RND(10)*100
10090GS=4500:FP=4000:BS=144:TP=25
10100CC=.5:DD=3:EE=.7:VV=83000 
10110XA=128000:XC=65:XZ=200:RR=100
10120D=.2:II=0:JJ=0:KK=0:LL=0
10130MM=0
10135Y=1
10140ENDPROC
10500DEFPROCCLR
10505 LOCALX
10510   FORX=8TO22:PRINTTAB(0,X);SPC(40):NEXT
10520ENDPROC
11000DEFPROCCALC
11010XC=XC+(XC*I):XB=INT ((FA*FF)+(OP*GG)+(U*HH)*52) 
11020XA=INT (XA+(XA*I)):XD=FF+GG+HH
11025IFXD<=0 XD=0.001  
11030XP=XA+XB:PP=15*(XD/XC)
11035IFPP>15PP=15
11040IFXC>XD PP=0 
11045IF AX<=0 AX=.001 
11046IF TX<=0 TX=.001
11047IF PX<=0 PX=.001
11050DD=DD+(DD*I):EE=EE+(EE*I):CC=CC+(CC*I)
11060 BS=(295+(T*5))*DD/AX
11070IFBS>(295+(T*5)) BS=(295+(T*5))
11080 FP=(6000+(T*10))*CC/TX
11090IFFP>(6000+(T*10)) FP=(6000+(T*10))
11100GS=(6000+(T*50))*EE/PX
11110IFGS>(6000+(T*50)) GS=(6000+(T*50))
11120VV=VV+(VV*I):VT=INT(VV*VX)
11130IFVX>.19VT=(VT*(.19/VX))
11145BS=BS*AX:FP=FP*TX:GS=GS*PX
11150TS=INT(BS+FP+GS)   
11155IFAX+PX+TX<0.01 TS=0 
11160SS=INT(200*((DD+EE+CC)/(AX+PX+TX)))
11170IFSS>190 SS=190
11180IFT<9XV=.165-(T/100)
11190XT=(RND(4)*.01)+.47 
11200XT=XT-(.025*T) 
11201IFIX<=0 IX=.001
11202IFVX<=0 VX=.001
11203IFCX<=0 CX=.001
11210CQ=INT(200*(XV/VX))
11220IFCQ>204CQ=204
11230CS=INT(400*(XT/CX))  
11240IFCS>400CS=400
11250CO=200+CQ+SS+CS
11260IFCO>1000CO=1000
11270IFCX>.79CO=199-(CX*100)
11280U=25-(CO*25/1000)
11290U=(INT(U*10))/10
11300IFU<0U=RND(3)*.1
11310 AA=AA+(AA*I):IN=IN+(IN*I):IA=INT((25-U)*IN*IX) 
11315IFIX<.01 IA=0
11320CI=INT(CO*AA*CX)
11325IFCX<.01 CI=0
11330TT=VT+IA+CI+TS
11340I=(((TT+XB-(TT*I))/OT)-1)
11350IFI<0I=0
11360I=I+((RND(6)+T)*.01)  
11370L=L+(TT-XP-XZ)
11380IFL<0I=I+(ABSL/100000)
11390E=E-(E*I):E=E+.1+(RND(10)*.01) 
11400E=(INT(E*100))/100
11410IFE>3E=3
11420IFE<.5THENE=.5+RND(4)*.15 
11430PQ=20-(I*100)
11440IFPQ<0PQ=0
11450PR=25-(U*10)
11460IFPR<0PR=0
11470P=INT(PO+PP+PQ+PR)
11480IFIX>.35+(K/100) B=T+1
11490IFB>1P=INT(P/B)
11500B=B-1
11510IFGG<(XC/3)P=RND(17)+4
11520ENDPROC
12000DEFPROCRES
12010PRINTTAB(13,3);T 
12020PRINTTAB(32,3);PP$;Y:PROCSND:PRINTTAB(32,3);OO$;Y;TAB(12,4);"   ";TAB(12,4);PP$;INT(I*100);"%";OO$:PROCSND:PRINTTAB(12,4);OO$;INT(I*100);"%"
12030PRINTTAB(32,4);"    ";TAB(32,4);PP$;U;"M.";OO$:PROCSND:PRINTTAB(32,4);OO$;U;"M.";TAB(12,5);PP$;S;OO$:PROCSND:PRINTTAB(12,5);OO$;S
12035IFL<0IQ$=WW$ ELSE IQ$=RR$
12039@%=&0002020A 
12040PRINTTAB(33,5);"      ";TAB(32,5);PP$;"$";E;"/`":PROCSND:PRINTTAB(32,5);OO$;"$";E;"/`";UU$
12041@%=10
12042PRINTTAB(12,6);"    ";TAB(12,6);PP$;P;OO$:PROCSND:PRINTTAB(12,6);OO$;P;TAB(27,6);"           " 
12043PRINTTAB(27,6);PP$;IQ$;INTL"M."OO$:PROCSND:PRINTTAB(27,6)OO$;IQ$;INTL
12399ENDPROC
13000DEFPROCSPACE
13010PRINTTAB(0,22);TT$;NN$;RR$;" �Press the SPACE BAR to continue"
13020IF INKEY$(0)>" "THEN 13020
13030REPEAT UNTIL GET$=" "
13040PRINTTAB(0,22);SPC(40):ENDPROC 
14000DEFPROCPROCD
14010PRINTTAB(0,22);RR$;NN$;"  ��PROCESSING DATA - Please Wait "
14020ENDPROC
15000DEFPROCWKE
15010PROCCLR:J=RND(4)
15020PRINTTAB(1,8);SS$;"W e e k s  t o  E l e c t i o n :";RR$;PP$;J
15030PRINTTAB(0,9);QQ$;STRING$(39,CHR$44)
15040PRINTTAB(5,11);UU$;"A General Election must take ";TAB(7,12);UU$;"place in";RR$;J;UU$;"weeks' time."
15050IF J=1 PRINTTAB(23,12);"'s"
15060PRINTTAB(4,14);"You now have the opportunity to","improve your POPULARITY rating."
15070P=P-INTPCM:PRINTTAB(12,6);PP$;P;OO$:PROCSPACE:PRINTTAB(12,6);OO$;P;OO$
15080IFCOU=1 GOTO15200
15090PRINTTAB(0,11);SPC(240)
15100PRINTTAB(4,11);"You will have 1000 units to"'"    allocate and you should try to "'"    use these in areas which require "'"    immediate attention."
15110PRINTTAB(4,16);"i.e if Law and Order has been a"'"    problem then allocate some units"'"    to this CATEGORY."
15120PROCSPACE:PRINTTAB(0,11);SPC(160);TAB(0,16);SPC(240) 
15130PRINTTAB(4,11);"When you have allocated all your"'"    units an ammended POPULARITY "'"    rating will be displayed."
15140PRINTTAB(4,15);"You may keep trying different"'"    allocations each week until the"'"    ELECTION."
15150PROCSPACE:PRINTTAB(0,11);SPC(160);TAB(0,15);SPC(240) 
15200PRINTTAB(0,11);SPC(160);TAB(0,15);SPC(240):FOR I%=10TO11:PRINTTAB(14,I%);Z$;VV$;"MANIFESTO":NEXT 
15210PRINTTAB(14,12);QQ$;",,,,,,,,,"
15220PRINTTAB(4,12);VV$;"..Category..............Emphasis"
15230PCM=0:UNI=1000:INF=0:UMP=0:HAL=0:LAW=0:AID=0
15240PRINTTAB(5,14);"A";UU$;"Inflation       ";RR$;":             ";TAB(FNK(INF)-4,14);INF 
15245PRINTTAB(5,15);"B";UU$;"Unemployment    ";RR$;":             ";TAB(FNK(UMP)-4,15);UMP 
15250PRINTTAB(5,16);"C";UU$;"Overseas Aid    ";RR$;":             ";TAB(FNK(AID)-4,16);AID   
15260PRINTTAB(5,17);"D";UU$;"Law and Order   ";RR$;":             ";TAB(FNK(LAW)-4,17);LAW     
15270PRINTTAB(5,18);"E";VV$;"When finished" 
15275PRINTTAB(0,19);SPC(80);TAB(0,19);SS$;"     You have";UU$;UNI;SS$;"units to allocate"
15277IF UNI=0 PRINTTAB(0,19);SS$;"  ALL YOUR UNITS HAVE BEEN ALLOCATED  "
15280   PRINTTAB(0,21);UU$;NN$;VV$;PP$;"    Enter PREFIX of category      " 
15290INPUTK$
15300IF K$="E"PRINTTAB(0,22);"    ":GOTO15500
15310IF K$<"A"ORK$>"E"PRINTCHR$(7);TAB(0,22)SPC(18):GOTO15280
15320   PRINTTAB(0,21)SPC(40);TAB(2,21);UU$;PP$;"Enter NUMBER of units to allocate"
15325PRINTTAB(0,22);"       ";TAB(0,21)
15330IF K$="A" INPUTINF:INF=ABSINF
15340IF K$="B" INPUTUMP:UMP=ABSUMP
15350IF K$="C" INPUTAID:AID=ABSAID
15360IF K$="D" INPUTLAW:LAW=ABSLAW
15365PRINTTAB(0,22)"        "
15370EML=INF+UMP+AID+LAW:IF EML>1000 PRINTTAB(0,21);WW$;"Insufficient units  -  RE-ENTER  -    ";CHR$7:PROCTIMER(.2):GOTO15230 ELSE UNI=1000-EML:GOTO 15240
15500IF I>.11+(J/100) AND I<.17+(J/100) PCM=PCM+(((INF/250)*(((.25+(J/100))-I)*100)))
15510IF I>.17+(J/100) AND I<.25+(J/100) PCM=PCM+(((INF/250)*(((.25+(J/100))-I)*100)))
15520IFI>=.25+(J/100) PCM=PCM+(INF/250)*5 
15530IFU>1.4+(J/10) AND U<2.6+(J/10) PCM=PCM+(((UMP/250)*(U-(1.4+(J/10))))*10)
15540IFU>2.6+(J/10) AND U<3.6+(J/10) PCM=PCM+(((UMP/250)*(((4+(J/100))-U)*10)))
15550IFU>3.6+(J/10) PCM=PCM+(UMP/250)*5
15560IF I<.12+(J/100)AND U<1.9+(J/10) PCM=PCM+(AID/250)*K
15570IF WAL=1 THEN PCM=PCM+(LAW/250)*(K+1)
15580IF WAL=0 THEN PCM=PCM+(LAW/150)*(K+1)
15590P=INT(P+PCM):PRINTTAB(12,6);PP$;P;OO$:PROCTIMER(.2):PRINTTAB(12,6);OO$;P;OO$:PRINTTAB(0,10);SPC(240);SPC(240)
15600J=J-1:IFJ=0 COU=2:PCM=0:ENDPROC
15605PRINTTAB(6,14);UU$;"Do you wish to try again?"
15610   PRINTTAB(0,21);UU$;NN$;TT$;PP$;"    Key in Y or N then  <RETURN>  "
15620INPUTB$:IFB$="Y" PRINTTAB(0,21);SPC(40);TAB(0,14);SPC(40):COU=1:GOTO15020
15630IFB$="N" PROCCLR:COU=2:PCM=0:ENDPROC
15640PRINTCHR$7;TAB(0,22);"    ";TAB(0,21):GOTO15610
15999ENDPROC
20000DEFPROCSND
20010SOUND0,-10,0,3:SOUND0,-10,1,3
20015PROCTIMER(.15):ENDPROC 
20100DEFPROCSNDA
20110SOUND0,-15,2,6:PROCTIMER(.15):ENDPROC  
21000DEFPROCQUESTB:CLS
22000PRINTTAB(11,10);"Do you wish to:"
22010PRINTTAB(11,13);"A.Continue now"
22020PRINTTAB(11,15);"B.Save to tape"
22030PRINTTAB(11,17);"C.Retire" 
22040PRINTTAB(0,20);CHR$(131);CHR$157;CHR$130;"    ENTER A-C THEN PRESS <RETURN>"
22050INPUTB$:PRINTTAB(0,21);"    ":IFB$<"A"ORB$>"C" PRINTCHR$7:GOTO22040 
22060IFB$="A" CLS:ENDPROC
22070IFB$="B" CLS:PROCVARSAVE:CLS:GOTO22000:END
22080IFB$="C" CLS:END
22090END
24000DEFPROCVARSAVE:CLS
24010PRINTTAB(2,10);"SET UP YOUR CASSETTE RECORDER WITH A"
24020PRINTTAB(2,14);"A BLANK TAPE AND THEN PRESS <RETURN>"   
24030INPUTB$
25010X=OPENOUT("VARS")
25020PRINT#X,M1$,M2$,M3$,M4$,A$,QQ$
25030PRINT#X,IX,CX,VX,TX,AX,PX
25040PRINT#X,WAL,FF,GG,HH,PCM,AWL
25050PRINT#X,T,G,I,U,E,P,KT,COU
25060PRINT#X,K,OO,F,B,OT,S
25070PRINT#X,L,PO,C,FA,OP,CO
25080PRINT#X,AA,IN,GS,FP,BS,TP
25090PRINT#X,CC,DD,EE,VV,XB
25100PRINT#X,XA,XC,XZ,RR,XD,D,II,JJ,KK,LL,MM,Y
25110PRINT#X,VT,IA,CI,TS
25120PRINT#X,TT,XP,XZ
25130CLOSE#X:ENDPROC
26000DEFPROCVARLOAD
26010CLS:PRINTTAB(2,10);"LOAD YOUR CASSETTE RECORDER WITH THE" 
26020PRINTTAB(2,14);"TAPE CONTAINING THE SAVED VARIABLES"
26030PRINTTAB(1,18);"THEN WHEN ALL IS READY PRESS <RETURN>"
26040INPUTB$
26200DIMB$(200)
26210X=OPENUP("VARS")
26220INPUT#X,M1$,M2$,M3$,M4$,A$,QQ$
26230INPUT#X,IX,CX,VX,TX,AX,PX 
26240INPUT#X,WAL,FF,GG,HH,PCM,AWL 
26250INPUT#X,T,G,I,U,E,P,KT,COU
26260INPUT#X,K,OO,F,B,OT,S  
26270INPUT#X,L,PO,C,FA,OP,CO
26280INPUT#X,AA,IN,GS,FP,BS,TP 
26290INPUT#X,CC,DD,EE,VV,XB
26300INPUT#X,XA,XC,XZ,RR,XD,D,II,JJ,KK,LL,MM,Y  
26310INPUT#X,VT,IA,CI,TS,TT,XP,XZ    
26320CLOSE#X:ENDPROC
32000DEFFNK(J)=39-LENSTR$(INTJ) 
� GREAT BRITAIN LIMITED
� COPYRIGHT SIMON W HESSEL
� SOFTWARE  8/82
$� 15 LYTHAM COURT,CARDWELL CRES.
$� SUNNINGHILL,BERKSHIRE,ENGLAND.

*KEY10"OLD|M RUN|M"
(�7:�23;8202;0;0;0;
2>�VAR: �:�I%=11�12:�8,I%);VV$;Z$;"GREAT BRITAIN LIMITED":�
74�1,19);"Copyright Simon W Hessel Software 8/82"
<�TIMER(.25)
E
QQ$=V$
F�
P
�QUEST
d4�1,3);UU$;"ENTER YOUR NAME (MAX 25 CHARACTERS)"
n�A$
s� A$=""�Dd@
xu� � A$>25 �(7);�1,5);�A$-25;" TOO MANY CHARACTERS PLEASE RE-ENTER":�1,4);"                         <   ":�Dd@ 
�
�(40)
��
�7�1,3);UU$;"WHICH PARTY DO YOU WISH TO REPRESENT:-"
�
�PARTY
�C�''''�10)"A.";L1$;''�10)"B.";L2$;''�10)"C.";L3$;''�10)"D.";L4$ 
�1�''''�7);VV$;PP$;"ENTER A-D THEN RETURN":�K$ 
�(   �K$="A"�K$="B"�K$="C"�K$="D"�t~@
�       �(12):�(7):�tV@
�4  � K$="A"M1$=L1$:M2$=L2$:M3$=L3$:M4$=L4$:QQ$=T$
�5   � K$="B"M1$=L2$:M2$=L1$:M3$=L3$:M4$=L4$:QQ$=W$
�5   � K$="C"M1$=L3$:M2$=L1$:M3$=L2$:M4$=L4$:QQ$=U$
�5   � K$="D"M1$=L4$:M2$=L1$:M3$=L2$:M4$=L3$:QQ$=Y$
,�SETUP 
-�T=1�Y>1�D^A
.�T>1 �D^A
6�U>3.8 � WAL=1 �RIOTB 
;4WB=�(7):WB=WB-(�U):� WB<=1 � WAL=2 � Y>1 �RIOTA 
^�T=1�Y>1�CALC 
c� XC/XD>1.4 �LOSOC 
h�CLR:�PROCD:�RES 
r  �0,7):�CLR:�PROF
�  �0,7):�CLR:�BASKET
��Y=5��ELECTION
� �0,7):�CLR:�BUDGETA
�  �0,7):�CLR:�BUDGETB
� �0,7):�CLR:�REFORM
�Y=Y+1:�IX>.5 �REVOLT
�	�TvA
� SS=�(200*((TS/1000)/10)) 
���QUEST
�1�2,10);"IF YOU WISH TO LOAD A PREVIOUS GAME"
�0�2,14);"ENTER  Y  AND THEN PRESS  <RETURN>"
�*�5,18);"IF NOT JUST  PRESS  <RETURN>"
�#�B$:� B$="Y" � �VARLOAD:�:�TlA
��:�
�
��NEWS
�
� Z=1 � 5
�#�I%=8�9:�0,I%);UU$;NN$;�(39):�
�O�X=1�30:�I%=8�9:�X,I%);Z$;"���*NEWS ":�I%:�I%=8�9:�0,I%);UU$;NN$:�I%:�X  
��0,-10,1,2:�0,-10,0,2
��Z
��
���LOSOC:�CLR
�	�NEWS
��TIMER(.1)
�5� I%=11� 12:�11,I%);PP$;WW$;Z$;"W A R N I N G":�
�i�6,15);UU$;"Social Benefits are falling"'';UU$;"        badly behind INFLATION":�0,-15,2,20:�SPACE:�
4��RIOTA
9�CLR
>	�NEWS
C�TIMER(.1)
Hv�5,14);VV$;"SEVERE RIOTING IN MANY LARGE"''';VV$;"    CITIES OCCURRED DURING THE YEAR":WAL=1:�0,-15,2,20:�SPACE:�
���RIOTB:�CLR
��NEWS:�TIMER(.1)
���5,12);YY$;"Law and order has broken down";�4,15);SS$;PP$;"A GENERAL ELECTION MUST TAKE "'';SS$;PP$;"         PLACE IMMEDIATELY":�0,-15,2,35:�SPACE:AWL=1:WAL=0:�ELECTION
��
���REVOLT:�CLR
	�NEWS:�TIMER(.1)
	e�3,13);UU$;"Party Wets have rebelled  against"'';UU$;"      ";IX*100;" PERCENT Income Tax rate" 
	IX=.40+(K*.02)
	$]�3,18);SS$;"It must be reduced to ";IX*100; " PERCENT":�0,-15,1,10:�0,-15,2,20:�SPACE:� 
�
��PROF
�7       �I%=8�9:�11,I%);Z$;VV$;"COUNTRY PROFILE":� 
�$�12,10);V$;",,,,,,,,,,,,,,,"   
�%�9,11);C;"M.PEOPLE(INCLUDING)"  
�7 �4,12);"(";FA;"M.CHILDREN & ";OP;"M.PENSIONERS)" 
�$�10,13);CO*1000;" COMPANIES"   
�%�10,14);VV$;"INCOME FROM TAXES" 
�D�4,15);UU$;"V A T   Income    :";RR$;"`";��K(VT)-6,15);�VT;"M."
�E�4,16);UU$;"P A Y E Income    :";RR$;"`";��K(IA)-6,16);�IA;"M." 
�D�4,17);UU$;"Company Tax Income:";RR$;"`";��K(CI)-6,17);�CI;"M."
D�4,18);UU$;"Excise Duties     :";RR$;"`";��K(TS)-6,18);�TS;"M."
F�4,19);VV$;"  TOTAL INCOME    :";VV$;"`";��K(TT)-6,19);�TT;"M."  
Q�4,20);WW$;"less EXPENDITURE  :";WW$;"`";��K(XP+XZ)-7,20);WW$;�(XP+XZ);"M." 
,G�7,21);"BALANCE (+/-)   : `";��K(TT-XP-XZ)-6,21);�(TT-XP-XZ);"M." 
1]� (TT-XP-XZ)<0 �6,21);WW$;"BALANCE (+/-)   : `";��K(TT-XP-XZ)-7,21);WW$;�(TT-XP-XZ);"M."
6OT=TT+XB+XZ
@
�SPACE
g�
h��BASKET
r6       �I%=8�9:�11,I%);Z$;WW$;"SHOPPING BASKET":�
|#�12,10);W$;",,,,,,,,,,,,,,,"  
�@%=&0002020A 
�"QE=(�((EE+PX+(EE*I))*100))/100
�?�6,11);UU$;"Petrol   (gallon)  :";RR$;"`";��K(QE)-7,11);QE
�"QD=(�((DD+AX+(DD*I))*100))/100
�@�6,12);UU$;"Scotch   (bottle)  :";RR$;"`";��K(QD)-7,12);QD 
�"QC=(�((CC+TX+(CC*I))*100))/100
�?�6,13);UU$;"Cigarettes   (20)  :";RR$;"`";��K(QC)-7,13);QC
�D=(�((D+(D*I))*100))/100
�?�6,14);UU$;"Milk       (pint)  :";RR$;"`";��K(D)-7,14);D  
�B�6,15);UU$;"Bread      (loaf)  :";RR$;"`";��K(D*2)-7,15);D*2 
�J�6,16);UU$;"Tea     (quarter)  :";RR$;"`";��K(D+(D/2))-7,16);D+(D/2) 
�	@%=10
�#�12,17);W$;",,,,,,,,,,,,,,,"  
�2�6,18);UU$;"Average Income     :";RR$;"`";�IN
�RR=�(RR+(RR*I))
�/�6,19);UU$;"Retail Price Index : ";RR$;RR 
� �0,21);QQ$;�39,�44) 
�
�SPACE
/�
0��REFORM
::       �I%=8�9:�8,I%);Z$;VV$;"REFORM OPPORTUNITIES":�
D%�9,10);V$;",,,,,,,,,,,,,,,,,,,,"
NV �2,12);"A";UU$;"Improve Health Service   ";RR$;":`      ";��K(II)-1,12);�II;"M" 
XV  �2,13);"B";UU$;"Build New Homes          ";RR$;":`      ";��K(JJ)-1,13);�JJ;"M"
bV  �2,14);"C";UU$;"Jobs for School Leavers  ";RR$;":`      ";��K(KK)-1,14);�KK;"M"
lV  �2,15);"D";UU$;"Build New Schools        ";RR$;":`      ";��K(LL)-1,15);�LL;"M"
vZ �2,16);"E";UU$;"Improve Road System      ";RR$;":`      ";��K(MM)-1,16);�MM;"M"     
�$ �2,18);"F";VV$;"When finished"
�  �0,20);QQ$;�39,�44)
�E   �0,21);UU$;NN$;VV$;PP$;"Enter PREFIX of reform to change  "  
��K$
��K$="F"��dwQ 
�7             � K$<"A"�K$>"F"�(7);�0,22)�(18):�tJQ
�H   �0,21)�(40);�2,21);UU$;PP$;"Enter AMOUNT you wish to allocate"  
��0,22)"        ";�0,21) 
��K$="A"�II:II=�II
��K$="B"�JJ:JJ=�JJ
��K$="C"�KK:KK=�KK
��K$="D"�LL:LL=�LL
��K$="E"�MM:MM=�MM
��0,22)"        "
�	�TzQ
��32,17);"________"  
��0,18);�(39)
XZ=II+JJ+KK+LL+MM
&�32,18);"`";��K(XZ)-1,18);XZ;"M" 
 �TIMER(.125)
�0,22);"     ":�CLR 
J=�(5):K=�(4):F=F+(F*I)
 �XZ>(200*K)�PO<10 PO=PO+10 
%
�S=3 �
*P� J=1 � II>(K*F)�J=2�JJ>(K*F)�J=3�KK>(K*F)�J=4�LL>(K*F)�J=5�MM>(K*F) � �D\R
[�
\1 O$="   A Social Reform has been recognised "
^$�X=1�5:Z=�(2):Z=Z-1:�0,-15,Z,7:�
a�X1=1�5
f�X=8�22
p           �0,X);VV$;O$:�X  
z�X=8�22
�     �0,X);RR$;O$:�X
��X1
� �CLR:�S<3S=S+1 
��
���ELECTION
�
Q=�(2)
��AWL=1�tPS
�5�I>.11+(J/100) � U>1.4+(J/10) � WAL<2 � OO=3 �WKE
�OO=1
�&�X=1�20:Z=�(3):Z=Z-1:�0,-15,Z,5:� 
�>�CLR:�0,5);QQ$;"sssssssssssssssssssssssssssssssssssssss" 
�G  �I%=3�4:�1,I%);Z$;"TERM:";T;"      ELECTION NIGHT     YEAR:";Y:�
�H�I%=6�7:�0,I%);Y$;Z$;"PERCENT          PARTY         SEATS   ":�   
�D�X=8�20�3:�0,X);QQ$;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":�
�# �I%=9�10:�12,I%);Z$;M1$;RR$:�
�$ �I%=12�13:�12,I%);Z$;M2$;RR$:�
�& �I%=15�16:�12,I%);Z$;M3$;RR$:�  
�% �I%=18�19:�12,I%);Z$;M4$;RR$:� 
�G1=0:G2=0:G3=0:G4=0
W1=300*(P/100)
�W1>300W1=300

W2=300-W1

	�SEAT
!�I<.12W1=�(50*((.11-I)/.10)) 
�I>.11W1=0
(W2=50-W1  
2	�SEAT
<�U<2.1W1=�(100*((2-U)/2))
F�U>2W1=0
PW2=100-W1:�SEAT
ZW1=S*50
dW2=150-W1:�SEAT
n�E<1.5W1=0
x�E>1.5W1=�(�(1.5-E)*100)
��E>2.1W1=50
�W2=50-W1:�SEAT
��REELECT
��
�
��SEAT
��X
��X=1�W2
�QE=�(10)
�   �QE<8�Q=1G1=G1+1
�   �QE<8�Q=2G2=G2+1
�   �QE>7�QE<10�Q=1G2=G2+1 
��QE>7�QE<10�Q=2 G1=G1+1 
��QE=10G3=G3+1  
��TOT
��X
�X=1�W1
G4=G4+1
�TOT
"�X
,�
r	��TOT
|#  �I%=9�10:�K(G4)-2,I%);G4:� 
�# �I%=12�13:�K(G3)-2,I%);G3:� 
�% �I%=15�16:�K(G2)-2,I%);G2:�   
�# �I%=18�19:�K(G1)-2,I%);G1:� 
�#  � G1+G2+G3+G4>550��PERCENT   
��
�
��REELECT
�G5=G1+G2+G3+G4
" �G1>(G5/2)�LO$=M4$:N=18:�LOSE
" �G2>(G5/2)�LO$=M3$:N=15:�LOSE
% �G3>(G5/2)�LO$=M2$:N=12:�LOSE   
�G4>(G5/2)�WIN:�TlA
&5   �G1+G2>G5/2 LO$=M4$:LP$=M3$:N=18:O=15:�COAL   
03   �G1+G3>G5/2 LO$=M4$:LP$=M2$:N=18:O=12:�COAL 
:3   �G2+G3>G5/2 LO$=M3$:LP$=M2$:N=15:O=12:�COAL 
<  �NOGOV:�
?�WIN:�TlA  
C�
D
��COAL
N<   �I%=3 � 4:�9,I%);Z$;PP$;"      COALITION    ";OO$:� 
X=   �I%=N � N+1:�11,I%);PP$:�:�I%=O � O+1:�11,I%);PP$:� 
b �X=1�10:Z=�(2):�0,-15,Z,5:� 
�  �TIMER(1):�SPACE:�
��
���NOGOV
�| �0,18);�160;�5,19);YY$;"No government can be formed";�2,20);SS$;PP$;"THERE MUST BE A FUTHER ELECTION":�0,-15,2,20:OO=3
�$�SPACE:�:�SETUP:�RES:�ELECTION:�
p
��LOSE
z �I%=N � N+1:�11,I%);PP$:�
�=   �I%=3 � 4:�9,I%);Z$;PP$;"    R E S U L T      ";OO$:�
�  �X=1�10:Z=�(2):�0,-15,Z,5:�
��SPACE:�:�
d
��PERCENT
nG5=G4/(G1+G2+G3+G4)*100
sG6=G1/(G1+G2+G3+G4)*100
xG7=G2/(G1+G2+G3+G4)*100 
}G8=G3/(G1+G2+G3+G4)*100
�-  �I%=9�10:�K(G5)-34,I%);Z$;�G5;"  ":� 
�.  �I%=12�13:�K(G8)-34,I%);Z$;�G8;"  ":� 
�/  �I%=15�16:�K(G7)-34,I%);Z$;�G7;"  ":�  
�0  �I%=18�19:�K(G6)-34,I%);Z$;�G6;"  ":�   
W�
X
��WIN 
]>   �I%=3 � 4:�9,I%);Z$;PP$;"    R E S U L T      ";OO$:� 
b$ T=T+1:S=0:PO=0:Y=1:WAL=2:AWL=0 
l�I%=9 � 10:�11,I%);PP$:� 
p(  �X=1�30:Z=�(2):Z=Z-1:�0,-15,Z,5:� 
q2  O$=">>>> E L E C T E D  E L E C T E D <<<< "
v8�G4>480 O$="** L A N D S L I D E  V I C T O R Y ** "
�F�X1=1�10:�X=3�20:�0,X);WW$;O$:�X:�X2=3�20:�0,X2);RR$;O$:�X2:�X1 
�  �SPACE:�QUESTB:�TlA:� 
?�
@��TIMER(X)
J�Z
OZ=�
T���-Z>X*1000
^�
h��PARTY
rL1$="�  Conservative  "
|L2$="�    Labour   "
�L3$="    �Liberal   "
�L4$="�Social�Democrat"
��
#(��SETUP
#-  A=�(40-(10+�A$)):A=A/2 
#2�
#A2     �I%=0�1:�A,I%);Z$;"RT HON ";A$;" PM";:� 
#C9 �0,2);QQ$;"sssssssssssssssssssssssssssssssssssssss"
#F9 �5,3);UU$;"Term";RR$;":";�25,3);UU$;"Year";RR$;":" 
#PE �0,4);UU$;"Inflation";RR$;":";�17,4);UU$;"Unemployment";RR$;":"
#ZD �2,5);UU$;"Reforms";RR$;":";�16,5);UU$;"Exchange Rate";RR$;":"
#_@ �1,6);UU$;"Pop.Rtng";RR$;":";�16,6);UU$;"Acc.Bal";RR$;":`"
#d9 �0,7);QQ$;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
#��
#�
��BUDGETA
#�9       �I%=8�9:�10,I%);Z$;UU$;"BUDGET DAY ]TAXES[":�
#�$�11,10);U$;",,,,,,,,,,,,,,,,,,"
$�IX<0.01 IX=0  
$�CX<0.01 CX=0
$�VX<0.01 VX=0
$X    �8,12);"A";VV$;"Income      Tax";RR$;":          ";��K(IX*100)-9,12);IX*100;"%"
$V  �8,13);"B";VV$;"Corporation Tax";RR$;":          ";��K(CX*100)-9,13);CX*100;"%"
$Z    �8,14);"C";VV$;"Value Added Tax";RR$;":          ";��K(VX*100)-9,14);VX*100;"%"  
$@%=&0002020A 
$"K  �8,16);"D";UU$;"Tobacco     Tax";RR$;":`          ";��K(TX)-9,16);TX
$,L  �8,17);"E";UU$;"Alcohol     Tax";RR$;":`          ";��K(AX)-9,17);AX 
$6Q  �8,18);"F";UU$;"Petroleum   Tax";RR$;":`          ";��K(PX)-9,18);PX      
$;	@%=10
$@+     �8,19);"G";VV$;"No more changes" 
$E �0,20);QQ$;�39,�44) 
$JB   �0,21);UU$;NN$;VV$;PP$;"    Enter PREFIX of tax change   "
$T�K$
$Y�K$="G"��twd  
$^:             � K$<"A"�K$>"G"�(7);�0,22)�(18):�DJd   
$hD   �0,21)�(40);�3,21);UU$;PP$;"Enter future RATE then <RETURN>"
$m�0,22)"        ";�0,21) 
$r�K$="A"�IX:IX=IX/100
$t�K$="B"�CX:CX=CX/100
$v�K$="C"�VX:VX=VX/100
$x�K$="D"�TX
$z�K$="E"�AX 
$|�K$="F"�PX
$��0,22)"        "
$�	�dzc
$��
$�
��BUDGETB
$�@       �I%=8�9:�8,I%);Z$;SS$;"BUDGET DAY ]BENEFITS[":�     
$�&�9,10);S$;",,,,,,,,,,,,,,,,,,,,,"
$�@%=&0002020A
$�M   �4,12);"A";YY$;"Child Allowance     ";RR$;":`      ";��K(FF)-6,12);FF
$�N   �4,14);"B";YY$;"Old Age Pension     ";RR$;":`      ";��K(GG)-6,14);GG 
$�M   �4,16);"C";YY$;"Unemployment Benefit";RR$;":`      ";��K(HH)-6,16);HH
$�	@%=10
$�)     �4,19)"D";SS$;"No more changes"
$�  �0,20);QQ$;�39,�44)
$�@   �0,21);SS$;NN$;UU$;PP$;"    Enter PREFIX of tax change" 
%�K$ 
%�K$="D"��De
%7             � K$<"A"�K$>"D"�(7);�0,22)�(18):�d~d
%&C  �0,21)�(40);�2,21);UU$;PP$;"Enter future RATE then <RETURN>"
%0�0,22)"        ";�0,21) 
%:�K$="A"�FF
%?�K$="B"�GG
%X�K$="C"�HH
%]�0,22)"        " 
%b	�dBd
%�
'	��VAR
'�K$
'l Z$=�(141):Y$=�(&96):W$=�(&91):V$=�(&92):U$=�(&93):T$=�(&94):S$=�(&95):YY$=�(&86):TT$=�(&84):SS$=�(&85) 
'ZR$=�(&97):RR$=�(&87):PP$=�(136):OO$=�(137):NN$=�(157):VV$=�(&82):WW$=�(&81):UU$=�(&83)
'$(IX=.30:CX=.5:VX=.15:TX=.6:AX=4:PX=.8
'.(FF=5.5:GG=30:HH=28:PCM=0:WAL=2:AWL=0
'86T=1:G=0:I=.1:U=0:E=2:P=0:KT=1:COU=2:PCM=0:K=0:OO=0
'BF=100:B=0:OT=132000:S=0 
'LL=0:PO=0:C=55:FA=10
'VOP=12:CO=1000:AA=�(5)+98
'`IN=7450+�(10)*100
'j GS=4500:FP=4000:BS=144:TP=25
'tCC=.5:DD=3:EE=.7:VV=83000 
'~!XA=128000:XC=65:XZ=200:RR=100
'�D=.2:II=0:JJ=0:KK=0:LL=0
'�MM=0
'�Y=1
'��
)	��CLR
)	 �X
)   �X=8�22:�0,X);�(40):�
)�
*�
��CALC
+2XC=XC+(XC*I):XB=� ((FA*FF)+(OP*GG)+(U*HH)*52) 
+ XA=� (XA+(XA*I)):XD=FF+GG+HH
+�XD<=0 XD=0.001  
+XP=XA+XB:PP=15*(XD/XC)
+�PP>15PP=15
+ �XC>XD PP=0 
+%� AX<=0 AX=.001 
+&� TX<=0 TX=.001
+'� PX<=0 PX=.001
+**DD=DD+(DD*I):EE=EE+(EE*I):CC=CC+(CC*I)
+4 BS=(295+(T*5))*DD/AX
+>"�BS>(295+(T*5)) BS=(295+(T*5))
+H FP=(6000+(T*10))*CC/TX
+R&�FP>(6000+(T*10)) FP=(6000+(T*10))
+\GS=(6000+(T*50))*EE/PX
+f&�GS>(6000+(T*50)) GS=(6000+(T*50))
+pVV=VV+(VV*I):VT=�(VV*VX)
+z�VX>.19VT=(VT*(.19/VX))
+�BS=BS*AX:FP=FP*TX:GS=GS*PX
+�TS=�(BS+FP+GS)   
+��AX+PX+TX<0.01 TS=0 
+�%SS=�(200*((DD+EE+CC)/(AX+PX+TX)))
+��SS>190 SS=190
+��T<9XV=.165-(T/100)
+�XT=(�(4)*.01)+.47 
+�XT=XT-(.025*T) 
+��IX<=0 IX=.001
+��VX<=0 VX=.001
+��CX<=0 CX=.001
+�CQ=�(200*(XV/VX))
+��CQ>204CQ=204
+�CS=�(400*(XT/CX))  
+��CS>400CS=400
+�CO=200+CQ+SS+CS
+��CO>1000CO=1000
,�CX>.79CO=199-(CX*100)
,U=25-(CO*25/1000)
,U=(�(U*10))/10
,$�U<0U=�(3)*.1
,.2 AA=AA+(AA*I):IN=IN+(IN*I):IA=�((25-U)*IN*IX) 
,3�IX<.01 IA=0
,8CI=�(CO*AA*CX)
,=�CX<.01 CI=0
,BTT=VT+IA+CI+TS
,LI=(((TT+XB-(TT*I))/OT)-1)
,V�I<0I=0
,`I=I+((�(6)+T)*.01)  
,jL=L+(TT-XP-XZ)
,t�L<0I=I+(�L/100000)
,~!E=E-(E*I):E=E+.1+(�(10)*.01) 
,�E=(�(E*100))/100
,��E>3E=3
,��E<.5�E=.5+�(4)*.15 
,�PQ=20-(I*100)
,�
�PQ<0PQ=0
,�PR=25-(U*10)
,�
�PR<0PR=0
,�P=�(PO+PP+PQ+PR)
,��IX>.35+(K/100) B=T+1
,��B>1P=�(P/B)
,�	B=B-1
,��GG<(XC/3)P=�(17)+4
-�
.�	��RES
.��13,3);T 
.�k�32,3);PP$;Y:�SND:�32,3);OO$;Y;�12,4);"   ";�12,4);PP$;�(I*100);"%";OO$:�SND:�12,4);OO$;�(I*100);"%"
.�d�32,4);"    ";�32,4);PP$;U;"M.";OO$:�SND:�32,4);OO$;U;"M.";�12,5);PP$;S;OO$:�SND:�12,5);OO$;S
/�L<0IQ$=WW$ � IQ$=RR$
/@%=&0002020A 
/J�33,5);"      ";�32,5);PP$;"$";E;"/`":�SND:�32,5);OO$;"$";E;"/`";UU$
/		@%=10
/
L�12,6);"    ";�12,6);PP$;P;OO$:�SND:�12,6);OO$;P;�27,6);"           " 
/4�27,6);PP$;IQ$;�L"M."OO$:�SND:�27,6)OO$;IQ$;�L
0o�
2���SPACE
2�;�0,22);TT$;NN$;RR$;" �Press the SPACE BAR to continue"
2�� �(0)>" "� �d\r
2�
� � �=" "
2��0,22);�(40):� 
6���PROCD
6�8�0,22);RR$;NN$;"  ��PROCESSING DATA - Please Wait "
6��
:�	��WKE
:��CLR:J=�(4)
:�<�1,8);SS$;"W e e k s  t o  E l e c t i o n :";RR$;PP$;J
:��0,9);QQ$;�39,�44)
:�^�5,11);UU$;"A General Election must take ";�7,12);UU$;"place in";RR$;J;UU$;"weeks' time."
:�� J=1 �23,12);"'s"
:�O�4,14);"You now have the opportunity to","improve your POPULARITY rating."
:�7P=P-�PCM:�12,6);PP$;P;OO$:�SPACE:�12,6);OO$;P;OO$
:��COU=1 �D`{
:��0,11);�(240)
:���4,11);"You will have 1000 units to"'"    allocate and you should try to "'"    use these in areas which require "'"    immediate attention."
;l�4,16);"i.e if Law and Order has been a"'"    problem then allocate some units"'"    to this CATEGORY."
;(�SPACE:�0,11);�(160);�0,16);�(240) 
;r�4,11);"When you have allocated all your"'"    units an ammended POPULARITY "'"    rating will be displayed."
;$a�4,15);"You may keep trying different"'"    allocations each week until the"'"    ELECTION."
;.(�SPACE:�0,11);�(160);�0,15);�(240) 
;`J�0,11);�(160);�0,15);�(240):� I%=10�11:�14,I%);Z$;VV$;"MANIFESTO":� 
;j�14,12);QQ$;",,,,,,,,,"
;t2�4,12);VV$;"..Category..............Emphasis"
;~0PCM=0:UNI=1000:INF=0:UMP=0:HAL=0:LAW=0:AID=0
;�O�5,14);"A";UU$;"Inflation       ";RR$;":             ";��K(INF)-4,14);INF 
;�O�5,15);"B";UU$;"Unemployment    ";RR$;":             ";��K(UMP)-4,15);UMP 
;�Q�5,16);"C";UU$;"Overseas Aid    ";RR$;":             ";��K(AID)-4,16);AID   
;�S�5,17);"D";UU$;"Law and Order   ";RR$;":             ";��K(LAW)-4,17);LAW     
;�$�5,18);"E";VV$;"When finished" 
;�L�0,19);�(80);�0,19);SS$;"     You have";UU$;UNI;SS$;"units to allocate"
;�@� UNI=0 �0,19);SS$;"  ALL YOUR UNITS HAVE BEEN ALLOCATED  "
;�D   �0,21);UU$;NN$;VV$;PP$;"    Enter PREFIX of category      " 
;��K$
;� � K$="E"�0,22);"    ":�tL|
;�*� K$<"A"�K$>"E"�(7);�0,22)�(18):�tp{
;�F   �0,21)�(40);�2,21);UU$;PP$;"Enter NUMBER of units to allocate"
;��0,22);"       ";�0,21)
;�� K$="A" �INF:INF=�INF
;�� K$="B" �UMP:UMP=�UMP
;�� K$="C" �AID:AID=�AID
<� K$="D" �LAW:LAW=�LAW
<�0,22)"        "
<
�EML=INF+UMP+AID+LAW:� EML>1000 �0,21);WW$;"Insufficient units  -  RE-ENTER  -    ";�7:�TIMER(.2):�D~{ � UNI=1000-EML:� �tH{
<�Q� I>.11+(J/100) � I<.17+(J/100) PCM=PCM+(((INF/250)*(((.25+(J/100))-I)*100)))
<�Q� I>.17+(J/100) � I<.25+(J/100) PCM=PCM+(((INF/250)*(((.25+(J/100))-I)*100)))
<�(�I>=.25+(J/100) PCM=PCM+(INF/250)*5 
<�J�U>1.4+(J/10) � U<2.6+(J/10) PCM=PCM+(((UMP/250)*(U-(1.4+(J/10))))*10)
<�K�U>2.6+(J/10) � U<3.6+(J/10) PCM=PCM+(((UMP/250)*(((4+(J/100))-U)*10)))
<�%�U>3.6+(J/10) PCM=PCM+(UMP/250)*5
<�5� I<.12+(J/100)� U<1.9+(J/10) PCM=PCM+(AID/250)*K
<�%� WAL=1 � PCM=PCM+(LAW/250)*(K+1)
<�%� WAL=0 � PCM=PCM+(LAW/150)*(K+1)
<�SP=�(P+PCM):�12,6);PP$;P;OO$:�TIMER(.2):�12,6);OO$;P;OO$:�0,10);�(240);�(240)
<�J=J-1:�J=0 COU=2:PCM=0:�
<�+�6,14);UU$;"Do you wish to try again?"
<�C   �0,21);UU$;NN$;TT$;PP$;"    Key in Y or N then  <RETURN>  "
=6�B$:�B$="Y" �0,21);�(40);�0,14);�(40):COU=1:�tlz
=�B$="N" �CLR:COU=2:PCM=0:�
="�7;�0,22);"    ";�0,21):�dz|
>�
N 	��SND
N*�0,-10,0,3:�0,-10,1,3
N/�TIMER(.15):� 
N�
��SNDA
N��0,-15,2,6:�TIMER(.15):�  
R��QUESTB:�
U��11,10);"Do you wish to:"
U��11,13);"A.Continue now"
V�11,15);"B.Save to tape"
V�11,17);"C.Retire" 
V@�0,20);�(131);�157;�130;"    ENTER A-C THEN PRESS <RETURN>"
V"0�B$:�0,21);"    ":�B$<"A"�B$>"C" �7:�PXV 
V,�B$="A" �:�
V6 �B$="B" �:�VARSAVE:�:�`pU:�
V@�B$="C" �:�
VJ�
]���VARSAVE:�
]�2�2,10);"SET UP YOUR CASSETTE RECORDER WITH A"
]�5�2,14);"A BLANK TAPE AND THEN PRESS <RETURN>"   
]��B$
a�X=�("VARS")
a��#X,M1$,M2$,M3$,M4$,A$,QQ$
a��#X,IX,CX,VX,TX,AX,PX
a��#X,WAL,FF,GG,HH,PCM,AWL
a��#X,T,G,I,U,E,P,KT,COU
a��#X,K,OO,F,B,OT,S
a��#X,L,PO,C,FA,OP,CO
a��#X,AA,IN,GS,FP,BS,TP
b�#X,CC,DD,EE,VV,XB
b)�#X,XA,XC,XZ,RR,XD,D,II,JJ,KK,LL,MM,Y
b�#X,VT,IA,CI,TS
b �#X,TT,XP,XZ
b*	�#X:�
e�
��VARLOAD
e�5�:�2,10);"LOAD YOUR CASSETTE RECORDER WITH THE" 
e�1�2,14);"TAPE CONTAINING THE SAVED VARIABLES"
e�3�1,18);"THEN WHEN ALL IS READY PRESS <RETURN>"
e��B$
fX�B$(200)
fbX=�("VARS")
fl�#X,M1$,M2$,M3$,M4$,A$,QQ$
fv�#X,IX,CX,VX,TX,AX,PX 
f��#X,WAL,FF,GG,HH,PCM,AWL 
f��#X,T,G,I,U,E,P,KT,COU
f��#X,K,OO,F,B,OT,S  
f��#X,L,PO,C,FA,OP,CO
f��#X,AA,IN,GS,FP,BS,TP 
f��#X,CC,DD,EE,VV,XB
f�+�#X,XA,XC,XZ,RR,XD,D,II,JJ,KK,LL,MM,Y  
f� �#X,VT,IA,CI,TS,TT,XP,XZ    
f�	�#X:�
}ݤK(J)=39-��(�J) 
�
00000000  0d 00 01 1b f4 20 47 52  45 41 54 20 42 52 49 54  |..... GREAT BRIT|
00000010  41 49 4e 20 4c 49 4d 49  54 45 44 0d 00 02 1e f4  |AIN LIMITED.....|
00000020  20 43 4f 50 59 52 49 47  48 54 20 53 49 4d 4f 4e  | COPYRIGHT SIMON|
00000030  20 57 20 48 45 53 53 45  4c 0d 00 03 14 f4 20 53  | W HESSEL..... S|
00000040  4f 46 54 57 41 52 45 20  20 38 2f 38 32 0d 00 04  |OFTWARE  8/82...|
00000050  24 f4 20 31 35 20 4c 59  54 48 41 4d 20 43 4f 55  |$. 15 LYTHAM COU|
00000060  52 54 2c 43 41 52 44 57  45 4c 4c 20 43 52 45 53  |RT,CARDWELL CRES|
00000070  2e 0d 00 05 24 f4 20 53  55 4e 4e 49 4e 47 48 49  |....$. SUNNINGHI|
00000080  4c 4c 2c 42 45 52 4b 53  48 49 52 45 2c 45 4e 47  |LL,BERKSHIRE,ENG|
00000090  4c 41 4e 44 2e 0d 00 0a  17 2a 4b 45 59 31 30 22  |LAND.....*KEY10"|
000000a0  4f 4c 44 7c 4d 20 52 55  4e 7c 4d 22 0d 00 28 16  |OLD|M RUN|M"..(.|
000000b0  eb 37 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.7:.23;8202;0;0;|
000000c0  30 3b 0d 00 32 3e f2 56  41 52 3a 20 db 3a e3 49  |0;..2>.VAR: .:.I|
000000d0  25 3d 31 31 b8 31 32 3a  f1 8a 38 2c 49 25 29 3b  |%=11.12:..8,I%);|
000000e0  56 56 24 3b 5a 24 3b 22  47 52 45 41 54 20 42 52  |VV$;Z$;"GREAT BR|
000000f0  49 54 41 49 4e 20 4c 49  4d 49 54 45 44 22 3a ed  |ITAIN LIMITED":.|
00000100  0d 00 37 34 f1 8a 31 2c  31 39 29 3b 22 43 6f 70  |..74..1,19);"Cop|
00000110  79 72 69 67 68 74 20 53  69 6d 6f 6e 20 57 20 48  |yright Simon W H|
00000120  65 73 73 65 6c 20 53 6f  66 74 77 61 72 65 20 38  |essel Software 8|
00000130  2f 38 32 22 0d 00 3c 0f  f2 54 49 4d 45 52 28 2e  |/82"..<..TIMER(.|
00000140  32 35 29 0d 00 45 0a 51  51 24 3d 56 24 0d 00 46  |25)..E.QQ$=V$..F|
00000150  05 db 0d 00 50 0a f2 51  55 45 53 54 0d 00 64 34  |....P..QUEST..d4|
00000160  f1 8a 31 2c 33 29 3b 55  55 24 3b 22 45 4e 54 45  |..1,3);UU$;"ENTE|
00000170  52 20 59 4f 55 52 20 4e  41 4d 45 20 28 4d 41 58  |R YOUR NAME (MAX|
00000180  20 32 35 20 43 48 41 52  41 43 54 45 52 53 29 22  | 25 CHARACTERS)"|
00000190  0d 00 6e 07 e8 41 24 0d  00 73 10 e7 20 41 24 3d  |..n..A$..s.. A$=|
000001a0  22 22 e5 8d 44 64 40 0d  00 78 75 e7 20 a9 20 41  |""..Dd@..xu. . A|
000001b0  24 3e 32 35 20 f1 bd 28  37 29 3b 8a 31 2c 35 29  |$>25 ..(7);.1,5)|
000001c0  3b a9 41 24 2d 32 35 3b  22 20 54 4f 4f 20 4d 41  |;.A$-25;" TOO MA|
000001d0  4e 59 20 43 48 41 52 41  43 54 45 52 53 20 50 4c  |NY CHARACTERS PL|
000001e0  45 41 53 45 20 52 45 2d  45 4e 54 45 52 22 3a f1  |EASE RE-ENTER":.|
000001f0  8a 31 2c 34 29 3b 22 20  20 20 20 20 20 20 20 20  |.1,4);"         |
00000200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210  3c 20 20 20 22 3a e5 8d  44 64 40 20 0d 00 82 0a  |<   ":..Dd@ ....|
00000220  f1 89 28 34 30 29 0d 00  8c 05 db 0d 00 96 37 f1  |..(40)........7.|
00000230  8a 31 2c 33 29 3b 55 55  24 3b 22 57 48 49 43 48  |.1,3);UU$;"WHICH|
00000240  20 50 41 52 54 59 20 44  4f 20 59 4f 55 20 57 49  | PARTY DO YOU WI|
00000250  53 48 20 54 4f 20 52 45  50 52 45 53 45 4e 54 3a  |SH TO REPRESENT:|
00000260  2d 22 0d 00 9b 0a f2 50  41 52 54 59 0d 00 a0 43  |-".....PARTY...C|
00000270  f1 27 27 27 27 8a 31 30  29 22 41 2e 22 3b 4c 31  |.''''.10)"A.";L1|
00000280  24 3b 27 27 8a 31 30 29  22 42 2e 22 3b 4c 32 24  |$;''.10)"B.";L2$|
00000290  3b 27 27 8a 31 30 29 22  43 2e 22 3b 4c 33 24 3b  |;''.10)"C.";L3$;|
000002a0  27 27 8a 31 30 29 22 44  2e 22 3b 4c 34 24 20 0d  |''.10)"D.";L4$ .|
000002b0  00 aa 31 f1 27 27 27 27  8a 37 29 3b 56 56 24 3b  |..1.''''.7);VV$;|
000002c0  50 50 24 3b 22 45 4e 54  45 52 20 41 2d 44 20 54  |PP$;"ENTER A-D T|
000002d0  48 45 4e 20 52 45 54 55  52 4e 22 3a e8 4b 24 20  |HEN RETURN":.K$ |
000002e0  0d 00 b4 28 20 20 20 e7  4b 24 3d 22 41 22 84 4b  |...(   .K$="A".K|
000002f0  24 3d 22 42 22 84 4b 24  3d 22 43 22 84 4b 24 3d  |$="B".K$="C".K$=|
00000300  22 44 22 e5 8d 74 7e 40  0d 00 b9 1d 20 20 20 20  |"D"..t~@....    |
00000310  20 20 20 f1 bd 28 31 32  29 3a f1 bd 28 37 29 3a  |   ..(12):..(7):|
00000320  e5 8d 74 56 40 0d 00 be  34 20 20 e7 20 4b 24 3d  |..tV@...4  . K$=|
00000330  22 41 22 4d 31 24 3d 4c  31 24 3a 4d 32 24 3d 4c  |"A"M1$=L1$:M2$=L|
00000340  32 24 3a 4d 33 24 3d 4c  33 24 3a 4d 34 24 3d 4c  |2$:M3$=L3$:M4$=L|
00000350  34 24 3a 51 51 24 3d 54  24 0d 00 c8 35 20 20 20  |4$:QQ$=T$...5   |
00000360  e7 20 4b 24 3d 22 42 22  4d 31 24 3d 4c 32 24 3a  |. K$="B"M1$=L2$:|
00000370  4d 32 24 3d 4c 31 24 3a  4d 33 24 3d 4c 33 24 3a  |M2$=L1$:M3$=L3$:|
00000380  4d 34 24 3d 4c 34 24 3a  51 51 24 3d 57 24 0d 00  |M4$=L4$:QQ$=W$..|
00000390  d2 35 20 20 20 e7 20 4b  24 3d 22 43 22 4d 31 24  |.5   . K$="C"M1$|
000003a0  3d 4c 33 24 3a 4d 32 24  3d 4c 31 24 3a 4d 33 24  |=L3$:M2$=L1$:M3$|
000003b0  3d 4c 32 24 3a 4d 34 24  3d 4c 34 24 3a 51 51 24  |=L2$:M4$=L4$:QQ$|
000003c0  3d 55 24 0d 00 dc 35 20  20 20 e7 20 4b 24 3d 22  |=U$...5   . K$="|
000003d0  44 22 4d 31 24 3d 4c 34  24 3a 4d 32 24 3d 4c 31  |D"M1$=L4$:M2$=L1|
000003e0  24 3a 4d 33 24 3d 4c 32  24 3a 4d 34 24 3d 4c 33  |$:M3$=L2$:M4$=L3|
000003f0  24 3a 51 51 24 3d 59 24  0d 01 2c 0b f2 53 45 54  |$:QQ$=Y$..,..SET|
00000400  55 50 20 0d 01 2d 11 e7  54 3d 31 84 59 3e 31 e5  |UP ..-..T=1.Y>1.|
00000410  8d 44 5e 41 0d 01 2e 0e  e7 54 3e 31 20 e5 8d 44  |.D^A.....T>1 ..D|
00000420  5e 41 0d 01 36 1a e7 55  3e 33 2e 38 20 80 20 57  |^A..6..U>3.8 . W|
00000430  41 4c 3d 31 20 f2 52 49  4f 54 42 20 0d 01 3b 34  |AL=1 .RIOTB ..;4|
00000440  57 42 3d b3 28 37 29 3a  57 42 3d 57 42 2d 28 a8  |WB=.(7):WB=WB-(.|
00000450  55 29 3a e7 20 57 42 3c  3d 31 20 80 20 57 41 4c  |U):. WB<=1 . WAL|
00000460  3d 32 20 80 20 59 3e 31  20 f2 52 49 4f 54 41 20  |=2 . Y>1 .RIOTA |
00000470  0d 01 5e 12 e7 54 3d 31  84 59 3e 31 f2 43 41 4c  |..^..T=1.Y>1.CAL|
00000480  43 20 0d 01 63 17 e7 20  58 43 2f 58 44 3e 31 2e  |C ..c.. XC/XD>1.|
00000490  34 20 f2 4c 4f 53 4f 43  20 0d 01 68 15 f2 43 4c  |4 .LOSOC ..h..CL|
000004a0  52 3a f2 50 52 4f 43 44  3a f2 52 45 53 20 0d 01  |R:.PROCD:.RES ..|
000004b0  72 17 20 20 f1 8a 30 2c  37 29 3a f2 43 4c 52 3a  |r.  ..0,7):.CLR:|
000004c0  f2 50 52 4f 46 0d 01 86  19 20 20 f1 8a 30 2c 37  |.PROF....  ..0,7|
000004d0  29 3a f2 43 4c 52 3a f2  42 41 53 4b 45 54 0d 01  |):.CLR:.BASKET..|
000004e0  8b 12 e7 59 3d 35 8c f2  45 4c 45 43 54 49 4f 4e  |...Y=5..ELECTION|
000004f0  0d 01 90 19 20 f1 8a 30  2c 37 29 3a f2 43 4c 52  |.... ..0,7):.CLR|
00000500  3a f2 42 55 44 47 45 54  41 0d 01 9a 1a 20 20 f1  |:.BUDGETA....  .|
00000510  8a 30 2c 37 29 3a f2 43  4c 52 3a f2 42 55 44 47  |.0,7):.CLR:.BUDG|
00000520  45 54 42 0d 01 9f 18 20  f1 8a 30 2c 37 29 3a f2  |ETB.... ..0,7):.|
00000530  43 4c 52 3a f2 52 45 46  4f 52 4d 0d 01 a4 18 59  |CLR:.REFORM....Y|
00000540  3d 59 2b 31 3a e7 49 58  3e 2e 35 20 f2 52 45 56  |=Y+1:.IX>.5 .REV|
00000550  4f 4c 54 0d 01 ae 09 e5  8d 54 76 41 0d 04 88 1e  |OLT......TvA....|
00000560  20 53 53 3d a8 28 32 30  30 2a 28 28 54 53 2f 31  | SS=.(200*((TS/1|
00000570  30 30 30 29 2f 31 30 29  29 20 0d 04 b0 0b dd f2  |000)/10)) ......|
00000580  51 55 45 53 54 0d 04 ba  31 f1 8a 32 2c 31 30 29  |QUEST...1..2,10)|
00000590  3b 22 49 46 20 59 4f 55  20 57 49 53 48 20 54 4f  |;"IF YOU WISH TO|
000005a0  20 4c 4f 41 44 20 41 20  50 52 45 56 49 4f 55 53  | LOAD A PREVIOUS|
000005b0  20 47 41 4d 45 22 0d 04  c4 30 f1 8a 32 2c 31 34  | GAME"...0..2,14|
000005c0  29 3b 22 45 4e 54 45 52  20 20 59 20 20 41 4e 44  |);"ENTER  Y  AND|
000005d0  20 54 48 45 4e 20 50 52  45 53 53 20 20 3c 52 45  | THEN PRESS  <RE|
000005e0  54 55 52 4e 3e 22 0d 04  ce 2a f1 8a 35 2c 31 38  |TURN>"...*..5,18|
000005f0  29 3b 22 49 46 20 4e 4f  54 20 4a 55 53 54 20 20  |);"IF NOT JUST  |
00000600  50 52 45 53 53 20 20 3c  52 45 54 55 52 4e 3e 22  |PRESS  <RETURN>"|
00000610  0d 04 d8 23 e8 42 24 3a  e7 20 42 24 3d 22 59 22  |...#.B$:. B$="Y"|
00000620  20 8c 20 f2 56 41 52 4c  4f 41 44 3a db 3a e5 8d  | . .VARLOAD:.:..|
00000630  54 6c 41 0d 04 e2 07 db  3a e1 0d 05 dc 0a dd f2  |TlA.....:.......|
00000640  4e 45 57 53 0d 05 de 0d  e3 20 5a 3d 31 20 b8 20  |NEWS..... Z=1 . |
00000650  35 0d 05 e1 23 e3 49 25  3d 38 b8 39 3a f1 8a 30  |5...#.I%=8.9:..0|
00000660  2c 49 25 29 3b 55 55 24  3b 4e 4e 24 3b 89 28 33  |,I%);UU$;NN$;.(3|
00000670  39 29 3a ed 0d 05 e6 4f  e3 58 3d 31 b8 33 30 3a  |9):....O.X=1.30:|
00000680  e3 49 25 3d 38 b8 39 3a  f1 8a 58 2c 49 25 29 3b  |.I%=8.9:..X,I%);|
00000690  5a 24 3b 22 83 9d 81 2a  4e 45 57 53 20 22 3a ed  |Z$;"...*NEWS ":.|
000006a0  49 25 3a e3 49 25 3d 38  b8 39 3a f1 8a 30 2c 49  |I%:.I%=8.9:..0,I|
000006b0  25 29 3b 55 55 24 3b 4e  4e 24 3a ed 49 25 3a ed  |%);UU$;NN$:.I%:.|
000006c0  58 20 20 0d 05 e8 19 d4  30 2c 2d 31 30 2c 31 2c  |X  .....0,-10,1,|
000006d0  32 3a d4 30 2c 2d 31 30  2c 30 2c 32 0d 05 eb 06  |2:.0,-10,0,2....|
000006e0  ed 5a 0d 05 f0 05 e1 0d  07 d0 10 dd f2 4c 4f 53  |.Z...........LOS|
000006f0  4f 43 3a f2 43 4c 52 0d  07 da 09 f2 4e 45 57 53  |OC:.CLR.....NEWS|
00000700  0d 07 df 0e f2 54 49 4d  45 52 28 2e 31 29 0d 07  |.....TIMER(.1)..|
00000710  e4 35 e3 20 49 25 3d 31  31 b8 20 31 32 3a f1 8a  |.5. I%=11. 12:..|
00000720  31 31 2c 49 25 29 3b 50  50 24 3b 57 57 24 3b 5a  |11,I%);PP$;WW$;Z|
00000730  24 3b 22 57 20 41 20 52  20 4e 20 49 20 4e 20 47  |$;"W A R N I N G|
00000740  22 3a ed 0d 07 ee 69 f1  8a 36 2c 31 35 29 3b 55  |":....i..6,15);U|
00000750  55 24 3b 22 53 6f 63 69  61 6c 20 42 65 6e 65 66  |U$;"Social Benef|
00000760  69 74 73 20 61 72 65 20  66 61 6c 6c 69 6e 67 22  |its are falling"|
00000770  27 27 3b 55 55 24 3b 22  20 20 20 20 20 20 20 20  |'';UU$;"        |
00000780  62 61 64 6c 79 20 62 65  68 69 6e 64 20 49 4e 46  |badly behind INF|
00000790  4c 41 54 49 4f 4e 22 3a  d4 30 2c 2d 31 35 2c 32  |LATION":.0,-15,2|
000007a0  2c 32 30 3a f2 53 50 41  43 45 3a e1 0d 08 34 0b  |,20:.SPACE:...4.|
000007b0  dd f2 52 49 4f 54 41 0d  08 39 08 f2 43 4c 52 0d  |..RIOTA..9..CLR.|
000007c0  08 3e 09 f2 4e 45 57 53  0d 08 43 0e f2 54 49 4d  |.>..NEWS..C..TIM|
000007d0  45 52 28 2e 31 29 0d 08  48 76 f1 8a 35 2c 31 34  |ER(.1)..Hv..5,14|
000007e0  29 3b 56 56 24 3b 22 53  45 56 45 52 45 20 52 49  |);VV$;"SEVERE RI|
000007f0  4f 54 49 4e 47 20 49 4e  20 4d 41 4e 59 20 4c 41  |OTING IN MANY LA|
00000800  52 47 45 22 27 27 27 3b  56 56 24 3b 22 20 20 20  |RGE"''';VV$;"   |
00000810  20 43 49 54 49 45 53 20  4f 43 43 55 52 52 45 44  | CITIES OCCURRED|
00000820  20 44 55 52 49 4e 47 20  54 48 45 20 59 45 41 52  | DURING THE YEAR|
00000830  22 3a 57 41 4c 3d 31 3a  d4 30 2c 2d 31 35 2c 32  |":WAL=1:.0,-15,2|
00000840  2c 32 30 3a f2 53 50 41  43 45 3a e1 0d 08 98 10  |,20:.SPACE:.....|
00000850  dd f2 52 49 4f 54 42 3a  f2 43 4c 52 0d 08 a2 14  |..RIOTB:.CLR....|
00000860  f2 4e 45 57 53 3a f2 54  49 4d 45 52 28 2e 31 29  |.NEWS:.TIMER(.1)|
00000870  0d 08 ac ae f1 8a 35 2c  31 32 29 3b 59 59 24 3b  |......5,12);YY$;|
00000880  22 4c 61 77 20 61 6e 64  20 6f 72 64 65 72 20 68  |"Law and order h|
00000890  61 73 20 62 72 6f 6b 65  6e 20 64 6f 77 6e 22 3b  |as broken down";|
000008a0  8a 34 2c 31 35 29 3b 53  53 24 3b 50 50 24 3b 22  |.4,15);SS$;PP$;"|
000008b0  41 20 47 45 4e 45 52 41  4c 20 45 4c 45 43 54 49  |A GENERAL ELECTI|
000008c0  4f 4e 20 4d 55 53 54 20  54 41 4b 45 20 22 27 27  |ON MUST TAKE "''|
000008d0  3b 53 53 24 3b 50 50 24  3b 22 20 20 20 20 20 20  |;SS$;PP$;"      |
000008e0  20 20 20 50 4c 41 43 45  20 49 4d 4d 45 44 49 41  |   PLACE IMMEDIA|
000008f0  54 45 4c 59 22 3a d4 30  2c 2d 31 35 2c 32 2c 33  |TELY":.0,-15,2,3|
00000900  35 3a f2 53 50 41 43 45  3a 41 57 4c 3d 31 3a 57  |5:.SPACE:AWL=1:W|
00000910  41 4c 3d 30 3a f2 45 4c  45 43 54 49 4f 4e 0d 08  |AL=0:.ELECTION..|
00000920  b1 05 e1 0d 08 fc 11 dd  f2 52 45 56 4f 4c 54 3a  |.........REVOLT:|
00000930  f2 43 4c 52 0d 09 06 14  f2 4e 45 57 53 3a f2 54  |.CLR.....NEWS:.T|
00000940  49 4d 45 52 28 2e 31 29  0d 09 10 65 f1 8a 33 2c  |IMER(.1)...e..3,|
00000950  31 33 29 3b 55 55 24 3b  22 50 61 72 74 79 20 57  |13);UU$;"Party W|
00000960  65 74 73 20 68 61 76 65  20 72 65 62 65 6c 6c 65  |ets have rebelle|
00000970  64 20 20 61 67 61 69 6e  73 74 22 27 27 3b 55 55  |d  against"'';UU|
00000980  24 3b 22 20 20 20 20 20  20 22 3b 49 58 2a 31 30  |$;"      ";IX*10|
00000990  30 3b 22 20 50 45 52 43  45 4e 54 20 49 6e 63 6f  |0;" PERCENT Inco|
000009a0  6d 65 20 54 61 78 20 72  61 74 65 22 20 0d 09 1a  |me Tax rate" ...|
000009b0  12 49 58 3d 2e 34 30 2b  28 4b 2a 2e 30 32 29 0d  |.IX=.40+(K*.02).|
000009c0  09 24 5d f1 8a 33 2c 31  38 29 3b 53 53 24 3b 22  |.$]..3,18);SS$;"|
000009d0  49 74 20 6d 75 73 74 20  62 65 20 72 65 64 75 63  |It must be reduc|
000009e0  65 64 20 74 6f 20 22 3b  49 58 2a 31 30 30 3b 20  |ed to ";IX*100; |
000009f0  22 20 50 45 52 43 45 4e  54 22 3a d4 30 2c 2d 31  |" PERCENT":.0,-1|
00000a00  35 2c 31 2c 31 30 3a d4  30 2c 2d 31 35 2c 32 2c  |5,1,10:.0,-15,2,|
00000a10  32 30 3a f2 53 50 41 43  45 3a e1 20 0d 0f a0 0a  |20:.SPACE:. ....|
00000a20  dd f2 50 52 4f 46 0d 0f  aa 37 20 20 20 20 20 20  |..PROF...7      |
00000a30  20 e3 49 25 3d 38 b8 39  3a f1 8a 31 31 2c 49 25  | .I%=8.9:..11,I%|
00000a40  29 3b 5a 24 3b 56 56 24  3b 22 43 4f 55 4e 54 52  |);Z$;VV$;"COUNTR|
00000a50  59 20 50 52 4f 46 49 4c  45 22 3a ed 20 0d 0f b4  |Y PROFILE":. ...|
00000a60  24 f1 8a 31 32 2c 31 30  29 3b 56 24 3b 22 2c 2c  |$..12,10);V$;",,|
00000a70  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 22 20 20  |,,,,,,,,,,,,,"  |
00000a80  20 0d 0f be 25 f1 8a 39  2c 31 31 29 3b 43 3b 22  | ...%..9,11);C;"|
00000a90  4d 2e 50 45 4f 50 4c 45  28 49 4e 43 4c 55 44 49  |M.PEOPLE(INCLUDI|
00000aa0  4e 47 29 22 20 20 0d 0f  c8 37 20 f1 8a 34 2c 31  |NG)"  ...7 ..4,1|
00000ab0  32 29 3b 22 28 22 3b 46  41 3b 22 4d 2e 43 48 49  |2);"(";FA;"M.CHI|
00000ac0  4c 44 52 45 4e 20 26 20  22 3b 4f 50 3b 22 4d 2e  |LDREN & ";OP;"M.|
00000ad0  50 45 4e 53 49 4f 4e 45  52 53 29 22 20 0d 0f d2  |PENSIONERS)" ...|
00000ae0  24 f1 8a 31 30 2c 31 33  29 3b 43 4f 2a 31 30 30  |$..10,13);CO*100|
00000af0  30 3b 22 20 43 4f 4d 50  41 4e 49 45 53 22 20 20  |0;" COMPANIES"  |
00000b00  20 0d 0f dc 25 f1 8a 31  30 2c 31 34 29 3b 56 56  | ...%..10,14);VV|
00000b10  24 3b 22 49 4e 43 4f 4d  45 20 46 52 4f 4d 20 54  |$;"INCOME FROM T|
00000b20  41 58 45 53 22 20 0d 0f  e6 44 f1 8a 34 2c 31 35  |AXES" ...D..4,15|
00000b30  29 3b 55 55 24 3b 22 56  20 41 20 54 20 20 20 49  |);UU$;"V A T   I|
00000b40  6e 63 6f 6d 65 20 20 20  20 3a 22 3b 52 52 24 3b  |ncome    :";RR$;|
00000b50  22 60 22 3b 8a a4 4b 28  56 54 29 2d 36 2c 31 35  |"`";..K(VT)-6,15|
00000b60  29 3b a8 56 54 3b 22 4d  2e 22 0d 0f f0 45 f1 8a  |);.VT;"M."...E..|
00000b70  34 2c 31 36 29 3b 55 55  24 3b 22 50 20 41 20 59  |4,16);UU$;"P A Y|
00000b80  20 45 20 49 6e 63 6f 6d  65 20 20 20 20 3a 22 3b  | E Income    :";|
00000b90  52 52 24 3b 22 60 22 3b  8a a4 4b 28 49 41 29 2d  |RR$;"`";..K(IA)-|
00000ba0  36 2c 31 36 29 3b a8 49  41 3b 22 4d 2e 22 20 0d  |6,16);.IA;"M." .|
00000bb0  0f fa 44 f1 8a 34 2c 31  37 29 3b 55 55 24 3b 22  |..D..4,17);UU$;"|
00000bc0  43 6f 6d 70 61 6e 79 20  54 61 78 20 49 6e 63 6f  |Company Tax Inco|
00000bd0  6d 65 3a 22 3b 52 52 24  3b 22 60 22 3b 8a a4 4b  |me:";RR$;"`";..K|
00000be0  28 43 49 29 2d 36 2c 31  37 29 3b a8 43 49 3b 22  |(CI)-6,17);.CI;"|
00000bf0  4d 2e 22 0d 10 04 44 f1  8a 34 2c 31 38 29 3b 55  |M."...D..4,18);U|
00000c00  55 24 3b 22 45 78 63 69  73 65 20 44 75 74 69 65  |U$;"Excise Dutie|
00000c10  73 20 20 20 20 20 3a 22  3b 52 52 24 3b 22 60 22  |s     :";RR$;"`"|
00000c20  3b 8a a4 4b 28 54 53 29  2d 36 2c 31 38 29 3b a8  |;..K(TS)-6,18);.|
00000c30  54 53 3b 22 4d 2e 22 0d  10 0e 46 f1 8a 34 2c 31  |TS;"M."...F..4,1|
00000c40  39 29 3b 56 56 24 3b 22  20 20 54 4f 54 41 4c 20  |9);VV$;"  TOTAL |
00000c50  49 4e 43 4f 4d 45 20 20  20 20 3a 22 3b 56 56 24  |INCOME    :";VV$|
00000c60  3b 22 60 22 3b 8a a4 4b  28 54 54 29 2d 36 2c 31  |;"`";..K(TT)-6,1|
00000c70  39 29 3b a8 54 54 3b 22  4d 2e 22 20 20 0d 10 18  |9);.TT;"M."  ...|
00000c80  51 f1 8a 34 2c 32 30 29  3b 57 57 24 3b 22 6c 65  |Q..4,20);WW$;"le|
00000c90  73 73 20 45 58 50 45 4e  44 49 54 55 52 45 20 20  |ss EXPENDITURE  |
00000ca0  3a 22 3b 57 57 24 3b 22  60 22 3b 8a a4 4b 28 58  |:";WW$;"`";..K(X|
00000cb0  50 2b 58 5a 29 2d 37 2c  32 30 29 3b 57 57 24 3b  |P+XZ)-7,20);WW$;|
00000cc0  a8 28 58 50 2b 58 5a 29  3b 22 4d 2e 22 20 0d 10  |.(XP+XZ);"M." ..|
00000cd0  2c 47 f1 8a 37 2c 32 31  29 3b 22 42 41 4c 41 4e  |,G..7,21);"BALAN|
00000ce0  43 45 20 28 2b 2f 2d 29  20 20 20 3a 20 60 22 3b  |CE (+/-)   : `";|
00000cf0  8a a4 4b 28 54 54 2d 58  50 2d 58 5a 29 2d 36 2c  |..K(TT-XP-XZ)-6,|
00000d00  32 31 29 3b a8 28 54 54  2d 58 50 2d 58 5a 29 3b  |21);.(TT-XP-XZ);|
00000d10  22 4d 2e 22 20 0d 10 31  5d e7 20 28 54 54 2d 58  |"M." ..1]. (TT-X|
00000d20  50 2d 58 5a 29 3c 30 20  f1 8a 36 2c 32 31 29 3b  |P-XZ)<0 ..6,21);|
00000d30  57 57 24 3b 22 42 41 4c  41 4e 43 45 20 28 2b 2f  |WW$;"BALANCE (+/|
00000d40  2d 29 20 20 20 3a 20 60  22 3b 8a a4 4b 28 54 54  |-)   : `";..K(TT|
00000d50  2d 58 50 2d 58 5a 29 2d  37 2c 32 31 29 3b 57 57  |-XP-XZ)-7,21);WW|
00000d60  24 3b a8 28 54 54 2d 58  50 2d 58 5a 29 3b 22 4d  |$;.(TT-XP-XZ);"M|
00000d70  2e 22 0d 10 36 0f 4f 54  3d 54 54 2b 58 42 2b 58  |."..6.OT=TT+XB+X|
00000d80  5a 0d 10 40 0a f2 53 50  41 43 45 0d 10 67 05 e1  |Z..@..SPACE..g..|
00000d90  0d 10 68 0c dd f2 42 41  53 4b 45 54 0d 10 72 36  |..h...BASKET..r6|
00000da0  20 20 20 20 20 20 20 e3  49 25 3d 38 b8 39 3a f1  |       .I%=8.9:.|
00000db0  8a 31 31 2c 49 25 29 3b  5a 24 3b 57 57 24 3b 22  |.11,I%);Z$;WW$;"|
00000dc0  53 48 4f 50 50 49 4e 47  20 42 41 53 4b 45 54 22  |SHOPPING BASKET"|
00000dd0  3a ed 0d 10 7c 23 f1 8a  31 32 2c 31 30 29 3b 57  |:...|#..12,10);W|
00000de0  24 3b 22 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |$;",,,,,,,,,,,,,|
00000df0  2c 2c 22 20 20 0d 10 81  11 40 25 3d 26 30 30 30  |,,"  ....@%=&000|
00000e00  32 30 32 30 41 20 0d 10  83 22 51 45 3d 28 a8 28  |2020A ..."QE=(.(|
00000e10  28 45 45 2b 50 58 2b 28  45 45 2a 49 29 29 2a 31  |(EE+PX+(EE*I))*1|
00000e20  30 30 29 29 2f 31 30 30  0d 10 86 3f f1 8a 36 2c  |00))/100...?..6,|
00000e30  31 31 29 3b 55 55 24 3b  22 50 65 74 72 6f 6c 20  |11);UU$;"Petrol |
00000e40  20 20 28 67 61 6c 6c 6f  6e 29 20 20 3a 22 3b 52  |  (gallon)  :";R|
00000e50  52 24 3b 22 60 22 3b 8a  a4 4b 28 51 45 29 2d 37  |R$;"`";..K(QE)-7|
00000e60  2c 31 31 29 3b 51 45 0d  10 8b 22 51 44 3d 28 a8  |,11);QE..."QD=(.|
00000e70  28 28 44 44 2b 41 58 2b  28 44 44 2a 49 29 29 2a  |((DD+AX+(DD*I))*|
00000e80  31 30 30 29 29 2f 31 30  30 0d 10 90 40 f1 8a 36  |100))/100...@..6|
00000e90  2c 31 32 29 3b 55 55 24  3b 22 53 63 6f 74 63 68  |,12);UU$;"Scotch|
00000ea0  20 20 20 28 62 6f 74 74  6c 65 29 20 20 3a 22 3b  |   (bottle)  :";|
00000eb0  52 52 24 3b 22 60 22 3b  8a a4 4b 28 51 44 29 2d  |RR$;"`";..K(QD)-|
00000ec0  37 2c 31 32 29 3b 51 44  20 0d 10 95 22 51 43 3d  |7,12);QD ..."QC=|
00000ed0  28 a8 28 28 43 43 2b 54  58 2b 28 43 43 2a 49 29  |(.((CC+TX+(CC*I)|
00000ee0  29 2a 31 30 30 29 29 2f  31 30 30 0d 10 9a 3f f1  |)*100))/100...?.|
00000ef0  8a 36 2c 31 33 29 3b 55  55 24 3b 22 43 69 67 61  |.6,13);UU$;"Ciga|
00000f00  72 65 74 74 65 73 20 20  20 28 32 30 29 20 20 3a  |rettes   (20)  :|
00000f10  22 3b 52 52 24 3b 22 60  22 3b 8a a4 4b 28 51 43  |";RR$;"`";..K(QC|
00000f20  29 2d 37 2c 31 33 29 3b  51 43 0d 10 9f 1c 44 3d  |)-7,13);QC....D=|
00000f30  28 a8 28 28 44 2b 28 44  2a 49 29 29 2a 31 30 30  |(.((D+(D*I))*100|
00000f40  29 29 2f 31 30 30 0d 10  a4 3f f1 8a 36 2c 31 34  |))/100...?..6,14|
00000f50  29 3b 55 55 24 3b 22 4d  69 6c 6b 20 20 20 20 20  |);UU$;"Milk     |
00000f60  20 20 28 70 69 6e 74 29  20 20 3a 22 3b 52 52 24  |  (pint)  :";RR$|
00000f70  3b 22 60 22 3b 8a a4 4b  28 44 29 2d 37 2c 31 34  |;"`";..K(D)-7,14|
00000f80  29 3b 44 20 20 0d 10 ae  42 f1 8a 36 2c 31 35 29  |);D  ...B..6,15)|
00000f90  3b 55 55 24 3b 22 42 72  65 61 64 20 20 20 20 20  |;UU$;"Bread     |
00000fa0  20 28 6c 6f 61 66 29 20  20 3a 22 3b 52 52 24 3b  | (loaf)  :";RR$;|
00000fb0  22 60 22 3b 8a a4 4b 28  44 2a 32 29 2d 37 2c 31  |"`";..K(D*2)-7,1|
00000fc0  35 29 3b 44 2a 32 20 0d  10 b8 4a f1 8a 36 2c 31  |5);D*2 ...J..6,1|
00000fd0  36 29 3b 55 55 24 3b 22  54 65 61 20 20 20 20 20  |6);UU$;"Tea     |
00000fe0  28 71 75 61 72 74 65 72  29 20 20 3a 22 3b 52 52  |(quarter)  :";RR|
00000ff0  24 3b 22 60 22 3b 8a a4  4b 28 44 2b 28 44 2f 32  |$;"`";..K(D+(D/2|
00001000  29 29 2d 37 2c 31 36 29  3b 44 2b 28 44 2f 32 29  |))-7,16);D+(D/2)|
00001010  20 0d 10 bd 09 40 25 3d  31 30 0d 10 bf 23 f1 8a  | ....@%=10...#..|
00001020  31 32 2c 31 37 29 3b 57  24 3b 22 2c 2c 2c 2c 2c  |12,17);W$;",,,,,|
00001030  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 22 20 20 0d 10 c2  |,,,,,,,,,,"  ...|
00001040  32 f1 8a 36 2c 31 38 29  3b 55 55 24 3b 22 41 76  |2..6,18);UU$;"Av|
00001050  65 72 61 67 65 20 49 6e  63 6f 6d 65 20 20 20 20  |erage Income    |
00001060  20 3a 22 3b 52 52 24 3b  22 60 22 3b a8 49 4e 0d  | :";RR$;"`";.IN.|
00001070  10 c7 13 52 52 3d a8 28  52 52 2b 28 52 52 2a 49  |...RR=.(RR+(RR*I|
00001080  29 29 0d 10 cc 2f f1 8a  36 2c 31 39 29 3b 55 55  |)).../..6,19);UU|
00001090  24 3b 22 52 65 74 61 69  6c 20 50 72 69 63 65 20  |$;"Retail Price |
000010a0  49 6e 64 65 78 20 3a 20  22 3b 52 52 24 3b 52 52  |Index : ";RR$;RR|
000010b0  20 0d 10 d1 1a 20 f1 8a  30 2c 32 31 29 3b 51 51  | .... ..0,21);QQ|
000010c0  24 3b c4 33 39 2c bd 34  34 29 20 0d 10 d6 0a f2  |$;.39,.44) .....|
000010d0  53 50 41 43 45 0d 11 2f  05 e1 0d 11 30 0c dd f2  |SPACE../....0...|
000010e0  52 45 46 4f 52 4d 0d 11  3a 3a 20 20 20 20 20 20  |REFORM..::      |
000010f0  20 e3 49 25 3d 38 b8 39  3a f1 8a 38 2c 49 25 29  | .I%=8.9:..8,I%)|
00001100  3b 5a 24 3b 56 56 24 3b  22 52 45 46 4f 52 4d 20  |;Z$;VV$;"REFORM |
00001110  4f 50 50 4f 52 54 55 4e  49 54 49 45 53 22 3a ed  |OPPORTUNITIES":.|
00001120  0d 11 44 25 f1 8a 39 2c  31 30 29 3b 56 24 3b 22  |..D%..9,10);V$;"|
00001130  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00001140  2c 2c 2c 2c 22 0d 11 4e  56 20 f1 8a 32 2c 31 32  |,,,,"..NV ..2,12|
00001150  29 3b 22 41 22 3b 55 55  24 3b 22 49 6d 70 72 6f  |);"A";UU$;"Impro|
00001160  76 65 20 48 65 61 6c 74  68 20 53 65 72 76 69 63  |ve Health Servic|
00001170  65 20 20 20 22 3b 52 52  24 3b 22 3a 60 20 20 20  |e   ";RR$;":`   |
00001180  20 20 20 22 3b 8a a4 4b  28 49 49 29 2d 31 2c 31  |   ";..K(II)-1,1|
00001190  32 29 3b a8 49 49 3b 22  4d 22 20 0d 11 58 56 20  |2);.II;"M" ..XV |
000011a0  20 f1 8a 32 2c 31 33 29  3b 22 42 22 3b 55 55 24  | ..2,13);"B";UU$|
000011b0  3b 22 42 75 69 6c 64 20  4e 65 77 20 48 6f 6d 65  |;"Build New Home|
000011c0  73 20 20 20 20 20 20 20  20 20 20 22 3b 52 52 24  |s          ";RR$|
000011d0  3b 22 3a 60 20 20 20 20  20 20 22 3b 8a a4 4b 28  |;":`      ";..K(|
000011e0  4a 4a 29 2d 31 2c 31 33  29 3b a8 4a 4a 3b 22 4d  |JJ)-1,13);.JJ;"M|
000011f0  22 0d 11 62 56 20 20 f1  8a 32 2c 31 34 29 3b 22  |"..bV  ..2,14);"|
00001200  43 22 3b 55 55 24 3b 22  4a 6f 62 73 20 66 6f 72  |C";UU$;"Jobs for|
00001210  20 53 63 68 6f 6f 6c 20  4c 65 61 76 65 72 73 20  | School Leavers |
00001220  20 22 3b 52 52 24 3b 22  3a 60 20 20 20 20 20 20  | ";RR$;":`      |
00001230  22 3b 8a a4 4b 28 4b 4b  29 2d 31 2c 31 34 29 3b  |";..K(KK)-1,14);|
00001240  a8 4b 4b 3b 22 4d 22 0d  11 6c 56 20 20 f1 8a 32  |.KK;"M"..lV  ..2|
00001250  2c 31 35 29 3b 22 44 22  3b 55 55 24 3b 22 42 75  |,15);"D";UU$;"Bu|
00001260  69 6c 64 20 4e 65 77 20  53 63 68 6f 6f 6c 73 20  |ild New Schools |
00001270  20 20 20 20 20 20 20 22  3b 52 52 24 3b 22 3a 60  |       ";RR$;":`|
00001280  20 20 20 20 20 20 22 3b  8a a4 4b 28 4c 4c 29 2d  |      ";..K(LL)-|
00001290  31 2c 31 35 29 3b a8 4c  4c 3b 22 4d 22 0d 11 76  |1,15);.LL;"M"..v|
000012a0  5a 20 f1 8a 32 2c 31 36  29 3b 22 45 22 3b 55 55  |Z ..2,16);"E";UU|
000012b0  24 3b 22 49 6d 70 72 6f  76 65 20 52 6f 61 64 20  |$;"Improve Road |
000012c0  53 79 73 74 65 6d 20 20  20 20 20 20 22 3b 52 52  |System      ";RR|
000012d0  24 3b 22 3a 60 20 20 20  20 20 20 22 3b 8a a4 4b  |$;":`      ";..K|
000012e0  28 4d 4d 29 2d 31 2c 31  36 29 3b a8 4d 4d 3b 22  |(MM)-1,16);.MM;"|
000012f0  4d 22 20 20 20 20 20 0d  11 80 24 20 f1 8a 32 2c  |M"     ...$ ..2,|
00001300  31 38 29 3b 22 46 22 3b  56 56 24 3b 22 57 68 65  |18);"F";VV$;"Whe|
00001310  6e 20 66 69 6e 69 73 68  65 64 22 0d 11 85 1a 20  |n finished".... |
00001320  20 f1 8a 30 2c 32 30 29  3b 51 51 24 3b c4 33 39  | ..0,20);QQ$;.39|
00001330  2c bd 34 34 29 0d 11 8a  45 20 20 20 f1 8a 30 2c  |,.44)...E   ..0,|
00001340  32 31 29 3b 55 55 24 3b  4e 4e 24 3b 56 56 24 3b  |21);UU$;NN$;VV$;|
00001350  50 50 24 3b 22 45 6e 74  65 72 20 50 52 45 46 49  |PP$;"Enter PREFI|
00001360  58 20 6f 66 20 72 65 66  6f 72 6d 20 74 6f 20 63  |X of reform to c|
00001370  68 61 6e 67 65 20 20 22  20 20 0d 11 94 07 e8 4b  |hange  "  .....K|
00001380  24 0d 11 9e 11 e7 4b 24  3d 22 46 22 8c 8d 64 77  |$.....K$="F"..dw|
00001390  51 20 0d 11 a8 37 20 20  20 20 20 20 20 20 20 20  |Q ...7          |
000013a0  20 20 20 e7 20 4b 24 3c  22 41 22 84 4b 24 3e 22  |   . K$<"A".K$>"|
000013b0  46 22 f1 bd 28 37 29 3b  8a 30 2c 32 32 29 89 28  |F"..(7);.0,22).(|
000013c0  31 38 29 3a e5 8d 74 4a  51 0d 11 b2 48 20 20 20  |18):..tJQ...H   |
000013d0  f1 8a 30 2c 32 31 29 89  28 34 30 29 3b 8a 32 2c  |..0,21).(40);.2,|
000013e0  32 31 29 3b 55 55 24 3b  50 50 24 3b 22 45 6e 74  |21);UU$;PP$;"Ent|
000013f0  65 72 20 41 4d 4f 55 4e  54 20 79 6f 75 20 77 69  |er AMOUNT you wi|
00001400  73 68 20 74 6f 20 61 6c  6c 6f 63 61 74 65 22 20  |sh to allocate" |
00001410  20 0d 11 bc 1d f1 8a 30  2c 32 32 29 22 20 20 20  | ......0,22)"   |
00001420  20 20 20 20 20 22 3b 8a  30 2c 32 31 29 20 0d 11  |     ";.0,21) ..|
00001430  c6 15 e7 4b 24 3d 22 41  22 e8 49 49 3a 49 49 3d  |...K$="A".II:II=|
00001440  94 49 49 0d 11 d0 15 e7  4b 24 3d 22 42 22 e8 4a  |.II.....K$="B".J|
00001450  4a 3a 4a 4a 3d 94 4a 4a  0d 11 da 15 e7 4b 24 3d  |J:JJ=.JJ.....K$=|
00001460  22 43 22 e8 4b 4b 3a 4b  4b 3d 94 4b 4b 0d 11 e4  |"C".KK:KK=.KK...|
00001470  15 e7 4b 24 3d 22 44 22  e8 4c 4c 3a 4c 4c 3d 94  |..K$="D".LL:LL=.|
00001480  4c 4c 0d 11 ee 15 e7 4b  24 3d 22 45 22 e8 4d 4d  |LL.....K$="E".MM|
00001490  3a 4d 4d 3d 94 4d 4d 0d  11 f3 15 f1 8a 30 2c 32  |:MM=.MM......0,2|
000014a0  32 29 22 20 20 20 20 20  20 20 20 22 0d 11 f5 09  |2)"        "....|
000014b0  e5 8d 54 7a 51 0d 11 f7  19 f1 8a 33 32 2c 31 37  |..TzQ......32,17|
000014c0  29 3b 22 5f 5f 5f 5f 5f  5f 5f 5f 22 20 20 0d 11  |);"________"  ..|
000014d0  f8 11 f1 8a 30 2c 31 38  29 3b 89 28 33 39 29 0d  |....0,18);.(39).|
000014e0  12 02 15 58 5a 3d 49 49  2b 4a 4a 2b 4b 4b 2b 4c  |...XZ=II+JJ+KK+L|
000014f0  4c 2b 4d 4d 0d 12 0c 26  f1 8a 33 32 2c 31 38 29  |L+MM...&..32,18)|
00001500  3b 22 60 22 3b 8a a4 4b  28 58 5a 29 2d 31 2c 31  |;"`";..K(XZ)-1,1|
00001510  38 29 3b 58 5a 3b 22 4d  22 20 0d 12 11 11 20 f2  |8);XZ;"M" .... .|
00001520  54 49 4d 45 52 28 2e 31  32 35 29 0d 12 13 19 f1  |TIMER(.125).....|
00001530  8a 30 2c 32 32 29 3b 22  20 20 20 20 20 22 3a f2  |.0,22);"     ":.|
00001540  43 4c 52 20 0d 12 16 1b  4a 3d b3 28 35 29 3a 4b  |CLR ....J=.(5):K|
00001550  3d b3 28 34 29 3a 46 3d  46 2b 28 46 2a 49 29 0d  |=.(4):F=F+(F*I).|
00001560  12 20 1f e7 58 5a 3e 28  32 30 30 2a 4b 29 80 50  |. ..XZ>(200*K).P|
00001570  4f 3c 31 30 20 50 4f 3d  50 4f 2b 31 30 20 0d 12  |O<10 PO=PO+10 ..|
00001580  25 0a e7 53 3d 33 20 e1  0d 12 2a 50 e7 20 4a 3d  |%..S=3 ...*P. J=|
00001590  31 20 80 20 49 49 3e 28  4b 2a 46 29 84 4a 3d 32  |1 . II>(K*F).J=2|
000015a0  80 4a 4a 3e 28 4b 2a 46  29 84 4a 3d 33 80 4b 4b  |.JJ>(K*F).J=3.KK|
000015b0  3e 28 4b 2a 46 29 84 4a  3d 34 80 4c 4c 3e 28 4b  |>(K*F).J=4.LL>(K|
000015c0  2a 46 29 84 4a 3d 35 80  4d 4d 3e 28 4b 2a 46 29  |*F).J=5.MM>(K*F)|
000015d0  20 8c 20 e5 8d 44 5c 52  0d 12 5b 05 e1 0d 12 5c  | . ..D\R..[....\|
000015e0  31 20 4f 24 3d 22 20 20  20 41 20 53 6f 63 69 61  |1 O$="   A Socia|
000015f0  6c 20 52 65 66 6f 72 6d  20 68 61 73 20 62 65 65  |l Reform has bee|
00001600  6e 20 72 65 63 6f 67 6e  69 73 65 64 20 22 0d 12  |n recognised "..|
00001610  5e 24 e3 58 3d 31 b8 35  3a 5a 3d b3 28 32 29 3a  |^$.X=1.5:Z=.(2):|
00001620  5a 3d 5a 2d 31 3a d4 30  2c 2d 31 35 2c 5a 2c 37  |Z=Z-1:.0,-15,Z,7|
00001630  3a ed 0d 12 61 0b e3 58  31 3d 31 b8 35 0d 12 66  |:...a..X1=1.5..f|
00001640  0b e3 58 3d 38 b8 32 32  0d 12 70 20 20 20 20 20  |..X=8.22..p     |
00001650  20 20 20 20 20 20 f1 8a  30 2c 58 29 3b 56 56 24  |      ..0,X);VV$|
00001660  3b 4f 24 3a ed 58 20 20  0d 12 7a 0b e3 58 3d 38  |;O$:.X  ..z..X=8|
00001670  b8 32 32 0d 12 84 19 20  20 20 20 20 f1 8a 30 2c  |.22....     ..0,|
00001680  58 29 3b 52 52 24 3b 4f  24 3a ed 58 0d 12 8e 07  |X);RR$;O$:.X....|
00001690  ed 58 31 0d 12 93 14 20  f2 43 4c 52 3a e7 53 3c  |.X1.... .CLR:.S<|
000016a0  33 53 3d 53 2b 31 20 0d  12 bf 05 e1 0d 13 88 0e  |3S=S+1 .........|
000016b0  dd f2 45 4c 45 43 54 49  4f 4e 0d 13 8d 0a 51 3d  |..ELECTION....Q=|
000016c0  b3 28 32 29 0d 13 8e 0f  e7 41 57 4c 3d 31 e5 8d  |.(2).....AWL=1..|
000016d0  74 50 53 0d 13 8f 35 e7  49 3e 2e 31 31 2b 28 4a  |tPS...5.I>.11+(J|
000016e0  2f 31 30 30 29 20 84 20  55 3e 31 2e 34 2b 28 4a  |/100) . U>1.4+(J|
000016f0  2f 31 30 29 20 84 20 57  41 4c 3c 32 20 84 20 4f  |/10) . WAL<2 . O|
00001700  4f 3d 33 20 f2 57 4b 45  0d 13 90 08 4f 4f 3d 31  |O=3 .WKE....OO=1|
00001710  0d 13 91 26 e3 58 3d 31  b8 32 30 3a 5a 3d b3 28  |...&.X=1.20:Z=.(|
00001720  33 29 3a 5a 3d 5a 2d 31  3a d4 30 2c 2d 31 35 2c  |3):Z=Z-1:.0,-15,|
00001730  5a 2c 35 3a ed 20 0d 13  92 3e f2 43 4c 52 3a f1  |Z,5:. ...>.CLR:.|
00001740  8a 30 2c 35 29 3b 51 51  24 3b 22 73 73 73 73 73  |.0,5);QQ$;"sssss|
00001750  73 73 73 73 73 73 73 73  73 73 73 73 73 73 73 73  |ssssssssssssssss|
*
00001770  73 73 22 20 0d 13 9c 47  20 20 e3 49 25 3d 33 b8  |ss" ...G  .I%=3.|
00001780  34 3a f1 8a 31 2c 49 25  29 3b 5a 24 3b 22 54 45  |4:..1,I%);Z$;"TE|
00001790  52 4d 3a 22 3b 54 3b 22  20 20 20 20 20 20 45 4c  |RM:";T;"      EL|
000017a0  45 43 54 49 4f 4e 20 4e  49 47 48 54 20 20 20 20  |ECTION NIGHT    |
000017b0  20 59 45 41 52 3a 22 3b  59 3a ed 0d 13 a6 48 e3  | YEAR:";Y:....H.|
000017c0  49 25 3d 36 b8 37 3a f1  8a 30 2c 49 25 29 3b 59  |I%=6.7:..0,I%);Y|
000017d0  24 3b 5a 24 3b 22 50 45  52 43 45 4e 54 20 20 20  |$;Z$;"PERCENT   |
000017e0  20 20 20 20 20 20 20 50  41 52 54 59 20 20 20 20  |       PARTY    |
000017f0  20 20 20 20 20 53 45 41  54 53 20 20 20 22 3a ed  |     SEATS   ":.|
00001800  20 20 20 0d 13 b0 44 e3  58 3d 38 b8 32 30 88 33  |   ...D.X=8.20.3|
00001810  3a f1 8a 30 2c 58 29 3b  51 51 24 3b 22 2c 2c 2c  |:..0,X);QQ$;",,,|
00001820  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
*
00001840  2c 2c 2c 2c 22 3a ed 0d  13 ba 23 20 e3 49 25 3d  |,,,,":....# .I%=|
00001850  39 b8 31 30 3a f1 8a 31  32 2c 49 25 29 3b 5a 24  |9.10:..12,I%);Z$|
00001860  3b 4d 31 24 3b 52 52 24  3a ed 0d 13 ce 24 20 e3  |;M1$;RR$:....$ .|
00001870  49 25 3d 31 32 b8 31 33  3a f1 8a 31 32 2c 49 25  |I%=12.13:..12,I%|
00001880  29 3b 5a 24 3b 4d 32 24  3b 52 52 24 3a ed 0d 13  |);Z$;M2$;RR$:...|
00001890  e2 26 20 e3 49 25 3d 31  35 b8 31 36 3a f1 8a 31  |.& .I%=15.16:..1|
000018a0  32 2c 49 25 29 3b 5a 24  3b 4d 33 24 3b 52 52 24  |2,I%);Z$;M3$;RR$|
000018b0  3a ed 20 20 0d 13 ec 25  20 e3 49 25 3d 31 38 b8  |:.  ...% .I%=18.|
000018c0  31 39 3a f1 8a 31 32 2c  49 25 29 3b 5a 24 3b 4d  |19:..12,I%);Z$;M|
000018d0  34 24 3b 52 52 24 3a ed  20 0d 13 f6 17 47 31 3d  |4$;RR$:. ....G1=|
000018e0  30 3a 47 32 3d 30 3a 47  33 3d 30 3a 47 34 3d 30  |0:G2=0:G3=0:G4=0|
000018f0  0d 14 00 12 57 31 3d 33  30 30 2a 28 50 2f 31 30  |....W1=300*(P/10|
00001900  30 29 0d 14 02 11 e7 57  31 3e 33 30 30 57 31 3d  |0).....W1>300W1=|
00001910  33 30 30 0d 14 05 0d 57  32 3d 33 30 30 2d 57 31  |300....W2=300-W1|
00001920  0d 14 0a 09 f2 53 45 41  54 0d 14 14 21 e7 49 3c  |.....SEAT...!.I<|
00001930  2e 31 32 57 31 3d a8 28  35 30 2a 28 28 2e 31 31  |.12W1=.(50*((.11|
00001940  2d 49 29 2f 2e 31 30 29  29 20 0d 14 1e 0e e7 49  |-I)/.10)) .....I|
00001950  3e 2e 31 31 57 31 3d 30  0d 14 28 0e 57 32 3d 35  |>.11W1=0..(.W2=5|
00001960  30 2d 57 31 20 20 0d 14  32 09 f2 53 45 41 54 0d  |0-W1  ..2..SEAT.|
00001970  14 3c 1d e7 55 3c 32 2e  31 57 31 3d a8 28 31 30  |.<..U<2.1W1=.(10|
00001980  30 2a 28 28 32 2d 55 29  2f 32 29 29 0d 14 46 0c  |0*((2-U)/2))..F.|
00001990  e7 55 3e 32 57 31 3d 30  0d 14 50 13 57 32 3d 31  |.U>2W1=0..P.W2=1|
000019a0  30 30 2d 57 31 3a f2 53  45 41 54 0d 14 5a 0b 57  |00-W1:.SEAT..Z.W|
000019b0  31 3d 53 2a 35 30 0d 14  64 13 57 32 3d 31 35 30  |1=S*50..d.W2=150|
000019c0  2d 57 31 3a f2 53 45 41  54 0d 14 6e 0e e7 45 3c  |-W1:.SEAT..n..E<|
000019d0  31 2e 35 57 31 3d 30 0d  14 78 1c e7 45 3e 31 2e  |1.5W1=0..x..E>1.|
000019e0  35 57 31 3d a8 28 94 28  31 2e 35 2d 45 29 2a 31  |5W1=.(.(1.5-E)*1|
000019f0  30 30 29 0d 14 82 0f e7  45 3e 32 2e 31 57 31 3d  |00).....E>2.1W1=|
00001a00  35 30 0d 14 8c 12 57 32  3d 35 30 2d 57 31 3a f2  |50....W2=50-W1:.|
00001a10  53 45 41 54 0d 14 91 0c  f2 52 45 45 4c 45 43 54  |SEAT.....REELECT|
00001a20  0d 14 96 05 e1 0d 14 b4  0a dd f2 53 45 41 54 0d  |...........SEAT.|
00001a30  14 b9 06 ea 58 0d 14 be  0b e3 58 3d 31 b8 57 32  |....X.....X=1.W2|
00001a40  0d 14 c8 0c 51 45 3d b3  28 31 30 29 0d 14 d2 17  |....QE=.(10)....|
00001a50  20 20 20 e7 51 45 3c 38  80 51 3d 31 47 31 3d 47  |   .QE<8.Q=1G1=G|
00001a60  31 2b 31 0d 14 d7 17 20  20 20 e7 51 45 3c 38 80  |1+1....   .QE<8.|
00001a70  51 3d 32 47 32 3d 47 32  2b 31 0d 14 dc 1e 20 20  |Q=2G2=G2+1....  |
00001a80  20 e7 51 45 3e 37 80 51  45 3c 31 30 80 51 3d 31  | .QE>7.QE<10.Q=1|
00001a90  47 32 3d 47 32 2b 31 20  0d 14 e1 1c e7 51 45 3e  |G2=G2+1 .....QE>|
00001aa0  37 80 51 45 3c 31 30 80  51 3d 32 20 47 31 3d 47  |7.QE<10.Q=2 G1=G|
00001ab0  31 2b 31 20 0d 14 e6 13  e7 51 45 3d 31 30 47 33  |1+1 .....QE=10G3|
00001ac0  3d 47 33 2b 31 20 20 0d  14 f0 08 f2 54 4f 54 0d  |=G3+1  .....TOT.|
00001ad0  14 fa 06 ed 58 0d 15 04  0b e3 58 3d 31 b8 57 31  |....X.....X=1.W1|
00001ae0  0d 15 0e 0b 47 34 3d 47  34 2b 31 0d 15 18 08 f2  |....G4=G4+1.....|
00001af0  54 4f 54 0d 15 22 06 ed  58 0d 15 2c 05 e1 0d 15  |TOT.."..X..,....|
00001b00  72 09 dd f2 54 4f 54 0d  15 7c 23 20 20 e3 49 25  |r...TOT..|#  .I%|
00001b10  3d 39 b8 31 30 3a f1 8a  a4 4b 28 47 34 29 2d 32  |=9.10:...K(G4)-2|
00001b20  2c 49 25 29 3b 47 34 3a  ed 20 0d 15 86 23 20 e3  |,I%);G4:. ...# .|
00001b30  49 25 3d 31 32 b8 31 33  3a f1 8a a4 4b 28 47 33  |I%=12.13:...K(G3|
00001b40  29 2d 32 2c 49 25 29 3b  47 33 3a ed 20 0d 15 90  |)-2,I%);G3:. ...|
00001b50  25 20 e3 49 25 3d 31 35  b8 31 36 3a f1 8a a4 4b  |% .I%=15.16:...K|
00001b60  28 47 32 29 2d 32 2c 49  25 29 3b 47 32 3a ed 20  |(G2)-2,I%);G2:. |
00001b70  20 20 0d 15 9a 23 20 e3  49 25 3d 31 38 b8 31 39  |  ...# .I%=18.19|
00001b80  3a f1 8a a4 4b 28 47 31  29 2d 32 2c 49 25 29 3b  |:...K(G1)-2,I%);|
00001b90  47 31 3a ed 20 0d 15 a4  23 20 20 e7 20 47 31 2b  |G1:. ...#  . G1+|
00001ba0  47 32 2b 47 33 2b 47 34  3e 35 35 30 8c f2 50 45  |G2+G3+G4>550..PE|
00001bb0  52 43 45 4e 54 20 20 20  0d 15 ae 05 e1 0d 15 e0  |RCENT   ........|
00001bc0  0d dd f2 52 45 45 4c 45  43 54 0d 15 ea 12 47 35  |...REELECT....G5|
00001bd0  3d 47 31 2b 47 32 2b 47  33 2b 47 34 0d 16 12 22  |=G1+G2+G3+G4..."|
00001be0  20 e7 47 31 3e 28 47 35  2f 32 29 8c 4c 4f 24 3d  | .G1>(G5/2).LO$=|
00001bf0  4d 34 24 3a 4e 3d 31 38  3a f2 4c 4f 53 45 0d 16  |M4$:N=18:.LOSE..|
00001c00  14 22 20 e7 47 32 3e 28  47 35 2f 32 29 8c 4c 4f  |." .G2>(G5/2).LO|
00001c10  24 3d 4d 33 24 3a 4e 3d  31 35 3a f2 4c 4f 53 45  |$=M3$:N=15:.LOSE|
00001c20  0d 16 16 25 20 e7 47 33  3e 28 47 35 2f 32 29 8c  |...% .G3>(G5/2).|
00001c30  4c 4f 24 3d 4d 32 24 3a  4e 3d 31 32 3a f2 4c 4f  |LO$=M2$:N=12:.LO|
00001c40  53 45 20 20 20 0d 16 1c  18 e7 47 34 3e 28 47 35  |SE   .....G4>(G5|
00001c50  2f 32 29 f2 57 49 4e 3a  e5 8d 54 6c 41 0d 16 26  |/2).WIN:..TlA..&|
00001c60  35 20 20 20 e7 47 31 2b  47 32 3e 47 35 2f 32 20  |5   .G1+G2>G5/2 |
00001c70  4c 4f 24 3d 4d 34 24 3a  4c 50 24 3d 4d 33 24 3a  |LO$=M4$:LP$=M3$:|
00001c80  4e 3d 31 38 3a 4f 3d 31  35 3a f2 43 4f 41 4c 20  |N=18:O=15:.COAL |
00001c90  20 20 0d 16 30 33 20 20  20 e7 47 31 2b 47 33 3e  |  ..03   .G1+G3>|
00001ca0  47 35 2f 32 20 4c 4f 24  3d 4d 34 24 3a 4c 50 24  |G5/2 LO$=M4$:LP$|
00001cb0  3d 4d 32 24 3a 4e 3d 31  38 3a 4f 3d 31 32 3a f2  |=M2$:N=18:O=12:.|
00001cc0  43 4f 41 4c 20 0d 16 3a  33 20 20 20 e7 47 32 2b  |COAL ..:3   .G2+|
00001cd0  47 33 3e 47 35 2f 32 20  4c 4f 24 3d 4d 33 24 3a  |G3>G5/2 LO$=M3$:|
00001ce0  4c 50 24 3d 4d 32 24 3a  4e 3d 31 35 3a 4f 3d 31  |LP$=M2$:N=15:O=1|
00001cf0  32 3a f2 43 4f 41 4c 20  0d 16 3c 0e 20 20 f2 4e  |2:.COAL ..<.  .N|
00001d00  4f 47 4f 56 3a e1 0d 16  3f 10 f2 57 49 4e 3a e5  |OGOV:...?..WIN:.|
00001d10  8d 54 6c 41 20 20 0d 16  43 05 e1 0d 16 44 0a dd  |.TlA  ..C....D..|
00001d20  f2 43 4f 41 4c 0d 16 4e  3c 20 20 20 e3 49 25 3d  |.COAL..N<   .I%=|
00001d30  33 20 b8 20 34 3a f1 8a  39 2c 49 25 29 3b 5a 24  |3 . 4:..9,I%);Z$|
00001d40  3b 50 50 24 3b 22 20 20  20 20 20 20 43 4f 41 4c  |;PP$;"      COAL|
00001d50  49 54 49 4f 4e 20 20 20  20 22 3b 4f 4f 24 3a ed  |ITION    ";OO$:.|
00001d60  20 0d 16 58 3d 20 20 20  e3 49 25 3d 4e 20 b8 20  | ..X=   .I%=N . |
00001d70  4e 2b 31 3a f1 8a 31 31  2c 49 25 29 3b 50 50 24  |N+1:..11,I%);PP$|
00001d80  3a ed 3a e3 49 25 3d 4f  20 b8 20 4f 2b 31 3a f1  |:.:.I%=O . O+1:.|
00001d90  8a 31 31 2c 49 25 29 3b  50 50 24 3a ed 20 0d 16  |.11,I%);PP$:. ..|
00001da0  62 20 e3 58 3d 31 b8 31  30 3a 5a 3d b3 28 32 29  |b .X=1.10:Z=.(2)|
00001db0  3a d4 30 2c 2d 31 35 2c  5a 2c 35 3a ed 20 0d 16  |:.0,-15,Z,5:. ..|
00001dc0  9e 18 20 20 f2 54 49 4d  45 52 28 31 29 3a f2 53  |..  .TIMER(1):.S|
00001dd0  50 41 43 45 3a f9 0d 16  a7 05 e1 0d 16 a8 0b dd  |PACE:...........|
00001de0  f2 4e 4f 47 4f 56 0d 16  b2 7c 20 f1 8a 30 2c 31  |.NOGOV...| ..0,1|
00001df0  38 29 3b 89 31 36 30 3b  8a 35 2c 31 39 29 3b 59  |8);.160;.5,19);Y|
00001e00  59 24 3b 22 4e 6f 20 67  6f 76 65 72 6e 6d 65 6e  |Y$;"No governmen|
00001e10  74 20 63 61 6e 20 62 65  20 66 6f 72 6d 65 64 22  |t can be formed"|
00001e20  3b 8a 32 2c 32 30 29 3b  53 53 24 3b 50 50 24 3b  |;.2,20);SS$;PP$;|
00001e30  22 54 48 45 52 45 20 4d  55 53 54 20 42 45 20 41  |"THERE MUST BE A|
00001e40  20 46 55 54 48 45 52 20  45 4c 45 43 54 49 4f 4e  | FUTHER ELECTION|
00001e50  22 3a d4 30 2c 2d 31 35  2c 32 2c 32 30 3a 4f 4f  |":.0,-15,2,20:OO|
00001e60  3d 33 0d 16 bc 24 f2 53  50 41 43 45 3a db 3a f2  |=3...$.SPACE:.:.|
00001e70  53 45 54 55 50 3a f2 52  45 53 3a f2 45 4c 45 43  |SETUP:.RES:.ELEC|
00001e80  54 49 4f 4e 3a e1 0d 17  70 0a dd f2 4c 4f 53 45  |TION:...p...LOSE|
00001e90  0d 17 7a 1f 20 e3 49 25  3d 4e 20 b8 20 4e 2b 31  |..z. .I%=N . N+1|
00001ea0  3a f1 8a 31 31 2c 49 25  29 3b 50 50 24 3a ed 0d  |:..11,I%);PP$:..|
00001eb0  17 84 3d 20 20 20 e3 49  25 3d 33 20 b8 20 34 3a  |..=   .I%=3 . 4:|
00001ec0  f1 8a 39 2c 49 25 29 3b  5a 24 3b 50 50 24 3b 22  |..9,I%);Z$;PP$;"|
00001ed0  20 20 20 20 52 20 45 20  53 20 55 20 4c 20 54 20  |    R E S U L T |
00001ee0  20 20 20 20 20 22 3b 4f  4f 24 3a ed 0d 17 8e 20  |     ";OO$:.... |
00001ef0  20 e3 58 3d 31 b8 31 30  3a 5a 3d b3 28 32 29 3a  | .X=1.10:Z=.(2):|
00001f00  d4 30 2c 2d 31 35 2c 5a  2c 35 3a ed 0d 17 98 0e  |.0,-15,Z,5:.....|
00001f10  f2 53 50 41 43 45 3a f9  3a e1 0d 19 64 0d dd f2  |.SPACE:.:...d...|
00001f20  50 45 52 43 45 4e 54 0d  19 6e 1b 47 35 3d 47 34  |PERCENT..n.G5=G4|
00001f30  2f 28 47 31 2b 47 32 2b  47 33 2b 47 34 29 2a 31  |/(G1+G2+G3+G4)*1|
00001f40  30 30 0d 19 73 1b 47 36  3d 47 31 2f 28 47 31 2b  |00..s.G6=G1/(G1+|
00001f50  47 32 2b 47 33 2b 47 34  29 2a 31 30 30 0d 19 78  |G2+G3+G4)*100..x|
00001f60  1c 47 37 3d 47 32 2f 28  47 31 2b 47 32 2b 47 33  |.G7=G2/(G1+G2+G3|
00001f70  2b 47 34 29 2a 31 30 30  20 0d 19 7d 1b 47 38 3d  |+G4)*100 ..}.G8=|
00001f80  47 33 2f 28 47 31 2b 47  32 2b 47 33 2b 47 34 29  |G3/(G1+G2+G3+G4)|
00001f90  2a 31 30 30 0d 19 82 2d  20 20 e3 49 25 3d 39 b8  |*100...-  .I%=9.|
00001fa0  31 30 3a f1 8a a4 4b 28  47 35 29 2d 33 34 2c 49  |10:...K(G5)-34,I|
00001fb0  25 29 3b 5a 24 3b a8 47  35 3b 22 20 20 22 3a ed  |%);Z$;.G5;"  ":.|
00001fc0  20 0d 19 8c 2e 20 20 e3  49 25 3d 31 32 b8 31 33  | ....  .I%=12.13|
00001fd0  3a f1 8a a4 4b 28 47 38  29 2d 33 34 2c 49 25 29  |:...K(G8)-34,I%)|
00001fe0  3b 5a 24 3b a8 47 38 3b  22 20 20 22 3a ed 20 0d  |;Z$;.G8;"  ":. .|
00001ff0  19 96 2f 20 20 e3 49 25  3d 31 35 b8 31 36 3a f1  |../  .I%=15.16:.|
00002000  8a a4 4b 28 47 37 29 2d  33 34 2c 49 25 29 3b 5a  |..K(G7)-34,I%);Z|
00002010  24 3b a8 47 37 3b 22 20  20 22 3a ed 20 20 0d 19  |$;.G7;"  ":.  ..|
00002020  a0 30 20 20 e3 49 25 3d  31 38 b8 31 39 3a f1 8a  |.0  .I%=18.19:..|
00002030  a4 4b 28 47 36 29 2d 33  34 2c 49 25 29 3b 5a 24  |.K(G6)-34,I%);Z$|
00002040  3b a8 47 36 3b 22 20 20  22 3a ed 20 20 20 0d 1b  |;.G6;"  ":.   ..|
00002050  57 05 e1 0d 1b 58 0a dd  f2 57 49 4e 20 0d 1b 5d  |W....X...WIN ..]|
00002060  3e 20 20 20 e3 49 25 3d  33 20 b8 20 34 3a f1 8a  |>   .I%=3 . 4:..|
00002070  39 2c 49 25 29 3b 5a 24  3b 50 50 24 3b 22 20 20  |9,I%);Z$;PP$;"  |
00002080  20 20 52 20 45 20 53 20  55 20 4c 20 54 20 20 20  |  R E S U L T   |
00002090  20 20 20 22 3b 4f 4f 24  3a ed 20 0d 1b 62 24 20  |   ";OO$:. ..b$ |
000020a0  54 3d 54 2b 31 3a 53 3d  30 3a 50 4f 3d 30 3a 59  |T=T+1:S=0:PO=0:Y|
000020b0  3d 31 3a 57 41 4c 3d 32  3a 41 57 4c 3d 30 20 0d  |=1:WAL=2:AWL=0 .|
000020c0  1b 6c 1e e3 49 25 3d 39  20 b8 20 31 30 3a f1 8a  |.l..I%=9 . 10:..|
000020d0  31 31 2c 49 25 29 3b 50  50 24 3a ed 20 0d 1b 70  |11,I%);PP$:. ..p|
000020e0  28 20 20 e3 58 3d 31 b8  33 30 3a 5a 3d b3 28 32  |(  .X=1.30:Z=.(2|
000020f0  29 3a 5a 3d 5a 2d 31 3a  d4 30 2c 2d 31 35 2c 5a  |):Z=Z-1:.0,-15,Z|
00002100  2c 35 3a ed 20 0d 1b 71  32 20 20 4f 24 3d 22 3e  |,5:. ..q2  O$=">|
00002110  3e 3e 3e 20 45 20 4c 20  45 20 43 20 54 20 45 20  |>>> E L E C T E |
00002120  44 20 20 45 20 4c 20 45  20 43 20 54 20 45 20 44  |D  E L E C T E D|
00002130  20 3c 3c 3c 3c 20 22 0d  1b 76 38 e7 47 34 3e 34  | <<<< "..v8.G4>4|
00002140  38 30 20 4f 24 3d 22 2a  2a 20 4c 20 41 20 4e 20  |80 O$="** L A N |
00002150  44 20 53 20 4c 20 49 20  44 20 45 20 20 56 20 49  |D S L I D E  V I|
00002160  20 43 20 54 20 4f 20 52  20 59 20 2a 2a 20 22 0d  | C T O R Y ** ".|
00002170  1b 80 46 e3 58 31 3d 31  b8 31 30 3a e3 58 3d 33  |..F.X1=1.10:.X=3|
00002180  b8 32 30 3a f1 8a 30 2c  58 29 3b 57 57 24 3b 4f  |.20:..0,X);WW$;O|
00002190  24 3a ed 58 3a e3 58 32  3d 33 b8 32 30 3a f1 8a  |$:.X:.X2=3.20:..|
000021a0  30 2c 58 32 29 3b 52 52  24 3b 4f 24 3a ed 58 32  |0,X2);RR$;O$:.X2|
000021b0  3a ed 58 31 20 0d 1b b2  1d 20 20 f2 53 50 41 43  |:.X1 ....  .SPAC|
000021c0  45 3a f2 51 55 45 53 54  42 3a e5 8d 54 6c 41 3a  |E:.QUESTB:..TlA:|
000021d0  e1 20 0d 1f 3f 05 fa 0d  1f 40 0e dd f2 54 49 4d  |. ..?....@...TIM|
000021e0  45 52 28 58 29 0d 1f 4a  06 ea 5a 0d 1f 4f 07 5a  |ER(X)..J..Z..O.Z|
000021f0  3d 91 0d 1f 54 10 f5 fd  91 2d 5a 3e 58 2a 31 30  |=...T....-Z>X*10|
00002200  30 30 0d 1f 5e 05 e1 0d  1f 68 0b dd f2 50 41 52  |00..^....h...PAR|
00002210  54 59 0d 1f 72 1b 4c 31  24 3d 22 84 20 20 43 6f  |TY..r.L1$=".  Co|
00002220  6e 73 65 72 76 61 74 69  76 65 20 20 22 0d 1f 7c  |nservative  "..||
00002230  18 4c 32 24 3d 22 81 20  20 20 20 4c 61 62 6f 75  |.L2$=".    Labou|
00002240  72 20 20 20 22 0d 1f 86  19 4c 33 24 3d 22 20 20  |r   "....L3$="  |
00002250  20 20 83 4c 69 62 65 72  61 6c 20 20 20 22 0d 1f  |  .Liberal   "..|
00002260  90 1a 4c 34 24 3d 22 86  53 6f 63 69 61 6c 85 44  |..L4$=".Social.D|
00002270  65 6d 6f 63 72 61 74 22  0d 1f 9a 05 e1 0d 23 28  |emocrat"......#(|
00002280  0b dd f2 53 45 54 55 50  0d 23 2d 1d 20 20 41 3d  |...SETUP.#-.  A=|
00002290  a8 28 34 30 2d 28 31 30  2b a9 41 24 29 29 3a 41  |.(40-(10+.A$)):A|
000022a0  3d 41 2f 32 20 0d 23 32  05 db 0d 23 41 32 20 20  |=A/2 .#2...#A2  |
000022b0  20 20 20 e3 49 25 3d 30  b8 31 3a f1 8a 41 2c 49  |   .I%=0.1:..A,I|
000022c0  25 29 3b 5a 24 3b 22 52  54 20 48 4f 4e 20 22 3b  |%);Z$;"RT HON ";|
000022d0  41 24 3b 22 20 50 4d 22  3b 3a ed 20 0d 23 43 39  |A$;" PM";:. .#C9|
000022e0  20 f1 8a 30 2c 32 29 3b  51 51 24 3b 22 73 73 73  | ..0,2);QQ$;"sss|
000022f0  73 73 73 73 73 73 73 73  73 73 73 73 73 73 73 73  |ssssssssssssssss|
*
00002310  73 73 73 73 22 0d 23 46  39 20 f1 8a 35 2c 33 29  |ssss".#F9 ..5,3)|
00002320  3b 55 55 24 3b 22 54 65  72 6d 22 3b 52 52 24 3b  |;UU$;"Term";RR$;|
00002330  22 3a 22 3b 8a 32 35 2c  33 29 3b 55 55 24 3b 22  |":";.25,3);UU$;"|
00002340  59 65 61 72 22 3b 52 52  24 3b 22 3a 22 20 0d 23  |Year";RR$;":" .#|
00002350  50 45 20 f1 8a 30 2c 34  29 3b 55 55 24 3b 22 49  |PE ..0,4);UU$;"I|
00002360  6e 66 6c 61 74 69 6f 6e  22 3b 52 52 24 3b 22 3a  |nflation";RR$;":|
00002370  22 3b 8a 31 37 2c 34 29  3b 55 55 24 3b 22 55 6e  |";.17,4);UU$;"Un|
00002380  65 6d 70 6c 6f 79 6d 65  6e 74 22 3b 52 52 24 3b  |employment";RR$;|
00002390  22 3a 22 0d 23 5a 44 20  f1 8a 32 2c 35 29 3b 55  |":".#ZD ..2,5);U|
000023a0  55 24 3b 22 52 65 66 6f  72 6d 73 22 3b 52 52 24  |U$;"Reforms";RR$|
000023b0  3b 22 3a 22 3b 8a 31 36  2c 35 29 3b 55 55 24 3b  |;":";.16,5);UU$;|
000023c0  22 45 78 63 68 61 6e 67  65 20 52 61 74 65 22 3b  |"Exchange Rate";|
000023d0  52 52 24 3b 22 3a 22 0d  23 5f 40 20 f1 8a 31 2c  |RR$;":".#_@ ..1,|
000023e0  36 29 3b 55 55 24 3b 22  50 6f 70 2e 52 74 6e 67  |6);UU$;"Pop.Rtng|
000023f0  22 3b 52 52 24 3b 22 3a  22 3b 8a 31 36 2c 36 29  |";RR$;":";.16,6)|
00002400  3b 55 55 24 3b 22 41 63  63 2e 42 61 6c 22 3b 52  |;UU$;"Acc.Bal";R|
00002410  52 24 3b 22 3a 60 22 0d  23 64 39 20 f1 8a 30 2c  |R$;":`".#d9 ..0,|
00002420  37 29 3b 51 51 24 3b 22  2c 2c 2c 2c 2c 2c 2c 2c  |7);QQ$;",,,,,,,,|
00002430  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00002440  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 22  |,,,,,,,,,,,,,,,"|
00002450  0d 23 ef 05 e1 0d 23 f0  0d dd f2 42 55 44 47 45  |.#....#....BUDGE|
00002460  54 41 0d 23 fa 39 20 20  20 20 20 20 20 e3 49 25  |TA.#.9       .I%|
00002470  3d 38 b8 39 3a f1 8a 31  30 2c 49 25 29 3b 5a 24  |=8.9:..10,I%);Z$|
00002480  3b 55 55 24 3b 22 42 55  44 47 45 54 20 44 41 59  |;UU$;"BUDGET DAY|
00002490  20 5d 54 41 58 45 53 5b  22 3a ed 0d 23 ff 24 f1  | ]TAXES[":..#.$.|
000024a0  8a 31 31 2c 31 30 29 3b  55 24 3b 22 2c 2c 2c 2c  |.11,10);U$;",,,,|
000024b0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 22 0d  |,,,,,,,,,,,,,,".|
000024c0  24 00 13 e7 49 58 3c 30  2e 30 31 20 49 58 3d 30  |$...IX<0.01 IX=0|
000024d0  20 20 0d 24 01 11 e7 43  58 3c 30 2e 30 31 20 43  |  .$...CX<0.01 C|
000024e0  58 3d 30 0d 24 02 11 e7  56 58 3c 30 2e 30 31 20  |X=0.$...VX<0.01 |
000024f0  56 58 3d 30 0d 24 04 58  20 20 20 20 f1 8a 38 2c  |VX=0.$.X    ..8,|
00002500  31 32 29 3b 22 41 22 3b  56 56 24 3b 22 49 6e 63  |12);"A";VV$;"Inc|
00002510  6f 6d 65 20 20 20 20 20  20 54 61 78 22 3b 52 52  |ome      Tax";RR|
00002520  24 3b 22 3a 20 20 20 20  20 20 20 20 20 20 22 3b  |$;":          ";|
00002530  8a a4 4b 28 49 58 2a 31  30 30 29 2d 39 2c 31 32  |..K(IX*100)-9,12|
00002540  29 3b 49 58 2a 31 30 30  3b 22 25 22 0d 24 0e 56  |);IX*100;"%".$.V|
00002550  20 20 f1 8a 38 2c 31 33  29 3b 22 42 22 3b 56 56  |  ..8,13);"B";VV|
00002560  24 3b 22 43 6f 72 70 6f  72 61 74 69 6f 6e 20 54  |$;"Corporation T|
00002570  61 78 22 3b 52 52 24 3b  22 3a 20 20 20 20 20 20  |ax";RR$;":      |
00002580  20 20 20 20 22 3b 8a a4  4b 28 43 58 2a 31 30 30  |    ";..K(CX*100|
00002590  29 2d 39 2c 31 33 29 3b  43 58 2a 31 30 30 3b 22  |)-9,13);CX*100;"|
000025a0  25 22 0d 24 18 5a 20 20  20 20 f1 8a 38 2c 31 34  |%".$.Z    ..8,14|
000025b0  29 3b 22 43 22 3b 56 56  24 3b 22 56 61 6c 75 65  |);"C";VV$;"Value|
000025c0  20 41 64 64 65 64 20 54  61 78 22 3b 52 52 24 3b  | Added Tax";RR$;|
000025d0  22 3a 20 20 20 20 20 20  20 20 20 20 22 3b 8a a4  |":          ";..|
000025e0  4b 28 56 58 2a 31 30 30  29 2d 39 2c 31 34 29 3b  |K(VX*100)-9,14);|
000025f0  56 58 2a 31 30 30 3b 22  25 22 20 20 0d 24 1d 11  |VX*100;"%"  .$..|
00002600  40 25 3d 26 30 30 30 32  30 32 30 41 20 0d 24 22  |@%=&0002020A .$"|
00002610  4b 20 20 f1 8a 38 2c 31  36 29 3b 22 44 22 3b 55  |K  ..8,16);"D";U|
00002620  55 24 3b 22 54 6f 62 61  63 63 6f 20 20 20 20 20  |U$;"Tobacco     |
00002630  54 61 78 22 3b 52 52 24  3b 22 3a 60 20 20 20 20  |Tax";RR$;":`    |
00002640  20 20 20 20 20 20 22 3b  8a a4 4b 28 54 58 29 2d  |      ";..K(TX)-|
00002650  39 2c 31 36 29 3b 54 58  0d 24 2c 4c 20 20 f1 8a  |9,16);TX.$,L  ..|
00002660  38 2c 31 37 29 3b 22 45  22 3b 55 55 24 3b 22 41  |8,17);"E";UU$;"A|
00002670  6c 63 6f 68 6f 6c 20 20  20 20 20 54 61 78 22 3b  |lcohol     Tax";|
00002680  52 52 24 3b 22 3a 60 20  20 20 20 20 20 20 20 20  |RR$;":`         |
00002690  20 22 3b 8a a4 4b 28 41  58 29 2d 39 2c 31 37 29  | ";..K(AX)-9,17)|
000026a0  3b 41 58 20 0d 24 36 51  20 20 f1 8a 38 2c 31 38  |;AX .$6Q  ..8,18|
000026b0  29 3b 22 46 22 3b 55 55  24 3b 22 50 65 74 72 6f  |);"F";UU$;"Petro|
000026c0  6c 65 75 6d 20 20 20 54  61 78 22 3b 52 52 24 3b  |leum   Tax";RR$;|
000026d0  22 3a 60 20 20 20 20 20  20 20 20 20 20 22 3b 8a  |":`          ";.|
000026e0  a4 4b 28 50 58 29 2d 39  2c 31 38 29 3b 50 58 20  |.K(PX)-9,18);PX |
000026f0  20 20 20 20 20 0d 24 3b  09 40 25 3d 31 30 0d 24  |     .$;.@%=10.$|
00002700  40 2b 20 20 20 20 20 f1  8a 38 2c 31 39 29 3b 22  |@+     ..8,19);"|
00002710  47 22 3b 56 56 24 3b 22  4e 6f 20 6d 6f 72 65 20  |G";VV$;"No more |
00002720  63 68 61 6e 67 65 73 22  20 0d 24 45 1a 20 f1 8a  |changes" .$E. ..|
00002730  30 2c 32 30 29 3b 51 51  24 3b c4 33 39 2c bd 34  |0,20);QQ$;.39,.4|
00002740  34 29 20 0d 24 4a 42 20  20 20 f1 8a 30 2c 32 31  |4) .$JB   ..0,21|
00002750  29 3b 55 55 24 3b 4e 4e  24 3b 56 56 24 3b 50 50  |);UU$;NN$;VV$;PP|
00002760  24 3b 22 20 20 20 20 45  6e 74 65 72 20 50 52 45  |$;"    Enter PRE|
00002770  46 49 58 20 6f 66 20 74  61 78 20 63 68 61 6e 67  |FIX of tax chang|
00002780  65 20 20 20 22 0d 24 54  07 e8 4b 24 0d 24 59 12  |e   ".$T..K$.$Y.|
00002790  e7 4b 24 3d 22 47 22 8c  8d 74 77 64 20 20 0d 24  |.K$="G"..twd  .$|
000027a0  5e 3a 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |^:             .|
000027b0  20 4b 24 3c 22 41 22 84  4b 24 3e 22 47 22 f1 bd  | K$<"A".K$>"G"..|
000027c0  28 37 29 3b 8a 30 2c 32  32 29 89 28 31 38 29 3a  |(7);.0,22).(18):|
000027d0  e5 8d 44 4a 64 20 20 20  0d 24 68 44 20 20 20 f1  |..DJd   .$hD   .|
000027e0  8a 30 2c 32 31 29 89 28  34 30 29 3b 8a 33 2c 32  |.0,21).(40);.3,2|
000027f0  31 29 3b 55 55 24 3b 50  50 24 3b 22 45 6e 74 65  |1);UU$;PP$;"Ente|
00002800  72 20 66 75 74 75 72 65  20 52 41 54 45 20 74 68  |r future RATE th|
00002810  65 6e 20 3c 52 45 54 55  52 4e 3e 22 0d 24 6d 1d  |en <RETURN>".$m.|
00002820  f1 8a 30 2c 32 32 29 22  20 20 20 20 20 20 20 20  |..0,22)"        |
00002830  22 3b 8a 30 2c 32 31 29  20 0d 24 72 18 e7 4b 24  |";.0,21) .$r..K$|
00002840  3d 22 41 22 e8 49 58 3a  49 58 3d 49 58 2f 31 30  |="A".IX:IX=IX/10|
00002850  30 0d 24 74 18 e7 4b 24  3d 22 42 22 e8 43 58 3a  |0.$t..K$="B".CX:|
00002860  43 58 3d 43 58 2f 31 30  30 0d 24 76 18 e7 4b 24  |CX=CX/100.$v..K$|
00002870  3d 22 43 22 e8 56 58 3a  56 58 3d 56 58 2f 31 30  |="C".VX:VX=VX/10|
00002880  30 0d 24 78 0e e7 4b 24  3d 22 44 22 e8 54 58 0d  |0.$x..K$="D".TX.|
00002890  24 7a 0f e7 4b 24 3d 22  45 22 e8 41 58 20 0d 24  |$z..K$="E".AX .$|
000028a0  7c 0e e7 4b 24 3d 22 46  22 e8 50 58 0d 24 83 15  ||..K$="F".PX.$..|
000028b0  f1 8a 30 2c 32 32 29 22  20 20 20 20 20 20 20 20  |..0,22)"        |
000028c0  22 0d 24 86 09 e5 8d 64  7a 63 0d 24 b7 05 e1 0d  |".$....dzc.$....|
000028d0  24 b8 0d dd f2 42 55 44  47 45 54 42 0d 24 c2 40  |$....BUDGETB.$.@|
000028e0  20 20 20 20 20 20 20 e3  49 25 3d 38 b8 39 3a f1  |       .I%=8.9:.|
000028f0  8a 38 2c 49 25 29 3b 5a  24 3b 53 53 24 3b 22 42  |.8,I%);Z$;SS$;"B|
00002900  55 44 47 45 54 20 44 41  59 20 5d 42 45 4e 45 46  |UDGET DAY ]BENEF|
00002910  49 54 53 5b 22 3a ed 20  20 20 20 20 0d 24 cc 26  |ITS[":.     .$.&|
00002920  f1 8a 39 2c 31 30 29 3b  53 24 3b 22 2c 2c 2c 2c  |..9,10);S$;",,,,|
00002930  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00002940  2c 22 0d 24 d1 10 40 25  3d 26 30 30 30 32 30 32  |,".$..@%=&000202|
00002950  30 41 0d 24 d6 4d 20 20  20 f1 8a 34 2c 31 32 29  |0A.$.M   ..4,12)|
00002960  3b 22 41 22 3b 59 59 24  3b 22 43 68 69 6c 64 20  |;"A";YY$;"Child |
00002970  41 6c 6c 6f 77 61 6e 63  65 20 20 20 20 20 22 3b  |Allowance     ";|
00002980  52 52 24 3b 22 3a 60 20  20 20 20 20 20 22 3b 8a  |RR$;":`      ";.|
00002990  a4 4b 28 46 46 29 2d 36  2c 31 32 29 3b 46 46 0d  |.K(FF)-6,12);FF.|
000029a0  24 e0 4e 20 20 20 f1 8a  34 2c 31 34 29 3b 22 42  |$.N   ..4,14);"B|
000029b0  22 3b 59 59 24 3b 22 4f  6c 64 20 41 67 65 20 50  |";YY$;"Old Age P|
000029c0  65 6e 73 69 6f 6e 20 20  20 20 20 22 3b 52 52 24  |ension     ";RR$|
000029d0  3b 22 3a 60 20 20 20 20  20 20 22 3b 8a a4 4b 28  |;":`      ";..K(|
000029e0  47 47 29 2d 36 2c 31 34  29 3b 47 47 20 0d 24 ea  |GG)-6,14);GG .$.|
000029f0  4d 20 20 20 f1 8a 34 2c  31 36 29 3b 22 43 22 3b  |M   ..4,16);"C";|
00002a00  59 59 24 3b 22 55 6e 65  6d 70 6c 6f 79 6d 65 6e  |YY$;"Unemploymen|
00002a10  74 20 42 65 6e 65 66 69  74 22 3b 52 52 24 3b 22  |t Benefit";RR$;"|
00002a20  3a 60 20 20 20 20 20 20  22 3b 8a a4 4b 28 48 48  |:`      ";..K(HH|
00002a30  29 2d 36 2c 31 36 29 3b  48 48 0d 24 ef 09 40 25  |)-6,16);HH.$..@%|
00002a40  3d 31 30 0d 24 f4 29 20  20 20 20 20 f1 8a 34 2c  |=10.$.)     ..4,|
00002a50  31 39 29 22 44 22 3b 53  53 24 3b 22 4e 6f 20 6d  |19)"D";SS$;"No m|
00002a60  6f 72 65 20 63 68 61 6e  67 65 73 22 0d 24 f9 1a  |ore changes".$..|
00002a70  20 20 f1 8a 30 2c 32 30  29 3b 51 51 24 3b c4 33  |  ..0,20);QQ$;.3|
00002a80  39 2c bd 34 34 29 0d 24  fe 40 20 20 20 f1 8a 30  |9,.44).$.@   ..0|
00002a90  2c 32 31 29 3b 53 53 24  3b 4e 4e 24 3b 55 55 24  |,21);SS$;NN$;UU$|
00002aa0  3b 50 50 24 3b 22 20 20  20 20 45 6e 74 65 72 20  |;PP$;"    Enter |
00002ab0  50 52 45 46 49 58 20 6f  66 20 74 61 78 20 63 68  |PREFIX of tax ch|
00002ac0  61 6e 67 65 22 20 0d 25  08 08 e8 4b 24 20 0d 25  |ange" .%...K$ .%|
00002ad0  12 10 e7 4b 24 3d 22 44  22 8c 8d 44 7f 65 0d 25  |...K$="D"..D.e.%|
00002ae0  1c 37 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |.7             .|
00002af0  20 4b 24 3c 22 41 22 84  4b 24 3e 22 44 22 f1 bd  | K$<"A".K$>"D"..|
00002b00  28 37 29 3b 8a 30 2c 32  32 29 89 28 31 38 29 3a  |(7);.0,22).(18):|
00002b10  e5 8d 64 7e 64 0d 25 26  43 20 20 f1 8a 30 2c 32  |..d~d.%&C  ..0,2|
00002b20  31 29 89 28 34 30 29 3b  8a 32 2c 32 31 29 3b 55  |1).(40);.2,21);U|
00002b30  55 24 3b 50 50 24 3b 22  45 6e 74 65 72 20 66 75  |U$;PP$;"Enter fu|
00002b40  74 75 72 65 20 52 41 54  45 20 74 68 65 6e 20 3c  |ture RATE then <|
00002b50  52 45 54 55 52 4e 3e 22  0d 25 30 1d f1 8a 30 2c  |RETURN>".%0...0,|
00002b60  32 32 29 22 20 20 20 20  20 20 20 20 22 3b 8a 30  |22)"        ";.0|
00002b70  2c 32 31 29 20 0d 25 3a  0e e7 4b 24 3d 22 41 22  |,21) .%:..K$="A"|
00002b80  e8 46 46 0d 25 3f 0e e7  4b 24 3d 22 42 22 e8 47  |.FF.%?..K$="B".G|
00002b90  47 0d 25 58 0e e7 4b 24  3d 22 43 22 e8 48 48 0d  |G.%X..K$="C".HH.|
00002ba0  25 5d 16 f1 8a 30 2c 32  32 29 22 20 20 20 20 20  |%]...0,22)"     |
00002bb0  20 20 20 22 20 0d 25 62  09 e5 8d 64 42 64 0d 25  |   " .%b...dBd.%|
00002bc0  7f 05 e1 0d 27 10 09 dd  f2 56 41 52 0d 27 15 07  |....'....VAR.'..|
00002bd0  ea 4b 24 0d 27 1a 6c 20  5a 24 3d bd 28 31 34 31  |.K$.'.l Z$=.(141|
00002be0  29 3a 59 24 3d bd 28 26  39 36 29 3a 57 24 3d bd  |):Y$=.(&96):W$=.|
00002bf0  28 26 39 31 29 3a 56 24  3d bd 28 26 39 32 29 3a  |(&91):V$=.(&92):|
00002c00  55 24 3d bd 28 26 39 33  29 3a 54 24 3d bd 28 26  |U$=.(&93):T$=.(&|
00002c10  39 34 29 3a 53 24 3d bd  28 26 39 35 29 3a 59 59  |94):S$=.(&95):YY|
00002c20  24 3d bd 28 26 38 36 29  3a 54 54 24 3d bd 28 26  |$=.(&86):TT$=.(&|
00002c30  38 34 29 3a 53 53 24 3d  bd 28 26 38 35 29 20 0d  |84):SS$=.(&85) .|
00002c40  27 1f 5a 52 24 3d bd 28  26 39 37 29 3a 52 52 24  |'.ZR$=.(&97):RR$|
00002c50  3d bd 28 26 38 37 29 3a  50 50 24 3d bd 28 31 33  |=.(&87):PP$=.(13|
00002c60  36 29 3a 4f 4f 24 3d bd  28 31 33 37 29 3a 4e 4e  |6):OO$=.(137):NN|
00002c70  24 3d bd 28 31 35 37 29  3a 56 56 24 3d bd 28 26  |$=.(157):VV$=.(&|
00002c80  38 32 29 3a 57 57 24 3d  bd 28 26 38 31 29 3a 55  |82):WW$=.(&81):U|
00002c90  55 24 3d bd 28 26 38 33  29 0d 27 24 28 49 58 3d  |U$=.(&83).'$(IX=|
00002ca0  2e 33 30 3a 43 58 3d 2e  35 3a 56 58 3d 2e 31 35  |.30:CX=.5:VX=.15|
00002cb0  3a 54 58 3d 2e 36 3a 41  58 3d 34 3a 50 58 3d 2e  |:TX=.6:AX=4:PX=.|
00002cc0  38 0d 27 2e 28 46 46 3d  35 2e 35 3a 47 47 3d 33  |8.'.(FF=5.5:GG=3|
00002cd0  30 3a 48 48 3d 32 38 3a  50 43 4d 3d 30 3a 57 41  |0:HH=28:PCM=0:WA|
00002ce0  4c 3d 32 3a 41 57 4c 3d  30 0d 27 38 36 54 3d 31  |L=2:AWL=0.'86T=1|
00002cf0  3a 47 3d 30 3a 49 3d 2e  31 3a 55 3d 30 3a 45 3d  |:G=0:I=.1:U=0:E=|
00002d00  32 3a 50 3d 30 3a 4b 54  3d 31 3a 43 4f 55 3d 32  |2:P=0:KT=1:COU=2|
00002d10  3a 50 43 4d 3d 30 3a 4b  3d 30 3a 4f 4f 3d 30 0d  |:PCM=0:K=0:OO=0.|
00002d20  27 42 1c 46 3d 31 30 30  3a 42 3d 30 3a 4f 54 3d  |'B.F=100:B=0:OT=|
00002d30  31 33 32 30 30 30 3a 53  3d 30 20 0d 27 4c 17 4c  |132000:S=0 .'L.L|
00002d40  3d 30 3a 50 4f 3d 30 3a  43 3d 35 35 3a 46 41 3d  |=0:PO=0:C=55:FA=|
00002d50  31 30 0d 27 56 1c 4f 50  3d 31 32 3a 43 4f 3d 31  |10.'V.OP=12:CO=1|
00002d60  30 30 30 3a 41 41 3d b3  28 35 29 2b 39 38 0d 27  |000:AA=.(5)+98.'|
00002d70  60 15 49 4e 3d 37 34 35  30 2b b3 28 31 30 29 2a  |`.IN=7450+.(10)*|
00002d80  31 30 30 0d 27 6a 20 47  53 3d 34 35 30 30 3a 46  |100.'j GS=4500:F|
00002d90  50 3d 34 30 30 30 3a 42  53 3d 31 34 34 3a 54 50  |P=4000:BS=144:TP|
00002da0  3d 32 35 0d 27 74 1e 43  43 3d 2e 35 3a 44 44 3d  |=25.'t.CC=.5:DD=|
00002db0  33 3a 45 45 3d 2e 37 3a  56 56 3d 38 33 30 30 30  |3:EE=.7:VV=83000|
00002dc0  20 0d 27 7e 21 58 41 3d  31 32 38 30 30 30 3a 58  | .'~!XA=128000:X|
00002dd0  43 3d 36 35 3a 58 5a 3d  32 30 30 3a 52 52 3d 31  |C=65:XZ=200:RR=1|
00002de0  30 30 0d 27 88 1c 44 3d  2e 32 3a 49 49 3d 30 3a  |00.'..D=.2:II=0:|
00002df0  4a 4a 3d 30 3a 4b 4b 3d  30 3a 4c 4c 3d 30 0d 27  |JJ=0:KK=0:LL=0.'|
00002e00  92 08 4d 4d 3d 30 0d 27  97 07 59 3d 31 0d 27 9c  |..MM=0.'..Y=1.'.|
00002e10  05 e1 0d 29 04 09 dd f2  43 4c 52 0d 29 09 07 20  |...)....CLR.).. |
00002e20  ea 58 0d 29 0e 1d 20 20  20 e3 58 3d 38 b8 32 32  |.X.)..   .X=8.22|
00002e30  3a f1 8a 30 2c 58 29 3b  89 28 34 30 29 3a ed 0d  |:..0,X);.(40):..|
00002e40  29 18 05 e1 0d 2a f8 0a  dd f2 43 41 4c 43 0d 2b  |)....*....CALC.+|
00002e50  02 32 58 43 3d 58 43 2b  28 58 43 2a 49 29 3a 58  |.2XC=XC+(XC*I):X|
00002e60  42 3d a8 20 28 28 46 41  2a 46 46 29 2b 28 4f 50  |B=. ((FA*FF)+(OP|
00002e70  2a 47 47 29 2b 28 55 2a  48 48 29 2a 35 32 29 20  |*GG)+(U*HH)*52) |
00002e80  0d 2b 0c 20 58 41 3d a8  20 28 58 41 2b 28 58 41  |.+. XA=. (XA+(XA|
00002e90  2a 49 29 29 3a 58 44 3d  46 46 2b 47 47 2b 48 48  |*I)):XD=FF+GG+HH|
00002ea0  0d 2b 11 15 e7 58 44 3c  3d 30 20 58 44 3d 30 2e  |.+...XD<=0 XD=0.|
00002eb0  30 30 31 20 20 0d 2b 16  1a 58 50 3d 58 41 2b 58  |001  .+..XP=XA+X|
00002ec0  42 3a 50 50 3d 31 35 2a  28 58 44 2f 58 43 29 0d  |B:PP=15*(XD/XC).|
00002ed0  2b 1b 0f e7 50 50 3e 31  35 50 50 3d 31 35 0d 2b  |+...PP>15PP=15.+|
00002ee0  20 10 e7 58 43 3e 58 44  20 50 50 3d 30 20 0d 2b  | ..XC>XD PP=0 .+|
00002ef0  25 14 e7 20 41 58 3c 3d  30 20 41 58 3d 2e 30 30  |%.. AX<=0 AX=.00|
00002f00  31 20 0d 2b 26 13 e7 20  54 58 3c 3d 30 20 54 58  |1 .+&.. TX<=0 TX|
00002f10  3d 2e 30 30 31 0d 2b 27  13 e7 20 50 58 3c 3d 30  |=.001.+'.. PX<=0|
00002f20  20 50 58 3d 2e 30 30 31  0d 2b 2a 2a 44 44 3d 44  | PX=.001.+**DD=D|
00002f30  44 2b 28 44 44 2a 49 29  3a 45 45 3d 45 45 2b 28  |D+(DD*I):EE=EE+(|
00002f40  45 45 2a 49 29 3a 43 43  3d 43 43 2b 28 43 43 2a  |EE*I):CC=CC+(CC*|
00002f50  49 29 0d 2b 34 19 20 42  53 3d 28 32 39 35 2b 28  |I).+4. BS=(295+(|
00002f60  54 2a 35 29 29 2a 44 44  2f 41 58 0d 2b 3e 22 e7  |T*5))*DD/AX.+>".|
00002f70  42 53 3e 28 32 39 35 2b  28 54 2a 35 29 29 20 42  |BS>(295+(T*5)) B|
00002f80  53 3d 28 32 39 35 2b 28  54 2a 35 29 29 0d 2b 48  |S=(295+(T*5)).+H|
00002f90  1b 20 46 50 3d 28 36 30  30 30 2b 28 54 2a 31 30  |. FP=(6000+(T*10|
00002fa0  29 29 2a 43 43 2f 54 58  0d 2b 52 26 e7 46 50 3e  |))*CC/TX.+R&.FP>|
00002fb0  28 36 30 30 30 2b 28 54  2a 31 30 29 29 20 46 50  |(6000+(T*10)) FP|
00002fc0  3d 28 36 30 30 30 2b 28  54 2a 31 30 29 29 0d 2b  |=(6000+(T*10)).+|
00002fd0  5c 1a 47 53 3d 28 36 30  30 30 2b 28 54 2a 35 30  |\.GS=(6000+(T*50|
00002fe0  29 29 2a 45 45 2f 50 58  0d 2b 66 26 e7 47 53 3e  |))*EE/PX.+f&.GS>|
00002ff0  28 36 30 30 30 2b 28 54  2a 35 30 29 29 20 47 53  |(6000+(T*50)) GS|
00003000  3d 28 36 30 30 30 2b 28  54 2a 35 30 29 29 0d 2b  |=(6000+(T*50)).+|
00003010  70 1c 56 56 3d 56 56 2b  28 56 56 2a 49 29 3a 56  |p.VV=VV+(VV*I):V|
00003020  54 3d a8 28 56 56 2a 56  58 29 0d 2b 7a 1b e7 56  |T=.(VV*VX).+z..V|
00003030  58 3e 2e 31 39 56 54 3d  28 56 54 2a 28 2e 31 39  |X>.19VT=(VT*(.19|
00003040  2f 56 58 29 29 0d 2b 89  1e 42 53 3d 42 53 2a 41  |/VX)).+..BS=BS*A|
00003050  58 3a 46 50 3d 46 50 2a  54 58 3a 47 53 3d 47 53  |X:FP=FP*TX:GS=GS|
00003060  2a 50 58 0d 2b 8e 15 54  53 3d a8 28 42 53 2b 46  |*PX.+..TS=.(BS+F|
00003070  50 2b 47 53 29 20 20 20  0d 2b 93 18 e7 41 58 2b  |P+GS)   .+...AX+|
00003080  50 58 2b 54 58 3c 30 2e  30 31 20 54 53 3d 30 20  |PX+TX<0.01 TS=0 |
00003090  0d 2b 98 25 53 53 3d a8  28 32 30 30 2a 28 28 44  |.+.%SS=.(200*((D|
000030a0  44 2b 45 45 2b 43 43 29  2f 28 41 58 2b 50 58 2b  |D+EE+CC)/(AX+PX+|
000030b0  54 58 29 29 29 0d 2b a2  12 e7 53 53 3e 31 39 30  |TX))).+...SS>190|
000030c0  20 53 53 3d 31 39 30 0d  2b ac 17 e7 54 3c 39 58  | SS=190.+...T<9X|
000030d0  56 3d 2e 31 36 35 2d 28  54 2f 31 30 30 29 0d 2b  |V=.165-(T/100).+|
000030e0  b6 16 58 54 3d 28 b3 28  34 29 2a 2e 30 31 29 2b  |..XT=(.(4)*.01)+|
000030f0  2e 34 37 20 0d 2b c0 13  58 54 3d 58 54 2d 28 2e  |.47 .+..XT=XT-(.|
00003100  30 32 35 2a 54 29 20 0d  2b c1 12 e7 49 58 3c 3d  |025*T) .+...IX<=|
00003110  30 20 49 58 3d 2e 30 30  31 0d 2b c2 12 e7 56 58  |0 IX=.001.+...VX|
00003120  3c 3d 30 20 56 58 3d 2e  30 30 31 0d 2b c3 12 e7  |<=0 VX=.001.+...|
00003130  43 58 3c 3d 30 20 43 58  3d 2e 30 30 31 0d 2b ca  |CX<=0 CX=.001.+.|
00003140  15 43 51 3d a8 28 32 30  30 2a 28 58 56 2f 56 58  |.CQ=.(200*(XV/VX|
00003150  29 29 0d 2b d4 11 e7 43  51 3e 32 30 34 43 51 3d  |)).+...CQ>204CQ=|
00003160  32 30 34 0d 2b de 17 43  53 3d a8 28 34 30 30 2a  |204.+..CS=.(400*|
00003170  28 58 54 2f 43 58 29 29  20 20 0d 2b e8 11 e7 43  |(XT/CX))  .+...C|
00003180  53 3e 34 30 30 43 53 3d  34 30 30 0d 2b f2 13 43  |S>400CS=400.+..C|
00003190  4f 3d 32 30 30 2b 43 51  2b 53 53 2b 43 53 0d 2b  |O=200+CQ+SS+CS.+|
000031a0  fc 13 e7 43 4f 3e 31 30  30 30 43 4f 3d 31 30 30  |...CO>1000CO=100|
000031b0  30 0d 2c 06 1a e7 43 58  3e 2e 37 39 43 4f 3d 31  |0.,...CX>.79CO=1|
000031c0  39 39 2d 28 43 58 2a 31  30 30 29 0d 2c 10 15 55  |99-(CX*100).,..U|
000031d0  3d 32 35 2d 28 43 4f 2a  32 35 2f 31 30 30 30 29  |=25-(CO*25/1000)|
000031e0  0d 2c 1a 12 55 3d 28 a8  28 55 2a 31 30 29 29 2f  |.,..U=(.(U*10))/|
000031f0  31 30 0d 2c 24 11 e7 55  3c 30 55 3d b3 28 33 29  |10.,$..U<0U=.(3)|
00003200  2a 2e 31 0d 2c 2e 32 20  41 41 3d 41 41 2b 28 41  |*.1.,.2 AA=AA+(A|
00003210  41 2a 49 29 3a 49 4e 3d  49 4e 2b 28 49 4e 2a 49  |A*I):IN=IN+(IN*I|
00003220  29 3a 49 41 3d a8 28 28  32 35 2d 55 29 2a 49 4e  |):IA=.((25-U)*IN|
00003230  2a 49 58 29 20 0d 2c 33  10 e7 49 58 3c 2e 30 31  |*IX) .,3..IX<.01|
00003240  20 49 41 3d 30 0d 2c 38  12 43 49 3d a8 28 43 4f  | IA=0.,8.CI=.(CO|
00003250  2a 41 41 2a 43 58 29 0d  2c 3d 10 e7 43 58 3c 2e  |*AA*CX).,=..CX<.|
00003260  30 31 20 43 49 3d 30 0d  2c 42 12 54 54 3d 56 54  |01 CI=0.,B.TT=VT|
00003270  2b 49 41 2b 43 49 2b 54  53 0d 2c 4c 1d 49 3d 28  |+IA+CI+TS.,L.I=(|
00003280  28 28 54 54 2b 58 42 2d  28 54 54 2a 49 29 29 2f  |((TT+XB-(TT*I))/|
00003290  4f 54 29 2d 31 29 0d 2c  56 0b e7 49 3c 30 49 3d  |OT)-1).,V..I<0I=|
000032a0  30 0d 2c 60 18 49 3d 49  2b 28 28 b3 28 36 29 2b  |0.,`.I=I+((.(6)+|
000032b0  54 29 2a 2e 30 31 29 20  20 0d 2c 6a 12 4c 3d 4c  |T)*.01)  .,j.L=L|
000032c0  2b 28 54 54 2d 58 50 2d  58 5a 29 0d 2c 74 17 e7  |+(TT-XP-XZ).,t..|
000032d0  4c 3c 30 49 3d 49 2b 28  94 4c 2f 31 30 30 30 30  |L<0I=I+(.L/10000|
000032e0  30 29 0d 2c 7e 21 45 3d  45 2d 28 45 2a 49 29 3a  |0).,~!E=E-(E*I):|
000032f0  45 3d 45 2b 2e 31 2b 28  b3 28 31 30 29 2a 2e 30  |E=E+.1+(.(10)*.0|
00003300  31 29 20 0d 2c 88 14 45  3d 28 a8 28 45 2a 31 30  |1) .,..E=(.(E*10|
00003310  30 29 29 2f 31 30 30 0d  2c 92 0b e7 45 3e 33 45  |0))/100.,...E>3E|
00003320  3d 33 0d 2c 9c 18 e7 45  3c 2e 35 8c 45 3d 2e 35  |=3.,...E<.5.E=.5|
00003330  2b b3 28 34 29 2a 2e 31  35 20 0d 2c a6 11 50 51  |+.(4)*.15 .,..PQ|
00003340  3d 32 30 2d 28 49 2a 31  30 30 29 0d 2c b0 0d e7  |=20-(I*100).,...|
00003350  50 51 3c 30 50 51 3d 30  0d 2c ba 10 50 52 3d 32  |PQ<0PQ=0.,..PR=2|
00003360  35 2d 28 55 2a 31 30 29  0d 2c c4 0d e7 50 52 3c  |5-(U*10).,...PR<|
00003370  30 50 52 3d 30 0d 2c ce  14 50 3d a8 28 50 4f 2b  |0PR=0.,..P=.(PO+|
00003380  50 50 2b 50 51 2b 50 52  29 0d 2c d8 19 e7 49 58  |PP+PQ+PR).,...IX|
00003390  3e 2e 33 35 2b 28 4b 2f  31 30 30 29 20 42 3d 54  |>.35+(K/100) B=T|
000033a0  2b 31 0d 2c e2 10 e7 42  3e 31 50 3d a8 28 50 2f  |+1.,...B>1P=.(P/|
000033b0  42 29 0d 2c ec 09 42 3d  42 2d 31 0d 2c f6 17 e7  |B).,..B=B-1.,...|
000033c0  47 47 3c 28 58 43 2f 33  29 50 3d b3 28 31 37 29  |GG<(XC/3)P=.(17)|
000033d0  2b 34 0d 2d 00 05 e1 0d  2e e0 09 dd f2 52 45 53  |+4.-.........RES|
000033e0  0d 2e ea 0e f1 8a 31 33  2c 33 29 3b 54 20 0d 2e  |......13,3);T ..|
000033f0  f4 6b f1 8a 33 32 2c 33  29 3b 50 50 24 3b 59 3a  |.k..32,3);PP$;Y:|
00003400  f2 53 4e 44 3a f1 8a 33  32 2c 33 29 3b 4f 4f 24  |.SND:..32,3);OO$|
00003410  3b 59 3b 8a 31 32 2c 34  29 3b 22 20 20 20 22 3b  |;Y;.12,4);"   ";|
00003420  8a 31 32 2c 34 29 3b 50  50 24 3b a8 28 49 2a 31  |.12,4);PP$;.(I*1|
00003430  30 30 29 3b 22 25 22 3b  4f 4f 24 3a f2 53 4e 44  |00);"%";OO$:.SND|
00003440  3a f1 8a 31 32 2c 34 29  3b 4f 4f 24 3b a8 28 49  |:..12,4);OO$;.(I|
00003450  2a 31 30 30 29 3b 22 25  22 0d 2e fe 64 f1 8a 33  |*100);"%"...d..3|
00003460  32 2c 34 29 3b 22 20 20  20 20 22 3b 8a 33 32 2c  |2,4);"    ";.32,|
00003470  34 29 3b 50 50 24 3b 55  3b 22 4d 2e 22 3b 4f 4f  |4);PP$;U;"M.";OO|
00003480  24 3a f2 53 4e 44 3a f1  8a 33 32 2c 34 29 3b 4f  |$:.SND:..32,4);O|
00003490  4f 24 3b 55 3b 22 4d 2e  22 3b 8a 31 32 2c 35 29  |O$;U;"M.";.12,5)|
000034a0  3b 50 50 24 3b 53 3b 4f  4f 24 3a f2 53 4e 44 3a  |;PP$;S;OO$:.SND:|
000034b0  f1 8a 31 32 2c 35 29 3b  4f 4f 24 3b 53 0d 2f 03  |..12,5);OO$;S./.|
000034c0  19 e7 4c 3c 30 49 51 24  3d 57 57 24 20 8b 20 49  |..L<0IQ$=WW$ . I|
000034d0  51 24 3d 52 52 24 0d 2f  07 11 40 25 3d 26 30 30  |Q$=RR$./..@%=&00|
000034e0  30 32 30 32 30 41 20 0d  2f 08 4a f1 8a 33 33 2c  |02020A ./.J..33,|
000034f0  35 29 3b 22 20 20 20 20  20 20 22 3b 8a 33 32 2c  |5);"      ";.32,|
00003500  35 29 3b 50 50 24 3b 22  24 22 3b 45 3b 22 2f 60  |5);PP$;"$";E;"/`|
00003510  22 3a f2 53 4e 44 3a f1  8a 33 32 2c 35 29 3b 4f  |":.SND:..32,5);O|
00003520  4f 24 3b 22 24 22 3b 45  3b 22 2f 60 22 3b 55 55  |O$;"$";E;"/`";UU|
00003530  24 0d 2f 09 09 40 25 3d  31 30 0d 2f 0a 4c f1 8a  |$./..@%=10./.L..|
00003540  31 32 2c 36 29 3b 22 20  20 20 20 22 3b 8a 31 32  |12,6);"    ";.12|
00003550  2c 36 29 3b 50 50 24 3b  50 3b 4f 4f 24 3a f2 53  |,6);PP$;P;OO$:.S|
00003560  4e 44 3a f1 8a 31 32 2c  36 29 3b 4f 4f 24 3b 50  |ND:..12,6);OO$;P|
00003570  3b 8a 32 37 2c 36 29 3b  22 20 20 20 20 20 20 20  |;.27,6);"       |
00003580  20 20 20 20 22 20 0d 2f  0b 34 f1 8a 32 37 2c 36  |    " ./.4..27,6|
00003590  29 3b 50 50 24 3b 49 51  24 3b a8 4c 22 4d 2e 22  |);PP$;IQ$;.L"M."|
000035a0  4f 4f 24 3a f2 53 4e 44  3a f1 8a 32 37 2c 36 29  |OO$:.SND:..27,6)|
000035b0  4f 4f 24 3b 49 51 24 3b  a8 4c 0d 30 6f 05 e1 0d  |OO$;IQ$;.L.0o...|
000035c0  32 c8 0b dd f2 53 50 41  43 45 0d 32 d2 3b f1 8a  |2....SPACE.2.;..|
000035d0  30 2c 32 32 29 3b 54 54  24 3b 4e 4e 24 3b 52 52  |0,22);TT$;NN$;RR|
000035e0  24 3b 22 20 88 50 72 65  73 73 20 74 68 65 20 53  |$;" .Press the S|
000035f0  50 41 43 45 20 42 41 52  20 74 6f 20 63 6f 6e 74  |PACE BAR to cont|
00003600  69 6e 75 65 22 0d 32 dc  14 e7 20 bf 28 30 29 3e  |inue".2... .(0)>|
00003610  22 20 22 8c 20 8d 64 5c  72 0d 32 e6 0d f5 20 fd  |" ". .d\r.2... .|
00003620  20 be 3d 22 20 22 0d 32  f0 14 f1 8a 30 2c 32 32  | .=" ".2....0,22|
00003630  29 3b 89 28 34 30 29 3a  e1 20 0d 36 b0 0b dd f2  |);.(40):. .6....|
00003640  50 52 4f 43 44 0d 36 ba  38 f1 8a 30 2c 32 32 29  |PROCD.6.8..0,22)|
00003650  3b 52 52 24 3b 4e 4e 24  3b 22 20 20 86 88 50 52  |;RR$;NN$;"  ..PR|
00003660  4f 43 45 53 53 49 4e 47  20 44 41 54 41 20 2d 20  |OCESSING DATA - |
00003670  50 6c 65 61 73 65 20 57  61 69 74 20 22 0d 36 c4  |Please Wait ".6.|
00003680  05 e1 0d 3a 98 09 dd f2  57 4b 45 0d 3a a2 0f f2  |...:....WKE.:...|
00003690  43 4c 52 3a 4a 3d b3 28  34 29 0d 3a ac 3c f1 8a  |CLR:J=.(4).:.<..|
000036a0  31 2c 38 29 3b 53 53 24  3b 22 57 20 65 20 65 20  |1,8);SS$;"W e e |
000036b0  6b 20 73 20 20 74 20 6f  20 20 45 20 6c 20 65 20  |k s  t o  E l e |
000036c0  63 20 74 20 69 20 6f 20  6e 20 3a 22 3b 52 52 24  |c t i o n :";RR$|
000036d0  3b 50 50 24 3b 4a 0d 3a  b6 17 f1 8a 30 2c 39 29  |;PP$;J.:....0,9)|
000036e0  3b 51 51 24 3b c4 33 39  2c bd 34 34 29 0d 3a c0  |;QQ$;.39,.44).:.|
000036f0  5e f1 8a 35 2c 31 31 29  3b 55 55 24 3b 22 41 20  |^..5,11);UU$;"A |
00003700  47 65 6e 65 72 61 6c 20  45 6c 65 63 74 69 6f 6e  |General Election|
00003710  20 6d 75 73 74 20 74 61  6b 65 20 22 3b 8a 37 2c  | must take ";.7,|
00003720  31 32 29 3b 55 55 24 3b  22 70 6c 61 63 65 20 69  |12);UU$;"place i|
00003730  6e 22 3b 52 52 24 3b 4a  3b 55 55 24 3b 22 77 65  |n";RR$;J;UU$;"we|
00003740  65 6b 73 27 20 74 69 6d  65 2e 22 0d 3a ca 17 e7  |eks' time.".:...|
00003750  20 4a 3d 31 20 f1 8a 32  33 2c 31 32 29 3b 22 27  | J=1 ..23,12);"'|
00003760  73 22 0d 3a d4 4f f1 8a  34 2c 31 34 29 3b 22 59  |s".:.O..4,14);"Y|
00003770  6f 75 20 6e 6f 77 20 68  61 76 65 20 74 68 65 20  |ou now have the |
00003780  6f 70 70 6f 72 74 75 6e  69 74 79 20 74 6f 22 2c  |opportunity to",|
00003790  22 69 6d 70 72 6f 76 65  20 79 6f 75 72 20 50 4f  |"improve your PO|
000037a0  50 55 4c 41 52 49 54 59  20 72 61 74 69 6e 67 2e  |PULARITY rating.|
000037b0  22 0d 3a de 37 50 3d 50  2d a8 50 43 4d 3a f1 8a  |".:.7P=P-.PCM:..|
000037c0  31 32 2c 36 29 3b 50 50  24 3b 50 3b 4f 4f 24 3a  |12,6);PP$;P;OO$:|
000037d0  f2 53 50 41 43 45 3a f1  8a 31 32 2c 36 29 3b 4f  |.SPACE:..12,6);O|
000037e0  4f 24 3b 50 3b 4f 4f 24  0d 3a e8 10 e7 43 4f 55  |O$;P;OO$.:...COU|
000037f0  3d 31 20 e5 8d 44 60 7b  0d 3a f2 12 f1 8a 30 2c  |=1 ..D`{.:....0,|
00003800  31 31 29 3b 89 28 32 34  30 29 0d 3a fc 92 f1 8a  |11);.(240).:....|
00003810  34 2c 31 31 29 3b 22 59  6f 75 20 77 69 6c 6c 20  |4,11);"You will |
00003820  68 61 76 65 20 31 30 30  30 20 75 6e 69 74 73 20  |have 1000 units |
00003830  74 6f 22 27 22 20 20 20  20 61 6c 6c 6f 63 61 74  |to"'"    allocat|
00003840  65 20 61 6e 64 20 79 6f  75 20 73 68 6f 75 6c 64  |e and you should|
00003850  20 74 72 79 20 74 6f 20  22 27 22 20 20 20 20 75  | try to "'"    u|
00003860  73 65 20 74 68 65 73 65  20 69 6e 20 61 72 65 61  |se these in area|
00003870  73 20 77 68 69 63 68 20  72 65 71 75 69 72 65 20  |s which require |
00003880  22 27 22 20 20 20 20 69  6d 6d 65 64 69 61 74 65  |"'"    immediate|
00003890  20 61 74 74 65 6e 74 69  6f 6e 2e 22 0d 3b 06 6c  | attention.".;.l|
000038a0  f1 8a 34 2c 31 36 29 3b  22 69 2e 65 20 69 66 20  |..4,16);"i.e if |
000038b0  4c 61 77 20 61 6e 64 20  4f 72 64 65 72 20 68 61  |Law and Order ha|
000038c0  73 20 62 65 65 6e 20 61  22 27 22 20 20 20 20 70  |s been a"'"    p|
000038d0  72 6f 62 6c 65 6d 20 74  68 65 6e 20 61 6c 6c 6f  |roblem then allo|
000038e0  63 61 74 65 20 73 6f 6d  65 20 75 6e 69 74 73 22  |cate some units"|
000038f0  27 22 20 20 20 20 74 6f  20 74 68 69 73 20 43 41  |'"    to this CA|
00003900  54 45 47 4f 52 59 2e 22  0d 3b 10 28 f2 53 50 41  |TEGORY.".;.(.SPA|
00003910  43 45 3a f1 8a 30 2c 31  31 29 3b 89 28 31 36 30  |CE:..0,11);.(160|
00003920  29 3b 8a 30 2c 31 36 29  3b 89 28 32 34 30 29 20  |);.0,16);.(240) |
00003930  0d 3b 1a 72 f1 8a 34 2c  31 31 29 3b 22 57 68 65  |.;.r..4,11);"Whe|
00003940  6e 20 79 6f 75 20 68 61  76 65 20 61 6c 6c 6f 63  |n you have alloc|
00003950  61 74 65 64 20 61 6c 6c  20 79 6f 75 72 22 27 22  |ated all your"'"|
00003960  20 20 20 20 75 6e 69 74  73 20 61 6e 20 61 6d 6d  |    units an amm|
00003970  65 6e 64 65 64 20 50 4f  50 55 4c 41 52 49 54 59  |ended POPULARITY|
00003980  20 22 27 22 20 20 20 20  72 61 74 69 6e 67 20 77  | "'"    rating w|
00003990  69 6c 6c 20 62 65 20 64  69 73 70 6c 61 79 65 64  |ill be displayed|
000039a0  2e 22 0d 3b 24 61 f1 8a  34 2c 31 35 29 3b 22 59  |.".;$a..4,15);"Y|
000039b0  6f 75 20 6d 61 79 20 6b  65 65 70 20 74 72 79 69  |ou may keep tryi|
000039c0  6e 67 20 64 69 66 66 65  72 65 6e 74 22 27 22 20  |ng different"'" |
000039d0  20 20 20 61 6c 6c 6f 63  61 74 69 6f 6e 73 20 65  |   allocations e|
000039e0  61 63 68 20 77 65 65 6b  20 75 6e 74 69 6c 20 74  |ach week until t|
000039f0  68 65 22 27 22 20 20 20  20 45 4c 45 43 54 49 4f  |he"'"    ELECTIO|
00003a00  4e 2e 22 0d 3b 2e 28 f2  53 50 41 43 45 3a f1 8a  |N.".;.(.SPACE:..|
00003a10  30 2c 31 31 29 3b 89 28  31 36 30 29 3b 8a 30 2c  |0,11);.(160);.0,|
00003a20  31 35 29 3b 89 28 32 34  30 29 20 0d 3b 60 4a f1  |15);.(240) .;`J.|
00003a30  8a 30 2c 31 31 29 3b 89  28 31 36 30 29 3b 8a 30  |.0,11);.(160);.0|
00003a40  2c 31 35 29 3b 89 28 32  34 30 29 3a e3 20 49 25  |,15);.(240):. I%|
00003a50  3d 31 30 b8 31 31 3a f1  8a 31 34 2c 49 25 29 3b  |=10.11:..14,I%);|
00003a60  5a 24 3b 56 56 24 3b 22  4d 41 4e 49 46 45 53 54  |Z$;VV$;"MANIFEST|
00003a70  4f 22 3a ed 20 0d 3b 6a  1c f1 8a 31 34 2c 31 32  |O":. .;j...14,12|
00003a80  29 3b 51 51 24 3b 22 2c  2c 2c 2c 2c 2c 2c 2c 2c  |);QQ$;",,,,,,,,,|
00003a90  22 0d 3b 74 32 f1 8a 34  2c 31 32 29 3b 56 56 24  |".;t2..4,12);VV$|
00003aa0  3b 22 2e 2e 43 61 74 65  67 6f 72 79 2e 2e 2e 2e  |;"..Category....|
00003ab0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 45 6d 70 68 61 73  |..........Emphas|
00003ac0  69 73 22 0d 3b 7e 30 50  43 4d 3d 30 3a 55 4e 49  |is".;~0PCM=0:UNI|
00003ad0  3d 31 30 30 30 3a 49 4e  46 3d 30 3a 55 4d 50 3d  |=1000:INF=0:UMP=|
00003ae0  30 3a 48 41 4c 3d 30 3a  4c 41 57 3d 30 3a 41 49  |0:HAL=0:LAW=0:AI|
00003af0  44 3d 30 0d 3b 88 4f f1  8a 35 2c 31 34 29 3b 22  |D=0.;.O..5,14);"|
00003b00  41 22 3b 55 55 24 3b 22  49 6e 66 6c 61 74 69 6f  |A";UU$;"Inflatio|
00003b10  6e 20 20 20 20 20 20 20  22 3b 52 52 24 3b 22 3a  |n       ";RR$;":|
00003b20  20 20 20 20 20 20 20 20  20 20 20 20 20 22 3b 8a  |             ";.|
00003b30  a4 4b 28 49 4e 46 29 2d  34 2c 31 34 29 3b 49 4e  |.K(INF)-4,14);IN|
00003b40  46 20 0d 3b 8d 4f f1 8a  35 2c 31 35 29 3b 22 42  |F .;.O..5,15);"B|
00003b50  22 3b 55 55 24 3b 22 55  6e 65 6d 70 6c 6f 79 6d  |";UU$;"Unemploym|
00003b60  65 6e 74 20 20 20 20 22  3b 52 52 24 3b 22 3a 20  |ent    ";RR$;": |
00003b70  20 20 20 20 20 20 20 20  20 20 20 20 22 3b 8a a4  |            ";..|
00003b80  4b 28 55 4d 50 29 2d 34  2c 31 35 29 3b 55 4d 50  |K(UMP)-4,15);UMP|
00003b90  20 0d 3b 92 51 f1 8a 35  2c 31 36 29 3b 22 43 22  | .;.Q..5,16);"C"|
00003ba0  3b 55 55 24 3b 22 4f 76  65 72 73 65 61 73 20 41  |;UU$;"Overseas A|
00003bb0  69 64 20 20 20 20 22 3b  52 52 24 3b 22 3a 20 20  |id    ";RR$;":  |
00003bc0  20 20 20 20 20 20 20 20  20 20 20 22 3b 8a a4 4b  |           ";..K|
00003bd0  28 41 49 44 29 2d 34 2c  31 36 29 3b 41 49 44 20  |(AID)-4,16);AID |
00003be0  20 20 0d 3b 9c 53 f1 8a  35 2c 31 37 29 3b 22 44  |  .;.S..5,17);"D|
00003bf0  22 3b 55 55 24 3b 22 4c  61 77 20 61 6e 64 20 4f  |";UU$;"Law and O|
00003c00  72 64 65 72 20 20 20 22  3b 52 52 24 3b 22 3a 20  |rder   ";RR$;": |
00003c10  20 20 20 20 20 20 20 20  20 20 20 20 22 3b 8a a4  |            ";..|
00003c20  4b 28 4c 41 57 29 2d 34  2c 31 37 29 3b 4c 41 57  |K(LAW)-4,17);LAW|
00003c30  20 20 20 20 20 0d 3b a6  24 f1 8a 35 2c 31 38 29  |     .;.$..5,18)|
00003c40  3b 22 45 22 3b 56 56 24  3b 22 57 68 65 6e 20 66  |;"E";VV$;"When f|
00003c50  69 6e 69 73 68 65 64 22  20 0d 3b ab 4c f1 8a 30  |inished" .;.L..0|
00003c60  2c 31 39 29 3b 89 28 38  30 29 3b 8a 30 2c 31 39  |,19);.(80);.0,19|
00003c70  29 3b 53 53 24 3b 22 20  20 20 20 20 59 6f 75 20  |);SS$;"     You |
00003c80  68 61 76 65 22 3b 55 55  24 3b 55 4e 49 3b 53 53  |have";UU$;UNI;SS|
00003c90  24 3b 22 75 6e 69 74 73  20 74 6f 20 61 6c 6c 6f  |$;"units to allo|
00003ca0  63 61 74 65 22 0d 3b ad  40 e7 20 55 4e 49 3d 30  |cate".;.@. UNI=0|
00003cb0  20 f1 8a 30 2c 31 39 29  3b 53 53 24 3b 22 20 20  | ..0,19);SS$;"  |
00003cc0  41 4c 4c 20 59 4f 55 52  20 55 4e 49 54 53 20 48  |ALL YOUR UNITS H|
00003cd0  41 56 45 20 42 45 45 4e  20 41 4c 4c 4f 43 41 54  |AVE BEEN ALLOCAT|
00003ce0  45 44 20 20 22 0d 3b b0  44 20 20 20 f1 8a 30 2c  |ED  ".;.D   ..0,|
00003cf0  32 31 29 3b 55 55 24 3b  4e 4e 24 3b 56 56 24 3b  |21);UU$;NN$;VV$;|
00003d00  50 50 24 3b 22 20 20 20  20 45 6e 74 65 72 20 50  |PP$;"    Enter P|
00003d10  52 45 46 49 58 20 6f 66  20 63 61 74 65 67 6f 72  |REFIX of categor|
00003d20  79 20 20 20 20 20 20 22  20 0d 3b ba 07 e8 4b 24  |y      " .;...K$|
00003d30  0d 3b c4 20 e7 20 4b 24  3d 22 45 22 f1 8a 30 2c  |.;. . K$="E"..0,|
00003d40  32 32 29 3b 22 20 20 20  20 22 3a e5 8d 74 4c 7c  |22);"    ":..tL||
00003d50  0d 3b ce 2a e7 20 4b 24  3c 22 41 22 84 4b 24 3e  |.;.*. K$<"A".K$>|
00003d60  22 45 22 f1 bd 28 37 29  3b 8a 30 2c 32 32 29 89  |"E"..(7);.0,22).|
00003d70  28 31 38 29 3a e5 8d 74  70 7b 0d 3b d8 46 20 20  |(18):..tp{.;.F  |
00003d80  20 f1 8a 30 2c 32 31 29  89 28 34 30 29 3b 8a 32  | ..0,21).(40);.2|
00003d90  2c 32 31 29 3b 55 55 24  3b 50 50 24 3b 22 45 6e  |,21);UU$;PP$;"En|
00003da0  74 65 72 20 4e 55 4d 42  45 52 20 6f 66 20 75 6e  |ter NUMBER of un|
00003db0  69 74 73 20 74 6f 20 61  6c 6c 6f 63 61 74 65 22  |its to allocate"|
00003dc0  0d 3b dd 1c f1 8a 30 2c  32 32 29 3b 22 20 20 20  |.;....0,22);"   |
00003dd0  20 20 20 20 22 3b 8a 30  2c 32 31 29 0d 3b e2 1a  |    ";.0,21).;..|
00003de0  e7 20 4b 24 3d 22 41 22  20 e8 49 4e 46 3a 49 4e  |. K$="A" .INF:IN|
00003df0  46 3d 94 49 4e 46 0d 3b  ec 1a e7 20 4b 24 3d 22  |F=.INF.;... K$="|
00003e00  42 22 20 e8 55 4d 50 3a  55 4d 50 3d 94 55 4d 50  |B" .UMP:UMP=.UMP|
00003e10  0d 3b f6 1a e7 20 4b 24  3d 22 43 22 20 e8 41 49  |.;... K$="C" .AI|
00003e20  44 3a 41 49 44 3d 94 41  49 44 0d 3c 00 1a e7 20  |D:AID=.AID.<... |
00003e30  4b 24 3d 22 44 22 20 e8  4c 41 57 3a 4c 41 57 3d  |K$="D" .LAW:LAW=|
00003e40  94 4c 41 57 0d 3c 05 15  f1 8a 30 2c 32 32 29 22  |.LAW.<....0,22)"|
00003e50  20 20 20 20 20 20 20 20  22 0d 3c 0a 81 45 4d 4c  |        ".<..EML|
00003e60  3d 49 4e 46 2b 55 4d 50  2b 41 49 44 2b 4c 41 57  |=INF+UMP+AID+LAW|
00003e70  3a e7 20 45 4d 4c 3e 31  30 30 30 20 f1 8a 30 2c  |:. EML>1000 ..0,|
00003e80  32 31 29 3b 57 57 24 3b  22 49 6e 73 75 66 66 69  |21);WW$;"Insuffi|
00003e90  63 69 65 6e 74 20 75 6e  69 74 73 20 20 2d 20 20  |cient units  -  |
00003ea0  52 45 2d 45 4e 54 45 52  20 20 2d 20 20 20 20 22  |RE-ENTER  -    "|
00003eb0  3b bd 37 3a f2 54 49 4d  45 52 28 2e 32 29 3a e5  |;.7:.TIMER(.2):.|
00003ec0  8d 44 7e 7b 20 8b 20 55  4e 49 3d 31 30 30 30 2d  |.D~{ . UNI=1000-|
00003ed0  45 4d 4c 3a e5 20 8d 74  48 7b 0d 3c 8c 51 e7 20  |EML:. .tH{.<.Q. |
00003ee0  49 3e 2e 31 31 2b 28 4a  2f 31 30 30 29 20 80 20  |I>.11+(J/100) . |
00003ef0  49 3c 2e 31 37 2b 28 4a  2f 31 30 30 29 20 50 43  |I<.17+(J/100) PC|
00003f00  4d 3d 50 43 4d 2b 28 28  28 49 4e 46 2f 32 35 30  |M=PCM+(((INF/250|
00003f10  29 2a 28 28 28 2e 32 35  2b 28 4a 2f 31 30 30 29  |)*(((.25+(J/100)|
00003f20  29 2d 49 29 2a 31 30 30  29 29 29 0d 3c 96 51 e7  |)-I)*100))).<.Q.|
00003f30  20 49 3e 2e 31 37 2b 28  4a 2f 31 30 30 29 20 80  | I>.17+(J/100) .|
00003f40  20 49 3c 2e 32 35 2b 28  4a 2f 31 30 30 29 20 50  | I<.25+(J/100) P|
00003f50  43 4d 3d 50 43 4d 2b 28  28 28 49 4e 46 2f 32 35  |CM=PCM+(((INF/25|
00003f60  30 29 2a 28 28 28 2e 32  35 2b 28 4a 2f 31 30 30  |0)*(((.25+(J/100|
00003f70  29 29 2d 49 29 2a 31 30  30 29 29 29 0d 3c a0 28  |))-I)*100))).<.(|
00003f80  e7 49 3e 3d 2e 32 35 2b  28 4a 2f 31 30 30 29 20  |.I>=.25+(J/100) |
00003f90  50 43 4d 3d 50 43 4d 2b  28 49 4e 46 2f 32 35 30  |PCM=PCM+(INF/250|
00003fa0  29 2a 35 20 0d 3c aa 4a  e7 55 3e 31 2e 34 2b 28  |)*5 .<.J.U>1.4+(|
00003fb0  4a 2f 31 30 29 20 80 20  55 3c 32 2e 36 2b 28 4a  |J/10) . U<2.6+(J|
00003fc0  2f 31 30 29 20 50 43 4d  3d 50 43 4d 2b 28 28 28  |/10) PCM=PCM+(((|
00003fd0  55 4d 50 2f 32 35 30 29  2a 28 55 2d 28 31 2e 34  |UMP/250)*(U-(1.4|
00003fe0  2b 28 4a 2f 31 30 29 29  29 29 2a 31 30 29 0d 3c  |+(J/10))))*10).<|
00003ff0  b4 4b e7 55 3e 32 2e 36  2b 28 4a 2f 31 30 29 20  |.K.U>2.6+(J/10) |
00004000  80 20 55 3c 33 2e 36 2b  28 4a 2f 31 30 29 20 50  |. U<3.6+(J/10) P|
00004010  43 4d 3d 50 43 4d 2b 28  28 28 55 4d 50 2f 32 35  |CM=PCM+(((UMP/25|
00004020  30 29 2a 28 28 28 34 2b  28 4a 2f 31 30 30 29 29  |0)*(((4+(J/100))|
00004030  2d 55 29 2a 31 30 29 29  29 0d 3c be 25 e7 55 3e  |-U)*10))).<.%.U>|
00004040  33 2e 36 2b 28 4a 2f 31  30 29 20 50 43 4d 3d 50  |3.6+(J/10) PCM=P|
00004050  43 4d 2b 28 55 4d 50 2f  32 35 30 29 2a 35 0d 3c  |CM+(UMP/250)*5.<|
00004060  c8 35 e7 20 49 3c 2e 31  32 2b 28 4a 2f 31 30 30  |.5. I<.12+(J/100|
00004070  29 80 20 55 3c 31 2e 39  2b 28 4a 2f 31 30 29 20  |). U<1.9+(J/10) |
00004080  50 43 4d 3d 50 43 4d 2b  28 41 49 44 2f 32 35 30  |PCM=PCM+(AID/250|
00004090  29 2a 4b 0d 3c d2 25 e7  20 57 41 4c 3d 31 20 8c  |)*K.<.%. WAL=1 .|
000040a0  20 50 43 4d 3d 50 43 4d  2b 28 4c 41 57 2f 32 35  | PCM=PCM+(LAW/25|
000040b0  30 29 2a 28 4b 2b 31 29  0d 3c dc 25 e7 20 57 41  |0)*(K+1).<.%. WA|
000040c0  4c 3d 30 20 8c 20 50 43  4d 3d 50 43 4d 2b 28 4c  |L=0 . PCM=PCM+(L|
000040d0  41 57 2f 31 35 30 29 2a  28 4b 2b 31 29 0d 3c e6  |AW/150)*(K+1).<.|
000040e0  53 50 3d a8 28 50 2b 50  43 4d 29 3a f1 8a 31 32  |SP=.(P+PCM):..12|
000040f0  2c 36 29 3b 50 50 24 3b  50 3b 4f 4f 24 3a f2 54  |,6);PP$;P;OO$:.T|
00004100  49 4d 45 52 28 2e 32 29  3a f1 8a 31 32 2c 36 29  |IMER(.2):..12,6)|
00004110  3b 4f 4f 24 3b 50 3b 4f  4f 24 3a f1 8a 30 2c 31  |;OO$;P;OO$:..0,1|
00004120  30 29 3b 89 28 32 34 30  29 3b 89 28 32 34 30 29  |0);.(240);.(240)|
00004130  0d 3c f0 1c 4a 3d 4a 2d  31 3a e7 4a 3d 30 20 43  |.<..J=J-1:.J=0 C|
00004140  4f 55 3d 32 3a 50 43 4d  3d 30 3a e1 0d 3c f5 2b  |OU=2:PCM=0:..<.+|
00004150  f1 8a 36 2c 31 34 29 3b  55 55 24 3b 22 44 6f 20  |..6,14);UU$;"Do |
00004160  79 6f 75 20 77 69 73 68  20 74 6f 20 74 72 79 20  |you wish to try |
00004170  61 67 61 69 6e 3f 22 0d  3c fa 43 20 20 20 f1 8a  |again?".<.C   ..|
00004180  30 2c 32 31 29 3b 55 55  24 3b 4e 4e 24 3b 54 54  |0,21);UU$;NN$;TT|
00004190  24 3b 50 50 24 3b 22 20  20 20 20 4b 65 79 20 69  |$;PP$;"    Key i|
000041a0  6e 20 59 20 6f 72 20 4e  20 74 68 65 6e 20 20 3c  |n Y or N then  <|
000041b0  52 45 54 55 52 4e 3e 20  20 22 0d 3d 04 36 e8 42  |RETURN>  ".=.6.B|
000041c0  24 3a e7 42 24 3d 22 59  22 20 f1 8a 30 2c 32 31  |$:.B$="Y" ..0,21|
000041d0  29 3b 89 28 34 30 29 3b  8a 30 2c 31 34 29 3b 89  |);.(40);.0,14);.|
000041e0  28 34 30 29 3a 43 4f 55  3d 31 3a e5 8d 74 6c 7a  |(40):COU=1:..tlz|
000041f0  0d 3d 0e 1e e7 42 24 3d  22 4e 22 20 f2 43 4c 52  |.=...B$="N" .CLR|
00004200  3a 43 4f 55 3d 32 3a 50  43 4d 3d 30 3a e1 0d 3d  |:COU=2:PCM=0:..=|
00004210  18 22 f1 bd 37 3b 8a 30  2c 32 32 29 3b 22 20 20  |."..7;.0,22);"  |
00004220  20 20 22 3b 8a 30 2c 32  31 29 3a e5 8d 64 7a 7c  |  ";.0,21):..dz||
00004230  0d 3e 7f 05 e1 0d 4e 20  09 dd f2 53 4e 44 0d 4e  |.>....N ...SND.N|
00004240  2a 19 d4 30 2c 2d 31 30  2c 30 2c 33 3a d4 30 2c  |*..0,-10,0,3:.0,|
00004250  2d 31 30 2c 31 2c 33 0d  4e 2f 12 f2 54 49 4d 45  |-10,1,3.N/..TIME|
00004260  52 28 2e 31 35 29 3a e1  20 0d 4e 84 0a dd f2 53  |R(.15):. .N....S|
00004270  4e 44 41 0d 4e 8e 1e d4  30 2c 2d 31 35 2c 32 2c  |NDA.N...0,-15,2,|
00004280  36 3a f2 54 49 4d 45 52  28 2e 31 35 29 3a e1 20  |6:.TIMER(.15):. |
00004290  20 0d 52 08 0e dd f2 51  55 45 53 54 42 3a db 0d  | .R....QUESTB:..|
000042a0  55 f0 1e f1 8a 31 31 2c  31 30 29 3b 22 44 6f 20  |U....11,10);"Do |
000042b0  79 6f 75 20 77 69 73 68  20 74 6f 3a 22 0d 55 fa  |you wish to:".U.|
000042c0  1d f1 8a 31 31 2c 31 33  29 3b 22 41 2e 43 6f 6e  |...11,13);"A.Con|
000042d0  74 69 6e 75 65 20 6e 6f  77 22 0d 56 04 1d f1 8a  |tinue now".V....|
000042e0  31 31 2c 31 35 29 3b 22  42 2e 53 61 76 65 20 74  |11,15);"B.Save t|
000042f0  6f 20 74 61 70 65 22 0d  56 0e 18 f1 8a 31 31 2c  |o tape".V....11,|
00004300  31 37 29 3b 22 43 2e 52  65 74 69 72 65 22 20 0d  |17);"C.Retire" .|
00004310  56 18 40 f1 8a 30 2c 32  30 29 3b bd 28 31 33 31  |V.@..0,20);.(131|
00004320  29 3b bd 31 35 37 3b bd  31 33 30 3b 22 20 20 20  |);.157;.130;"   |
00004330  20 45 4e 54 45 52 20 41  2d 43 20 54 48 45 4e 20  | ENTER A-C THEN |
00004340  50 52 45 53 53 20 3c 52  45 54 55 52 4e 3e 22 0d  |PRESS <RETURN>".|
00004350  56 22 30 e8 42 24 3a f1  8a 30 2c 32 31 29 3b 22  |V"0.B$:..0,21);"|
00004360  20 20 20 20 22 3a e7 42  24 3c 22 41 22 84 42 24  |    ":.B$<"A".B$|
00004370  3e 22 43 22 20 f1 bd 37  3a e5 8d 50 58 56 20 0d  |>"C" ..7:..PXV .|
00004380  56 2c 0f e7 42 24 3d 22  41 22 20 db 3a e1 0d 56  |V,..B$="A" .:..V|
00004390  36 20 e7 42 24 3d 22 42  22 20 db 3a f2 56 41 52  |6 .B$="B" .:.VAR|
000043a0  53 41 56 45 3a db 3a e5  8d 60 70 55 3a e0 0d 56  |SAVE:.:..`pU:..V|
000043b0  40 0f e7 42 24 3d 22 43  22 20 db 3a e0 0d 56 4a  |@..B$="C" .:..VJ|
000043c0  05 e0 0d 5d c0 0f dd f2  56 41 52 53 41 56 45 3a  |...]....VARSAVE:|
000043d0  db 0d 5d ca 32 f1 8a 32  2c 31 30 29 3b 22 53 45  |..].2..2,10);"SE|
000043e0  54 20 55 50 20 59 4f 55  52 20 43 41 53 53 45 54  |T UP YOUR CASSET|
000043f0  54 45 20 52 45 43 4f 52  44 45 52 20 57 49 54 48  |TE RECORDER WITH|
00004400  20 41 22 0d 5d d4 35 f1  8a 32 2c 31 34 29 3b 22  | A".].5..2,14);"|
00004410  41 20 42 4c 41 4e 4b 20  54 41 50 45 20 41 4e 44  |A BLANK TAPE AND|
00004420  20 54 48 45 4e 20 50 52  45 53 53 20 3c 52 45 54  | THEN PRESS <RET|
00004430  55 52 4e 3e 22 20 20 20  0d 5d de 07 e8 42 24 0d  |URN>"   .]...B$.|
00004440  61 b2 0f 58 3d ae 28 22  56 41 52 53 22 29 0d 61  |a..X=.("VARS").a|
00004450  bc 1e f1 23 58 2c 4d 31  24 2c 4d 32 24 2c 4d 33  |...#X,M1$,M2$,M3|
00004460  24 2c 4d 34 24 2c 41 24  2c 51 51 24 0d 61 c6 19  |$,M4$,A$,QQ$.a..|
00004470  f1 23 58 2c 49 58 2c 43  58 2c 56 58 2c 54 58 2c  |.#X,IX,CX,VX,TX,|
00004480  41 58 2c 50 58 0d 61 d0  1c f1 23 58 2c 57 41 4c  |AX,PX.a...#X,WAL|
00004490  2c 46 46 2c 47 47 2c 48  48 2c 50 43 4d 2c 41 57  |,FF,GG,HH,PCM,AW|
000044a0  4c 0d 61 da 1a f1 23 58  2c 54 2c 47 2c 49 2c 55  |L.a...#X,T,G,I,U|
000044b0  2c 45 2c 50 2c 4b 54 2c  43 4f 55 0d 61 e4 15 f1  |,E,P,KT,COU.a...|
000044c0  23 58 2c 4b 2c 4f 4f 2c  46 2c 42 2c 4f 54 2c 53  |#X,K,OO,F,B,OT,S|
000044d0  0d 61 ee 17 f1 23 58 2c  4c 2c 50 4f 2c 43 2c 46  |.a...#X,L,PO,C,F|
000044e0  41 2c 4f 50 2c 43 4f 0d  61 f8 19 f1 23 58 2c 41  |A,OP,CO.a...#X,A|
000044f0  41 2c 49 4e 2c 47 53 2c  46 50 2c 42 53 2c 54 50  |A,IN,GS,FP,BS,TP|
00004500  0d 62 02 16 f1 23 58 2c  43 43 2c 44 44 2c 45 45  |.b...#X,CC,DD,EE|
00004510  2c 56 56 2c 58 42 0d 62  0c 29 f1 23 58 2c 58 41  |,VV,XB.b.).#X,XA|
00004520  2c 58 43 2c 58 5a 2c 52  52 2c 58 44 2c 44 2c 49  |,XC,XZ,RR,XD,D,I|
00004530  49 2c 4a 4a 2c 4b 4b 2c  4c 4c 2c 4d 4d 2c 59 0d  |I,JJ,KK,LL,MM,Y.|
00004540  62 16 13 f1 23 58 2c 56  54 2c 49 41 2c 43 49 2c  |b...#X,VT,IA,CI,|
00004550  54 53 0d 62 20 10 f1 23  58 2c 54 54 2c 58 50 2c  |TS.b ..#X,TT,XP,|
00004560  58 5a 0d 62 2a 09 d9 23  58 3a e1 0d 65 90 0d dd  |XZ.b*..#X:..e...|
00004570  f2 56 41 52 4c 4f 41 44  0d 65 9a 35 db 3a f1 8a  |.VARLOAD.e.5.:..|
00004580  32 2c 31 30 29 3b 22 4c  4f 41 44 20 59 4f 55 52  |2,10);"LOAD YOUR|
00004590  20 43 41 53 53 45 54 54  45 20 52 45 43 4f 52 44  | CASSETTE RECORD|
000045a0  45 52 20 57 49 54 48 20  54 48 45 22 20 0d 65 a4  |ER WITH THE" .e.|
000045b0  31 f1 8a 32 2c 31 34 29  3b 22 54 41 50 45 20 43  |1..2,14);"TAPE C|
000045c0  4f 4e 54 41 49 4e 49 4e  47 20 54 48 45 20 53 41  |ONTAINING THE SA|
000045d0  56 45 44 20 56 41 52 49  41 42 4c 45 53 22 0d 65  |VED VARIABLES".e|
000045e0  ae 33 f1 8a 31 2c 31 38  29 3b 22 54 48 45 4e 20  |.3..1,18);"THEN |
000045f0  57 48 45 4e 20 41 4c 4c  20 49 53 20 52 45 41 44  |WHEN ALL IS READ|
00004600  59 20 50 52 45 53 53 20  3c 52 45 54 55 52 4e 3e  |Y PRESS <RETURN>|
00004610  22 0d 65 b8 07 e8 42 24  0d 66 58 0c de 42 24 28  |".e...B$.fX..B$(|
00004620  32 30 30 29 0d 66 62 0f  58 3d ad 28 22 56 41 52  |200).fb.X=.("VAR|
00004630  53 22 29 0d 66 6c 1e e8  23 58 2c 4d 31 24 2c 4d  |S").fl..#X,M1$,M|
00004640  32 24 2c 4d 33 24 2c 4d  34 24 2c 41 24 2c 51 51  |2$,M3$,M4$,A$,QQ|
00004650  24 0d 66 76 1a e8 23 58  2c 49 58 2c 43 58 2c 56  |$.fv..#X,IX,CX,V|
00004660  58 2c 54 58 2c 41 58 2c  50 58 20 0d 66 80 1d e8  |X,TX,AX,PX .f...|
00004670  23 58 2c 57 41 4c 2c 46  46 2c 47 47 2c 48 48 2c  |#X,WAL,FF,GG,HH,|
00004680  50 43 4d 2c 41 57 4c 20  0d 66 8a 1a e8 23 58 2c  |PCM,AWL .f...#X,|
00004690  54 2c 47 2c 49 2c 55 2c  45 2c 50 2c 4b 54 2c 43  |T,G,I,U,E,P,KT,C|
000046a0  4f 55 0d 66 94 17 e8 23  58 2c 4b 2c 4f 4f 2c 46  |OU.f...#X,K,OO,F|
000046b0  2c 42 2c 4f 54 2c 53 20  20 0d 66 9e 17 e8 23 58  |,B,OT,S  .f...#X|
000046c0  2c 4c 2c 50 4f 2c 43 2c  46 41 2c 4f 50 2c 43 4f  |,L,PO,C,FA,OP,CO|
000046d0  0d 66 a8 1a e8 23 58 2c  41 41 2c 49 4e 2c 47 53  |.f...#X,AA,IN,GS|
000046e0  2c 46 50 2c 42 53 2c 54  50 20 0d 66 b2 16 e8 23  |,FP,BS,TP .f...#|
000046f0  58 2c 43 43 2c 44 44 2c  45 45 2c 56 56 2c 58 42  |X,CC,DD,EE,VV,XB|
00004700  0d 66 bc 2b e8 23 58 2c  58 41 2c 58 43 2c 58 5a  |.f.+.#X,XA,XC,XZ|
00004710  2c 52 52 2c 58 44 2c 44  2c 49 49 2c 4a 4a 2c 4b  |,RR,XD,D,II,JJ,K|
00004720  4b 2c 4c 4c 2c 4d 4d 2c  59 20 20 0d 66 c6 20 e8  |K,LL,MM,Y  .f. .|
00004730  23 58 2c 56 54 2c 49 41  2c 43 49 2c 54 53 2c 54  |#X,VT,IA,CI,TS,T|
00004740  54 2c 58 50 2c 58 5a 20  20 20 20 0d 66 d0 09 d9  |T,XP,XZ    .f...|
00004750  23 58 3a e1 0d 7d 00 15  dd a4 4b 28 4a 29 3d 33  |#X:..}....K(J)=3|
00004760  39 2d a9 c3 28 a8 4a 29  20 0d ff                 |9-..(.J) ..|
0000476b
GBLTD.m0
GBLTD.m1
GBLTD.m2
GBLTD.m4
GBLTD.m5