home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
87xx
/
8702b.d64
/
editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
89 lines
10 A=A+1:IFA=1THENLOAD"MPKOPIER",8,8
15 IFA=2THENLOAD"ZSATZ",8,8
20 POKE53281,0:POKE2,6:POKE53272,21
21 PRINT"[147][154]LORES EDITOR
30 [153]"BY HELMUT BURGEMEISTER
40 PRINT"1. BILD LADEN
50 [153]"2. BILD SPEICHERN
70 PRINT"3. BILD EINFAERBEN
80 [153]"4. DOS KOMMANDOS
100 POKE198,0:WAIT198,1:GETA$
110 A=VAL(A$)
120 IFA$<"1"ORAA$>"4"THEN100
130 ONAGOTO1000,2000,4000,5000
1000 PRINT"[147]BILD LADEN"
1010 INPUT"BILDNAME";B$
1020 PRINT"MIT FARBE LADEN (J/N)
1030 [141]9000
1040 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]1030
1050 [139]A$[178]"J"[167]FA[178]1:[137]1100
1060 FA[178]0
1100 [151]2,6:[158]828[170]6:[159]2,8,2,B$[170]",P,R":[141]8000:[160]2:[139]A[179][177]0[167]20
1105 [159]2,8,2,B$[170]",P,R":[151]53272,24
1110 [161]#2,A$:[161]#2,A$
1120 [129]T[178]0[164]999
1130 [161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
1140 [151]1024[170]T,[198](A$)
1150 [130]
1160 [160]2:[158]828
1170 [139]FA[178]0[167][137]20
1180 [159]2,8,2,B$[170]".,P,R":[141]8000:[160]2:[139]A[179][177]0[167]20
1185 [159]2,8,2,B$[170]".,P,R"
1190 [161]#2,A$:[161]#2,A$
1200 [129]T[178]0[164]999
1210 [161]#2,A$:[139]A$[178]""[167]A$[178]" "
1220 [151]55296[170]T,[198](A$):[130]:[160]2
1230 [158]828[170]12:[137]20
2000 [153]"LOADBILD SICHERN
2010 INPUT"BILDNAME";B$
2020 PRINT"MIT FARBE SICHERN (J/N)
2030 [141]9000
2040 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]2030
2050 [139]A$[178]"J"[167]FA[178]1:[137]2100
2060 FA[178]0
2100 [158]828[170]3:[159]2,8,2,B$[170]",P,W":[141]8000:[160]2:[139]A[179][177]0[167]20
2105 [159]2,8,2,"@:"[170]B$[170]",P,W":[151]53272,24
2110 [152]2,[199](0);:[152]2,[199](4);
2120 [129]T[178]0[164]999
2140 [152]2,[199]([194](1024[170]T));
2150 [130]:[152]2,[199](13)
2160 [160]2
2170 [139]FA[178]0[167][137]20
2175 [158]828[170]9
2180 [159]2,8,2,B$[170]".,P,W":[141]8000:[160]2:[139]A[179][177]0[167]20
2185 [159]2,8,2,"@:"[170]B$[170]".,P,W"
2190 [152]2,[199](0);:[152]2,[199](216);
2200 [129]T[178]0[164]999
2220 [152]2,[199]([194](55296[170]T));:[130]:[160]2
2230 [137]20
4000 [139]FA[178]0[167][153]"LOADFARBE IM SPEICHER UEBERNEHMEN (J/N)
4002 IFFA=0THENGOSUB9000:IFA$="J"THENFA=1
4010 SYS828+3:POKE2,6:SYS828+6:P=0:F=0:POKE53272,24
4015 IFFA=1THENSYS828+9
4017 X=20:Y=12:C=6:POKE53280,P
4020 H=PEEK(55296+X+40*Y)
4030 IFP=0THENPOKE55296+X+40*Y,H-1
4040 IFP=0THENPOKE55296+X+40*Y,H
4050 IFP=1THENPOKE55296+X+40*Y,F
4053 J=PEEK(56320)
4055 IF(JAND1)=0THENY=Y-1:IFY=-1THENY=0
4060 IF(JAND2)=0THENY=Y+1:IFY=25THENY=24
4070 IF(JAND4)=0THENX=X-1:IFX=-1THENX=0
4080 IF(JAND8)=0THENX=X+1:IFX=40THENX=39
4090 IF(JAND16)=0THENP=1-P:POKE53280,P
4100 IFPEEK(203)=5THENF=F+1
4110 IFPEEK(203)=1THENSYS828+12:GOTO20
4120 IFPEEK(203)=4THENPOKE53281,PEEK(53281)-1
4130 IFPEEK(203)=6THENPOKE2,PEEK(55296)-1:SYS828+6:H=PEEK(2)
4140 IFH>254THENPOKE2,0:H=0
4150 GOTO4020
5000 PRINT"[147]DOS KOMMANDOS
5010 [153]"COMMAND: ";:[151]631,34:[151]198,1:[133]A$
5020 [159]1,8,15:[152]1,A$:[160]1:[141]8000:[137]20
8000 [159]1,8,15:[132]1,A,A$,B,C
8010 [139]A[179][177]0[167][153]"STATUS: "A" "A$" "B" "C
8020 [160]1:[139]A[179][177]0[167][141]9000
8030 [142]
9000 [151]198,0:[146]198,1:[161]A$:[142]
10000 [153][194](203);:[137]10000