;run.me ==1c01==
 1000 rem live free or die, a. gaunt
 1010 :
 1020 trap 1140
 1030 print chr$(14)
 1040 d=peek(186)
 1050 print "{clr}{down}{down}{rvon}  hit a key to pause/resume  {rvof}{down}{down}"
 1060 open 8,d,8,"readme,m,r"
 1070 do until st or ex
 1080 : input#8,a$
 1090 : if a$=chr$(199) then ex=1
 1100 : print a$
 1110 : get x$:if x$<>"" then 1120 :else 1130
 1120 : get x$:if x$<>"" then 1130 :else 1120
 1130 loop
 1140 print ds$:close 8