10 POKE53280,6:POKE53281,6:PRINT"[147]"
20 INPUT"NUMBER OF GAMES PLAYED";G
30 DEFFNF(X)=(99^(X/800))/(1+(99^(X/800))):REM  RATING FORMULA
40 INPUT"YOUR RATING";R
50 PRINT"OPPONENTS' RATINGS?"
60 FORB=1TOG
70 INPUT O:IF O<1 THEN RESTORE:END
80 X=R-O
90 IF X<-800 THEN X=-800
100 D=D+FNF(X)
110 NEXT
120 INPUT"YOUR SCORE";S:S=S-D
130 IF R<2100 THEN 170
140 IF R<2400 THEN 160
150 S=S*16:GOTO 220
160 S=S*24:GOTO 220
170 S=S*32:IF R+S+.5>INT(2099) THEN 220
180 IF G<4 THEN G=4
190 IF S>32+(3*(G-4))AND R+S+S-(32+(3*(G-4)))<2100 THEN 210
200 GOTO220
210 R=R+S+S-(32+(3*(G-4))):GOTO230
220 R=R+S
230 PRINT:PRINT"YOUR NEW RATING IS";INT(R+.5)
240 PRINT:PRINT"AGAIN?"
250 GET A$: IF A$=""THEN 250
260 IF A$<>"Y" THEN END
270 GOTO10