home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8705.d64 / transformer3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  361b  |  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.