home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ITALICS-ON-C64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  768 b   |  23 lines
  1. 1 REM      ITALICS FOR THE C64
  2. 5 REM         PUBLIC DOMAIN            .
  3. 7 POKE53281,15:POKE53280,9:POKE646,11
  4. 10 PRINT"[147]      [206]OVELTY...."
  5. 15 PRINT"        [215]AIT FOR [201]TALICS!"
  6. 20 POKE53272,29
  7. 30 AD=55296:T1=12288:T2=13312
  8. 40 POKE56333,127:POKE1,51
  9. 50 FORI=0TO1023:N=PEEK(AD+I)
  10. 60 POKET1+I,N
  11. 70 IF(IAND4)=0THENN=N/2
  12. 80 POKET2+I,N:NEXT
  13. 90 POKE1,55:POKE56333,129
  14. 100 PRINT"     [206]ORMAL CHARACTERS"
  15. 110 PRINT"     [215]ANT ITALIC CHARACTERS!"
  16. 120 PRINT"     [202]UST RUN THIS PROGRAM!"
  17. 130 PRINT"     [208]UT A 'REVERSE ON' BEFORE"
  18. 140 PRINT"     ANY [146]CHARACTER YOU[146] WANT"
  19. 150 PRINT"     IN ITALICS.[146] [208]UT 'REVERSE OFF'
  20. 160 [153]"     WHEN YOU WANT ITALICSWAIT OFF.
  21. 170 PRINT"     [196]ON'T IT[146] MAKE YOU PROUD"
  22. 180 PRINT"     TO OWN[146] A [195]OMMODORE 64?"
  23.