home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 109
/
Tiger_Disk_109_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ml-array64.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
25 lines
5 print"[147]":poke53280,peek(53281)
10 ad=820:rem lade-adresse fuer ml.
20 ford=adtod+179:ready:poked,y:next: rem ml-daten lesen und poken
30 poke53272,23:rem kleinschrift
40 dim bk$(250):rem hoechsten 250 daten- saetze / 12200 bytes
50 f$="":input"[206]ame des [198]iles ";f$
55 iff$=""thenlist10-100:rem nur fuer die, die dieses prg. starten!
60 open8,8,8,f$:rem es muss die file- nr. #8 verwendet werden (lw 8-11)
70 poke150,0:rem bildschirm-ausgabe 0 = ja oder 1 = nein
80 sysad:rem ml-routine aufrufen
90 print:printpeek(179)"daten geladen" :rem anzahl steht in 179
100 end
110 rem ml data
120 data162,8,32,198,255,169,0,133,179,169,0,133,253,169,112,133,254
130 data165,47,133,251,165,48,133,252,160,0,177,251,201,66,240,9,200
140 data208,247,230,252,208,243,240,72,200,208,2,230,252,177,251,201,203
150 data240,2,208,228,162,9,200,208,2,230,252,202,208,248,152,24,101
160 data251,133,251,144,2,230,252,165,253,133,176,165,254,133,177,160,0
170 data32,207,255,166,144,134,178,208,29,166,150,208,3,32,210,255,201
180 data13,240,18,145,176,200,208,231,230,177,208,227,32,204,255,169,8
190 data32,195,255,96,132,155,152,24,101,176,133,176,144,2,230,177,160
200 data0,165,155,145,251,200,165,253,145,251,200,165,254,145,251,200,152
210 data24,101,251,133,251,144,2,230,252,165,176,133,253,165,177,133,254
220 data230,179,166,178,208,194,160,0,240,161