home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 December / 64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64 / mini-text-hc (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  275 b   |  6 lines
  1. 10 open1,4:print#1,chr$(27)chr$(33)chr$(5)chr$(15)chr$(27)chr$(51)chr$(14);
  2. 20 print#1,chr$(27)chr$(83)chr$(0);"!----------------------------------------!"
  3. 30 print#1,chr$(10)"!";:fori=1to1000:r=peek(i+1023):ifr<32thenr=r+64
  4. 40 print#1,chr$(r);:ifi/40=int(i/40)thenprint#1,"!"chr$(13)chr$(10)"!";
  5. 50 next:print#1,"----------------------------------------!":close1
  6.