home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
basic-tips .txt
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
74 lines
basic-tips
ein paar von robin hood...
5
hy folx ! damit der liebe zeitgeist
ein bisschen zeit spart{CBM--}hier auch noch
'nen paar basic-tips von mir {SHIFT-+}
input l@nger als ein zeile
{CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
nach einem alten rom-fehler kann eine
input-zeile nicht l@nger als eine
zeile (40 zeichen) sein.hier nun die
l[sung der problems {SHIFT-+}
{CBM-Q} poke19{CBM--}64{SHIFT-+}inputa${SHIFT-+}poke19{CBM--}0
diskettennamen auslesen
{CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
10 open1{CBM--}8{CBM--}15{CBM--}"i"
20 open2{CBM--}8{CBM--}2{CBM--}"#"
30 ?#1{CBM--}"m-r"chr$(144)chr$(7)chr$(16)
40 input#1{CBM--}a$
50 close2{SHIFT-+}close1
{CBM-P}{CBM-A} das fragezeichen in zeile 30 ist
{CBM-E}{CBM-R} die abk]rzung des print-befehls.
freie blocks lesen
{CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
10 open1{CBM--}8{CBM--}15{CBM--}"i"
20 ?#1{CBM--}"m-r"chr$(250)chr$(2)chr$(3)
30 get#1{CBM--}a${CBM--}b${CBM--}b$
40 a=asc(a$+chr$(0)+256*asc(b$+chr$(0))
50 close1:print a
{CBM-P}{CBM-A} auch hier wurde mit dem frage -
{CBM-E}{CBM-R} zeichen als print-abk]rzung ge-
arbeitet.
speichern/laden eines bereiches
{CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
sys57812 "NAME" {CBM--}8
poke174{CBM--} low-ende
poke175{CBM--} high-ende
poke193{CBM--} low-start
poke194{CBM--} high-start
sys62957
sys57812 "NAME" {CBM--}8
poke780{CBM--}0{SHIFT-+}poke781{CBM--}low-start
poke782{CBM--}high-start
sys57717
das war's soweit....hier noch ein
kleiner tip zur berechnung von low-
und high-byte{CBM--}der euch f]r das laden
oder speichern eines bereiches n]tzen
kann {SHIFT-+}
HIGH = int(adresse/256)
LOW = adresse-high*256
that's it{CBM--}
ROBIN HOOD