home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702a.d64 / gdm.make (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  456b  |  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.