home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug009.arc / POKE.TIP < prev    next >
Text File  |  1979-12-31  |  384b  |  8 lines
  1. 10000 FOR A = 0 TO 63
  2. 10010 POKE 62464 + A,32 : REM 17 LINE OR 62401 16 LINE
  3. 10020 NEXT A
  4. 10030 INPUT A1$ : REM MESSAGE UP TO 64 CHARACTERS
  5. 10040 FOR A = 1 TO LEN (A1$)
  6. 10050 POKE 62463 + A, ASC (A1$ (;A,A))
  7. 10060 NEXT A
  8. 1007░ RE═ LINE╙ 1000░ T╧ 1002░ CLEAR╙ TH┼ LIN┼ FOR MESSAG┼ PRINTING.