home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 May / 64er_Magazin_87-05_1987_Markt__Technik_de.d64 / transformer3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  361 b   |  19 lines
  1. 100 if a=1 then sys 49214:end
  2. 110 poke 53280,0:poke 53281,0
  3. 120 print "[147][152]":print chr$ (14)
  4. 130 poke 55,255:poke 56,15:clr
  5. 140 let a=1
  6. 150 input "[214][201][218][193]-[196]atei";v$
  7. 160 if len (v$)>11 then goto 150
  8. 170 for i=1 to len (v$)
  9. 180 poke 827+i,asc (mid$ (v$,i,1))
  10. 190 next i:print
  11. 200 poke 868,len (v$)
  12. 210 let v$=v$+"            "
  13. 220 let v$=left$ (v$,11)
  14. 230 let v$=v$+".tx00,p,w"
  15. 240 for i=1 to 20
  16. 250 poke 847+i,asc (mid$ (v$,i,1))
  17. 260 next i
  18. 270 load "tr3obj",8,1
  19.