190 PRICHR(14)CHR(31)
 200 FOR I=1 TO 6\FOR X=1 TO 6\B(X,I)=0\NEXT X
 210 NEXT I
 220 FOR I=1 TO 6\B(I,1)=100+I\NEXT I
 225 FOR I=1 TO 6\B(I,6)=200+I\NEXT I
 230 DATA"<1>","<2>","<3>","<4>","<5>","<6>"
 242 FOR I=1 TO 6\READ B$(I)\NEXT I
 245 DATA">1<",">2<",">3<",">4<",">5<",">6<"
 246 FOR I=1 TO 6\READ C$(I)\NEXT I
 247 PRITAB(11);\FOR I=1 TO 12\PRI"---";\NEXT I
 248 PRI
 270 FOR Y=1 TO 6\PRITAB(10);\FOR X=1 TO 6
 272 IF B(X,Y)=300 THEN 290
 274 IF B(X,Y)>=200 THEN 300
 275 IF B(X,Y)>=100 THEN 310
 280 PRI" I    ";\GOTO 350
 290 PRI " I***";\GOTO 350
 300 PRI" I ";C$(INT(B(X,Y)-200));\GOTO 350
 310 PRI" I ";B$(INT(B(X,Y)-100));\GOTO 350
 350 NEXT X
 360 PRI"I"
 370 PRITAB(11);\FOR I=1 TO 12\PRI"---";\NEXT I
 375 PRI\NEXT Y