home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / gdm.make (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  370b  |  17 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
  9. 70 :
  10. 80 PRINT" DISKETTE EINLEGEN - TASTE":POKE198,0:WAIT 198,1
  11. 110 OPEN2,8,2,"GDM.CODES,P,W":PRINT#2,CHR$(0)CHR$(195);
  12. 130 FOR T=0TO255:PR=T
  13. 135 IFT<32ORT>122THEN PR=46
  14. 150 IFT>=97AND T<=122THEN PR=PR-32:GOTO180
  15. 160 IFT>=65ANDT<=90 THEN PR=PR+128
  16. 180 PRINT#2,CHR$(PR);:NEXTT:CLOSE2
  17.