home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 92 / Digital_Talk_92_2011-07_Digital_Talk_de_Side_D.d64 / pptedit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  74 lines
  1. 10 rem powerpoint-clone
  2. 20 rem ----------------
  3. 25 gosub 4000 : rem assembler-teil
  4. 30 bg=6:bo=14:poke53280,bo:poke53281,bg
  5. 40 input"dateiname laden";fi$
  6. 45 input"dateiname speichern";fo$
  7. 100 print"[147]"
  8. 110 gosub 1000
  9. 119 poke53280,14:poke53281,6:poke646,14
  10. 120 print"[147]"
  11. 130 end
  12. 1000 poke204,0:poke198,0:wait198,1:getin$:poke205,2:wait207,1,1:poke204,1
  13. 1010 in=asc(in$)
  14. 1015 if in=141 then return
  15. 1024 rem
  16. 1025 rem === farben ===
  17. 1026 rem
  18. 1030 if in=133 then bo=bo+1:ifbo=16thenbo=0
  19. 1040 if in=134 then bg=bg+1:ifbg=16thenbg=0
  20. 1050 poke53280,bo:poke53281,bg
  21. 1054 rem
  22. 1055 rem === cursor ===
  23. 1056 rem
  24. 1060 if in=145theny=y-1:ify<0theny=0
  25. 1065 rem
  26. 1070 if in=17theny=y+1:ify>25theny=25
  27. 1080 if in=29thenx=x+1:ifx>40thenx=40
  28. 1090 if in=157thenx=x-1:ifx<0thenx=0
  29. 1100 rem
  30. 1101 rem === f-tasten ===
  31. 1102 rem
  32. 1110 if in=140 then gosub 2000:rem save
  33. 1120 if in=136 then gosub 3000:rem load
  34. 1900 printin$;
  35. 1999 goto 1000
  36. 2000 rem === save ===
  37. 2010 rem chars from 1024 to 2023
  38. 2020 fs$="@:"+fo$+".ch"
  39. 2030 sys(49182)fs$,1024,2023
  40. 2070 rem
  41. 2110 rem chars from 55296 to 56295
  42. 2120 fs$="@:"+fo$+".co"
  43. 2130 sys(49182)fs$,55296,56295
  44. 2170 rem
  45. 2210 rem other variables
  46. 2220 fs$="@:"+fo$+".gl"
  47. 2230 sys(49182)fs$,53280,53281
  48. 2270 return
  49. 2300 fi$=fo$:rem ladenamen aendern
  50. 3000 rem
  51. 3001 rem === load ===
  52. 3002 rem
  53. 3010 sys49152 fi$+".gl",53280
  54. 3020 sys49152 fi$+".co",55296
  55. 3030 sys49152 fi$+".ch",1024
  56. 3050 return
  57. 4000 rem === assembler-routinen ===
  58. 4001 rem
  59. 4010 for i=0to72:readd:poke49152+i,d:nexti
  60. 4020 return
  61. 4024 rem
  62. 4025 rem === load ===
  63. 4026 rem sys49152"name",start
  64. 4027 rem
  65. 4030 data32,87,226,162,8,134,186,32,253,174,32,138,173,32,247,183,132,195
  66. 4040 data133,196,160,0,132,185,169,0,76,165,244,96
  67. 4049 rem
  68. 4050 rem === save ===
  69. 4060 rem sys49182"name",start,ende
  70. 4065 rem
  71. 4070 data32,87,226,162,8,134,186,32,253,174,32,138,173,32,247,183,132,193
  72. 4080 data133,194,32,253,174,32,138,173,32,247,183,200,208,3,24,105,1,132,174
  73. 4090 data133,175,76,237,245,96
  74.