ONERROR! Decimal Loader

1 REM ONERROR! DECIMAL LOADER 2 REM by Mr Pither 10 INPUT "Code to? ";a: POKE USR "a", a-256*INT (a/256): POKE USR "a"+1,INT (a/256): CLEAR a-1: LET a=PEEK USR "a"+256* PEEK (USR "a"+1): LET start=a 20 FOR f=a to a+103: READ a: POKE f,a 30 NEXT f: PRINT "OK": INPUT "Filename? ";a$: SAVE a$ CODE start,104: STOP 100 DATA 197, 237, 91, 61, 92, 33, 44, 0, 9, 235, 78, 115, 35, 70, 114, 80, 89, 193, 33, 97, 0, 9, 115, 35, 114, 33, 103, 0, 9, 235, 33, 63, 0, 9, 115, 35, 114, 33, 90, 0, 9, 54, 1, 201, 118, 237, 123, 61, 92, 205, 142, 2, 123, 254, 255, 32, 248, 33, 58, 92, 126, 60, 50, 0, 0, 54, 255, 254, 0, 40, 18, 254, 9, 40, 14, 35, 203, 254, 33, 0, 0, 22, 1, 205, 115, 30, 195, 125, 27, 62, 0, 61, 192, 42, 61, 92, 17, 3, 19, 115, 35, 114, 201