Evolution 2 121
1280 GOTO 1230
1290 RESTORE 1300:FOR XX=360 TO 366:READ AA:POKE XX,AA:NEXT:RESTORE:RETURN
1300 DATA 205,96,187,50,111,1,201
1310 FOR X = 239 TO 247: PRINT X;CHRS(X), :NEXT
1320 GOTO 1320
1330 INPUT F:F=-F*(F>0)-1*(F<=0):PRINT F :GOTO 1330