MAG.019└───────
FILE INFORMATION
FILENAME(S): MAG.019└───────
FILE TYPE(S): SEQ
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 18:06:41
APPEARS ON: 1 disk(s)
FILE HASH
ec7ad3e0000d2fd46826045e68196e3c2fa4bd2e110db03a9dd18fa8a74389de
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLICATION | MAG.019└─────── | SEQ | Xii | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 34 20 0D 46 5D 52 20 43 4F 44 45 52 0D 50 55 | 4 .F]R CODER.PU| 00000010: 4C 4C 2D 44 4F 57 4E 2D 4D 45 4E 5D 53 0D 98 46 |LL-DOWN-MEN]S..F| 00000020: 5D 52 20 44 49 45 53 45 20 45 52 53 54 45 20 41 |]R DIESE ERSTE A| 00000030: 55 53 47 41 42 45 20 53 49 45 48 54 53 20 4D 41 |USGABE SIEHTS MA| 00000040: 47 45 52 0D 98 41 55 53 20 46 5D 52 20 44 45 4E |GER..AUS F]R DEN| 00000050: 20 43 4F 44 45 52 2D 43 4F 52 4E 45 52 2E 0D 97 | CODER-CORNER...| 00000060: A0 0D 44 49 45 53 4D 41 4C 20 47 49 42 54 20 45 |..DIESMAL GIBT E| 00000070: 53 20 4E 55 52 20 45 49 4E 45 20 52 4F 55 54 49 |S NUR EINE ROUTI| 00000080: 4E 45 20 46 5D 52 0D 53 4F 47 45 4E 41 4E 4E 54 |NE F]R.SOGENANNT| 00000090: 45 20 50 55 4C 4C 2D 44 4F 57 4E 2D 4D 45 4E 5D |E PULL-DOWN-MEN]| 000000A0: 53 DC 44 2E 48 2E 20 4D 45 4E 5D 53 0D 42 45 49 |S.D.H. MEN]S.BEI| 000000B0: 20 44 45 4E 45 4E 20 4D 41 4E 20 50 45 52 20 42 | DENEN MAN PER B| 000000C0: 41 4C 4B 45 4E 20 45 49 4E 45 4E 20 4D 45 4E 5D |ALKEN EINEN MEN]| 000000D0: 2D 0D 50 55 4E 4B 54 20 41 55 53 57 40 48 4C 54 |-.PUNKT AUSW@HLT| 000000E0: 2E 0D A0 0D 98 4E 49 43 48 54 20 47 45 52 41 44 |.....NICHT GERAD| 000000F0: 45 20 56 49 45 4C DC 49 43 48 20 57 45 49 53 53 |E VIEL.ICH WEISS| 00000100: DC 41 42 45 52 20 49 43 48 0D 98 4D 55 53 53 20 |.ABER ICH..MUSS | 00000110: 4E 4F 43 48 20 31 30 30 2D 54 45 20 41 4E 44 45 |NOCH 100-TE ANDE| 00000120: 52 45 52 20 41 52 54 49 4B 45 4C 0D 98 28 5D 42 |RER ARTIKEL..(]B| 00000130: 45 52 54 52 45 49 42 DC 5D 42 45 52 54 52 45 49 |ERTREIB.]BERTREI| 00000140: 42 29 20 53 43 48 52 45 49 42 45 4E 20 21 0D 98 |B) SCHREIBEN !..| 00000150: 4E 40 43 48 53 54 45 53 20 4D 41 4C 20 47 49 42 |N@CHSTES MAL GIB| 00000160: 54 27 53 20 4D 45 48 52 2E 0D 97 A0 0D 42 45 49 |T'S MEHR.....BEI| 00000170: 20 46 52 41 47 45 4E 20 A6 20 53 43 48 52 45 49 | FRAGEN . SCHREI| 00000180: 42 45 4E 20 21 21 21 0D 90 AF B0 20 05 D0 D5 CC |BEN !!!.... ....| 00000190: CC 2D C4 CF D7 CE 2D CD C5 CE A9 D3 0D 90 B1 B2 |.-....-.........| 000001A0: 20 98 AB AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............| 000001B0: AD 97 0D A0 0D 56 41 52 49 41 42 4C 45 4E 20 DB |.....VARIABLEN .| 000001C0: 0D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 0D 41 4E 20 |.............AN | 000001D0: 20 20 20 3D 20 41 4E 5A 41 48 4C 20 4D 45 4E 5D | = ANZAHL MEN]| 000001E0: 50 55 4E 4B 54 45 0D 4D 24 28 58 29 20 3D 20 4D |PUNKTE.M$(X) = M| 000001F0: 45 4E 5D 50 55 4E 4B 54 20 58 0D 4D 46 20 20 20 |EN]PUNKT X.MF | 00000200: 20 3D 20 4D 45 4E 5D 46 41 52 42 45 0D 51 20 20 | = MEN]FARBE.Q | 00000210: 20 20 20 3D 20 41 4B 54 2E 46 41 52 42 57 45 52 | = AKT.FARBWER| 00000220: 54 0D A0 0D 44 41 53 20 4D 45 4E 5D 20 41 52 42 |T...DAS MEN] ARB| 00000230: 45 49 54 45 54 20 4D 49 54 20 46 4C 41 53 48 DC |EITET MIT FLASH.| 00000240: 57 49 45 20 41 55 43 48 0D 49 4E 20 44 45 4E 20 |WIE AUCH.IN DEN | 00000250: 90 D0 D5 C2 CC C9 C3 C1 D4 C9 CF CE 97 2D 4D 45 |.............-ME| 00000260: 4E 5D 53 20 21 0D 4E 41 43 48 20 52 45 54 55 52 |N]S !.NACH RETUR| 00000270: 4E 20 53 54 45 48 54 20 49 4E 20 44 45 52 20 56 |N STEHT IN DER V| 00000280: 41 52 49 41 42 4C 45 20 90 22 41 22 0D 97 44 45 |ARIABLE ."A"..DE| 00000290: 52 20 47 45 57 40 48 4C 54 45 20 4D 45 4E 5D 50 |R GEW@HLTE MEN]P| 000002A0: 55 4E 4B 54 2E 0D 31 30 20 50 52 49 4E 54 43 48 |UNKT..10 PRINTCH| 000002B0: 52 24 28 31 34 37 29 DB 41 3D 31 DB 51 3D 2D 31 |R$(147).A=1.Q=-1| 000002C0: DB 50 4F 4B 45 36 34 36 2C 4D 46 DB 0D A0 A0 A0 |.POKE646,MF.....| 000002D0: 46 4F 52 47 3D 31 54 4F 41 4E DB 50 52 49 4E 54 |FORG=1TOAN.PRINT| 000002E0: 22 20 22 4D 24 28 47 29 DB 4E 45 58 54 47 0D 32 |" "M$(G).NEXTG.2| 000002F0: 30 20 51 3D 51 2B 31 DB 50 4F 4B 45 36 34 36 DC |0 Q=Q+1.POKE646.| 00000300: 51 3A 49 46 51 3D 31 36 54 48 45 4E 51 3D 30 0D |Q:IFQ=16THENQ=0.| 00000310: 33 30 20 50 4F 4B 45 32 31 31 DC 31 DB 50 4F 4B |30 POKE211.1.POK| 00000320: 45 32 31 34 DC 41 DB 53 59 53 35 38 36 34 30 DB |E214.A.SYS58640.| 00000330: 0D A0 A0 A0 50 52 49 4E 54 4D 24 28 41 29 0D 34 |....PRINTM$(A).4| 00000340: 30 20 47 45 54 41 24 DB 49 46 41 24 3D 22 22 54 |0 GETA$.IFA$=""T| 00000350: 48 45 4E 32 30 0D 35 30 20 50 4F 4B 45 32 31 31 |HEN20.50 POKE211| 00000360: DC 31 DB 50 4F 4B 45 32 31 34 DC 41 DB 53 59 53 |.1.POKE214.A.SYS| 00000370: 35 38 36 34 30 DB 0D A0 A0 A0 50 4F 4B 45 36 34 |58640.....POKE64| 00000380: 36 DC 4D 46 DB 50 52 49 4E 54 4D 24 28 41 29 0D |6.MF.PRINTM$(A).| 00000390: 36 30 20 49 46 41 24 3D 22 A1 22 54 48 45 4E 0D |60 IFA$="."THEN.| 000003A0: A0 A0 A0 49 46 41 3E 31 54 48 45 4E 41 3D 41 2D |...IFA>1THENA=A-| 000003B0: 31 0D 37 30 20 49 46 41 24 3D 22 A2 22 54 48 45 |1.70 IFA$="."THE| 000003C0: 4E 0D A0 A0 A0 49 46 41 3C 41 4E 54 48 45 4E 41 |N....IFA<ANTHENA| 000003D0: 3D 41 2B 31 0D 38 30 20 49 46 41 24 3D 22 D2 45 |=A+1.80 IFA$=".E| 000003E0: 54 55 52 CE 22 54 48 45 4E 52 45 54 55 52 4E 0D |TUR."THENRETURN.| 000003F0: 39 30 20 47 4F 54 4F 20 32 30 0D 53 4F 57 45 49 |90 GOTO 20.SOWEI| 00000400: 54 20 45 49 4E 45 20 4B 4C 45 49 4E 45 20 4D 45 |T EINE KLEINE ME| 00000410: 4E 5D 52 4F 55 54 49 4E 45 2E 44 41 5A 55 0D 49 |N]ROUTINE.DAZU.I| 00000420: 53 54 20 41 55 46 20 44 49 53 4B 45 54 54 45 20 |ST AUF DISKETTE | 00000430: 45 49 4E 20 42 45 49 53 50 49 45 4C 50 52 4F 47 |EIN BEISPIELPROG| 00000440: 52 41 4D 4D 2E 0D 4E 41 54 5D 52 4C 49 43 48 20 |RAMM..NAT]RLICH | 00000450: 4D 55 53 53 20 44 49 45 20 52 4F 55 54 49 4E 45 |MUSS DIE ROUTINE| 00000460: 20 4E 4F 43 48 20 41 55 53 2D 0D 47 45 42 41 55 | NOCH AUS-.GEBAU| 00000470: 54 20 57 45 52 44 45 4E DC 41 42 45 52 20 44 41 |T WERDEN.ABER DA| 00000480: 53 20 4B 41 4E 4E 20 4A 45 54 5A 54 20 4A 41 0D |S KANN JETZT JA.| 00000490: 4A 45 44 45 52 20 4E 41 43 48 20 53 45 49 4E 45 |JEDER NACH SEINE| 000004A0: 4E 20 49 4E 44 49 56 49 44 55 45 4C 4C 45 4E 20 |N INDIVIDUELLEN | 000004B0: 42 45 2D 0D 44 5D 52 46 4E 49 53 53 45 4E 2E 0D |BE-.D]RFNISSEN..| 000004C0: 57 49 43 48 54 49 47 20 57 40 52 45 4E 20 5A 55 |WICHTIG W@REN ZU| 000004D0: 4D 20 42 45 49 53 50 49 45 4C 20 4D 45 4E 5D 4B |M BEISPIEL MEN]K| 000004E0: 4F 4F 52 44 49 2D 0D 4E 41 54 45 4E 20 21 21 21 |OORDI-.NATEN !!!| 000004F0: 20 4D 41 4E 20 4B 5B 4E 4E 54 45 20 41 55 53 53 | MAN K[NNTE AUSS| 00000500: 45 52 44 45 4D 20 44 41 53 0D 47 41 4E 5A 45 20 |ERDEM DAS.GANZE | 00000510: 4D 49 54 20 45 49 4E 45 52 20 52 41 48 4D 45 4E |MIT EINER RAHMEN| 00000520: 52 4F 55 54 49 4E 45 20 4B 4F 50 50 45 4C 4E DC |ROUTINE KOPPELN.| 00000530: 0D 44 49 45 20 4A 45 44 45 53 20 4D 45 4E 5D 20 |.DIE JEDES MEN] | 00000540: 45 49 4E 52 41 48 4D 54 2E 0D 4D 41 4E 20 4B 41 |EINRAHMT..MAN KA| 00000550: 4E 4E 20 41 55 43 48 20 44 45 4E 20 41 4B 54 55 |NN AUCH DEN AKTU| 00000560: 45 4C 4C 45 4E 20 4D 45 4E 5D 50 55 4E 4B 54 0D |ELLEN MEN]PUNKT.| 00000570: 49 4E 56 45 52 53 20 4D 41 43 48 45 4E DC 53 4F |INVERS MACHEN.SO| 00000580: 20 44 41 53 53 20 45 49 4E 20 4D 45 4E 5D 42 41 | DASS EIN MEN]BA| 00000590: 4C 4B 45 4E 0D 46 4C 49 4D 4D 45 52 54 2E 0D 50 |LKEN.FLIMMERT..P| 000005A0: 52 4F 42 49 45 52 54 20 4D 41 4C 20 45 49 4E 20 |ROBIERT MAL EIN | 000005B0: 42 49 53 53 43 48 45 4E 20 44 52 41 4E 20 52 55 |BISSCHEN DRAN RU| 000005C0: 4D 20 21 0D |M !. |
4 .F]R CODER.PULL-DOWN-MEN]S..F]R DIESE ERSTE AUSGABE SIEHTS MAGER..AUS F]R DEN CODER-CORNER... .DIESMAL GIBT ES NUR EI NE ROUTINE F]R.SOGENANNTE PULL-DOWN-MEN] S.D.H. MEN]S.BEI DENEN MAN PER BALKEN EI NEN MEN]-.PUNKT AUSW@HLT.. ..NICHT GERAD E VIEL.ICH WEISS.ABER ICH..MUSS NOCH 100 -TE ANDERER ARTIKEL..(]BERTREIB.]BERTREI B) SCHREIBEN !..N@CHSTES MAL GIBT'S MEHR ... .BEI FRAGEN . SCHREIBEN !!!.... .PUL L-DOWN-MEN.S.... .................. .VAR IABLEN ..............AN = ANZAHL MEN] PUNKTE.M$(X) = MEN]PUNKT X.MF = MEN]F ARBE.Q = AKT.FARBWERT. .DAS MEN] ARB EITET MIT FLASH.WIE AUCH.IN DEN .PUBLICA TION.-MEN]S !.NACH RETURN STEHT IN DER V ARIABLE ."A"..DER GEW@HLTE MEN]PUNKT..10 PRINTCHR$(147).A=1.Q=-1.POKE646,MF.. FORG=1TOAN.PRINT" "M$(G).NEXTG.20 Q=Q+1. POKE646.Q:IFQ=16THENQ=0.30 POKE211.1.POK E214.A.SYS58640.. PRINTM$(A).40 GETA$. IFA$=""THEN20.50 POKE211.1.POKE214.A.SYS 58640.. POKE646.MF.PRINTM$(A).60 IFA$= "."THEN. IFA>1THENA=A-1.70 IFA$="."THE N. IFA<ANTHENA=A+1.80 IFA$="RETURN"THE NRETURN.90 GOTO 20.SOWEIT EINE KLEINE ME N]ROUTINE.DAZU.IST AUF DISKETTE EIN BEIS PIELPROGRAMM..NAT]RLICH MUSS DIE ROUTINE NOCH AUS-.GEBAUT WERDEN.ABER DAS KANN J ETZT JA.JEDER NACH SEINEN INDIVIDUELLEN BE-.D]RFNISSEN..WICHTIG W@REN ZUM BEISPI EL MEN]KOORDI-.NATEN !!! MAN K[NNTE AUSS ERDEM DAS.GANZE MIT EINER RAHMENROUTINE KOPPELN..DIE JEDES MEN] EINRAHMT..MAN KA NN AUCH DEN AKTUELLEN MEN]PUNKT.INVERS M ACHEN.SO DASS EIN MEN]BALKEN.FLIMMERT..P ROBIERT MAL EIN BISSCHEN DRAN RUM !.
> CLICK IMAGE PREVIEW FOR FULL MODAL