home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 9 / Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_B.d64 / furz-ende (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  889b  |  25 lines
  1. 10 printchr$(147):poke53280,0:poke53281,0
  2. 270 iflfthen420:poke52,32:poke56,32:clr
  3. 310 fori=828to922:reada:pokei,a:nexti
  4. 320 printchr$(147)
  5. 323 print""
  6. 324 print" furzeditor-programmende loading....."
  7. 400 lf=1:load"furz-bild",8,1
  8. 420 sys 828:vc=53248
  9. 430 pokevc+17,59:pokevc+22,216:pokevc+24,24:pokevc+32,6:pokevc+32,0:pokevc+33,0
  10. 517 geta$
  11. 518 ifa$=chr$(13)then530
  12. 519 ifa$=chr$(32)then530
  13. 520 goto517
  14. 530 sys 64738
  15. 540 rem  *** verschiebe-programm in maschinensprache ***
  16. 550 :
  17. 560 data 169, 96, 133, 168, 169, 32, 133, 170, 160, 0, 132, 167
  18. 570 data 132, 169, 162, 32, 177, 167, 145, 169, 200, 208, 249, 230
  19. 580 data 168, 230, 170, 202, 208, 242, 169, 127, 133, 168, 169, 4
  20. 590 data 133, 170, 160, 64, 132, 167, 160, 0, 132, 169, 162, 4
  21. 600 data 177, 167, 145, 169, 200, 208, 249, 230, 168, 230, 170, 202
  22. 610 data 208, 242, 169, 131, 133, 168, 169, 216, 133, 170, 160, 40
  23. 620 data 132, 167, 160, 0, 132, 169, 162, 4, 177, 167, 145, 169
  24. 630 data 200, 208, 249, 230, 168, 230, 170, 202, 208, 242, 96
  25.