home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
geos
/
geos28.d64
/
pattn-editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-08-05
|
5KB
|
160 lines
10 REM" [212]HE [199]EOS [208]ATTERN [197]DITOR
20 [143]" BY (null)WE (null)HATCHIKIAN
30 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
40 [143]" (null)ATN(null)(null)(null)-VALSTR$RIGHT$(null)(null)(null) --- (null)ERSION 1.3STR$
50 REM"
60 [143]" STR$ATE: 04/27/87 (null)IME:16:00 (null)(null)
70 REM"
80 [143]" (STR$VAL(null)(null)(null)LENLEFT$VAL (null)VAL(null)(null)RIGHT$(null)(null))
90 :
100 POKE53272,21
102 PRINT "[157][157][157][157][157][157][157][157] WARTEN [146]"
104 POKE53280,6:POKE53281,14
106 POKE52,48:POKE56,48:CLR
108 POKE56334,PEEK(56334)AND254
110 POKE1,PEEK(1)AND251:V=1:W=1
112 FORI=0TO30:READB:POKE49152+I,B:NEXT
114 DATA160,7,152,9,48,141,23,192,152
116 DATA105,8,9,208,141,20,192,162,0
118 DATA189,0,216,157,0,48,232,208,247
120 DATA136,16,228,96
122 SYS49152:POKE1,PEEK(1)OR4:FORI=0TO7:H(I)=2^I:NEXT:POKE650,128
124 POKE56334,PEEK(56334)OR1
126 POKE53272,(PEEK(53272)AND240)+12
128 PRINT"[147] [199]EOS [208]ATTERN [197]DITOR BY [213]WE [203]HATCHIKIAN [146]"
129 PRINT"[195]OPYRIGHT 1987 BY [205]ARKT & [212]ECHNIK, 64'ER"
130 PRINT" [194]ITTE EINE [199][197][207][211]-[196]ISKETTE EINLEGEN, DIE DAS [208]ROGRAMM [195][200][199] [208][193][212][212][206][211] ";
132 PRINT"ENTHAELT,":PRINT" UND <[210][197][212][213][210][206]> DRUECKEN"
134 GETA$:IFA$<>CHR$(13)THEN134
136 PRINT"[147] [195][200][199] [208][193][212][212][206][211] WIRD GESUCHT. [194]ITTE WARTEN. [146]"
137 :
138 REM"[192][192][192][192][192][192] [211]EARCH [195][200][199] [208][193][212][212][206][211] [192][192][192][192][192][192]
139 :
144 DS[178]1:P[178]1:[159]1,8,15:[159]2,8,2,"#"
146 [152]1,"U1 2 0 18";DS
148 [161]#2,NT$:[161]#2,NS$:NT$[178]NT$[170][199](0)
150 [129]I[178]0[164]7:[153]"";P
152 [152]1,"B-P 2";I[172]32[170]2
154 [161]#2,TY$:TY$[178]TY$[170][199](0):[139]TY$[178][199](0)[176]TY$[178][199](128)[167]162
156 [152]1,"B-P 2";I[172]32[170]5:D$[178]""
158 [129]J[178]1[164]16:[161]#2,A$:D$[178]D$[170]A$:[130]
160 [139]D$[178]"CHG PATTNSCLOSECLOSECLOSECLOSECLOSECLOSE"[167]170
162 P[178]P[170]1:[130]
164 [139]NT$[179][177][199](0)[167]DS[178][198](NS$):[137]146
166 [160]2:[160]1:[153]"LOAD LENLEFT$CHR$ (null)ATN(null)(null)(null)(null) NICHT GEFUNDEN.":[153]" (null)ASTE DRUECKEN."
167 [161]A$:[139]A$[178]""[167]167
168 [137]128
170 [152]1,"B-P 2";I[172]32[170]3
180 [161]#2,T$:[161]#2,S$:S$[178]S$[170][199](0):I[178]7
181 [130]:[160]2:[160]1
182 :
183 [143]"TANTANTAN (null)EAD (null)ATTERNS FROM STR$ISK TANTANTAN
184 :
185 PRINT"[147] [205]USTER ([208]ATTERNS) WERDEN GELESEN. [146]"
186 OPEN1,8,15:OPEN2,8,2,"#"
188 PRINT#1,"U1 2 0 ";ASC(T$);ASC(S$)
190 GET#2,NT$:GET#2,NS$:NS$=NS$+CHR$(0)
192 PRINT#1,"B-P 2 60":AD=13056
194 FORI=0TO195:GET#2,B$:B$=B$+CHR$(0)
196 POKEAD,ASC(B$):AD=AD+1:NEXT
198 PRINT#1,"U1 2 0 ";ASC(NT$);ASC(NS$)
200 GET#2,B$:GET#2,B$
202 FORI=0TO59:GET#2,B$:B$=B$+CHR$(0)
204 POKEAD,ASC(B$):AD=AD+1:NEXT
206 CLOSE2:CLOSE1
207 :
208 REM"[192][192][192][192][192][192][192][192] [205]AIN [208]ROGRAM [192][192][192][192][192][192][192][192][192]
209 :
210 [153]"LOAD ........ LEN(null)(null)(null) :LENURSOR (null)F8 :(null)AVE"
212 [153]" ........ (null)(null)ATNLENVAL:(null)ETZEN (null)(null) :VALNDE"
214 [153]" ........ _ :(null)OESCHEN(null)":[153]" ........ @ :STR$AUERSETZEN(null)(null)ATTERN VALDITOR"
216 [153]" ........ ^ :STR$AUERLOESCH(null)":[153]" ........ LEN(null)(null):(null)OESCHEN (null) BY"
218 [153]" ........ F1:(null)UECKSETZEN(null)":[153]" ........ F3:"[166]11)"(null) (null).(null)HATCHIKIAN
220 PRINT" 1 2 3 4 5 6 7 8":L$=" [192][192] [192][192] [192][192] [192][192] [192][192] [192][192] [192][192] [192][192]":PRINTL$
222 P$="[221][160][160][221][161][161][221][162][162][221][163][163][221][164][164][221][165][165][221][166][166][221][167][167][221]":PRINT" [193]"P$:PRINT" "P$:PRINTL$
224 P$="[221][168][168][221][169][169][221][170][170][221][171][171][221][172][172][221][173][173][221][174][174][221][175][175][221]":PRINT" [194]"P$:PRINT" "P$:PRINTL$
226 P$="[221][176][176][221][177][177][221][178][178][221][179][179][221][180][180][221][181][181][221][182][182][221][183][183][221]":PRINT" [195]"P$:PRINT" "P$:PRINTL$
228 P$="[221][184][184][221][185][185][221][186][186][221][187][187][221][188][188][221][189][189][221][190][190][221][191][191][221]":PRINT" [196]"P$:PRINT" "P$:PRINTL$;:GOTO260
240 C$="":GOSUB2000
242 GETA$:IFA$=""THEN242
243 C$=""
244 IFA$=""THENGOSUB2008:V=V+(1ANDV<8)
246 IFA$="[157]"THENGOSUB2008:V=V-(1ANDV>1)
248 IFA$=""THENGOSUB2004:W=W+(1ANDW<4)
250 IFA$="[145]"THENGOSUB2004:W=W-(1ANDW>1)
252 IFA$=CHR$(13)THEN260
254 GOTO240
260 C$="":GOSUB2000:C$="":GOSUB2002
270 PC=(W-1)*8+V+95:AD=12288+PC*8
280 PRINT"";:FORI=0TO7:B=PEEK(AD+I):PRINT" ";
282 FORJ=7TO0STEP-1:PRINT".";:IFB>H(J)-1THENPRINT"[157]*";:B=B-H(J)
284 NEXT:PRINT:NEXT:POKE211,28:POKE214,15:SYS58732:PRINT"[208]ATTERN:";CHR$(192+W);CHR$(48+V)
286 P$="[221]":FORI=0TO4:P$=P$+CHR$(64+PC):NEXT:P$=P$+"[221]":POKE211,31:POKE214,17
288 SYS58732:PRINT"[192][192][192][192][192] ";:FORI=0TO4:PRINT"[157][157][157][157][157][157][157]"P$;:NEXT:PRINT"[157][157][157][157][157][157][192][192][192][192][192]"
290 X=5:Y=5:R=2:DF=0
292 POKE214,Y:POKE211,X:SYS58732
294 RT=PEEK((1024+Y*40)+X)
296 PRINT" [146]";
298 GETA$:IFA$=""THEN298
300 POKE(1024+Y*40)+X,RT
302 IFA$=""THENX=X+(1ANDX<8)
304 IFA$="[157]"THENX=X-(1ANDX>1)
306 IFA$="[145]"THENY=Y-(1ANDY>1)
308 IFA$=""THENY=Y+(1ANDY<8)
310 IFA$=" "THENR=1:DF=0:REM SPACE
312 IFA$="@"THENDF=1:R=1
314 IFA$="_"THENR=0:DF=0
316 IFA$="^"THENDF=1:R=0
318 IFA$="[133]"THEN184
320 IFA$="[147]"THENFORI=0TO7:POKEAD+I,0:NEXT:GOTO280
322 IFA$="[134]"THEN240
324 IFA$="[140]"THEN400
326 IFA$="Q"THEN350
328 BY=Y-1:BI=X-1
332 IFR=0THENPOKE(AD+BY),PEEK(AD+BY)AND255-(2^(7-BI))
334 IFR=1THENPOKE(AD+BY),PEEK(AD+BY)OR2^(7-BI)
336 IFR=0THENPRINT"[157].";
338 IFR=1THENPRINT"[157]*";
340 IFDF=0THENR=2
342 GOTO292
344 :
345 REM"[192][192][192] [197]XIT [208]ROGRAM (TO [199][197][207][211]) [192][192][192][192]
346 :
350 [153]"LOAD PEEKITTE AUSWAEHLEN: WAIT"
352 [153]" <1> (null)USTER VON ANDERER STR$ISKETTE LESEN"
354 [153]" <2> VALDITIERBILDSCHIRM WIEDERHERSTELLEN"
356 [153]" <3> VALNDE: (null)ROGRAMM VERLASSEN"
358 [161]A$:[139]A$[178]"3"[167]370
360 [139]A$[178]"1"[167][138]
362 [139]A$[178]"2"[167]210
364 [137]358
370 [153]"LOAD CHR$VAL(null)(null)-PEEKOOT-STR$ISKETTE EINLEGEN. ((null)VAL(null)(null)(null)(null)) WAIT"
372 [161]A$:[139]A$[179][177][199](13)[167]372
374 [147]"GEOS",8,1
380 :
382 [143]"TANTANTANTAN (null)AVE (null)ATTERNS TO STR$ISK TANTANTANTAN
384 :
400 PRINT"[147] [205]USTER ([208]ATTERNS) AUF [196]ISKETTE [211][193][214][197]N. [211]IND [211]IE SICHER ([202]/[206]) ?"
402 GETA$:IFA$=""THEN402
404 IFA$<>"J"THEN210
406 PRINT"[147] [205]USTER ([208]ATTERNS) WERDEN GE[211][193][214][197]D. [146]"
408 OPEN1,8,15:OPEN2,8,2,"#"
410 PRINT#1,"U1 2 0 ";ASC(T$);ASC(S$)
412 GET#2,NT$:GET#2,NS$:NS$=NS$+CHR$(0)
414 PRINT#1,"B-P 2 60":AD=13056
416 FORI=0TO195:PRINT#2,CHR$(PEEK(AD));:AD=AD+1:NEXT
418 PRINT#1,"U2 2 0 ";ASC(T$);ASC(S$)
420 PRINT#1,"U1 2 0 ";ASC(NT$);ASC(NS$)
422 GET#2,B$:GET#2,B$
424 FORI=0TO59:PRINT#2,CHR$(PEEK(AD));:AD=AD+1:NEXT
425 PRINT#1,"U2 2 0 ";ASC(NT$);ASC(NS$)
426 CLOSE2:CLOSE1:GOTO210
1900 :
1902 REM"[192][192] [200]IGHLIGHT [208]ATTERN-[194]ORDER [192][192]
1904 :
2000 [151]214,8:[151]211,13:[158]58732:[153]C$"ATNUSWAHL"
2002 [141]2004:[137]2008
2004 [151]211,1:[151]214,9[170]W[172]3:[158]58732:[153]C$;[199](192[170]W)
2006 [151]214,8[170]W[172]3:[151]211,V[172]3:[158]58732:[153]"TANTANCMDCMDCMD(null)(null)CMDCMDCMDCMD(null)(null)CMDCMDCMDTANTAN":[142]
2008 [151]214,10:[151]211,V[172]3:[158]58732:[153]C$;V:[137]2006