NEW VIDEO 1 ?"PANCAKE VIDEO 00 ?"PANCAKE RESET 10 'PanCake COLOR LIST - STAMP1 20 VIDEO 0 25 IF VER()>11000 UART 1 30 ?"PANCAKE VIDEO 01 40 ?"PANCAKE CLEAR 00 50 FOR C=0 TO 15 60 A=(C%4)*20 70 B=(C/4)*11 80 FOR X=0 TO 16 STEP 8 90 FOR Y=0 TO 8 STEP 8 100 ?"PANCAKE STAMP1 "; 110 ? HEX$(X+A,2);" "; 120 ? HEX$(Y+B,2);" "; 130 ? HEX$(C,2);" "; 140 ? "FFFFFFFFFFFFFFFF 145 'WAIT 8:'1.0 RC 150 NEXT 160 NEXT 170 NEXT 180 IF INKEY()=0 GOTO 180 190 ?"PANCAKE VIDEO 00 200 VIDEO 1 'OK