<> SEQ
FILE INFORMATION
FILENAME(S): <> SEQ
FILE TYPE(S): DEL
FILE SIZE: 2.8K
FIRST SEEN: 2025-10-20 00:40:11
APPEARS ON: 2 disk(s)
FILE HASH
f2de16f20de3a648452cdede56a527a2092ec2c4b672586c8c502312ec4bf541
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CP M PLUS | <> SEQ | DEL | Treasure Chest - Joker79 | 2 | 0 | DOWNLOAD FILE |
| CP M PLUS | <> SEQ | DEL | Treasure Chest - Joker79 | 2 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D C3 36 34 20 40 C4 CC 20 20 20 20 20 20 20 20 |..64 @.. | 00000010: 20 20 44 45 3A C4 CA 34 D8 C4 20 20 30 34 2E 30 | DE:..4.. 04.0| 00000020: 32 2E 39 31 20 31 30 3A 34 35 20 20 36 30 20 20 |2.91 10:45 60 | 00000030: 20 33 30 30 37 20 C2 59 54 45 53 0D D3 C5 D1 3C | 3007 .YTES....<| 00000040: 2D 3E 53 45 51 2D D7 41 4E 44 4C 45 52 0D 2A 2A |->SEQ-.ANDLER.**| 00000050: 2A 20 C2 55 4C 4C 45 54 49 4E 2D C9 C4 3A 20 30 |* .ULLETIN-..: 0| 00000060: 34 32 31 30 39 C4 C2 30 C9 C5 20 2A 2A 2A 0D 0D |42109..0.. ***..| 00000070: 39 31 30 32 30 34 2F 31 30 31 37 5A 20 C4 C2 30 |910204/1017Z ..0| 00000080: CC CA 20 2C 20 39 31 30 32 30 34 2F 31 30 31 38 |.. , 910204/1018| 00000090: 5A 20 C4 C2 30 C7 D6 20 2C 20 39 31 30 32 30 34 |Z ..0.. , 910204| 000000A0: 2F 30 39 32 38 5A 20 44 42 30 49 45 20 0D 44 45 |/0928Z DB0IE .DE| 000000B0: 20 44 4A 34 58 44 20 40 44 42 30 49 45 0D 0D 0D | DJ4XD @DB0IE...| 000000C0: C8 41 4C 4C 4F 20 C3 36 34 2D D5 53 45 52 20 21 |.ALLO .64-.SER !| 000000D0: 0D 0D C9 4E 20 44 45 4E 20 C2 4F 58 45 4E 20 46 |...N DEN .OXEN F| 000000E0: 49 4E 44 45 54 20 4D 41 4E 20 49 4D 4D 45 52 20 |INDET MAN IMMER | 000000F0: 57 49 45 44 45 52 20 CC 49 53 54 49 4E 47 53 20 |WIEDER .ISTINGS | 00000100: 46 55 45 52 20 44 45 4E 20 C3 36 34 20 49 4E 20 |FUER DEN .64 IN | 00000110: 27 C7 D2 CF D3 D3 2D 0D D3 C3 C8 D2 C9 C6 D4 27 |'.....-........'| 00000120: 2E 20 C4 41 20 4B 45 49 4E 45 52 20 4D 45 49 4E |. .A KEINER MEIN| 00000130: 45 52 20 D3 C5 D1 2D 3E D0 D2 C7 2D D7 41 4E 44 |ER ...->...-.AND| 00000140: 4C 45 52 20 44 41 4D 49 54 20 45 54 57 41 53 20 |LER DAMIT ETWAS | 00000150: 41 4E 46 41 4E 47 45 4E 20 4B 41 4E 4E 0D 28 44 |ANFANGEN KANN.(D| 00000160: 49 45 20 D7 41 4E 44 4C 45 52 20 53 49 4E 44 20 |IE .ANDLER SIND | 00000170: 56 4F 4E 20 C4 C3 31 D6 C5 20 55 4E 44 20 C4 C7 |VON ..1.. UND ..| 00000180: 39 D0 D1 2C 20 44 45 52 20 41 55 43 48 20 56 49 |9.., DER AUCH VI| 00000190: 41 20 C8 C2 39 CE 20 56 45 52 42 52 45 49 54 45 |A ..9. VERBREITE| 000001A0: 54 0D 57 55 52 44 45 29 2C 20 48 41 42 45 20 45 |T.WURDE), HABE E| 000001B0: 49 4E 45 4E 20 D3 C5 D1 2D 3E D3 C5 D1 2D D7 41 |INEN ...->...-.A| 000001C0: 4E 44 4C 45 52 20 47 45 53 43 48 52 49 45 42 45 |NDLER GESCHRIEBE| 000001D0: 4E 2C 20 57 45 4C 43 48 45 52 20 47 52 4F 53 53 |N, WELCHER GROSS| 000001E0: 47 45 2D 0D 53 43 48 52 49 45 42 45 4E 45 20 CC |GE-.SCHRIEBENE .| 000001F0: 49 53 54 49 4E 47 53 20 49 4E 20 CB 4C 45 49 4E |ISTINGS IN .LEIN| 00000200: 53 43 48 52 49 46 54 20 55 4D 53 45 54 5A 54 2E |SCHRIFT UMSETZT.| 00000210: 0D 0D D5 4D 20 44 41 53 20 C3 48 41 4F 53 20 44 |...M DAS .HAOS D| 00000220: 45 4D 20 C7 49 50 46 45 4C 20 45 49 4E 45 4E 20 |EM .IPFEL EINEN | 00000230: D3 43 48 52 49 54 54 20 4E 41 45 48 45 52 20 5A |.CHRITT NAEHER Z| 00000240: 55 20 42 52 49 4E 47 45 4E 2C 20 57 55 52 44 45 |U BRINGEN, WURDE| 00000250: 20 41 55 43 48 0D 44 45 52 20 55 4D 47 45 4B 45 | AUCH.DER UMGEKE| 00000260: 48 52 54 45 20 D7 45 47 20 45 52 4D 4F 45 47 4C |HRTE .EG ERMOEGL| 00000270: 49 43 48 54 2C 20 57 4F 42 45 49 20 4D 41 4E 20 |ICHT, WOBEI MAN | 00000280: 4E 4F 43 48 20 57 41 45 48 4C 45 4E 20 4B 41 4E |NOCH WAEHLEN KAN| 00000290: 4E 2C 20 4F 42 20 44 45 52 0D D4 45 58 54 20 49 |N, OB DER..EXT I| 000002A0: 4E 20 44 45 4E 20 22 20 28 C7 41 45 4E 53 45 46 |N DEN " (.AENSEF| 000002B0: 55 45 53 53 43 48 45 4E 29 20 22 20 55 4E 56 45 |UESSCHEN) " UNVE| 000002C0: 52 41 45 4E 44 45 52 54 20 42 4C 45 49 42 45 4E |RAENDERT BLEIBEN| 000002D0: 20 4F 44 45 52 20 41 55 43 48 20 47 45 2D 0D 57 | ODER AUCH GE-.W| 000002E0: 41 4E 44 45 4C 54 20 57 45 52 44 45 4E 20 53 4F |ANDELT WERDEN SO| 000002F0: 4C 4C 2E 0D 0D C4 49 45 20 CD 4F 45 47 4C 49 43 |LL....IE .OEGLIC| 00000300: 48 4B 45 49 54 45 4E 20 53 49 4E 44 3A 20 C1 4C |HKEITEN SIND: .L| 00000310: 4C 45 53 20 4B 4C 45 49 4E 0D 20 20 20 20 20 20 |LES KLEIN. | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330: 20 20 20 C1 4C 4C 45 53 20 C7 D2 CF D3 D3 0D 20 | .LLES ...... | 00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000350: 20 20 20 20 20 20 20 20 C7 D2 CF D3 D3 2F 4B 4C | ...../KL| 00000360: 45 49 4E 20 56 45 52 54 41 55 53 43 48 45 4E 0D |EIN VERTAUSCHEN.| 00000370: 0D C4 41 53 20 D0 52 4F 47 52 41 4D 4D 20 49 53 |..AS .ROGRAMM IS| 00000380: 54 20 55 45 42 45 52 57 49 45 47 45 4E 44 20 49 |T UEBERWIEGEND I| 00000390: 4E 20 C2 C1 D3 C9 C3 20 47 45 53 43 48 52 49 45 |N ..... GESCHRIE| 000003A0: 42 45 4E 20 55 4E 44 20 44 41 44 55 52 43 48 20 |BEN UND DADURCH | 000003B0: 4C 41 4E 47 53 41 4D 2E 0D C2 45 49 20 47 52 4F |LANGSAM...EI GRO| 000003C0: 45 53 53 45 52 45 4E 20 C6 49 4C 45 53 20 4B 41 |ESSEREN .ILES KA| 000003D0: 4E 4E 20 4D 41 4E 20 44 55 52 43 48 41 55 53 20 |NN MAN DURCHAUS | 000003E0: 4D 41 4C 20 CB 41 46 46 45 45 20 54 52 49 4E 4B |MAL .AFFEE TRINK| 000003F0: 45 4E 20 47 45 48 45 4E 2C 20 48 49 2E 0D 0D D7 |EN GEHEN, HI....| 00000400: C1 D2 CE D5 CE C7 20 21 21 21 0D C4 41 53 20 CC |...... !!!..AS .| 00000410: 49 53 54 49 4E 47 20 44 41 52 46 20 CE C9 C3 C8 |ISTING DARF ....| 00000420: D4 20 56 45 52 41 45 4E 44 45 52 54 20 57 45 52 |. VERAENDERT WER| 00000430: 44 45 4E 2C 20 44 41 20 44 41 53 20 D0 D2 C7 20 |DEN, DA DAS ... | 00000440: 53 4F 4E 53 54 20 4E 49 43 48 54 20 4D 45 48 52 |SONST NICHT MEHR| 00000450: 0D 4C 41 45 55 46 54 20 21 20 C4 49 45 20 4F 42 |.LAEUFT ! .IE OB| 00000460: 45 4E 20 47 45 4E 41 4E 4E 54 45 4E 20 D3 C5 D1 |EN GENANNTEN ...| 00000470: 3C 2D 3E D0 D2 C7 2D D7 41 4E 44 4C 45 52 20 57 |<->...-.ANDLER W| 00000480: 55 52 44 45 4E 20 42 45 49 44 45 20 4D 49 54 20 |URDEN BEIDE MIT | 00000490: 50 4F 53 49 54 49 56 45 4D 0D C5 52 47 45 42 4E |POSITIVEM..RGEBN| 000004A0: 49 53 20 47 45 54 45 53 54 45 54 2E 20 C2 49 54 |IS GETESTET. .IT| 000004B0: 54 45 20 56 4F 52 48 45 52 20 4D 49 54 20 44 45 |TE VORHER MIT DE| 000004C0: 4D 20 C5 44 49 54 4F 52 20 44 45 4E 20 55 45 42 |M .DITOR DEN UEB| 000004D0: 45 52 46 4C 55 45 53 53 49 47 45 4E 20 D4 45 58 |ERFLUESSIGEN .EX| 000004E0: 54 0D 28 44 49 45 53 45 20 C2 45 53 43 48 52 45 |T.(DIESE .ESCHRE| 000004F0: 49 42 55 4E 47 29 20 45 4E 54 46 45 52 4E 45 4E |IBUNG) ENTFERNEN| 00000500: 2E 0D 0D CE 55 4E 20 56 49 45 4C 20 D3 50 41 53 |....UN VIEL .PAS| 00000510: 53 20 55 4E 44 20 C5 52 46 4F 4C 47 2E 20 D6 59 |S UND .RFOLG. .Y| 00000520: 20 37 33 20 44 45 20 CB 41 52 4C 2D C8 45 49 4E | 73 DE .ARL-.EIN| 00000530: 5A 2C 20 C4 CA 34 D8 C4 20 40 20 C4 C2 30 C9 C5 |Z, ..4.. @ ..0..| 00000540: 0D 0D 0D 31 20 52 45 4D 20 42 49 54 54 45 20 44 |...1 REM BITTE D| 00000550: 41 53 20 50 52 47 20 4E 49 43 48 54 20 56 45 52 |AS PRG NICHT VER| 00000560: 41 45 4E 44 45 52 4E 0D 32 20 52 45 4D 20 44 41 |AENDERN.2 REM DA| 00000570: 20 44 41 53 20 49 4E 53 20 41 55 47 45 20 47 45 | DAS INS AUGE GE| 00000580: 48 45 4E 20 4B 41 4E 4E 20 21 0D 33 20 52 45 4D |HEN KANN !.3 REM| 00000590: 20 50 44 2D 53 4F 46 54 20 27 39 31 20 44 4A 34 | PD-SOFT '91 DJ4| 000005A0: 58 44 0D 34 20 50 4F 4B 45 35 33 32 37 32 2C 32 |XD.4 POKE53272,2| 000005B0: 33 3A 50 4F 4B 45 34 36 2C 31 33 3A 50 4F 4B 45 |3:POKE46,13:POKE| 000005C0: 34 38 2C 31 33 3A 50 4F 4B 45 35 30 2C 31 33 0D |48,13:POKE50,13.| 000005D0: 35 20 50 52 49 4E 54 43 48 52 24 28 31 34 37 29 |5 PRINTCHR$(147)| 000005E0: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 36 20 50 |:PRINT:PRINT.6 P| 000005F0: 52 49 4E 54 43 48 52 24 28 31 38 29 3B 22 20 D3 |RINTCHR$(18);" .| 00000600: C5 D1 20 3C 3E 20 53 45 51 20 2A 20 C1 42 42 52 |.. <> SEQ * .BBR| 00000610: 45 43 48 45 4E 20 4D 49 54 20 C6 37 2D D4 41 53 |ECHEN MIT .7-.AS| 00000620: 54 45 22 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D |TE":PRINT:PRINT.| 00000630: 37 20 50 52 49 4E 54 22 20 20 20 20 20 22 3B 43 |7 PRINT" ";C| 00000640: 48 52 24 28 31 38 29 3B 22 20 31 20 22 3B 43 48 |HR$(18);" 1 ";CH| 00000650: 52 24 28 31 34 36 29 3B 22 20 C1 4C 4C 45 53 20 |R$(146);" .LLES | 00000660: 4B 4C 45 49 4E 22 3A 50 52 49 4E 54 0D 38 20 50 |KLEIN":PRINT.8 P| 00000670: 52 49 4E 54 22 20 20 20 20 20 22 3B 43 48 52 24 |RINT" ";CHR$| 00000680: 28 31 38 29 3B 22 20 32 20 22 3B 43 48 52 24 28 |(18);" 2 ";CHR$(| 00000690: 31 34 36 29 3B 22 20 C1 4C 4C 45 53 20 C7 D2 CF |146);" .LLES ...| 000006A0: D3 D3 22 3A 50 52 49 4E 54 0D 39 20 50 52 49 4E |..":PRINT.9 PRIN| 000006B0: 54 22 20 20 20 20 20 22 3B 43 48 52 24 28 31 38 |T" ";CHR$(18| 000006C0: 29 3B 22 20 33 20 22 3B 43 48 52 24 28 31 34 36 |);" 3 ";CHR$(146| 000006D0: 29 3B 22 20 C7 D2 CF D3 D3 2F 4B 4C 45 49 4E 20 |);" ...../KLEIN | 000006E0: 56 45 52 54 41 55 53 43 48 45 4E 22 0D 31 30 20 |VERTAUSCHEN".10 | 000006F0: 41 25 3D 31 32 38 3A 42 25 3D 41 25 3A 43 25 3D |A%=128:B%=A%:C%=| 00000700: 41 25 3A 44 25 3D 41 25 0D 31 31 20 47 45 54 41 |A%:D%=A%.11 GETA| 00000710: 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 31 31 0D |$:IFA$=""THEN11.| 00000720: 31 32 20 49 46 41 24 3C 22 31 22 4F 52 41 24 3E |12 IFA$<"1"ORA$>| 00000730: 22 33 22 54 48 45 4E 31 31 0D 31 33 20 46 4F 52 |"3"THEN11.13 FOR| 00000740: 49 3D 33 32 30 30 54 4F 33 32 34 36 3A 52 45 41 |I=3200TO3246:REA| 00000750: 44 41 3A 50 4F 4B 45 49 2C 41 3A 4E 45 58 54 0D |DA:POKEI,A:NEXT.| 00000760: 31 34 20 49 46 41 24 3D 22 31 22 54 48 45 4E 50 |14 IFA$="1"THENP| 00000770: 4F 4B 45 33 32 32 36 2C 34 35 3A 42 25 3D 31 32 |OKE3226,45:B%=12| 00000780: 37 3A 43 25 3D 31 32 37 0D 31 35 20 49 46 41 24 |7:C%=127.15 IFA$| 00000790: 3D 22 32 22 54 48 45 4E 50 4F 4B 45 33 32 32 36 |="2"THENPOKE3226| 000007A0: 2C 31 33 0D 31 36 20 49 46 41 24 3D 22 33 22 54 |,13.16 IFA$="3"T| 000007B0: 48 45 4E 50 4F 4B 45 33 32 32 36 2C 37 37 0D 31 |HENPOKE3226,77.1| 000007C0: 37 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 |7 PRINT:PRINT:PR| 000007D0: 49 4E 54 22 20 20 20 20 20 C1 55 43 48 20 49 4E |INT" .UCH IN| 000007E0: 4E 45 52 48 41 4C 42 20 44 45 52 20 22 3B 43 48 |NERHALB DER ";CH| 000007F0: 52 24 28 33 34 29 3B 22 20 20 22 3B 43 48 52 24 |R$(34);" ";CHR$| 00000800: 28 33 34 29 3B 22 20 20 20 4A 22 0D 31 38 20 50 |(34);" J".18 P| 00000810: 52 49 4E 54 43 48 52 24 28 31 34 35 29 3B 3A 46 |RINTCHR$(145);:F| 00000820: 4F 52 49 3D 31 54 4F 32 39 3A 50 52 49 4E 54 43 |ORI=1TO29:PRINTC| 00000830: 48 52 24 28 32 39 29 3B 3A 4E 45 58 54 0D 31 39 |HR$(29);:NEXT.19| 00000840: 20 49 4E 50 55 54 41 24 0D 32 30 20 49 46 41 24 | INPUTA$.20 IFA$| 00000850: 3D 22 4A 22 4F 52 41 24 3D 22 4E 22 54 48 45 4E |="J"ORA$="N"THEN| 00000860: 32 32 0D 32 31 20 46 4F 52 49 3D 31 54 4F 33 3A |22.21 FORI=1TO3:| 00000870: 50 52 49 4E 54 43 48 52 24 28 31 34 35 29 3B 3A |PRINTCHR$(145);:| 00000880: 4E 45 58 54 3A 47 4F 54 4F 31 37 0D 32 32 20 49 |NEXT:GOTO17.22 I| 00000890: 46 41 24 3D 22 4A 22 54 48 45 4E 44 25 3D 30 0D |FA$="J"THEND%=0.| 000008A0: 32 33 20 50 52 49 4E 54 3A 50 52 49 4E 54 0D 32 |23 PRINT:PRINT.2| 000008B0: 34 20 49 4E 50 55 54 22 20 20 20 20 20 C9 4E 50 |4 INPUT" .NP| 000008C0: 55 54 2D C6 49 4C 45 2D CE 41 4D 45 20 22 3B 49 |UT-.ILE-.AME ";I| 000008D0: 24 0D 32 35 20 50 52 49 4E 54 3A 49 4E 50 55 54 |$.25 PRINT:INPUT| 000008E0: 22 20 20 20 20 20 CF 55 54 50 55 54 2D C6 49 4C |" .UTPUT-.IL| 000008F0: 45 2D CE 41 4D 45 22 3B 4F 24 0D 32 36 20 49 46 |E-.AME";O$.26 IF| 00000900: 49 24 3D 4F 24 54 48 45 4E 50 52 49 4E 54 3A 50 |I$=O$THENPRINT:P| 00000910: 52 49 4E 54 22 CB C5 C9 CE C5 20 47 4C 45 49 43 |RINT"..... GLEIC| 00000920: 48 45 20 CE 41 4D 45 4E 20 56 45 52 57 45 4E 44 |HE .AMEN VERWEND| 00000930: 45 4E 20 21 22 3A 50 52 49 4E 54 3A 47 4F 54 4F |EN !":PRINT:GOTO| 00000940: 32 34 0D 32 37 20 4F 50 45 4E 35 2C 38 2C 35 2C |24.27 OPEN5,8,5,| 00000950: 49 24 0D 32 38 20 4F 50 45 4E 36 2C 38 2C 36 2C |I$.28 OPEN6,8,6,| 00000960: 4F 24 2B 22 2C 53 2C 57 22 0D 32 39 20 47 45 54 |O$+",S,W".29 GET| 00000970: 23 35 2C 41 24 3A 49 46 41 24 3D 22 22 54 48 45 |#5,A$:IFA$=""THE| 00000980: 4E 32 39 0D 33 30 20 43 53 3D 53 54 0D 33 31 20 |N29.30 CS=ST.31 | 00000990: 41 25 3D 41 53 43 28 41 24 29 3A 53 59 53 33 32 |A%=ASC(A$):SYS32| 000009A0: 30 30 0D 33 32 20 50 52 49 4E 54 23 36 2C 43 48 |00.32 PRINT#6,CH| 000009B0: 52 24 28 41 25 29 3B 0D 33 33 20 47 45 54 42 24 |R$(A%);.33 GETB$| 000009C0: 0D 33 34 20 49 46 42 24 3C 3E 43 48 52 24 28 31 |.34 IFB$<>CHR$(1| 000009D0: 33 36 29 41 4E 44 43 53 3C 3E 36 34 54 48 45 4E |36)ANDCS<>64THEN| 000009E0: 32 39 0D 33 35 20 43 4C 4F 53 45 35 3A 43 4C 4F |29.35 CLOSE5:CLO| 000009F0: 53 45 36 3A 45 4E 44 0D 33 36 20 44 41 54 41 31 |SE6:END.36 DATA1| 00000A00: 37 33 2C 31 32 38 2C 31 33 2C 32 30 31 2C 33 34 |73,128,13,201,34| 00000A10: 2C 32 30 38 2C 31 31 2C 37 32 2C 31 37 33 2C 31 |,208,11,72,173,1| 00000A20: 33 35 2C 31 33 2C 37 37 2C 31 34 39 2C 31 33 2C |35,13,77,149,13,| 00000A30: 31 34 31 2C 31 33 35 2C 31 33 2C 31 30 34 2C 32 |141,135,13,104,2| 00000A40: 30 31 0D 33 37 20 44 41 54 41 31 32 38 2C 31 36 |01.37 DATA128,16| 00000A50: 2C 34 2C 32 30 31 2C 36 34 2C 34 38 2C 33 2C 34 |,4,201,64,48,3,4| 00000A60: 35 2C 31 33 35 2C 31 33 2C 32 30 31 2C 31 33 2C |5,135,13,201,13,| 00000A70: 32 30 38 2C 38 2C 37 32 2C 31 37 33 2C 31 34 32 |208,8,72,173,142| 00000A80: 2C 31 33 2C 31 34 31 2C 31 33 35 2C 31 33 0D 33 |,13,141,135,13.3| 00000A90: 38 20 44 41 54 41 31 30 34 2C 31 34 31 2C 31 32 |8 DATA104,141,12| 00000AA0: 38 2C 31 33 2C 37 36 2C 32 31 30 2C 32 35 35 0D |8,13,76,210,255.| 00000AB0: 52 45 41 44 59 2E 0D 0D 28 C8 29 45 4C 50 20 28 |READY...(.)ELP (| 00000AC0: C3 29 48 45 43 4B 20 28 CC 29 49 53 54 20 28 D2 |.)HECK (.)IST (.| 00000AD0: 29 45 41 44 20 28 D3 29 45 4E 44 20 28 C5 29 52 |)EAD (.)END (.)R| 00000AE0: 41 53 45 20 28 C4 29 49 52 20 28 D5 29 53 41 47 |ASE (.)IR (.)SAG| 00000AF0: 45 20 28 D1 29 55 49 54 0D C4 CC 36 C5 C2 D3 20 |E (.)UIT...6... | 00000B00: 44 45 20 C4 C2 30 C9 DA 3E |DE ..0..> |
.C64 @DL DE:DJ4XD 04.02.91 10:
45 60 3007 BYTES.SEQ<->SEQ-WANDLER.**
* BULLETIN-ID: 042109DB0IE ***..910204/1
017Z DB0LJ , 910204/1018Z DB0GV , 910204
/0928Z DB0IE .DE DJ4XD @DB0IE...HALLO C6
4-USER !..IN DEN BOXEN FINDET MAN IMMER
WIEDER LISTINGS FUER DEN C64 IN 'GROSS-.
SCHRIFT'. DA KEINER MEINER SEQ->PRG-WAND
LER DAMIT ETWAS ANFANGEN KANN.(DIE WANDL
ER SIND VON DC1VE UND DG9PQ, DER AUCH VI
A HB9N VERBREITET.WURDE), HABE EINEN SEQ
->SEQ-WANDLER GESCHRIEBEN, WELCHER GROSS
GE-.SCHRIEBENE LISTINGS IN KLEINSCHRIFT
UMSETZT...UM DAS CHAOS DEM GIPFEL EINEN
SCHRITT NAEHER ZU BRINGEN, WURDE AUCH.DE
R UMGEKEHRTE WEG ERMOEGLICHT, WOBEI MAN
NOCH WAEHLEN KANN, OB DER.TEXT IN DEN "
(GAENSEFUESSCHEN) " UNVERAENDERT BLEIBEN
ODER AUCH GE-.WANDELT WERDEN SOLL...DIE
MOEGLICHKEITEN SIND: ALLES KLEIN.
ALLES GROSS.
GROSS/KLEIN VERTAUSCHEN.
.DAS PROGRAMM IST UEBERWIEGEND IN BASIC
GESCHRIEBEN UND DADURCH LANGSAM..BEI GRO
ESSEREN FILES KANN MAN DURCHAUS MAL KAFF
EE TRINKEN GEHEN, HI...WARNUNG !!!.DAS L
ISTING DARF NICHT VERAENDERT WERDEN, DA
DAS PRG SONST NICHT MEHR.LAEUFT ! DIE OB
EN GENANNTEN SEQ<->PRG-WANDLER WURDEN BE
IDE MIT POSITIVEM.ERGEBNIS GETESTET. BIT
TE VORHER MIT DEM EDITOR DEN UEBERFLUESS
IGEN TEXT.(DIESE BESCHREIBUNG) ENTFERNEN
...NUN VIEL SPASS UND ERFOLG. VY 73 DE K
ARL-HEINZ, DJ4XD @ DB0IE...1 REM BITTE D
AS PRG NICHT VERAENDERN.2 REM DA DAS INS
AUGE GEHEN KANN !.3 REM PD-SOFT '91 DJ4
XD.4 POKE53272,23:POKE46,13:POKE48,13:PO
KE50,13.5 PRINTCHR$(147):PRINT:PRINT.6 P
RINTCHR$(18);" SEQ <> SEQ * ABBRECHEN MI
T F7-TASTE":PRINT:PRINT.7 PRINT" ";C
HR$(18);" 1 ";CHR$(146);" ALLES KLEIN":P
RINT.8 PRINT" ";CHR$(18);" 2 ";CHR$(
146);" ALLES GROSS":PRINT.9 PRINT" "
;CHR$(18);" 3 ";CHR$(146);" GROSS/KLEIN
VERTAUSCHEN".10 A%=128:B%=A%:C%=A%:D%=A%
.11 GETA$:IFA$=""THEN11.12 IFA$<"1"ORA$>
"3"THEN11.13 FORI=3200TO3246:READA:POKEI
,A:NEXT.14 IFA$="1"THENPOKE3226,45:B%=12
7:C%=127.15 IFA$="2"THENPOKE3226,13.16 I
FA$="3"THENPOKE3226,77.17 PRINT:PRINT:PR
INT" AUCH INNERHALB DER ";CHR$(34);"
";CHR$(34);" J".18 PRINTCHR$(145);:F
ORI=1TO29:PRINTCHR$(29);:NEXT.19 INPUTA$
.20 IFA$="J"ORA$="N"THEN22.21 FORI=1TO3:
PRINTCHR$(145);:NEXT:GOTO17.22 IFA$="J"T
HEND%=0.23 PRINT:PRINT.24 INPUT" INP
UT-FILE-NAME ";I$.25 PRINT:INPUT" OU
TPUT-FILE-NAME";O$.26 IFI$=O$THENPRINT:P
RINT"KEINE GLEICHE NAMEN VERWENDEN !":PR
INT:GOTO24.27 OPEN5,8,5,I$.28 OPEN6,8,6,
O$+",S,W".29 GET#5,A$:IFA$=""THEN29.30 C
S=ST.31 A%=ASC(A$):SYS3200.32 PRINT#6,CH
R$(A%);.33 GETB$.34 IFB$<>CHR$(136)ANDCS
<>64THEN29.35 CLOSE5:CLOSE6:END.36 DATA1
73,128,13,201,34,208,11,72,173,135,13,77
,149,13,141,135,13,104,201.37 DATA128,16
,4,201,64,48,3,45,135,13,201,13,208,8,72
,173,142,13,141,135,13.38 DATA104,141,12
8,13,76,210,255.READY...(H)ELP (C)HECK (
L)IST (R)EAD (S)END (E)RASE (D)IR (U)SAG
E (Q)UIT.DL6EBS DE DB0IZ>
> CLICK IMAGE PREVIEW FOR FULL MODAL