10 REM ********************************* 15 REM ** ** 20 REM ** 'BLOCKGRAPHIK' - WETTBEWERB ** 25 REM ** ** 30 REM ********************************* 35 REM ** ** 40 REM ** FUER C 16/116 & C 64 ** 45 REM ** ** 50 REM ********************************* 55 REM ** JOERG GERJETS / 2980 NORDEN ** 60 REM ** ** 65 REM ** (C) BY DPS MCMLXXXV ** 70 REM ********************************* 75 REM ** BEI C 16/116 DURCH DRUECKEN ** 80 REM ** DER TASTEN '@','+','-' ** 85 REM ** & '*' BEWEGUNG ** 90 REM ** [ESC] = ENDE ** 95 REM ********************************* 100 PRINT"":PRINTCHR$(142):(null)4,1:(null)0,2 110 PRINT"[147]"; 120 PRINT"[144] F 2 3 4[144] ######### ^ ^^ ^  2 4 [144] " 130 PRINT" U [149]  [146][159][213][195][195][195][201][144][213][195][195][195][195][195][201][154][168][144][223][213][178][178][178][178][178][178][201]0[149] [194] 6[144] " 140 PRINT" E 1[149] [213] 5[146][159][194][209] [209][159][194][144][194][129] M-3 [146][144][194][149][213][201][144][171][219][219][219][219][219][219][179] [149] [215]  [144] " 150 PRINT" L [149] [205] [146][159][194] [209][158][209][159][194][144][202][195][195][195][195][195][203][149][194][194][144][171][219][219][219][219][219][219][179]HT[149] 8[144] " 160 PRINT"  0 7 6[146][159][202][195][195][195][203][161]30.37[146][161][149][202][203][144][202][177][177][177][177][177][177][203] 10 [144] " 170 PRINT"[169][129][172][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][146][187][144][223]" 180 PRINT"[129]  [146]  [146] [144] . [129] " 190 PRINT"[170] [146] [144][223][146][129]  [146] [144] , [129] [146][180]" 200 PRINT"[182] [146] [144]  [183][183][163] [223][146][129]  [146] [129][216] [129] [146][181]" 210 PRINT"[161] [146] [144][183][187][146][184][187][146][184][184][129]  [146] [175][146] [129] [146][161]" 220 PRINT"[161] [146]  [146] [144][216] [175][146] [129] [146][161]" 230 PRINT"[182] [146] [144][164][129]  [146] [144][183] [146] [175][146] [129] [146][181]" 240 PRINT"[170] [146][149][185][175][185][175][164]  [164] [164] [144][223] [129] [144] [146][169] [164] [149][185][162] [184][146][175] [129] [146][180]" 250 PRINT"   [129]  [129] " 260 PRINT" [188][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][146][190]" 270 PRINT" [198][198][198] [175] [213][195][195][195][195][201] [144][213][195][195][195][195][195][195][195][195][178][195][195][201] -RADAR[144]- [213][195][201]" 280 PRINT" [215][209][215][186]N[146][204] [194]W 1[146][194]<[144][194][153][169] [164] [164] [223][146][144][194][209][209][144][194] [169] [194] [223][146][144] [171] [179]" 290 PRINT"[154] > [169] [223][146][202][195][195][178][195][177][201][144][194][153] [164][164] [164][164] [146][144][194] [129]^[144][194]  [206] [146][144] [171] [179]" 300 PRINT" [175][169] [223][146][175] [194][154] [146][194][144][194][153] [164] [164] [146][144][194][209] [144][194][213] [206] [146][144][201][171][158][185][144][179]" 310 PRINT"[170]W _[195][215][195] E[146][180][194][154] [146][194][144][194][153][175] [175][186][204][175] [175][146][144][194][209] [144][194][194][195] [215] [195][146][144][194][171][158] [146][144][179]" 320 PRINT" [183][223] [146][169][183] [202][195][195][203][144][194][183] [164] [164] [183][146][194] [158][209][144][194][202] [146][144][203][171][158] [146][144][179]" 330 PRINT" [129][175] [223] [146][169][129]_[215] [156]DPS[129]-[144][194] [164][164] [164][164] [146][194][129][215][159]+[144][194]  [146][144] [171][158] [146][144][179]" 340 PRINT"[129][170][156][209][129][180] [208]S[146][207][176][195][195][195][195][195][195][174][144][194] [164] [164] [146][194] [156][209][144][194] [223] [194] [146][169][144] [171][158] [146][144][179]" 350 PRINT"[149][170]#4[146][180] [183][144] [194][144]>>[255][216][144]<<[194][144][194][223] [146][169][194]*[144]*[194] [202][195][203] [202][195][203] " 360 PRINT"[223][146] [196][196][196][196] [173][195][195][195][195][195][195][189][144][202][195][195][195][195][195][195][195][195][177][195][195][203] [153][215][154][197][197][197][197][197][153][215][144] _ ";:POKE4071,233 370 REM 380 REM 390 REM 400 REM ******************************* 410 REM ** BEWEGUNG - NUR C 16/116 ! ** 420 REM ******************************* 430 (null):GET(null)A$ 440 IFA$="*"THEN(null)1,34,08,"[130][129][216][144]":(null)1,37,24,"[130][144]_":(null)1,26,19,"[130][218]" 450 IFA$="+"THEN(null)1,13,3,"[130][209]":(null)1,1,22,"[130][156][209]" 460 IFA$="-"THEN(null)1,25,23,"[130]*":(null)1,23,1,"[130][156][168]" 470 IFA$="@"THENPRINT""CHR$(27)"T" 480 IFA$="@"THENPRINT""CHR$(27)"B";:GOTO510 490 IFA$=CHR$(27)THEN600 500 (null) 510 FORI=1TO4:FORJ=1TO1000:NEXT:PRINT:NEXT:(null) 600 PRINT"[147][144] ** (C) BY DON'T PANIC SOFT **" 700 REM ******************************** 710 REM ******************************** 720 REM ** ACHTUNG : AENDERUNGEN ** 730 REM ** FUER C 64 ** 740 REM ******************************** 750 REM ** POKE 4071,233 IN ZEILE 360 ** 760 REM ** MUSS DURCH POKE 2023,233 ** 770 REM ** ERSETZT WERDEN ** 780 REM ******************************** 790 REM ** COLOR 0,2 IN ZEILE 100 ** 800 REM ** MUSS DURCH POKE 53281,1 ** 810 REM ** ERSETZT WERDEN ** 820 REM ******************************** 830 REM ** COLOR 4,1 IN ZEILE 100 ** 840 REM ** MUSS DURCH POKE 53280,0 ** 850 REM ** ERSETZT WERDEN ** 860 REM ******************************** 870 REM ** DAS STEUERZEICHEN FUER ** 880 REM ** HELLBLAU MUSS DURCH ** 890 REM ** NORMAL-BLAU ERSETZT ** 900 REM ** NUR WICHTIG IN ZEILE ** 910 REM ** 280 - 310 ** 920 REM ******************************** 930 REM ** ZEILE 430 MUSS LAUTEN : ** 940 REM ** 430 GETA$:IFA$=""THEN430 ** 950 REM ** ZEILE 440 - 510 DUERFEN ** 960 REM ** NICHT UEBERNOMMEN WERDEN ** 970 REM ******************************** 980 REM ********************************