home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / mUSTER (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  4KB  |  154 lines
  1. 100 POKE53272,21
  2. 102 PRINT "[157][157][157][157][157][157][157][157] WARTEN [146]"
  3. 104 POKE53280,6:POKE53281,14
  4. 106 POKE52,48:POKE56,48:CLR
  5. 108 POKE56334,PEEK(56334)AND254
  6. 110 POKE1,PEEK(1)AND251:V=1:W=1
  7. 112 FORI=0TO30:READB:POKE49152+I,B:NEXT
  8. 114 DATA160,7,152,9,48,141,23,192,152
  9. 116 DATA105,8,9,208,141,20,192,162,0
  10. 118 DATA189,0,216,157,0,48,232,208,247
  11. 120 DATA136,16,228,96
  12. 122 SYS49152:POKE1,PEEK(1)OR4:FORI=0TO7:H(I)=2^I:NEXT:POKE650,128
  13. 124 POKE56334,PEEK(56334)OR1
  14. 126 POKE53272,(PEEK(53272)AND240)+12
  15. 128 PRINT"[147]"
  16. 130 PRINT" [194]ITTE EINE [196]ISKETTE EINLEGEN, DIE"
  17. 131 PRINT" DAS [208]ROGRAMM [206]EUMUSTER ENTHAELT,
  18. 132 [153]" UND <(null)VAL(null)(null)(null)(null)> DRUECKEN."
  19. 134 [161]A$:[139]A$[179][177][199](13)[167]134
  20. 136 [153]"LOAD STR$IE STR$ATEI (null)EUMUSTER WIRD GESUCHT       WAIT"
  21. 137 :
  22. 138 [143]"TANTANTANTANTANTAN (null)EARCH LENLEFT$CHR$ (null)ATN(null)(null)(null)(null) TANTANTANTANTANTAN
  23. 139 :
  24. 144 DS=1:P=1:OPEN1,8,15:OPEN2,8,2,"#"
  25. 146 PRINT#1,"U1 2 0 18";DS
  26. 148 GET#2,NT$:GET#2,NS$:NT$=NT$+CHR$(0)
  27. 150 FORI=0TO7:PRINT"";P
  28. 152 PRINT#1,"B-P 2";I*32+2
  29. 154 GET#2,TY$:TY$=TY$+CHR$(0):IFTY$=CHR$(0)ORTY$=CHR$(128)THEN162
  30. 156 PRINT#1,"B-P 2";I*32+5:D$=""
  31. 158 FORJ=1TO16:GET#2,A$:D$=D$+A$:NEXT
  32. 160 IFD$="Neumuster[160][160][160][160][160][160][160]"THEN170
  33. 162 P=P+1:NEXT
  34. 164 IFNT$<>CHR$(0)THENDS=ASC(NS$):GOTO146
  35. 166 CLOSE2:CLOSE1:PRINT"[147] [206]EUMUSTER WURDE NICHT GEFUNDEN."
  36. 167 PRINT" [194]ITTE [212]ASTE DRUECKEN."
  37. 168 GETA$:IFA$=""THEN167
  38. 169 GOTO128
  39. 170 PRINT#1,"B-P 2";I*32+3
  40. 180 GET#2,T$:GET#2,S$:S$=S$+CHR$(0):I=7
  41. 181 NEXT:CLOSE2:CLOSE1
  42. 182 :
  43. 183 REM"[192][192][192] [210]EAD [208]ATTERNS FROM [196]ISK [192][192][192]
  44. 184 :
  45. 185 [153]"LOAD    (null)USTER WERDEN GELESEN.              WAIT"
  46. 186 [159]1,8,15:[159]2,8,2,"#"
  47. 188 [152]1,"U1 2 0 ";[198](T$);[198](S$)
  48. 190 [161]#2,NT$:[161]#2,NS$:NS$[178]NS$[170][199](0)
  49. 192 [152]1,"B-P 2 60":AD[178]13056
  50. 194 [129]I[178]0[164]195:[161]#2,B$:B$[178]B$[170][199](0)
  51. 196 [151]AD,[198](B$):AD[178]AD[170]1:[130]
  52. 198 [152]1,"U1 2 0 ";[198](NT$);[198](NS$)
  53. 200 [161]#2,B$:[161]#2,B$
  54. 202 [129]I[178]0[164]59:[161]#2,B$:B$[178]B$[170][199](0)
  55. 204 [151]AD,[198](B$):AD[178]AD[170]1:[130]
  56. 206 [160]2:[160]1
  57. 207 :
  58. 208 [143]"TANTANTANTANTANTANTANTAN (null)AIN (null)ROGRAM TANTANTANTANTANTANTANTANTAN
  59. 209 :
  60. 210 PRINT"[147] ........"
  61. 212 PRINT" ........ [211] :[211]ETZEN   [218] :[196]AUERSETZEN"
  62. 213 PRINT" ........"
  63. 214 PRINT" ........ [218] :[204]OESCHEN [216] :[196]AUERLOESCHEN"
  64. 215 PRINT" ........"
  65. 216 PRINT" ........ F1:[204]OESCHEN F5:[210]UECKSETZEN"
  66. 217 PRINT" ........"
  67. 218 PRINT" ........ F3:         F7:[211]PEICHERN"
  68. 219 PRINTTAB(30)"F8: [197]NDE"
  69. 220 PRINT"[145][145]    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$
  70. 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$
  71. 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$
  72. 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$
  73. 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
  74. 240 C$="":GOSUB2000
  75. 242 GETA$:IFA$=""THEN242
  76. 243 C$=""
  77. 244 IFA$=""THENGOSUB2008:V=V+(1ANDV<8)
  78. 246 IFA$="[157]"THENGOSUB2008:V=V-(1ANDV>1)
  79. 248 IFA$=""THENGOSUB2004:W=W+(1ANDW<4)
  80. 250 IFA$="[145]"THENGOSUB2004:W=W-(1ANDW>1)
  81. 252 IFA$=CHR$(13)THEN260
  82. 254 GOTO240
  83. 260 C$="":GOSUB2000:C$="":GOSUB2002
  84. 270 PC=(W-1)*8+V+95:AD=12288+PC*8
  85. 280 PRINT"";:FORI=0TO7:B=PEEK(AD+I):PRINT" ";
  86. 282 FORJ=7TO0STEP-1:PRINT".";:IFB>H(J)-1THENPRINT"[157]*";:B=B-H(J)
  87. 284 NEXT:PRINT:NEXT:POKE211,28:POKE214,15:SYS58732:PRINT" [205]USTER:";CHR$(192+W);C
  88. 286 P$="[221]":FORI=0TO4:P$=P$+CHR$(64+PC):NEXT:P$=P$+"[221]":POKE211,31:POKE214,17
  89. 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]"
  90. 290 X=5:Y=5:R=2:DF=0
  91. 292 POKE214,Y:POKE211,X:SYS58732
  92. 294 RT=PEEK((1024+Y*40)+X)
  93. 296 PRINT" [146]";
  94. 298 GETA$:IFA$=""THEN298
  95. 300 POKE(1024+Y*40)+X,RT
  96. 302 IFA$=""THENX=X+(1ANDX<8)
  97. 304 IFA$="[157]"THENX=X-(1ANDX>1)
  98. 306 IFA$="[145]"THENY=Y-(1ANDY>1)
  99. 308 IFA$=""THENY=Y+(1ANDY<8)
  100. 310 IFA$="S"THENR=1:DF=0:
  101. 312 IFA$="Z"THENDF=1:R=1
  102. 314 IFA$="D"THENR=0:DF=0
  103. 316 IFA$="X"THENDF=1:R=0
  104. 318 IFA$="[135]"THEN184
  105. 320 IFA$="[133]"THENFORI=0TO7:POKEAD+I,0:NEXT:GOTO280
  106. 322 IFA$="[134]"THEN240
  107. 324 IFA$="[136]"THEN400
  108. 326 IFA$="[140]"THEN350
  109. 328 BY=Y-1:BI=X-1
  110. 332 IFR=0THENPOKE(AD+BY),PEEK(AD+BY)AND255-(2^(7-BI))
  111. 334 IFR=1THENPOKE(AD+BY),PEEK(AD+BY)OR2^(7-BI)
  112. 336 IFR=0THENPRINT"[157].";
  113. 338 IFR=1THENPRINT"[157]*";
  114. 340 IFDF=0THENR=2
  115. 342 GOTO292
  116. 344 :
  117. 345 REM"[192][192][192] [197]XIT [208]ROGRAM (TO [199][197][207][211]) [192][192][192][192]
  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> STR$ESKTOP LADEN"
  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":[147]"RBOOT",8
  128. 380 :
  129. 382 [143]"TANTANTANTAN (null)AVE (null)ATTERNS TO STR$ISK TANTANTANTAN
  130. 384 :
  131. 400 PRINT"[147] [205]USTER AUF [196]ISKETTE SPEICHERN. [211]IND [211]IE SICHER ([202]/[206]) ?"
  132. 402 GETA$:IFA$=""THEN402
  133. 404 IFA$<>"J"THEN210
  134. 406 PRINT"[147]    [205]USTER WERDEN GESPEICHERT."
  135. 408 OPEN1,8,15:OPEN2,8,2,"#"
  136. 410 PRINT#1,"U1 2 0 ";ASC(T$);ASC(S$)
  137. 412 GET#2,NT$:GET#2,NS$:NS$=NS$+CHR$(0)
  138. 414 PRINT#1,"B-P 2 60":AD=13056
  139. 416 FORI=0TO195:PRINT#2,CHR$(PEEK(AD));:AD=AD+1:NEXT
  140. 418 PRINT#1,"U2 2 0 ";ASC(T$);ASC(S$)
  141. 420 PRINT#1,"U1 2 0 ";ASC(NT$);ASC(NS$)
  142. 422 GET#2,B$:GET#2,B$
  143. 424 FORI=0TO59:PRINT#2,CHR$(PEEK(AD));:AD=AD+1:NEXT
  144. 425 PRINT#1,"U2 2 0 ";ASC(NT$);ASC(NS$)
  145. 426 CLOSE2:CLOSE1:GOTO210
  146. 1900 :
  147. 1902 REM"[192][192] [200]IGHLIGHT [208]ATTERN-[194]ORDER [192][192]
  148. 1904 :
  149. 2000 [151]214,8:[151]211,13:[158]58732:[153]C$"ATNUSWAHL"
  150. 2002 [141]2004:[137]2008
  151. 2004 [151]211,1:[151]214,9[170]W[172]3:[158]58732:[153]C$;[199](192[170]W)
  152. 2006 [151]214,8[170]W[172]3:[151]211,V[172]3:[158]58732:[153]"TANTANCMDCMDCMD(null)(null)CMDCMDCMDCMD(null)(null)CMDCMDCMDTANTAN":[142]
  153. 2008 [151]214,10:[151]211,V[172]3:[158]58732:[153]C$;V:[137]2006
  154.