home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8605.d64 / zviza (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  1KB  |  26 lines

  1. 1 REM *********************************       *          ZVIZA                *
  2. 2 REM *     ZEICHENSATZ FUER          *       *     VIZAWRITE (ENGL.)         *
  3. 3 REM *      BERTRAM HAFNER           *       *********************************
  4. 10 I=I+1:READA:IFA=-1GOTO12
  5. 11 POKE49200+I,A:GOTO10
  6. 12 POKE49200+I,1
  7. 15 POKE160,0:POKE161,0:POKE162,0           :REM TIMER AUF 0 STELLEN
  8. 20 POKE789,192                             :REM START DES MASCHINENPRG
  9. 30 LOAD"VIZAWRITE 64",8,1
  10. 100 DATA165,161,201,12,240,3,76,49,234,162,0,189,100,192,201,1,240,25,133,251
  11. 101 DATA232,189,100,192,133,252,232,160,0,189,100,192,145,251,232,200,192,8
  12. 102 DATA48,245,76,60,192,169,234,141,21,3,76,49,234
  13. 200 REM  NEUE ZEICHEN FUER BILDSCHIRM            ****************************
  14. 210 REM  EINGABEFORMAT DER 10 DATAS:             ZIELADR LOW,HI,8 BYTES
  15. 211 REM  BERECHNUNG DER ZIELADRESSE:             BC=BILDSCHIRMCODE DES ZU
  16. 212 REM  ERSETZENDEN ZEICHENS (SATZ 2)           ZIELADR=BC*8+56*256
  17. 213 REM  HI = INT(ZIELADR/256)                   LOW= ZIELADR-HI*256
  18. 220 DATA0,56,102,0,60,6,62,102,62,0         :REM KLEIN AE FUER @
  19. 230 DATA224,56,102,0,60,102,102,102,60,0    :REM KLEIN OE FUER \
  20. 240 DATA216,56,102,24,60,102,126,102,102,0  :REM GROSS AE FUER [
  21. 250 DATA232,56,51,102,102,102,102,102,60,0  :REM GROSS UE FUER ]
  22. 260 DATA240,56,0,60,102,108,102,102,108,96  :REM SCHARF S FUER ^
  23. 270 DATA80,57,102,0,102,102,102,102,59,0    :REM KLEIN UE FUER *
  24. 280 DATA240,58,0,0,3,62,118,54,54,0         :REM (null) FUER SHIFT ^
  25. 500 DATA-1:REM FLAG FUER ENDE
  26.