00010 REM ************* 00020 REM Hauptprogramm 00030 REM ************* 00040 GOSUB 3000 00050 GOSUB 4000 00060 GOSUB 1000 00070 GOSUB 5000 00090 GOSUB 6000 00100 GOTO 60 00200 REM ************* 00210 REM Hilfsroutinen 00220 REM ************* 00300 CURSORY 3:CURSORX Y 00310 PRINT LEFT$(A$,Z);:LINE 3,3 00320 RETURN 00350 CURSORY 3:CURSORX Y 00360 PRINT LEFT$(E$,Z);:LINE 3,3 00370 RETURN 00400 CURSORY 3:CURSORX Y 00410 PRINT RIGHT$(F$,Z-1);:LINE 3,3 00420 CURSORY 6:CURSORX Y 00430 PRINT RIGHT$(D$,Z); 00440 CURSORY 5:CURSORX Y 00450 PRINT RIGHT$(C$,Z); 00460 CURSORY 4:CURSORX Y 00470 PRINT RIGHT$(B$,Z); 00480 CURSORY 3:CURSORX Y 00490 PRINT RIGHT$(A$,Z);:LINE 3,6 00495 IF X=18 THEN RETURN 00500 CURSORY 3:CURSORX Y 00510 PRINT RIGHT$(E$,Z);:LINE 3,3 00520 CURSORY 6:CURSORX Y 00530 PRINT RIGHT$(I$,Z); 00540 CURSORY 5:CURSORX Y 00550 PRINT RIGHT$(H$,Z); 00560 CURSORY 4:CURSORX Y 00570 PRINT RIGHT$(G$,Z); 00580 CURSORY 3:CURSORX Y 00590 PRINT RIGHT$(J$,Z);:LINE 3,6 00600 RETURN 00700 CURSORY 3:CURSORX Y-1 00710 PRINT LEFT$(F$,Z);:LINE 3,3 00720 CURSORY 6:CURSORX Y 00730 PRINT LEFT$(D$,Z); 00740 CURSORY 5:CURSORX Y 00750 PRINT LEFT$(C$,Z); 00760 CURSORY 4:CURSORX Y 00770 PRINT LEFT$(B$,Z); 00780 CURSORY 3:CURSORX Y 00790 PRINT LEFT$(A$,Z);:LINE 3,6 00800 CURSORY 3:CURSORX Y 00810 PRINT LEFT$(E$,Z);:LINE 3,3 00820 CURSORY 6:CURSORX Y 00830 PRINT LEFT$(I$,Z); 00840 CURSORY 5:CURSORX Y 00850 PRINT LEFT$(H$,Z); 00860 CURSORY 4:CURSORX Y 00870 PRINT LEFT$(G$,Z); 00880 CURSORY 3:CURSORX Y 00890 PRINT LEFT$(J$,Z);:LINE 3,6 00900 RETURN 01000 REM ******************** 01010 REM Bildschirmaufteilung 01020 REM ******************** 01030 INIT 6:PAGE:STORE:GR 2,2,0 01040 FOR I=17 TO 23 01050 CURSORY I:CURSORX 0 01060 PRINT CHR$(127); 01070 NEXT I:SCREEN 01080 DISPLAY:PRINT CHR$(150); 01090 RETURN 03000 REM ************** 03010 REM Spezialsymbole 03020 REM ************** 03030 CURSORY 22:CURSORX 39:PRINT " "; 03040 SETEG 032,"00000000000000000000 03050 SETEG 064,"FFFFFFFFFFFFFFFFFFFF 03100 SETEG 065,"FFFF0000000000000000 03110 SETEG 066,"FFFF000000000000FFFF 03120 SETEG 067,"FFFF030303030303FFFF 03130 SETEG 068,"FFFF000000000000F0FC 03140 SETEG 069,"000001020408102040C0 03150 SETEG 070,"0000000000000000030F 03160 SETEG 071,"0103070F1F3F7FFFFFFF 03170 SETEG 072,"FFFFFF0000000C1E3F3F 03180 SETEG 073,"FFFFFF0F070321606060 03190 SETEG 074,"00C0E0F0F8FCFEFF7F3F 03200 SETEG 075,"000000000000000080C0 03210 SETEG 076,"01020408102040000000 03220 SETEG 077,"F07F3F1F0F0703010000 03230 SETEG 078,"00FFFFFFFFFFFFFF0000 03240 SETEG 079,"3FFFFFFFFFFFFFFF0000 03250 SETEG 080,"FFFFFFFFFFFFFFFFFF7F 03260 SETEG 081,"1E0C0F0FFFFFFFFFFFFF 03270 SETEG 082,"60C08000FFFFFFFFFFFF 03280 SETEG 083,"1F1F1F3FFFFFFFFFFFFF 03290 SETEG 084,"E0F0F0F0F0E0C0800000 03300 SETEG 085,"3F1F0F0700000000FFFF 03310 SETEG 086,"FFFFFFFF03030303FFFF 03320 SETEG 087,"FFFFFFFF00000000FFFF 03330 SETEG 088,"FFFFFFFEC0C0C0C0FFFF 03340 SETEG 089,"F0C000000000030FFCF0 03350 SETEG 090,"0000000000C0C0000000 03400 SETEG 049,"0303000000000000FFFF 03410 SETEG 050,"0000000000000000F0FC 03420 SETEG 051,"00000000000000000F0F 03430 SETEG 052,"3F3F000000000000FFFF 03440 SETEG 053,"F0F0000000000000FFFF 03450 SETEG 054,"000000000000000080C0 03500 SETEG 097,"0F0F0000000000000000 03510 SETEG 098,"FFFF0000000000000F0F 03520 SETEG 099,"FFFF303030303030FFFF 03530 SETEG 100,"FFFF00000000000080C0 03540 SETEG 101,"F0F00000000000000000 03550 SETEG 102,"0000000000000102040C 03560 SETEG 103,"00001020408000000000 03570 SETEG 104,"000000000103070F3FFF 03580 SETEG 105,"1F3F7FFFFFFFFFFFFFFF 03590 SETEG 106,"FFFFFFF0F0F0F0F1F1F3 03600 SETEG 107,"FFFFFF000000C0E0F1F3 03610 SETEG 108,"F0FCFEFF7F3F1F8F8703 03620 SETEG 109,"0000000080C0E0F0F8FC 03630 SETEG 110,"00000000010204000000 03640 SETEG 111,"1F274381000000000000 03650 SETEG 112,"00FFFFFFFF7F3F1F0000 03660 SETEG 113,"03FFFFFFFFFFFFFF0000 03670 SETEG 114,"FFFFFFFFFFFFFFFF0F07 03680 SETEG 115,"F1F0F1F1FFFFFFFFFFFF 03690 SETEG 116,"E6CCF8F0FFFFFFFFFFFF 03700 SETEG 117,"01010103FFFFFFFFFFFF 03710 SETEG 118,"FEFFFFFFFFFEFCF8F0C0 03720 SETEG 119,"03010000000000000F0F 03730 SETEG 120,"FFFFFF7F00000000FFFF 03740 SETEG 121,"FFFFFFFF30303030FFFF 03750 SETEG 122,"FFFFFFFF0C0C0C0CFFFF 03760 SETEG 058,"FFFCF0C000000000FFFF 03770 SETEG 059,"00000000000C3CF0C000 03900 RETURN 04000 REM ************ 04010 REM Hubschrauber 04020 REM ************ 04100 A$=" AAAABCB2 " 04110 B$=" E FG@@HIJK " 04120 C$=" LMNNNNOP@@QRST " 04130 D$=" UVWWXYZ " 04140 E$=" 1CBDAAAA " 04200 F$=" 34cBdAAAe" 04210 G$=" fg hi@jklm " 04220 H$=" nopNNNqr@@stuv " 04230 I$=" wxyWz:; " 04240 J$=" aAAAbBc56 " 04900 RETURN 05000 REM ************** 05010 REM Poster drucken 05020 REM ************** 05030 GR 0,6,0:STORE:CURSORY 16 05040 CURSORX 25:PRINT "U"; 05050 CURSORX 33:PRINT "j";:SCREEN 05060 CURSORY 13:CURSORX 22:DELIM 7,7,0 05070 CURSORX 37:DELIM 6,6,0 05080 CURSORY 14:GOSUB 5500 05090 CURSORY 15:GOSUB 5500 05100 CURSORY 16:CURSORX 7:DELIM 7,7,0 05110 CURSORX 15:DELIM 6,6,0 05120 CURSORY 14:CURSORX 23:TX 0,0,0 05130 PRINT " Videopac+ "; 05140 CURSORY 15:CURSORX 8 05150 PRINT "C-7420";:SCREEN 05160 RETURN 05500 CURSORX 7:DELIM 7,7,0 05510 CURSORX 15:DELIM 6,6,0 05520 CURSORX 22:DELIM 7,7,0 05530 CURSORX 37:DELIM 6,6,0 05540 RETURN 06000 REM *********************** 06010 REM Fliegender Hubschrauber 06020 REM *********************** 06030 EG 1,6,0 06040 FOR X=1 TO 18 06050 Y=0:Z=X:GOSUB 400 06060 NEXT X 06070 GOSUB 11000:GOSUB 720 06080 EG 1,6,0 06090 FOR X=1 TO 39 06100 Y=X:Z=40-X:GOSUB 700 06110 NEXT X 06120 RETURN 11000 REM **************** 11010 REM Poster aufnehmen 11020 REM **************** 11040 FOR I=7 TO 13:J=1 11050 EG 1,6,0:GOSUB 350 11060 J=J+1:IF J < 5 GOTO 11110 11070 TX 0,0,0:CURSORY I 11080 CURSORX 9:PRINT "|"; 11090 CURSORX 12:PRINT "|"; 11100 LINE I,I 11110 EG 1,6,0:GOSUB 300 11120 IF J < 5 GOTO 11050 11130 NEXT I 11200 FOR I=13 TO 15 11210 EG 1,6,0:GOSUB 350 11220 CURSORY I:CURSORX 7:DELIM 7,7,0 11230 CURSORX 15:DELIM 6,6,0 11240 EG 1,6,0 : GOSUB 300 11250 NEXT I 11270 CURSORY 16:CURSORX 7 11280 TX 6,0,0:PRINT " "; 11290 GR 0,6,0:PRINT "U"; 11300 TX 6,0,0:PRINT " "; 11310 GR 0,6,0:PRINT "j"; 11320 TX 6,0,0:PRINT " "; 11330 EG 1,6,0: GOSUB 350 11340 TX 0,4,1:CURSORY 14 11350 CURSORX 8:PRINT "C-7420"; 11360 CURSORX 23:PRINT " Videopac+ "; 11370 TX 7,0,0 11380 CURSORY 13:CURSORX 8 11390 PRINT " "; 11400 CURSORY 15:CURSORX 8 11410 PRINT " "; 11420 LINE 13,16 11430 EG 1,6,0:GOSUB 300 11500 FOR I=12 TO 7 STEP -1:J=1 11510 EG 1,6,0:GOSUB 350 11520 J=J+1:IF J < 5 GOTO 11570 11530 TX 0,0,0:CURSORY I 11540 CURSORX 9:PRINT " "; 11550 CURSORX 12:PRINT " "; 11560 LINE I,I 11570 EG 1,6,0:GOSUB 300 11580 IF J < 5 GOTO 11510 11590 NEXT I 11900 RETURN