2790 GOSUB 1180: PRINT : PRINT D$"PR#1": FOR I = 1 TO 3 *N%: PRINT : NEXT : PRINT E$"1":TM = 5 +20/(N% *N%)
2800 FOR BY = 39 TO 0 STEP -1: PRINT CR$;: POKE 36,TM:K = -1: FOR TR = 0 TO 80 STEP 40: FOR OC = 0 TO 896 STEP 128: FOR FL = 0 TO 7168 STEP 1024:K = K +1