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