home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 34 / 64er_Magazin_Sonderheft_34_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / dia-show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  659b  |  32 lines
  1. 0 rem
  2. 1 rem   ***** dia-show *****
  3. 2 rem
  4. 10 poke53265,0
  5. 11 restore
  6. 12 lo=peek(816)+peek(817)*256
  7. 20 ifa=0thena=1:load"dia-1",8,1
  8. 30 ifa=1thena=2:load"super-dump.obj",8,1
  9. 40 poke53265,peek(53265)or32
  10. 50 poke53270,peek(53270)or16
  11. 60 poke53272,peek(53272)or8
  12. 70 sys37005
  13. 75 readna$,m1,g1,b1:xx$=chr$(129)+"pic ? "+na$
  14. 76 sys(57812)xx$,8,1:poke780,0:syslo
  15. 80 poke53265,59
  16. 90 rem hauptschleife
  17. 100 m=m1:g=g1:b=b1
  18. 102 readna$,m1,g1,b1
  19. 105 ifna$="x"thenrestore:goto102
  20. 110 xx$=chr$(129)+"pic ? "+na$
  21. 130 fa=peek(34576)
  22. 140 poke53280,fa:poke53281,fa
  23. 150 sys36864,32576,1024,1000
  24. 160 sys36864,33576,55296,1000
  25. 170 sys49152,96,32,32,m,g,b
  26. 175 sys(57812)xx$,8,1:poke780,0:syslo
  27. 180 poke198,0:wait198,1
  28. 190 sys49152,64,32,32,m,g,b
  29. 200 goto100
  30. 10000 data"name",100,0,1
  31. 20000 datax,0,0,0
  32.