home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 92 / Digital_Talk_92_2011-07_Digital_Talk_de_Side_D.d64 / powerpoint (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  65 lines
  1. 10 rem === powerpoint :-) ===
  2. 20 rem
  3. 22 b(0)=1024:b(1)=15360
  4. 24 c(0)=55296:c(1)=16384
  5. 26 g(0)=53280:g(1)=17384
  6. 28 s(0)=16:s(1)=240
  7. 30 print"[147]"
  8. 40 gosub 4000
  9. 49 m=7
  10. 50 s$(0)="pptlogo"
  11. 51 s$(1)="titel"
  12. 52 s$(2)="cpu"
  13. 53 s$(3)="grafik"
  14. 54 s$(4)="colors"
  15. 55 s$(5)="sound"
  16. 56 s$(6)="emulator"
  17. 57 s$(7)="ende"
  18. 70 sh=0
  19. 80 p=0
  20. 100 rem erstes bild laden
  21. 110 sys49152s$(p)+".gl",g(0)
  22. 120 sys49152s$(p)+".co",c(0)
  23. 130 sys49152s$(p)+".ch",b(0)
  24. 140 p=p+1
  25. 145 if p>m then 5000
  26. 150 if sh=0 then sh=1: goto 200
  27. 160 sh=0
  28. 200 gosub 1000
  29. 210 poke198,0:wait198,1
  30. 240 gosub 1100
  31. 280 goto140
  32. 999 end
  33. 1000 rem === bild nachladen ===
  34. 1010 rem
  35. 1020 sys49152s$(p)+".gl",g(1)
  36. 1030 sys49152s$(p)+".co",c(1)
  37. 1040 sys49152s$(p)+".ch",b(sh)
  38. 1060 return
  39. 1070 rem
  40. 1100 rem === bild wechseln ===
  41. 1110 rem
  42. 1120 poke53272,(peek(53272)and15)or s(sh)
  43. 1130 fori=0to9:sys49182,c(1)+i*100,c(0)+i*100:nexti
  44. 1140 poke53280,peek(g(1)):poke53281,peek(g(1)+1)
  45. 1150 return
  46. 4000 rem === assembler-routinen ===
  47. 4001 rem
  48. 4010 for i=0to67:readd:poke49152+i,d:nexti
  49. 4020 return
  50. 4024 rem
  51. 4025 rem === load ===
  52. 4026 rem sys49152"name",start
  53. 4027 rem
  54. 4030 data32,87,226,162,8,134,186,32,253,174,32,138,173,32,247,183,132,195
  55. 4040 data133,196,160,0,132,185,169,0,76,165,244,96
  56. 4050 rem
  57. 4052 rem === copy100 ===
  58. 4053 rem sys49182,start,ende
  59. 4054 rem
  60. 4060 data32,253,174,32,138,173,32,247,183,132,167,133,168
  61. 4070 data32,253,174,32,138,173,32,247,183,132,169,133,170
  62. 4080 data160,0,177,167,145,169,200,192,100,208,247,96
  63. 5000 poke198,0:wait198,1
  64. 5010 poke53280,14:poke53281,6:poke646,14:print"[147]";:end
  65.