home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 128 / Tiger_Disk_128_20xx_Tiger-Crew-Disk_de_Side_B.d64 / boot.laufschrift (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  27 lines
  1. 10 ifpeek(49152)<>120andpeek(49155)<>141thenload"ls/td+*",8,1
  2. 20 poke53280,6:poke53281,6:printchr$(14):poke646,1:print"[147]":sys49152
  3. 30 a$="[204]aufschrift-[196]emo":p=(len(a$)/2):print""spc(20-p)a$
  4. 40 a$="[194][217]":p=(len(a$)/2):print""spc(20-p)a$
  5. 50 a$="[212]iger-[196]isk":p=(len(a$)/2):print""spc(20-p)a$
  6. 60 a$="in  2004":p=(len(a$)/2):print""spc(20-p)a$:gosub230
  7. 70 print"[218]ur [194]edienung des [204]aufschriftgenerators ist eigentlich nichts weiter ";
  8. 80 print"zu sagen...:":print"[196]as [208]rogramm ist auf deutsch!"
  9. 90 print"[196]ass [196]u [196]eine erstellte [204]aufschrift von [196]einem [208]rogramm aus mit"
  10. 100 a$=chr$(34)+",8,1"+chr$(34):p=(len(a$)/2):printspc(20-p)a$
  11. 110 print"laden und mit "chr$(34)"sys49152"chr$(34)" starten kannst,";
  12. 120 print"erfaehrst [196]u im [208]rogramm nach dem [211]pei- chern [196]eines [204]aufschrift-[198]iles..."
  13. 130 print"[194]leibt uns also nur, [196]ir [214][201][197][204][160][211][208][193][211][211]     mit diesem [208]rogramm zu wuenschen!"
  14. 140 a$=" [212][201][199][197][210][195][210][197][215] ":p=(len(a$)/2):print""spc(20-p)a$
  15. 150 gosub230:goto160
  16. 160 print"[208][211]: [203]leiner [212]ip noch...!:":print"[196]a beim [194]ildschirm-[204]oeschen mit"
  17. 170 a$=chr$(34)+"chr$(147)"+chr$(34):p=(len(a$)/2):printspc(20-p)a$
  18. 180 print"([211][200][201][198][212]+[195][204][210]/[200][207][205][197]) auch die [204]aufschrift   geloescht wird, empfiehlt es ";
  19. 190 print"sich,":print"das [204]oeschen mit der in diesem [208]rogramm enthaltenen [210]outine ";
  20. 200 print"vorzunehmen...!":print"[194][197][193][195][200][212][197][206] solltest [196]u auch, dass [196]u den"
  21. 210 print"[194]ildschirm nicht bis zur letzten [218]eile  nutzen kannst...!"
  22. 220 gosub230:goto30
  23. 230 getx$:ifx$=""then230
  24. 240 ifx$="e"thensys64738
  25. 250 forx=0to21:poke781,x:sys59903:next:print"";
  26. 260 return
  27.