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