15 X=896:FORJ=1TO9:READX$
20 FORI=1TOLEN(X$)STEP2:Z=ASC(MID$(X$,I,1))*16+ASC(MID$(X$,I+1,1))-1105:POKEX,Z
25 Y=Y+Z:X=X+1:NEXT:NEXT:IFY<>11208THEN STOP
30 POKE55,0:POKE56,11:CLR:SYS899
40 X=0:Z=0:I=0:M=999
45 POKE785,128:POKE786,3
50 TI$="000000":PRINT2;
55 FORI=3TOMSTEP2:IFUSR(I)=0THENPRINTI;
60 FORX=ITOMSTEPI*2:Z=USR(X):NEXT:NEXT
65 PRINT:PRINT"FROM 1 TO"M"IN"INT(TI*5/3)/100"SECONDS
70 [131] BIJACOBIJAAKABACAEAIBACAEAIA
75 [131] AAAAHIKJDAIFABKJALIFAFIFADKJ
80 [131] AAIFAEIFACKIJBAEMINAPLOGAFNA
85 [131] PHKJDHIFABFIGACAJLLMHIKJDAIF
90 [131] ABKFGFCJAPEKKKEGGDGGGEGGGFEG
95 [131] GDGGGEGGGFEGGDGGGEGGGFEGGDGG
100 [131] GEGGGFKFACBIGFGFIFAEKFGEGFAD
105 [131] IFAFKAAALBAEDNIGADEILBAEBNIG
110 [131] ADJBAEGIKIKJDHIFABFIEMKCLDAA