home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2003-03_2003_CSW_Side_B.d64 / currywurst_pp+bs (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  152 lines
  1. 100 goto 210
  2. 110 print"";left$(y$,y)
  3. 120 for j=0 to fx
  4. 130 poke 646,fa(j)
  5. 140 print"[145]";left$(x$,x);t$
  6. 150 for pp=1 to 40:next
  7. 160 next
  8. 170 for pp=1 to 1000:next
  9. 180 return
  10. 190 for j=1 to 25:print:for pp=1 to 10:next:next
  11. 200 return
  12. 210 v=53248
  13. 220 sys 58648:print"";
  14. 230 poke v+32,0:poke v+33,0
  15. 240 y$=""
  16. 250 x$=""
  17. 260 print"[147][144]@i@@z@@y@@*@@&@@[169]@@[164]@@([146]@@$[146]@@p[146]@@p[146]@@[160]@@ [146]@@";
  18. 270 print"t[146]@@([146]@@[164]@@x@@)@@z@@y@@j@@@i@@z@@y@@*@@&@@";
  19. 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]";
  20. 290 print"[176][146]cy0oj<@@i@@z@@y@@*@@&@@[169]@@[164]@?+[192][146]?'[176][146]@p[146]@@p[146]";
  21. 300 print"@@[160]@@ [146]@@t[146]@@([146]@@[164]@@x@@[169][192][146]c[218][176][146]cy0oj<@@i@@z@@y";
  22. 310 print"@@*@@&@@[169]@@[164][176][146]c+[192][146]o'[146]@<p[146]@@p[146]@@[160]@@ [146]@@t[146]@@([146]@@[164]@";
  23. 320 print"@x@@[169][192][146]c[218][176][146]cy0oj<@@"
  24. 330 for x=0 to 256:poke 12288+x,peek(1024+x):next
  25. 340 dim f(2,2)
  26. 350 for y=0 to 2:for x=0 to 2
  27. 360 read f(x,y)
  28. 370 next:next
  29. 380 data 08,09,00
  30. 390 data 14,15,11
  31. 400 data 01,12,06
  32. 410 fx=6:dim fa(fx)
  33. 420 for y=0 to fx
  34. 430 read fa(y)
  35. 440 next
  36. 450 data 11,12,14,3,15,7,1
  37. 460 poke v+17,27
  38. 470 x=5:y=12:t$="prof.pi[145]2 and brainstorm present":gosub 110:gosub 190
  39. 480 x=12:y=12:t$="for breakpoint 2003":gosub 110:gosub 190
  40. 490 x=10:y=12:t$="4k intro competition":gosub 110:gosub 190
  41. 500 x=15:y=12:t$="'currywurst'":gosub 110:gosub 190
  42. 510 for p=1 to 1000:next
  43. 520 print"[147][150]"
  44. 530 printtab(7)"                [146]"
  45. 540 printtab(7)"           [146]"
  46. 550 printtab(7)"              [146]"
  47. 560 printtab(7)"        [146]"
  48. 570 printtab(7)"              [146]"
  49. 580 poke v+17,27
  50. 590 for p=1 to 1000:next:print""
  51. 600 printtab(30)"   [146]"
  52. 610 printtab(30)"  [146]"
  53. 620 printtab(30)"   [146]"
  54. 630 printtab(30)"  [146]"
  55. 640 printtab(30)"   [146]"
  56. 650 forp=1 to 1000:next:print""
  57. 660 printtab(30)"[146]  [146]"
  58. 670 for p=1 to 1000:next:print""
  59. 680 printtab(6)"                  [146]"
  60. 690 printtab(6)"[146]              [146]"
  61. 700 printtab(6)"    [146]   [146]   [146]   [146]   [146]  [146]"
  62. 710 printtab(6)" [146]              [146]"
  63. 720 printtab(6)"                  [146]"
  64. 730 for p=1 to 2000:next
  65. 740 x=13:y=12:t$="it's time for":gosub 110
  66. 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]"
  67. 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]"
  68. 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]"
  69. 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]"
  70. 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]"
  71. 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]"
  72. 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]"
  73. 820 for p=1 to 3000:next
  74. 830 gosub 190
  75. 840 poke v+32,0
  76. 850 poke v+17,11
  77. 860 poke v+33,15
  78. 870 print"[155][147]";
  79. 880 for x=0 to 2
  80. 890 print""
  81. 900 t=12+x*6
  82. 910 print tab(t);"[208]  [146][207]"
  83. 920 print tab(t);"   "
  84. 930 print tab(t);"   "
  85. 940 print tab(t);"[172]  [146][187]"
  86. 950 next
  87. 960 print"";
  88. 970 for x=1 to 5
  89. 980 print"                                       ";
  90. 990 next
  91. 1000 print"    [157][148] ";
  92. 1010 print""
  93. 1020 :
  94. 1030 poke v+21,0
  95. 1040 for x=0 to 2
  96. 1050 poke v+1+x*2,50+13*8+3
  97. 1060 poke v+x*2,24+13*8+x*6*8-4
  98. 1070 poke 2040+x,192
  99. 1080 poke v+39+x,f(0,0)
  100. 1090 next
  101. 1100 poke v+28,7:rem 1-3 mc on
  102. 1110 poke v+37,f(1,0):poke v+38,f(2,0):rem mc 1&2
  103. 1120 poke v+32,6
  104. 1130 poke v+17,27
  105. 1140 for p= 1 to 1000:next
  106. 1150 rem ** wuerste einblenden **
  107. 1160 for x=1 to 3
  108. 1170 poke v+21,2^x-1
  109. 1180 for p=1 to 500:next
  110. 1190 next
  111. 1200 rem ** beine wachsen lassen **
  112. 1210 for x=0 to 2
  113. 1220 poke 2040+x,193
  114. 1230 for p=1 to 500:next
  115. 1240 next
  116. 1250 f=0
  117. 1260 for t=1 to 29
  118. 1270 for a=0 to 3
  119. 1280 for x=0 to 2
  120. 1290 poke 2040+x,193+a+2*(a=3)
  121. 1300 next
  122. 1310 for p=1 to 50+t*5:next
  123. 1320 next
  124. 1330 if t/10 <> int(t/10) then 1380
  125. 1340 f=f + 1
  126. 1350 for i=0 to 2:poke v+39+i,f(0,f):next
  127. 1360 poke v+37,f(1,f)
  128. 1370 poke v+38,f(2,f)
  129. 1380 next
  130. 1390 for p=1 to 1000:next
  131. 1400 :
  132. 1410 for t=1 to 15
  133. 1420 for x=0 to 2
  134. 1430 poke v+x*2,peek(v+x*2)+1+2*(t/2=int(t/2))
  135. 1440 for p=1 to 3:next
  136. 1450 next
  137. 1460 next
  138. 1470 for p=1 to 2000:next
  139. 1480 poke v+21,0
  140. 1490 print"[147]"
  141. 1500 poke v+32,6:poke v+33,6
  142. 1510 for p=1 to 500:next
  143. 1520 t$="frozen currywurst":x=10:y=10:gosub 110
  144. 1530 for p=1 to 1000:next
  145. 1540 t$="exclusivly at":x=13:y=12:gosub 110
  146. 1550 t$="breakpoint 2003":x=16:y=14:gosub 110
  147. 1560 t$="the coldest place in town":x=8:y=17:gosub 110
  148. 1570 for p=1 to 8000:next
  149. 1580 poke v+32,0:poke v+17,11
  150. 1590 for p=1 to 5000:next
  151. 1600 sys 65126
  152.