home *** CD-ROM | disk | FTP | other *** search
- 100 goto 210
- 110 print"";left$(y$,y)
- 120 for j=0 to fx
- 130 poke 646,fa(j)
- 140 print"[145]";left$(x$,x);t$
- 150 for pp=1 to 40:next
- 160 next
- 170 for pp=1 to 1000:next
- 180 return
- 190 for j=1 to 25:print:for pp=1 to 10:next:next
- 200 return
- 210 v=53248
- 220 sys 58648:print"";
- 230 poke v+32,0:poke v+33,0
- 240 y$=""
- 250 x$=""
- 260 print"[147][144]@i@@z@@y@@*@@&@@[169]@@[164]@@([146]@@$[146]@@p[146]@@p[146]@@[160]@@ [146]@@";
- 270 print"t[146]@@([146]@@[164]@@x@@)@@z@@y@@j@@@i@@z@@y@@*@@&@@";
- 280 print"[169]@<[164]@o+[146]@c'[192][146]@p[176][146]@p[146]@@[160]@@ [146]@@t[146]@@([146]@@[164]@@x@@[169][192][146]c[218][146]";
- 290 print"[176][146]cy0oj<@@i@@z@@y@@*@@&@@[169]@@[164]@?+[192][146]?'[176][146]@p[146]@@p[146]";
- 300 print"@@[160]@@ [146]@@t[146]@@([146]@@[164]@@x@@[169][192][146]c[218][176][146]cy0oj<@@i@@z@@y";
- 310 print"@@*@@&@@[169]@@[164][176][146]c+[192][146]o'[146]@<p[146]@@p[146]@@[160]@@ [146]@@t[146]@@([146]@@[164]@";
- 320 print"@x@@[169][192][146]c[218][176][146]cy0oj<@@"
- 330 for x=0 to 256:poke 12288+x,peek(1024+x):next
- 340 dim f(2,2)
- 350 for y=0 to 2:for x=0 to 2
- 360 read f(x,y)
- 370 next:next
- 380 data 08,09,00
- 390 data 14,15,11
- 400 data 01,12,06
- 410 fx=6:dim fa(fx)
- 420 for y=0 to fx
- 430 read fa(y)
- 440 next
- 450 data 11,12,14,3,15,7,1
- 460 poke v+17,27
- 470 x=5:y=12:t$="prof.pi[145]2 and brainstorm present":gosub 110:gosub 190
- 480 x=12:y=12:t$="for breakpoint 2003":gosub 110:gosub 190
- 490 x=10:y=12:t$="4k intro competition":gosub 110:gosub 190
- 500 x=15:y=12:t$="'currywurst'":gosub 110:gosub 190
- 510 for p=1 to 1000:next
- 520 print"[147][150]"
- 530 printtab(7)" [146]"
- 540 printtab(7)" [146]"
- 550 printtab(7)" [146]"
- 560 printtab(7)" [146]"
- 570 printtab(7)" [146]"
- 580 poke v+17,27
- 590 for p=1 to 1000:next:print""
- 600 printtab(30)" [146]"
- 610 printtab(30)" [146]"
- 620 printtab(30)" [146]"
- 630 printtab(30)" [146]"
- 640 printtab(30)" [146]"
- 650 forp=1 to 1000:next:print""
- 660 printtab(30)"[146] [146]"
- 670 for p=1 to 1000:next:print""
- 680 printtab(6)" [146]"
- 690 printtab(6)"[146] [146]"
- 700 printtab(6)" [146] [146] [146] [146] [146] [146]"
- 710 printtab(6)" [146] [146]"
- 720 printtab(6)" [146]"
- 730 for p=1 to 2000:next
- 740 x=13:y=12:t$="it's time for":gosub 110
- 750 print"[213][195][201][213][201][213][201][213][195][195][201][213][195][195][201][213][201][213][201][213][201] [213][201][213][201][213][201][213][195][195][201][213][195][201][213][195][195][201]"
- 760 print"[145][194][213][203][194][194][194][194][194][213][201][194][194][213][201][194][194][194][194][194][194][194][213][201][194][194][194][194][194][194][194][213][201][194][194][213][203][202][201][213][203]"
- 770 print"[145][194][194] [194][194][194][194][194][202][203][194][194][202][203][194][194][202][203][194][194][194][194][194][194][194][194][194][194][194][194][202][203][194][194][202][201] [194][194]"
- 780 print"[194][194] [194][194][194][194][194][213][195][203][194][213][195][203][202][201][213][203][194][194][194][194][194][194][194][194][194][194][194][213][195][203][202][201][194] [194][194]"
- 790 print"[194][194] [194][194][194][194][194][202][195][201][194][202][195][201][160][194][194] [194][194][194][194][194][194][194][194][194][194][194][202][195][201] [194][194] [194][194]"
- 800 print"[194][202][201][194][202][203][194][194][213][201][194][194][213][201][194] [194][194] [194][202][203][202][203][194][194][202][203][194][194][213][201][194][213][203][194] [194][194]"
- 810 print"[202][195][203][202][195][195][203][202][203][202][203][202][203][202][203] [202][203] [202][195][195][195][195][203][202][195][195][203][202][203][202][203][202][195][203] [202][203]"
- 820 for p=1 to 3000:next
- 830 gosub 190
- 840 poke v+32,0
- 850 poke v+17,11
- 860 poke v+33,15
- 870 print"[155][147]";
- 880 for x=0 to 2
- 890 print""
- 900 t=12+x*6
- 910 print tab(t);"[208] [146][207]"
- 920 print tab(t);" "
- 930 print tab(t);" "
- 940 print tab(t);"[172] [146][187]"
- 950 next
- 960 print"";
- 970 for x=1 to 5
- 980 print" ";
- 990 next
- 1000 print" [157][148] ";
- 1010 print""
- 1020 :
- 1030 poke v+21,0
- 1040 for x=0 to 2
- 1050 poke v+1+x*2,50+13*8+3
- 1060 poke v+x*2,24+13*8+x*6*8-4
- 1070 poke 2040+x,192
- 1080 poke v+39+x,f(0,0)
- 1090 next
- 1100 poke v+28,7:rem 1-3 mc on
- 1110 poke v+37,f(1,0):poke v+38,f(2,0):rem mc 1&2
- 1120 poke v+32,6
- 1130 poke v+17,27
- 1140 for p= 1 to 1000:next
- 1150 rem ** wuerste einblenden **
- 1160 for x=1 to 3
- 1170 poke v+21,2^x-1
- 1180 for p=1 to 500:next
- 1190 next
- 1200 rem ** beine wachsen lassen **
- 1210 for x=0 to 2
- 1220 poke 2040+x,193
- 1230 for p=1 to 500:next
- 1240 next
- 1250 f=0
- 1260 for t=1 to 29
- 1270 for a=0 to 3
- 1280 for x=0 to 2
- 1290 poke 2040+x,193+a+2*(a=3)
- 1300 next
- 1310 for p=1 to 50+t*5:next
- 1320 next
- 1330 if t/10 <> int(t/10) then 1380
- 1340 f=f + 1
- 1350 for i=0 to 2:poke v+39+i,f(0,f):next
- 1360 poke v+37,f(1,f)
- 1370 poke v+38,f(2,f)
- 1380 next
- 1390 for p=1 to 1000:next
- 1400 :
- 1410 for t=1 to 15
- 1420 for x=0 to 2
- 1430 poke v+x*2,peek(v+x*2)+1+2*(t/2=int(t/2))
- 1440 for p=1 to 3:next
- 1450 next
- 1460 next
- 1470 for p=1 to 2000:next
- 1480 poke v+21,0
- 1490 print"[147]"
- 1500 poke v+32,6:poke v+33,6
- 1510 for p=1 to 500:next
- 1520 t$="frozen currywurst":x=10:y=10:gosub 110
- 1530 for p=1 to 1000:next
- 1540 t$="exclusivly at":x=13:y=12:gosub 110
- 1550 t$="breakpoint 2003":x=16:y=14:gosub 110
- 1560 t$="the coldest place in town":x=8:y=17:gosub 110
- 1570 for p=1 to 8000:next
- 1580 poke v+32,0:poke v+17,11
- 1590 for p=1 to 5000:next
- 1600 sys 65126
-