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 >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
74 lines
10 rem powerpoint-clone
20 rem ----------------
25 gosub 4000 : rem assembler-teil
30 bg=6:bo=14:poke53280,bo:poke53281,bg
40 input"dateiname laden";fi$
45 input"dateiname speichern";fo$
100 print"[147]"
110 gosub 1000
119 poke53280,14:poke53281,6:poke646,14
120 print"[147]"
130 end
1000 poke204,0:poke198,0:wait198,1:getin$:poke205,2:wait207,1,1:poke204,1
1010 in=asc(in$)
1015 if in=141 then return
1024 rem
1025 rem === farben ===
1026 rem
1030 if in=133 then bo=bo+1:ifbo=16thenbo=0
1040 if in=134 then bg=bg+1:ifbg=16thenbg=0
1050 poke53280,bo:poke53281,bg
1054 rem
1055 rem === cursor ===
1056 rem
1060 if in=145theny=y-1:ify<0theny=0
1065 rem
1070 if in=17theny=y+1:ify>25theny=25
1080 if in=29thenx=x+1:ifx>40thenx=40
1090 if in=157thenx=x-1:ifx<0thenx=0
1100 rem
1101 rem === f-tasten ===
1102 rem
1110 if in=140 then gosub 2000:rem save
1120 if in=136 then gosub 3000:rem load
1900 printin$;
1999 goto 1000
2000 rem === save ===
2010 rem chars from 1024 to 2023
2020 fs$="@:"+fo$+".ch"
2030 sys(49182)fs$,1024,2023
2070 rem
2110 rem chars from 55296 to 56295
2120 fs$="@:"+fo$+".co"
2130 sys(49182)fs$,55296,56295
2170 rem
2210 rem other variables
2220 fs$="@:"+fo$+".gl"
2230 sys(49182)fs$,53280,53281
2270 return
2300 fi$=fo$:rem ladenamen aendern
3000 rem
3001 rem === load ===
3002 rem
3010 sys49152 fi$+".gl",53280
3020 sys49152 fi$+".co",55296
3030 sys49152 fi$+".ch",1024
3050 return
4000 rem === assembler-routinen ===
4001 rem
4010 for i=0to72:readd:poke49152+i,d:nexti
4020 return
4024 rem
4025 rem === load ===
4026 rem sys49152"name",start
4027 rem
4030 data32,87,226,162,8,134,186,32,253,174,32,138,173,32,247,183,132,195
4040 data133,196,160,0,132,185,169,0,76,165,244,96
4049 rem
4050 rem === save ===
4060 rem sys49182"name",start,ende
4065 rem
4070 data32,87,226,162,8,134,186,32,253,174,32,138,173,32,247,183,132,193
4080 data133,194,32,253,174,32,138,173,32,247,183,200,208,3,24,105,1,132,174
4090 data133,175,76,237,245,96