home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / PRINT 24_40 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  352 b   |  10 lines
  1. 5 printchr$(147)"print 24/40 **** erase 24/40":rem for demo only
  2. 10 a$="is this the bottom line or what?"
  3. 15 gosub2000:forw=0to1000:next:gosub3000:end
  4. 2000 b$=left$(a$,len(a$)-2)+right$(a$,1)
  5. 2005 poke214,24:poke211,(40-len(a$)):sys58732
  6. 2010 printb$+chr$(157)chr$(148)+mid$(a$,len(a$)-1,1)+chr$(19):return
  7. 3000 poke214,24:poke211,0:sys58732
  8. 3005 print"                                       "chr$(20)chr$(32)chr$(19)
  9. 3010 return
  10.