50 CALL shell("cls")
   75 print "res.bas 4-13-2020 Ken run as bwbasic res.bas"
  100 for j = 1 to 22
  200   print j
  300 next j
  400 for j = 1 to 79
  500   print "I";
  600 next j
  610 print "#"