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