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 >
Wrap
Commodore BASIC
|
2022-10-26
|
456b
|
18 lines
10 rem ---------------
20 rem - make codes -
30 rem - erzeugt -
40 rem - codetabelle -
50 rem - fuer gdm -
60 rem ---------------
61 :
62 rem * t.petrowski 64'er geos kurs *
63 rem * version 1.1 vom 23.10.86 *
70 :
80 print" diskette einlegen - taste":poke 198,0:wait 198,1
110 open 2,8,2,"gdm.codes,p,w":print#2,chr$(0)chr$(195);
130 fort=0 to 255:pr=t
135 if t<32 or t>122 then pr=46
150 if t>=97 and t<=122 then pr=pr-32:goto 180
160 if t>=65 and t<=90 then pr=pr+128
180 print#2,chr$(pr);:next t:close 2