PETSCII > TD.SRC
FILE INFORMATION
FILENAME(S): PETSCII > TD.SRC
FILE TYPE(S): SEQ
FILE SIZE: 6.8K
FIRST SEEN: 2025-11-30 18:06:10
APPEARS ON: 1 disk(s)
FILE HASH
2b4e11de56e02c42fe71a174a1c4d4fc996f967338158e35ade946b6f0fbb4aa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGERDISK NUMMER | PETSCII > TD.SRC | SEQ | Xii | 28 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 5C 42 41 20 24 30 38 30 31 0D 20 5C 4F 4E 20 | \BA $0801. \ON | 00000010: 22 50 45 54 53 43 49 49 20 3E 20 54 44 2E 4F 42 |"PETSCII > TD.OB| 00000020: 4A 2C 50 2C 57 22 2C 53 0D 3B 2D 2D 2D 2D 2D 2D |J,P,W",S.;------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 0D 3B 56 45 52 53 49 4F 4E 20 56 4F 4D 20 32 38 |.;VERSION VOM 28| 00000060: 2E 30 33 2E 31 39 39 38 20 42 59 20 57 49 4C 4C |.03.1998 BY WILL| 00000070: 43 4F 58 0D 3B 4D 4F 44 49 46 49 5A 49 45 52 54 |COX.;MODIFIZIERT| 00000080: 20 56 4F 4E 3A 20 20 20 20 20 20 20 20 20 20 20 | VON: | 00000090: 20 41 4D 3A 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | AM:.;----------| 000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 45 4E |------------.;EN| 000000C0: 54 53 54 41 4E 44 45 4E 20 41 4C 53 20 4B 55 52 |TSTANDEN ALS KUR| 000000D0: 53 42 45 47 4C 45 49 54 45 4E 44 45 53 0D 3B 42 |SBEGLEITENDES.;B| 000000E0: 45 49 53 50 49 45 4C 50 52 4F 47 52 41 4D 4D 2E |EISPIELPROGRAMM.| 000000F0: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000110: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 44 49 45 53 45 53 |--------.;DIESES| 00000120: 20 50 52 4F 47 52 41 4D 4D 20 4C 49 45 53 54 20 | PROGRAMM LIEST | 00000130: 45 49 4E 20 50 45 54 53 43 49 49 2D 46 49 4C 45 |EIN PETSCII-FILE| 00000140: 0D 3B 28 53 45 51 29 2C 46 55 45 4C 4C 54 20 44 |.;(SEQ),FUELLT D| 00000150: 49 45 20 5A 45 49 4C 45 4E 20 4D 49 54 20 53 50 |IE ZEILEN MIT SP| 00000160: 41 43 45 53 20 41 55 46 0D 3B 55 4E 44 20 4B 4F |ACES AUF.;UND KO| 00000170: 4E 56 45 52 54 49 45 52 54 20 44 49 45 53 20 49 |NVERTIERT DIES I| 00000180: 4E 20 44 41 53 20 4E 4F 54 45 4D 41 4B 45 52 2D |N DAS NOTEMAKER-| 00000190: 0D 3B 46 4F 52 4D 41 54 2C 49 4E 43 4C 55 53 49 |.;FORMAT,INCLUSI| 000001A0: 56 45 20 57 41 4E 44 4C 55 4E 47 20 41 4C 4C 45 |VE WANDLUNG ALLE| 000001B0: 52 20 47 52 4F 53 53 2D 0D 3B 42 55 43 48 53 54 |R GROSS-.;BUCHST| 000001C0: 41 42 45 4E 20 5A 55 20 5A 45 49 43 48 45 4E 53 |ABEN ZU ZEICHENS| 000001D0: 41 54 5A 20 31 20 28 4B 4C 45 49 4E 29 2E 0D 3B |ATZ 1 (KLEIN)..;| 000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000200: 2D 2D 2D 2D 2D 2D 0D 3B 41 45 4E 44 45 52 55 4E |------.;AENDERUN| 00000210: 47 53 56 4F 52 53 43 48 4C 41 45 47 45 3A 0D 3B |GSVORSCHLAEGE:.;| 00000220: 2D 20 41 42 46 52 41 47 45 20 44 45 53 20 46 45 |- ABFRAGE DES FE| 00000230: 48 4C 45 52 4B 41 4E 41 4C 53 0D 3B 20 20 28 46 |HLERKANALS.; (F| 00000240: 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 2C 57 52 |ILE NOT FOUND,WR| 00000250: 49 54 45 20 50 52 4F 54 45 43 54 20 4F 4E 2C 2E |ITE PROTECT ON,.| 00000260: 2E 29 0D 3B 2D 20 55 4E 54 45 52 44 52 55 45 43 |.).;- UNTERDRUEC| 00000270: 4B 45 4E 20 56 4F 4E 20 53 54 45 55 45 52 5A 45 |KEN VON STEUERZE| 00000280: 49 43 48 45 4E 0D 3B 20 20 28 46 41 52 42 45 2C |ICHEN.; (FARBE,| 00000290: 20 43 55 52 53 4F 52 29 20 42 45 49 4D 20 45 49 | CURSOR) BEIM EI| 000002A0: 4E 4C 45 53 45 4E 2E 0D 3B 2D 2D 2D 2D 2D 2D 2D |NLESEN..;-------| 000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 000002D0: 3B 42 45 49 20 41 45 4E 44 45 52 55 4E 47 45 4E |;BEI AENDERUNGEN| 000002E0: 20 44 49 45 53 45 53 20 50 52 4F 47 52 41 4D 4D | DIESES PROGRAMM| 000002F0: 20 5A 57 45 43 4B 53 0D 3B 56 45 52 4F 45 46 46 | ZWECKS.;VEROEFF| 00000300: 45 4E 54 4C 49 43 48 55 4E 47 20 53 43 48 49 43 |ENTLICHUNG SCHIC| 00000310: 4B 45 4E 20 41 4E 3A 0D 3B 0D 3B 54 49 47 45 52 |KEN AN:.;.;TIGER| 00000320: 20 44 49 53 4B 0D 3B 46 45 4C 44 53 54 52 2E 20 | DISK.;FELDSTR. | 00000330: 31 37 0D 3B 33 36 33 39 31 20 53 49 4E 4E 54 41 |17.;36391 SINNTA| 00000340: 4C 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |L.;-------------| 00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 5C 4C 41 20 53 |---------. \LA S| 00000370: 54 3D 31 34 34 0D 20 5C 4C 41 20 43 4C 52 53 43 |T=144. \LA CLRSC| 00000380: 52 3D 24 45 35 34 34 0D 20 5C 4C 41 20 42 53 4F |R=$E544. \LA BSO| 00000390: 55 54 3D 24 46 46 44 32 0D 20 5C 4C 41 20 42 41 |UT=$FFD2. \LA BA| 000003A0: 53 49 4E 3D 24 46 46 43 46 0D 20 5C 4C 41 20 53 |SIN=$FFCF. \LA S| 000003B0: 54 52 4F 55 54 3D 24 41 42 31 45 0D 20 5C 4C 41 |TROUT=$AB1E. \LA| 000003C0: 20 50 41 52 41 4D 41 3D 24 46 46 42 41 0D 20 5C | PARAMA=$FFBA. \| 000003D0: 4C 41 20 50 41 52 41 4D 42 3D 24 46 46 42 44 0D |LA PARAMB=$FFBD.| 000003E0: 20 5C 4C 41 20 43 48 4B 4F 55 54 3D 24 46 46 43 | \LA CHKOUT=$FFC| 000003F0: 39 0D 20 5C 4C 41 20 43 4C 52 43 48 3D 24 46 46 |9. \LA CLRCH=$FF| 00000400: 43 43 0D 20 5C 4C 41 20 43 48 4B 49 4E 3D 24 46 |CC. \LA CHKIN=$F| 00000410: 46 43 36 0D 20 5C 4C 41 20 4F 50 45 4E 3D 24 46 |FC6. \LA OPEN=$F| 00000420: 46 43 30 0D 20 5C 4C 41 20 43 4C 4F 53 45 3D 24 |FC0. \LA CLOSE=$| 00000430: 46 46 43 33 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |FFC3.;----------| 00000440: 2D 2D 2D 31 39 39 38 20 53 59 53 32 30 36 31 2D |---1998 SYS2061-| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 5C 42 |------------. \B| 00000460: 59 20 24 30 42 2C 38 2C 24 43 45 2C 37 2C 24 39 |Y $0B,8,$CE,7,$9| 00000470: 45 2C 35 30 2C 34 38 2C 35 34 2C 34 39 2C 30 2C |E,50,48,54,49,0,| 00000480: 30 2C 30 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |0,0.;-----------| 00000490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 41 4E 46 41 |-----------.ANFA| 000004B0: 4E 47 3A 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |NG:. LD| 000004C0: 41 20 23 30 20 20 20 20 20 20 20 20 20 20 3B 42 |A #0 ;B| 000004D0: 49 4C 44 53 43 48 49 52 4D 2D 0D 20 20 20 20 20 |ILDSCHIRM-. | 000004E0: 20 20 20 20 20 53 54 41 20 24 44 30 32 30 20 20 | STA $D020 | 000004F0: 20 20 20 20 20 3B 52 41 48 4D 45 4E 46 41 52 42 | ;RAHMENFARB| 00000500: 45 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |E. STA | 00000510: 24 44 30 32 31 20 20 20 20 20 20 20 3B 3D 53 43 |$D021 ;=SC| 00000520: 48 57 41 52 5A 2E 0D 20 20 20 20 20 20 20 20 20 |HWARZ.. | 00000530: 20 4C 44 41 20 23 31 35 20 20 20 20 20 20 20 20 | LDA #15 | 00000540: 20 3B 5A 45 49 43 48 45 4E 46 41 52 42 45 0D 20 | ;ZEICHENFARBE. | 00000550: 20 20 20 20 20 20 20 20 20 53 54 41 20 36 34 36 | STA 646| 00000560: 20 20 20 20 20 20 20 20 20 3B 3D 47 52 41 55 2E | ;=GRAU.| 00000570: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |. LDA #| 00000580: 3C 53 54 52 49 4E 47 31 20 20 20 3B 54 45 58 54 |<STRING1 ;TEXT| 00000590: 20 2D 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 | -. LDY| 000005A0: 20 23 3E 53 54 52 49 4E 47 31 20 20 20 3B 41 55 | #>STRING1 ;AU| 000005B0: 53 47 45 42 45 4E 2E 0D 20 20 20 20 20 20 20 20 |SGEBEN.. | 000005C0: 20 20 4A 53 52 20 53 54 52 4F 55 54 0D 20 20 20 | JSR STROUT. | 000005D0: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 4C 45 53 | LDA #<LES| 000005E0: 45 4E 41 4D 45 20 20 3B 53 55 42 52 4F 55 54 49 |ENAME ;SUBROUTI| 000005F0: 4E 45 0D 20 20 20 20 20 20 20 20 20 20 4C 44 58 |NE. LDX| 00000600: 20 23 3E 4C 45 53 45 4E 41 4D 45 20 20 3B 46 55 | #>LESENAME ;FU| 00000610: 45 52 20 45 49 4E 47 41 42 45 0D 20 20 20 20 20 |ER EINGABE. | 00000620: 20 20 20 20 20 4A 53 52 20 4E 49 4D 4D 4E 41 4D | JSR NIMMNAM| 00000630: 45 20 20 20 20 3B 46 49 4C 45 4E 41 4D 45 2E 0D |E ;FILENAME..| 00000640: 20 20 20 20 20 20 20 20 20 20 42 43 53 20 41 4E | BCS AN| 00000650: 46 41 4E 47 20 20 20 20 20 3B 4E 41 4D 45 3E 31 |FANG ;NAME>1| 00000660: 36 3D 45 52 52 4F 52 0D 20 20 20 20 20 20 20 20 |6=ERROR. | 00000670: 20 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 | TYA | 00000680: 20 20 3B 4C 41 45 4E 47 45 20 41 55 46 20 2D 0D | ;LAENGE AUF -.| 00000690: 20 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 20 | CLC | 000006A0: 20 20 20 20 20 20 20 20 20 20 3B 2B 22 2C 53 2C | ;+",S,| 000006B0: 52 22 20 2D 0D 20 20 20 20 20 20 20 20 20 20 41 |R" -. A| 000006C0: 44 43 20 23 34 20 20 20 20 20 20 20 20 20 20 3B |DC #4 ;| 000006D0: 45 52 57 45 49 54 45 52 4E 2E 0D 20 20 20 20 20 |ERWEITERN.. | 000006E0: 20 20 20 20 20 53 54 41 20 4C 41 45 4E 47 45 31 | STA LAENGE1| 000006F0: 0D 20 20 20 20 20 20 20 20 20 20 54 41 59 20 20 |. TAY | 00000700: 20 20 20 20 20 20 20 20 20 20 20 3B 41 45 4E 44 | ;AEND| 00000710: 45 52 45 20 56 4F 4E 2D 0D 20 20 20 20 20 20 20 |ERE VON-. | 00000720: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY | 00000730: 20 20 20 3B 31 20 41 55 46 20 56 4F 4E 20 30 2E | ;1 AUF VON 0.| 00000740: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |. LDX #| 00000750: 33 0D 41 52 54 4C 4F 4F 50 31 3A 0D 20 20 20 20 |3.ARTLOOP1:. | 00000760: 20 20 20 20 20 20 4C 44 41 20 53 52 2C 58 20 20 | LDA SR,X | 00000770: 20 20 20 20 20 20 3B 22 2C 53 2C 52 22 20 41 4E | ;",S,R" AN| 00000780: 20 2D 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 | -. STA| 00000790: 20 4C 45 53 45 4E 41 4D 45 2C 59 20 3B 4E 41 4D | LESENAME,Y ;NAM| 000007A0: 45 4E 20 48 41 45 4E 47 45 4E 0D 20 20 20 20 20 |EN HAENGEN. | 000007B0: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 | DEY. | 000007C0: 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 | DEX. | 000007D0: 20 42 50 4C 20 41 52 54 4C 4F 4F 50 31 0D 20 20 | BPL ARTLOOP1. | 000007E0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 53 54 | LDA #<ST| 000007F0: 52 49 4E 47 32 20 20 20 3B 54 45 58 54 20 2D 0D |RING2 ;TEXT -.| 00000800: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E | LDY #>| 00000810: 53 54 52 49 4E 47 32 20 20 20 3B 41 55 53 47 45 |STRING2 ;AUSGE| 00000820: 42 45 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 4A |BEN.. J| 00000830: 53 52 20 53 54 52 4F 55 54 0D 20 20 20 20 20 20 |SR STROUT. | 00000840: 20 20 20 20 4C 44 41 20 23 3C 53 43 48 52 45 49 | LDA #<SCHREI| 00000850: 42 4E 41 4D 45 3B 45 49 4E 47 41 42 45 20 44 45 |BNAME;EINGABE DE| 00000860: 53 0D 20 20 20 20 20 20 20 20 20 20 4C 44 58 23 |S. LDX#| 00000870: 3E 53 43 48 52 45 49 42 4E 41 4D 45 3B 4F 55 54 |>SCHREIBNAME;OUT| 00000880: 50 55 54 4E 41 4D 45 4E 53 0D 20 20 20 20 20 20 |PUTNAMENS. | 00000890: 20 20 20 20 4A 53 52 20 4E 49 4D 4D 4E 41 4D 45 | JSR NIMMNAME| 000008A0: 0D 20 20 20 20 20 20 20 20 20 20 42 43 53 20 41 |. BCS A| 000008B0: 4E 46 41 4E 47 20 20 20 20 20 20 3B 4D 45 48 52 |NFANG ;MEHR| 000008C0: 20 41 4C 53 20 31 36 5A 0D 20 20 20 20 20 20 20 | ALS 16Z. | 000008D0: 20 20 20 54 59 41 20 20 20 20 20 20 20 20 20 20 | TYA | 000008E0: 20 20 3B 4C 41 45 4E 47 45 3D 4C 41 45 4E 47 45 | ;LAENGE=LAENGE| 000008F0: 0D 20 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 |. CLC | 00000900: 20 20 20 20 20 20 20 20 20 20 20 3B 50 4C 55 53 | ;PLUS| 00000910: 20 22 2C 50 2C 57 22 0D 20 20 20 20 20 20 20 20 | ",P,W". | 00000920: 20 20 41 44 43 20 23 34 0D 20 20 20 20 20 20 20 | ADC #4. | 00000930: 20 20 20 53 54 41 20 4C 41 45 4E 47 45 32 0D 20 | STA LAENGE2. | 00000940: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 00000950: 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 | DEY. | 00000960: 20 20 20 20 20 4C 44 58 20 23 33 0D 41 52 54 4C | LDX #3.ARTL| 00000970: 4F 4F 50 32 3A 0D 20 20 20 20 20 20 20 20 20 20 |OOP2:. | 00000980: 4C 44 41 20 50 57 2C 58 20 20 20 20 20 20 20 20 |LDA PW,X | 00000990: 3B 22 2C 50 2C 57 22 20 2D 0D 20 20 20 20 20 20 |;",P,W" -. | 000009A0: 20 20 20 20 53 54 41 20 53 43 48 52 45 49 42 4E | STA SCHREIBN| 000009B0: 41 4D 45 2C 59 0D 20 20 20 20 20 20 20 20 20 20 |AME,Y. | 000009C0: 44 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 |DEY | 000009D0: 3B 41 4E 20 4E 41 4D 45 4E 20 2D 0D 20 20 20 20 |;AN NAMEN -. | 000009E0: 20 20 20 20 20 20 44 45 58 20 20 20 20 20 20 20 | DEX | 000009F0: 20 20 20 20 20 20 3B 48 41 45 4E 47 45 4E 2E 0D | ;HAENGEN..| 00000A00: 20 20 20 20 20 20 20 20 20 20 42 50 4C 20 41 52 | BPL AR| 00000A10: 54 4C 4F 4F 50 32 0D 20 20 20 20 20 20 20 20 20 |TLOOP2. | 00000A20: 20 4C 44 41 20 23 31 20 20 20 20 20 20 20 20 20 | LDA #1 | 00000A30: 20 3B 46 49 4C 45 4E 55 4D 4D 45 52 20 31 0D 20 | ;FILENUMMER 1. | 00000A40: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 38 20 | LDX #8 | 00000A50: 20 20 20 20 20 20 20 20 20 3B 44 52 49 56 45 20 | ;DRIVE | 00000A60: 38 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 |8. LDY | 00000A70: 23 32 20 20 20 20 20 20 20 20 20 3B 53 45 4B 55 |#2 ;SEKU| 00000A80: 4E 44 41 45 52 41 44 52 2E 0D 20 20 20 20 20 20 |NDAERADR.. | 00000A90: 20 20 20 20 4A 53 52 20 50 41 52 41 4D 41 20 20 | JSR PARAMA | 00000AA0: 20 20 20 20 3B 55 45 42 45 52 47 45 42 45 4E 2E | ;UEBERGEBEN.| 00000AB0: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 4C |. LDA L| 00000AC0: 41 45 4E 47 45 31 20 20 20 20 20 3B 4C 41 45 4E |AENGE1 ;LAEN| 00000AD0: 47 45 20 4E 41 4D 45 31 0D 20 20 20 20 20 20 20 |GE NAME1. | 00000AE0: 20 20 20 4C 44 58 20 23 3C 4C 45 53 45 4E 41 4D | LDX #<LESENAM| 00000AF0: 45 20 3B 4C 4F 2D 42 59 54 45 20 4E 41 4D 45 31 |E ;LO-BYTE NAME1| 00000B00: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |. LDY #| 00000B10: 3E 4C 45 53 45 4E 41 4D 45 20 3B 48 49 2D 42 59 |>LESENAME ;HI-BY| 00000B20: 54 45 20 4E 41 4D 45 31 0D 20 20 20 20 20 20 20 |TE NAME1. | 00000B30: 20 20 20 4A 53 52 20 50 41 52 41 4D 42 20 20 20 | JSR PARAMB | 00000B40: 20 20 20 3B 55 45 42 45 52 47 45 42 45 4E 2E 0D | ;UEBERGEBEN..| 00000B50: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 4F 50 | JSR OP| 00000B60: 45 4E 20 20 20 20 20 20 20 3B 4F 50 45 4E 20 4C |EN ;OPEN L| 00000B70: 45 53 45 46 49 4C 45 0D 20 20 20 20 20 20 20 20 |ESEFILE. | 00000B80: 20 20 4C 44 41 20 23 32 20 20 20 20 20 20 20 20 | LDA #2 | 00000B90: 20 20 3B 46 49 4C 45 4E 55 4D 4D 45 52 20 32 0D | ;FILENUMMER 2.| 00000BA0: 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 38 | LDX #8| 00000BB0: 20 20 20 20 20 20 20 20 20 20 3B 44 52 49 56 45 | ;DRIVE| 00000BC0: 20 38 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 | 8. LDY| 00000BD0: 20 23 33 20 20 20 20 20 20 20 20 20 3B 53 45 4B | #3 ;SEK| 00000BE0: 55 4E 44 41 45 52 41 44 52 2E 0D 20 20 20 20 20 |UNDAERADR.. | 00000BF0: 20 20 20 20 20 4A 53 52 20 50 41 52 41 4D 41 20 | JSR PARAMA | 00000C00: 20 20 20 20 20 3B 55 45 42 45 52 47 45 42 45 4E | ;UEBERGEBEN| 00000C10: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 4C |. LDA L| 00000C20: 41 45 4E 47 45 32 20 20 20 20 20 3B 4C 41 45 4E |AENGE2 ;LAEN| 00000C30: 47 45 20 4E 41 4D 45 32 0D 20 20 20 20 20 20 20 |GE NAME2. | 00000C40: 20 20 20 4C 44 58 20 23 3C 53 43 48 52 45 49 42 | LDX #<SCHREIB| 00000C50: 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 20 4C |NAME. L| 00000C60: 44 59 20 23 3E 53 43 48 52 45 49 42 4E 41 4D 45 |DY #>SCHREIBNAME| 00000C70: 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 |. JSR P| 00000C80: 41 52 41 4D 42 20 20 20 20 20 20 3B 55 45 42 45 |ARAMB ;UEBE| 00000C90: 52 47 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 |RGEBEN. | 00000CA0: 20 4A 53 52 20 4F 50 45 4E 20 20 20 20 20 20 20 | JSR OPEN | 00000CB0: 20 3B 4F 50 2E 57 52 49 54 45 46 49 4C 45 0D 20 | ;OP.WRITEFILE. | 00000CC0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 32 20 | LDX #2 | 00000CD0: 20 20 20 20 20 20 20 20 20 3B 53 43 48 52 45 49 | ;SCHREI| 00000CE0: 42 46 49 4C 45 2D 0D 20 20 20 20 20 20 20 20 20 |BFILE-. | 00000CF0: 20 4A 53 52 20 43 48 4B 4F 55 54 20 20 20 20 20 | JSR CHKOUT | 00000D00: 20 3B 41 55 46 20 41 55 53 47 41 42 45 2E 0D 20 | ;AUF AUSGABE.. | 00000D10: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 33 32 | LDA #32| 00000D20: 20 20 20 20 20 20 20 20 20 3B 4C 41 44 45 41 44 | ;LADEAD| 00000D30: 52 45 53 53 45 2D 0D 20 20 20 20 20 20 20 20 20 |RESSE-. | 00000D40: 20 4A 53 52 20 42 53 4F 55 54 20 20 20 20 20 20 | JSR BSOUT | 00000D50: 20 3B 53 49 4D 55 4C 49 45 52 45 4E 2E 0D 20 20 | ;SIMULIEREN.. | 00000D60: 20 20 20 20 20 20 20 20 4A 53 52 20 42 53 4F 55 | JSR BSOU| 00000D70: 54 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |T. JSR | 00000D80: 43 4C 52 43 48 20 20 20 20 20 20 20 3B 49 4E 50 |CLRCH ;INP| 00000D90: 55 54 20 52 45 53 45 54 2E 0D 4C 4F 4F 50 30 3A |UT RESET..LOOP0:| 00000DA0: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |. LDA #| 00000DB0: 31 36 33 20 20 20 20 20 20 20 20 3B 42 49 4C 44 |163 ;BILD| 00000DC0: 53 43 48 49 52 4D 20 2D 0D 20 20 20 20 20 20 20 |SCHIRM -. | 00000DD0: 20 20 20 53 54 41 20 24 44 30 31 31 20 20 20 20 | STA $D011 | 00000DE0: 20 20 20 3B 41 55 53 53 43 48 41 4C 54 45 4E 2E | ;AUSSCHALTEN.| 00000DF0: 0D 53 54 41 52 54 3A 0D 20 20 20 20 20 20 20 20 |.START:. | 00000E00: 20 20 4A 53 52 20 43 4C 52 53 43 52 20 20 20 20 | JSR CLRSCR | 00000E10: 20 3B 42 49 4C 44 20 4C 4F 45 53 43 48 45 4E 0D | ;BILD LOESCHEN.| 00000E20: 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 31 | LDX #1| 00000E30: 20 20 20 20 20 20 20 20 20 3B 52 45 41 44 46 49 | ;READFI| 00000E40: 4C 45 20 41 55 46 2D 0D 20 20 20 20 20 20 20 20 |LE AUF-. | 00000E50: 20 20 4A 53 52 20 43 48 4B 49 4E 20 20 20 20 20 | JSR CHKIN | 00000E60: 20 20 3B 45 49 4E 47 41 42 45 2E 0D 20 20 20 20 | ;EINGABE.. | 00000E70: 20 20 20 20 20 20 4C 44 58 20 23 30 0D 4C 4F 4F | LDX #0.LOO| 00000E80: 50 31 3A 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |P1:. LD| 00000E90: 41 20 53 54 20 20 20 20 20 20 20 20 20 20 3B 53 |A ST ;S| 00000EA0: 54 41 54 55 53 20 2D 0D 20 20 20 20 20 20 20 20 |TATUS -. | 00000EB0: 20 20 53 54 41 20 24 30 32 20 20 20 20 20 20 20 | STA $02 | 00000EC0: 20 20 3B 4D 45 52 4B 45 4E 2E 0D 20 20 20 20 20 | ;MERKEN.. | 00000ED0: 20 20 20 20 20 42 4E 45 20 45 4E 44 45 20 20 20 | BNE ENDE | 00000EE0: 20 20 20 20 20 3B 3C 3E 20 30 20 3D 20 45 4E 44 | ;<> 0 = END| 00000EF0: 45 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |E. JSR | 00000F00: 42 41 53 49 4E 20 20 20 20 20 20 3B 4C 45 53 45 |BASIN ;LESE| 00000F10: 20 31 20 5A 45 49 43 48 4E 0D 20 20 20 20 20 20 | 1 ZEICHN. | 00000F20: 20 20 20 20 49 4E 43 20 24 44 30 32 30 20 20 20 | INC $D020 | 00000F30: 20 20 20 20 3B 52 41 48 4D 45 4E 46 41 52 42 45 | ;RAHMENFARBE| 00000F40: 0D 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 |. AND #| 00000F50: 24 37 46 20 20 20 20 20 20 20 20 3B 41 55 53 20 |$7F ;AUS | 00000F60: C1 20 4D 41 43 48 20 41 0D 20 20 20 20 20 20 20 |. MACH A. | 00000F70: 20 20 20 43 4D 50 20 23 31 33 20 20 20 20 20 20 | CMP #13 | 00000F80: 20 20 20 3B 52 45 54 55 52 4E 3F 0D 20 20 20 20 | ;RETURN?. | 00000F90: 20 20 20 20 20 20 42 45 51 20 45 4E 44 45 20 20 | BEQ ENDE | 00000FA0: 20 20 20 20 20 20 3B 3D 5A 45 49 4C 45 4E 45 4E | ;=ZEILENEN| 00000FB0: 44 45 2E 0D 20 20 20 20 20 20 20 20 20 20 4A 53 |DE.. JS| 00000FC0: 52 20 42 53 4F 55 54 20 20 20 20 20 20 20 3B 50 |R BSOUT ;P| 00000FD0: 52 49 4E 54 20 41 55 46 20 2D 0D 20 20 20 20 20 |RINT AUF -. | 00000FE0: 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 20 | INX | 00000FF0: 20 20 20 20 20 3B 42 49 4C 44 53 43 48 49 52 4D | ;BILDSCHIRM| 00001000: 2E 0D 20 20 20 20 20 20 20 20 20 20 43 50 58 20 |.. CPX | 00001010: 23 38 30 20 20 20 20 20 20 20 20 20 3B 38 30 20 |#80 ;80 | 00001020: 5A 45 49 43 48 45 4E 20 2D 0D 3B 20 20 20 20 20 |ZEICHEN -.; | 00001030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001040: 20 20 20 20 3B 55 4E 44 20 49 4D 4D 45 52 20 2D | ;UND IMMER -| 00001050: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00001060: 20 20 20 20 20 20 20 20 20 20 20 3B 4E 4F 43 48 | ;NOCH| 00001070: 20 4B 45 49 4E 20 2D 0D 3B 20 20 20 20 20 20 20 | KEIN -.; | 00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001090: 20 20 3B 52 45 54 55 52 4E 3F 0D 20 20 20 20 20 | ;RETURN?. | 000010A0: 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 0D 45 | BNE LOOP1.E| 000010B0: 4E 44 45 3A 0D 20 20 20 20 20 20 20 20 20 20 4C |NDE:. L| 000010C0: 44 41 20 23 34 30 20 20 20 20 20 20 20 20 3B 53 |DA #40 ;S| 000010D0: 45 54 5A 45 20 43 4F 55 4E 54 45 52 0D 20 20 20 |ETZE COUNTER. | 000010E0: 20 20 20 20 20 20 20 43 50 58 20 23 34 31 20 20 | CPX #41 | 000010F0: 20 20 20 20 20 20 20 3B 57 49 45 56 49 45 4C 20 | ;WIEVIEL | 00001100: 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |-.; | 00001110: 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A 45 49 | ;ZEI| 00001120: 43 48 45 4E 20 2D 0D 3B 20 20 20 20 20 20 20 20 |CHEN -.; | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001140: 20 3B 57 55 52 44 45 4E 20 2D 0D 3B 20 20 20 20 | ;WURDEN -.; | 00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001160: 20 20 20 20 20 3B 47 45 50 52 49 4E 54 45 54 3F | ;GEPRINTET?| 00001170: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00001180: 20 20 20 20 20 20 20 20 20 20 20 3B 4D 45 48 52 | ;MEHR| 00001190: 20 41 4C 53 20 34 30 3F 0D 20 20 20 20 20 20 20 | ALS 40?. | 000011A0: 20 20 20 42 43 43 20 4D 4F 44 49 46 59 0D 20 20 | BCC MODIFY. | 000011B0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 38 30 20 | LDA #80 | 000011C0: 20 20 20 20 20 20 20 20 3B 44 41 4E 4E 20 53 45 | ;DANN SE| 000011D0: 54 5A 45 20 2D 0D 3B 20 20 20 20 20 20 20 20 20 |TZE -.; | 000011E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011F0: 3B 43 4F 55 4E 54 45 52 20 41 55 46 2D 0D 3B 20 |;COUNTER AUF-.; | 00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001210: 20 20 20 20 20 20 20 20 3B 38 30 2E 0D 4D 4F 44 | ;80..MOD| 00001220: 49 46 59 3A 0D 20 20 20 20 20 20 20 20 20 20 53 |IFY:. S| 00001230: 54 41 20 41 45 4E 44 45 52 45 2B 31 20 20 3B 53 |TA AENDERE+1 ;S| 00001240: 45 4C 42 53 54 4D 4F 44 49 46 49 2D 0D 3B 20 20 |ELBSTMODIFI-.; | 00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001260: 20 20 20 20 20 20 20 3B 4B 41 54 49 4F 4E 2E 0D | ;KATION..| 00001270: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 4C | JSR CL| 00001280: 52 43 48 20 20 20 20 20 20 20 3B 49 4E 50 55 54 |RCH ;INPUT| 00001290: 20 52 45 53 45 54 0D 20 20 20 20 20 20 20 20 20 | RESET. | 000012A0: 20 4C 44 58 20 23 32 20 20 20 20 20 20 20 20 20 | LDX #2 | 000012B0: 20 3B 57 52 49 54 45 46 49 4C 45 20 2D 0D 20 20 | ;WRITEFILE -. | 000012C0: 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 4B 4F | JSR CHKO| 000012D0: 55 54 20 20 20 20 20 20 3B 41 55 46 20 41 55 53 |UT ;AUF AUS| 000012E0: 47 41 42 45 2E 0D 20 20 20 20 20 20 20 20 20 20 |GABE.. | 000012F0: 4C 44 58 20 23 30 20 20 20 20 20 20 20 20 20 20 |LDX #0 | 00001300: 3B 5A 41 45 48 4C 45 52 20 3D 20 30 0D 4C 4F 4F |;ZAEHLER = 0.LOO| 00001310: 50 32 3A 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |P2:. LD| 00001320: 41 20 24 30 34 30 30 2C 58 20 20 20 20 20 3B 4C |A $0400,X ;L| 00001330: 45 53 45 20 53 43 52 45 45 4E 2E 0D 20 20 20 20 |ESE SCREEN.. | 00001340: 20 20 20 20 20 20 41 4E 44 20 23 36 33 20 20 20 | AND #63 | 00001350: 20 20 20 20 20 20 3B 57 41 4E 44 4C 45 20 41 4C | ;WANDLE AL| 00001360: 4C 45 53 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |LES.; | 00001370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 | ;I| 00001380: 4E 20 5A 45 49 43 48 45 4E 2D 0D 3B 20 20 20 20 |N ZEICHEN-.; | 00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013A0: 20 20 20 20 20 3B 53 41 54 5A 20 31 0D 20 20 20 | ;SATZ 1. | 000013B0: 20 20 20 20 20 20 20 4A 53 52 20 42 53 4F 55 54 | JSR BSOUT| 000013C0: 20 20 20 20 20 20 20 3B 53 43 48 52 45 49 42 45 | ;SCHREIBE| 000013D0: 20 49 4E 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 | IN-.; | 000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 000013F0: 46 49 4C 45 20 32 2E 0D 20 20 20 20 20 20 20 20 |FILE 2.. | 00001400: 20 20 49 4E 43 20 24 44 30 32 30 20 20 20 20 20 | INC $D020 | 00001410: 20 20 3B 52 41 48 4D 45 4E 46 41 52 42 45 2E 0D | ;RAHMENFARBE..| 00001420: 20 20 20 20 20 20 20 20 20 20 49 4E 58 0D 41 45 | INX.AE| 00001430: 4E 44 45 52 45 3A 0D 20 20 20 20 20 20 20 20 20 |NDERE:. | 00001440: 20 43 50 58 20 23 34 30 20 20 20 20 20 20 20 20 | CPX #40 | 00001450: 20 3B 34 30 20 4F 44 45 52 20 38 30 20 2D 0D 3B | ;40 ODER 80 -.;| 00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001470: 20 20 20 20 20 20 20 20 20 3B 4A 45 20 4E 41 43 | ;JE NAC| 00001480: 48 20 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |H -.; | 00001490: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 45 | ;SE| 000014A0: 4C 42 53 54 4D 4F 44 49 46 49 2D 0D 3B 20 20 20 |LBSTMODIFI-.; | 000014B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014C0: 20 20 20 20 20 20 3B 4B 41 54 49 4F 4E 2E 0D 3B | ;KATION..;| 000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014E0: 20 20 20 20 20 20 20 20 20 3B 42 45 44 45 55 54 | ;BEDEUT| 000014F0: 55 4E 47 3A 0D 3B 20 20 20 20 20 20 20 20 20 20 |UNG:.; | 00001500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001510: 57 55 52 44 45 20 5A 45 49 4C 45 2D 0D 3B 20 20 |WURDE ZEILE-.; | 00001520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001530: 20 20 20 20 20 20 20 3B 53 43 48 4F 4E 20 4B 4F | ;SCHON KO| 00001540: 4D 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |M-.; | 00001550: 20 20 20 20 20 20 20 20 20 20 20 20 3B 50 4C 45 | ;PLE| 00001560: 54 54 20 47 45 4C 45 53 45 4E 0D 3B 20 20 20 20 |TT GELESEN.; | 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001580: 20 20 20 20 20 3B 49 4E 43 4C 2E 53 50 41 43 45 | ;INCL.SPACE| 00001590: 53 3F 0D 20 20 20 20 20 20 20 20 20 20 42 43 43 |S?. BCC| 000015A0: 20 4C 4F 4F 50 32 0D 20 20 20 20 20 20 20 20 20 | LOOP2. | 000015B0: 20 4A 53 52 20 43 4C 52 43 48 20 20 20 20 20 20 | JSR CLRCH | 000015C0: 20 3B 49 4E 50 55 54 20 52 45 53 45 54 2E 0D 20 | ;INPUT RESET.. | 000015D0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 32 | LDA $02| 000015E0: 20 20 20 20 20 20 20 20 20 3B 4C 45 53 45 53 54 | ;LESEST| 000015F0: 41 54 55 53 0D 20 20 20 20 20 20 20 20 20 20 42 |ATUS. B| 00001600: 45 51 20 53 54 41 52 54 20 20 20 20 20 20 20 3B |EQ START ;| 00001610: 53 43 48 4F 4E 20 45 4F 46 3F 0D 20 20 20 20 20 |SCHON EOF?. | 00001620: 20 20 20 20 20 4C 44 41 20 23 31 20 20 20 20 20 | LDA #1 | 00001630: 20 20 20 20 20 3B 43 4C 4F 53 45 20 46 49 4C 45 | ;CLOSE FILE| 00001640: 20 31 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 | 1. JSR| 00001650: 20 43 4C 4F 53 45 0D 20 20 20 20 20 20 20 20 20 | CLOSE. | 00001660: 20 4C 44 41 20 23 32 20 20 20 20 20 20 20 20 20 | LDA #2 | 00001670: 20 3B 43 4C 4F 53 45 20 46 49 4C 45 32 0D 20 20 | ;CLOSE FILE2. | 00001680: 20 20 20 20 20 20 20 20 4A 53 52 20 43 4C 4F 53 | JSR CLOS| 00001690: 45 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |E. LDA | 000016A0: 23 32 37 20 20 20 20 20 20 20 20 3B 42 49 4C 44 |#27 ;BILD| 000016B0: 53 43 48 49 52 4D 20 41 4E 0D 20 20 20 20 20 20 |SCHIRM AN. | 000016C0: 20 20 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 | STA $D011. | 000016D0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 20 20 | LDA #0 | 000016E0: 20 20 20 20 20 20 20 20 3B 52 41 48 4D 45 4E 46 | ;RAHMENF| 000016F0: 41 52 42 45 3D 0D 20 20 20 20 20 20 20 20 20 20 |ARBE=. | 00001700: 53 54 41 20 24 44 30 32 30 20 20 20 20 20 20 20 |STA $D020 | 00001710: 3B 53 43 48 57 41 52 5A 2E 0D 20 20 20 20 20 20 |;SCHWARZ.. | 00001720: 20 20 20 20 4A 4D 50 20 41 4E 46 41 4E 47 20 20 | JMP ANFANG | 00001730: 20 20 20 20 3B 4E 45 55 42 45 47 49 4E 4E 2E 0D | ;NEUBEGINN..| 00001740: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00001750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001760: 2D 2D 2D 2D 2D 2D 2D 0D 4E 49 4D 4D 4E 41 4D 45 |-------.NIMMNAME| 00001770: 3A 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |:. STA | 00001780: 24 32 32 20 20 20 20 20 20 20 20 20 3B 50 4F 49 |$22 ;POI| 00001790: 4E 54 45 52 20 41 55 46 2D 0D 20 20 20 20 20 20 |NTER AUF-. | 000017A0: 20 20 20 20 53 54 58 20 24 32 33 20 20 20 20 20 | STX $23 | 000017B0: 20 20 20 20 3B 46 49 4C 45 4E 41 4D 45 4E 2E 0D | ;FILENAMEN..| 000017C0: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 | LDY #0| 000017D0: 20 20 20 20 20 20 20 20 20 20 3B 5A 41 45 48 4C | ;ZAEHL| 000017E0: 45 52 20 3D 20 30 2E 0D 4D 45 4E 55 31 3A 0D 20 |ER = 0..MENU1:. | 000017F0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 42 41 53 | JSR BAS| 00001800: 49 4E 20 20 20 20 20 20 3B 49 4E 50 55 54 20 54 |IN ;INPUT T| 00001810: 41 53 54 41 54 2E 0D 20 20 20 20 20 20 20 20 20 |ASTAT.. | 00001820: 20 43 4D 50 20 23 31 33 20 20 20 20 20 20 20 20 | CMP #13 | 00001830: 20 3B 52 45 54 55 52 4E 3F 0D 20 20 20 20 20 20 | ;RETURN?. | 00001840: 20 20 20 20 42 45 51 20 4D 45 4E 55 32 0D 20 20 | BEQ MENU2. | 00001850: 20 20 20 20 20 20 20 20 53 54 41 20 28 24 32 32 | STA ($22| 00001860: 29 2C 59 20 20 20 20 3B 49 4D 20 52 41 4D 20 4D |),Y ;IM RAM M| 00001870: 45 52 4B 45 4E 0D 20 20 20 20 20 20 20 20 20 20 |ERKEN. | 00001880: 49 4E 59 0D 20 20 20 20 20 20 20 20 20 20 42 4E |INY. BN| 00001890: 45 20 4D 45 4E 55 31 0D 4D 45 4E 55 32 3A 0D 20 |E MENU1.MENU2:. | 000018A0: 20 20 20 20 20 20 20 20 20 43 50 59 20 23 31 37 | CPY #17| 000018B0: 20 20 20 20 20 20 20 20 20 3B 4D 45 48 52 20 41 | ;MEHR A| 000018C0: 4C 53 20 31 36 2D 0D 3B 20 20 20 20 20 20 20 20 |LS 16-.; | 000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018E0: 20 3B 5A 45 49 43 48 45 4E 20 45 49 4E 2D 0D 3B | ;ZEICHEN EIN-.;| 000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001900: 20 20 20 20 20 20 20 20 20 3B 47 45 47 45 42 45 | ;GEGEBE| 00001910: 4E 3F 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |N?.; | 00001920: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 41 | ;DA| 00001930: 4E 4E 20 43 41 52 52 59 3D 31 0D 20 20 20 20 20 |NN CARRY=1. | 00001940: 20 20 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D | RTS.;------| 00001950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001970: 0D 53 54 52 49 4E 47 31 3A 0D 20 5C 42 59 20 31 |.STRING1:. \BY 1| 00001980: 34 37 2C 31 34 32 0D 20 5C 54 58 20 22 43 4F 4E |47,142. \TX "CON| 00001990: 56 45 52 54 20 50 45 54 53 43 49 49 20 54 4F 20 |VERT PETSCII TO | 000019A0: 4E 4F 54 45 4D 41 4B 45 52 22 0D 20 5C 42 59 20 |NOTEMAKER". \BY | 000019B0: 31 33 0D 20 5C 54 58 20 22 42 59 20 57 49 4C 4C |13. \TX "BY WILL| 000019C0: 43 4F 58 20 46 4F 52 20 54 49 47 45 52 20 54 49 |COX FOR TIGER TI| 000019D0: 53 4B 22 0D 20 5C 42 59 20 31 33 0D 20 5C 54 58 |SK". \BY 13. \TX| 000019E0: 20 22 4D 49 4E 49 4D 41 4C 50 52 47 20 41 4C 53 | "MINIMALPRG ALS| 000019F0: 20 4B 55 52 53 42 45 49 53 50 49 45 4C 21 22 0D | KURSBEISPIEL!".| 00001A00: 20 5C 42 59 20 31 33 2C 31 33 0D 20 5C 54 58 20 | \BY 13,13. \TX | 00001A10: 22 53 4F 55 52 43 45 4E 41 4D 45 20 28 53 45 51 |"SOURCENAME (SEQ| 00001A20: 29 3A 20 22 0D 20 5C 42 59 20 30 0D 53 54 52 49 |): ". \BY 0.STRI| 00001A30: 4E 47 32 3A 0D 20 5C 42 59 20 31 33 2C 31 33 0D |NG2:. \BY 13,13.| 00001A40: 20 5C 54 58 20 22 54 41 52 47 45 54 4E 41 4D 45 | \TX "TARGETNAME| 00001A50: 20 28 50 52 47 29 3A 20 22 0D 20 5C 42 59 20 30 | (PRG): ". \BY 0| 00001A60: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001A80: 2D 2D 2D 2D 2D 2D 2D 2D 0D 50 57 3A 0D 20 5C 54 |--------.PW:. \T| 00001A90: 58 20 22 2C 50 2C 57 22 0D 53 52 3A 0D 20 5C 54 |X ",P,W".SR:. \T| 00001AA0: 58 20 22 2C 53 2C 52 22 0D 4C 41 45 4E 47 45 31 |X ",S,R".LAENGE1| 00001AB0: 3A 0D 20 5C 42 59 20 30 0D 4C 41 45 4E 47 45 32 |:. \BY 0.LAENGE2| 00001AC0: 3A 0D 20 5C 42 59 20 30 0D 4C 45 53 45 4E 41 4D |:. \BY 0.LESENAM| 00001AD0: 45 3A 0D 20 5C 42 52 20 32 30 2C 30 0D 53 43 48 |E:. \BR 20,0.SCH| 00001AE0: 52 45 49 42 4E 41 4D 45 3A 0D 3B 2D 2D 2D 2D 2D |REIBNAME:.;-----| 00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B10: 2D 0D |-. |
\BA $0801. \ON "PETSCII > TD.OBJ,P,W",S
.;--------------------------------------
.;VERSION VOM 28.03.1998 BY WILLCOX.;MOD
IFIZIERT VON: AM:.;----------
----------------------------.;ENTSTANDEN
ALS KURSBEGLEITENDES.;BEISPIELPROGRAMM.
.;--------------------------------------
.;DIESES PROGRAMM LIEST EIN PETSCII-FILE
.;(SEQ),FUELLT DIE ZEILEN MIT SPACES AUF
.;UND KONVERTIERT DIES IN DAS NOTEMAKER-
.;FORMAT,INCLUSIVE WANDLUNG ALLER GROSS-
.;BUCHSTABEN ZU ZEICHENSATZ 1 (KLEIN)..;
--------------------------------------.;
AENDERUNGSVORSCHLAEGE:.;- ABFRAGE DES FE
HLERKANALS.; (FILE NOT FOUND,WRITE PROT
ECT ON,..).;- UNTERDRUECKEN VON STEUERZE
ICHEN.; (FARBE, CURSOR) BEIM EINLESEN..
;--------------------------------------.
;BEI AENDERUNGEN DIESES PROGRAMM ZWECKS.
;VEROEFFENTLICHUNG SCHICKEN AN:.;.;TIGER
DISK.;FELDSTR. 17.;36391 SINNTAL.;-----
---------------------------------. \LA S
T=144. \LA CLRSCR=$E544. \LA BSOUT=$FFD2
. \LA BASIN=$FFCF. \LA STROUT=$AB1E. \LA
PARAMA=$FFBA. \LA PARAMB=$FFBD. \LA CHK
OUT=$FFC9. \LA CLRCH=$FFCC. \LA CHKIN=$F
FC6. \LA OPEN=$FFC0. \LA CLOSE=$FFC3.;--
-----------1998 SYS2061-------------. \B
Y $0B,8,$CE,7,$9E,50,48,54,49,0,0,0.;---
-----------------------------------.ANFA
NG:. LDA #0 ;BILDSCHIR
M-. STA $D020 ;RAHMENFARB
E. STA $D021 ;=SCHWARZ..
LDA #15 ;ZEICHENFARBE.
STA 646 ;=GRAU..
LDA #<STRING1 ;TEXT -. LDY
#>STRING1 ;AUSGEBEN.. JSR ST
ROUT. LDA #<LESENAME ;SUBROUTI
NE. LDX #>LESENAME ;FUER EINGA
BE. JSR NIMMNAME ;FILENAME..
BCS ANFANG ;NAME>16=ERROR.
TYA ;LAENGE AUF -.
CLC ;+",S,R" -.
ADC #4 ;ERWEITERN..
STA LAENGE1. TAY
;AENDERE VON-. DEY
;1 AUF VON 0.. LDX #3.ARTLOO
P1:. LDA SR,X ;",S,R" AN
-. STA LESENAME,Y ;NAMEN HAENG
EN. DEY. DEX.
BPL ARTLOOP1. LDA #<STRING2
;TEXT -. LDY #>STRING2 ;AUSGE
BEN.. JSR STROUT. LDA
#<SCHREIBNAME;EINGABE DES. LDX#
>SCHREIBNAME;OUTPUTNAMENS. JSR
NIMMNAME. BCS ANFANG ;MEHR
ALS 16Z. TYA ;LAENG
E=LAENGE. CLC ;PLUS
",P,W". ADC #4. STA L
AENGE2. TAY. DEY.
LDX #3.ARTLOOP2:. LDA PW,X
;",P,W" -. STA SCHREIBN
AME,Y. DEY ;AN NAME
N -. DEX ;HAENGEN..
BPL ARTLOOP2. LDA #1
;FILENUMMER 1. LDX #8
;DRIVE 8. LDY #2
;SEKUNDAERADR.. JSR PARAMA
;UEBERGEBEN.. LDA LAENGE1
;LAENGE NAME1. LDX #<LESENAM
E ;LO-BYTE NAME1. LDY #>LESENAM
E ;HI-BYTE NAME1. JSR PARAMB
;UEBERGEBEN.. JSR OPEN
;OPEN LESEFILE. LDA #2
;FILENUMMER 2. LDX #8
;DRIVE 8. LDY #3 ;SEK
UNDAERADR.. JSR PARAMA ;UE
BERGEBEN. LDA LAENGE2 ;LAEN
GE NAME2. LDX #<SCHREIBNAME.
LDY #>SCHREIBNAME. JSR P
ARAMB ;UEBERGEBEN. JSR OPE
N ;OP.WRITEFILE. LDX #2
;SCHREIBFILE-. JSR CHK
OUT ;AUF AUSGABE.. LDA #32
;LADEADRESSE-. JSR BSO
UT ;SIMULIEREN.. JSR BSOU
T. JSR CLRCH ;INPUT RESET
..LOOP0:. LDA #163 ;BILD
SCHIRM -. STA $D011 ;AUSS
CHALTEN..START:. JSR CLRSCR
;BILD LOESCHEN. LDX #1
;READFILE AUF-. JSR CHKIN
;EINGABE.. LDX #0.LOOP1:.
LDA ST ;STATUS -.
STA $02 ;MERKEN.. BNE
ENDE ;<> 0 = ENDE. JSR
BASIN ;LESE 1 ZEICHN. INC
$D020 ;RAHMENFARBE. AND #
$7F ;AUS A MACH A. CMP #
13 ;RETURN?. BEQ ENDE
;=ZEILENENDE.. JSR BSOUT
;PRINT AUF -. INX
;BILDSCHIRM.. CPX #80
;80 ZEICHEN -.;
;UND IMMER -.;
;NOCH KEIN -.;
;RETURN?. BNE LOOP1.ENDE:.
LDA #40 ;SETZE COUNTER.
CPX #41 ;WIEVIEL -.;
;ZEICHEN -.;
;WURDEN -.;
;GEPRINTET?.;
;MEHR ALS 40?. BCC M
ODIFY. LDA #80 ;DANN SE
TZE -.; ;COUNTER
AUF-.; ;80..MOD
IFY:. STA AENDERE+1 ;SELBSTMOD
IFI-.; ;KATION..
JSR CLRCH ;INPUT RESET.
LDX #2 ;WRITEFILE -.
JSR CHKOUT ;AUF AUSGABE..
LDX #0 ;ZAEHLER = 0.LOO
P2:. LDA $0400,X ;LESE SCRE
EN.. AND #63 ;WANDLE AL
LES.; ;IN ZEICHE
N-.; ;SATZ 1.
JSR BSOUT ;SCHREIBE IN-.;
;FILE 2..
INC $D020 ;RAHMENFARBE..
INX.AENDERE:. CPX #40
;40 ODER 80 -.;
;JE NACH -.; ;SE
LBSTMODIFI-.; ;K
ATION..; ;BEDEUT
UNG:.; ;WURDE ZE
ILE-.; ;SCHON KO
M-.; ;PLETT GELES
EN.; ;INCL.SPACE
S?. BCC LOOP2. JSR CLR
CH ;INPUT RESET.. LDA $02
;LESESTATUS. BEQ START
;SCHON EOF?. LDA #1
;CLOSE FILE 1. JSR CLOSE.
LDA #2 ;CLOSE FILE2.
JSR CLOSE. LDA #27
;BILDSCHIRM AN. STA $D011.
LDA #0 ;RAHMENFARBE=.
STA $D020 ;SCHWARZ..
JMP ANFANG ;NEUBEGINN..;-------
-------------------------------.NIMMNAME
:. STA $22 ;POINTER AUF
-. STX $23 ;FILENAMEN..
LDY #0 ;ZAEHLER = 0..
MENU1:. JSR BASIN ;INPUT T
ASTAT.. CMP #13 ;RETURN
?. BEQ MENU2. STA ($22
),Y ;IM RAM MERKEN. INY.
BNE MENU1.MENU2:. CPY #17
;MEHR ALS 16-.;
;ZEICHEN EIN-.;
;GEGEBEN?.;
;DANN CARRY=1. RTS.;------
--------------------------------.STRING1
:. \BY 147,142. \TX "CONVERT PETSCII TO
NOTEMAKER". \BY 13. \TX "BY WILLCOX FOR
TIGER TISK". \BY 13. \TX "MINIMALPRG ALS
KURSBEISPIEL!". \BY 13,13. \TX "SOURCEN
AME (SEQ): ". \BY 0.STRING2:. \BY 13,13.
\TX "TARGETNAME (PRG): ". \BY 0.;------
--------------------------------.PW:. \T
X ",P,W".SR:. \TX ",S,R".LAENGE1:. \BY 0
.LAENGE2:. \BY 0.LESENAME:. \BR 20,0.SCH
REIBNAME:.;-----------------------------
---------.
> CLICK IMAGE PREVIEW FOR FULL MODAL