home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / input.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  312b  |  12 lines
  1. 60500 c$="":poke198,.:print"[164]";
  2. 60510 fora=1tole+1
  3. 60520 geta$:ifa$=""then43
  4. 60530 ifa$=chr$(13)thenprint"[157] ":return
  5. 60540 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157]";:a=a-1:c$=left$(c$,a-1):goto43
  6. 60550 if(a=le+1)then43
  7. 60560 if(nu)and((a$>="0")and(a$<="9"))then58
  8. 60570 if(al)and((a$>=" "anda$<="/")or(a$>=":"anda$<="z"))then58
  9. 60580 if(al)thenif(a$>="[193]"anda$<="[218]")then58
  10. 60590 goto43
  11. 60595 print"[157]"a$;:poke212,.:print"[164]";:c$=c$+a$:next
  12.