Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 10 WINDOW:BORDER 4:INK 8:PAPER 5:CLS 20 PRINT AT(1,1);"",STRING$(35,""),"" 30 FOR I=2 TO 20:PRINT AT(I,1);"":PRINT AT(I,37);"":NEXT I 40 PRINT AT(21,1);"",STRING$(35,""),"" 50 PRINT AT(10,13);" R A L L E Y ":PRINT AT(11,13);"" 60 PRINT AT(19,25);"<<ENTER>>":WINDOW 5,18,2,36:INPUT " ";:CLS 70 PRINT "Sie koennen die Fahrtrichtung ihres Autos selbst aendern." 80 PRINT "Betaetigen sie dazu die Pfeil- tasten." 90 PRINT "Anhalten mit der Taste <B>." 100 PRINT "Anfahren mit der Taste <G>." 110 PRINT "Es koennen mehrere Spieler mit- machen." 120 PRINT "Die Auswertung vollziehe ich am ENDE !" 130 PRINT "Anzahl der Mitspieler bis 20 !":INPUT " ";:CLS 131 PRINT " ":PRINT " ":PRINT " Wollen Sie schneller fahren":PRINT " " 132 PRINT " betaetigen Sie Taste <G> .":INPUT " ";:CLS 140 PRINT "Sie muessen versuchen das Auto ohne Unfall zu steuern." 150 PRINT "Wer als Schnellster die winkenden" 160 PRINT "Leute abgeholt hat wird Sieger werden koennen !" 162 PRINT "Damit die Leute einsteigen koennen" 163 PRINT "muss das Auto zwichen ihnen stehen." 165 PRINT "Die Schranke kann durchfahren werden." 170 PRINT " Ich wuensche viel Erfolg !":INPUT " ";:WINDOW:CLS 200 BORDER 7:INK 4:PAPER 1:CLS:WINDOW 17,23,21,39 210 REM BILD AUFMALEN************* 220 PRINT INK 2;AT(13,9);"":PRINT INK 8,PAPER 7;AT(14,10);"" 221 PRINT INK 2;AT(19,16);"" 222 PRINT INK 8,PAPER 4;AT(20,17);"":PRINT INK 2;AT(0,24);"" 223 PRINT INK 8,PAPER 6;AT(1,25);"" 230 PRINT INK 6;AT(15,2);"":PRINT INK 6;AT(16,2);"":PRINT INK 6;AT(17,2);"" 235 PRINT AT(16,3);" " 240 PRINT INK 3;AT(2,6);"":PRINT INK 3;AT(3,5);"":PRINT INK 3;AT(4,6);"T" 250 FOR I=7 TO 12:PRINT INK 3;AT(I,4);"":NEXT I:PRINT INK 3;AT(13,4);"" 260 FOR I=5 TO 12:PRINT INK 3;AT(I,8);"":PRINT INK 3;AT(I,25);"" 265 PRINT INK 3;AT(I+2,22);"" 270 PRINT INK 3;AT(I-2,10);"":PRINT INK 3;AT(I+4,18);"":NEXT I 280 PRINT INK 3;AT(13,8);"":PRINT INK 3;AT(13,25);"":PRINT INK 3;AT(15,22);"" 290 PRINT INK 3;AT(11,10);"":PRINT INK 3;AT(17,18);"" 300 PRINT INK 2;AT(5,19);"-":PRINT AT(6,12);"":PRINT AT(7,12);"T " 305 PRINT INK 5;AT(6,20);"" 310 PRINT AT(3,31);" " 315 PRINT INK 3;AT(13,30);"" 320 PRINT INK 3;AT(14,27);"" 330 PRINT INK 3;AT(15,28);"" 340 REM VEREWIGUNG******: 350 DIM P$(20):DIM TP(20):DIM UP(20) 360 N=0 370 IF N=21 THEN GOTO 600:REM 600IST SCHLUSS;HIERHER ZURUECKSPRINGEN 380 INPUT "Name des Fahrers: ";P$(N):A=1:D=1:G=1:R=1:GOSUB 1000 390 TS=0:UN=0:AZ=16:AS=3:FR=2:PRINT AT(3,31);" " 399 REM ACTION************************* 400 TS=TS+1 410 IF TS=300 THEN PRINT "Du bist mir zu langsam!":FOR I=1 TO 9:BEEP:NEXT I:GOTO 3800 430 IF UN=10 THEN PRINT "Fahrer disqualifizieren!":FOR I=1 TO 9:BEEP:NEXT I:GOTO 3800 440 IF FR=2 OR FR=4 THEN PRINT AT(AZ,AS);"":ELSE PRINT AT(AZ,AS);"" 442 GOSUB 3000 444 GOSUB 3200 450 P$=INKEY$ 452 IF P$=CHR$(71)THEN A=1 :R=R+1 454 IF P$=CHR$(66)THEN R=R-2 455 IF R>4 THEN R=4 456 IF R<=0 THEN R=0 :A=0 460 L=R :IF P$=CHR$(8)THEN FR=4 470 IF P$=CHR$(9)THEN FR=2 480 IF P$=CHR$(10)THEN FR=3 490 IF P$=CHR$(11)THEN FR=1 500 IF FR=1 THEN ZZ=AZ-A:ZS=AS 502 IF ZZ<0 THEN FR=0 :ZZ=0 510 IF FR=3 THEN ZZ=AZ+A:ZS=AS 512 IF ZZ>23 THEN FR=0 :ZZ=23 520 IF FR=2 THEN ZS=AS+A:ZZ=AZ 522 IF ZS>39 THEN FR=0 :ZS=39 530 IF FR=4 THEN ZS=AS-A:ZZ=AZ 532 IF ZS<0 THEN FR=0 :ZS=0 535 IF FR=0 THEN BEEP:ZZ=AZ:ZS=AS 536 IF L>0 THEN L=L-1 537 IF PEEK(-5120+40*ZZ+ZS)=196 THEN PRINT "Fahrer einsperren!":UN=20:GOTO 3800 538 IF AZ=16 AND AS=3 AND PEEK(-4969)<>196 THEN GOSUB 2800:GOTO 600:REM ENDE**** 540 KN=PEEK(-5120+40*ZZ+ZS):IF KN<>32 AND KN<>206 THEN BEEP:GOSUB 2300:REMUNFALL 560 IF(AZ=8 OR AZ=4)AND AS>12 AND AS<16 THEN GOSUB 2000:REM SCHRANKENSPRUNG ****** 570 IF AZ=3 AND AS=32 AND A=0 THEN GOSUB 2500:REM EINSTEIGEN 571 IF PEEK(-4969)<>196 THEN GOTO 580 572 PRINT AT(3,30);"":PRINT AT(3,34);"":PAUSE 1 575 PRINT AT(3,30);"":PRINT AT(3,34);"":REM WINKEN 580 PRINT AT(AZ,AS);" ":AZ=ZZ :AS=ZS :IF L>0 THEN GOTO 500 :ELSE GOTO 400 600 REM SCHLUSS 610 INPUT "Weiterspielen?(J/N)";F1$ 620 IF F1$="J"THEN N=N+1:GOTO 370 630 WINDOW:CLS 640 TX=300:J=-1:FOR I=0 TO 20 650 IF TP(I)<TX AND TP(I)>0 AND UP(I)<10 THEN TX=TP(I):J=I 660 NEXT I:IF J=-1 THEN GOTO 995 670 PRINT "Bester Fahrer und damit Champion ist " 675 PRINT " ";P$(J):PRINT " " 680 PRINT "mit einer Bestzeit von" 685 PRINT " ":PRINT TP(J);" Sekunden.":PRINT " " 690 TX=10:J=-1:FOR I=0 TO 20 700 IF UP(I)<TX AND TP(I)>0 THEN TX=UP(I):J=I 710 NEXT I:IF J=-1 THEN GOTO 995 720 PRINT "Sicherster Fahrer ist heute":PRINT " " 725 PRINT P$(J);" mit nur":PRINT " " 730 PRINT UP(J);"Unfaellen!" 740 PRINT INK 4;"" 750 J=-1:FOR I=0 TO 20 760 IF UP(I)=20 THEN PRINT P$(I);" ";:J=1 770 NEXT I:PRINT " " 780 IF J=1 THEN PRINT "sind einzusperren!" 790 J=-1:FOR I=0 TO 20 800 IF UP(I)=10 THEN PRINT P$(I);" ";:J=1 810 NEXT I:PRINT " " 820 IF J=1 THEN PRINT "haben ihre Fahrerlaubnis abzugeben!" 830 J=-1:FOR I=0 TO 20 840 IF TP(I)>250 THEN PRINT P$(I);" ";:J=1 850 NEXT I:PRINT " " 860 IF J=1 THEN PRINT "haben sich in aerztliche Behandlung zu begeben!" 870 IF J=1 THEN PRINT "(Nervenarzt)" 990 PAUSE 200:CLS:END 995 PRINT "Heute hatten wir es nur":PRINT " ":PRINT "mit Idioten zu tun!" 996 FOR I=1 TO 5:BEEP:PAUSE 1:BEEP:BEEP:PAUSE 2:NEXT I:CLS:END 1000 CLS:BEEP:PRINT AT(15,11);"":PAUSE 5 1010 PRINT AT(16,10);"":PRINT AT(15,11);" ":PAUSE 5 1020 PRINT AT(16,9);" ":PAUSE 5:PRINT AT(16,8);" ":PAUSE 5 1030 PRINT AT(16,7);" ":PAUSE 5:PRINT AT(16,6);" ":PAUSE 5 1040 PRINT AT(15,5);"":PRINT AT(16,5);" ":PRINT AT(15,6);"":PAUSE 5 1050 PRINT AT(15,5);"":PAUSE 5:PRINT AT(15,5);" ":PRINT AT(14,5);"":PAUSE 5 1060 PRINT AT(15,5);"":PAUSE 5:PRINT AT(15,6);"":PRINT AT(14,5);" ":PAUSE 5 1070 PRINT AT(17,5);"":PRINT AT(16,5);"":PRINT AT(15,6);" ":PAUSE 5 1080 PRINT AT(17,5);"":PRINT AT(16,5);" ":PAUSE 5:PRINT AT(17,5);"":PAUSE 5 1090 PRINT AT(17,5);" ":PRINT AT(16,4);"":PAUSE 5 1100 PRINT AT(16,3);" ":RETURN 2000 REM SCHRANKENPROGRAMM************** 2001 IF AZ=4 THEN PRINT AT(4,12);" ":PRINT AT(4,14);"" 2002 IF AZ=8 THEN PRINT AT(8,12);" ":PRINT AT(8,14);"" 2010 FOR I=1 TO 5:BEEP:PAUSE 1:BEEP:BEEP:PAUSE 2:NEXT I 2020 PRINT AT(7,20);"":PAUSE 9:PRINT AT(7,19);" ":PAUSE 5 2030 PRINT AT(7,18);" ":PAUSE 5 2040 PRINT AT(7,18);" ":PRINT AT(6,18);"":PAUSE 5 2050 PRINT AT(5,13);"":PRINT AT(6,13);" ":PAUSE 5 2060 PRINT AT(4,14);"":PRINT AT(5,13);" ":PRINT AT(6,15);" " 2065 IF AZ=4 THEN GOTO 2180 2070 PRINT AT(8,13);" ":PRINT AT(7,14);"":PAUSE 5 2080 PRINT AT(7,14);" ":PRINT AT(6,14);" ":PRINT AT(5,15);" " 2090 PRINT AT(4,14);" ":PRINT AT(3,15);"":PAUSE 5 2100 PRINT AT(3,15);" ":PRINT AT(4,14);" ":PRINT AT(5,14);" " 2110 PRINT AT(6,14);" ":PRINT AT(7,18);"":PAUSE 5 2120 PRINT AT(4,14);"":PRINT AT(5,13);" ":PRINT AT(6,15);"" 2130 PRINT AT(7,18);" ":PAUSE 5 2140 PRINT AT(3,14);"":PRINT AT(4,14);" ":PRINT AT(5,13);" " 2150 PRINT AT(6,13);"":PRINT AT(7,19);" ":PAUSE 5 2160 PRINT AT(3,14);"":PRINT AT(7,20);" ":PAUSE 5:PRINT AT(3,14);" " 2170 ZA=3:SA=14:FR=2:ZZ=3:ZS=15:RETURN 2180 PRINT AT(4,12);" ":PRINT AT(5,14);"":PAUSE 5 2190 PRINT AT(5,14);" ":PRINT AT(6,14);" ":PRINT AT(3,15);"" 2200 PRINT AT(4,15);"":PAUSE 5:PRINT AT(3,15);" ":PRINT AT(4,14);" " 2210 PRINT AT(5,14);" ":PRINT AT(6,14);" ":PRINT AT(7,14);"" 2212 PRINT AT(6,18);" " 2220 PRINT AT(7,18);"":PAUSE 5:PRINT AT(7,14);" ":PRINT AT(5,13);" " 2222 PRINT AT(4,14);" " 2230 PRINT AT(6,15);"":PRINT AT(7,18);" ":PRINT AT(8,14);"":PAUSE 5 2232 PRINT AT(5,13);" ":PRINT AT(6,15);" " 2240 PRINT AT(9,14);"":PRINT AT(8,14);" ":PRINT AT(6,13);"" 2250 PRINT AT(7,19);" ":PAUSE 5:PRINT AT(7,20);" ":PRINT AT(9,14);" " 2260 ZA=9:SA=14:FR=3:ZZ=9:ZS=14:RETURN 2300 REM WILDE FAHRER **************** 2310 IF FR=0 THEN RETURN :ELSE UN=UN+1:FR=0 2320 IF PEEK(-5120+40*ZZ+ZS)<>157 THEN ZZ=AZ:ZS=AS:RETURN 2330 FOR I=3 TO ZZ-2:PRINT AT(I,ZS);" ":NEXT I 2340 IF AS>ZS THEN GOTO 2370 2350 PRINT INK 3;AT(AZ-2,AS-1);"" 2360 GOTO 2380 2370 PRINT INK 3;AT(AZ-2,AS-1);"" 2380 ZZ=AZ:ZS=AS:RETURN 2500 PRINT AT(3,30);" ":PAUSE 5:E=0 2510 E=E+1:PRINT AT(3,30);" ":IF E=3 OR E=5 THEN PRINT AT(2,34);" ":PAUSE 1 2520 PAUSE 1:PRINT AT(2,34);"":PRINT AT(3,34);" " 2521 IF E=2 OR E=4 THEN PRINT AT(2,32);" ":PRINT AT(3,31);" ":PRINT AT(1,32);" " 2522 IF E=2 OR E=4 THEN GOTO 2600:ELSE PAUSE 1 2530 PRINT AT(2,32);" ":PRINT AT(3,30);" ":PRINT AT(1,32);"" 2531 IF E=2 OR E=4 THEN PRINT AT(2,31);" ":PAUSE 5 :GOTO 2600:ELSE PAUSE 1+5 2540 PRINT AT(2,31);" ":PRINT AT(1,32);" " 2541 IF E=2 OR E=4 THEN PRINT AT(2,32);" ":PRINT AT(3,31);" ":GOTO 2600:ELSE PAUSE 1 2550 PRINT AT(2,31);" ":PRINT AT(3,31);"" 2551 IF E=2 OR E=4 THEN PRINT AT(2,31);" ":GOTO 2600:ELSE PAUSE 1 2560 PRINT AT(2,31);" ":PRINT AT(3,31);" " 2561 IF E=2 OR E=4 THEN PRINT AT(3,31);" ":GOTO 2600:ELSE PAUSE 1 2570 PRINT AT(2,31);" ":PRINT AT(3,31);" ":PAUSE 1:IF E=2 OR E=4 THEN GOTO 2600 2580 IF E=5 THEN GOTO 2620:ELSE E=E+1 2590 FOR I=1 TO 6:IF I=1 THEN GOTO 2560:ELSE IF I=2 THEN GOTO 2550:ELSE IF I=3 THEN GOTO 2540 2591 IF I=4 THEN GOTO 2530:ELSE IF I=5 THEN GOTO 2520:ELSE IF I=6 THEN GOTO 2510 2600 PAUSE 2 :IF I<6 THEN NEXT I 2620 PRINT AT(3,31);"":PAUSE 2:PRINT AT(4,32);"":PRINT AT(3,31);" ":PAUSE 3 2630 PRINT AT(3,33);"":PRINT AT(4,32);" ":PAUSE 7:PRINT AT(3,33);" ":FR=3 2640 A=1 :R=1 :RETURN 2800 REM EMPFANG DER GAESTE 2810 PRINT AT(15,11);"":PRINT AT(16,3);" ":PRINT AT(16,3);" ":PAUSE 5 2820 PRINT AT(15,10);"":PRINT AT(16,5);"":PAUSE 1 2830 PRINT AT(15,10);"":PRINT AT(16,5);"":PAUSE 1 2840 PRINT AT(15,10);" ":PRINT AT(16,5);" ":PAUSE 1 2850 PRINT AT(15,8);" ":PRINT AT(16,6);" ":PAUSE 1:E=0 2860 PRINT AT(15,8);"":PRINT AT(16,7);" ":PRINT AT(17,8);" ":PAUSE 2 2861 PRINT AT(15,8);" ":PRINT AT(16,8);"":PRINT AT(17,8);" ":PAUSE 2 2862 PRINT AT(15,8);" ":PRINT AT(16,8);" ":PRINT AT(17,8);"":PAUSE 2 2863 PRINT AT(15,8);" ":PRINT AT(16,8);" ":PRINT AT(17,8);"":PAUSE 2 2864 IF E<3 THEN E=E+1:GOTO 2860 2865 PRINT AT(15,8);" ":PRINT AT(16,8);" ":PRINT AT(17,8);"":PAUSE 2 2866 PRINT AT(15,8);"":PRINT AT(16,8);" ":PRINT AT(17,8);" ":PAUSE 1 2870 PRINT AT(15,8);" ":PRINT AT(16,8);"":PRINT AT(17,9);"":PAUSE 1 2880 PRINT AT(15,8);" ":PRINT AT(16,8);"":PRINT AT(17,9);" ":PAUSE 1 2890 PRINT AT(15,9);" ":PRINT AT(16,8);"":PRINT AT(17,10);" ":PAUSE 1 2900 PRINT AT(15,9);"":PRINT AT(16,8);" ":PAUSE 1:PRINT AT(16,10);" " 2910 PAUSE 1:PRINT AT(15,9);" ":PAUSE 1:PRINT AT(16,11);" ":PAUSE 1 2920 PRINT AT(15,10);" ":PAUSE 1:PRINT AT(15,11);" " 2930 FOR I=1 TO 5:PRINT AT(15,11-I);" ":PAUSE 1:NEXT I 2940 PRINT AT(15,5);"":PAUSE 2:PRINT AT(15,5);"":PAUSE 2:PRINT AT(15,5);"" 2950 PRINT AT(15,5);" ":PRINT AT(16,5);"":PAUSE 2:PRINT AT(16,6);" " 2960 PRINT AT(17,5);"":PAUSE 4:PRINT AT(17,5);"":PAUSE 4:PRINT AT(17,5);"" 2970 PRINT AT(17,5);" ":PRINT AT(16,5);"":PAUSE 5:PRINT AT(16,6);" " 2980 PRINT AT(15,6);" ":PAUSE 10:PRINT AT(15,11);" ":PAUSE 1 2990 FOR I=1 TO 5:PRINT AT(15,I+5);" ":PAUSE 1:NEXT I:PRINT AT(15,11);" " 2995 TP(N)=TS:UP(N)=UN:RETURN 3000 REM ABLOESUNG DES SCHRANKENWAERTERS------------------------------------- 3005 IF C=-10 THEN D=1:ELSE IF C=30 THEN D=2 3007 IF D=2 THEN GOTO 3090 3010 IF D=1 THEN C=C+1 3015 IF C=1 THEN PRINT AT(2,26);" " 3020 IF C=3 THEN PRINT AT(2,26);"":PRINT AT(3,25);" " 3030 IF C=6 THEN PRINT AT(3,24);" ":PRINT AT(2,26);" " 3040 IF C=9 THEN PRINT AT(3,24);" ":PRINT AT(4,23);" " 3050 IF C=12 THEN PRINT AT(4,23);"":PRINT AT(3,24);" ":PRINT AT(5,22);" " 3060 IF C=15 THEN PRINT AT(5,22);"":PRINT AT(4,23);" ":PRINT AT(6,21);" " 3070 IF C=18 THEN PRINT AT(6,21);"":PRINT AT(5,22);" " 3080 IF C=21 THEN PRINT AT(6,21);" " 3085 RETURN 3090 IF D=2 THEN C=C-1:GOTO 3015 3200 REM FUSSGAENGER 3210 IF F=-10 THEN G=1:ELSE IF F=52 THEN G=2 3220 IF TS>70 AND F=-10 THEN G=3 3230 IF G=2 THEN GOTO 3410:ELSE IF G=3 THEN GOTO 3420 3232 IF G=1 THEN F=F+1 3235 IF F=-2 THEN PRINT AT(21,18);" " 3240 IF F=1 THEN PRINT AT(21,17);" " 3250 IF F=4 THEN PRINT AT(21,16);" " 3260 IF F=6 THEN PRINT AT(21,15);" " 3270 IF F=8 THEN PRINT AT(21,14);" " 3280 IF F=10 THEN PRINT AT(21,13);" " 3290 IF F=12 THEN PRINT AT(21,12);" " 3300 IF F=14 THEN PRINT AT(21,11);" " 3310 IF F=16 THEN PRINT AT(21,11);" ":PRINT AT(20,11);" " 3320 IF F=18 THEN PRINT AT(20,11);"":PRINT AT(21,11);" ":PRINT AT(19,11);" " 3330 IF F=20 THEN PRINT AT(19,11);"":PRINT AT(18,11);" ":PRINT AT(20,11);" " 3340 IF F=22 THEN PRINT AT(18,11);"":PRINT AT(19,11);" ":PRINT AT(17,11);" " 3350 IF F=24 THEN PRINT AT(17,11);"":PRINT AT(18,11);" ":PRINT AT(16,11);" " 3360 IF F=26 THEN PRINT AT(16,11);"":PRINT AT(17,11);" ":PRINT AT(15,11);" " 3370 IF F=28 THEN PRINT AT(15,11);"":PRINT AT(16,11);" " 3380 IF F=30 THEN PRINT AT(15,11);" " 3390 IF F=33 THEN PRINT AT(15,11);" " 3400 RETURN 3410 IF G=2 THEN F=F-1:GOTO 3235 3420 IF G=3 AND F<64 THEN F=F+1 3440 IF F=1 THEN PRINT AT(21,18);"" 3450 IF F=4 THEN PRINT AT(21,17);" " 3460 IF F=7 THEN PRINT AT(21,16);" " 3470 IF F=10 THEN PRINT AT(21,15);" " 3480 IF F=13 THEN PRINT AT(20,14);"":PRINT AT(21,15);" " 3490 IF F=15 THEN PRINT AT(19,13);"":PRINT AT(20,14);" " 3500 IF F=17 THEN PRINT AT(18,14);"":PRINT AT(19,13);" " 3510 IF F=19 THEN PRINT AT(17,15);"":PRINT AT(18,14);" " 3520 IF F=21 THEN PRINT AT(16,14);"":PRINT AT(17,15);" " 3530 IF F=24 THEN PRINT AT(15,13);"":PRINT AT(16,14);" " 3540 IF F=26 THEN PRINT AT(16,12);"":PRINT AT(15,13);" " 3550 IF F=28 THEN PRINT AT(17,11);"":PRINT AT(16,12);" " 3560 IF F=30 THEN PRINT AT(18,10);"":PRINT AT(17,11);" " 3570 IF F=33 THEN PRINT AT(19,11);"":PRINT AT(18,10);" " 3580 IF F=35 THEN PRINT AT(20,12);"":PRINT AT(19,11);" " 3590 IF F=37 THEN PRINT AT(21,13);"":PRINT AT(20,12);" " 3600 IF F=39 THEN PRINT AT(20,14);"":PRINT AT(21,13);" ":IF H<3 THEN H=H+1:F=13 3610 IF F=42 THEN PRINT AT(21,15);"":PRINT AT(20,14);" " 3620 IF F=45 THEN PRINT AT(21,15);" ":ELSE IF F=47 THEN PRINT AT(21,16);" " 3630 IF F=49 THEN PRINT AT(21,17);" ":ELSE IF F=51 THEN PRINT AT(21,18);" ":F=-10 3640 RETURN 3800 TP(N)=TS:UP(N)=UN:REM BILDKORREKTUR BEI ABBRUCH UND SPEICHERN DER IDIOTEN 3810 PRINT "Man sollte diesem":PRINT "Trottel die Fahrer-laubnis entziehen" 3820 PAUSE 100:CLS:PRINT AT(2,31);" ":PRINT AT(4,31);" " 3830 PRINT AT(15,5);" ":PRINT AT(16,3);" ":PRINT AT(17,5);" " 3840 PRINT AT(AZ,AS);" ":GOTO 600:REM SCHLUSS