home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 128 / Tiger_Disk_128_20xx_Tiger-Crew-Disk_de_Side_B.d64 / laufschriftgen. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  60 lines
  1. 0 rem *************************
  2. 1 rem *                       *
  3. 2 rem * laufschrift ansehen : *
  4. 3 rem *                       *
  5. 4 rem * poke 1018,0:sys49152  *
  6. 5 rem *                       *
  7. 6 rem *************************
  8. 10 poke53272,23:poke53280,0:poke53281,0
  9. 50 print"[147][204]ese [196]aten ein.....[194]itte warten [211]ie....."
  10. 60 fori=56256to56295:pokei,1:next
  11. 8999 rem **** maschinensprache ****
  12. 9000 data120,169,31,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
  13. 9010 data186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7,173
  14. 9020 data13,220,88,76,49,234,173,84,195,201,6,240,16:rem _laenge 1.unterprg.
  15. 9040 data169,6,141,84,195,169,1,141,18,208
  16. 9041 data32,0,193,76,188,254
  17. 9090 data169,0,141,84,195,169,231,141,18,208
  18. 9091 data169,200,141,22,208,76,188,254
  19. 9210 data120,169,49,141,20,3,169,234,141,21,3,169,240,141,26,208,88,96
  20. 9300 fori=49152to49256:readq:pokei,q:next
  21. 9400 data174,251,3,202,142,251,3,142,22,208,224,255,240,1,96,162,7,142,251,3
  22. 9410 data142,22,208,162,0,189,193,7,157,192,7,232,224,39,208,245,174,250,3,232
  23. 9420 data142,250,3,189,0,194,141,231,7,96
  24. 9500 fori=49408to49457:readq:pokei,q:next:poke1019,0:poke1018,0
  25. 9999 print"[147]"
  26. 10000 print"[158]  [204]aufschriftgenerator von s.[199]oebbels":print"[205]enue:"
  27. 10001 print"-1- [197]rstellen der [204]aufschrift"
  28. 10002 print"-2- [193]nsehen der [211]chrift"
  29. 10003 print"-3- [211]peichern ([196]isk)"
  30. 10004 print"-4- [193]endern des [212]extes"
  31. 10005 input"[201]hre [215]ahl ";a
  32. 10006 ifa=1thensys49239:poke53270,200:goto20000
  33. 10007 ifa=2thenpoke1018,0:print"[147]":sys49152:goto10000
  34. 10008 ifa=3thensys49239:poke53270,200:goto30000
  35. 10009 ifa=4thensys49239:poke53270,200:goto40000
  36. 10010 goto9999
  37. 20000 print"[147][196]er [212]ext darf max. etwas laenger als 6"
  38. 20001 print"[218]eilen sein. (max. 256 [218]eichen)"
  39. 20002 print"[215]enn [211]ie den [212]ext eingegeben haben,"
  40. 20003 print"[196]ruecken [211]ie bitte [210]eturn."
  41. 20004 input"[212]ext ";a$:a$="":gosub48000:goto9999
  42. 30000 print"[147]":input"[198]ilenamen ";a$:ifa$=""then30000
  43. 30001 print"[194]itte warten..."
  44. 30009 open1,8,1,a$
  45. 30010 print#1,chr$(0);chr$(192);:fori=49152to49664+255:w=peek(i)
  46. 30020 print#1,chr$(w);:nexti:close1
  47. 30030 print"[196]as eben erzeugte [208]rogramm koennen [211]ie"
  48. 30031 print"spaeter absolut laden und mit [211][217][211]49152"
  49. 30032 print"aktivieren."
  50. 30033 printtab(32)"[210]eturn"
  51. 30034 geta$:ifa$=""then30034
  52. 30035 goto9999
  53. 40000 print"[147][211]ie koennen den unten stehenden [212]ext"
  54. 40001 print"aendern. [193]chten [211]ie jedoch auf das auto-"
  55. 40002 print"matische [218]eilenscrolling. [196]ruecken [211]ie"
  56. 40003 print"[159][210][197][212][213][210][206] um zu enden."
  57. 40004 fori=0to255:poke1344+6+i,peek(49664+i):next
  58. 40005 print"":input"[212]ext ";a$:gosub48000:goto9999
  59. 48000 fori=0to255:poke49664+i,peek(1024+i+8*40+6):next:return
  60.