CLS:' NEW 10 'FILES IchigoJam BASIC 20 CLV 30 IF VER()>12233 VIDEO 3 40 INPUT"FILES?",L 50 IF L=0 L=227 60 IF L>99 L=L-100 70 FOR J=0 TO L 80 POKE #800,J*4,3 90 A=#50+(J>63)*4 100 R=I2CR(A,#800,2,#802,27) 110 ? J+100;" "; 120 N=PEEK(#802) 130 IF N=255 GOTO 200 140 I=0 150 POKE #80D,0 160 'IF N=39 I=1 170 C=PEEK(#802+I) 180 IF C ?CHR$(C);:I=I+1: 190 IF C GOTO 170 200 ? 210 K=0 220 IF J%11<>10 K=K+1 230 IF J<>L K=K+1 240 IF K=2 GOTO 260 250 INPUT"MORE?",N 260 NEXT 'OK