home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / pattn-editor (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  4KB  |  156 lines
  1. 10 REM GEOS PATTERN EDITOR
  2. 20 REM AUS 64ER SONDERHEFT 28
  3. 30 REM ALLES UEBER GEOS
  4. 40 REM ABGETIPPT VON
  5. 50 REM JUERGEN HEINISCH
  6. 100 POKE53272,21
  7. 102 PRINT"[157][157][157][157][157][157][157][157] WARTEN [146]"
  8. 104 POKE53280,6:POKE53281,14
  9. 106 POKE52,48:POKE56,48:CLR
  10. 108 POKE56334,PEEK(56334)AND254
  11. 110 POKE1,PEEK(1)AND251:V=1:W=1
  12. 112 FORI=0TO30:READB:POKE49152+I,B:NEXT
  13. 114 DATA160,7,152,9,48,141,23,192,152
  14. 116 DATA105,8,9,208,141,20,192,162,0
  15. 118 DATA189,0,216,157,0,48,232,208,247
  16. 120 DATA136,16,228,96
  17. 122 SYS49152:POKE1,PEEK(1)OR4:FORI=0TO7:H(I)=2^I:NEXT:POKE650,128
  18. 124 POKE56334,PEEK(56334)OR1
  19. 126 POKE53272,(PEEK(53272)AND240)+12
  20. 128 PRINT"[147] [199]EOS [208]ATTERN [197]DITOR BY [213]WE [203]HATCHIKIAN [146]"
  21. 129 PRINT"[193]BGETIPPT VON [202]UERGEN [200]EINISCH"
  22. 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] ";
  23. 132 PRINT"ENTHAELT,":PRINT" UND <[210][197][212][213][210][206]> DRUECKEN"
  24. 134 GETA$:IFA$<>CHR$(13)THEN134
  25. 136 PRINT"[147] [195][200][199] [208][193][212][212][206][211] WIRD GESUCHT. [194]ITTE WARTEN. [146]"
  26. 137 :
  27. 138 REM
  28. 139 :
  29. 144 DS=1:P=1:OPEN1,8,15:OPEN2,8,2,"#"
  30. 146 PRINT#1,"U1 2 0 18";DS
  31. 148 GET#2,NT$:GET#2,NS$:NT$=NT$+CHR$(0)
  32. 150 FORI=0TO7:PRINT"";P
  33. 152 PRINT#1,"B-P 2";I*32+2
  34. 154 GET#2,TY$:TY$=TY$+CHR$(0):IFTY$=CHR$(0)ORTY$=CHR$(128)THEN162
  35. 156 PRINT#1,"B-P 2";I*32+5:D$=""
  36. 158 FORJ=1TO16:GET#2,A$:D$=D$+A$:NEXT
  37. 160 IFD$="CHG PATTNS[160][160][160][160][160][160]"THEN170
  38. 162 P=P+1:NEXT
  39. 164 IFNT$<>CHR$(0)THENDS=ASC(NS$):GOTO146
  40. 166 CLOSE2:CLOSE1:PRINT"[147] [195][200][199] [208][193][212][212][206][211] NICHT GEFUNDEN.":PRINT" [212]ASTE DRUECKEN."
  41. 167 GETA$:IFA$=""THEN167
  42. 168 GOTO128
  43. 170 PRINT#1,"B-P 2";I*32+3
  44. 180 GET#2,T$:GET#2,S$:S$=S$+CHR$(0):I=7
  45. 181 NEXT:CLOSE2:CLOSE1
  46. 182 :
  47. 183 REM
  48. 184 :
  49. 185 PRINT"[147]    [205]USTER ([208]ATTERNS) WERDEN GELESEN.   [146]"
  50. 186 OPEN1,8,15:OPEN2,8,2,"#"
  51. 188 PRINT#1,"U1 2 0 ";ASC(T$);ASC(S$)
  52. 190 GET#2,NT$:GET#2,NS$:NS$=NS$+CHR$(0)
  53. 192 PRINT#1,"B-P 2 60":AD=13056
  54. 194 FORI=0TO195:GET#2,B$:B$=B$+CHR$(0)
  55. 196 POKEAD,ASC(B$):AD=AD+1:NEXT
  56. 198 PRINT#1,"U1 2 0 ";ASC(NT$);ASC(NS$)
  57. 200 GET#2,B$:GET#2,B$
  58. 202 FORI=0TO59:GET#2,B$:B$=B$+CHR$(0)
  59. 204 POKEAD,ASC(B$):AD=AD+1:NEXT
  60. 206 CLOSE2:CLOSE1
  61. 207 :
  62. 208 REM
  63. 209 :
  64. 210 PRINT"[147] ........ [195][210][211][210] :[195]URSER  [221]F8   :[211]AVE"
  65. 212 PRINT" ........ [211][208][193][195][197]:[211]ETZEN  [221][209]    :[197]NDE"
  66. 214 PRINT" ........ _    :[204]OESCHEN[221]":PRINT" ........ @ :[196]AUERSETZEN[221][208]ATTERN [197]DITOR"
  67. 216 PRINT" ........ ^ :[196]AUERLOESCH[221]":PRINT" ........ [195][204][210]:[204]OESCHEN  [221]      BY"
  68. 218 PRINT" ........ F1:[210]UECKSETZEN[221]":PRINT" ........ F3:"SPC(11)"[221] [213].[203]HATCHIKIAN
  69. 220 [153]"    1  2  3  4  5  6  7  8":L$[178]"   TANTAN TANTAN TANTAN TANTAN TANTAN TANTAN TANTAN TANTAN":[153]L$
  70. 222 P$[178]"(null)CLOSECLOSE(null)GETGET(null)NEWNEW(null)TAB(TAB((null)TOTO(null)FNFN(null)SPC(SPC((null)THENTHEN(null)":[153]" ATN"P$:[153]"  "P$:[153]L$
  71. 224 P$[178]"(null)RNDRND(null)STEPSTEP(null)++(null)--(null)**(null)//(null)^^(null)ANDAND(null)":[153]" PEEK"P$:[153]"  "P$:[153]L$
  72. 226 P$[178]"(null)OROR(null)>>(null)==(null)<<(null)SGNSGN(null)INTINT(null)ABSABS(null)USRUSR(null)":[153]" LEN"P$:[153]"  "P$:[153]L$
  73. 228 P$[178]"(null)FREFRE(null)POSPOS(null)SQRSQR(null)RNDRND(null)LOGLOG(null)EXPEXP(null)COSCOS(null)SINSIN(null)":[153]" STR$"P$:[153]"  "P$:[153]L$;:[137]260
  74. 240 C$[178]"":[141]2000
  75. 242 [161]A$:[139]A$[178]""[167]242
  76. 243 C$[178]""
  77. 244 [139]A$[178]""[167][141]2008:V[178]V[170](1[175]V[179]8)
  78. 246 [139]A$[178]"CMD"[167][141]2008:V[178]V[171](1[175]V[177]1)
  79. 248 [139]A$[178]""[167][141]2004:W[178]W[170](1[175]W[179]4)
  80. 250 [139]A$[178]"ON"[167][141]2004:W[178]W[171](1[175]W[177]1)
  81. 252 [139]A$[178][199](13)[167]260
  82. 254 [137]240
  83. 260 C$[178]"":[141]2000:C$[178]"":[141]2002
  84. 270 PC[178](W[171]1)[172]8[170]V[170]95:AD[178]12288[170]PC[172]8
  85. 280 [153]"";:[129]I[178]0[164]7:B[178][194](AD[170]I):[153]" ";
  86. 282 [129]J[178]7[164]0[169][171]1:[153]".";:[139]B[177]H(J)[171]1[167][153]"CMD*";:B[178]B[171]H(J)
  87. 284 [130]:[153]:[130]:[151]211,28:[151]214,15:[158]58732:[153]"(null)ATTERN:";[199](192[170]W);[199](48[170]V)
  88. 286 P$[178]"(null)":[129]I[178]0[164]4:P$[178]P$[170][199](64[170]PC):[130]:P$[178]P$[170]"(null)":[151]211,31:[151]214,17
  89. 288 [158]58732:[153]"TANTANTANTANTAN ";:[129]I[178]0[164]4:[153]"CMDCMDCMDCMDCMDCMDCMD"P$;:[130]:[153]"CMDCMDCMDCMDCMDCMDTANTANTANTANTAN"
  90. 290 X[178]5:Y[178]5:R[178]2:DF[178]0
  91. 292 [151]214,Y:[151]211,X:[158]58732
  92. 294 RT[178][194]((1024[170]Y[172]40)[170]X)
  93. 296 [153]" WAIT";
  94. 298 [161]A$:[139]A$[178]""[167]298
  95. 300 [151](1024[170]Y[172]40)[170]X,RT
  96. 302 [139]A$[178]""[167]X[178]X[170](1[175]X[179]8)
  97. 304 [139]A$[178]"CMD"[167]X[178]X[171](1[175]X[177]1)
  98. 306 [139]A$[178]"ON"[167]Y[178]Y[171](1[175]Y[177]1)
  99. 308 [139]A$[178]""[167]Y[178]Y[170](1[175]Y[179]8)
  100. 310 [139]A$[178]" "[167]R[178]1:DF[178]0
  101. 312 [139]A$[178]"@"[167]R[178]1:DF[178]1
  102. 314 [139]A$[178]"_"[167]R[178]0:DF[178]0
  103. 316 [139]A$[178]"^"[167]R[178]0:DF[178]1
  104. 318 [139]A$[178]"INPUT"[167]184
  105. 320 [139]A$[178]"LOAD"[167][129]I[178]0[164]7:[151]AD[170]I,0:[130]:[137]280
  106. 322 [139]A$[178]"DIM"[167]240
  107. 324 [139]A$[178]"RESTORE"[167]400
  108. 326 [139]A$[178]"Q"[167]350
  109. 328 BY[178]Y[171]1:BI[178]X[171]1
  110. 332 [139]R[178]0[167][151](AD[170]BY),[194](AD[170]BY)[175]255[171](2[174](7[171]BI))
  111. 334 [139]R[178]1[167][151](AD[170]BY),[194](AD[170]BY)[176]2[174](7[171]BI)
  112. 336 [139]R[178]0[167][153]"CMD.";
  113. 338 [139]R[178]1[167][153]"CMD*";
  114. 340 [139]DF[178]0[167]R[178]2
  115. 342 [137]292
  116. 344 :
  117. 345 [143]
  118. 346 :
  119. 350 [153]"LOAD PEEKITTE AUSWAEHLEN:                      WAIT"
  120. 352 [153]" <1> (null)USTER VON ANDERER STR$ISKETTE LESEN"
  121. 354 [153]" <2> VALDITIERBILDSCHIRM WIEDERHERSTELLEN"
  122. 356 [153]" <3> VALNDE: (null)ROGRAMM VERLASSEN"
  123. 358 [161]A$:[139]A$[178]"3"[167]370
  124. 360 [139]A$[178]"1"[167][138]
  125. 362 [139]A$[178]"2"[167]210
  126. 364 [137]358
  127. 370 [153]"LOAD  CHR$VAL(null)(null)-PEEKOOT-STR$ISKETTE EINLEGEN. ((null)VAL(null)(null)(null)(null)) WAIT"
  128. 372 [161]A$:[139]A$[179][177][199](13)[167]372
  129. 374 [147]"GEOS",8,1
  130. 380 :
  131. 382 [143]
  132. 384 :
  133. 400 [153]"LOAD (null)USTER ((null)ATTERNS) AUF STR$ISKETTE (null)ATN(null)VALN.   (null)IND (null)IE SICHER (MID$/(null)) ?"
  134. 402 [161]A$:[139]A$[178]""[167]402
  135. 404 [139]A$[179][177]"J"[167]210
  136. 406 [153]"LOAD    (null)USTER ((null)ATTERNS) WERDEN GE(null)ATN(null)VALD.   WAIT"
  137. 408 [159]1,8,15:[159]2,8,2,"#"
  138. 410 [152]1,"U1 2 0 ";[198](T$);[198](S$)
  139. 412 [161]#2,NT$:[161]#2,NS$:NS$[178]NS$[170][199](0)
  140. 414 [152]1,"B-P 2 60":AD[178]13056
  141. 416 [129]I[178]0[164]195:[152]2,[199]([194](AD));:AD[178]AD[170]1:[130]
  142. 418 [152]1,"U2 2 0 ";[198](T$);[198](S$)
  143. 420 [152]1,"U1 2 0 ";[198](NT$);[198](NS$)
  144. 422 [161]#2,B$:[161]#2,B$
  145. 424 [129]I[178]0[164]59:[152]2,[199]([194](AD));:AD[178]AD[170]1:[130]
  146. 425 [152]1,"U2 2 0 ";[198](NT$);[198](NS$)
  147. 426 [160]2:[160]1:[137]210
  148. 1900 :
  149. 1902 [143]
  150. 1904 :
  151. 2000 [151]214,8:[151]211,13:[158]58732:[153]C$"ATNUSWAHL"
  152. 2002 [141]2004:[137]2008
  153. 2004 [151]211,1:[151]214,9[170]W[172]3:[158]58732:[153]C$;[199](192[170]W)
  154. 2006 [151]214,8[170]W[172]3:[151]211,V[172]3:[158]58732:[153]"TANTANCMDCMDCMD(null)(null)CMDCMDCMDCMD(null)(null)CMDCMDCMDTANTAN":[142]
  155. 2008 [151]214,10:[151]211,V[172]3:[158]58732:[153]C$;V:[137]2006
  156.