home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 195 / 195.d81 / a.input < prev    next >
Encoding:
Text File  |  2000-01-01  |  460 b   |  3 lines
  1.  
  2.  
  3. 49999 rem position cursor and make l9 the length of the input. q9$ = input
  4. 50000 q9$="":poke198,0
  5. 50010 geta$
  6. 50020 poke646,rnd(1)*15+1:print"{CBM-@}";:ifa$=""then50010
  7. 50030 ifa$=chr$(13)thenprint" ":return
  8. 50040 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50090
  9. 50050 iflen(q9$)>=l9then50010
  10. 50060 ifa$<" "or(a$>chr$(127)anda$<chr$(160))ora$=chr$(34)then50010
  11. 50070 q9$=q9$+a$
  12. 50080 print""a$;:goto50010
  13. 50090 print"  ";:goto50010
  14.  
  15. ready.
  16.  
  17.  
  18.