home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 11 / Tiger_Disk_011_19xx_Tiger-Crew-Disk_de_Side_B.d64 / zs-anzeiger (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 5 poke53280,12:poke53281,12:poke646,1:print"[147]"
  2. 10 print"mit dem nachfolgenden programm, das du"
  3. 11 print"als unterprogramm an dein proggi an-"
  4. 12 print"haengen kannst, kannst du einen zeichen-satz, den du mit dem zs-generator"
  5. 13 print"erstellt hast, laden und anzeigen."
  6. 14 print"dazu loesche alle zeilen bis 19999      und befolge die nach dem file"
  7. 15 print"unter 'rem' angegebenen anweisungen!"
  8. 16 print"mit den zeilen ab  20200  kannst du     durch 'gosub'-aufruf"
  9. 17 print"den zeichensatz wieder ausschalten!     ('return' nach umschaltung!)"
  10. 18 print"zum anzeigen drueck jetzt 'return',     zum beenden 'space'!"
  11. 19 a$="":geta$:ifa$<>chr$(13)anda$<>" "then19
  12. 20 ifa$=" "thenend
  13. 21 ifa$=chr$(13)andan=0then20000
  14. 22 ifa$=chr$(13)andan=1thenan=2:gosub20200:goto10
  15. 23 ifa$=chr$(13)andan=2thenend
  16. 20000 rem laden des zeichensatzes
  17. 20001 :
  18. 20005 poke 56,127:poke55,0:clr:rem basic grenze
  19. 20010 na$="schlitz"
  20. 20011 :
  21. 20020 sys 57812 "0:"+na$+".zsa,s,r",8:rem filename und geraete adresse
  22. 20030 poke 782,136: rem hi  startadresse
  23. 20040 poke 781,  0: rem lo  startadresse
  24. 20050 poke 780,0  : rem load/v. flag
  25. 20060 sys 65493   : rem load-routine
  26. 20080 v=53248
  27. 20090 poke 56576,peek(56576) and 253
  28. 20100 poke v+24,2*1+16*0
  29. 20105 rem 'poke 648,4' dann ist alles wieder normal!
  30. 20110 poke 648,128:print"[147]"
  31. 20120 ze=34816:rem 8800h  zeichensatz
  32. 20130 bi=32768:rem 8000h  bildschirm
  33. 20135 :
  34. 20140 an=1:goto 10 : rem 'an' bitte                               loeschen!
  35. 20150 :
  36. 20200 rem   normal
  37. 20210 poke648,4 :print"[147]"
  38. 20220 poke 53248+24,21
  39. 20230 poke 56576,151
  40. 20240 return
  41. 20250 rem  ----------------------------
  42. 20260 rem ------------------------------
  43. 20270 rem  in zeile 20140 wird anstatt
  44. 20280 rem  '10'  die ruecksprung-zeile
  45. 20290 rem          eingegeben
  46. 20295 rem  ---------------------------
  47. 20296 rem ------------------------------
  48. 20300 rem  in zeile 20010 wird der
  49. 20310 rem  filename des zeichensatzes
  50. 20320 rem  eingetragen, der geladen
  51. 20330 rem  werden soll    (anstelle
  52. 20400 rem                 'schltz')
  53. 20410 rem  ---------------------------
  54. 20420 rem  -----------------------------
  55. 20430 rem  die 'rem'-zeilen im programm
  56. 20440 rem  kannst du natuerlich auch
  57. 20450 rem  komplett entfernen!
  58. 20455 rem
  59. 20460 rem  ---------------------------
  60. 20470 rem  ---------------------------
  61.