home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh28a.d64 / pattn-editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  160 lines
  1. 10 REM"    [212]HE [199]EOS [208]ATTERN [197]DITOR
  2. 20 [143]"      BY (null)WE (null)HATCHIKIAN
  3. 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]
  4. 40 [143]"  (null)ATN(null)(null)(null)-VALSTR$RIGHT$(null)(null)(null) --- (null)ERSION 1.3STR$
  5. 50 REM"
  6. 60 [143]" STR$ATE: 04/27/87   (null)IME:16:00 (null)(null)
  7. 70 REM"
  8. 80 [143]"      (STR$VAL(null)(null)(null)LENLEFT$VAL (null)VAL(null)(null)RIGHT$(null)(null))
  9. 90 :
  10. 100 POKE53272,21
  11. 102 PRINT "[157][157][157][157][157][157][157][157] WARTEN [146]"
  12. 104 POKE53280,6:POKE53281,14
  13. 106 POKE52,48:POKE56,48:CLR
  14. 108 POKE56334,PEEK(56334)AND254
  15. 110 POKE1,PEEK(1)AND251:V=1:W=1
  16. 112 FORI=0TO30:READB:POKE49152+I,B:NEXT
  17. 114 DATA160,7,152,9,48,141,23,192,152
  18. 116 DATA105,8,9,208,141,20,192,162,0
  19. 118 DATA189,0,216,157,0,48,232,208,247
  20. 120 DATA136,16,228,96
  21. 122 SYS49152:POKE1,PEEK(1)OR4:FORI=0TO7:H(I)=2^I:NEXT:POKE650,128
  22. 124 POKE56334,PEEK(56334)OR1
  23. 126 POKE53272,(PEEK(53272)AND240)+12
  24. 128 PRINT"[147] [199]EOS [208]ATTERN [197]DITOR BY [213]WE [203]HATCHIKIAN [146]"
  25. 129 PRINT"[195]OPYRIGHT 1987 BY [205]ARKT & [212]ECHNIK, 64'ER"
  26. 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] ";
  27. 132 PRINT"ENTHAELT,":PRINT" UND <[210][197][212][213][210][206]> DRUECKEN"
  28. 134 GETA$:IFA$<>CHR$(13)THEN134
  29. 136 PRINT"[147] [195][200][199] [208][193][212][212][206][211] WIRD GESUCHT. [194]ITTE WARTEN. [146]"
  30. 137 :
  31. 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]
  32. 139 :
  33. 144 DS[178]1:P[178]1:[159]1,8,15:[159]2,8,2,"#"
  34. 146 [152]1,"U1 2 0 18";DS
  35. 148 [161]#2,NT$:[161]#2,NS$:NT$[178]NT$[170][199](0)
  36. 150 [129]I[178]0[164]7:[153]"";P
  37. 152 [152]1,"B-P 2";I[172]32[170]2
  38. 154 [161]#2,TY$:TY$[178]TY$[170][199](0):[139]TY$[178][199](0)[176]TY$[178][199](128)[167]162
  39. 156 [152]1,"B-P 2";I[172]32[170]5:D$[178]""
  40. 158 [129]J[178]1[164]16:[161]#2,A$:D$[178]D$[170]A$:[130]
  41. 160 [139]D$[178]"CHG PATTNSCLOSECLOSECLOSECLOSECLOSECLOSE"[167]170
  42. 162 P[178]P[170]1:[130]
  43. 164 [139]NT$[179][177][199](0)[167]DS[178][198](NS$):[137]146
  44. 166 [160]2:[160]1:[153]"LOAD LENLEFT$CHR$ (null)ATN(null)(null)(null)(null) NICHT GEFUNDEN.":[153]" (null)ASTE DRUECKEN."
  45. 167 [161]A$:[139]A$[178]""[167]167
  46. 168 [137]128
  47. 170 [152]1,"B-P 2";I[172]32[170]3
  48. 180 [161]#2,T$:[161]#2,S$:S$[178]S$[170][199](0):I[178]7
  49. 181 [130]:[160]2:[160]1
  50. 182 :
  51. 183 [143]"TANTANTAN (null)EAD (null)ATTERNS FROM STR$ISK TANTANTAN
  52. 184 :
  53. 185 PRINT"[147]    [205]USTER ([208]ATTERNS) WERDEN GELESEN.   [146]"
  54. 186 OPEN1,8,15:OPEN2,8,2,"#"
  55. 188 PRINT#1,"U1 2 0 ";ASC(T$);ASC(S$)
  56. 190 GET#2,NT$:GET#2,NS$:NS$=NS$+CHR$(0)
  57. 192 PRINT#1,"B-P 2 60":AD=13056
  58. 194 FORI=0TO195:GET#2,B$:B$=B$+CHR$(0)
  59. 196 POKEAD,ASC(B$):AD=AD+1:NEXT
  60. 198 PRINT#1,"U1 2 0 ";ASC(NT$);ASC(NS$)
  61. 200 GET#2,B$:GET#2,B$
  62. 202 FORI=0TO59:GET#2,B$:B$=B$+CHR$(0)
  63. 204 POKEAD,ASC(B$):AD=AD+1:NEXT
  64. 206 CLOSE2:CLOSE1
  65. 207 :
  66. 208 REM"[192][192][192][192][192][192][192][192] [205]AIN [208]ROGRAM [192][192][192][192][192][192][192][192][192]
  67. 209 :
  68. 210 [153]"LOAD ........ LEN(null)(null)(null) :LENURSOR  (null)F8   :(null)AVE"
  69. 212 [153]" ........ (null)(null)ATNLENVAL:(null)ETZEN  (null)(null)    :VALNDE"
  70. 214 [153]" ........ _    :(null)OESCHEN(null)":[153]" ........ @ :STR$AUERSETZEN(null)(null)ATTERN VALDITOR"
  71. 216 [153]" ........ ^ :STR$AUERLOESCH(null)":[153]" ........ LEN(null)(null):(null)OESCHEN  (null)      BY"
  72. 218 [153]" ........ F1:(null)UECKSETZEN(null)":[153]" ........ F3:"[166]11)"(null) (null).(null)HATCHIKIAN
  73. 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$
  74. 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$
  75. 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$
  76. 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$
  77. 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
  78. 240 C$="":GOSUB2000
  79. 242 GETA$:IFA$=""THEN242
  80. 243 C$=""
  81. 244 IFA$=""THENGOSUB2008:V=V+(1ANDV<8)
  82. 246 IFA$="[157]"THENGOSUB2008:V=V-(1ANDV>1)
  83. 248 IFA$=""THENGOSUB2004:W=W+(1ANDW<4)
  84. 250 IFA$="[145]"THENGOSUB2004:W=W-(1ANDW>1)
  85. 252 IFA$=CHR$(13)THEN260
  86. 254 GOTO240
  87. 260 C$="":GOSUB2000:C$="":GOSUB2002
  88. 270 PC=(W-1)*8+V+95:AD=12288+PC*8
  89. 280 PRINT"";:FORI=0TO7:B=PEEK(AD+I):PRINT" ";
  90. 282 FORJ=7TO0STEP-1:PRINT".";:IFB>H(J)-1THENPRINT"[157]*";:B=B-H(J)
  91. 284 NEXT:PRINT:NEXT:POKE211,28:POKE214,15:SYS58732:PRINT"[208]ATTERN:";CHR$(192+W);CHR$(48+V)
  92. 286 P$="[221]":FORI=0TO4:P$=P$+CHR$(64+PC):NEXT:P$=P$+"[221]":POKE211,31:POKE214,17
  93. 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]"
  94. 290 X=5:Y=5:R=2:DF=0
  95. 292 POKE214,Y:POKE211,X:SYS58732
  96. 294 RT=PEEK((1024+Y*40)+X)
  97. 296 PRINT" [146]";
  98. 298 GETA$:IFA$=""THEN298
  99. 300 POKE(1024+Y*40)+X,RT
  100. 302 IFA$=""THENX=X+(1ANDX<8)
  101. 304 IFA$="[157]"THENX=X-(1ANDX>1)
  102. 306 IFA$="[145]"THENY=Y-(1ANDY>1)
  103. 308 IFA$=""THENY=Y+(1ANDY<8)
  104. 310 IFA$=" "THENR=1:DF=0:REM SPACE
  105. 312 IFA$="@"THENDF=1:R=1
  106. 314 IFA$="_"THENR=0:DF=0
  107. 316 IFA$="^"THENDF=1:R=0
  108. 318 IFA$="[133]"THEN184
  109. 320 IFA$="[147]"THENFORI=0TO7:POKEAD+I,0:NEXT:GOTO280
  110. 322 IFA$="[134]"THEN240
  111. 324 IFA$="[140]"THEN400
  112. 326 IFA$="Q"THEN350
  113. 328 BY=Y-1:BI=X-1
  114. 332 IFR=0THENPOKE(AD+BY),PEEK(AD+BY)AND255-(2^(7-BI))
  115. 334 IFR=1THENPOKE(AD+BY),PEEK(AD+BY)OR2^(7-BI)
  116. 336 IFR=0THENPRINT"[157].";
  117. 338 IFR=1THENPRINT"[157]*";
  118. 340 IFDF=0THENR=2
  119. 342 GOTO292
  120. 344 :
  121. 345 REM"[192][192][192] [197]XIT [208]ROGRAM (TO [199][197][207][211]) [192][192][192][192]
  122. 346 :
  123. 350 [153]"LOAD PEEKITTE AUSWAEHLEN:                      WAIT"
  124. 352 [153]" <1> (null)USTER VON ANDERER STR$ISKETTE LESEN"
  125. 354 [153]" <2> VALDITIERBILDSCHIRM WIEDERHERSTELLEN"
  126. 356 [153]" <3> VALNDE: (null)ROGRAMM VERLASSEN"
  127. 358 [161]A$:[139]A$[178]"3"[167]370
  128. 360 [139]A$[178]"1"[167][138]
  129. 362 [139]A$[178]"2"[167]210
  130. 364 [137]358
  131. 370 [153]"LOAD  CHR$VAL(null)(null)-PEEKOOT-STR$ISKETTE EINLEGEN. ((null)VAL(null)(null)(null)(null)) WAIT"
  132. 372 [161]A$:[139]A$[179][177][199](13)[167]372
  133. 374 [147]"GEOS",8,1
  134. 380 :
  135. 382 [143]"TANTANTANTAN (null)AVE (null)ATTERNS TO STR$ISK TANTANTANTAN
  136. 384 :
  137. 400 PRINT"[147] [205]USTER ([208]ATTERNS) AUF [196]ISKETTE [211][193][214][197]N.   [211]IND [211]IE SICHER ([202]/[206]) ?"
  138. 402 GETA$:IFA$=""THEN402
  139. 404 IFA$<>"J"THEN210
  140. 406 PRINT"[147]    [205]USTER ([208]ATTERNS) WERDEN GE[211][193][214][197]D.   [146]"
  141. 408 OPEN1,8,15:OPEN2,8,2,"#"
  142. 410 PRINT#1,"U1 2 0 ";ASC(T$);ASC(S$)
  143. 412 GET#2,NT$:GET#2,NS$:NS$=NS$+CHR$(0)
  144. 414 PRINT#1,"B-P 2 60":AD=13056
  145. 416 FORI=0TO195:PRINT#2,CHR$(PEEK(AD));:AD=AD+1:NEXT
  146. 418 PRINT#1,"U2 2 0 ";ASC(T$);ASC(S$)
  147. 420 PRINT#1,"U1 2 0 ";ASC(NT$);ASC(NS$)
  148. 422 GET#2,B$:GET#2,B$
  149. 424 FORI=0TO59:PRINT#2,CHR$(PEEK(AD));:AD=AD+1:NEXT
  150. 425 PRINT#1,"U2 2 0 ";ASC(NT$);ASC(NS$)
  151. 426 CLOSE2:CLOSE1:GOTO210
  152. 1900 :
  153. 1902 REM"[192][192] [200]IGHLIGHT [208]ATTERN-[194]ORDER [192][192]
  154. 1904 :
  155. 2000 [151]214,8:[151]211,13:[158]58732:[153]C$"ATNUSWAHL"
  156. 2002 [141]2004:[137]2008
  157. 2004 [151]211,1:[151]214,9[170]W[172]3:[158]58732:[153]C$;[199](192[170]W)
  158. 2006 [151]214,8[170]W[172]3:[151]211,V[172]3:[158]58732:[153]"TANTANCMDCMDCMD(null)(null)CMDCMDCMDCMD(null)(null)CMDCMDCMDTANTAN":[142]
  159. 2008 [151]214,10:[151]211,V[172]3:[158]58732:[153]C$;V:[137]2006
  160.