home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / zeichens.lader (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  1KB  |  26 lines
  1. 0 GOTO10
  2. 1 *********************************
  3. 2 *    CHARAKTER-DESIGNER C=64    *
  4. 3 *   *** ZEICHENSATZ LADER ***   *
  5. 4 * VON  MATTHIAS MEYER           *
  6. 5 *                               *
  7. 6 * WINKELWEG 24                  *
  8. 7 * 5505 WASSERLIESCH  BEI TRIER  *
  9. 8 * TEL.06501/14891               *
  10. 9 *********************************
  11. 10 IFA=0THEN100: REM SCHON GELADEN ?
  12. 20 POKE53248+24, 29: REM  CHARAKTERSATZ EINSCHALTEN
  13. 30 PRINT"MULTICOLOR (J/N) ";:POKE198,0: WAIT198,1:GETMU$: POKE198,0
  14. 40 IFMU$="J"THEN POKE VIC+22, 216: GOTO 60: REM  CHA. AUF MULTICOLOR SCHALTEN
  15. 50 IFMU$<>"N"THEN PRINT: GOTO30: REM  BEI FALSCHER TASTE ZURUECK
  16. 60 PRINTMU$: END: REM  ENDE
  17. 70 REM  FUER MULTICOLOR GELTEN NUR DIE FARBEN 8-16 !!
  18. 80 REM  DIE ANDEREN FARBEN WERDEN IN REG 34 UND 35 FESTGELEGT
  19. 90 --- LADEN DES ZEICHENSATZES ---
  20. 100 POKE56, 3*16: POKE 55, 0: CLR: REM  ENDE DES BASIK RAM AUF $3000 SETZEN
  21. 110 VIC = 53248:REM  VIC GRUNDADRESSE
  22. 120 POKEVIC+32,9: POKEVIC+33,7: PRINT"[147][158]":POKEVIC+33,9: REM  FARBEN SETZEN
  23. 130 INPUT"CHARAKTERSATZ NAME";NA$: REM  NAME DES CHARAKTERSATZES
  24. 140 NA$=""+NA$: REM  DAS ERKENNUNGSZEICHEN FUER EIN CHA.SATZ VOR DEN NAMEN
  25. 150 A = 1:LOAD NA$ ,8,1: REM  CHA.SATZ VON FLOPPY LADEN
  26.