home *** CD-ROM | disk | FTP | other *** search
- 1 REM ITALICS FOR THE C64
- 5 REM PUBLIC DOMAIN .
- 7 POKE53281,15:POKE53280,9:POKE646,11
- 10 PRINT"[147] [206]OVELTY...."
- 15 PRINT" [215]AIT FOR [201]TALICS!"
- 20 POKE53272,29
- 30 AD=55296:T1=12288:T2=13312
- 40 POKE56333,127:POKE1,51
- 50 FORI=0TO1023:N=PEEK(AD+I)
- 60 POKET1+I,N
- 70 IF(IAND4)=0THENN=N/2
- 80 POKET2+I,N:NEXT
- 90 POKE1,55:POKE56333,129
- 100 PRINT" [206]ORMAL CHARACTERS"
- 110 PRINT" [215]ANT ITALIC CHARACTERS!"
- 120 PRINT" [202]UST RUN THIS PROGRAM!"
- 130 PRINT" [208]UT A 'REVERSE ON' BEFORE"
- 140 PRINT" ANY [146]CHARACTER YOU[146] WANT"
- 150 PRINT" IN ITALICS.[146] [208]UT 'REVERSE OFF'
- 160 [153]" WHEN YOU WANT ITALICSWAIT OFF.
- 170 PRINT" [196]ON'T IT[146] MAKE YOU PROUD"
- 180 PRINT" TO OWN[146] A [195]OMMODORE 64?"
-