SPIELER
FILE INFORMATION
FILENAME(S): SPIELER
FILE TYPE(S): SEQ
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
aeace53786ccb1fb1c84e08c07a91b5b0000ba4e6763610bc59c6e8c7596e4b1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL C64 PROG | SPIELER | SEQ | Treasure Chest - Spook | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 30 30 31 30 20 2F 2F 20 20 20 C6 55 53 53 42 41 |0010 // .USSBA| 00000010: 4C 4C 46 45 4C 44 0D 30 30 32 30 20 0D 30 30 33 |LLFELD.0020 .003| 00000020: 30 20 D5 D3 C5 20 47 52 41 50 48 49 43 53 0D 30 |0 ... GRAPHICS.0| 00000030: 30 34 30 20 47 52 41 50 48 49 43 53 43 52 45 45 |040 GRAPHICSCREE| 00000040: 4E 28 31 29 0D 30 30 35 30 20 50 45 4E 43 4F 4C |N(1).0050 PENCOL| 00000050: 4F 52 28 31 29 0D 30 30 36 30 20 42 41 43 4B 47 |OR(1).0060 BACKG| 00000060: 52 4F 55 4E 44 28 35 29 0D 30 30 37 30 20 42 4F |ROUND(5).0070 BO| 00000070: 52 44 45 52 28 32 29 0D 30 30 38 30 20 4C 49 4E |RDER(2).0080 LIN| 00000080: 49 45 4E 0D 30 30 39 30 20 54 4F 52 45 0D 30 31 |IEN.0090 TORE.01| 00000090: 30 30 20 53 50 49 45 4C 45 52 0D 30 31 31 30 20 |00 SPIELER.0110 | 000000A0: 5A 55 53 43 48 41 55 45 52 0D 30 31 32 30 20 D7 |ZUSCHAUER.0120 .| 000000B0: C8 C9 CC C5 20 CB C5 D9 24 3D C3 C8 D2 24 28 30 |.... ...$=...$(0| 000000C0: 29 20 C4 CF 20 CE D5 CC CC 0D 30 31 33 30 20 C5 |) .. .....0130 .| 000000D0: CE C4 20 0D 30 31 34 30 20 0D 30 31 35 30 20 0D |.. .0140 .0150 .| 000000E0: 30 31 36 30 20 0D 30 31 37 30 20 D0 D2 CF C3 20 |0160 .0170 .... | 000000F0: 4C 49 4E 49 45 4E 20 0D 30 31 38 30 20 20 20 4D |LINIEN .0180 M| 00000100: 4F 56 45 54 4F 28 31 30 2C 31 30 29 0D 30 31 39 |OVETO(10,10).019| 00000110: 30 20 20 20 44 52 41 57 54 4F 28 33 31 30 2C 31 |0 DRAWTO(310,1| 00000120: 30 29 0D 30 32 30 30 20 20 20 44 52 41 57 54 4F |0).0200 DRAWTO| 00000130: 28 33 31 30 2C 31 39 30 29 0D 30 32 31 30 20 20 |(310,190).0210 | 00000140: 20 44 52 41 57 54 4F 28 31 30 2C 31 39 30 29 0D | DRAWTO(10,190).| 00000150: 30 32 32 30 20 20 20 44 52 41 57 54 4F 28 31 30 |0220 DRAWTO(10| 00000160: 2C 31 30 29 0D 30 32 33 30 20 20 20 0D 30 32 34 |,10).0230 .024| 00000170: 30 20 20 20 43 49 52 43 4C 45 28 31 36 30 2C 31 |0 CIRCLE(160,1| 00000180: 30 30 2C 32 29 0D 30 32 35 30 20 20 20 43 49 52 |00,2).0250 CIR| 00000190: 43 4C 45 28 31 36 30 2C 31 30 30 2C 32 37 29 0D |CLE(160,100,27).| 000001A0: 30 32 36 30 20 20 20 0D 30 32 37 30 20 20 20 4D |0260 .0270 M| 000001B0: 4F 56 45 54 4F 28 31 36 30 2C 31 30 29 0D 30 32 |OVETO(160,10).02| 000001C0: 38 30 20 20 20 44 52 41 57 54 4F 28 31 36 30 2C |80 DRAWTO(160,| 000001D0: 31 39 30 29 0D 30 32 39 30 20 20 20 0D 30 33 30 |190).0290 .030| 000001E0: 30 20 20 20 4D 4F 56 45 54 4F 28 31 30 2C 36 30 |0 MOVETO(10,60| 000001F0: 29 0D 30 33 31 30 20 20 20 52 49 47 48 54 28 39 |).0310 RIGHT(9| 00000200: 30 29 0D 30 33 32 30 20 20 20 46 4F 52 57 41 52 |0).0320 FORWAR| 00000210: 44 28 36 30 29 0D 30 33 33 30 20 20 20 4C 45 46 |D(60).0330 LEF| 00000220: 54 28 39 30 29 0D 30 33 34 30 20 20 20 46 4F 52 |T(90).0340 FOR| 00000230: 57 41 52 44 28 38 30 29 0D 30 33 35 30 20 20 20 |WARD(80).0350 | 00000240: 4C 45 46 54 28 39 30 29 0D 30 33 36 30 20 20 20 |LEFT(90).0360 | 00000250: 46 4F 52 57 41 52 44 28 36 30 29 0D 30 33 37 30 |FORWARD(60).0370| 00000260: 20 20 20 0D 30 33 38 30 20 20 20 4D 4F 56 45 54 | .0380 MOVET| 00000270: 4F 28 31 30 2C 38 30 29 0D 30 33 39 30 20 20 20 |O(10,80).0390 | 00000280: 53 45 54 48 45 41 44 49 4E 47 28 39 30 29 0D 30 |SETHEADING(90).0| 00000290: 34 30 30 20 20 20 46 4F 52 57 41 52 44 28 32 33 |400 FORWARD(23| 000002A0: 29 0D 30 34 31 30 20 20 20 4C 45 46 54 28 39 30 |).0410 LEFT(90| 000002B0: 29 0D 30 34 32 30 20 20 20 46 4F 52 57 41 52 44 |).0420 FORWARD| 000002C0: 28 34 30 29 0D 30 34 33 30 20 20 20 4C 45 46 54 |(40).0430 LEFT| 000002D0: 28 39 30 29 0D 30 34 34 30 20 20 20 46 4F 52 57 |(90).0440 FORW| 000002E0: 41 52 44 28 32 33 29 0D 30 34 35 30 20 20 20 0D |ARD(23).0450 .| 000002F0: 30 34 36 30 20 20 20 4D 4F 56 45 54 4F 28 33 31 |0460 MOVETO(31| 00000300: 30 2C 36 30 29 0D 30 34 37 30 20 20 20 53 45 54 |0,60).0470 SET| 00000310: 48 45 41 44 49 4E 47 28 32 37 30 29 0D 30 34 38 |HEADING(270).048| 00000320: 30 20 20 20 46 4F 52 57 41 52 44 28 36 30 29 0D |0 FORWARD(60).| 00000330: 30 34 39 30 20 20 20 52 49 47 48 54 28 39 30 29 |0490 RIGHT(90)| 00000340: 0D 30 35 30 30 20 20 20 46 4F 52 57 41 52 44 28 |.0500 FORWARD(| 00000350: 38 30 29 0D 30 35 31 30 20 20 20 52 49 47 48 54 |80).0510 RIGHT| 00000360: 28 39 30 29 0D 30 35 32 30 20 20 20 46 4F 52 57 |(90).0520 FORW| 00000370: 41 52 44 28 36 30 29 0D 30 35 33 30 20 20 20 0D |ARD(60).0530 .| 00000380: 30 35 34 30 20 20 20 4D 4F 56 45 54 4F 28 33 31 |0540 MOVETO(31| 00000390: 30 2C 38 30 29 0D 30 35 35 30 20 20 20 53 45 54 |0,80).0550 SET| 000003A0: 48 45 41 44 49 4E 47 28 32 37 30 29 0D 30 35 36 |HEADING(270).056| 000003B0: 30 20 20 20 46 4F 52 57 41 52 44 28 32 33 29 0D |0 FORWARD(23).| 000003C0: 30 35 37 30 20 20 20 52 49 47 48 54 28 39 30 29 |0570 RIGHT(90)| 000003D0: 0D 30 35 38 30 20 20 20 46 4F 52 57 41 52 44 28 |.0580 FORWARD(| 000003E0: 34 30 29 0D 30 35 39 30 20 20 20 52 49 47 48 54 |40).0590 RIGHT| 000003F0: 28 39 30 29 0D 30 36 30 30 20 20 20 46 4F 52 57 |(90).0600 FORW| 00000400: 41 52 44 28 32 33 29 0D 30 36 31 30 20 20 20 0D |ARD(23).0610 .| 00000410: 30 36 32 30 20 20 20 41 52 43 28 31 30 2C 31 30 |0620 ARC(10,10| 00000420: 2C 37 2C 30 2C 39 30 29 0D 30 36 33 30 20 20 20 |,7,0,90).0630 | 00000430: 41 52 43 28 33 31 30 2C 31 30 2C 37 2C 31 38 30 |ARC(310,10,7,180| 00000440: 2C 2D 39 30 29 0D 30 36 34 30 20 20 20 41 52 43 |,-90).0640 ARC| 00000450: 28 33 31 30 2C 31 39 30 2C 37 2C 31 38 30 2C 39 |(310,190,7,180,9| 00000460: 30 29 0D 30 36 35 30 20 20 20 41 52 43 28 31 30 |0).0650 ARC(10| 00000470: 2C 31 39 30 2C 37 2C 30 2C 2D 39 30 29 0D 30 36 |,190,7,0,-90).06| 00000480: 36 30 20 20 20 0D 30 36 37 30 20 20 20 43 49 52 |60 .0670 CIR| 00000490: 43 4C 45 28 35 35 2C 31 30 30 2C 31 29 0D 30 36 |CLE(55,100,1).06| 000004A0: 38 30 20 20 20 43 49 52 43 4C 45 28 32 36 35 2C |80 CIRCLE(265,| 000004B0: 31 30 30 2C 31 29 0D 30 36 39 30 20 20 20 0D 30 |100,1).0690 .0| 000004C0: 37 30 30 20 20 20 41 52 43 28 34 35 2C 31 30 30 |700 ARC(45,100| 000004D0: 2C 34 30 2C 2D 34 36 2C 39 36 29 0D 30 37 31 30 |,40,-46,96).0710| 000004E0: 20 20 20 41 52 43 28 32 37 35 2C 31 30 30 2C 34 | ARC(275,100,4| 000004F0: 30 2C 34 32 2B 39 30 2C 39 39 29 0D 30 37 32 30 |0,42+90,99).0720| 00000500: 20 C5 CE C4 D0 D2 CF C3 20 4C 49 4E 49 45 4E 0D | ....... LINIEN.| 00000510: 30 37 33 30 20 0D 30 37 34 30 20 0D 30 37 35 30 |0730 .0740 .0750| 00000520: 20 D0 D2 CF C3 20 54 4F 52 45 20 0D 30 37 36 30 | .... TORE .0760| 00000530: 20 20 20 4D 4F 56 45 54 4F 28 31 30 2C 38 35 29 | MOVETO(10,85)| 00000540: 0D 30 37 37 30 20 20 20 44 52 41 57 54 4F 28 33 |.0770 DRAWTO(3| 00000550: 2C 38 37 29 0D 30 37 38 30 20 20 20 44 52 41 57 |,87).0780 DRAW| 00000560: 54 4F 28 33 2C 31 31 33 29 0D 30 37 39 30 20 20 |TO(3,113).0790 | 00000570: 20 44 52 41 57 54 4F 28 31 30 2C 31 31 35 29 0D | DRAWTO(10,115).| 00000580: 30 38 30 30 20 20 20 50 45 4E 43 4F 4C 4F 52 28 |0800 PENCOLOR(| 00000590: 31 35 29 0D 30 38 31 30 20 20 20 46 49 4C 4C 28 |15).0810 FILL(| 000005A0: 38 2C 39 30 29 0D 30 38 32 30 20 20 20 0D 30 38 |8,90).0820 .08| 000005B0: 33 30 20 20 20 50 45 4E 43 4F 4C 4F 52 28 31 29 |30 PENCOLOR(1)| 000005C0: 0D 30 38 34 30 20 20 20 4D 4F 56 45 54 4F 28 33 |.0840 MOVETO(3| 000005D0: 31 30 2C 38 35 29 0D 30 38 35 30 20 20 20 44 52 |10,85).0850 DR| 000005E0: 41 57 54 4F 28 33 31 37 2C 38 37 29 0D 30 38 36 |AWTO(317,87).086| 000005F0: 30 20 20 20 44 52 41 57 54 4F 28 33 31 37 2C 31 |0 DRAWTO(317,1| 00000600: 31 33 29 0D 30 38 37 30 20 20 20 44 52 41 57 54 |13).0870 DRAWT| 00000610: 4F 28 33 31 30 2C 31 31 35 29 0D 30 38 38 30 20 |O(310,115).0880 | 00000620: 20 20 50 45 4E 43 4F 4C 4F 52 28 31 35 29 0D 30 | PENCOLOR(15).0| 00000630: 38 39 30 20 20 20 46 49 4C 4C 28 33 31 32 2C 39 |890 FILL(312,9| 00000640: 30 29 0D 30 39 30 30 20 C5 CE C4 D0 D2 CF C3 20 |0).0900 ....... | 00000650: 54 4F 52 45 0D 30 39 31 30 20 0D 30 39 32 30 20 |TORE.0910 .0920 | 00000660: 0D 30 39 33 30 20 D0 D2 CF C3 20 53 50 49 45 4C |.0930 .... SPIEL| 00000670: 45 52 20 0D 30 39 34 30 20 20 20 50 45 4E 43 4F |ER .0940 PENCO| 00000680: 4C 4F 52 28 31 31 29 0D 30 39 35 30 20 20 20 45 |LOR(11).0950 E| 00000690: 49 4E 5A 45 4C 53 50 49 45 4C 45 52 28 31 35 2C |INZELSPIELER(15,| 000006A0: 31 30 30 29 0D 30 39 36 30 20 20 20 45 49 4E 5A |100).0960 EINZ| 000006B0: 45 4C 53 50 49 45 4C 45 52 32 28 33 30 35 2C 31 |ELSPIELER2(305,1| 000006C0: 30 30 29 0D 30 39 37 30 20 20 20 0D 30 39 38 30 |00).0970 .0980| 000006D0: 20 20 20 50 45 4E 43 4F 4C 4F 52 28 32 29 0D 30 | PENCOLOR(2).0| 000006E0: 39 39 30 20 20 20 C6 CF D2 20 49 3A 3D 31 20 D4 |990 ... I:=1 .| 000006F0: CF 20 31 30 20 C4 CF 20 45 49 4E 5A 45 4C 53 50 |. 10 .. EINZELSP| 00000700: 49 45 4C 45 52 28 D2 CE C4 28 31 35 2C 33 30 35 |IELER(...(15,305| 00000710: 29 2C D2 CE C4 28 31 35 2C 31 38 35 29 29 0D 31 |),...(15,185)).1| 00000720: 30 30 30 20 20 20 50 45 4E 43 4F 4C 4F 52 28 36 |000 PENCOLOR(6| 00000730: 29 0D 31 30 31 30 20 20 20 C6 CF D2 20 49 3A 3D |).1010 ... I:=| 00000740: 31 20 D4 CF 20 31 30 20 C4 CF 20 45 49 4E 5A 45 |1 .. 10 .. EINZE| 00000750: 4C 53 50 49 45 4C 45 52 32 28 D2 CE C4 28 31 35 |LSPIELER2(...(15| 00000760: 2C 33 30 35 29 2C D2 CE C4 28 31 35 2C 31 38 35 |,305),...(15,185| 00000770: 29 29 0D 31 30 32 30 20 C5 CE C4 D0 D2 CF C3 20 |)).1020 ....... | 00000780: 53 50 49 45 4C 45 52 0D 31 30 33 30 20 0D 31 30 |SPIELER.1030 .10| 00000790: 34 30 20 0D 31 30 35 30 20 D0 D2 CF C3 20 45 49 |40 .1050 .... EI| 000007A0: 4E 5A 45 4C 53 50 49 45 4C 45 52 28 58 2C 59 29 |NZELSPIELER(X,Y)| 000007B0: 20 0D 31 30 36 30 20 20 20 4D 4F 56 45 54 4F 28 | .1060 MOVETO(| 000007C0: 58 2C 59 29 0D 31 30 37 30 20 20 20 53 45 54 48 |X,Y).1070 SETH| 000007D0: 45 41 44 49 4E 47 28 31 33 35 29 0D 31 30 38 30 |EADING(135).1080| 000007E0: 20 20 20 46 4F 52 57 41 52 44 28 33 29 0D 31 30 | FORWARD(3).10| 000007F0: 39 30 20 20 20 52 49 47 48 54 28 34 35 29 0D 31 |90 RIGHT(45).1| 00000800: 31 30 30 20 20 20 46 4F 52 57 41 52 44 28 33 29 |100 FORWARD(3)| 00000810: 0D 31 31 31 30 20 20 20 4D 4F 56 45 54 4F 28 58 |.1110 MOVETO(X| 00000820: 2C 59 29 0D 31 31 32 30 20 20 20 46 4F 52 57 41 |,Y).1120 FORWA| 00000830: 52 44 28 33 29 0D 31 31 33 30 20 20 20 52 49 47 |RD(3).1130 RIG| 00000840: 48 54 28 34 35 29 0D 31 31 34 30 20 20 20 46 4F |HT(45).1140 FO| 00000850: 52 57 41 52 44 28 33 29 0D 31 31 35 30 20 20 20 |RWARD(3).1150 | 00000860: 4D 4F 56 45 54 4F 28 58 2C 59 29 0D 31 31 36 30 |MOVETO(X,Y).1160| 00000870: 20 20 20 53 45 54 48 45 41 44 49 4E 47 28 30 29 | SETHEADING(0)| 00000880: 0D 31 31 37 30 20 20 20 46 4F 52 57 41 52 44 28 |.1170 FORWARD(| 00000890: 35 29 0D 31 31 38 30 20 20 20 52 49 47 48 54 28 |5).1180 RIGHT(| 000008A0: 31 33 35 29 0D 31 31 39 30 20 20 20 46 4F 52 57 |135).1190 FORW| 000008B0: 41 52 44 28 33 29 0D 31 32 30 30 20 20 20 4C 45 |ARD(3).1200 LE| 000008C0: 46 54 28 34 35 29 0D 31 32 31 30 20 20 20 46 4F |FT(45).1210 FO| 000008D0: 52 57 41 52 44 28 33 29 0D 31 32 32 30 20 20 20 |RWARD(3).1220 | 000008E0: 4D 4F 56 45 54 4F 28 58 2C 59 2B 35 29 0D 31 32 |MOVETO(X,Y+5).12| 000008F0: 33 30 20 20 20 53 45 54 48 45 41 44 49 4E 47 28 |30 SETHEADING(| 00000900: 31 33 35 2B 39 30 29 0D 31 32 34 30 20 20 20 46 |135+90).1240 F| 00000910: 4F 52 57 41 52 44 28 33 29 0D 31 32 35 30 20 20 |ORWARD(3).1250 | 00000920: 20 4C 45 46 54 28 34 35 29 0D 31 32 36 30 20 20 | LEFT(45).1260 | 00000930: 20 46 4F 52 57 41 52 44 28 33 29 0D 31 32 37 30 | FORWARD(3).1270| 00000940: 20 20 20 43 49 52 43 4C 45 28 58 2C 59 2B 35 2C | CIRCLE(X,Y+5,| 00000950: 31 29 0D 31 32 38 30 20 C5 CE C4 D0 D2 CF C3 20 |1).1280 ....... | 00000960: 45 49 4E 5A 45 4C 53 50 49 45 4C 45 52 0D 31 32 |EINZELSPIELER.12| 00000970: 39 30 20 D0 D2 CF C3 20 45 49 4E 5A 45 4C 53 50 |90 .... EINZELSP| 00000980: 49 45 4C 45 52 32 28 58 2C 59 29 20 0D 31 33 30 |IELER2(X,Y) .130| 00000990: 30 20 20 20 4D 4F 56 45 54 4F 28 58 2C 59 29 0D |0 MOVETO(X,Y).| 000009A0: 31 33 31 30 20 20 20 53 45 54 48 45 41 44 49 4E |1310 SETHEADIN| 000009B0: 47 28 31 33 35 2B 39 30 29 0D 31 33 32 30 20 20 |G(135+90).1320 | 000009C0: 20 46 4F 52 57 41 52 44 28 33 29 0D 31 33 33 30 | FORWARD(3).1330| 000009D0: 20 20 20 4C 45 46 54 28 34 35 29 0D 31 33 34 30 | LEFT(45).1340| 000009E0: 20 20 20 46 4F 52 57 41 52 44 28 33 29 0D 31 33 | FORWARD(3).13| 000009F0: 35 30 20 20 20 4D 4F 56 45 54 4F 28 58 2C 59 29 |50 MOVETO(X,Y)| 00000A00: 0D 31 33 36 30 20 20 20 46 4F 52 57 41 52 44 28 |.1360 FORWARD(| 00000A10: 33 29 0D 31 33 37 30 20 20 20 4C 45 46 54 28 34 |3).1370 LEFT(4| 00000A20: 35 29 0D 31 33 38 30 20 20 20 46 4F 52 57 41 52 |5).1380 FORWAR| 00000A30: 44 28 33 29 0D 31 33 39 30 20 20 20 4D 4F 56 45 |D(3).1390 MOVE| 00000A40: 54 4F 28 58 2C 59 29 0D 31 34 30 30 20 20 20 53 |TO(X,Y).1400 S| 00000A50: 45 54 48 45 41 44 49 4E 47 28 30 29 0D 31 34 31 |ETHEADING(0).141| 00000A60: 30 20 20 20 46 4F 52 57 41 52 44 28 35 29 0D 31 |0 FORWARD(5).1| 00000A70: 34 32 30 20 20 20 4C 45 46 54 28 31 33 35 29 0D |420 LEFT(135).| 00000A80: 31 34 33 30 20 20 20 46 4F 52 57 41 52 44 28 33 |1430 FORWARD(3| 00000A90: 29 0D 31 34 34 30 20 20 20 52 49 47 48 54 28 34 |).1440 RIGHT(4| 00000AA0: 35 29 0D 31 34 35 30 20 20 20 46 4F 52 57 41 52 |5).1450 FORWAR| 00000AB0: 44 28 33 29 0D 31 34 36 30 20 20 20 4D 4F 56 45 |D(3).1460 MOVE| 00000AC0: 54 4F 28 58 2C 59 2B 35 29 0D 31 34 37 30 20 20 |TO(X,Y+5).1470 | 00000AD0: 20 53 45 54 48 45 41 44 49 4E 47 28 31 33 35 29 | SETHEADING(135)| 00000AE0: 0D 31 34 38 30 20 20 20 46 4F 52 57 41 52 44 28 |.1480 FORWARD(| 00000AF0: 33 29 0D 31 34 39 30 20 20 20 52 49 47 48 54 28 |3).1490 RIGHT(| 00000B00: 34 35 29 0D 31 35 30 30 20 20 20 46 4F 52 57 41 |45).1500 FORWA| 00000B10: 52 44 28 33 29 0D 31 35 31 30 20 20 20 43 49 52 |RD(3).1510 CIR| 00000B20: 43 4C 45 28 58 2C 59 2B 35 2C 31 29 0D 31 35 32 |CLE(X,Y+5,1).152| 00000B30: 30 20 C5 CE C4 D0 D2 CF C3 20 45 49 4E 5A 45 4C |0 ....... EINZEL| 00000B40: 53 50 49 45 4C 45 52 32 0D 31 35 33 30 20 0D 31 |SPIELER2.1530 .1| 00000B50: 35 34 30 20 0D 31 35 35 30 20 D0 D2 CF C3 20 5A |540 .1550 .... Z| 00000B60: 55 53 43 48 41 55 45 52 20 0D 31 35 36 30 20 20 |USCHAUER .1560 | 00000B70: 20 50 45 4E 43 4F 4C 4F 52 28 32 29 0D 31 35 37 | PENCOLOR(2).157| 00000B80: 30 20 20 20 46 49 4C 4C 28 30 2C 30 29 0D 31 35 |0 FILL(0,0).15| 00000B90: 38 30 20 C5 CE C4 D0 D2 CF C3 20 5A 55 53 43 48 |80 ....... ZUSCH| 00000BA0: 41 55 45 52 0D |AUER. |
0010 // FUSSBALLFELD.0020 .0030 USE GR APHICS.0040 GRAPHICSCREEN(1).0050 PENCOL OR(1).0060 BACKGROUND(5).0070 BORDER(2). 0080 LINIEN.0090 TORE.0100 SPIELER.0110 ZUSCHAUER.0120 WHILE KEY$=CHR$(0) DO NUL L.0130 END .0140 .0150 .0160 .0170 PROC LINIEN .0180 MOVETO(10,10).0190 DRAW TO(310,10).0200 DRAWTO(310,190).0210 DRAWTO(10,190).0220 DRAWTO(10,10).023 0 .0240 CIRCLE(160,100,2).0250 CIR CLE(160,100,27).0260 .0270 MOVETO(16 0,10).0280 DRAWTO(160,190).0290 .030 0 MOVETO(10,60).0310 RIGHT(90).0320 FORWARD(60).0330 LEFT(90).0340 FOR WARD(80).0350 LEFT(90).0360 FORWARD( 60).0370 .0380 MOVETO(10,80).0390 SETHEADING(90).0400 FORWARD(23).0410 LEFT(90).0420 FORWARD(40).0430 LEFT (90).0440 FORWARD(23).0450 .0460 M OVETO(310,60).0470 SETHEADING(270).048 0 FORWARD(60).0490 RIGHT(90).0500 FORWARD(80).0510 RIGHT(90).0520 FORW ARD(60).0530 .0540 MOVETO(310,80).05 50 SETHEADING(270).0560 FORWARD(23). 0570 RIGHT(90).0580 FORWARD(40).0590 RIGHT(90).0600 FORWARD(23).0610 . 0620 ARC(10,10,7,0,90).0630 ARC(310, 10,7,180,-90).0640 ARC(310,190,7,180,9 0).0650 ARC(10,190,7,0,-90).0660 .06 70 CIRCLE(55,100,1).0680 CIRCLE(265, 100,1).0690 .0700 ARC(45,100,40,-46, 96).0710 ARC(275,100,40,42+90,99).0720 ENDPROC LINIEN.0730 .0740 .0750 PROC TO RE .0760 MOVETO(10,85).0770 DRAWTO(3 ,87).0780 DRAWTO(3,113).0790 DRAWTO( 10,115).0800 PENCOLOR(15).0810 FILL( 8,90).0820 .0830 PENCOLOR(1).0840 MOVETO(310,85).0850 DRAWTO(317,87).086 0 DRAWTO(317,113).0870 DRAWTO(310,11 5).0880 PENCOLOR(15).0890 FILL(312,9 0).0900 ENDPROC TORE.0910 .0920 .0930 PR OC SPIELER .0940 PENCOLOR(11).0950 E INZELSPIELER(15,100).0960 EINZELSPIELE R2(305,100).0970 .0980 PENCOLOR(2).0 990 FOR I:=1 TO 10 DO EINZELSPIELER(RN D(15,305),RND(15,185)).1000 PENCOLOR(6 ).1010 FOR I:=1 TO 10 DO EINZELSPIELER 2(RND(15,305),RND(15,185)).1020 ENDPROC SPIELER.1030 .1040 .1050 PROC EINZELSPIE LER(X,Y) .1060 MOVETO(X,Y).1070 SETH EADING(135).1080 FORWARD(3).1090 RIG HT(45).1100 FORWARD(3).1110 MOVETO(X ,Y).1120 FORWARD(3).1130 RIGHT(45).1 140 FORWARD(3).1150 MOVETO(X,Y).1160 SETHEADING(0).1170 FORWARD(5).1180 RIGHT(135).1190 FORWARD(3).1200 LE FT(45).1210 FORWARD(3).1220 MOVETO(X ,Y+5).1230 SETHEADING(135+90).1240 F ORWARD(3).1250 LEFT(45).1260 FORWARD (3).1270 CIRCLE(X,Y+5,1).1280 ENDPROC EINZELSPIELER.1290 PROC EINZELSPIELER2(X ,Y) .1300 MOVETO(X,Y).1310 SETHEADIN G(135+90).1320 FORWARD(3).1330 LEFT( 45).1340 FORWARD(3).1350 MOVETO(X,Y) .1360 FORWARD(3).1370 LEFT(45).1380 FORWARD(3).1390 MOVETO(X,Y).1400 S ETHEADING(0).1410 FORWARD(5).1420 LE FT(135).1430 FORWARD(3).1440 RIGHT(4 5).1450 FORWARD(3).1460 MOVETO(X,Y+5 ).1470 SETHEADING(135).1480 FORWARD( 3).1490 RIGHT(45).1500 FORWARD(3).15 10 CIRCLE(X,Y+5,1).1520 ENDPROC EINZEL SPIELER2.1530 .1540 .1550 PROC ZUSCHAUER .1560 PENCOLOR(2).1570 FILL(0,0).15 80 ENDPROC ZUSCHAUER.
> CLICK IMAGE PREVIEW FOR FULL MODAL