home *** CD-ROM | disk | FTP | other *** search
Wrap
0 print"[147][153]":poke53280,0:poke53281,0 1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 2 print"[145][159] [208][207][215][197][210] [196][201][211][203] 64 - [197]ditorial 2/96 " 3 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 4 print"[159]1 = [208][196]64-[212]ermine 1996/97 2 = [201]mpressum" 5 print"3 = [204]iste 4 = [206]ews" 6 print"5 = [214]orschau 6 = [200]allo !" 7 print"7 = [196]as [205]ini-[199]ame 8 = [204]eserbriefe" 8 print"9 = [211]pruch der [193]usgabe 10 = [196]emo" 9 print"11 = [200]auptmenu" 10 print"12 = [210][197][211][197][212]" 11 input"[201]hre [215]ahl";a:print"[145][145][145]" 12 if a<1 or a>12then0 13 if a = 1 then goto100 14 if a = 2 then goto200 15 if a = 3 then goto300 16 if a = 4 then goto400 17 if a = 5 then goto500 18 if a =11 then goto700 20 if a = 6 then goto800 21 if a = 7 then gosub1000 22 if a =12 then goto600 23 if a =10 then goto900 24 if a = 9 then goto1150 25 if a = 8 then goto1200 26 goto0 100 print"[147] [208][196]64-[212]ermine 1996/97 " 101 print"3/96:18.12.1996" 102 print"1/97:26.3.1997" 103 print"2/97:25.6.1997" 104 print"3/97:24.9.1997" 105 print"4/97:17.12.1997" 106 print"[193][206][205][197][210][203][213][206][199]:[194]ei redaktionellen [208]roblemen koennen sich die [212]ermine aendern." 108 geta$:ifa$=""then108 109 goto0 200 print"[147]" 201 print"[145][201][205][208][210][197][211][211][213][205]" 202 print"[208][196]64 erscheint ? mal im [202]ahr und kostet 5 [196][205].[193]lle [208][210][199] sind" 203 print"entweder:" 204 print"-von [193]ndy [202]akesch" 208 print"-[208]ublic-[196]omain" 209 print"[204]agune [211]oftware c/o [193]ndy [202]akesch" 210 print"[194]ergstrasse 7 92237 [211]ulzbach-[210]osenberg" 211 print"[212]el.:09661/54567 [198]uer persoenliche [193]ntworten muss" 212 print"ein an sich selbst adressierter frankierter [213]mschlag beiliegen !" 213 get m$:if m$=""then213 214 goto0 300 print"[147] [204][201][211][212][197] " 302 print"[211][208][201][197][204][197][212][197][201][204]:" 303 print"[193]ndy [202]akesch" 310 print"[208][210][207][199][210][193][205][205][197]:" 311 print"[193]xl [195]ool - [212]he [193]rcade [199]ame:[193]ndy [202]akesch[160][195]rack-[211]nack:[193]ndy [202]akesch" 314 print"[212]ower:[208]ublic [196]omain" 315 print"[208]est of [215]itze:[193]ndy [202]akesch" 318 print"[205][213][211][201][203]:[193]ndy [202]akesch" 325 print"[197][196][201][212][207][210][201][193][204]:[193]ndy [202]akesch [196][197][205][207]:[193]ndy [202]akesch" 326 print"[201][206][200][193][204][212]:[193]ndy [202]akesch" 329 print"[205][197][206][213][211]:[193]ndy [202]akesch" 330 print"[212][201][212][197][204][194][201][204][196]:[205]it [200]ilfe von [193][205][201][195][193]-[208][193][201][206][212] er-" 331 print" stellt von [193]ndy [202]akesch" 333 geta$:ifa$=""then333 334 print"[147] [194]estelliste " 335 print"[200][213][210][218] 10/91 3.- [196][205]" 336 print"[200][213][210][218] 11/91 3.- [196][205]" 337 print"[208][207][215][197][210] [196][201][211][203] 64 12/91 4.50 [196][205]" 338 print"[208][207][215][197][210] [196][201][211][203] 64 2/92 4.50 [196][205]" 339 print"[208][207][215][197][210] [196][201][211][203] 64 6/92 4.50 [196][205]" 340 print"[208][207][215][197][210] [196][201][211][203] 64 8/92 4.50 [196][205]" 341 print"[208][207][215][197][210] [196][201][211][203] 64 10/92 4.50 [196][205]" 342 print"[208][207][215][197][210] [196][201][211][203] 64 1/93 5.- [196][205]" 343 print"[208][207][215][197][210] [196][201][211][203] 64 2/93 5.- [196][205]" 344 print"[208][207][215][197][210] [196][201][211][203] 64 3/93 5.- [196][205]" 345 geta$:ifa$=""then345 346 print"[207]riginal [199][206][205][208][198] [204]agune [211]oftware " 347 print"[212]he [193]lternative [199]ame * 9.- [196][205]" 348 print"[211]ettle-[194]attle * 9.- [196][205]" 349 print"[215][215][214] * 7.- [196][205]" 350 print"[200]ier die [200]its aller [193]usgaben des [204]agune [211]oftware [205]agazins:" 351 print"[196]avid's [205]idnight [205]agic (10/91) 1.50 [196][205]" 352 print"[196]onald [196]uck's [208]layground (11/91)*1.50 [196][205]" 353 print"[207]el (12/91) * 2.50 [196][205]" 354 print"[203]ugel 64 (2/92) * 1.50 [196][205]" 355 print"[195]astle [207]f [196]oom (6/92) * 2.50 [196][205]" 356 print"[218]olix (6/92) * 2.00 [196][205]" 357 geta$:ifa$=""then357 358 print"[211]eafox (8/92) * 2.50 [196][205]" 359 print"[215]ort-[211]piel (10/92) * 2.00 [196][205]" 360 print"[207]lympic [211]ki (1/93) * 2.00 [196][205]" 361 print"[211]eeschlacht (2/93) * 2.00 [196][205]" 362 print"[204]ieferbedingungen:[196]ie [212][207][208]-[208][210][199]s der einzelnen [193]usgaben muessen" 363 print"mindestens 3 pro [194]estellung sein.[208]orto ist ab sofort umsonst,ausser bei" 364 print"den [205]agazin-[193]usgaben.[196]ie mit * gekenn- zeichneten [208]rogramme koennen auch" 365 print"auf [212]ape bestellt werden.[196]as [208]orto muss in dem [198]all zusaetzlich bezahlt" 366 print"werden.[196]ie [218]ahlungsweise bleibt euch ueberlassen,aber sie muss [218][213][197][210][211][212]" 367 print"erfolgen !" 370 geta$:ifa$=""then370 371 print"[215]enn ihr den [208]reis fuer das [208]orto nicht wisst (is' ja variabel),dann fragt" 372 print"erst bei der [208]ost oder bei [204]agune nach, bevor ihr die [194]estellung macht !" 377 print"[198]uer die [193]uslieferung solltet ihr mindestens 30 [212]age warten." 378 print"[215]enn die [215]are in der [208]ost verloren geht,dann muesst ihr euch bei der [208]ost" 379 print"beschweren,nicht bei [204]agune [211]oftware. [215]enn die [208]ost naemlich die [215]are" 380 print"verliert,dann uebernehmen wir keine [200]aftung dafuer." 381 print"[201]st die [196]isk fehlerhaft,dann liegt das auch an der [208]ost.[193]ber ihr koennt" 382 print"uns die [196]isks zurueckschicken in diesem [198]alle.[196]a die [208]ost in diesem [198]alle" 383 geta$:ifa$=""then383 384 print"ganz grosse [211]cheisse gemacht hat,muesst [201][200][210] uns extra [208]orto fuer die zweite 385 [153]"(NULL)endung schicken.(NULL)ie gesagt,wir ueber- nehmen keine left$aftung fuer die (NULL)ost. 392 geta$:ifa$=""then392 393 goto2000 400 print"[147][159]" 401 print" [206][197][215][211] " 402 print"[206]ews ... eigentlich gibt's da nicht viel.[201]m [211]pieleteil koennt ihr ab" 403 print"sofort unter [201][206] [208][210][207][196][213][195][212][201][207][206] aktuelle [208]rojekte abrufen.[196]er [205][197][199][193] [196][210][201][214][197]-" 404 print"[212]eil soll total umgestaltet werden,d.h. er faellt weg.[193]ber wenn ihr irgend- 405 [153]"welche (NULL)uensche habt,dann schreibt mir und der (NULL)pieleteil wird nicht um" 406 [153]"einen (NULL)eil gekuerzt.left$ier im valditorial gibt es jetzt immer ein (NULL)ini-chr$ame." 407 [153]"str$as chr$anze ist 'ne atnrt (NULL)iederkehr der (NULL)ini-(NULL)(NULL)chr$s aus vergangenen (NULL)agen." 408 [153]"right$m (NULL)usikteil waren die (NULL)ews immer ziemlich unaktuell.str$urch die (NULL)val(NULL)(NULL)-" 409 [153]"(NULL)(NULL)(NULL)val(NULL) brauchen sie nicht mehr aktuell sein.right$hr erfahrt einfach das" 410 [153]"(NULL)ichtigste der letzten 3 (NULL)onate.right$n der (NULL)(NULL)(NULL)right$len-peek(NULL)(NULL) gibt es jetzt mehr ascan-" 411 [153]"lenlub-atndressen ! (NULL)nd (NULL)atn(NULL)val(NULL)(NULL) (NULL)(NULL)(NULL)ascasc bein- haltet ab sofort die aktuellen lenstr$-" 412 [153]"(NULL)ests,(NULL)eroeffentlichungsraeume zu er- wartender lenstr$s,eine atnuflistung der" 413 [161]a$:[139]a$[178]""[167]413 414 [153]"wichtigsten lenstr$s der letzten (NULL)onate,wobeiich auch (NULL)achen wie (NULL)valatn(NULL)(NULL) mid$atn(NULL) er-" 415 [153]"waehne,obwohl der ihre lenstr$s total un- wichtig sind ... aber es gibt immer 416 print"wieder [204]eute (zuviele [204]eute) die auch unwichtige [195][196]s wichtig finden ...," 417 print"und [195][196]s die nicht unbedingt angekuendigtsind,aber langsam faellig.[211]oviel" 418 print"mal an [206]ews." 427 geta$:ifa$=""then427 428 goto0 500 print"[147]" 501 print"[145] [214][207][210][211][195][200][193][213] " 502 print"[211][208][201][197][204][197][212][197][201][204]:" 503 print"[195][200][193][210][212][211]" 506 print"[201][205] [212][197][211][212]:" 507 print"-[208]review von [211]uedeball" 510 print"-[207][204][196][201][197]:[194]undesliga-[205]anager [208][196] -u.a." 513 print"[208][210][207][199][210][193][205][205][197]:" 514 print"-[194]urgenschlacht" 515 print"-[212][207][208]-[208][210][199]:[205]usic [194]usiness -u.a." 519 geta$:ifa$=""then519 520 print"[147][205][213][211][201][203]:[215]ir bringen [206]ews-[206]otes,[204]atest [211]tuff,[195]harts (?),die [205]usic-[194]ox und 521 [153]"(NULL)(NULL)(NULL)-atnlen(NULL) wird chr$itarren-chr$uru peekval(NULL)(NULL)atn(NULL)str$ peek(NULL)(NULL)(NULL)val(NULL) sein." 522 [153]"right$m valstr$right$(NULL)(NULL)(NULL)right$atn(NULL) gibt es das (NULL)ebliche und ein (NULL)ini-chr$ame." 534 [161]a$:[139]a$[178]""[167]534 535 [137]0 600 [158]64738 700 [151]828,0 701 [153] [199](147) [199](17) 702 [153] "load"[199](34);"haupt*";[199](34); ",8 703 print chr$(17) chr$(17) chr$(17) chr$(17) "run" 704 poke631,13:poke632,13:poke198,2 705 print chr$(19);:end 800 print"[147] [200][193][204][204][207] ! " 801 print"[212]ja,[208][207][215][197][210] [196][201][211][203] 64 [198][201][206][193][204][204][217] [205][193][196][197] [201][212] ! [201]ch kann den ersten [208][196]64-[204]eser be-" 802 print"gruessen der nicht aus dieser [199]egend hier ist !!! [193]b sofort ist [208][196]64" 803 print"also auch ein ueberregionales [205]ag.[213]nd andie (bisher) anderen 2 [204]eser:[196]er" 804 print"[206]eue will auch immer brav seinen [205][201][212]- [205][193][195][200]-[218][197][212][212][197][204] ausfuellen und ist auch 805 [153]"ansonsten wohl nicht so 'ne (NULL)chlafta- blette wie ihr 2 !!! atnnsonsten gibt 806 print"es einiges [206]eues in dieser [193]usgabe zu entdecken (haelt sich aber stark in 807 [153]"chr$renzen) und statt (NULL)(NULL)(NULL)right$len peekright$(NULL) ist atn(NULL)(NULL) len(NULL)(NULL)(NULL) - (NULL)left$val atn(NULL)lenatnstr$val chr$atn(NULL)val das (NULL)(NULL)(NULL)-(NULL)(NULL)chr$" 808 [153]"dieser atnusgabe.len(NULL)atnlen(NULL)-(NULL)(NULL)atnlen(NULL) ist uebrigensfuer eine left$andelssimulation,die in" 809 [153]"der altehrwuerdigen chr$atn(NULL)val (NULL)(NULL) den 1.(NULL)latz beim (NULL)imu-(NULL)ttbwrb belegte.str$er (NULL)itel 810 print"faellt mit gerade nicht ein,aber ihr koennt mit diesem [208]rogramm be-" 811 print"liebige [200]igh-[211]cores erstellen - sogar beliebige [208]kt.-[218]ahlen,z.[194].[199][206][205][208][198] !" 812 geta$:ifa$=""then812 813 print"[193]nsonsten hoffe ich fuer die naechste [193]usgabe mal auf [205]itmach-[218]ettel und" 814 print"eventuell [204]eserbriefe.[201]m [205]usikteil ist uebrigens mein persoenlicher [198]avo-" 815 print"rit auf den [212]itel [193][204][194][213][205] [196][197][211] [202][193][200][210][197][211] im [212]est:[195][207][205][201][206][199] [213][208] von [211][213][197][196][197].[196]as [193]lbum" 816 print"stieg in [197]ngland und [196]aenemark von 0 auf1 ein,in [206]orwegen auf 3 und in" 817 print"[196]eutschland sogar auf 37 - total ohne [193]irplay von [214][201][214][193] oder '[194]ericht'-" 818 print"erstattung durch [194][210][193][214][207] ... [211][197][206][211][193][212][201][207][206][197][204][204]!" 827 geta$:ifa$=""then827 830 goto0 900 poke828,0 901 print chr$(147) chr$(17) 902 print "load"chr$(34);"ss.demo";chr$(34); ",8 903 [153] [199](17) [199](17) [199](17) [199](17) "run" 904 [151]631,13:[151]632,13:[151]198,2 905 [153] [199](19);:[128] 1000 [153]"load str$as (NULL)ini-chr$ame " 1001 [153]"str$as heutige (NULL)ini-chr$ame ist ein (NULL)ini-(NULL)uiz fuer 3012 (NULL)pieler. 1002 print"[201]ch nenne es mal [201][209]-[212][197][211][212] - [201][196][201][207][212][197][206]- [209][213][207][212][201][197][206][212]-[212][197][211][212] ..." 1003 input"[215]ieviele [211]pieler";e 1004 dimf(e),e$(e) 1005 print"1.[215]as bedeutet 'einen [194]ernard machen' ?" 1006 print"a) [214]erdauungsprobleme b) [205]usik-[199]enies herstellen" 1007 print"c) [203]eine [193]hnung" 1008 forz=1toe 1009 print"[211]pieler"z:input"[145]";e$(z) 1010 ife$(z)="a"thenf(z)=f(z)+3 1011 ife$(z)="b"thenf(z)=f(z)-1 1012 ife$(z)="c"thenf(z)=f(z)-3 1013 nextz 1014 print"[204]oesung:d) wegen musikalischen [196]ifferenzen aus einer [194]and aus-" 1015 print"steigen" 1016 print"2.[215]er schrieb den [211]ong [206][207][214][197][205][194][197][210] [210][193][201][206] von [199][213][206][211] [206]' [210][207][211][197][211] ?" 1017 print"a) [210]ainer [211]chwemmer b) [208]etrus" 1018 print"c) [203]eine [193]hnung" 1019 forz=1toe 1020 print"[211]pieler"z:input"[145]";e$(z) 1021 ife$(z)="a"thenf(z)=f(z)+3 1022 ife$(z)="b"thenf(z)=f(z)+2 1023 ife$(z)="c"thenf(z)=f(z)-3 1024 nextz 1025 print"[204]oesung:d) [215].[193]xl [210]ose" 1026 print"3.[215]elche [198]ormation veroeffentlichte die tolle [211]ingle [211][212][193][217] [212][207][199][197][212][200][197][210] ?" 1027 print"a) [212]ake [212]his b) [210]obby & [199]ary" 1028 print"c) [203]eine [193]hnung" 1029 forz=1toe 1030 print"[211]pieler"z:input"[145]";e$(z) 1031 ife$(z)="a"thenf(z)=f(z)+2 1032 ife$(z)="b"thenf(z)=f(z)+3 1033 ife$(z)="c"thenf(z)=f(z)-3 1034 nextz 1035 print"[204]oesung:s) [211]uede" 1036 print"4.[215]er bist du ?" 1037 print"a) [215]er ? [201]ch ? b) [203]eine [193]hnung" 1038 print"c) [193]uch keine [193]hnung" 1039 forz=1toe 1040 print"[211]pieler"z:input"[145]";e$(z) 1041 ife$(z)="a"thenf(z)=f(z)-3 1042 ife$(z)="b"thenf(z)=f(z)+2 1043 ife$(z)="c"thenf(z)=f(z)+3 1044 nextz 1045 print"[204]oesung:a) [215]er ? [201]ch ?" 1046 print"5." 1047 print"a) b)" 1048 print"c) [203]eine [193]hnung" 1049 forz=1toe 1050 print"[211]pieler"z:input"[145]";e$(z) 1051 ife$(z)="a"thenf(z)=f(z)+1 1052 ife$(z)="b"thenf(z)=f(z)+1 1053 ife$(z)="c"thenf(z)=f(z)-3 1054 nextz 1055 print"[204]oesung:c) [203]eine [193]hnung" 1056 print"[197]rgebnis:+-[194]ereich = [214]ollidiot --[194]ereich = [203]ein [201]diot" 1057 geta$:ifa$=""then1057 1058 forz=1toe 1059 print"[211]pieler"z":"f(z) 1060 geta$:ifa$=""then1060 1061 nextz 1062 return 1072 geta$:ifa$=""then1072 1073 print"[205]usiker des [202]ahres [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1074 print"[215][201][206][206][197][210]: [183][183][183][183][183][183]" 1077 print"[195]hris [201]saak - [196]er [205]ann,der gerne mal ein[215][201][195][203][197][196] [199][193][205][197] spielt,meldet sich mit 1078 [153]"asc(NULL)(NULL)val(NULL)val(NULL) peek(NULL)(NULL)val zurueck und erhaelt somit so ziemlich als einziger in den" 1079 [153]"90'ern den traditionellen (NULL)(NULL)len(NULL) atn(NULL)str$ (NULL)(NULL)(NULL)(NULL) ..." 1080 [153]"(NULL)(NULL)(NULL)(NULL)val(NULL) (NULL)(NULL): usrusrusrusrusrusrusrusrusr" 1083 [153]"(NULL)noop str$oggy str$ogg - lenalvin peekroadus ist wohl das atnushaengeschild der" 1084 [153]"chr$-ascunk-atnera.(NULL)nd chr$angsta-(NULL)ike heisst es fuer ihn (NULL)(NULL)(NULL)str$val(NULL) right$(NULL) (NULL)left$valcloselenatn(NULL)val ..." 1085 [161]a$:[139]a$[178]""[167]1085 1086 [153]"(NULL)usikerin des mid$ahres usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr" 1087 [153]"(NULL)right$(NULL)(NULL)val(NULL): usrusrusrusrusrusr" 1088 [153]"(NULL)heryl lenrow - (NULL)ommer '94 in den (NULL)(NULL)atn schon laengst ein (NULL)tar kam sie" 1089 [153]"valnde '94 mit atn(NULL)(NULL) right$ (NULL)atn(NULL)(NULL)atn str$(NULL) auch mal auf(NULL)right$(NULL)atn dran - und str$eutschland fand's 1090 print"gut ..." 1091 print"[210][213][206][206][197][210] [213][208]: [183][183][183][183][183][183][183][183][183]" 1093 print"[200]eather [206]ova - [205]it [207][217][211][212][197][210] gelang ihr der[196]urchbruch in diesem [202]ahr - bei" 1094 print"den [203]ritikern.[196]ie [193]llgemeinheit be- achtete das [193]lbum und die [211]ingle" 1095 print"[215][193][204][203] [212][200][201][211] [215][207][210][204][196] weniger,vor allem hier in [196]eutschland ..." 1099 geta$:ifa$=""then1099 1107 goto0 1150 print"[147] [211][208][210][213][195][200] [196][197][210] [193][213][211][199][193][194][197] " 1151 print"[211]chule.[193]m ersten [212]ag sollen in einer [193]bitur-[203]lasse je 3 [218]ettel wegen" 1152 print"kraenklichem [198]ehlen an die [211]chueler ver-teilt werden.[205]eint derjenige der" 1153 print"sie verteilen soll:'[203]oennen wir die nicht einfach rumgeben,und jeder" 1154 print"nimmt sich dann 3 ?'-'[206]ein,'meint der [204]ehrer,'das schaffen manche " 1155 print"nicht !'" 1156 geta$:ifa$=""then1156 1157 goto0 1200 print"[147][204]eserbriefe [183][183][183][183][183][183][183][183][183][183][183]" 1201 print"[201]n [218]ukunft sollen hier eure [194]riefe stehen.[200]abt ihr [198]ragen - [201]ch be-" 1202 print"antworte sie euch.[200]abt ihr [214]orwuerfe - ich streite sie ab.[200]abt ihr" 1203 print"[215]uensche - ich ignoriere sie.[200]abt ihr [212]raeume - ich vernichte sie.[200]abt" 1204 print"ihr eine [214]erletzung - ich lache ueber euch ..." 1205 print"[193]lso,meine scheiss [204]eserschaft,schreibt doch mal was ! [208][196]64 ist ein all-" 1206 print"gemeines [205]agazin - nur dass es nicht auf[208]apier im [200]andel erhaeltlich ist," 1207 print"sondern auf [196]isk fuer den [195]64.[201]hr muesstnicht nur computertechnisches an" 1208 print"diese [193]dresse richten - es gibt doch sicher auch andere [203][213][210][218]e [211]achen," 1209 print"die ihr hier breittreten koennt.[193]n [208][196]64 geschrieben ist kostenguenstiger" 1210 print"als aufs [198]ruehlingsfest gefahren." 1211 geta$:ifa$=""then1211 1212 goto0 2000 print"[147] [211]ammelangebote (portofrei) " 2001 print"[193]lternative [199]ame,[211]ettle-[194]attle und" 2002 print" [215][215][214] (oder [206][197][213]:[210]emix) 16.-[196][205]" 2003 print"3 [208]ower [196]isk 64-[193]usgaben 12.-[196][205]" 2004 print"5 [200]its 8.-[196][205]" 2005 print"[194]estellen koennt ihr nur noch per ([198]an-)[194]rief." 2006 geta$:ifa$=""then2006 2007 print" [206]eu im[160][193]ngebot " 2008 print"[208][207][215][197][210] [196][201][211][203] 64 1/95 5.-[196][205]" 2009 print"[208][207][215][197][210] [196][201][211][203] 64 2/95 5.-[196][205]" 2010 print"[208][207][215][197][210] [196][201][211][203] 64 1/96 5.-[196][205]" 2011 print"[196][201][197] [193][194][197][206][212][197][213][197][210] [196][197][211] [193][216][204] [195][207][207][204] (1/95) 3.-[196][205]" 2012 print"[215][215][214] ([210]emix) (2/95) 3.-[196][205]" 2013 print"[212][200][197] [209][213][197][211][212] [198][207][210] [200][210][210][210][210][210][210][210][210] (1/96) 3.-[196][205]" 2014 geta$:ifa$=""then2014 2015 goto0