home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / Demo64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  267b  |  12 lines
  1. 90 print"[147]messenger64 must be loaded first"
  2. 95 ford=1to3000:next
  3. 100 m$="this[160]is[160]the[160]top[160]line":rem use shift-space
  4. 110 l=len(m$)
  5. 120 fori=1tol
  6. 130 c=asc(mid$(m$,i,1)):poke828+i-1,c+64
  7. 140 poke828+l+i,1:next
  8. 150 sys51203,2,828,1024,l-1
  9. 160 sys51203,3,828+l+1,55296,l-1
  10. 170 printti
  11. 180 geta$:ifa$=""then170
  12.