home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64 / gdm.make (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  456 b   |  18 lines
  1. 10 rem ---------------
  2. 20 rem - make codes  -
  3. 30 rem - erzeugt     -
  4. 40 rem - codetabelle -
  5. 50 rem - fuer gdm    -
  6. 60 rem ---------------
  7. 61 :
  8. 62 rem * t.petrowski 64'er geos kurs *
  9. 63 rem *  version 1.1 vom 23.10.86   *
  10. 70 :
  11. 80 print" diskette einlegen - taste":poke 198,0:wait 198,1
  12. 110 open 2,8,2,"gdm.codes,p,w":print#2,chr$(0)chr$(195);
  13. 130 fort=0 to 255:pr=t
  14. 135 if t<32 or t>122 then pr=46
  15. 150 if t>=97 and t<=122 then pr=pr-32:goto 180
  16. 160 if t>=65 and t<=90 then pr=pr+128
  17. 180 print#2,chr$(pr);:next t:close 2
  18.