TEIL1.SRC
FILE INFORMATION
FILENAME(S): TEIL1.SRC
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:18:01
APPEARS ON: 1 disk(s)
FILE HASH
95b833e45171751fe2a258073d34fefb88496d495ddb7a6918a9ac0c11b32d85
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GO64 7 97 | TEIL1.SRC | PRG | DuncanTwain | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F7 1F E8 03 3B 20 4D 4F 44 2E 2E C3 48 41 |......; MOD...HA| 00000010: 4E 47 45 D0 41 52 54 53 20 31 30 2E 34 2E 39 37 |NGE.ARTS 10.4.97| 00000020: 00 34 20 ED 03 3B 20 CD 4F 44 55 4C 20 5A 55 4D |.4 ..; .ODUL ZUM| 00000030: 20 D7 45 43 48 53 45 4C 4E 20 5A 57 49 53 43 48 | .ECHSELN ZWISCH| 00000040: 45 4E 20 D0 41 52 54 49 54 49 4F 4E 45 4E 20 41 |EN .ARTITIONEN A| 00000050: 55 46 20 C3 CD C4 2D C4 52 49 56 45 53 00 5E 20 |UF ...-.RIVES.^ | 00000060: F2 03 3B 20 46 55 45 52 20 44 49 45 20 C7 4F 36 |..; FUER DIE .O6| 00000070: 34 21 20 41 55 46 42 45 52 45 49 54 45 54 20 41 |4! AUFBEREITET A| 00000080: 4C 53 20 CB 55 52 53 00 64 20 F3 03 3B 00 78 20 |LS .URS.d ..;.x | 00000090: F4 03 3B 20 20 20 20 20 20 20 20 20 D4 45 49 4C |..; .EIL| 000000A0: 31 00 7E 20 F7 03 3B 00 A7 20 FC 03 3B 20 20 20 |1.~ ..;.. ..; | 000000B0: 20 20 20 20 20 20 2E 4F 42 20 22 4D 4F 44 2E 2E | .OB "MOD..| 000000C0: C3 48 41 4E 47 45 D0 41 52 54 53 2C 50 2C 57 22 |.HANGE.ARTS,P,W"| 000000D0: 00 B7 20 01 04 3B 20 2E 4C 49 20 31 2C 34 2C 37 |.. ..; .LI 1,4,7| 000000E0: 00 BD 20 06 04 3B 00 CB 20 0B 04 20 2E 42 41 24 |.. ..;.. .. .BA$| 000000F0: 43 30 30 30 00 D1 20 10 04 3B 00 E5 20 15 04 20 |C000.. ..;.. .. | 00000100: 2E 45 51 46 54 41 42 54 3D 24 31 42 34 39 00 F9 |.EQFTABT=$1B49..| 00000110: 20 1A 04 20 2E 45 51 46 54 41 42 53 3D 24 31 42 | .. .EQFTABS=$1B| 00000120: 34 44 00 0D 21 1F 04 20 2E 45 51 44 52 49 56 45 |4D..!.. .EQDRIVE| 00000130: 3D 24 30 46 41 38 00 24 21 24 04 20 2E 45 51 46 |=$0FA8.$!$. .EQF| 00000140: 49 4C 45 54 59 50 45 3D 24 31 44 32 39 00 38 21 |ILETYPE=$1D29.8!| 00000150: 29 04 20 2E 45 51 55 4E 49 54 53 3D 24 30 46 41 |). .EQUNITS=$0FA| 00000160: 41 00 4F 21 2E 04 20 2E 45 51 43 4D 44 54 59 50 |A.O!.. .EQCMDTYP| 00000170: 45 53 3D 24 30 32 35 35 00 64 21 33 04 20 2E 45 |ES=$0255.d!3. .E| 00000180: 51 53 43 52 45 45 4E 3D 24 31 31 45 30 00 78 21 |QSCREEN=$11E0.x!| 00000190: 38 04 20 2E 45 51 45 4C 4F 4F 50 3D 24 31 34 32 |8. .EQELOOP=$142| 000001A0: 33 00 8C 21 3D 04 20 2E 45 51 58 4D 45 53 53 3D |3..!=. .EQXMESS=| 000001B0: 24 31 34 35 45 00 A2 21 42 04 20 2E 45 51 53 48 |$145E..!B. .EQSH| 000001C0: 4F 57 44 52 56 3D 24 31 41 32 41 00 B6 21 47 04 |OWDRV=$1A2A..!G.| 000001D0: 20 2E 45 51 43 4D 44 50 54 3D 24 31 41 36 33 00 | .EQCMDPT=$1A63.| 000001E0: CA 21 4C 04 20 2E 45 51 52 45 51 50 54 3D 24 31 |.!L. .EQREQPT=$1| 000001F0: 39 44 34 00 DE 21 51 04 20 2E 45 51 44 45 43 50 |9D4..!Q. .EQDECP| 00000200: 54 3D 24 31 39 43 37 00 F1 21 56 04 20 2E 45 51 |T=$19C7..!V. .EQ| 00000210: 46 49 4C 33 3D 24 31 39 42 41 00 04 22 57 04 20 |FIL3=$19BA.."W. | 00000220: 2E 45 51 53 45 4C 33 3D 24 31 35 39 37 00 1C 22 |.EQSEL3=$1597.."| 00000230: 5B 04 20 2E 45 51 42 4F 4F 54 44 52 49 56 45 3D |[. .EQBOOTDRIVE=| 00000240: 24 30 32 41 43 00 32 22 60 04 20 2E 45 51 50 52 |$02AC.2"`. .EQPR| 00000250: 45 50 44 49 52 3D 24 31 35 36 30 00 48 22 65 04 |EPDIR=$1560.H"e.| 00000260: 20 2E 45 51 53 48 55 4E 49 54 53 3D 24 31 36 33 | .EQSHUNITS=$163| 00000270: 30 00 5E 22 6A 04 20 2E 45 51 43 4C 49 43 4B 45 |0.^"j. .EQCLICKE| 00000280: 44 3D 24 30 46 42 37 00 74 22 6F 04 20 2E 45 51 |D=$0FB7.t"o. .EQ| 00000290: 44 49 52 4D 41 53 4B 3D 24 30 46 41 39 00 8B 22 |DIRMASK=$0FA9.."| 000002A0: 74 04 20 2E 45 51 4C 41 53 54 4E 41 4D 45 3D 24 |t. .EQLASTNAME=$| 000002B0: 30 33 44 43 00 A1 22 79 04 20 2E 45 51 58 54 58 |03DC.."y. .EQXTX| 000002C0: 4F 55 54 32 3D 24 31 34 36 34 00 B6 22 7E 04 20 |OUT2=$1464.."~. | 000002D0: 2E 45 51 53 45 54 50 41 52 3D 24 31 34 45 32 00 |.EQSETPAR=$14E2.| 000002E0: CC 22 83 04 20 2E 45 51 43 4C 52 4C 49 4E 45 3D |.".. .EQCLRLINE=| 000002F0: 24 31 34 46 33 00 E0 22 88 04 20 2E 45 51 43 4C |$14F3..".. .EQCL| 00000300: 52 4D 53 3D 24 31 34 46 30 00 F2 22 8A 04 20 2E |RMS=$14F0..".. .| 00000310: 45 51 50 41 52 54 53 3D 24 33 30 00 01 23 8C 04 |EQPARTS=$30..#..| 00000320: 20 2E 45 51 4C 4F 3D 24 33 32 00 11 23 8E 04 20 | .EQLO=$32..#.. | 00000330: 2E 45 51 48 49 3D 4C 4F 2B 31 00 2B 23 90 04 20 |.EQHI=LO+1.+#.. | 00000340: 2E 45 51 50 42 55 46 46 45 52 3D 44 52 49 56 45 |.EQPBUFFER=DRIVE| 00000350: 53 2B 33 32 00 3B 23 92 04 20 2E 45 51 50 4F 53 |S+32.;#.. .EQPOS| 00000360: 3D 24 41 34 00 50 23 94 04 20 2E 45 51 53 50 52 |=$A4.P#.. .EQSPR| 00000370: 4F 46 46 3D 24 31 43 38 44 00 66 23 96 04 20 2E |OFF=$1C8D.f#.. .| 00000380: 45 51 53 45 4E 44 43 4F 4D 3D 24 31 34 38 38 00 |EQSENDCOM=$1488.| 00000390: 79 23 98 04 20 2E 45 51 54 41 4C 4B 3D 24 31 34 |y#.. .EQTALK=$14| 000003A0: 38 31 00 8D 23 9A 04 20 2E 45 51 42 41 53 49 4E |81..#.. .EQBASIN| 000003B0: 3D 24 46 31 41 44 00 A0 23 9B 04 20 2E 45 51 53 |=$F1AD..#.. .EQS| 000003C0: 54 41 54 55 53 3D 24 39 30 00 B5 23 9C 04 20 2E |TATUS=$90..#.. .| 000003D0: 45 51 55 4E 54 41 4C 4B 3D 24 46 46 41 42 00 C9 |EQUNTALK=$FFAB..| 000003E0: 23 9E 04 20 2E 45 51 53 50 52 4F 4E 3D 24 31 43 |#.. .EQSPRON=$1C| 000003F0: 39 30 00 DF 23 A0 04 20 2E 45 51 4D 4F 56 45 54 |90..#.. .EQMOVET| 00000400: 41 42 3D 24 30 46 44 38 00 F3 23 A2 04 20 2E 45 |AB=$0FD8..#.. .E| 00000410: 51 43 4E 56 42 43 3D 24 31 43 35 45 00 07 24 A4 |QCNVBC=$1C5E..$.| 00000420: 04 20 2E 45 51 4D 41 4C 32 30 3D 24 31 30 43 35 |. .EQMAL20=$10C5| 00000430: 00 1A 24 A6 04 20 2E 45 51 45 52 52 31 3D 24 30 |..$.. .EQERR1=$0| 00000440: 46 42 34 00 2D 24 A8 04 20 2E 45 51 46 4C 45 4E |FB4.-$.. .EQFLEN| 00000450: 3D 24 30 46 42 39 00 3F 24 A9 04 20 2E 45 51 5A |=$0FB9.?$.. .EQZ| 00000460: 45 49 4C 45 3D 24 42 30 00 58 24 AA 04 20 2E 45 |EILE=$B0.X$.. .E| 00000470: 51 53 43 52 4F 4C 4C 42 41 43 4B 3D 24 42 46 30 |QSCROLLBACK=$BF0| 00000480: 30 00 6E 24 AB 04 20 2E 45 51 4E 55 4D 42 45 52 |0.n$.. .EQNUMBER| 00000490: 53 3D 24 30 31 30 30 00 74 24 AC 04 3B 00 8D 24 |S=$0100.t$..;..$| 000004A0: AE 04 20 2E 45 51 4D 4F 44 45 4E 44 3D 44 52 49 |.. .EQMODEND=DRI| 000004B0: 56 45 53 2B 33 32 00 93 24 AF 04 3B 00 A7 24 B0 |VES+32..$..;..$.| 000004C0: 04 48 45 41 44 45 52 20 4A 4D 50 53 54 41 52 54 |.HEADER JMPSTART| 000004D0: 00 B3 24 B5 04 20 2E 42 59 24 32 30 00 BD 24 BA |..$.. .BY$20..$.| 000004E0: 04 20 2E 42 59 30 00 C7 24 BF 04 20 2E 42 59 30 |. .BY0..$.. .BY0| 000004F0: 00 D8 24 C4 04 20 2E 57 4F 28 4D 4F 44 45 4E 44 |..$.. .WO(MODEND| 00000500: 29 00 E2 24 C9 04 20 2E 57 4F 30 00 FD 24 CE 04 |)..$.. .WO0..$..| 00000510: 20 2E 54 58 22 C3 48 41 4E 47 45 D0 41 52 54 49 | .TX".HANGE.ARTI| 00000520: 54 49 4F 4E 53 22 00 0C 25 D3 04 20 2E 54 58 22 |TIONS"..%.. .TX"| 00000530: 30 2E 39 39 22 00 1F 25 D8 04 20 2E 54 58 22 31 |0.99"..%.. .TX"1| 00000540: 33 2E 30 34 2E 39 37 22 00 3A 25 DD 04 20 2E 54 |3.04.97".:%.. .T| 00000550: 58 22 C1 2E 20 C4 45 54 54 4B 45 20 20 20 20 20 |X".. .ETTKE | 00000560: 20 20 22 00 40 25 E2 04 3B 00 56 25 E7 04 53 54 | ".@%..;.V%..ST| 00000570: 41 52 54 20 4A 53 52 43 48 45 43 4B 52 41 4D 00 |ART JSRCHECKRAM.| 00000580: 67 25 E8 04 20 4A 53 52 53 45 54 55 4E 49 54 53 |g%.. JSRSETUNITS| 00000590: 00 7D 25 EA 04 20 4C 44 58 23 3C 28 43 48 41 4E |.}%.. LDX#<(CHAN| 000005A0: 47 45 4C 53 54 29 00 93 25 EC 04 20 4C 44 59 23 |GELST)..%.. LDY#| 000005B0: 3E 28 43 48 41 4E 47 45 4C 53 54 29 00 A2 25 F1 |>(CHANGELST)..%.| 000005C0: 04 20 4A 53 52 53 43 52 45 45 4E 00 B3 25 F2 04 |. JSRSCREEN..%..| 000005D0: 20 4A 53 52 53 48 44 52 49 56 45 53 00 C1 25 F6 | JSRSHDRIVES..%.| 000005E0: 04 20 4A 53 52 45 4C 4F 4F 50 00 D1 25 FB 04 45 |. JSRELOOP..%..E| 000005F0: 56 4C 45 41 56 45 20 53 45 43 00 DA 25 00 05 20 |VLEAVE SEC..%.. | 00000600: 52 54 53 00 E0 25 05 05 3B 00 F4 25 14 05 53 45 |RTS..%..;..%..SE| 00000610: 54 55 4E 49 54 53 20 4C 44 58 23 33 30 00 01 26 |TUNITS LDX#30..&| 00000620: 15 05 20 4C 44 41 23 24 38 30 00 0D 26 16 05 20 |.. LDA#$80..&.. | 00000630: 42 4E 45 53 55 31 00 26 26 19 05 53 55 30 20 4C |BNESU1.&&..SU0 L| 00000640: 44 41 46 49 4C 45 54 59 50 45 2B 32 39 2C 58 00 |DAFILETYPE+29,X.| 00000650: 3A 26 1E 05 53 55 31 20 53 54 41 44 52 49 56 45 |:&..SU1 STADRIVE| 00000660: 53 2C 58 00 43 26 23 05 20 44 45 58 00 4F 26 28 |S,X.C&#. DEX.O&(| 00000670: 05 20 42 50 4C 53 55 30 00 58 26 2D 05 20 52 54 |. BPLSU0.X&-. RT| 00000680: 53 00 5E 26 32 05 3B 00 73 26 46 05 53 48 44 52 |S.^&2.;.s&F.SHDR| 00000690: 49 56 45 53 20 4C 44 41 23 24 36 30 00 81 26 4B |IVES LDA#$60..&K| 000006A0: 05 20 53 54 41 43 4D 44 50 54 00 8F 26 55 05 20 |. STACMDPT..&U. | 000006B0: 53 54 41 52 45 51 50 54 00 9D 26 56 05 20 44 45 |STAREQPT..&V. DE| 000006C0: 43 44 45 43 50 54 00 AA 26 5A 05 20 4A 53 52 46 |CDECPT..&Z. JSRF| 000006D0: 49 4C 33 00 B7 26 5F 05 20 4C 44 41 23 24 32 30 |IL3..&_. LDA#$20| 000006E0: 00 C5 26 64 05 20 53 54 41 52 45 51 50 54 00 D2 |..&d. STAREQPT..| 000006F0: 26 69 05 20 4C 44 41 23 24 44 30 00 E0 26 6E 05 |&i. LDA#$D0..&n.| 00000700: 20 53 54 41 43 4D 44 50 54 00 EE 26 6F 05 20 49 | STACMDPT..&o. I| 00000710: 4E 43 44 45 43 50 54 00 F7 26 73 05 20 52 54 53 |NCDECPT..&s. RTS| 00000720: 00 FD 26 74 05 3B 00 13 27 78 05 43 48 45 43 4B |..&t.;..'x.CHECK| 00000730: 52 41 4D 20 4C 44 41 44 52 49 56 45 00 1F 27 7D |RAM LDADRIVE..'}| 00000740: 05 20 43 4D 50 23 31 32 00 2B 27 82 05 20 42 4E |. CMP#12.+'.. BN| 00000750: 45 43 52 30 00 3D 27 87 05 20 4C 44 41 42 4F 4F |ECR0.='.. LDABOO| 00000760: 54 44 52 49 56 45 00 4B 27 8C 05 20 53 54 41 44 |TDRIVE.K'.. STAD| 00000770: 52 49 56 45 00 57 27 91 05 43 52 30 20 52 54 53 |RIVE.W'..CR0 RTS| 00000780: 00 5D 27 96 05 3B 00 6E 27 28 23 45 56 53 45 4C |.]'..;.n'(#EVSEL| 00000790: 45 43 54 20 4E 4F 50 00 7E 27 2D 23 45 56 55 4E |ECT NOP.~'-#EVUN| 000007A0: 49 54 53 20 4E 4F 50 00 8F 27 32 23 45 56 53 43 |ITS NOP..'2#EVSC| 000007B0: 52 4C 52 57 20 4E 4F 50 00 A0 27 37 23 45 56 53 |RLRW NOP..'7#EVS| 000007C0: 43 52 4C 56 57 20 4E 4F 50 00 B1 27 3C 23 45 56 |CRLVW NOP..'<#EV| 000007D0: 43 48 41 4E 47 45 20 4E 4F 50 00 BA 27 41 23 20 |CHANGE NOP..'A# | 000007E0: 43 4C 43 00 C3 27 46 23 20 52 54 53 00 C9 27 4B |CLC..'F# RTS..'K| 000007F0: 23 3B 00 EE 27 10 27 43 48 41 4E 47 45 4C 53 54 |#;..'.'CHANGELST| 00000800: 20 2E 42 59 30 2C 30 2C 33 2C 33 34 2C 32 35 2C | .BY0,0,3,34,25,| 00000810: 24 30 31 2C 30 2C 30 00 07 28 15 27 42 4F 58 20 |$01,0,0..(.'BOX | 00000820: 2E 42 59 31 2C 34 2C 31 38 2C 31 38 2C 24 36 30 |.BY1,4,18,18,$60| 00000830: 00 1A 28 1A 27 20 2E 57 4F 28 45 56 53 45 4C 45 |..(.' .WO(EVSELE| 00000840: 43 54 29 00 34 28 1F 27 20 2E 42 59 31 39 2C 34 |CT).4(.' .BY19,4| 00000850: 2C 31 38 2C 33 2C 24 32 30 2C 30 2C 30 00 4A 28 |,18,3,$20,0,0.J(| 00000860: 24 27 20 2E 42 59 32 2C 32 33 2C 31 33 2C 36 2C |$' .BY2,23,13,6,| 00000870: 24 36 30 00 5C 28 29 27 20 2E 57 4F 28 45 56 55 |$60.\()' .WO(EVU| 00000880: 4E 49 54 53 29 00 72 28 2E 27 20 2E 42 59 31 31 |NITS).r(.' .BY11| 00000890: 2C 32 32 2C 33 2C 34 2C 24 44 30 00 85 28 33 27 |,22,3,4,$D0..(3'| 000008A0: 20 2E 57 4F 28 45 56 53 43 52 4C 52 57 29 00 92 | .WO(EVSCRLRW)..| 000008B0: 28 38 27 20 2E 42 59 33 30 2C 30 00 A8 28 3D 27 |(8' .BY30,0..(='| 000008C0: 20 2E 42 59 31 35 2C 32 32 2C 33 2C 34 2C 24 34 | .BY15,22,3,4,$4| 000008D0: 30 00 BB 28 42 27 20 2E 57 4F 28 45 56 53 43 52 |0..(B' .WO(EVSCR| 000008E0: 4C 56 57 29 00 D2 28 47 27 20 2E 42 59 31 33 2C |LVW)..(G' .BY13,| 000008F0: 32 35 2C 31 31 2C 33 2C 24 44 30 00 E5 28 4C 27 |25,11,3,$D0..(L'| 00000900: 20 2E 57 4F 28 45 56 43 48 41 4E 47 45 29 00 00 | .WO(EVCHANGE)..| 00000910: 29 51 27 20 2E 42 59 36 37 2C 38 2C 31 2C 31 34 |)Q' .BY67,8,1,14| 00000920: 2C 37 2C 35 2C 38 30 2C 30 00 17 29 56 27 20 2E |,7,5,80,0..)V' .| 00000930: 42 59 31 36 2C 32 35 2C 31 31 2C 33 2C 24 44 30 |BY16,25,11,3,$D0| 00000940: 00 29 29 5B 27 20 2E 57 4F 28 45 56 4C 45 41 56 |.))[' .WO(EVLEAV| 00000950: 45 29 00 3F 29 60 27 20 2E 42 59 37 36 2C 35 2C |E).?)`' .BY76,5,| 00000960: 31 2C 32 32 2C 35 2C 30 00 5A 29 65 27 20 2E 42 |1,22,5,0.Z)e' .B| 00000970: 59 31 39 2C 32 35 2C 31 31 2C 33 2C 24 32 30 2C |Y19,25,11,3,$20,| 00000980: 30 2C 30 00 70 29 6F 27 20 2E 42 59 32 32 2C 33 |0,0.p)o' .BY22,3| 00000990: 2C 33 34 2C 33 2C 24 34 39 00 80 29 74 27 20 2E |,34,3,$49..)t' .| 000009A0: 57 4F 28 58 4D 45 53 53 29 00 A3 29 79 27 20 2E |WO(XMESS)..)y' .| 000009B0: 42 59 24 43 30 2C 30 2C 32 36 2C 35 2C 38 35 2C |BY$C0,0,26,5,85,| 000009C0: 31 34 2C 39 2C 32 30 2C 31 39 2C 30 00 C6 29 7E |14,9,20,19,0..)~| 000009D0: 27 20 2E 42 59 24 43 30 2C 37 2C 32 36 2C 36 2C |' .BY$C0,7,26,6,| 000009E0: 36 37 2C 38 2C 31 2C 31 34 2C 37 2C 35 2C 30 00 |67,8,1,14,7,5,0.| 000009F0: F7 29 83 27 20 2E 42 59 24 43 30 2C 38 2C 32 34 |.).' .BY$C0,8,24| 00000A00: 2C 31 30 2C 38 30 2C 31 2C 31 38 2C 32 30 2C 39 |,10,80,1,18,20,9| 00000A10: 2C 32 30 2C 39 2C 31 35 2C 31 34 2C 31 39 2C 30 |,20,9,15,14,19,0| 00000A20: 00 10 2A 88 27 20 2E 42 59 24 43 30 2C 31 36 2C |..*.' .BY$C0,16,| 00000A30: 32 32 2C 31 2C 33 31 2C 30 00 22 2A 8D 27 44 52 |22,1,31,0."*.'DR| 00000A40: 49 56 45 53 20 2E 42 59 24 38 30 00 2B 2A 92 27 |IVES .BY$80.+*.'| 00000A50: 20 2E 45 4E 00 00 00 42 27 20 2E 57 4F 28 45 56 | .EN...B' .WO(EV| 00000A60: 53 43 52 4C 56 57 29 00 00 00 33 27 20 2E 57 4F |SCRLVW)...3' .WO| 00000A70: 28 45 56 53 43 52 4C 52 57 29 00 A2 40 38 27 20 |(EVSCRLRW)..@8' | 00000A80: 2E 42 59 33 30 2C 30 00 B8 40 3D 27 20 2E 42 59 |.BY30,0..@=' .BY| 00000A90: 31 35 2C 32 32 2C 33 2C 34 2C 24 34 30 00 CB 40 |15,22,3,4,$40..@| 00000AA0: 42 27 20 2E 57 4F 28 45 56 53 43 52 4C 52 57 29 |B' .WO(EVSCRLRW)| 00000AB0: 00 E2 40 47 27 20 2E 42 59 31 33 2C 32 35 2C 31 |..@G' .BY13,25,1| 00000AC0: 31 2C 33 2C 24 44 30 00 F5 40 4C 27 20 2E 57 4F |1,3,$D0..@L' .WO| 00000AD0: 28 45 56 43 48 41 4E 47 45 29 00 10 41 51 27 20 |(EVCHANGE)..AQ' | 00000AE0: 2E 42 59 36 37 2C 38 2C 31 2C 31 34 2C 37 2C 35 |.BY67,8,1,14,7,5| 00000AF0: 2C 38 30 2C 30 00 27 41 56 27 20 2E 42 59 31 36 |,80,0.'AV' .BY16| 00000B00: 2C 32 35 2C 31 31 2C 33 2C 24 44 30 00 39 41 5B |,25,11,3,$D0.9A[| 00000B10: 27 20 2E 57 4F 28 45 56 4C 45 41 56 45 29 00 4F |' .WO(EVLEAVE).O| 00000B20: 41 60 27 20 2E 42 59 37 36 2C 35 2C 31 2C 32 32 |A`' .BY76,5,1,22| 00000B30: 2C 35 2C 30 00 6A 41 65 27 20 2E 42 59 31 39 2C |,5,0.jAe' .BY19,| 00000B40: 32 35 2C 31 31 2C 33 2C 24 32 30 2C 30 2C 30 00 |25,11,3,$20,0,0.| 00000B50: 80 41 6F 27 20 2E 42 59 32 32 2C 33 2C 33 34 2C |.Ao' .BY22,3,34,| 00000B60: 33 2C 24 34 39 00 90 41 74 27 20 2E 57 4F 28 58 |3,$49..At' .WO(X| 00000B70: 4D 45 53 53 29 00 B3 41 79 27 20 2E 42 59 24 43 |MESS)..Ay' .BY$C| 00000B80: 30 2C 30 2C 32 36 2C 35 2C 38 35 2C 31 34 2C 39 |0,0,26,5,85,14,9| 00000B90: 2C 32 30 2C 31 39 2C 30 00 D6 41 7E 27 20 2E 42 |,20,19,0..A~' .B| 00000BA0: 59 24 43 30 2C 37 2C 32 36 2C 36 2C 36 37 2C 38 |Y$C0,7,26,6,67,8| 00000BB0: 2C 31 2C 31 34 2C 37 2C 35 2C 30 00 07 42 83 27 |,1,14,7,5,0..B.'| 00000BC0: 20 2E 42 59 24 43 30 2C 38 2C 32 34 2C 31 30 2C | .BY$C0,8,24,10,| 00000BD0: 38 30 2C 31 2C 31 38 2C 32 30 2C 39 2C 32 30 2C |80,1,18,20,9,20,| 00000BE0: 39 2C 31 35 2C 31 34 2C 31 39 2C 30 00 20 42 88 |9,15,14,19,0. B.| 00000BF0: 27 20 2E 42 59 24 43 30 2C 31 36 2C 32 32 2C 31 |' .BY$C0,16,22,1| 00000C00: 2C 33 31 2C 30 00 32 42 8D 27 44 52 49 56 45 53 |,31,0.2B.'DRIVES| 00000C10: 20 2E 42 59 24 38 30 00 3B 42 D8 27 20 2E 45 4E | .BY$80.;B.' .EN| 00000C20: 00 00 00 |... |
X.....; MOD..CHANGEPARTS 10.4.97.4 ..; M ODUL ZUM WECHSELN ZWISCHEN PARTITIONEN A UF CMD-DRIVES.^ ..; FUER DIE GO64! AUFBE REITET ALS KURS.D ..;.X ..; TEIL 1.~ ..;.. ..; .OB "MOD..CHANGEPA RTS,P,W".. ..; .LI 1,4,7.. ..;.K .. .BA$ C000.Q ..;.. .. .EQFTABT=$1B49.. .. .EQF TABS=$1B4D..!.. .EQDRIVE=$0FA8.$!$. .EQF ILETYPE=$1D29.8!). .EQUNITS=$0FAA.O!.. . EQCMDTYPES=$0255.D!3. .EQSCREEN=$11E0.X! 8. .EQELOOP=$1423..!=. .EQXMESS=$145E..! B. .EQSHOWDRV=$1A2A..!G. .EQCMDPT=$1A63. J!L. .EQREQPT=$19D4..!Q. .EQDECPT=$19C7. .!V. .EQFIL3=$19BA.."W. .EQSEL3=$1597.." [. .EQBOOTDRIVE=$02AC.2"`. .EQPREPDIR=$1 560.H"E. .EQSHUNITS=$1630.^"J. .EQCLICKE D=$0FB7.T"O. .EQDIRMASK=$0FA9.."T. .EQLA STNAME=$03DC.."Y. .EQXTXOUT2=$1464.."~. .EQSETPAR=$14E2.L".. .EQCLRLINE=$14F3.." .. .EQCLRMS=$14F0..".. .EQPARTS=$30..#.. .EQLO=$32..#.. .EQHI=LO+1.+#.. .EQPBUFF ER=DRIVES+32.;#.. .EQPOS=$A4.P#.. .EQSPR OFF=$1C8D.F#.. .EQSENDCOM=$1488.Y#.. .EQ TALK=$1481..#.. .EQBASIN=$F1AD. #.. .EQS TATUS=$90..#.. .EQUNTALK=$FFAB.I#.. .EQS PRON=$1C90..# . .EQMOVETAB=$0FD8..#.. .E QCNVBC=$1C5E..$.. .EQMAL20=$10C5..$.. .E QERR1=$0FB4.-$.. .EQFLEN=$0FB9.?$.. .EQZ EILE=$B0.X$.. .EQSCROLLBACK=$BF00.N$.. . EQNUMBERS=$0100.T$..;..$.. .EQMODEND=DRI VES+32..$..;..$..HEADER JMPSTART..$.. .B Y$20..$.. .BY0.G$.. .BY0.X$D. .WO(MODEND )..$I. .WO0..$N. .TX"CHANGEPARTITIONS".. %S. .TX"0.99"..%X. .TX"13.04.97".:%.. .T X"A. DETTKE ".@%..;.V%..START JSRC HECKRAM.G%.. JSRSETUNITS.}%.. LDX#<(CHAN GELST)..%.. LDY#>(CHANGELST)..%.. JSRSCR EEN..%.. JSRSHDRIVES.A%.. JSRELOOP.Q%..E VLEAVE SEC.Z%.. RTS..%..;..%..SETUNITS L DX#30..&.. LDA#$80..&.. BNESU1.&&..SU0 L DAFILETYPE+29,X.:&..SU1 STADRIVES,X.C&#. DEX.O&(. BPLSU0.X&-. RTS.^&2.;.S&F.SHDR IVES LDA#$60..&K. STACMDPT..&U. STAREQPT ..&V. DECDECPT..&Z. JSRFIL3..&_. LDA#$20 .E&D. STAREQPT.R&I. LDA#$D0..&N. STACMDP T..&O. INCDECPT..&S. RTS..&T.;..'X.CHECK RAM LDADRIVE..'}. CMP#12.+'.. BNECR0.='. . LDABOOTDRIVE.K'.. STADRIVE.W'..CR0 RTS .]'..;.N'(#EVSELECT NOP.~'-#EVUNITS NOP. .'2#EVSCRLRW NOP. '7#EVSCRLVW NOP..'<#EV CHANGE NOP..'A# CLC.C'F# RTS.I'K#;..'.'C HANGELST .BY0,0,3,34,25,$01,0,0..(.'BOX .BY1,4,18,18,$60..(.' .WO(EVSELECT).4(.' .BY19,4,18,3,$20,0,0.J($' .BY2,23,13,6, $60.\()' .WO(EVUNITS).R(.' .BY11,22,3,4, $D0..(3' .WO(EVSCRLRW)..(8' .BY30,0..(=' .BY15,22,3,4,$40..(B' .WO(EVSCRLVW).R(G ' .BY13,25,11,3,$D0..(L' .WO(EVCHANGE).. )Q' .BY67,8,1,14,7,5,80,0..)V' .BY16,25, 11,3,$D0.))[' .WO(EVLEAVE).?)`' .BY76,5, 1,22,5,0.Z)E' .BY19,25,11,3,$20,0,0.P)O' .BY22,3,34,3,$49..)T' .WO(XMESS)..)Y' . BY$C0,0,26,5,85,14,9,20,19,0.F)~' .BY$C0 ,7,26,6,67,8,1,14,7,5,0..).' .BY$C0,8,24 ,10,80,1,18,20,9,20,9,15,14,19,0..*.' .B Y$C0,16,22,1,31,0."*.'DRIVES .BY$80.+*.' .EN...B' .WO(EVSCRLVW)...3' .WO(EVSCRLR W)..@8' .BY30,0..@=' .BY15,22,3,4,$40.K@ B' .WO(EVSCRLRW)..@G' .BY13,25,11,3,$D0. .@L' .WO(EVCHANGE)..AQ' .BY67,8,1,14,7,5 ,80,0.'AV' .BY16,25,11,3,$D0.9A[' .WO(EV LEAVE).OA`' .BY76,5,1,22,5,0.JAE' .BY19, 25,11,3,$20,0,0..AO' .BY22,3,34,3,$49..A T' .WO(XMESS)..AY' .BY$C0,0,26,5,85,14,9 ,20,19,0.VA~' .BY$C0,7,26,6,67,8,1,14,7, 5,0..B.' .BY$C0,8,24,10,80,1,18,20,9,20, 9,15,14,19,0. B.' .BY$C0,16,22,1,31,0.2B .'DRIVES .BY$80.;BX' .EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL