home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_B.d64 / dia-show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  903b  |  41 lines
  1. 1800 ifa<3thenprint"[147]       bitte einen moment warten !"chr$(8)
  2. 1900 ifa=0thena=1:load"hires-effekt 1",8,1
  3. 2000 ifa=1thena=2:load"bild 1 .pic*  ",8,1
  4. 2100 ifa=3thena=4:goto6900
  5. 2200 ifa=4then7000
  6. 2300 ifa=5thena=6:goto7500
  7. 2400 poke52,32:poke56,32
  8. 2500 e1=0:e2=64:l1=0:l2=33:byte=255
  9. 2600 gosub11600
  10. 5300 poke781,12:sys59903
  11. 5400 fori=0to12
  12. 5500 poke781,12+i:sys59903
  13. 5600 poke781,12-i:sys59903
  14. 5700 fort=1to60:next
  15. 5800 next
  16. 5900 poke53281,4
  17. 6000 poke53265,59
  18. 6100 poke53272,27
  19. 6200 poke53270,216
  20. 6300 e1=0:e2=220:l1=0:l2=5:byte=7
  21. 6400 gosub11600
  22. 6500 e1=0:e2=8:l1=0:l2=5:byte=2
  23. 6600 gosub11600
  24. 6700 sys828,8192,17,1
  25. 6800 a=3:load"hires-effekt 2",8,1
  26. 6900 i=1
  27. 7000 sys828,40960,8192,i*int(6*rnd(0))+1
  28. 7100 a$="bild"
  29. 7200 i=i+1:ifi>13thenpoke53270,200
  30. 7300 ifi<19thena$=a$+str$(i)+"*":loada$,8,1
  31. 7400 a=5:load"hires-effekt 1",8,1
  32. 7500 sys828,8192,9,0
  33. 7600 poke53265,27:poke53270,200:poke53272,21
  34. 11000 restore:fori=1to5:reada
  35. 11100 e1=0:e2=220:l1=0:l2=5:byte=a
  36. 11200 gosub11600
  37. 11300 fort=1to160:next:next
  38. 11400 data1,15,12,11,0
  39. 11500 print"[147]":end
  40. 11600 poke88,e1:poke89,e2:poke113,l1:poke114,l2:poke780,byte:poke12,1:sys45764:return
  41.