2001 REM WWW.PLANET64.DE(null) 3003 REM(null) 4004 REM(null) 5005 REM(null) 6006 REM(null) 6400 REM WWW.PLANET64.DE(null) 6401 POKE 808,225 6402 GOTO 6428 6403 : 6404 REM ------------------------------ 6405 REM --- UNTERROUTINEN --- 6406 REM * PAUSE * 6407 FOR PP=1 TO P:NEXT:RETURN 6408 : 6409 REM * FIRE * 6410 IF PEEK(2040)=192 THEN POKE 2040,193:GOTO 6412 6411 POKE 2040,192 6412 P=30:GOSUB 6407 6413 RETURN 6414 : 6415 REM * KLING * 6416 POKE S3+1,SO:POKE S3+4,33:POKE S3+4,32:RETURN 6417 : 6418 REM * SCHRIFT EINBLENDEN * 6419 T$=T$+" " 6420 FOR I=1 TO LEN(T$) 6421 GOSUB 6410 6422 PRINT "";MID$(T$,I,1);"[152]";MID$(T$,I+1,1);"[151]";MID$(T$,I+2,1);"[157][157]"; 6423 NEXT 6424 RETURN 6425 : 6426 REM ------------------------------ 6427 REM --- HAUPTBEGINN --- 6428 SYS 58648:V=53248:POKE V+32,0:POKE V+33,0:PRINT"" 6429 S1=54272:S2=S1+7:S3=S1+14 6430 POKE S1+4,8:POKE S2+4,8:POKE S3+4,8 6431 : 6432 POKE S1+5,150:POKE S1+6,252 6433 POKE S2+5,150:POKE S2+6,252 6434 POKE S1,0:POKE S1+1,8 6435 POKE S2,18:POKE S2+1,8 6436 POKE S1+4,33:POKE S2+4,33 6437 POKE S1+24,15 6438 : 6439 REM ----- 6440 FOR I=0 TO 4*64-1 6441 READ S:POKE 12288+I,S 6442 NEXT 6443 REM FIRE 1 6444 DATA 0,0,32,0,8,28,128,36,8,32,158,36,32,103,148,27,109,236,37,149,103,30 6445 DATA 118,121,118,121,246,157,221,217,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6446 REM FIRE 2 6447 DATA 0,0,0,0,12,8,8,137,40,32,39,137,8,25,229,6,231,159,201,149,101,71,157 6448 DATA 222,182,157,125,215,119,118,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6449 REM DONUT 6450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,170,64,2,170,128,6,170,144,10,150,160,26,66 6451 DATA 160,41,1,160,40,0,160,40,0,160,40,0,160,40,1,160,40,2,160,41,2,160,42 6452 DATA 70,160,42,170,144,26,170,64,6,169,0,0,0,0,32 6453 REM CURRYWURST 6454 DATA 0,0,11,236,0,42,170,195,171,234,170,168,42,170,172,3,170,192,,,,,,,,,, 6455 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6456 : 6457 MT=6:DIM T$(MT) 6458 FOR X=0 TO MT 6459 READ T$(X) 6460 NEXT 6461 DATA "[208]ROF. [208]I[145]2/[208]LANET64.DE PRESENTS" 6462 DATA "A [194]-[194]-[194]" 6463 DATA "('[194]'AD AND '[194]'ILLIG '[194]'RODUCTION)" 6464 DATA "FOR [205]EKKA & [211]YMPOSIUM 2001" 6465 DATA "100% PURE [195]OMMODORE-[194]ASIC-[214]2-[195]ODE" 6466 DATA "CREATED FOR THE FAST-DEMO-COMPETITION" 6467 DATA "[197]NJOY IT!" 6468 SP$=" " 6469 FOR X=0 TO MT 6470 T$(X)=LEFT$(SP$,(40-LEN(T$(X)))/2)+T$(X) 6471 NEXT 6472 F1=3:DIM F(F1) 6473 FOR X=0 TO F1:READ F1(X):NEXT 6474 DATA 11,12,15,13 6475 F2=3:DIM F2(F2) 6476 FOR X=0 TO F2:READ F2(X):NEXT 6477 DATA 15,12,11,0 6478 : 6479 FOR I=0 TO 6 6480 READ SR(I) 6481 NEXT 6482 DATA 192,194,194,194,194,194,195 6483 : 6484 FOR I=0 TO 4 6485 READ DX(I),DY(I) 6486 NEXT 6487 DATA 100,060, 160,060, 220, 060 6488 DATA 130,095, 190,095 6489 : 6490 REM ------------------------------ 6491 REM --- HAUPTPROGRAMM --- 6492 REM ------------------------------ 6493 : 6494 FOR Y=0 TO MT 6495 P=1000:GOSUB 6407 6496 FOR X=0 TO F1 6497 POKE 646,F1(X) 6498 PRINT"";T$(Y) 6499 P=15:GOSUB 6407 6500 NEXT 6501 P=2500:GOSUB 6407 6502 FOR X=0 TO F2 6503 POKE 646,F2(X) 6504 PRINT"";T$(Y) 6505 P=15:GOSUB 6407 6506 NEXT 6507 NEXT 6508 : 6509 P=1000:GOSUB 6407 6510 POKE S1+4,32:POKE S2+4,32 6511 REM ------------------------------ 6512 POKE V+32,6:POKE V+33,6 6513 POKE V+17,11 6514 POKE V,24+17*8:POKE V+1,170 6515 POKE V+28,255 6516 POKE V+23,63:POKE V+29,63 6517 POKE V+37,8:POKE V+38,2 6518 FOR I=0 TO 6 6519 POKE V+39+I,7 6520 POKE 2040+I,SR(I) 6521 NEXT 6522 POKE V+45,8:REM ORANGENE WURST 6523 : 6524 POKE V+21,1 6525 PRINT"[147]";CHR$(142); 6526 PRINT""; 6527 PRINT SPC(17);"[152][162][162][162][162][162][162]" 6528 PRINT SPC(17);"[152][208] [146][207]" 6529 PRINT SPC(17);"  [221][221] " 6530 PRINT SPC(17);"  [221][221] " 6531 PRINT SPC(17);"  [221][221] " 6532 PRINT SPC(17);"  [221][221] " 6533 PRINT SPC(17);"  [221][221] " 6534 PRINT SPC(17);"  " 6535 POKE V+17,27 6536 : 6537 : 6538 : 6539 FOR I=1 TO 50 6540 P=50:GOSUB 6410 6541 NEXT 6542 : 6543 P=50:GOSUB 6407 6544 : 6545 REM --- DONATS EINBLENDEN --- 6546 POKE S3+5,0:POKE S3+6,248 6547 FOR I=0 TO 4 6548 POKE V+2+I*2,DX(I) 6549 POKE V+3+I*2,DY(I) 6550 POKE V+21,PEEK(V+21) OR 2^(I+1) 6551 GOSUB 6410 6552 SO=20+I*10:GOSUB 6416 6553 FOR J=1 TO 11 6554 GOSUB 6410 6555 NEXT 6556 NEXT 6557 : 6558 FOR I=1 TO 20 6559 GOSUB 6410 6560 NEXT 6561 REM --- WELCOME --- 6562 PRINT"";SPC(9); 6563 T$="- WELCOME TO DONUTGAMES -" 6564 GOSUB 6419 6565 : 6566 FOR I=1 TO 10 6567 GOSUB 6410 6568 NEXT 6569 : 6570 REM --- CURRYWURST --- 6571 PRINT:PRINT"";SPC(9); 6572 T$="THE ULTIMATE FIGHT FOR" 6573 GOSUB 6419 6574 PRINT:PRINT SPC(9); 6575 T$="THE OLYMPIC CURRYWURST!" 6576 GOSUB 6419 6577 POKE V+12,172:POKE V+13,160 6578 POKE V+21,PEEK(V+21) OR 64 6579 : 6580 FOR I=1 TO 150 6581 GOSUB 6410 6582 NEXT 6583 : 6584 REM BRAUNE WURST 6585 POKE V+45,9 6586 FOR I=1 TO 20 6587 GOSUB 6410 6588 NEXT 6589 : 6590 REM SCHWARZE WURST 6591 POKE V+45,0 6592 FOR I=1 TO 20 6593 GOSUB 6410 6594 NEXT 6595 REM --- WERBUNG --- 6596 POKE V+21,0 6597 POKE V+17,11 6598 PRINT"[147]" 6599 PRINT" [158][176][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][174]" 6600 PRINT" [221] [221]" 6601 PRINT" [221] [155][212]HIS GAME IS SPONSORED [158][221]" 6602 PRINT" [221] [221]" 6603 PRINT" [221] [155]BY [205]EKKA & [211]YMPOSIUM [158][221]" 6604 PRINT" [221] [221]" 6605 PRINT" [221] [221]" 6606 PRINT" [221] [155][197]VERY EASTER AT [158][221]" 6607 PRINT" [221] [221]" 6608 PRINT" [221] [155][198]ALLINGBOSTEL, GERMANY [158][221]" 6609 PRINT" [221] [221]" 6610 PRINT" [221] [221]" 6611 PRINT" [221] [221]" 6612 PRINT" [221] [155]COME [158][221]" 6613 PRINT" [221] [155]TO WHERE [158][221]" 6614 PRINT" [221] [155]THE SCENERS MEET! [158][221] 6615 [153]" (null) (null)" 6616 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP" 6617 [151] V[170]17,27 6618 P[178]7000:[141] 6407 6619 : 6620 [153]"" 6621 : 6622 [143] ------------------------------ 6623 [151] V[170]32,0:[151] V[170]33,0 6624 P[178]1500:[141] 6407 6625 [153] [166]12);"PRINTLEN64 NEVER DIES!" 6626 [129] I[178]1 [164] 26 6627 P[178]80 6628 [141] 6407 6629 [153] 6630 [130] 6631 : 6632 P[178]3000:[141] 6407 6633 [153]"LOADOPENTHE END" 6634 [153]"TOCMDSTOP"; 6635 [151] 808,237 6636 [151] 198,0 6637 [158] 42107