home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 1
/
Publication_01_19xx_-_de_Side_A.d64
/
mag.019.CCCCCCC.
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
60 lines
4
f]r coder
pull-down-men]s
f]r diese erste ausgabe siehts mager
aus f]r den coder-corner.
diesmal gibt es nur eine routine f]r
sogenannte pull-down-men]s{CBM--}d.h. men]s
bei denen man per balken einen men]-
punkt ausw@hlt.
nicht gerade viel{CBM--}ich weiss{CBM--}aber ich
muss noch 100-te anderer artikel
(]bertreib{CBM--}]bertreib) schreiben !
n@chstes mal gibt's mehr.
bei fragen {CBM-+} schreiben !!!
{CBM-P}{CBM-A} PULL-DOWN-MEN{SHIFT-POUND}S
{CBM-E}{CBM-R} {CBM-Q}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-Z}
variablen {SHIFT-+}
{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
an = anzahl men]punkte
m$(x) = men]punkt x
mf = men]farbe
q = akt.farbwert
das men] arbeitet mit flash{CBM--}wie auch
in den PUBLICATION-men]s !
nach return steht in der variable "a"
der gew@hlte men]punkt.
10 printchr$(147){SHIFT-+}a=1{SHIFT-+}q=-1{SHIFT-+}poke646,mf{SHIFT-+}
forg=1toan{SHIFT-+}print" "m$(g){SHIFT-+}nextg
20 q=q+1{SHIFT-+}poke646{CBM--}q:ifq=16thenq=0
30 poke211{CBM--}1{SHIFT-+}poke214{CBM--}a{SHIFT-+}sys58640{SHIFT-+}
printm$(a)
40 geta${SHIFT-+}ifa$=""then20
50 poke211{CBM--}1{SHIFT-+}poke214{CBM--}a{SHIFT-+}sys58640{SHIFT-+}
poke646{CBM--}mf{SHIFT-+}printm$(a)
60 ifa$="{CBM-K}"then
ifa>1thena=a-1
70 ifa$="{CBM-I}"then
ifa<anthena=a+1
80 ifa$="ReturN"thenreturn
90 goto 20
soweit eine kleine men]routine.dazu
ist auf diskette ein beispielprogramm.
nat]rlich muss die routine noch aus-
gebaut werden{CBM--}aber das kann jetzt ja
jeder nach seinen individuellen be-
d]rfnissen.
wichtig w@ren zum beispiel men]koordi-
naten !!! man k[nnte ausserdem das
ganze mit einer rahmenroutine koppeln{CBM--}
die jedes men] einrahmt.
man kann auch den aktuellen men]punkt
invers machen{CBM--}so dass ein men]balken
flimmert.
probiert mal ein bisschen dran rum !