GT.ROUTINEN
FILE INFORMATION
FILENAME(S): GT.ROUTINEN
FILE TYPE(S): SEQ
FILE SIZE: 16.5K
FIRST SEEN: 2025-11-30 01:13:13
APPEARS ON: 2 disk(s)
FILE HASH
f67ea623a40fc3c79ad259827e603db977811c19c4e5041d520e1db8b8d12dd7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15828 SEITE B | GT.ROUTINEN | SEQ | C64er | 8 | 6 | DOWNLOAD FILE |
| 15828 SEITE B | GT.ROUTINEN | SEQ | DuncanTwain | 8 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |; **************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 20 2A 2A 2A 20 |*********.; *** | 00000020: 41 4E 44 45 52 45 20 D2 4F 55 54 49 4E 45 4E 20 |ANDERE .OUTINEN | 00000030: 2A 2A 2A 0D 3B 0D 3B 20 2A 2A 2A 20 D3 54 45 52 |***.;.; *** .TER| 00000040: 4E 43 48 45 4E 20 53 45 54 5A 45 4E 2F 4C 4F 45 |NCHEN SETZEN/LOE| 00000050: 53 43 48 45 4E 20 2A 2A 2A 0D 3B 0D 3A 53 54 45 |SCHEN ***.;.:STE| 00000060: 52 4E 43 48 45 4E 0D 4C 4F 41 44 57 20 54 45 58 |RNCHEN.LOADW TEX| 00000070: 54 45 2C 5A 50 32 0D 54 52 41 4E 53 57 20 42 41 |TE,ZP2.TRANSW BA| 00000080: 55 44 2C 5A 50 31 20 20 20 20 3B 32 2E 32 2E 31 |UD,ZP1 ;2.2.1| 00000090: 2E 20 C2 41 55 44 52 41 54 45 0D 44 41 44 44 20 |. .AUDRATE.DADD | 000000A0: 5A 50 31 2C 5A 50 32 2C 5A 50 31 0D 4C 44 41 20 |ZP1,ZP2,ZP1.LDA | 000000B0: 5A 57 0D 4C 44 59 20 23 37 0D 53 54 41 20 28 5A |ZW.LDY #7.STA (Z| 000000C0: 50 31 29 2C 59 0D 54 52 41 4E 53 57 20 44 41 54 |P1),Y.TRANSW DAT| 000000D0: 45 4E 42 2C 5A 50 31 20 20 3B 32 2E 32 2E 32 2E |ENB,ZP1 ;2.2.2.| 000000E0: 20 C4 41 54 45 4E 42 49 54 53 0D 44 41 44 44 20 | .ATENBITS.DADD | 000000F0: 5A 50 31 2C 5A 50 32 2C 5A 50 31 0D 4C 44 41 20 |ZP1,ZP2,ZP1.LDA | 00000100: 5A 57 0D 4C 44 59 20 23 32 0D 53 54 41 20 28 5A |ZW.LDY #2.STA (Z| 00000110: 50 31 29 2C 59 0D 54 52 41 4E 53 57 20 50 41 52 |P1),Y.TRANSW PAR| 00000120: 49 54 2C 5A 50 31 20 20 20 3B 32 2E 32 2E 33 2E |IT,ZP1 ;2.2.3.| 00000130: 20 D0 41 52 49 54 41 45 54 0D 44 41 44 44 20 5A | .ARITAET.DADD Z| 00000140: 50 31 2C 5A 50 32 2C 5A 50 31 0D 4C 44 41 20 5A |P1,ZP2,ZP1.LDA Z| 00000150: 57 0D 4C 44 59 20 23 31 38 0D 53 54 41 20 28 5A |W.LDY #18.STA (Z| 00000160: 50 31 29 2C 59 0D 54 52 41 4E 53 57 20 53 54 4F |P1),Y.TRANSW STO| 00000170: 50 42 2C 5A 50 31 20 20 20 3B 32 2E 32 2E 34 2E |PB,ZP1 ;2.2.4.| 00000180: 20 D3 54 4F 50 42 49 54 53 0D 44 41 44 44 20 5A | .TOPBITS.DADD Z| 00000190: 50 31 2C 5A 50 32 2C 5A 50 31 0D 4C 44 41 20 5A |P1,ZP2,ZP1.LDA Z| 000001A0: 57 0D 4C 44 59 20 23 35 0D 53 54 41 20 28 5A 50 |W.LDY #5.STA (ZP| 000001B0: 31 29 2C 59 0D 54 52 41 4E 53 57 20 44 55 50 4C |1),Y.TRANSW DUPL| 000001C0: 2C 5A 50 31 20 20 20 20 3B 32 2E 32 2E 35 2E 20 |,ZP1 ;2.2.5. | 000001D0: C4 55 50 4C 45 58 0D 44 41 44 44 20 5A 50 31 2C |.UPLEX.DADD ZP1,| 000001E0: 5A 50 32 2C 5A 50 31 0D 4C 44 41 20 5A 57 0D 4C |ZP2,ZP1.LDA ZW.L| 000001F0: 44 59 20 23 35 0D 53 54 41 20 28 5A 50 31 29 2C |DY #5.STA (ZP1),| 00000200: 59 0D 4C 44 41 20 45 43 48 4F 20 20 20 20 20 20 |Y.LDA ECHO | 00000210: 20 20 20 20 20 3B 32 2E 33 2E 20 C5 43 48 4F 0D | ;2.3. .CHO.| 00000220: 42 45 51 20 45 43 48 4F 41 55 53 0D 43 4F 50 20 |BEQ ECHOAUS.COP | 00000230: 5A 57 2C 4D 54 45 58 54 32 33 31 2B 34 0D 4A 4D |ZW,MTEXT231+4.JM| 00000240: 50 20 47 45 53 43 48 57 0D 3A 45 43 48 4F 41 55 |P GESCHW.:ECHOAU| 00000250: 53 0D 43 4F 50 20 5A 57 2C 4D 54 45 58 54 32 33 |S.COP ZW,MTEXT23| 00000260: 32 2B 34 0D 3A 47 45 53 43 48 57 0D 4C 44 41 20 |2+4.:GESCHW.LDA | 00000270: 53 50 45 45 44 20 20 20 20 20 20 20 20 20 20 3B |SPEED ;| 00000280: 32 2E 35 2E 31 2E 20 D3 45 4E 44 45 54 45 4D 50 |2.5.1. .ENDETEMP| 00000290: 4F 0D 42 45 51 20 4C 4F 57 53 50 44 0D 43 4F 50 |O.BEQ LOWSPD.COP| 000002A0: 20 5A 57 2C 4D 54 45 58 54 32 35 31 31 2B 38 0D | ZW,MTEXT2511+8.| 000002B0: 4A 4D 50 20 43 52 55 4E 54 45 52 44 52 0D 3A 4C |JMP CRUNTERDR.:L| 000002C0: 4F 57 53 50 44 0D 43 4F 50 20 5A 57 2C 4D 54 45 |OWSPD.COP ZW,MTE| 000002D0: 58 54 32 35 31 32 2B 38 0D 3A 43 52 55 4E 54 45 |XT2512+8.:CRUNTE| 000002E0: 52 44 52 0D 4C 44 41 20 43 52 55 4E 54 45 52 20 |RDR.LDA CRUNTER | 000002F0: 20 20 20 20 20 20 20 3B 32 2E 35 2E 32 2E 20 C3 | ;2.5.2. .| 00000300: D2 20 55 4E 54 45 52 44 52 55 45 43 4B 45 4E 0D |. UNTERDRUECKEN.| 00000310: 42 45 51 20 4E 45 49 4E 0D 43 4F 50 20 5A 57 2C |BEQ NEIN.COP ZW,| 00000320: 4D 54 45 58 54 32 35 32 31 2B 36 0D 4A 4D 50 20 |MTEXT2521+6.JMP | 00000330: 4B 4F 4E 56 45 52 54 49 45 0D 3A 4E 45 49 4E 0D |KONVERTIE.:NEIN.| 00000340: 43 4F 50 20 5A 57 2C 4D 54 45 58 54 32 35 32 32 |COP ZW,MTEXT2522| 00000350: 2B 36 0D 3A 4B 4F 4E 56 45 52 54 49 45 0D 4C 44 |+6.:KONVERTIE.LD| 00000360: 41 20 4B 4F 4E 56 45 52 54 20 20 20 20 20 20 20 |A KONVERT | 00000370: 20 3B 32 2E 35 2E 33 2E 20 4B 4F 4E 56 45 52 54 | ;2.5.3. KONVERT| 00000380: 49 45 52 45 4E 0D 42 45 51 20 4E 4B 4F 4E 56 0D |IEREN.BEQ NKONV.| 00000390: 43 4F 50 20 5A 57 2C 4D 54 45 58 54 32 35 33 31 |COP ZW,MTEXT2531| 000003A0: 2B 36 0D 4A 4D 50 20 47 45 52 41 44 52 0D 3A 4E |+6.JMP GERADR.:N| 000003B0: 4B 4F 4E 56 0D 43 4F 50 20 5A 57 2C 4D 54 45 58 |KONV.COP ZW,MTEX| 000003C0: 54 32 35 33 32 2B 36 0D 3A 47 45 52 41 44 52 0D |T2532+6.:GERADR.| 000003D0: 4C 44 41 20 47 45 52 41 45 54 20 20 20 20 20 20 |LDA GERAET | 000003E0: 20 20 20 3B 32 2E 36 2E 31 2E 20 C4 52 55 43 4B | ;2.6.1. .RUCK| 000003F0: 45 52 47 45 52 41 45 54 45 41 44 52 2E 0D 43 4D |ERGERAETEADR..CM| 00000400: 50 20 23 34 0D 42 45 51 20 56 49 45 52 0D 43 4F |P #4.BEQ VIER.CO| 00000410: 50 20 5A 57 2C 4D 54 45 58 54 32 36 31 32 2B 36 |P ZW,MTEXT2612+6| 00000420: 0D 4A 4D 50 20 53 45 4B 0D 3A 56 49 45 52 0D 43 |.JMP SEK.:VIER.C| 00000430: 4F 50 20 5A 57 2C 4D 54 45 58 54 32 36 31 31 2B |OP ZW,MTEXT2611+| 00000440: 36 0D 3A 53 45 4B 0D 4C 44 41 20 53 45 4B 55 4E |6.:SEK.LDA SEKUN| 00000450: 44 41 45 52 20 20 20 20 20 20 3B 32 2E 36 2E 32 |DAER ;2.6.2| 00000460: 2E 20 D3 45 4B 55 4E 44 41 45 52 41 44 52 2E 0D |. .EKUNDAERADR..| 00000470: 42 45 51 20 53 45 4B 4E 55 4C 4C 0D 43 4D 50 20 |BEQ SEKNULL.CMP | 00000480: 23 31 0D 42 45 51 20 53 45 4B 45 49 4E 53 0D 43 |#1.BEQ SEKEINS.C| 00000490: 4F 50 20 5A 57 2C 4D 54 45 58 54 32 36 32 33 2B |OP ZW,MTEXT2623+| 000004A0: 32 0D 4A 4D 50 20 41 53 43 0D 3A 53 45 4B 45 49 |2.JMP ASC.:SEKEI| 000004B0: 4E 53 0D 43 4F 50 20 5A 57 2C 4D 54 45 58 54 32 |NS.COP ZW,MTEXT2| 000004C0: 36 32 32 2B 32 0D 4A 4D 50 20 41 53 43 0D 3A 53 |622+2.JMP ASC.:S| 000004D0: 45 4B 4E 55 4C 4C 0D 43 4F 50 20 5A 57 2C 4D 54 |EKNULL.COP ZW,MT| 000004E0: 45 58 54 32 36 32 31 2B 32 0D 3A 41 53 43 0D 4C |EXT2621+2.:ASC.L| 000004F0: 44 41 20 41 53 43 49 49 20 20 20 20 20 20 20 20 |DA ASCII | 00000500: 20 20 3B 32 2E 36 2E 33 2E 20 DA 45 49 43 48 45 | ;2.6.3. .EICHE| 00000510: 4E 53 41 54 5A 0D 42 45 51 20 4B 45 49 4E 41 53 |NSATZ.BEQ KEINAS| 00000520: 43 0D 43 4F 50 20 5A 57 2C 4D 54 45 58 54 32 36 |C.COP ZW,MTEXT26| 00000530: 33 31 2B 35 0D 4A 4D 50 20 44 52 4C 46 0D 3A 4B |31+5.JMP DRLF.:K| 00000540: 45 49 4E 41 53 43 0D 43 4F 50 20 5A 57 2C 4D 54 |EINASC.COP ZW,MT| 00000550: 45 58 54 32 36 33 32 2B 35 0D 3A 44 52 4C 46 0D |EXT2632+5.:DRLF.| 00000560: 4C 44 41 20 44 52 55 43 4B 4C 46 20 20 20 20 20 |LDA DRUCKLF | 00000570: 20 20 20 3B 32 2E 36 2E 34 2E 20 CC 49 4E 45 46 | ;2.6.4. .INEF| 00000580: 45 45 44 0D 42 45 51 20 4B 45 49 4E 4C 46 0D 43 |EED.BEQ KEINLF.C| 00000590: 4F 50 20 5A 57 2C 4D 54 45 58 54 32 36 34 31 2B |OP ZW,MTEXT2641+| 000005A0: 35 0D 4A 4D 50 20 46 45 52 54 49 47 0D 3A 4B 45 |5.JMP FERTIG.:KE| 000005B0: 49 4E 4C 46 0D 43 4F 50 20 5A 57 2C 4D 54 45 58 |INLF.COP ZW,MTEX| 000005C0: 54 32 36 34 32 2B 35 0D 3A 46 45 52 54 49 47 0D |T2642+5.:FERTIG.| 000005D0: 52 54 53 0D 3B 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |RTS.;.; ********| 000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 20 |*************.; | 000005F0: 2A 2A 2A 20 CD 45 4E 55 45 52 4F 55 54 49 4E 45 |*** .ENUEROUTINE| 00000600: 4E 20 2A 2A 2A 0D 3B 0D 3B 20 2A 2A 2A 20 CC C5 |N ***.;.; *** ..| 00000610: C5 D2 52 4F 55 54 49 4E 45 4E 20 46 55 45 52 20 |..ROUTINEN FUER | 00000620: CC C5 C5 D2 45 20 CD 45 4E 55 45 50 55 4E 4B 54 |....E .ENUEPUNKT| 00000630: 45 20 2A 2A 2A 0D 3A 4C 45 45 52 31 0D 52 45 44 |E ***.:LEER1.RED| 00000640: 4F 4D 45 4E 55 0D 3A 4C 45 45 52 32 0D 4D 45 4E |OMENU.:LEER2.MEN| 00000650: 55 31 0D 3B 20 2A 2A 2A 20 31 2E 31 2E 20 47 45 |U1.; *** 1.1. GE| 00000660: 4F D4 45 52 4D 20 C9 4E 46 4F 20 2A 2A 2A 0D 3B |O.ERM .NFO ***.;| 00000670: 0D 3A 52 54 31 31 0D 52 45 43 56 4D 45 4E 55 20 |.:RT11.RECVMENU | 00000680: 31 0D 44 49 41 4C 42 4F 58 20 49 4E 46 4F 42 4F |1.DIALBOX INFOBO| 00000690: 58 0D 4D 45 4E 55 31 0D 3B 0D 3B 20 2A 2A 2A 20 |X.MENU1.;.; *** | 000006A0: 31 2E 32 2E 20 C4 45 53 4B 54 4F 50 20 4C 41 44 |1.2. .ESKTOP LAD| 000006B0: 45 4E 20 2A 2A 2A 0D 3B 0D 3A 52 54 31 32 0D 49 |EN ***.;.:RT12.I| 000006C0: 4E 49 54 49 4F 0D 4A 53 52 20 43 4C 52 43 48 0D |NITIO.JSR CLRCH.| 000006D0: 43 4C 4F 53 45 20 32 20 20 20 20 20 20 20 20 3B |CLOSE 2 ;| 000006E0: D2 D3 2D 32 33 32 2D C6 49 4C 45 20 53 43 48 4C |..-232-.ILE SCHL| 000006F0: 49 45 53 53 45 4E 0D 44 4F 4E 45 49 4F 0D 4C 44 |IESSEN.DONEIO.LD| 00000700: 41 20 46 4C 41 47 36 0D 42 45 51 20 4E 44 49 52 |A FLAG6.BEQ NDIR| 00000710: 45 52 52 0D 54 55 52 42 4F 50 55 52 0D 49 4E 49 |ERR.TURBOPUR.INI| 00000720: 54 49 4F 0D 46 4F 50 45 4E 20 31 35 2C 38 2C 31 |TIO.FOPEN 15,8,1| 00000730: 35 2C 31 2C 49 4E 49 54 53 54 52 20 20 3B C4 C9 |5,1,INITSTR ;..| 00000740: D2 2D C5 52 52 4F 52 20 56 45 52 4D 45 49 44 45 |.-.RROR VERMEIDE| 00000750: 4E 0D 43 4C 4F 53 45 20 31 35 0D 44 4F 4E 45 49 |N.CLOSE 15.DONEI| 00000760: 4F 0D 54 55 52 42 4F 4E 0D 3A 4E 44 49 52 45 52 |O.TURBON.:NDIRER| 00000770: 52 0D 50 52 4F 46 46 0D 4C 4F 41 44 57 20 4F 4C |R.PROFF.LOADW OL| 00000780: 44 4E 4D 49 2C 24 46 46 46 41 0D 54 52 41 4E 53 |DNMI,$FFFA.TRANS| 00000790: 57 20 52 45 53 45 54 4D 41 49 4E 2C 52 30 0D 4A |W RESETMAIN,R0.J| 000007A0: 53 52 20 49 4E 49 54 52 41 4D 52 0D 44 45 53 4B |SR INITRAMR.DESK| 000007B0: 54 4F 50 0D 3B 0D 3B 20 2A 2A 2A 20 31 2E 33 2E |TOP.;.; *** 1.3.| 000007C0: 2D 31 2E 41 2E 20 C1 43 43 45 53 53 4F 52 59 20 |-1.A. .CCESSORY | 000007D0: 41 55 46 52 55 46 45 4E 20 2A 2A 2A 0D 3B 0D 3A |AUFRUFEN ***.;.:| 000007E0: 52 54 31 33 0D 4C 4F 41 44 57 20 50 52 47 31 2C |RT13.LOADW PRG1,| 000007F0: 5A 50 31 0D 4A 4D 50 20 4C 41 44 45 4E 0D 3B 0D |ZP1.JMP LADEN.;.| 00000800: 3A 52 54 31 34 0D 4C 4F 41 44 57 20 50 52 47 32 |:RT14.LOADW PRG2| 00000810: 2C 5A 50 31 0D 4A 4D 50 20 4C 41 44 45 4E 0D 3B |,ZP1.JMP LADEN.;| 00000820: 0D 3A 52 54 31 35 0D 4C 4F 41 44 57 20 50 52 47 |.:RT15.LOADW PRG| 00000830: 33 2C 5A 50 31 0D 4A 4D 50 20 4C 41 44 45 4E 0D |3,ZP1.JMP LADEN.| 00000840: 3B 0D 3A 52 54 31 36 0D 4C 4F 41 44 57 20 50 52 |;.:RT16.LOADW PR| 00000850: 47 34 2C 5A 50 31 0D 4A 4D 50 20 4C 41 44 45 4E |G4,ZP1.JMP LADEN| 00000860: 0D 3B 0D 3A 52 54 31 37 0D 4C 4F 41 44 57 20 50 |.;.:RT17.LOADW P| 00000870: 52 47 35 2C 5A 50 31 0D 4A 4D 50 20 4C 41 44 45 |RG5,ZP1.JMP LADE| 00000880: 4E 0D 3B 0D 3A 52 54 31 38 0D 4C 4F 41 44 57 20 |N.;.:RT18.LOADW | 00000890: 50 52 47 36 2C 5A 50 31 0D 4A 4D 50 20 4C 41 44 |PRG6,ZP1.JMP LAD| 000008A0: 45 4E 0D 3B 0D 3A 52 54 31 39 0D 4C 4F 41 44 57 |EN.;.:RT19.LOADW| 000008B0: 20 50 52 47 37 2C 5A 50 31 0D 4A 4D 50 20 4C 41 | PRG7,ZP1.JMP LA| 000008C0: 44 45 4E 0D 3B 0D 3A 52 54 31 41 0D 4C 4F 41 44 |DEN.;.:RT1A.LOAD| 000008D0: 57 20 50 52 47 38 2C 5A 50 31 0D 3B 0D 3A 4C 41 |W PRG8,ZP1.;.:LA| 000008E0: 44 45 4E 0D 4A 53 52 20 49 4F 49 4E 49 54 0D 50 |DEN.JSR IOINIT.P| 000008F0: 52 4F 46 46 0D 4C 4F 41 44 57 20 30 2C 56 45 4B |ROFF.LOADW 0,VEK| 00000900: 54 41 53 54 0D 4C 4F 41 44 57 20 49 4E 49 54 2C |TAST.LOADW INIT,| 00000910: 24 38 34 39 42 0D 54 52 41 4E 53 57 20 5A 50 31 |$849B.TRANSW ZP1| 00000920: 2C 52 36 0D 50 4F 4B 45 20 32 2C 30 0D 50 4F 4B |,R6.POKE 2,0.POK| 00000930: 45 20 24 31 36 2C 30 0D 50 4F 4B 45 20 46 4C 41 |E $16,0.POKE FLA| 00000940: 47 31 2C 53 45 54 0D 47 45 54 46 49 4C 45 0D 3B |G1,SET.GETFILE.;| 00000950: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 00000960: 20 20 20 20 20 20 2A 2A 0D 3B 20 2A 20 32 2E 31 | **.; * 2.1| 00000970: 2E 20 D0 41 52 41 4D 45 54 45 52 20 4C 41 44 45 |. .ARAMETER LADE| 00000980: 4E 20 2A 0D 3B 20 20 2A 2A 20 20 20 20 20 20 20 |N *.; ** | 00000990: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 3A 52 | **.:R| 000009A0: 54 32 31 0D 43 4C 45 41 52 41 4D 20 24 41 30 30 |T21.CLEARAM $A00| 000009B0: 30 2B 36 34 30 2C 37 33 36 30 20 3B D4 45 49 4C |0+640,7360 ;.EIL| 000009C0: 20 44 45 53 20 D3 43 52 45 45 4E 53 20 4C 4F 45 | DES .CREENS LOE| 000009D0: 53 43 48 45 4E 0D 43 4C 45 41 52 41 4D 20 24 36 |SCHEN.CLEARAM $6| 000009E0: 30 30 30 2B 36 34 30 2C 37 33 36 30 0D 4A 53 52 |000+640,7360.JSR| 000009F0: 20 49 4F 49 4E 49 54 0D 50 4F 4B 45 20 5A 57 2C | IOINIT.POKE ZW,| 00000A00: 33 32 20 20 20 20 20 20 20 3B 41 4C 54 45 20 D3 |32 ;ALTE .| 00000A10: 54 45 52 4E 43 48 45 4E 20 4C 4F 45 53 43 48 45 |TERNCHEN LOESCHE| 00000A20: 4E 0D 4A 53 52 20 53 54 45 52 4E 43 48 45 4E 0D |N.JSR STERNCHEN.| 00000A30: 50 4F 4B 45 20 46 4C 41 47 33 2C 53 45 54 0D 4A |POKE FLAG3,SET.J| 00000A40: 53 52 20 50 41 52 4C 45 53 45 4E 20 20 20 20 20 |SR PARLESEN | 00000A50: 3B 55 4E 44 20 4E 45 55 45 20 4C 41 44 45 4E 2B |;UND NEUE LADEN+| 00000A60: 53 45 54 5A 45 4E 0D 50 4F 4B 45 20 46 4C 41 47 |SETZEN.POKE FLAG| 00000A70: 33 2C 43 4C 45 41 52 0D 4A 53 52 20 52 53 49 4E |3,CLEAR.JSR RSIN| 00000A80: 49 54 0D 4D 45 4E 55 31 0D 3B 20 2A 2A 2A 2A 2A |IT.MENU1.; *****| 00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AA0: 2A 2A 2A 2A 2A 0D 3B 20 2A 20 32 2E 32 2E 31 2E |*****.; * 2.2.1.| 00000AB0: 31 2E 20 C2 41 55 44 52 41 54 45 20 35 30 20 20 |1. .AUDRATE 50 | 00000AC0: 20 2A 0D 3B 0D 3A 52 54 32 32 31 31 0D 50 4F 4B | *.;.:RT2211.POK| 00000AD0: 45 20 5A 57 2C 25 30 30 30 30 30 30 30 31 0D 4C |E ZW,%00000001.L| 00000AE0: 4F 41 44 57 20 4D 54 45 58 54 32 32 31 31 2C 5A |OADW MTEXT2211,Z| 00000AF0: 50 31 0D 4A 4D 50 20 42 41 55 44 52 41 54 45 0D |P1.JMP BAUDRATE.| 00000B00: 3B 0D 3B 20 2A 20 32 2E 32 2E 31 2E 32 2E 20 C2 |;.; * 2.2.1.2. .| 00000B10: 41 55 44 52 41 54 45 20 37 35 20 20 20 2A 0D 3B |AUDRATE 75 *.;| 00000B20: 0D 3A 52 54 32 32 31 32 0D 50 4F 4B 45 20 5A 57 |.:RT2212.POKE ZW| 00000B30: 2C 25 30 30 30 30 30 30 31 31 0D 4C 4F 41 44 57 |,%00000011.LOADW| 00000B40: 20 4D 54 45 58 54 32 32 31 32 2C 5A 50 31 0D 4A | MTEXT2212,ZP1.J| 00000B50: 4D 50 20 42 41 55 44 52 41 54 45 0D 3B 0D 3B 20 |MP BAUDRATE.;.; | 00000B60: 2A 20 32 2E 32 2E 31 2E 33 2E 20 C2 41 55 44 52 |* 2.2.1.3. .AUDR| 00000B70: 41 54 45 20 31 35 30 20 20 2A 0D 3B 0D 3A 52 54 |ATE 150 *.;.:RT| 00000B80: 32 32 31 33 0D 50 4F 4B 45 20 5A 57 2C 25 30 30 |2213.POKE ZW,%00| 00000B90: 30 30 30 31 31 30 0D 4C 4F 41 44 57 20 4D 54 45 |000110.LOADW MTE| 00000BA0: 58 54 32 32 31 33 2C 5A 50 31 0D 4A 4D 50 20 42 |XT2213,ZP1.JMP B| 00000BB0: 41 55 44 52 41 54 45 0D 3B 0D 3B 20 2A 20 32 2E |AUDRATE.;.; * 2.| 00000BC0: 32 2E 31 2E 34 2E 20 C2 41 55 44 52 41 54 45 20 |2.1.4. .AUDRATE | 00000BD0: 33 30 30 20 20 2A 0D 3B 0D 3A 52 54 32 32 31 34 |300 *.;.:RT2214| 00000BE0: 0D 50 4F 4B 45 20 5A 57 2C 25 30 30 30 30 30 31 |.POKE ZW,%000001| 00000BF0: 31 31 0D 4C 4F 41 44 57 20 4D 54 45 58 54 32 32 |11.LOADW MTEXT22| 00000C00: 31 34 2C 5A 50 31 0D 4A 4D 50 20 42 41 55 44 52 |14,ZP1.JMP BAUDR| 00000C10: 41 54 45 0D 3B 0D 3B 20 2A 20 32 2E 32 2E 31 2E |ATE.;.; * 2.2.1.| 00000C20: 35 2E 20 C2 41 55 44 52 41 54 45 20 36 30 30 20 |5. .AUDRATE 600 | 00000C30: 20 2A 0D 3B 0D 3A 52 54 32 32 31 35 0D 50 4F 4B | *.;.:RT2215.POK| 00000C40: 45 20 5A 57 2C 25 30 30 30 30 31 30 30 30 0D 4C |E ZW,%00001000.L| 00000C50: 4F 41 44 57 20 4D 54 45 58 54 32 32 31 35 2C 5A |OADW MTEXT2215,Z| 00000C60: 50 31 0D 4A 4D 50 20 42 41 55 44 52 41 54 45 0D |P1.JMP BAUDRATE.| 00000C70: 3B 0D 3B 20 2A 20 32 2E 32 2E 31 2E 36 2E 20 C2 |;.; * 2.2.1.6. .| 00000C80: 41 55 44 52 41 54 45 20 31 32 30 30 20 2A 0D 3B |AUDRATE 1200 *.;| 00000C90: 0D 3A 52 54 32 32 31 36 0D 50 4F 4B 45 20 5A 57 |.:RT2216.POKE ZW| 00000CA0: 2C 25 30 30 30 30 31 30 30 31 0D 4C 4F 41 44 57 |,%00001001.LOADW| 00000CB0: 20 4D 54 45 58 54 32 32 31 36 2C 5A 50 31 0D 3B | MTEXT2216,ZP1.;| 00000CC0: 0D 3B 20 2A 20 C2 41 55 44 52 41 54 45 20 41 45 |.; * .AUDRATE AE| 00000CD0: 4E 44 45 52 4E 20 20 20 20 20 20 20 2A 0D 3B 20 |NDERN *.; | 00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A 42 41 55 44 |**********.:BAUD| 00000D00: 52 41 54 45 0D 4C 44 41 20 53 54 45 55 45 52 52 |RATE.LDA STEUERR| 00000D10: 45 47 0D 41 4E 44 20 23 25 31 31 31 31 30 30 30 |EG.AND #%1111000| 00000D20: 30 20 3B 55 4E 54 45 52 45 20 56 49 45 52 20 C2 |0 ;UNTERE VIER .| 00000D30: 59 54 45 53 20 4C 4F 45 53 43 48 45 4E 0D 4F 52 |YTES LOESCHEN.OR| 00000D40: 41 20 5A 57 20 20 20 20 20 20 20 20 20 3B 55 4E |A ZW ;UN| 00000D50: 44 20 C2 41 55 44 52 41 54 45 20 45 49 4E 53 54 |D .AUDRATE EINST| 00000D60: 45 4C 4C 45 4E 0D 53 54 41 20 53 54 45 55 45 52 |ELLEN.STA STEUER| 00000D70: 52 45 47 0D 53 54 41 20 46 41 44 52 0D 4C 4F 41 |REG.STA FADR.LOA| 00000D80: 44 57 20 54 45 58 54 45 2C 5A 50 33 0D 54 52 41 |DW TEXTE,ZP3.TRA| 00000D90: 4E 53 57 20 42 41 55 44 2C 5A 50 32 0D 44 41 44 |NSW BAUD,ZP2.DAD| 00000DA0: 44 20 5A 50 32 2C 5A 50 33 2C 5A 50 32 0D 4C 44 |D ZP2,ZP3,ZP2.LD| 00000DB0: 59 20 23 37 0D 4C 44 41 20 23 33 32 0D 53 54 41 |Y #7.LDA #32.STA| 00000DC0: 20 28 5A 50 32 29 2C 59 20 20 20 20 3B 41 4C 54 | (ZP2),Y ;ALT| 00000DD0: 45 4E 20 D3 54 45 52 4E 20 4C 4F 45 53 43 48 45 |EN .TERN LOESCHE| 00000DE0: 4E 0D 4C 44 41 20 23 34 32 20 20 20 20 20 20 20 |N.LDA #42 | 00000DF0: 20 3B 4E 45 55 45 4E 20 D3 54 45 52 4E 20 53 45 | ;NEUEN .TERN SE| 00000E00: 54 5A 45 4E 0D 53 54 41 20 28 5A 50 31 29 2C 59 |TZEN.STA (ZP1),Y| 00000E10: 0D 54 52 41 4E 53 57 20 5A 50 31 2C 42 41 55 44 |.TRANSW ZP1,BAUD| 00000E20: 0D 44 53 55 42 20 42 41 55 44 2C 5A 50 33 2C 42 |.DSUB BAUD,ZP3,B| 00000E30: 41 55 44 0D 53 45 54 4D 4F 55 53 45 20 31 30 33 |AUD.SETMOUSE 103| 00000E40: 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B 20 2A 2A |,22.PREMENU.; **| 00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00000E70: 3B 20 2A 20 32 2E 32 2E 32 2E 31 2E 20 35 20 C4 |; * 2.2.2.1. 5 .| 00000E80: 41 54 45 4E 42 49 54 53 20 4D 41 4B 49 45 52 45 |ATENBITS MAKIERE| 00000E90: 4E 20 2A 0D 3B 0D 3A 52 54 32 32 32 31 0D 50 4F |N *.;.:RT2221.PO| 00000EA0: 4B 45 20 5A 57 2C 25 30 31 31 30 30 30 30 30 0D |KE ZW,%01100000.| 00000EB0: 4C 4F 41 44 57 20 4D 54 45 58 54 32 32 32 31 2C |LOADW MTEXT2221,| 00000EC0: 5A 50 31 0D 4A 4D 50 20 44 41 54 45 4E 42 49 54 |ZP1.JMP DATENBIT| 00000ED0: 53 0D 3B 0D 3B 20 2A 20 32 2E 32 2E 32 2E 32 2E |S.;.; * 2.2.2.2.| 00000EE0: 20 36 20 C4 41 54 45 4E 42 49 54 53 20 4D 41 4B | 6 .ATENBITS MAK| 00000EF0: 49 45 52 45 4E 20 2A 0D 3B 0D 3A 52 54 32 32 32 |IEREN *.;.:RT222| 00000F00: 32 0D 50 4F 4B 45 20 5A 57 2C 25 30 31 30 30 30 |2.POKE ZW,%01000| 00000F10: 30 30 30 0D 4C 4F 41 44 57 20 4D 54 45 58 54 32 |000.LOADW MTEXT2| 00000F20: 32 32 32 2C 5A 50 31 0D 4A 4D 50 20 44 41 54 45 |222,ZP1.JMP DATE| 00000F30: 4E 42 49 54 53 0D 3B 0D 3B 20 2A 20 32 2E 32 2E |NBITS.;.; * 2.2.| 00000F40: 32 2E 33 2E 20 37 20 C4 41 54 45 4E 42 49 54 53 |2.3. 7 .ATENBITS| 00000F50: 20 4D 41 4B 49 45 52 45 4E 20 2A 0D 3B 0D 3A 52 | MAKIEREN *.;.:R| 00000F60: 54 32 32 32 33 0D 50 4F 4B 45 20 5A 57 2C 25 30 |T2223.POKE ZW,%0| 00000F70: 30 31 30 30 30 30 30 0D 4C 4F 41 44 57 20 4D 54 |0100000.LOADW MT| 00000F80: 45 58 54 32 32 32 33 2C 5A 50 31 0D 4A 4D 50 20 |EXT2223,ZP1.JMP | 00000F90: 44 41 54 45 4E 42 49 54 53 0D 3B 0D 3B 20 2A 20 |DATENBITS.;.; * | 00000FA0: 32 2E 32 2E 32 2E 34 2E 20 38 20 C4 41 54 45 4E |2.2.2.4. 8 .ATEN| 00000FB0: 42 49 54 53 20 4D 41 4B 49 45 52 45 4E 20 2A 0D |BITS MAKIEREN *.| 00000FC0: 3B 0D 3A 52 54 32 32 32 34 0D 50 4F 4B 45 20 5A |;.:RT2224.POKE Z| 00000FD0: 57 2C 25 30 30 30 30 30 30 30 30 0D 4C 4F 41 44 |W,%00000000.LOAD| 00000FE0: 57 20 4D 54 45 58 54 32 32 32 34 2C 5A 50 31 0D |W MTEXT2224,ZP1.| 00000FF0: 3B 0D 3B 20 2A 20 C4 41 54 45 4E 42 49 54 53 20 |;.; * .ATENBITS | 00001000: 41 45 4E 44 45 52 4E 20 20 20 20 20 20 20 20 20 |AENDERN | 00001010: 20 20 20 20 2A 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A | *.; ********| 00001020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A 44 41 54 45 4E |*********.:DATEN| 00001040: 42 49 54 53 0D 4C 44 41 20 53 54 45 55 45 52 52 |BITS.LDA STEUERR| 00001050: 45 47 0D 41 4E 44 20 23 25 31 30 30 31 31 31 31 |EG.AND #%1001111| 00001060: 31 20 3B 55 4E 54 45 52 45 20 56 49 45 52 20 C2 |1 ;UNTERE VIER .| 00001070: 59 54 45 53 20 4C 4F 45 53 43 48 45 4E 0D 4F 52 |YTES LOESCHEN.OR| 00001080: 41 20 5A 57 20 20 20 20 20 20 20 20 20 3B 55 4E |A ZW ;UN| 00001090: 44 20 C2 41 55 44 52 41 54 45 20 45 49 4E 53 54 |D .AUDRATE EINST| 000010A0: 45 4C 4C 45 4E 0D 53 54 41 20 53 54 45 55 45 52 |ELLEN.STA STEUER| 000010B0: 52 45 47 0D 53 54 41 20 46 41 44 52 0D 4C 4F 41 |REG.STA FADR.LOA| 000010C0: 44 57 20 54 45 58 54 45 2C 5A 50 33 0D 54 52 41 |DW TEXTE,ZP3.TRA| 000010D0: 4E 53 57 20 44 41 54 45 4E 42 2C 5A 50 32 0D 44 |NSW DATENB,ZP2.D| 000010E0: 41 44 44 20 5A 50 32 2C 5A 50 33 2C 5A 50 32 0D |ADD ZP2,ZP3,ZP2.| 000010F0: 4C 44 41 20 23 33 32 0D 4C 44 59 20 23 32 0D 53 |LDA #32.LDY #2.S| 00001100: 54 41 20 28 5A 50 32 29 2C 59 20 20 20 20 3B 41 |TA (ZP2),Y ;A| 00001110: 4C 54 45 4E 20 D3 54 45 52 4E 20 4C 4F 45 53 43 |LTEN .TERN LOESC| 00001120: 48 45 4E 0D 4C 44 41 20 23 34 32 20 20 20 20 20 |HEN.LDA #42 | 00001130: 20 20 20 3B 4E 45 55 45 4E 20 D3 54 45 52 4E 20 | ;NEUEN .TERN | 00001140: 53 45 54 5A 45 4E 0D 53 54 41 20 28 5A 50 31 29 |SETZEN.STA (ZP1)| 00001150: 2C 59 0D 54 52 41 4E 53 57 20 5A 50 31 2C 44 41 |,Y.TRANSW ZP1,DA| 00001160: 54 45 4E 42 0D 44 53 55 42 20 44 41 54 45 4E 42 |TENB.DSUB DATENB| 00001170: 2C 5A 50 33 2C 44 41 54 45 4E 42 0D 53 45 54 4D |,ZP3,DATENB.SETM| 00001180: 4F 55 53 45 20 31 30 33 2C 32 32 0D 50 52 45 4D |OUSE 103,22.PREM| 00001190: 45 4E 55 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ENU.; **********| 000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000011B0: 2A 2A 2A 2A 2A 2A 0D 3B 20 2A 20 32 2E 32 2E 33 |******.; * 2.2.3| 000011C0: 2E 31 2E 20 4B 45 49 4E 45 20 D0 41 52 49 54 41 |.1. KEINE .ARITA| 000011D0: 45 54 20 20 20 20 20 20 2A 0D 3B 0D 3A 52 54 32 |ET *.;.:RT2| 000011E0: 32 33 31 0D 50 4F 4B 45 20 5A 57 2C 25 30 30 30 |231.POKE ZW,%000| 000011F0: 30 30 30 30 30 0D 4C 4F 41 44 57 20 4D 54 45 58 |00000.LOADW MTEX| 00001200: 54 32 32 33 31 2C 5A 50 31 0D 4A 4D 50 20 50 41 |T2231,ZP1.JMP PA| 00001210: 52 49 54 41 45 54 0D 3B 0D 3B 20 2A 20 32 2E 32 |RITAET.;.; * 2.2| 00001220: 2E 33 2E 32 2E 20 55 4E 47 45 52 41 44 45 20 D0 |.3.2. UNGERADE .| 00001230: 41 52 49 54 41 45 54 20 20 20 2A 0D 3A 52 54 32 |ARITAET *.:RT2| 00001240: 32 33 32 0D 50 4F 4B 45 20 5A 57 2C 25 30 30 31 |232.POKE ZW,%001| 00001250: 30 30 30 30 30 0D 4C 4F 41 44 57 20 4D 54 45 58 |00000.LOADW MTEX| 00001260: 54 32 32 33 32 2C 5A 50 31 0D 4A 4D 50 20 50 41 |T2232,ZP1.JMP PA| 00001270: 52 49 54 41 45 54 0D 3B 0D 3B 20 2A 20 32 2E 32 |RITAET.;.; * 2.2| 00001280: 2E 33 2E 33 2E 20 47 45 52 41 44 45 20 D0 41 52 |.3.3. GERADE .AR| 00001290: 49 54 41 45 54 20 20 20 20 20 2A 0D 3B 0D 3A 52 |ITAET *.;.:R| 000012A0: 54 32 32 33 33 0D 50 4F 4B 45 20 5A 57 2C 25 30 |T2233.POKE ZW,%0| 000012B0: 31 31 30 30 30 30 30 0D 4C 4F 41 44 57 20 4D 54 |1100000.LOADW MT| 000012C0: 45 58 54 32 32 33 33 2C 5A 50 31 0D 4A 4D 50 20 |EXT2233,ZP1.JMP | 000012D0: 50 41 52 49 54 41 45 54 0D 3B 0D 3B 20 2A 20 32 |PARITAET.;.; * 2| 000012E0: 2E 32 2E 33 2E 34 2E 20 47 45 53 45 54 5A 54 45 |.2.3.4. GESETZTE| 000012F0: 20 D0 41 52 49 54 41 45 54 20 20 20 2A 0D 3B 0D | .ARITAET *.;.| 00001300: 3A 52 54 32 32 33 34 0D 50 4F 4B 45 20 5A 57 2C |:RT2234.POKE ZW,| 00001310: 25 31 30 31 30 30 30 30 30 0D 4C 4F 41 44 57 20 |%10100000.LOADW | 00001320: 4D 54 45 58 54 32 32 33 34 2C 5A 50 31 0D 4A 4D |MTEXT2234,ZP1.JM| 00001330: 50 20 50 41 52 49 54 41 45 54 0D 3B 0D 3B 20 2A |P PARITAET.;.; *| 00001340: 20 32 2E 32 2E 33 2E 35 2E 20 47 45 4C 4F 45 53 | 2.2.3.5. GELOES| 00001350: 43 48 54 45 20 D0 41 52 49 54 41 45 54 20 2A 0D |CHTE .ARITAET *.| 00001360: 3B 0D 3A 52 54 32 32 33 35 0D 50 4F 4B 45 20 5A |;.:RT2235.POKE Z| 00001370: 57 2C 25 31 31 31 30 30 30 30 30 0D 4C 4F 41 44 |W,%11100000.LOAD| 00001380: 57 20 4D 54 45 58 54 32 32 33 35 2C 5A 50 31 0D |W MTEXT2235,ZP1.| 00001390: 3B 0D 3B 20 2A 20 D0 41 52 49 54 41 45 54 20 41 |;.; * .ARITAET A| 000013A0: 45 4E 44 45 52 4E 20 20 20 20 20 20 20 20 20 20 |ENDERN | 000013B0: 20 20 20 2A 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | *.; *********| 000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000013D0: 2A 2A 2A 2A 2A 2A 2A 0D 3A 50 41 52 49 54 41 45 |*******.:PARITAE| 000013E0: 54 0D 4C 44 41 20 42 45 46 45 48 4C 53 52 45 47 |T.LDA BEFEHLSREG| 000013F0: 0D 41 4E 44 20 23 25 30 30 30 31 31 31 31 31 0D |.AND #%00011111.| 00001400: 4F 52 41 20 5A 57 20 20 20 20 20 20 20 20 20 3B |ORA ZW ;| 00001410: 55 4E 44 20 C2 41 55 44 52 41 54 45 20 45 49 4E |UND .AUDRATE EIN| 00001420: 53 54 45 4C 4C 45 4E 0D 53 54 41 20 42 45 46 45 |STELLEN.STA BEFE| 00001430: 48 4C 53 52 45 47 0D 53 54 41 20 46 41 44 52 2B |HLSREG.STA FADR+| 00001440: 31 0D 4C 4F 41 44 57 20 54 45 58 54 45 2C 5A 50 |1.LOADW TEXTE,ZP| 00001450: 33 0D 54 52 41 4E 53 57 20 50 41 52 49 54 2C 5A |3.TRANSW PARIT,Z| 00001460: 50 32 0D 44 41 44 44 20 5A 50 32 2C 5A 50 33 2C |P2.DADD ZP2,ZP3,| 00001470: 5A 50 32 0D 4C 44 41 20 23 33 32 0D 4C 44 59 20 |ZP2.LDA #32.LDY | 00001480: 23 31 38 0D 53 54 41 20 28 5A 50 32 29 2C 59 20 |#18.STA (ZP2),Y | 00001490: 20 20 20 3B 41 4C 54 45 4E 20 D3 54 45 52 4E 20 | ;ALTEN .TERN | 000014A0: 4C 4F 45 53 43 48 45 4E 0D 4C 44 41 20 23 34 32 |LOESCHEN.LDA #42| 000014B0: 20 20 20 20 20 20 20 20 3B 4E 45 55 45 4E 20 D3 | ;NEUEN .| 000014C0: 54 45 52 4E 20 53 45 54 5A 45 4E 0D 53 54 41 20 |TERN SETZEN.STA | 000014D0: 28 5A 50 31 29 2C 59 0D 54 52 41 4E 53 57 20 5A |(ZP1),Y.TRANSW Z| 000014E0: 50 31 2C 50 41 52 49 54 0D 44 53 55 42 20 50 41 |P1,PARIT.DSUB PA| 000014F0: 52 49 54 2C 5A 50 33 2C 50 41 52 49 54 0D 53 45 |RIT,ZP3,PARIT.SE| 00001500: 54 4D 4F 55 53 45 20 31 30 33 2C 32 32 0D 50 52 |TMOUSE 103,22.PR| 00001510: 45 4D 45 4E 55 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |EMENU.; ********| 00001520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00001530: 3B 20 2A 20 32 2E 32 2E 34 2E 31 2E 20 31 20 D3 |; * 2.2.4.1. 1 .| 00001540: 54 4F 50 42 49 54 20 20 2A 0D 3B 0D 3A 52 54 32 |TOPBIT *.;.:RT2| 00001550: 32 34 31 0D 50 4F 4B 45 20 5A 57 2C 25 30 30 30 |241.POKE ZW,%000| 00001560: 30 30 30 30 30 0D 4C 4F 41 44 57 20 4D 54 45 58 |00000.LOADW MTEX| 00001570: 54 32 32 34 31 2C 5A 50 31 0D 4A 4D 50 20 53 54 |T2241,ZP1.JMP ST| 00001580: 4F 50 42 49 54 53 0D 3B 0D 3B 0D 3B 20 2A 20 32 |OPBITS.;.;.; * 2| 00001590: 2E 32 2E 34 2E 32 2E 20 32 20 D3 54 4F 50 42 49 |.2.4.2. 2 .TOPBI| 000015A0: 54 53 20 2A 0D 3B 0D 3A 52 54 32 32 34 32 0D 50 |TS *.;.:RT2242.P| 000015B0: 4F 4B 45 20 5A 57 2C 25 31 30 30 30 30 30 30 30 |OKE ZW,%10000000| 000015C0: 0D 4C 4F 41 44 57 20 4D 54 45 58 54 32 32 34 32 |.LOADW MTEXT2242| 000015D0: 2C 5A 50 31 0D 3B 0D 3B 20 2A 20 D3 54 4F 50 42 |,ZP1.;.; * .TOPB| 000015E0: 49 54 53 20 41 45 4E 44 45 52 4E 20 20 20 20 2A |ITS AENDERN *| 000015F0: 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.; *************| 00001600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A 53 54 4F 50 |**********.:STOP| 00001610: 42 49 54 53 0D 4C 44 41 20 53 54 45 55 45 52 52 |BITS.LDA STEUERR| 00001620: 45 47 0D 41 4E 44 20 23 25 30 31 31 31 31 31 31 |EG.AND #%0111111| 00001630: 31 0D 4F 52 41 20 5A 57 20 20 20 20 20 20 20 20 |1.ORA ZW | 00001640: 20 3B 55 4E 44 20 C2 41 55 44 52 41 54 45 20 45 | ;UND .AUDRATE E| 00001650: 49 4E 53 54 45 4C 4C 45 4E 0D 53 54 41 20 53 54 |INSTELLEN.STA ST| 00001660: 45 55 45 52 52 45 47 0D 53 54 41 20 46 41 44 52 |EUERREG.STA FADR| 00001670: 0D 4C 4F 41 44 57 20 54 45 58 54 45 2C 5A 50 33 |.LOADW TEXTE,ZP3| 00001680: 0D 54 52 41 4E 53 57 20 53 54 4F 50 42 2C 5A 50 |.TRANSW STOPB,ZP| 00001690: 32 0D 44 41 44 44 20 5A 50 32 2C 5A 50 33 2C 5A |2.DADD ZP2,ZP3,Z| 000016A0: 50 32 0D 4C 44 41 20 23 33 32 0D 4C 44 59 20 23 |P2.LDA #32.LDY #| 000016B0: 35 0D 53 54 41 20 28 5A 50 32 29 2C 59 20 20 20 |5.STA (ZP2),Y | 000016C0: 20 3B 41 4C 54 45 4E 20 D3 54 45 52 4E 20 4C 4F | ;ALTEN .TERN LO| 000016D0: 45 53 43 48 45 4E 0D 4C 44 41 20 23 34 32 20 20 |ESCHEN.LDA #42 | 000016E0: 20 20 20 20 20 20 3B 4E 45 55 45 4E 20 D3 54 45 | ;NEUEN .TE| 000016F0: 52 4E 20 53 45 54 5A 45 4E 0D 53 54 41 20 28 5A |RN SETZEN.STA (Z| 00001700: 50 31 29 2C 59 0D 54 52 41 4E 53 57 20 5A 50 31 |P1),Y.TRANSW ZP1| 00001710: 2C 53 54 4F 50 42 0D 44 53 55 42 20 53 54 4F 50 |,STOPB.DSUB STOP| 00001720: 42 2C 5A 50 33 2C 53 54 4F 50 42 0D 53 45 54 4D |B,ZP3,STOPB.SETM| 00001730: 4F 55 53 45 20 31 30 33 2C 32 32 0D 50 52 45 4D |OUSE 103,22.PREM| 00001740: 45 4E 55 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ENU.; **********| 00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B |**************.;| 00001760: 20 2A 20 32 2E 32 2E 35 2E 31 2E 20 D6 4F 4C 4C | * 2.2.5.1. .OLL| 00001770: 2D C4 55 50 4C 45 58 20 2A 0D 3B 0D 3A 52 54 32 |-.UPLEX *.;.:RT2| 00001780: 32 35 31 0D 50 4F 4B 45 20 5A 57 2C 25 30 30 30 |251.POKE ZW,%000| 00001790: 30 30 30 30 30 0D 4C 4F 41 44 57 20 4D 54 45 58 |00000.LOADW MTEX| 000017A0: 54 32 32 35 31 2C 5A 50 31 0D 4A 4D 50 20 44 55 |T2251,ZP1.JMP DU| 000017B0: 50 4C 45 58 0D 3B 0D 3B 20 2A 20 32 2E 32 2E 35 |PLEX.;.; * 2.2.5| 000017C0: 2E 32 2E 20 C8 41 4C 42 2D C4 55 50 4C 45 58 20 |.2. .ALB-.UPLEX | 000017D0: 2A 0D 3B 0D 3A 52 54 32 32 35 32 0D 50 4F 4B 45 |*.;.:RT2252.POKE| 000017E0: 20 5A 57 2C 25 30 30 30 31 30 30 30 30 0D 4C 4F | ZW,%00010000.LO| 000017F0: 41 44 57 20 4D 54 45 58 54 32 32 35 32 2C 5A 50 |ADW MTEXT2252,ZP| 00001800: 31 0D 3B 0D 3B 20 2A 20 C4 55 50 4C 45 58 20 41 |1.;.; * .UPLEX A| 00001810: 45 4E 44 45 52 4E 20 20 20 20 20 20 20 2A 0D 3B |ENDERN *.;| 00001820: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A 44 55 50 4C 45 |*********.:DUPLE| 00001840: 58 0D 4C 44 41 20 42 45 46 45 48 4C 53 52 45 47 |X.LDA BEFEHLSREG| 00001850: 0D 41 4E 44 20 23 25 31 31 31 30 31 31 31 31 0D |.AND #%11101111.| 00001860: 4F 52 41 20 5A 57 20 20 20 20 20 20 20 20 20 3B |ORA ZW ;| 00001870: 55 4E 44 20 C2 41 55 44 52 41 54 45 20 45 49 4E |UND .AUDRATE EIN| 00001880: 53 54 45 4C 4C 45 4E 0D 53 54 41 20 42 45 46 45 |STELLEN.STA BEFE| 00001890: 48 4C 53 52 45 47 0D 53 54 41 20 46 41 44 52 2B |HLSREG.STA FADR+| 000018A0: 31 0D 4C 4F 41 44 57 20 54 45 58 54 45 2C 5A 50 |1.LOADW TEXTE,ZP| 000018B0: 33 0D 54 52 41 4E 53 57 20 44 55 50 4C 2C 5A 50 |3.TRANSW DUPL,ZP| 000018C0: 32 0D 44 41 44 44 20 5A 50 32 2C 5A 50 33 2C 5A |2.DADD ZP2,ZP3,Z| 000018D0: 50 32 0D 4C 44 41 20 23 33 32 0D 4C 44 59 20 23 |P2.LDA #32.LDY #| 000018E0: 35 0D 53 54 41 20 28 5A 50 32 29 2C 59 20 20 20 |5.STA (ZP2),Y | 000018F0: 20 3B 41 4C 54 45 4E 20 D3 54 45 52 4E 20 4C 4F | ;ALTEN .TERN LO| 00001900: 45 53 43 48 45 4E 0D 4C 44 41 20 23 34 32 20 20 |ESCHEN.LDA #42 | 00001910: 20 20 20 20 20 20 3B 4E 45 55 45 4E 20 D3 54 45 | ;NEUEN .TE| 00001920: 52 4E 20 53 45 54 5A 45 4E 0D 53 54 41 20 28 5A |RN SETZEN.STA (Z| 00001930: 50 31 29 2C 59 0D 54 52 41 4E 53 57 20 5A 50 31 |P1),Y.TRANSW ZP1| 00001940: 2C 44 55 50 4C 0D 44 53 55 42 20 44 55 50 4C 2C |,DUPL.DSUB DUPL,| 00001950: 5A 50 33 2C 44 55 50 4C 0D 53 45 54 4D 4F 55 53 |ZP3,DUPL.SETMOUS| 00001960: 45 20 31 30 33 2C 32 32 0D 50 52 45 4D 45 4E 55 |E 103,22.PREMENU| 00001970: 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.; *************| 00001980: 2A 2A 2A 2A 2A 0D 3B 20 2A 20 32 2E 33 2E 31 20 |*****.; * 2.3.1 | 00001990: C5 43 48 4F 20 41 4E 20 20 2A 0D 3B 0D 3A 52 54 |.CHO AN *.;.:RT| 000019A0: 32 33 31 0D 50 4F 4B 45 20 4D 54 45 58 54 32 33 |231.POKE MTEXT23| 000019B0: 32 2B 34 2C 33 32 0D 50 4F 4B 45 20 4D 54 45 58 |2+4,32.POKE MTEX| 000019C0: 54 32 33 31 2B 34 2C 34 32 0D 50 4F 4B 45 20 45 |T231+4,42.POKE E| 000019D0: 43 48 4F 2C 53 45 54 0D 53 45 54 4D 4F 55 53 45 |CHO,SET.SETMOUSE| 000019E0: 20 34 39 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B | 49,22.PREMENU.;| 000019F0: 0D 3B 20 2A 20 32 2E 33 2E 32 20 C5 43 48 4F 20 |.; * 2.3.2 .CHO | 00001A00: 41 55 53 20 2A 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |AUS *.; ********| 00001A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A 52 54 32 33 |**********.:RT23| 00001A20: 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 33 31 2B |2.POKE MTEXT231+| 00001A30: 34 2C 33 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 |4,32.POKE MTEXT2| 00001A40: 33 32 2B 34 2C 34 32 0D 50 4F 4B 45 20 45 43 48 |32+4,42.POKE ECH| 00001A50: 4F 2C 43 4C 45 41 52 0D 53 45 54 4D 4F 55 53 45 |O,CLEAR.SETMOUSE| 00001A60: 20 34 39 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B | 49,22.PREMENU.;| 00001A70: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 20 |*************.; | 00001A90: 2A 20 32 2E 35 2E 31 2E 31 2E 20 53 43 48 4E 45 |* 2.5.1.1. SCHNE| 00001AA0: 4C 4C 45 53 20 D4 45 4D 50 4F 20 2A 0D 3B 0D 3A |LLES .EMPO *.;.:| 00001AB0: 52 54 32 35 31 31 0D 50 4F 4B 45 20 4D 54 45 58 |RT2511.POKE MTEX| 00001AC0: 54 32 35 31 32 2B 38 2C 33 32 0D 50 4F 4B 45 20 |T2512+8,32.POKE | 00001AD0: 4D 54 45 58 54 32 35 31 31 2B 38 2C 34 32 0D 50 |MTEXT2511+8,42.P| 00001AE0: 4F 4B 45 20 53 50 45 45 44 2C 53 45 54 0D 53 45 |OKE SPEED,SET.SE| 00001AF0: 54 4D 4F 55 53 45 20 31 31 38 2C 32 32 0D 50 52 |TMOUSE 118,22.PR| 00001B00: 45 4D 45 4E 55 0D 3B 0D 3B 20 2A 20 32 2E 35 2E |EMENU.;.; * 2.5.| 00001B10: 31 2E 32 2E 20 4C 41 4E 47 53 41 4D 45 53 20 D4 |1.2. LANGSAMES .| 00001B20: 45 4D 50 4F 20 2A 0D 3B 20 2A 2A 2A 2A 2A 2A 2A |EMPO *.; *******| 00001B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B40: 2A 2A 2A 2A 2A 0D 3A 52 54 32 35 31 32 0D 50 4F |*****.:RT2512.PO| 00001B50: 4B 45 20 4D 54 45 58 54 32 35 31 31 2B 38 2C 33 |KE MTEXT2511+8,3| 00001B60: 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 35 31 32 |2.POKE MTEXT2512| 00001B70: 2B 38 2C 34 32 0D 50 4F 4B 45 20 53 50 45 45 44 |+8,42.POKE SPEED| 00001B80: 2C 43 4C 45 41 52 0D 53 45 54 4D 4F 55 53 45 20 |,CLEAR.SETMOUSE | 00001B90: 31 31 38 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B |118,22.PREMENU.;| 00001BA0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00001BC0: 3B 20 2A 20 32 2E 35 2E 32 2E 31 2E 20 C3 D2 20 |; * 2.5.2.1. .. | 00001BD0: 55 4E 54 45 52 44 52 2E 20 20 20 20 20 20 20 2A |UNTERDR. *| 00001BE0: 0D 3B 0D 3A 52 54 32 35 32 31 0D 50 4F 4B 45 20 |.;.:RT2521.POKE | 00001BF0: 4D 54 45 58 54 32 35 32 32 2B 36 2C 33 32 0D 50 |MTEXT2522+6,32.P| 00001C00: 4F 4B 45 20 4D 54 45 58 54 32 35 32 31 2B 36 2C |OKE MTEXT2521+6,| 00001C10: 34 32 0D 50 4F 4B 45 20 43 52 55 4E 54 45 52 2C |42.POKE CRUNTER,| 00001C20: 53 45 54 0D 53 45 54 4D 4F 55 53 45 20 31 31 38 |SET.SETMOUSE 118| 00001C30: 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B 0D 3B 20 |,22.PREMENU.;.; | 00001C40: 2A 20 32 2E 35 2E 32 2E 32 2E 20 C3 D2 20 4E 49 |* 2.5.2.2. .. NI| 00001C50: 43 48 54 20 55 4E 54 45 52 44 52 2E 20 2A 0D 3B |CHT UNTERDR. *.;| 00001C60: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00001C80: 3A 52 54 32 35 32 32 0D 50 4F 4B 45 20 4D 54 45 |:RT2522.POKE MTE| 00001C90: 58 54 32 35 32 31 2B 36 2C 33 32 0D 50 4F 4B 45 |XT2521+6,32.POKE| 00001CA0: 20 4D 54 45 58 54 32 35 32 32 2B 36 2C 34 32 0D | MTEXT2522+6,42.| 00001CB0: 50 4F 4B 45 20 43 52 55 4E 54 45 52 2C 43 4C 45 |POKE CRUNTER,CLE| 00001CC0: 41 52 0D 53 45 54 4D 4F 55 53 45 20 31 31 38 2C |AR.SETMOUSE 118,| 00001CD0: 32 32 0D 50 52 45 4D 45 4E 55 0D 3B 20 2A 2A 2A |22.PREMENU.; ***| 00001CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001D00: 2A 0D 3B 20 2A 20 32 2E 35 2E 33 2E 31 2E 20 D4 |*.; * 2.5.3.1. .| 00001D10: 45 58 54 20 4B 4F 4E 56 45 52 54 49 45 52 45 4E |EXT KONVERTIEREN| 00001D20: 20 20 20 20 20 20 20 2A 0D 3B 0D 3A 52 54 32 35 | *.;.:RT25| 00001D30: 33 31 0D 50 4F 4B 45 20 4D 54 45 58 54 32 35 33 |31.POKE MTEXT253| 00001D40: 32 2B 36 2C 33 32 0D 50 4F 4B 45 20 4D 54 45 58 |2+6,32.POKE MTEX| 00001D50: 54 32 35 33 31 2B 36 2C 34 32 0D 50 4F 4B 45 20 |T2531+6,42.POKE | 00001D60: 4B 4F 4E 56 45 52 54 2C 53 45 54 0D 53 45 54 4D |KONVERT,SET.SETM| 00001D70: 4F 55 53 45 20 31 31 38 2C 32 32 0D 50 52 45 4D |OUSE 118,22.PREM| 00001D80: 45 4E 55 0D 3B 0D 3B 20 2A 20 32 2E 35 2E 33 2E |ENU.;.; * 2.5.3.| 00001D90: 32 2E 20 D4 45 58 54 20 4E 49 43 48 54 20 4B 4F |2. .EXT NICHT KO| 00001DA0: 4E 56 45 52 54 49 45 52 45 4E 20 2A 0D 3B 20 2A |NVERTIEREN *.; *| 00001DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001DD0: 2A 2A 2A 0D 3A 52 54 32 35 33 32 0D 50 4F 4B 45 |***.:RT2532.POKE| 00001DE0: 20 4D 54 45 58 54 32 35 33 31 2B 36 2C 33 32 0D | MTEXT2531+6,32.| 00001DF0: 50 4F 4B 45 20 4D 54 45 58 54 32 35 33 32 2B 36 |POKE MTEXT2532+6| 00001E00: 2C 34 32 0D 50 4F 4B 45 20 4B 4F 4E 56 45 52 54 |,42.POKE KONVERT| 00001E10: 2C 43 4C 45 41 52 0D 53 45 54 4D 4F 55 53 45 20 |,CLEAR.SETMOUSE | 00001E20: 31 31 38 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B |118,22.PREMENU.;| 00001E30: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00001E50: 3B 20 2A 20 32 2E 36 2E 31 2E 31 2E 20 C7 45 52 |; * 2.6.1.1. .ER| 00001E60: 41 45 54 45 41 44 52 2E 20 56 49 45 52 20 20 2A |AETEADR. VIER *| 00001E70: 0D 3B 0D 3A 52 54 32 36 31 31 0D 50 4F 4B 45 20 |.;.:RT2611.POKE | 00001E80: 4D 54 45 58 54 32 36 31 32 2B 36 2C 33 32 0D 50 |MTEXT2612+6,32.P| 00001E90: 4F 4B 45 20 4D 54 45 58 54 32 36 31 31 2B 36 2C |OKE MTEXT2611+6,| 00001EA0: 34 32 0D 50 4F 4B 45 20 47 45 52 41 45 54 2C 34 |42.POKE GERAET,4| 00001EB0: 0D 53 45 54 4D 4F 55 53 45 20 31 31 31 2C 32 32 |.SETMOUSE 111,22| 00001EC0: 0D 50 52 45 4D 45 4E 55 0D 3B 0D 3B 20 2A 20 32 |.PREMENU.;.; * 2| 00001ED0: 2E 36 2E 31 2E 32 2E 20 C7 45 52 41 45 54 45 41 |.6.1.2. .ERAETEA| 00001EE0: 44 52 2E 20 46 55 45 4E 46 20 2A 0D 3B 20 2A 2A |DR. FUENF *.; **| 00001EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A 52 54 |************.:RT| 00001F10: 32 36 31 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 |2612.POKE MTEXT2| 00001F20: 36 31 31 2B 36 2C 33 32 0D 50 4F 4B 45 20 4D 54 |611+6,32.POKE MT| 00001F30: 45 58 54 32 36 31 32 2B 36 2C 34 32 0D 50 4F 4B |EXT2612+6,42.POK| 00001F40: 45 20 47 45 52 41 45 54 2C 35 0D 53 45 54 4D 4F |E GERAET,5.SETMO| 00001F50: 55 53 45 20 31 31 31 2C 32 32 0D 50 52 45 4D 45 |USE 111,22.PREME| 00001F60: 4E 55 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NU.; ***********| 00001F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001F80: 2A 2A 2A 2A 0D 3B 20 2A 20 32 2E 36 2E 32 2E 31 |****.; * 2.6.2.1| 00001F90: 2E 20 D3 45 4B 55 4E 44 41 45 52 41 44 52 2E 20 |. .EKUNDAERADR. | 00001FA0: 4E 55 4C 4C 20 2A 0D 3B 0D 3A 52 54 32 36 32 31 |NULL *.;.:RT2621| 00001FB0: 0D 50 4F 4B 45 20 4D 54 45 58 54 32 36 32 33 2B |.POKE MTEXT2623+| 00001FC0: 32 2C 33 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 |2,32.POKE MTEXT2| 00001FD0: 36 32 32 2B 32 2C 33 32 0D 50 4F 4B 45 20 4D 54 |622+2,32.POKE MT| 00001FE0: 45 58 54 32 36 32 31 2B 32 2C 34 32 0D 50 4F 4B |EXT2621+2,42.POK| 00001FF0: 45 20 53 45 4B 55 4E 44 41 45 52 2C 30 0D 53 45 |E SEKUNDAER,0.SE| 00002000: 54 4D 4F 55 53 45 20 31 31 31 2C 32 32 0D 50 52 |TMOUSE 111,22.PR| 00002010: 45 4D 45 4E 55 0D 3B 0D 3B 20 2A 20 32 2E 36 2E |EMENU.;.; * 2.6.| 00002020: 32 2E 32 2E 20 D3 45 4B 41 44 52 2E 20 45 49 4E |2.2. .EKADR. EIN| 00002030: 53 20 20 20 20 20 20 20 2A 0D 3B 0D 3A 52 54 32 |S *.;.:RT2| 00002040: 36 32 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 36 |622.POKE MTEXT26| 00002050: 32 33 2B 32 2C 33 32 0D 50 4F 4B 45 20 4D 54 45 |23+2,32.POKE MTE| 00002060: 58 54 32 36 32 32 2B 32 2C 34 32 0D 50 4F 4B 45 |XT2622+2,42.POKE| 00002070: 20 4D 54 45 58 54 32 36 32 31 2B 32 2C 33 32 0D | MTEXT2621+2,32.| 00002080: 50 4F 4B 45 20 53 45 4B 55 4E 44 41 45 52 2C 31 |POKE SEKUNDAER,1| 00002090: 0D 53 45 54 4D 4F 55 53 45 20 31 31 31 2C 32 32 |.SETMOUSE 111,22| 000020A0: 0D 50 52 45 4D 45 4E 55 0D 3B 0D 3B 20 2A 20 32 |.PREMENU.;.; * 2| 000020B0: 2E 36 2E 32 2E 33 2E 20 D3 45 4B 41 44 52 2E 20 |.6.2.3. .EKADR. | 000020C0: 53 49 45 42 45 4E 20 20 20 20 20 2A 0D 3B 20 2A |SIEBEN *.; *| 000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000020E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A |**************.:| 000020F0: 52 54 32 36 32 33 0D 50 4F 4B 45 20 4D 54 45 58 |RT2623.POKE MTEX| 00002100: 54 32 36 32 33 2B 32 2C 34 32 0D 50 4F 4B 45 20 |T2623+2,42.POKE | 00002110: 4D 54 45 58 54 32 36 32 32 2B 32 2C 33 32 0D 50 |MTEXT2622+2,32.P| 00002120: 4F 4B 45 20 4D 54 45 58 54 32 36 32 31 2B 32 2C |OKE MTEXT2621+2,| 00002130: 33 32 0D 50 4F 4B 45 20 53 45 4B 55 4E 44 41 45 |32.POKE SEKUNDAE| 00002140: 52 2C 37 0D 53 45 54 4D 4F 55 53 45 20 31 31 31 |R,7.SETMOUSE 111| 00002150: 2C 32 32 0D 50 52 45 4D 45 4E 55 0D 3B 20 2A 2A |,22.PREMENU.; **| 00002160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002170: 2A 2A 2A 2A 2A 0D 3B 20 2A 20 32 2E 36 2E 33 2E |*****.; * 2.6.3.| 00002180: 31 2E 20 C1 53 43 49 49 20 4A 41 20 20 20 2A 0D |1. .SCII JA *.| 00002190: 3B 0D 3A 52 54 32 36 33 31 0D 50 4F 4B 45 20 4D |;.:RT2631.POKE M| 000021A0: 54 45 58 54 32 36 33 32 2B 35 2C 33 32 0D 50 4F |TEXT2632+5,32.PO| 000021B0: 4B 45 20 4D 54 45 58 54 32 36 33 31 2B 35 2C 34 |KE MTEXT2631+5,4| 000021C0: 32 0D 50 4F 4B 45 20 41 53 43 49 49 2C 53 45 54 |2.POKE ASCII,SET| 000021D0: 0D 53 45 54 4D 4F 55 53 45 20 31 31 31 2C 32 32 |.SETMOUSE 111,22| 000021E0: 0D 50 52 45 4D 45 4E 55 0D 3B 0D 3B 20 2A 20 32 |.PREMENU.;.; * 2| 000021F0: 2E 36 2E 33 2E 32 2E 20 C1 53 43 49 49 20 4E 45 |.6.3.2. .SCII NE| 00002200: 49 4E 20 2A 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |IN *.; *********| 00002210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3A |**************.:| 00002220: 52 54 32 36 33 32 0D 50 4F 4B 45 20 4D 54 45 58 |RT2632.POKE MTEX| 00002230: 54 32 36 33 31 2B 35 2C 33 32 0D 50 4F 4B 45 20 |T2631+5,32.POKE | 00002240: 4D 54 45 58 54 32 36 33 32 2B 35 2C 34 32 0D 50 |MTEXT2632+5,42.P| 00002250: 4F 4B 45 20 41 53 43 49 49 2C 43 4C 45 41 52 0D |OKE ASCII,CLEAR.| 00002260: 53 45 54 4D 4F 55 53 45 20 31 31 31 2C 32 32 0D |SETMOUSE 111,22.| 00002270: 50 52 45 4D 45 4E 55 0D 3B 20 2A 2A 2A 2A 2A 2A |PREMENU.; ******| 00002280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 20 2A 20 |***********.; * | 000022A0: 32 2E 36 2E 34 2E 31 2E 20 CC 49 4E 45 46 45 45 |2.6.4.1. .INEFEE| 000022B0: 44 20 41 55 46 20 C4 52 2E 20 4A 41 20 20 2A 0D |D AUF .R. JA *.| 000022C0: 3B 0D 3A 52 54 32 36 34 31 0D 50 4F 4B 45 20 4D |;.:RT2641.POKE M| 000022D0: 54 45 58 54 32 36 34 32 2B 35 2C 33 32 0D 50 4F |TEXT2642+5,32.PO| 000022E0: 4B 45 20 4D 54 45 58 54 32 36 34 31 2B 35 2C 34 |KE MTEXT2641+5,4| 000022F0: 32 0D 50 4F 4B 45 20 44 52 55 43 4B 4C 46 2C 53 |2.POKE DRUCKLF,S| 00002300: 45 54 0D 53 45 54 4D 4F 55 53 45 20 31 31 31 2C |ET.SETMOUSE 111,| 00002310: 32 32 0D 50 52 45 4D 45 4E 55 0D 3B 0D 3B 20 2A |22.PREMENU.;.; *| 00002320: 20 32 2E 36 2E 34 2E 32 2E 20 CC 49 4E 45 46 45 | 2.6.4.2. .INEFE| 00002330: 45 44 20 41 55 46 20 C4 52 2E 20 4E 45 49 4E 20 |ED AUF .R. NEIN | 00002340: 2A 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.; ************| 00002350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002360: 2A 2A 2A 2A 2A 2A 0D 3A 52 54 32 36 34 32 0D 50 |******.:RT2642.P| 00002370: 4F 4B 45 20 4D 54 45 58 54 32 36 34 31 2B 35 2C |OKE MTEXT2641+5,| 00002380: 33 32 0D 50 4F 4B 45 20 4D 54 45 58 54 32 36 34 |32.POKE MTEXT264| 00002390: 32 2B 35 2C 34 32 0D 50 4F 4B 45 20 44 52 55 43 |2+5,42.POKE DRUC| 000023A0: 4B 4C 46 2C 43 4C 45 41 52 0D 53 45 54 4D 4F 55 |KLF,CLEAR.SETMOU| 000023B0: 53 45 20 31 31 31 2C 32 32 0D 50 52 45 4D 45 4E |SE 111,22.PREMEN| 000023C0: 55 0D 3B 0D 3B 20 2A 2A 2A 20 32 2E 37 2E 20 D0 |U.;.; *** 2.7. .| 000023D0: 41 52 41 4D 45 54 45 52 20 53 50 45 49 43 48 45 |ARAMETER SPEICHE| 000023E0: 52 4E 20 2A 2A 2A 0D 0D 3B 0D 3A 52 54 32 37 0D |RN ***..;.:RT27.| 000023F0: 4A 53 52 20 49 4F 49 4E 49 54 0D 4F 50 45 4E 44 |JSR IOINIT.OPEND| 00002400: 49 53 4B 0D 4F 50 45 4E 52 45 43 20 47 45 4F 54 |ISK.OPENREC GEOT| 00002410: 45 52 4D 0D 45 52 52 4F 52 20 4F 4B 33 2C 52 54 |ERM.ERROR OK3,RT| 00002420: 32 37 0D 3A 4F 4B 33 0D 50 4F 49 4E 54 52 45 43 |27.:OK3.POINTREC| 00002430: 20 31 0D 44 45 4C 52 45 43 0D 49 4E 53 52 45 43 | 1.DELREC.INSREC| 00002440: 0D 57 52 49 54 45 52 45 43 20 42 41 55 44 2C 44 |.WRITEREC BAUD,D| 00002450: 52 55 43 4B 4C 46 2D 42 41 55 44 2B 31 0D 43 4C |RUCKLF-BAUD+1.CL| 00002460: 4F 53 45 52 45 43 0D 4A 53 52 20 52 53 49 4E 49 |OSEREC.JSR RSINI| 00002470: 54 0D 4D 45 4E 55 31 0D 3B 0D 3B 20 2A 2A 2A 20 |T.MENU1.;.; *** | 00002480: 33 2E 31 2E 20 C2 D3 D7 20 45 49 4E 53 43 48 41 |3.1. ... EINSCHA| 00002490: 4C 54 45 4E 20 2A 2A 2A 0D 3B 0D 3A 52 54 33 31 |LTEN ***.;.:RT31| 000024A0: 0D 43 4C 45 41 52 41 4D 20 24 41 30 30 30 2B 36 |.CLEARAM $A000+6| 000024B0: 34 30 2C 37 33 36 30 20 3B D4 45 49 4C 20 44 45 |40,7360 ;.EIL DE| 000024C0: 53 20 D3 43 52 45 45 4E 53 20 4C 4F 45 53 43 48 |S .CREENS LOESCH| 000024D0: 45 4E 0D 43 4C 45 41 52 41 4D 20 24 36 30 30 30 |EN.CLEARAM $6000| 000024E0: 2B 36 34 30 2C 37 33 36 30 0D 4A 53 52 20 46 4F |+640,7360.JSR FO| 000024F0: 4E 54 42 53 57 0D 4D 45 4E 55 31 0D 3A 46 4F 4E |NTBSW.MENU1.:FON| 00002500: 54 42 53 57 0D 53 59 53 46 4F 4E 54 0D 4C 4F 41 |TBSW.SYSFONT.LOA| 00002510: 44 57 20 30 2C 52 31 31 0D 4C 4F 41 44 57 20 30 |DW 0,R11.LOADW 0| 00002520: 2C 54 45 58 54 58 0D 50 4F 4B 45 20 35 2C 32 32 |,TEXTX.POKE 5,22| 00002530: 20 20 20 20 20 20 20 20 20 20 3B D4 45 58 54 50 | ;.EXTP| 00002540: 4F 53 2E 20 53 45 54 5A 45 4E 0D 53 54 41 20 54 |OS. SETZEN.STA T| 00002550: 45 58 54 59 0D 50 4F 4B 45 20 43 52 44 49 46 46 |EXTY.POKE CRDIFF| 00002560: 2C 36 0D 50 4F 4B 45 20 43 52 48 4F 45 48 45 2C |,6.POKE CRHOEHE,| 00002570: 39 0D 4A 53 52 20 50 52 4F 4D 50 54 52 0D 50 4F |9.JSR PROMPTR.PO| 00002580: 4B 45 20 54 4F 50 2C 32 32 0D 50 4F 4B 45 20 42 |KE TOP,22.POKE B| 00002590: 53 57 2C 53 45 54 0D 52 54 53 0D 3B 0D 3B 20 2A |SW,SET.RTS.;.; *| 000025A0: 2A 2A 20 33 2E 32 2E 20 D5 4E 49 56 45 52 53 49 |** 3.2. .NIVERSI| 000025B0: 54 59 20 45 49 4E 53 43 48 41 4C 54 45 4E 20 2A |TY EINSCHALTEN *| 000025C0: 2A 2A 0D 3B 0D 3A 52 54 33 32 0D 43 4C 45 41 52 |**.;.:RT32.CLEAR| 000025D0: 41 4D 20 24 41 30 30 30 2B 36 34 30 2C 37 33 36 |AM $A000+640,736| 000025E0: 30 20 3B D4 45 49 4C 20 44 45 53 20 D3 43 52 45 |0 ;.EIL DES .CRE| 000025F0: 45 4E 53 20 4C 4F 45 53 43 48 45 4E 0D 43 4C 45 |ENS LOESCHEN.CLE| 00002600: 41 52 41 4D 20 24 36 30 30 30 2B 36 34 30 2C 37 |ARAM $6000+640,7| 00002610: 33 36 30 0D 4A 53 52 20 46 4F 4E 54 55 4E 49 0D |360.JSR FONTUNI.| 00002620: 4D 45 4E 55 31 0D 3A 46 4F 4E 54 55 4E 49 0D 4C |MENU1.:FONTUNI.L| 00002630: 4F 41 44 53 45 54 20 55 4E 49 56 0D 4C 4F 41 44 |OADSET UNIV.LOAD| 00002640: 57 20 30 2C 52 31 31 0D 4C 4F 41 44 57 20 30 2C |W 0,R11.LOADW 0,| 00002650: 54 45 58 54 58 0D 50 4F 4B 45 20 35 2C 32 30 20 |TEXTX.POKE 5,20 | 00002660: 20 20 20 20 20 20 20 20 20 3B D4 45 58 54 50 4F | ;.EXTPO| 00002670: 53 2E 20 53 45 54 5A 45 4E 0D 53 54 41 20 54 45 |S. SETZEN.STA TE| 00002680: 58 54 59 0D 50 4F 4B 45 20 43 52 44 49 46 46 2C |XTY.POKE CRDIFF,| 00002690: 34 0D 50 4F 4B 45 20 43 52 48 4F 45 48 45 2C 36 |4.POKE CRHOEHE,6| 000026A0: 0D 4A 53 52 20 50 52 4F 4D 50 54 52 0D 50 4F 4B |.JSR PROMPTR.POK| 000026B0: 45 20 54 4F 50 2C 32 30 0D 50 4F 4B 45 20 42 53 |E TOP,20.POKE BS| 000026C0: 57 2C 43 4C 45 41 52 0D 4D 45 4E 55 31 0D 3B 0D |W,CLEAR.MENU1.;.| 000026D0: 3B 20 2A 2A 2A 20 36 2E 31 2E 31 2E 31 2E 20 D4 |; *** 6.1.1.1. .| 000026E0: 45 58 54 53 43 52 41 50 20 55 45 42 45 52 20 C1 |EXTSCRAP UEBER .| 000026F0: D3 C3 C9 C9 20 53 45 4E 44 45 4E 20 2A 2A 2A 0D |.... SENDEN ***.| 00002700: 3B 0D 3A 52 54 36 31 31 31 0D 50 4F 4B 45 20 46 |;.:RT6111.POKE F| 00002710: 4C 41 47 34 2C 53 45 54 20 20 20 20 20 3B DA 45 |LAG4,SET ;.E| 00002720: 49 43 48 45 4E 20 46 55 45 52 20 D3 43 52 41 50 |ICHEN FUER .CRAP| 00002730: 0D 4A 4D 50 20 53 45 51 53 45 4E 44 45 4E 0D 3B |.JMP SEQSENDEN.;| 00002740: 0D 3B 20 2A 2A 2A 20 36 2E 31 2E 31 2E 32 2E 20 |.; *** 6.1.1.2. | 00002750: D3 45 51 2E 2D C6 49 4C 45 20 55 45 42 45 52 20 |.EQ.-.ILE UEBER | 00002760: C1 D3 C3 C9 C9 20 53 45 4E 44 45 4E 20 2A 2A 2A |..... SENDEN ***| 00002770: 0D 3B 0D 3A 52 54 36 31 31 32 0D 50 4F 4B 45 20 |.;.:RT6112.POKE | 00002780: 46 4C 41 47 34 2C 43 4C 45 41 52 20 20 20 3B DA |FLAG4,CLEAR ;.| 00002790: 45 49 43 48 45 4E 20 46 55 45 52 20 D3 45 51 0D |EICHEN FUER .EQ.| 000027A0: 3A 53 45 51 53 45 4E 44 45 4E 0D 4D 4F 56 45 52 |:SEQSENDEN.MOVER| 000027B0: 41 4D 20 44 49 53 4B 49 44 2C 44 49 53 4B 4E 41 |AM DISKID,DISKNA| 000027C0: 4D 2C 31 38 0D 4D 4F 56 45 52 41 4D 20 44 49 53 |M,18.MOVERAM DIS| 000027D0: 4B 4E 41 4D 2C 55 52 4E 41 4D 45 2C 31 36 0D 4D |KNAM,URNAME,16.M| 000027E0: 4F 56 45 52 41 4D 20 24 43 31 45 34 2C 56 45 4B |OVERAM $C1E4,VEK| 000027F0: 47 45 54 42 4C 4B 2C 33 0D 3A 57 49 45 44 45 52 |GETBLK,3.:WIEDER| 00002800: 0D 44 49 41 4C 42 4F 58 20 51 55 45 4C 4C 44 49 |.DIALBOX QUELLDI| 00002810: 53 4B 0D 4C 44 41 20 52 30 0D 43 4D 50 20 23 43 |SK.LDA R0.CMP #C| 00002820: 41 4E 43 45 4C 0D 42 4E 45 20 4E 48 41 55 50 54 |ANCEL.BNE NHAUPT| 00002830: 4D 0D 4A 4D 50 20 52 54 36 31 31 32 45 4E 44 45 |M.JMP RT6112ENDE| 00002840: 0D 3A 4E 48 41 55 50 54 4D 0D 4A 53 52 20 49 4F |.:NHAUPTM.JSR IO| 00002850: 49 4E 49 54 0D 4F 50 45 4E 44 49 53 4B 0D 45 52 |INIT.OPENDISK.ER| 00002860: 52 4F 52 20 4F 4B 34 2C 57 49 45 44 45 52 0D 3A |ROR OK4,WIEDER.:| 00002870: 4F 4B 34 0D 4C 44 41 20 46 4C 41 47 34 0D 42 4E |OK4.LDA FLAG4.BN| 00002880: 45 20 53 43 52 41 50 0D 49 4E 49 54 47 45 54 46 |E SCRAP.INITGETF| 00002890: 49 4C 45 53 20 30 2C 46 49 4C 45 50 55 46 46 45 |ILES 0,FILEPUFFE| 000028A0: 52 2C 30 0D 44 49 41 4C 42 4F 58 20 43 48 4F 4F |R,0.DIALBOX CHOO| 000028B0: 53 45 46 49 4C 45 20 20 20 20 20 3B D3 45 51 2D |SEFILE ;.EQ-| 000028C0: C6 49 4C 45 20 57 41 45 48 4C 45 4E 0D 4C 44 41 |.ILE WAEHLEN.LDA| 000028D0: 20 52 30 0D 43 4D 50 20 23 43 41 4E 43 45 4C 0D | R0.CMP #CANCEL.| 000028E0: 42 4E 45 20 4E 5A 55 52 55 45 43 4B 0D 4A 4D 50 |BNE NZURUECK.JMP| 000028F0: 20 57 49 45 44 45 52 0D 3A 4E 5A 55 52 55 45 43 | WIEDER.:NZURUEC| 00002900: 4B 0D 46 49 4E 44 46 49 4C 45 20 46 49 4C 45 50 |K.FINDFILE FILEP| 00002910: 55 46 46 45 52 0D 4A 4D 50 20 45 49 4E 4C 45 53 |UFFER.JMP EINLES| 00002920: 45 4E 0D 3A 53 43 52 41 50 0D 46 49 4E 44 46 49 |EN.:SCRAP.FINDFI| 00002930: 4C 45 20 54 45 58 54 53 43 52 41 50 0D 43 50 58 |LE TEXTSCRAP.CPX| 00002940: 20 23 35 20 20 20 20 20 20 20 20 20 20 20 20 3B | #5 ;| 00002950: 50 52 55 45 46 45 4E 2C 4F 42 20 D4 45 58 54 53 |PRUEFEN,OB .EXTS| 00002960: 43 52 41 50 20 44 41 0D 42 4E 45 20 45 49 4E 4C |CRAP DA.BNE EINL| 00002970: 45 53 45 4E 0D 4A 4D 50 20 52 54 36 31 31 32 45 |ESEN.JMP RT6112E| 00002980: 4E 44 45 0D 3A 45 49 4E 4C 45 53 45 4E 0D 52 45 |NDE.:EINLESEN.RE| 00002990: 43 56 42 4F 58 20 31 30 30 2C 31 36 2C 33 31 39 |CVBOX 100,16,319| 000029A0: 2C 35 30 20 3B CD 45 4E 55 45 53 20 4C 4F 45 53 |,50 ;.ENUES LOES| 000029B0: 43 48 45 4E 0D 43 4F 50 20 44 49 52 45 49 4E 2B |CHEN.COP DIREIN+| 000029C0: 31 2C 34 20 20 20 20 3B C1 4E 46 41 4E 47 53 42 |1,4 ;.NFANGSB| 000029D0: 4C 4F 43 4B 0D 43 4F 50 20 44 49 52 45 49 4E 2B |LOCK.COP DIREIN+| 000029E0: 32 2C 35 20 20 20 20 3B 44 45 53 20 C6 49 4C 45 |2,5 ;DES .ILE| 000029F0: 53 0D 47 45 54 42 4C 4B 20 42 4C 4B 50 46 20 20 |S.GETBLK BLKPF | 00002A00: 20 20 20 3B 45 49 4E 4C 45 53 45 4E 0D 50 4F 4B | ;EINLESEN.POK| 00002A10: 45 20 24 43 2C 24 46 46 0D 4C 44 41 20 42 4C 4B |E $C,$FF.LDA BLK| 00002A20: 50 46 20 20 20 20 20 20 20 20 3B 50 52 55 45 46 |PF ;PRUEF| 00002A30: 45 4E 2C 4F 42 20 4C 45 54 5A 54 45 52 20 C2 4C |EN,OB LETZTER .L| 00002A40: 4F 43 4B 0D 42 4E 45 20 4E 5A 55 45 4E 44 45 0D |OCK.BNE NZUENDE.| 00002A50: 43 4F 50 20 42 4C 4B 50 46 2B 31 2C 24 43 20 20 |COP BLKPF+1,$C | 00002A60: 20 3B CC 41 45 4E 47 45 20 46 45 53 54 4C 45 47 | ;.AENGE FESTLEG| 00002A70: 45 4E 0D 3A 4E 5A 55 45 4E 44 45 0D 49 4E 43 20 |EN.:NZUENDE.INC | 00002A80: 24 43 0D 50 4F 4B 45 20 24 44 2C 32 20 20 20 20 |$C.POKE $D,2 | 00002A90: 20 20 20 20 3B 41 42 20 31 2E 20 C2 59 54 45 0D | ;AB 1. .YTE.| 00002AA0: 4C 44 41 20 46 4C 41 47 34 0D 42 45 51 20 4E 55 |LDA FLAG4.BEQ NU| 00002AB0: 45 42 45 52 4C 0D 50 4F 4B 45 20 24 44 2C 38 20 |EBERL.POKE $D,8 | 00002AC0: 20 20 20 20 20 20 20 3B D3 54 45 55 45 52 43 4F | ;.TEUERCO| 00002AD0: 44 45 53 20 55 45 42 45 52 4C 45 53 45 4E 0D 3A |DES UEBERLESEN.:| 00002AE0: 4E 55 45 42 45 52 4C 0D 4D 4F 56 45 52 41 4D 20 |NUEBERL.MOVERAM | 00002AF0: 52 34 2C 52 45 41 44 50 41 52 2C 34 0D 43 4F 50 |R4,READPAR,4.COP| 00002B00: 20 42 4C 4B 50 46 2C 34 0D 53 54 41 20 53 50 55 | BLKPF,4.STA SPU| 00002B10: 52 20 20 20 20 20 20 20 20 20 3B C6 4F 4C 47 45 |R ;.OLGE| 00002B20: 42 4C 4F 43 4B 20 46 45 53 54 4C 45 47 45 4E 0D |BLOCK FESTLEGEN.| 00002B30: 43 4F 50 20 42 4C 4B 50 46 2B 31 2C 35 0D 53 54 |COP BLKPF+1,5.ST| 00002B40: 41 20 53 45 4B 54 4F 52 0D 4C 4F 41 44 57 20 4E |A SEKTOR.LOADW N| 00002B50: 45 57 47 45 54 42 4C 4B 2C 24 43 31 45 35 20 3B |EWGETBLK,$C1E5 ;| 00002B60: 4E 45 55 45 20 D2 4F 55 54 49 4E 45 0D 50 4F 4B |NEUE .OUTINE.POK| 00002B70: 45 20 24 43 31 45 34 2C 24 34 43 20 20 20 20 20 |E $C1E4,$4C | 00002B80: 20 20 20 3B 46 55 45 52 20 C2 4C 4F 43 4B 20 45 | ;FUER .LOCK E| 00002B90: 49 4E 4C 45 53 45 4E 0D 4A 53 52 20 52 53 49 4E |INLESEN.JSR RSIN| 00002BA0: 49 54 0D 3A 52 45 41 44 4C 4F 4F 50 0D 4D 4F 56 |IT.:READLOOP.MOV| 00002BB0: 45 52 41 4D 20 52 45 41 44 50 41 52 2C 52 34 2C |ERAM READPAR,R4,| 00002BC0: 34 20 3B D7 45 52 54 45 20 41 55 53 0D 43 4F 50 |4 ;.ERTE AUS.COP| 00002BD0: 20 53 50 55 52 2C 34 20 20 20 20 20 20 20 20 20 | SPUR,4 | 00002BE0: 20 20 3B DA 57 49 53 43 48 45 4E 53 50 45 49 43 | ;.WISCHENSPEIC| 00002BF0: 48 45 52 0D 43 4F 50 20 53 45 4B 54 4F 52 2C 35 |HER.COP SEKTOR,5| 00002C00: 20 20 20 20 20 20 20 20 20 3B 5A 55 52 45 43 4B | ;ZURECK| 00002C10: 48 4F 4C 45 4E 0D 52 45 41 44 42 59 54 45 0D 50 |HOLEN.READBYTE.P| 00002C20: 48 41 0D 54 58 41 0D 50 48 41 0D 43 4F 50 20 34 |HA.TXA.PHA.COP 4| 00002C30: 2C 53 50 55 52 20 20 20 20 20 20 20 20 20 20 20 |,SPUR | 00002C40: 3B 55 4E 44 20 57 49 45 44 45 52 20 52 45 49 4E |;UND WIEDER REIN| 00002C50: 0D 43 4F 50 20 35 2C 53 45 4B 54 4F 52 0D 4D 4F |.COP 5,SEKTOR.MO| 00002C60: 56 45 52 41 4D 20 52 34 2C 52 45 41 44 50 41 52 |VERAM R4,READPAR| 00002C70: 2C 34 0D 50 4C 41 0D 54 41 58 0D 50 4C 41 0D 43 |,4.PLA.TAX.PLA.C| 00002C80: 50 58 20 23 24 42 20 20 20 20 20 20 20 20 20 20 |PX #$B | 00002C90: 3B C6 49 4C 45 20 5A 55 45 4E 44 45 20 3F 0D 42 |;.ILE ZUENDE ?.B| 00002CA0: 4E 45 20 4E 45 4E 44 45 0D 4A 4D 50 20 52 54 36 |NE NENDE.JMP RT6| 00002CB0: 31 31 32 45 4E 44 45 0D 3A 4E 45 4E 44 45 0D 54 |112ENDE.:NENDE.T| 00002CC0: 41 59 0D 45 52 52 4F 52 20 4F 4B 35 2C 52 54 36 |AY.ERROR OK5,RT6| 00002CD0: 31 31 32 45 4E 44 45 0D 3A 4F 4B 35 0D 54 59 41 |112ENDE.:OK5.TYA| 00002CE0: 0D 43 4D 50 20 23 43 52 20 20 20 20 20 20 20 20 |.CMP #CR | 00002CF0: 20 20 3B C3 D2 20 3F 0D 42 4E 45 20 4E 43 41 52 | ;.. ?.BNE NCAR| 00002D00: 45 54 0D 3B 0D 3B 20 2A 2A 20 C3 D2 20 42 45 48 |ET.;.; ** .. BEH| 00002D10: 41 4E 44 45 4C 4E 20 2A 2A 0D 4C 44 41 20 43 52 |ANDELN **.LDA CR| 00002D20: 55 4E 54 45 52 0D 42 45 51 20 4E 55 4E 54 45 52 |UNTER.BEQ NUNTER| 00002D30: 44 52 20 20 20 20 3B 55 4E 54 45 52 44 52 55 45 |DR ;UNTERDRUE| 00002D40: 43 4B 45 4E 20 3F 0D 50 4F 4B 45 20 54 41 53 54 |CKEN ?.POKE TAST| 00002D50: 43 44 2C 33 32 0D 4A 53 52 20 54 41 53 54 45 20 |CD,32.JSR TASTE | 00002D60: 20 20 20 20 20 20 3B CC 45 45 52 5A 45 49 43 48 | ;.EERZEICH| 00002D70: 45 4E 20 53 45 4E 44 45 4E 0D 4A 4D 50 20 56 45 |EN SENDEN.JMP VE| 00002D80: 52 5A 4F 45 47 0D 3B 0D 3A 4E 55 4E 54 45 52 44 |RZOEG.;.:NUNTERD| 00002D90: 52 0D 50 4F 4B 45 20 54 41 53 54 43 44 2C 43 52 |R.POKE TASTCD,CR| 00002DA0: 0D 4A 53 52 20 54 41 53 54 45 20 20 20 20 20 20 |.JSR TASTE | 00002DB0: 20 3B C3 D2 20 53 45 4E 44 45 4E 0D 4A 4D 50 20 | ;.. SENDEN.JMP | 00002DC0: 56 45 52 5A 4F 45 47 0D 3B 0D 3A 4E 43 41 52 45 |VERZOEG.;.:NCARE| 00002DD0: 54 0D 43 4D 50 20 23 33 32 0D 42 43 43 20 52 45 |T.CMP #32.BCC RE| 00002DE0: 41 44 4C 4F 4F 50 0D 4C 44 58 20 46 4C 41 47 34 |ADLOOP.LDX FLAG4| 00002DF0: 0D 42 4E 45 20 4E 53 45 51 0D 4C 44 58 20 4B 4F |.BNE NSEQ.LDX KO| 00002E00: 4E 56 45 52 54 0D 42 45 51 20 5A 4B 4C 45 49 4E |NVERT.BEQ ZKLEIN| 00002E10: 45 52 0D 43 4D 50 20 23 36 35 20 20 20 20 20 20 |ER.CMP #65 | 00002E20: 20 20 20 3B 42 45 49 20 D3 C5 D1 2D C6 49 4C 45 | ;BEI ...-.ILE| 00002E30: 0D 42 43 43 20 4E 53 45 51 20 20 20 20 20 20 20 |.BCC NSEQ | 00002E40: 20 3B 4B 4F 4E 56 45 52 54 49 45 52 45 4E 0D 43 | ;KONVERTIEREN.C| 00002E50: 4D 50 20 23 39 31 0D 42 43 53 20 47 52 4F 53 53 |MP #91.BCS GROSS| 00002E60: 0D 45 4F 52 20 23 24 32 30 20 20 20 20 20 20 20 |.EOR #$20 | 00002E70: 20 3B 28 36 35 2D 39 31 20 5A 55 20 39 37 2D 31 | ;(65-91 ZU 97-1| 00002E80: 32 32 29 0D 4A 4D 50 20 4E 53 45 51 0D 3A 47 52 |22).JMP NSEQ.:GR| 00002E90: 4F 53 53 0D 43 4D 50 20 23 39 37 0D 42 43 43 20 |OSS.CMP #97.BCC | 00002EA0: 4E 53 45 51 0D 43 4D 50 20 23 31 32 32 0D 42 43 |NSEQ.CMP #122.BC| 00002EB0: 53 20 47 52 4F 53 53 32 0D 45 4F 52 20 23 24 32 |S GROSS2.EOR #$2| 00002EC0: 30 20 20 20 20 20 20 20 20 3B 28 39 37 2D 31 32 |0 ;(97-12| 00002ED0: 32 20 5A 55 20 36 35 2D 39 31 29 0D 4A 4D 50 20 |2 ZU 65-91).JMP | 00002EE0: 4E 53 45 51 0D 3A 47 52 4F 53 53 32 0D 43 4D 50 |NSEQ.:GROSS2.CMP| 00002EF0: 20 23 31 39 33 0D 4A 4D 50 20 5A 47 52 4F 45 53 | #193.JMP ZGROES| 00002F00: 53 45 52 0D 4A 4D 50 20 52 45 41 44 4C 4F 4F 50 |SER.JMP READLOOP| 00002F10: 0D 3A 5A 47 52 4F 45 53 53 45 52 0D 43 4D 50 20 |.:ZGROESSER.CMP | 00002F20: 23 32 31 39 0D 42 43 43 20 5A 4B 4C 45 49 4E 45 |#219.BCC ZKLEINE| 00002F30: 52 0D 4A 4D 50 20 52 45 41 44 4C 4F 4F 50 0D 3A |R.JMP READLOOP.:| 00002F40: 5A 4B 4C 45 49 4E 45 52 0D 41 4E 44 20 23 25 30 |ZKLEINER.AND #%0| 00002F50: 31 31 31 31 31 31 31 20 20 3B 28 31 39 33 2D 32 |1111111 ;(193-2| 00002F60: 31 39 20 5A 55 20 36 35 2D 39 31 29 0D 3A 4E 53 |19 ZU 65-91).:NS| 00002F70: 45 51 0D 54 41 58 0D 42 50 4C 20 4E 5A 55 47 52 |EQ.TAX.BPL NZUGR| 00002F80: 4F 53 53 20 20 20 3B 5A 55 20 47 52 4F 53 53 45 |OSS ;ZU GROSSE| 00002F90: 52 20 C3 4F 44 45 0D 4A 4D 50 20 52 45 41 44 4C |R .ODE.JMP READL| 00002FA0: 4F 4F 50 0D 3A 4E 5A 55 47 52 4F 53 53 0D 53 54 |OOP.:NZUGROSS.ST| 00002FB0: 41 20 54 41 53 54 43 44 0D 4A 53 52 20 54 41 53 |A TASTCD.JSR TAS| 00002FC0: 54 45 20 20 20 20 20 20 3B DA 45 49 43 48 45 4E |TE ;.EICHEN| 00002FD0: 20 53 45 4E 44 45 4E 0D 3A 56 45 52 5A 4F 45 47 | SENDEN.:VERZOEG| 00002FE0: 0D 4E 45 58 54 43 48 41 52 0D 54 41 58 20 20 20 |.NEXTCHAR.TAX | 00002FF0: 20 20 20 20 20 20 20 20 20 3B 42 45 49 20 D4 41 | ;BEI .A| 00003000: 53 54 45 4E 44 52 55 43 4B 0D 42 45 51 20 4E 53 |STENDRUCK.BEQ NS| 00003010: 54 4F 50 20 20 20 20 20 20 3B D3 43 48 4C 55 53 |TOP ;.CHLUS| 00003020: 53 20 4D 41 43 48 45 4E 0D 4A 4D 50 20 52 54 36 |S MACHEN.JMP RT6| 00003030: 31 31 32 45 4E 44 45 0D 3A 4E 53 54 4F 50 0D 4A |112ENDE.:NSTOP.J| 00003040: 53 52 20 52 4F 4D 45 49 4E 20 20 20 20 20 3B 41 |SR ROMEIN ;A| 00003050: 55 46 20 28 D2 D3 32 33 32 29 20 C5 49 4E 47 41 |UF (..232) .INGA| 00003060: 42 45 4E 20 50 52 55 45 46 45 4E 0D 4A 53 52 20 |BEN PRUEFEN.JSR | 00003070: 47 45 54 49 4E 0D 50 48 41 20 20 20 20 20 20 20 |GETIN.PHA | 00003080: 20 20 20 20 20 3B DA 45 49 43 48 45 4E 20 5A 57 | ;.EICHEN ZW| 00003090: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 0D |ISCHENSPEICHERN.| 000030A0: 4A 53 52 20 52 4F 4D 41 55 53 0D 50 4C 41 20 20 |JSR ROMAUS.PLA | 000030B0: 20 20 20 20 20 20 20 20 20 3B 5A 55 52 55 45 43 | ;ZURUEC| 000030C0: 4B 48 4F 4C 45 4E 0D 54 41 58 0D 42 45 51 20 4B |KHOLEN.TAX.BEQ K| 000030D0: 45 49 4E 5A 45 49 43 48 20 3B DA 45 49 43 48 45 |EINZEICH ;.EICHE| 000030E0: 4E 20 41 4E 47 45 4B 4F 4D 4D 45 4E 20 3F 0D 4A |N ANGEKOMMEN ?.J| 000030F0: 53 52 20 50 52 49 4E 54 20 20 20 20 20 3B 57 45 |SR PRINT ;WE| 00003100: 4E 4E 20 4A 41 2C 44 41 4E 4E 20 41 55 53 47 45 |NN JA,DANN AUSGE| 00003110: 42 45 4E 0D 3A 4B 45 49 4E 5A 45 49 43 48 0D 4C |BEN.:KEINZEICH.L| 00003120: 44 41 20 53 50 45 45 44 0D 42 4E 45 20 4E 56 45 |DA SPEED.BNE NVE| 00003130: 52 5A 0D 53 45 49 0D 4C 4F 41 44 57 20 56 45 52 |RZ.SEI.LOADW VER| 00003140: 49 52 51 2C 5A 55 49 52 51 0D 50 4F 4B 45 20 5A |IRQ,ZUIRQ.POKE Z| 00003150: 41 45 48 4C 45 52 2C 30 0D 43 4C 49 0D 3A 4E 4F |AEHLER,0.CLI.:NO| 00003160: 43 48 4E 49 43 48 54 0D 4C 44 41 20 5A 41 45 48 |CHNICHT.LDA ZAEH| 00003170: 4C 45 52 20 20 20 3B 20 36 0D 43 4D 50 20 23 36 |LER ; 6.CMP #6| 00003180: 20 20 20 20 20 20 20 20 3B B7 B7 B7 B7 20 53 45 | ;.... SE| 00003190: 4B 20 57 41 52 54 45 4E 0D 42 43 43 20 4E 4F 43 |K WARTEN.BCC NOC| 000031A0: 48 4E 49 43 48 54 20 3B 20 35 30 0D 53 45 49 0D |HNICHT ; 50.SEI.| 000031B0: 4C 4F 41 44 57 20 30 2C 5A 55 49 52 51 0D 43 4C |LOADW 0,ZUIRQ.CL| 000031C0: 49 0D 3A 4E 56 45 52 5A 0D 4A 4D 50 20 52 45 41 |I.:NVERZ.JMP REA| 000031D0: 44 4C 4F 4F 50 0D 3B 0D 3B 20 2A 2A 20 C5 4E 44 |DLOOP.;.; ** .ND| 000031E0: 45 20 44 45 52 20 D5 45 42 45 52 54 52 41 47 55 |E DER .EBERTRAGU| 000031F0: 4E 47 20 2A 2A 0D 3A 52 54 36 31 31 32 45 4E 44 |NG **.:RT6112END| 00003200: 45 0D 4A 53 52 20 49 4F 49 4E 49 54 0D 4D 4F 56 |E.JSR IOINIT.MOV| 00003210: 45 52 41 4D 20 56 45 4B 47 45 54 42 4C 4B 2C 24 |ERAM VEKGETBLK,$| 00003220: 43 31 45 34 2C 33 0D 3A 41 4C 54 45 44 49 53 4B |C1E4,3.:ALTEDISK| 00003230: 0D 4F 50 45 4E 44 49 53 4B 0D 4C 4F 41 44 57 20 |.OPENDISK.LOADW | 00003240: 44 49 53 4B 4E 41 4D 2C 5A 50 31 0D 4C 4F 41 44 |DISKNAM,ZP1.LOAD| 00003250: 57 20 44 49 53 4B 49 44 2C 5A 50 32 0D 43 4D 50 |W DISKID,ZP2.CMP| 00003260: 46 53 54 52 20 5A 50 31 2C 5A 50 32 2C 31 38 20 |FSTR ZP1,ZP2,18 | 00003270: 3B C4 49 53 4B 49 44 53 20 56 45 52 47 4C 45 49 |;.ISKIDS VERGLEI| 00003280: 43 48 45 4E 0D 42 45 51 20 47 4C 45 49 43 48 0D |CHEN.BEQ GLEICH.| 00003290: 44 49 41 4C 42 4F 58 20 55 52 44 49 53 4B 0D 4A |DIALBOX URDISK.J| 000032A0: 4D 50 20 41 4C 54 45 44 49 53 4B 0D 3A 47 4C 45 |MP ALTEDISK.:GLE| 000032B0: 49 43 48 0D 4A 53 52 20 52 53 49 4E 49 54 0D 4A |ICH.JSR RSINIT.J| 000032C0: 53 52 20 52 4F 4D 45 49 4E 0D 4C 44 41 20 5A 45 |SR ROMEIN.LDA ZE| 000032D0: 49 43 48 45 4E 0D 4A 53 52 20 42 53 4F 55 54 0D |ICHEN.JSR BSOUT.| 000032E0: 4A 53 52 20 52 4F 4D 41 55 53 0D 4D 45 4E 55 31 |JSR ROMAUS.MENU1| 000032F0: 0D 3B 0D 3B 20 2A 2A 20 4E 45 55 45 20 D2 4F 55 |.;.; ** NEUE .OU| 00003300: 54 49 4E 45 20 5A 55 20 C7 C5 D4 C2 CC CF C3 CB |TINE ZU ........| 00003310: 20 2A 2A 0D 3A 4E 45 57 47 45 54 42 4C 4B 0D 43 | **.:NEWGETBLK.C| 00003320: 4F 50 20 34 2C 53 50 55 52 0D 43 4F 50 20 35 2C |OP 4,SPUR.COP 5,| 00003330: 53 45 4B 54 4F 52 0D 4D 4F 56 45 52 41 4D 20 52 |SEKTOR.MOVERAM R| 00003340: 34 2C 52 45 41 44 50 41 52 2C 34 0D 4A 53 52 20 |4,READPAR,4.JSR | 00003350: 49 4F 49 4E 49 54 0D 4D 4F 56 45 52 41 4D 20 52 |IOINIT.MOVERAM R| 00003360: 45 41 44 50 41 52 2C 52 34 2C 34 0D 43 4F 50 20 |EADPAR,R4,4.COP | 00003370: 53 50 55 52 2C 34 0D 43 4F 50 20 53 45 4B 54 4F |SPUR,4.COP SEKTO| 00003380: 52 2C 35 0D 4A 53 52 20 56 45 4B 47 45 54 42 4C |R,5.JSR VEKGETBL| 00003390: 4B 0D 4D 4F 56 45 52 41 4D 20 52 34 2C 52 45 41 |K.MOVERAM R4,REA| 000033A0: 44 50 41 52 2C 34 0D 54 58 41 20 20 20 20 20 20 |DPAR,4.TXA | 000033B0: 20 20 20 20 20 3B C6 45 48 4C 45 52 42 59 54 45 | ;.EHLERBYTE| 000033C0: 20 53 49 43 48 45 52 4E 0D 50 48 41 0D 4A 53 52 | SICHERN.PHA.JSR| 000033D0: 20 52 53 49 4E 49 54 0D 4D 4F 56 45 52 41 4D 20 | RSINIT.MOVERAM | 000033E0: 52 45 41 44 50 41 52 2C 52 34 2C 34 0D 43 4F 50 |READPAR,R4,4.COP| 000033F0: 20 53 50 55 52 2C 34 0D 43 4F 50 20 53 45 4B 54 | SPUR,4.COP SEKT| 00003400: 4F 52 2C 35 0D 50 4C 41 0D 54 41 58 0D 52 54 53 |OR,5.PLA.TAX.RTS| 00003410: 0D 3B 0D 3B 20 2A 2A 20 C9 D2 D1 20 5A 55 4D 20 |.;.; ** ... ZUM | 00003420: D6 45 52 5A 4F 45 47 45 52 4E 20 2A 2A 0D 3A 56 |.ERZOEGERN **.:V| 00003430: 45 52 49 52 51 0D 49 4E 43 20 5A 41 45 48 4C 45 |ERIRQ.INC ZAEHLE| 00003440: 52 0D 52 54 53 0D 3B 0D 3B 20 2A 2A 2A 20 37 2E |R.RTS.;.; *** 7.| 00003450: 31 2E 31 2E 20 D0 55 46 46 45 52 20 4C 4F 45 53 |1.1. .UFFER LOES| 00003460: 43 48 45 4E 2B 4F 45 46 46 4E 45 4E 20 2A 2A 2A |CHEN+OEFFNEN ***| 00003470: 0D 3B 0D 3A 52 54 37 31 31 0D 4C 4F 41 44 57 20 |.;.:RT711.LOADW | 00003480: 24 36 30 30 30 2C 42 4F 54 54 4F 4D 20 20 20 3B |$6000,BOTTOM ;| 00003490: DA 45 49 47 45 52 20 4C 4F 45 53 43 48 45 4E 0D |.EIGER LOESCHEN.| 000034A0: 48 4C 49 4E 45 20 30 2C 33 31 39 2C 31 34 2C 30 |HLINE 0,319,14,0| 000034B0: 20 20 20 20 20 3B CC 49 4E 49 45 20 4C 4F 45 53 | ;.INIE LOES| 000034C0: 43 48 45 4E 0D 3A 4F 45 46 46 4E 45 4E 0D 4C 44 |CHEN.:OEFFNEN.LD| 000034D0: 41 20 50 55 46 46 45 52 0D 42 4E 45 20 53 43 48 |A PUFFER.BNE SCH| 000034E0: 4F 4E 4F 46 46 45 4E 0D 49 4E 56 42 4F 58 20 32 |ONOFFEN.INVBOX 2| 000034F0: 35 35 2C 31 2C 32 37 34 2C 31 33 20 20 3B C9 43 |55,1,274,13 ;.C| 00003500: 4F 4E 20 49 4E 56 45 52 54 49 45 52 45 4E 0D 50 |ON INVERTIEREN.P| 00003510: 4F 4B 45 20 50 55 46 46 45 52 2C 53 45 54 0D 3A |OKE PUFFER,SET.:| 00003520: 53 43 48 4F 4E 4F 46 46 45 4E 0D 4D 45 4E 55 31 |SCHONOFFEN.MENU1| 00003530: 0D 3B 0D 3B 20 2A 2A 2A 20 37 2E 31 2E 32 2E 20 |.;.; *** 7.1.2. | 00003540: D0 55 46 46 45 52 20 4F 45 46 46 4E 45 4E 20 2A |.UFFER OEFFNEN *| 00003550: 2A 2A 0D 3B 0D 3A 52 54 37 31 32 0D 4A 4D 50 20 |**.;.:RT712.JMP | 00003560: 4F 45 46 46 4E 45 4E 0D 3B 0D 3B 20 2A 2A 2A 20 |OEFFNEN.;.; *** | 00003570: 37 2E 32 2E 20 D0 55 46 46 45 52 20 53 43 48 4C |7.2. .UFFER SCHL| 00003580: 49 45 53 53 45 4E 20 2A 2A 2A 0D 3B 0D 3A 52 54 |IESSEN ***.;.:RT| 00003590: 37 32 0D 4C 44 41 20 50 55 46 46 45 52 0D 42 45 |72.LDA PUFFER.BE| 000035A0: 51 20 53 43 48 4F 4E 5A 55 0D 49 4E 56 42 4F 58 |Q SCHONZU.INVBOX| 000035B0: 20 32 35 35 2C 31 2C 32 37 34 2C 31 33 0D 50 4F | 255,1,274,13.PO| 000035C0: 4B 45 20 50 55 46 46 45 52 2C 43 4C 45 41 52 0D |KE PUFFER,CLEAR.| 000035D0: 3A 53 43 48 4F 4E 5A 55 0D 4D 45 4E 55 31 0D 3B |:SCHONZU.MENU1.;| 000035E0: 0D 3B 20 2A 2A 2A 20 37 2E 33 2E 20 46 52 45 49 |.; *** 7.3. FREI| 000035F0: 45 4E 20 D0 4C 41 54 5A 20 49 4D 20 D0 55 46 46 |EN .LATZ IM .UFF| 00003600: 45 52 20 41 4E 5A 45 49 47 45 4E 20 2A 2A 2A 0D |ER ANZEIGEN ***.| 00003610: 3B 0D 3A 52 54 37 33 0D 44 49 41 4C 42 4F 58 20 |;.:RT73.DIALBOX | 00003620: 53 48 4F 57 46 52 45 45 0D 4D 45 4E 55 31 0D 3B |SHOWFREE.MENU1.;| 00003630: 0D 3B 20 2A 2A 20 C2 59 54 45 5A 41 48 4C 20 41 |.; ** .YTEZAHL A| 00003640: 4E 5A 45 49 47 45 4E 20 2A 2A 0D 3A 46 52 45 45 |NZEIGEN **.:FREE| 00003650: 52 45 43 48 4E 0D 54 52 41 4E 53 57 20 42 4F 54 |RECHN.TRANSW BOT| 00003660: 54 4F 4D 2C 5A 50 31 0D 4C 4F 41 44 57 20 47 52 |TOM,ZP1.LOADW GR| 00003670: 45 4E 5A 45 2C 5A 50 32 0D 44 53 55 42 20 5A 50 |ENZE,ZP2.DSUB ZP| 00003680: 31 2C 5A 50 32 2C 5A 50 31 20 20 20 3B C6 52 45 |1,ZP2,ZP1 ;.RE| 00003690: 49 45 52 20 D0 4C 41 54 5A 20 4E 41 43 48 20 5A |IER .LATZ NACH Z| 000036A0: 50 31 0D 4C 44 41 20 23 42 4F 4C 44 4F 4E 0D 50 |P1.LDA #BOLDON.P| 000036B0: 55 54 43 48 41 52 0D 54 52 41 4E 53 57 20 5A 50 |UTCHAR.TRANSW ZP| 000036C0: 31 2C 52 30 0D 50 55 54 44 45 43 20 38 30 2C 36 |1,R0.PUTDEC 80,6| 000036D0: 33 0D 52 54 53 0D 3B 0D 3B 20 2A 2A 2A 20 37 2E |3.RTS.;.; *** 7.| 000036E0: 34 2E 20 D0 55 46 46 45 52 20 41 4E 5A 45 49 47 |4. .UFFER ANZEIG| 000036F0: 45 4E 20 2A 2A 2A 0D 3B 0D 3A 52 54 37 34 0D 4C |EN ***.;.:RT74.L| 00003700: 44 41 20 42 4F 54 54 4F 4D 2B 31 0D 43 4D 50 20 |DA BOTTOM+1.CMP | 00003710: 23 24 36 30 20 20 20 20 20 20 20 20 20 20 20 20 |#$60 | 00003720: 20 3B D0 55 46 46 45 52 20 4C 45 45 52 20 3F 0D | ;.UFFER LEER ?.| 00003730: 42 4E 45 20 4E 4C 45 45 52 0D 4D 45 4E 55 31 0D |BNE NLEER.MENU1.| 00003740: 3A 4E 4C 45 45 52 0D 52 45 43 56 42 4F 58 20 30 |:NLEER.RECVBOX 0| 00003750: 2C 31 36 2C 33 31 39 2C 31 39 39 20 3B CD 45 4E |,16,319,199 ;.EN| 00003760: 55 45 53 20 4C 4F 45 53 43 48 45 4E 0D 4C 44 41 |UES LOESCHEN.LDA| 00003770: 20 45 43 48 4F 0D 50 48 41 0D 50 4F 4B 45 20 45 | ECHO.PHA.POKE E| 00003780: 43 48 4F 2C 43 4C 45 41 52 20 20 20 20 20 20 3B |CHO,CLEAR ;| 00003790: C5 43 48 4F 20 53 50 45 52 52 45 4E 0D 4C 44 41 |.CHO SPERREN.LDA| 000037A0: 20 50 55 46 46 45 52 0D 50 48 41 0D 50 4F 4B 45 | PUFFER.PHA.POKE| 000037B0: 20 50 55 46 46 45 52 2C 43 4C 45 41 52 20 20 20 | PUFFER,CLEAR | 000037C0: 3B D0 55 46 46 45 52 20 53 50 45 52 52 45 4E 0D |;.UFFER SPERREN.| 000037D0: 4C 4F 41 44 57 20 24 36 30 30 30 2C 5A 50 31 30 |LOADW $6000,ZP10| 000037E0: 0D 4C 44 41 20 23 43 52 0D 4A 53 52 20 50 52 49 |.LDA #CR.JSR PRI| 000037F0: 4E 54 0D 3A 41 4E 5A 4C 4F 4F 50 0D 4E 45 58 54 |NT.:ANZLOOP.NEXT| 00003800: 43 48 41 52 0D 54 41 58 20 20 20 20 20 20 20 20 |CHAR.TAX | 00003810: 20 20 20 20 20 20 20 20 3B 42 45 49 20 D4 41 53 | ;BEI .AS| 00003820: 54 45 20 41 4E 48 41 4C 54 45 4E 0D 42 45 51 20 |TE ANHALTEN.BEQ | 00003830: 4B 45 49 4E 54 41 53 54 0D 3A 53 54 4F 50 0D 54 |KEINTAST.:STOP.T| 00003840: 52 41 4E 53 57 20 54 45 58 54 58 2C 52 31 31 0D |RANSW TEXTX,R11.| 00003850: 43 4F 50 20 54 45 58 54 59 2C 35 0D 53 45 54 43 |COP TEXTY,5.SETC| 00003860: 52 0D 4E 45 58 54 43 48 41 52 0D 54 41 58 20 20 |R.NEXTCHAR.TAX | 00003870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 | ;A| 00003880: 55 46 20 4E 41 45 43 48 53 54 45 20 57 41 52 54 |UF NAECHSTE WART| 00003890: 45 4E 0D 42 45 51 20 53 54 4F 50 0D 43 4D 50 20 |EN.BEQ STOP.CMP | 000038A0: 23 32 32 20 20 20 20 20 20 20 20 20 20 20 20 3B |#22 ;| 000038B0: 55 4E 44 20 42 45 49 20 27 D3 D4 CF D0 27 20 C1 |UND BEI '....' .| 000038C0: 42 42 52 55 43 48 0D 42 4E 45 20 4B 45 49 4E 54 |BBRUCH.BNE KEINT| 000038D0: 41 53 54 0D 4A 4D 50 20 41 4C 4C 45 53 0D 3A 4B |AST.JMP ALLES.:K| 000038E0: 45 49 4E 54 41 53 54 0D 4C 44 41 20 5A 50 31 30 |EINTAST.LDA ZP10| 000038F0: 2B 31 0D 43 4D 50 20 42 4F 54 54 4F 4D 2B 31 0D |+1.CMP BOTTOM+1.| 00003900: 42 4E 45 20 4E 41 4C 4C 45 53 20 20 20 20 20 20 |BNE NALLES | 00003910: 20 20 20 3B 41 4C 4C 45 53 20 41 4E 47 45 5A 45 | ;ALLES ANGEZE| 00003920: 49 47 54 20 3F 0D 4C 44 41 20 5A 50 31 30 0D 43 |IGT ?.LDA ZP10.C| 00003930: 4D 50 20 42 4F 54 54 4F 4D 0D 42 45 51 20 41 4C |MP BOTTOM.BEQ AL| 00003940: 4C 45 53 0D 3A 4E 41 4C 4C 45 53 0D 44 44 45 43 |LES.:NALLES.DDEC| 00003950: 20 5A 50 31 30 0D 4C 44 59 20 23 30 0D 4C 44 41 | ZP10.LDY #0.LDA| 00003960: 20 28 5A 50 31 30 29 2C 59 0D 4A 53 52 20 50 52 | (ZP10),Y.JSR PR| 00003970: 49 4E 54 0D 4A 4D 50 20 41 4E 5A 4C 4F 4F 50 0D |INT.JMP ANZLOOP.| 00003980: 3A 41 4C 4C 45 53 0D 4C 44 41 20 23 43 52 0D 4A |:ALLES.LDA #CR.J| 00003990: 53 52 20 50 52 49 4E 54 0D 54 52 41 4E 53 57 20 |SR PRINT.TRANSW | 000039A0: 54 45 58 54 58 2C 52 31 31 0D 43 4F 50 20 54 45 |TEXTX,R11.COP TE| 000039B0: 58 54 59 2C 35 0D 53 45 54 43 52 0D 50 4C 41 0D |XTY,5.SETCR.PLA.| 000039C0: 53 54 41 20 50 55 46 46 45 52 20 20 20 20 20 20 |STA PUFFER | 000039D0: 20 20 3B C6 4C 41 47 53 20 5A 55 52 55 45 43 4B | ;.LAGS ZURUECK| 000039E0: 53 45 54 5A 45 4E 0D 50 4C 41 0D 53 54 41 20 45 |SETZEN.PLA.STA E| 000039F0: 43 48 4F 0D 4D 45 4E 55 31 0D 3B 0D 3B 20 2A 2A |CHO.MENU1.;.; **| 00003A00: 2A 20 37 2E 35 2E 20 D0 55 46 46 45 52 20 44 52 |* 7.5. .UFFER DR| 00003A10: 55 43 4B 45 4E 20 2A 2A 2A 0D 3B 0D 3A 52 54 37 |UCKEN ***.;.:RT7| 00003A20: 35 0D 50 4F 4B 45 20 46 4C 41 47 35 2C 43 4C 45 |5.POKE FLAG5,CLE| 00003A30: 41 52 0D 4C 44 41 20 42 4F 54 54 4F 4D 2B 31 0D |AR.LDA BOTTOM+1.| 00003A40: 43 4D 50 20 23 24 36 30 20 20 20 20 20 20 20 3B |CMP #$60 ;| 00003A50: D0 55 46 46 45 52 20 4C 45 45 52 20 3F 0D 42 4E |.UFFER LEER ?.BN| 00003A60: 45 20 44 52 4E 4C 45 45 52 0D 4D 45 4E 55 31 0D |E DRNLEER.MENU1.| 00003A70: 3A 44 52 4E 4C 45 45 52 0D 4A 53 52 20 49 4F 49 |:DRNLEER.JSR IOI| 00003A80: 4E 49 54 20 20 20 20 20 3B C9 2F CF 20 56 4F 52 |NIT ;./. VOR| 00003A90: 42 45 52 45 49 54 45 4E 0D 54 55 52 42 4F 46 46 |BEREITEN.TURBOFF| 00003AA0: 0D 49 4E 49 54 49 4F 0D 4C 44 41 20 23 34 0D 4C |.INITIO.LDA #4.L| 00003AB0: 44 58 20 47 45 52 41 45 54 20 20 20 20 20 3B C6 |DX GERAET ;.| 00003AC0: 49 4C 45 20 4F 45 46 46 4E 45 4E 0D 4C 44 59 20 |ILE OEFFNEN.LDY | 00003AD0: 53 45 4B 55 4E 44 41 45 52 0D 4A 53 52 20 53 45 |SEKUNDAER.JSR SE| 00003AE0: 54 4C 46 53 52 0D 4C 44 41 20 23 31 0D 4C 44 58 |TLFSR.LDA #1.LDX| 00003AF0: 20 23 3C 4E 41 4D 44 52 0D 4C 44 59 20 23 3E 4E | #<NAMDR.LDY #>N| 00003B00: 41 4D 44 52 0D 4A 53 52 20 53 45 54 4E 41 4D 0D |AMDR.JSR SETNAM.| 00003B10: 4A 53 52 20 46 4F 50 45 4E 52 0D 3A 44 52 53 50 |JSR FOPENR.:DRSP| 00003B20: 0D 42 43 43 20 4B 45 49 4E 46 45 48 4C 45 52 0D |.BCC KEINFEHLER.| 00003B30: 4A 4D 50 20 44 52 45 4E 44 45 20 20 20 20 20 3B |JMP DRENDE ;| 00003B40: 42 45 49 20 C9 2F CF 2D C6 45 48 4C 45 52 20 C5 |BEI ./.-.EHLER .| 00003B50: 4E 44 45 0D 3A 4B 45 49 4E 46 45 48 4C 45 52 0D |NDE.:KEINFEHLER.| 00003B60: 43 48 4B 4F 55 54 20 34 0D 4C 4F 41 44 57 20 24 |CHKOUT 4.LOADW $| 00003B70: 36 30 30 30 2C 5A 50 31 30 0D 3A 44 52 4C 4F 4F |6000,ZP10.:DRLOO| 00003B80: 50 0D 4C 44 41 20 5A 50 31 30 2B 31 20 20 20 20 |P.LDA ZP10+1 | 00003B90: 20 3B 53 43 48 4F 4E 0D 43 4D 50 20 42 4F 54 54 | ;SCHON.CMP BOTT| 00003BA0: 4F 4D 2B 31 20 20 20 3B 41 4C 4C 45 0D 42 4E 45 |OM+1 ;ALLE.BNE| 00003BB0: 20 44 52 4E 41 4C 4C 45 53 20 20 20 3B DA 45 49 | DRNALLES ;.EI| 00003BC0: 43 48 45 4E 20 3F 0D 4C 44 41 20 5A 50 31 30 0D |CHEN ?.LDA ZP10.| 00003BD0: 43 4D 50 20 42 4F 54 54 4F 4D 0D 42 4E 45 20 44 |CMP BOTTOM.BNE D| 00003BE0: 52 4E 41 4C 4C 45 53 0D 4A 4D 50 20 44 52 41 4C |RNALLES.JMP DRAL| 00003BF0: 4C 45 53 0D 3A 44 52 4E 41 4C 4C 45 53 0D 4C 44 |LES.:DRNALLES.LD| 00003C00: 41 20 56 45 52 53 49 4F 4E 0D 42 45 51 20 4E 31 |A VERSION.BEQ N1| 00003C10: 32 0D 44 4F 4E 45 49 4F 0D 3A 4E 31 32 0D 44 44 |2.DONEIO.:N12.DD| 00003C20: 45 43 20 5A 50 31 30 0D 4C 44 41 20 56 45 52 53 |EC ZP10.LDA VERS| 00003C30: 49 4F 4E 0D 42 45 51 20 4E 4F 43 48 4D 4E 31 32 |ION.BEQ NOCHMN12| 00003C40: 0D 49 4E 49 54 49 4F 0D 3A 4E 4F 43 48 4D 4E 31 |.INITIO.:NOCHMN1| 00003C50: 32 0D 4C 44 59 20 23 30 0D 4C 44 41 20 28 5A 50 |2.LDY #0.LDA (ZP| 00003C60: 31 30 29 2C 59 0D 4C 44 58 20 46 4C 41 47 35 0D |10),Y.LDX FLAG5.| 00003C70: 42 4E 45 20 44 52 4E 43 52 0D 43 4D 50 20 23 31 |BNE DRNCR.CMP #1| 00003C80: 33 0D 42 4E 45 20 44 52 4E 43 52 20 20 20 20 20 |3.BNE DRNCR | 00003C90: 20 20 3B 45 56 54 4C 2E 20 CC C6 0D 4C 44 41 20 | ;EVTL. ...LDA | 00003CA0: 44 52 55 43 4B 4C 46 20 20 20 20 20 3B 56 4F 52 |DRUCKLF ;VOR| 00003CB0: 20 C3 D2 0D 42 45 51 20 44 52 4E 4C 46 20 20 20 | ...BEQ DRNLF | 00003CC0: 20 20 20 20 3B 44 52 55 43 4B 45 4E 0D 4C 44 41 | ;DRUCKEN.LDA| 00003CD0: 20 23 4C 46 0D 4A 53 52 20 42 53 4F 55 54 0D 3A | #LF.JSR BSOUT.:| 00003CE0: 44 52 4E 4C 46 0D 4C 44 41 20 23 43 52 0D 4A 53 |DRNLF.LDA #CR.JS| 00003CF0: 52 20 42 53 4F 55 54 0D 4A 4D 50 20 44 52 4C 4F |R BSOUT.JMP DRLO| 00003D00: 4F 50 0D 3A 44 52 4E 43 52 0D 50 48 41 0D 4C 44 |OP.:DRNCR.PHA.LD| 00003D10: 41 20 41 53 43 49 49 0D 42 4E 45 20 4E 57 41 4E |A ASCII.BNE NWAN| 00003D20: 44 4C 0D 50 4C 41 0D 4A 53 52 20 5A 55 52 57 41 |DL.PLA.JSR ZURWA| 00003D30: 4E 44 45 4C 4E 0D 50 48 41 0D 3A 4E 57 41 4E 44 |NDELN.PHA.:NWAND| 00003D40: 4C 0D 50 4C 41 0D 4A 53 52 20 42 53 4F 55 54 0D |L.PLA.JSR BSOUT.| 00003D50: 4C 44 41 20 46 4C 41 47 35 0D 42 45 51 20 4E 44 |LDA FLAG5.BEQ ND| 00003D60: 49 53 4B 0D 42 43 43 20 44 52 4C 4F 4F 50 0D 4A |ISK.BCC DRLOOP.J| 00003D70: 4D 50 20 44 52 45 4E 44 45 0D 3A 4E 44 49 53 4B |MP DRENDE.:NDISK| 00003D80: 0D 44 4F 4E 45 49 4F 0D 4E 45 58 54 43 48 41 52 |.DONEIO.NEXTCHAR| 00003D90: 0D 54 41 58 0D 42 45 51 20 44 52 4E 54 41 53 54 |.TAX.BEQ DRNTAST| 00003DA0: 0D 49 4E 49 54 49 4F 0D 4A 4D 50 20 44 52 41 4C |.INITIO.JMP DRAL| 00003DB0: 4C 45 53 0D 3A 44 52 4E 54 41 53 54 0D 49 4E 49 |LES.:DRNTAST.INI| 00003DC0: 54 49 4F 0D 4A 4D 50 20 44 52 4C 4F 4F 50 0D 3B |TIO.JMP DRLOOP.;| 00003DD0: 0D 3A 44 52 41 4C 4C 45 53 0D 4C 44 41 20 46 4C |.:DRALLES.LDA FL| 00003DE0: 41 47 35 0D 42 4E 45 20 44 52 45 4E 44 45 0D 4C |AG5.BNE DRENDE.L| 00003DF0: 44 41 20 23 31 33 0D 4A 53 52 20 42 53 4F 55 54 |DA #13.JSR BSOUT| 00003E00: 0D 3B 20 2A 20 C5 4E 44 45 20 44 45 53 20 22 C4 |.; * .NDE DES ".| 00003E10: 52 55 43 4B 53 22 20 2A 0D 3A 44 52 45 4E 44 45 |RUCKS" *.:DRENDE| 00003E20: 0D 43 4C 4F 53 45 20 34 0D 4A 53 52 20 43 4C 52 |.CLOSE 4.JSR CLR| 00003E30: 43 48 0D 44 4F 4E 45 49 4F 0D 54 55 52 42 4F 4E |CH.DONEIO.TURBON| 00003E40: 0D 4C 44 41 20 46 4C 41 47 35 0D 42 45 51 20 4E |.LDA FLAG5.BEQ N| 00003E50: 41 4C 54 0D 4A 4D 50 20 41 4C 54 45 44 49 53 4B |ALT.JMP ALTEDISK| 00003E60: 0D 3A 4E 41 4C 54 0D 4A 53 52 20 52 53 49 4E 49 |.:NALT.JSR RSINI| 00003E70: 54 0D 4D 45 4E 55 31 0D 3B 0D 3B 20 2A 2A 2A 20 |T.MENU1.;.; *** | 00003E80: 37 2E 36 2E 20 D0 55 46 46 45 52 20 53 50 45 49 |7.6. .UFFER SPEI| 00003E90: 43 48 45 52 4E 20 2A 2A 2A 0D 3B 0D 3A 52 54 37 |CHERN ***.;.:RT7| 00003EA0: 36 0D 50 4F 4B 45 20 46 4C 41 47 35 2C 53 45 54 |6.POKE FLAG5,SET| 00003EB0: 0D 4C 44 41 20 42 4F 54 54 4F 4D 2B 31 0D 43 4D |.LDA BOTTOM+1.CM| 00003EC0: 50 20 23 24 36 30 20 20 20 20 20 20 20 3B D0 55 |P #$60 ;.U| 00003ED0: 46 46 45 52 20 4C 45 45 52 20 3F 0D 42 4E 45 20 |FFER LEER ?.BNE | 00003EE0: 44 4B 4E 4C 45 45 52 0D 4D 45 4E 55 31 0D 3A 44 |DKNLEER.MENU1.:D| 00003EF0: 4B 4E 4C 45 45 52 0D 4A 53 52 20 49 4F 49 4E 49 |KNLEER.JSR IOINI| 00003F00: 54 0D 4D 4F 56 45 52 41 4D 20 44 49 53 4B 49 44 |T.MOVERAM DISKID| 00003F10: 2C 44 49 53 4B 4E 41 4D 2C 31 38 20 20 3B CE 41 |,DISKNAM,18 ;.A| 00003F20: 4D 45 20 44 45 52 0D 4D 4F 56 45 52 41 4D 20 44 |ME DER.MOVERAM D| 00003F30: 49 53 4B 4E 41 4D 2C 55 52 4E 41 4D 45 2C 31 36 |ISKNAM,URNAME,16| 00003F40: 20 20 3B 41 4C 54 45 4E 20 C4 49 53 4B 0D 44 49 | ;ALTEN .ISK.DI| 00003F50: 41 4C 42 4F 58 20 5A 49 45 4C 44 49 53 4B 0D 4C |ALBOX ZIELDISK.L| 00003F60: 44 41 20 52 30 0D 43 4D 50 20 23 43 41 4E 43 45 |DA R0.CMP #CANCE| 00003F70: 4C 0D 42 4E 45 20 4E 5A 55 52 0D 4A 4D 50 20 41 |L.BNE NZUR.JMP A| 00003F80: 4C 54 45 44 49 53 4B 0D 3A 4E 5A 55 52 0D 4F 50 |LTEDISK.:NZUR.OP| 00003F90: 45 4E 44 49 53 4B 0D 45 52 52 4F 52 20 4F 4B 36 |ENDISK.ERROR OK6| 00003FA0: 2C 41 4C 54 45 44 49 53 4B 0D 3A 4F 4B 36 0D 4C |,ALTEDISK.:OK6.L| 00003FB0: 4F 41 44 57 20 24 37 46 34 30 2C 52 35 20 20 20 |OADW $7F40,R5 | 00003FC0: 20 3B C1 42 4C 41 47 45 20 46 55 45 52 20 C6 49 | ;.BLAGE FUER .I| 00003FD0: 4C 45 4E 41 4D 0D 50 4F 4B 45 20 24 37 46 34 30 |LENAM.POKE $7F40| 00003FE0: 2C 30 0D 44 49 41 4C 42 4F 58 20 46 49 4C 45 4E |,0.DIALBOX FILEN| 00003FF0: 41 4D 45 0D 4C 44 41 20 52 30 0D 43 4D 50 20 23 |AME.LDA R0.CMP #| 00004000: 43 41 4E 43 45 4C 0D 42 4E 45 20 4E 5A 55 52 32 |CANCEL.BNE NZUR2| 00004010: 0D 4A 4D 50 20 41 4C 54 45 44 49 53 4B 0D 3A 4E |.JMP ALTEDISK.:N| 00004020: 5A 55 52 32 0D 4C 44 59 20 23 30 0D 3A 53 54 52 |ZUR2.LDY #0.:STR| 00004030: 4B 4F 50 49 45 0D 4C 44 41 20 24 37 46 34 30 2C |KOPIE.LDA $7F40,| 00004040: 59 0D 42 45 51 20 53 54 52 46 52 54 20 20 20 20 |Y.BEQ STRFRT | 00004050: 20 20 20 3B CE 41 4D 45 20 56 45 52 53 43 48 49 | ;.AME VERSCHI| 00004060: 45 42 45 4E 0D 4A 53 52 20 5A 55 52 57 41 4E 44 |EBEN.JSR ZURWAND| 00004070: 45 4C 4E 20 20 20 3B 55 4E 44 20 DA 45 49 43 48 |ELN ;UND .EICH| 00004080: 45 4E 43 4F 44 45 20 57 41 4E 44 45 4C 4E 0D 53 |ENCODE WANDELN.S| 00004090: 54 41 20 24 37 46 34 30 2C 59 0D 49 4E 59 0D 4A |TA $7F40,Y.INY.J| 000040A0: 4D 50 20 53 54 52 4B 4F 50 49 45 0D 3A 53 54 52 |MP STRKOPIE.:STR| 000040B0: 46 52 54 0D 54 59 41 0D 50 48 41 0D 44 45 4C 45 |FRT.TYA.PHA.DELE| 000040C0: 54 45 20 24 37 46 34 30 0D 50 4C 41 0D 54 41 59 |TE $7F40.PLA.TAY| 000040D0: 0D 4C 44 41 20 23 34 34 0D 53 54 41 20 24 37 46 |.LDA #44.STA $7F| 000040E0: 34 30 2C 59 20 20 20 20 3B 22 2C 53 2C 57 22 0D |40,Y ;",S,W".| 000040F0: 53 54 41 20 24 37 46 34 30 2B 32 2C 59 0D 4C 44 |STA $7F40+2,Y.LD| 00004100: 41 20 23 38 33 0D 53 54 41 20 24 37 46 34 30 2B |A #83.STA $7F40+| 00004110: 31 2C 59 0D 4C 44 41 20 23 38 37 0D 53 54 41 20 |1,Y.LDA #87.STA | 00004120: 24 37 46 34 30 2B 33 2C 59 0D 54 59 41 0D 43 4C |$7F40+3,Y.TYA.CL| 00004130: 43 0D 41 44 43 20 23 34 0D 53 54 41 20 4E 41 4D |C.ADC #4.STA NAM| 00004140: 4C 41 45 4E 47 0D 50 4F 4B 45 20 46 4C 41 47 36 |LAENG.POKE FLAG6| 00004150: 2C 53 45 54 20 3B C6 4C 41 47 20 46 55 45 52 20 |,SET ;.LAG FUER | 00004160: C4 C9 D2 2D C5 52 52 4F 52 0D 54 55 52 42 4F 50 |...-.RROR.TURBOP| 00004170: 55 52 0D 49 4E 49 54 49 4F 0D 46 4F 50 45 4E 20 |UR.INITIO.FOPEN | 00004180: 31 35 2C 38 2C 31 35 2C 31 2C 49 4E 49 54 53 54 |15,8,15,1,INITST| 00004190: 52 0D 43 4C 4F 53 45 20 31 35 0D 53 45 54 4C 46 |R.CLOSE 15.SETLF| 000041A0: 53 20 34 2C 38 2C 32 20 20 20 20 20 20 3B C6 49 |S 4,8,2 ;.I| 000041B0: 4C 45 20 41 55 46 20 C4 49 53 4B 20 4F 45 46 46 |LE AUF .ISK OEFF| 000041C0: 4E 45 4E 0D 4C 44 41 20 4E 41 4D 4C 41 45 4E 47 |NEN.LDA NAMLAENG| 000041D0: 0D 4C 44 58 20 23 3C 24 37 46 34 30 0D 4C 44 59 |.LDX #<$7F40.LDY| 000041E0: 20 23 3E 24 37 46 34 30 0D 4A 53 52 20 53 45 54 | #>$7F40.JSR SET| 000041F0: 4E 41 4D 0D 4A 53 52 20 46 4F 50 45 4E 52 0D 4A |NAM.JSR FOPENR.J| 00004200: 4D 50 20 44 52 53 50 0D 3B 0D 3B 20 2A 2A 2A 20 |MP DRSP.;.; *** | 00004210: 38 2E 20 D4 45 4C 45 46 4F 4E 4E 52 2E 20 2A 2A |8. .ELEFONNR. **| 00004220: 2A 0D 3B 0D 3A 52 54 38 0D 52 45 44 4F 4D 45 4E |*.;.:RT8.REDOMEN| 00004230: 55 0D |U. |
; ***********************.; *** ANDERE R
OUTINEN ***.;.; *** STERNCHEN SETZEN/LOE
SCHEN ***.;.:STERNCHEN.LOADW TEXTE,ZP2.T
RANSW BAUD,ZP1 ;2.2.1. BAUDRATE.DADD
ZP1,ZP2,ZP1.LDA ZW.LDY #7.STA (ZP1),Y.TR
ANSW DATENB,ZP1 ;2.2.2. DATENBITS.DADD
ZP1,ZP2,ZP1.LDA ZW.LDY #2.STA (ZP1),Y.TR
ANSW PARIT,ZP1 ;2.2.3. PARITAET.DADD Z
P1,ZP2,ZP1.LDA ZW.LDY #18.STA (ZP1),Y.TR
ANSW STOPB,ZP1 ;2.2.4. STOPBITS.DADD Z
P1,ZP2,ZP1.LDA ZW.LDY #5.STA (ZP1),Y.TRA
NSW DUPL,ZP1 ;2.2.5. DUPLEX.DADD ZP1,
ZP2,ZP1.LDA ZW.LDY #5.STA (ZP1),Y.LDA EC
HO ;2.3. ECHO.BEQ ECHOAUS.COP
ZW,MTEXT231+4.JMP GESCHW.:ECHOAUS.COP ZW
,MTEXT232+4.:GESCHW.LDA SPEED ;
2.5.1. SENDETEMPO.BEQ LOWSPD.COP ZW,MTEX
T2511+8.JMP CRUNTERDR.:LOWSPD.COP ZW,MTE
XT2512+8.:CRUNTERDR.LDA CRUNTER ;
2.5.2. CR UNTERDRUECKEN.BEQ NEIN.COP ZW,
MTEXT2521+6.JMP KONVERTIE.:NEIN.COP ZW,M
TEXT2522+6.:KONVERTIE.LDA KONVERT
;2.5.3. KONVERTIEREN.BEQ NKONV.COP ZW,M
TEXT2531+6.JMP GERADR.:NKONV.COP ZW,MTEX
T2532+6.:GERADR.LDA GERAET ;2.6.
1. DRUCKERGERAETEADR..CMP #4.BEQ VIER.CO
P ZW,MTEXT2612+6.JMP SEK.:VIER.COP ZW,MT
EXT2611+6.:SEK.LDA SEKUNDAER ;2.6.2
. SEKUNDAERADR..BEQ SEKNULL.CMP #1.BEQ S
EKEINS.COP ZW,MTEXT2623+2.JMP ASC.:SEKEI
NS.COP ZW,MTEXT2622+2.JMP ASC.:SEKNULL.C
OP ZW,MTEXT2621+2.:ASC.LDA ASCII
;2.6.3. ZEICHENSATZ.BEQ KEINASC.COP ZW
,MTEXT2631+5.JMP DRLF.:KEINASC.COP ZW,MT
EXT2632+5.:DRLF.LDA DRUCKLF ;2.6.
4. LINEFEED.BEQ KEINLF.COP ZW,MTEXT2641+
5.JMP FERTIG.:KEINLF.COP ZW,MTEXT2642+5.
:FERTIG.RTS.;.; *********************.;
*** MENUEROUTINEN ***.;.; *** LEERROUTIN
EN FUER LEERE MENUEPUNKTE ***.:LEER1.RED
OMENU.:LEER2.MENU1.; *** 1.1. GEOTERM IN
FO ***.;.:RT11.RECVMENU 1.DIALBOX INFOBO
X.MENU1.;.; *** 1.2. DESKTOP LADEN ***.;
.:RT12.INITIO.JSR CLRCH.CLOSE 2 ;
RS-232-FILE SCHLIESSEN.DONEIO.LDA FLAG6.
BEQ NDIRERR.TURBOPUR.INITIO.FOPEN 15,8,1
5,1,INITSTR ;DIR-ERROR VERMEIDEN.CLOSE
15.DONEIO.TURBON.:NDIRERR.PROFF.LOADW OL
DNMI,$FFFA.TRANSW RESETMAIN,R0.JSR INITR
AMR.DESKTOP.;.; *** 1.3.-1.A. ACCESSORY
AUFRUFEN ***.;.:RT13.LOADW PRG1,ZP1.JMP
LADEN.;.:RT14.LOADW PRG2,ZP1.JMP LADEN.;
.:RT15.LOADW PRG3,ZP1.JMP LADEN.;.:RT16.
LOADW PRG4,ZP1.JMP LADEN.;.:RT17.LOADW P
RG5,ZP1.JMP LADEN.;.:RT18.LOADW PRG6,ZP1
.JMP LADEN.;.:RT19.LOADW PRG7,ZP1.JMP LA
DEN.;.:RT1A.LOADW PRG8,ZP1.;.:LADEN.JSR
IOINIT.PROFF.LOADW 0,VEKTAST.LOADW INIT,
$849B.TRANSW ZP1,R6.POKE 2,0.POKE $16,0.
POKE FLAG1,SET.GETFILE.; **
**.; * 2.1. PARAMETER LADEN *.; *
* **.:RT21.CLEARAM $A00
0+640,7360 ;TEIL DES SCREENS LOESCHEN.CL
EARAM $6000+640,7360.JSR IOINIT.POKE ZW,
32 ;ALTE STERNCHEN LOESCHEN.JSR ST
ERNCHEN.POKE FLAG3,SET.JSR PARLESEN
;UND NEUE LADEN+SETZEN.POKE FLAG3,CLEAR.
JSR RSINIT.MENU1.; *********************
*****.; * 2.2.1.1. BAUDRATE 50 *.;.:RT
2211.POKE ZW,%00000001.LOADW MTEXT2211,Z
P1.JMP BAUDRATE.;.; * 2.2.1.2. BAUDRATE
75 *.;.:RT2212.POKE ZW,%00000011.LOADW
MTEXT2212,ZP1.JMP BAUDRATE.;.; * 2.2.1.
3. BAUDRATE 150 *.;.:RT2213.POKE ZW,%00
000110.LOADW MTEXT2213,ZP1.JMP BAUDRATE.
;.; * 2.2.1.4. BAUDRATE 300 *.;.:RT2214
.POKE ZW,%00000111.LOADW MTEXT2214,ZP1.J
MP BAUDRATE.;.; * 2.2.1.5. BAUDRATE 600
*.;.:RT2215.POKE ZW,%00001000.LOADW MTE
XT2215,ZP1.JMP BAUDRATE.;.; * 2.2.1.6. B
AUDRATE 1200 *.;.:RT2216.POKE ZW,%000010
01.LOADW MTEXT2216,ZP1.;.; * BAUDRATE AE
NDERN *.; ************************
**.:BAUDRATE.LDA STEUERREG.AND #%1111000
0 ;UNTERE VIER BYTES LOESCHEN.ORA ZW
;UND BAUDRATE EINSTELLEN.STA STEUER
REG.STA FADR.LOADW TEXTE,ZP3.TRANSW BAUD
,ZP2.DADD ZP2,ZP3,ZP2.LDY #7.LDA #32.STA
(ZP2),Y ;ALTEN STERN LOESCHEN.LDA #4
2 ;NEUEN STERN SETZEN.STA (ZP1),Y
.TRANSW ZP1,BAUD.DSUB BAUD,ZP3,BAUD.SETM
OUSE 103,22.PREMENU.; ******************
***************.; * 2.2.2.1. 5 DATENBITS
MAKIEREN *.;.:RT2221.POKE ZW,%01100000.
LOADW MTEXT2221,ZP1.JMP DATENBITS.;.; *
2.2.2.2. 6 DATENBITS MAKIEREN *.;.:RT222
2.POKE ZW,%01000000.LOADW MTEXT2222,ZP1.
JMP DATENBITS.;.; * 2.2.2.3. 7 DATENBITS
MAKIEREN *.;.:RT2223.POKE ZW,%00100000.
LOADW MTEXT2223,ZP1.JMP DATENBITS.;.; *
2.2.2.4. 8 DATENBITS MAKIEREN *.;.:RT222
4.POKE ZW,%00000000.LOADW MTEXT2224,ZP1.
;.; * DATENBITS AENDERN *.;
*********************************.:DATEN
BITS.LDA STEUERREG.AND #%10011111 ;UNTER
E VIER BYTES LOESCHEN.ORA ZW ;UN
D BAUDRATE EINSTELLEN.STA STEUERREG.STA
FADR.LOADW TEXTE,ZP3.TRANSW DATENB,ZP2.D
ADD ZP2,ZP3,ZP2.LDA #32.LDY #2.STA (ZP2)
,Y ;ALTEN STERN LOESCHEN.LDA #42
;NEUEN STERN SETZEN.STA (ZP1),Y.TRANS
W ZP1,DATENB.DSUB DATENB,ZP3,DATENB.SETM
OUSE 103,22.PREMENU.; ******************
**************.; * 2.2.3.1. KEINE PARITA
ET *.;.:RT2231.POKE ZW,%00000000.LO
ADW MTEXT2231,ZP1.JMP PARITAET.;.; * 2.2
.3.2. UNGERADE PARITAET *.:RT2232.POKE
ZW,%00100000.LOADW MTEXT2232,ZP1.JMP PA
RITAET.;.; * 2.2.3.3. GERADE PARITAET
*.;.:RT2233.POKE ZW,%01100000.LOADW MT
EXT2233,ZP1.JMP PARITAET.;.; * 2.2.3.4.
GESETZTE PARITAET *.;.:RT2234.POKE ZW,
%10100000.LOADW MTEXT2234,ZP1.JMP PARITA
ET.;.; * 2.2.3.5. GELOESCHTE PARITAET *.
;.:RT2235.POKE ZW,%11100000.LOADW MTEXT2
235,ZP1.;.; * PARITAET AENDERN
*.; ********************************.
:PARITAET.LDA BEFEHLSREG.AND #%00011111.
ORA ZW ;UND BAUDRATE EINSTELLEN.
STA BEFEHLSREG.STA FADR+1.LOADW TEXTE,ZP
3.TRANSW PARIT,ZP2.DADD ZP2,ZP3,ZP2.LDA
#32.LDY #18.STA (ZP2),Y ;ALTEN STERN
LOESCHEN.LDA #42 ;NEUEN STERN SET
ZEN.STA (ZP1),Y.TRANSW ZP1,PARIT.DSUB PA
RIT,ZP3,PARIT.SETMOUSE 103,22.PREMENU.;
***********************.; * 2.2.4.1. 1 S
TOPBIT *.;.:RT2241.POKE ZW,%00000000.LO
ADW MTEXT2241,ZP1.JMP STOPBITS.;.;.; * 2
.2.4.2. 2 STOPBITS *.;.:RT2242.POKE ZW,%
10000000.LOADW MTEXT2242,ZP1.;.; * STOPB
ITS AENDERN *.; *********************
**.:STOPBITS.LDA STEUERREG.AND #%0111111
1.ORA ZW ;UND BAUDRATE EINSTELLE
N.STA STEUERREG.STA FADR.LOADW TEXTE,ZP3
.TRANSW STOPB,ZP2.DADD ZP2,ZP3,ZP2.LDA #
32.LDY #5.STA (ZP2),Y ;ALTEN STERN LO
ESCHEN.LDA #42 ;NEUEN STERN SETZE
N.STA (ZP1),Y.TRANSW ZP1,STOPB.DSUB STOP
B,ZP3,STOPB.SETMOUSE 103,22.PREMENU.; **
**********************.; * 2.2.5.1. VOLL
-DUPLEX *.;.:RT2251.POKE ZW,%00000000.LO
ADW MTEXT2251,ZP1.JMP DUPLEX.;.; * 2.2.5
.2. HALB-DUPLEX *.;.:RT2252.POKE ZW,%000
10000.LOADW MTEXT2252,ZP1.;.; * DUPLEX A
ENDERN *.; ***********************
*.:DUPLEX.LDA BEFEHLSREG.AND #%11101111.
ORA ZW ;UND BAUDRATE EINSTELLEN.
STA BEFEHLSREG.STA FADR+1.LOADW TEXTE,ZP
3.TRANSW DUPL,ZP2.DADD ZP2,ZP3,ZP2.LDA #
32.LDY #5.STA (ZP2),Y ;ALTEN STERN LO
ESCHEN.LDA #42 ;NEUEN STERN SETZE
N.STA (ZP1),Y.TRANSW ZP1,DUPL.DSUB DUPL,
ZP3,DUPL.SETMOUSE 103,22.PREMENU.; *****
*************.; * 2.3.1 ECHO AN *.;.:RT
231.POKE MTEXT232+4,32.POKE MTEXT231+4,4
2.POKE ECHO,SET.SETMOUSE 49,22.PREMENU.;
.; * 2.3.2 ECHO AUS *.; ****************
**.:RT232.POKE MTEXT231+4,32.POKE MTEXT2
32+4,42.POKE ECHO,CLEAR.SETMOUSE 49,22.P
REMENU.; ****************************.;
* 2.5.1.1. SCHNELLES TEMPO *.;.:RT2511.P
OKE MTEXT2512+8,32.POKE MTEXT2511+8,42.P
OKE SPEED,SET.SETMOUSE 118,22.PREMENU.;.
; * 2.5.1.2. LANGSAMES TEMPO *.; *******
*********************.:RT2512.POKE MTEXT
2511+8,32.POKE MTEXT2512+8,42.POKE SPEED
,CLEAR.SETMOUSE 118,22.PREMENU.; *******
***********************.; * 2.5.2.1. CR
UNTERDR. *.;.:RT2521.POKE MTEXT252
2+6,32.POKE MTEXT2521+6,42.POKE CRUNTER,
SET.SETMOUSE 118,22.PREMENU.;.; * 2.5.2.
2. CR NICHT UNTERDR. *.; ***************
***************.:RT2522.POKE MTEXT2521+6
,32.POKE MTEXT2522+6,42.POKE CRUNTER,CLE
AR.SETMOUSE 118,22.PREMENU.; ***********
*************************.; * 2.5.3.1. T
EXT KONVERTIEREN *.;.:RT2531.POKE
MTEXT2532+6,32.POKE MTEXT2531+6,42.POKE
KONVERT,SET.SETMOUSE 118,22.PREMENU.;.;
* 2.5.3.2. TEXT NICHT KONVERTIEREN *.; *
***********************************.:RT2
532.POKE MTEXT2531+6,32.POKE MTEXT2532+6
,42.POKE KONVERT,CLEAR.SETMOUSE 118,22.P
REMENU.; ******************************.
; * 2.6.1.1. GERAETEADR. VIER *.;.:RT26
11.POKE MTEXT2612+6,32.POKE MTEXT2611+6,
42.POKE GERAET,4.SETMOUSE 111,22.PREMENU
.;.; * 2.6.1.2. GERAETEADR. FUENF *.; **
****************************.:RT2612.POK
E MTEXT2611+6,32.POKE MTEXT2612+6,42.POK
E GERAET,5.SETMOUSE 111,22.PREMENU.; ***
****************************.; * 2.6.2.1
. SEKUNDAERADR. NULL *.;.:RT2621.POKE MT
EXT2623+2,32.POKE MTEXT2622+2,32.POKE MT
EXT2621+2,42.POKE SEKUNDAER,0.SETMOUSE 1
11,22.PREMENU.;.; * 2.6.2.2. SEKADR. EIN
S *.;.:RT2622.POKE MTEXT2623+2,32.
POKE MTEXT2622+2,42.POKE MTEXT2621+2,32.
POKE SEKUNDAER,1.SETMOUSE 111,22.PREMENU
.;.; * 2.6.2.3. SEKADR. SIEBEN *.; *
******************************.:RT2623.P
OKE MTEXT2623+2,42.POKE MTEXT2622+2,32.P
OKE MTEXT2621+2,32.POKE SEKUNDAER,7.SETM
OUSE 111,22.PREMENU.; ******************
*****.; * 2.6.3.1. ASCII JA *.;.:RT263
1.POKE MTEXT2632+5,32.POKE MTEXT2631+5,4
2.POKE ASCII,SET.SETMOUSE 111,22.PREMENU
.;.; * 2.6.3.2. ASCII NEIN *.; *********
**************.:RT2632.POKE MTEXT2631+5,
32.POKE MTEXT2632+5,42.POKE ASCII,CLEAR.
SETMOUSE 111,22.PREMENU.; **************
*******************.; * 2.6.4.1. LINEFEE
D AUF DR. JA *.;.:RT2641.POKE MTEXT2642
+5,32.POKE MTEXT2641+5,42.POKE DRUCKLF,S
ET.SETMOUSE 111,22.PREMENU.;.; * 2.6.4.2
. LINEFEED AUF DR. NEIN *.; ************
**********************.:RT2642.POKE MTEX
T2641+5,32.POKE MTEXT2642+5,42.POKE DRUC
KLF,CLEAR.SETMOUSE 111,22.PREMENU.;.; **
* 2.7. PARAMETER SPEICHERN ***..;.:RT27.
JSR IOINIT.OPENDISK.OPENREC GEOTERM.ERRO
R OK3,RT27.:OK3.POINTREC 1.DELREC.INSREC
.WRITEREC BAUD,DRUCKLF-BAUD+1.CLOSEREC.J
SR RSINIT.MENU1.;.; *** 3.1. BSW EINSCHA
LTEN ***.;.:RT31.CLEARAM $A000+640,7360
;TEIL DES SCREENS LOESCHEN.CLEARAM $6000
+640,7360.JSR FONTBSW.MENU1.:FONTBSW.SYS
FONT.LOADW 0,R11.LOADW 0,TEXTX.POKE 5,22
;TEXTPOS. SETZEN.STA TEXTY.POK
E CRDIFF,6.POKE CRHOEHE,9.JSR PROMPTR.PO
KE TOP,22.POKE BSW,SET.RTS.;.; *** 3.2.
UNIVERSITY EINSCHALTEN ***.;.:RT32.CLEAR
AM $A000+640,7360 ;TEIL DES SCREENS LOES
CHEN.CLEARAM $6000+640,7360.JSR FONTUNI.
MENU1.:FONTUNI.LOADSET UNIV.LOADW 0,R11.
LOADW 0,TEXTX.POKE 5,20 ;TEXTPO
S. SETZEN.STA TEXTY.POKE CRDIFF,4.POKE C
RHOEHE,6.JSR PROMPTR.POKE TOP,20.POKE BS
W,CLEAR.MENU1.;.; *** 6.1.1.1. TEXTSCRAP
UEBER ASCII SENDEN ***.;.:RT6111.POKE F
LAG4,SET ;ZEICHEN FUER SCRAP.JMP SEQ
SENDEN.;.; *** 6.1.1.2. SEQ.-FILE UEBER
ASCII SENDEN ***.;.:RT6112.POKE FLAG4,CL
EAR ;ZEICHEN FUER SEQ.:SEQSENDEN.MOVER
AM DISKID,DISKNAM,18.MOVERAM DISKNAM,URN
AME,16.MOVERAM $C1E4,VEKGETBLK,3.:WIEDER
.DIALBOX QUELLDISK.LDA R0.CMP #CANCEL.BN
E NHAUPTM.JMP RT6112ENDE.:NHAUPTM.JSR IO
INIT.OPENDISK.ERROR OK4,WIEDER.:OK4.LDA
FLAG4.BNE SCRAP.INITGETFILES 0,FILEPUFFE
R,0.DIALBOX CHOOSEFILE ;SEQ-FILE WAE
HLEN.LDA R0.CMP #CANCEL.BNE NZURUECK.JMP
WIEDER.:NZURUECK.FINDFILE FILEPUFFER.JM
P EINLESEN.:SCRAP.FINDFILE TEXTSCRAP.CPX
#5 ;PRUEFEN,OB TEXTSCRAP DA.
BNE EINLESEN.JMP RT6112ENDE.:EINLESEN.RE
CVBOX 100,16,319,50 ;MENUES LOESCHEN.COP
DIREIN+1,4 ;ANFANGSBLOCK.COP DIREIN+
2,5 ;DES FILES.GETBLK BLKPF ;EINL
ESEN.POKE $C,$FF.LDA BLKPF ;PRUEF
EN,OB LETZTER BLOCK.BNE NZUENDE.COP BLKP
F+1,$C ;LAENGE FESTLEGEN.:NZUENDE.INC
$C.POKE $D,2 ;AB 1. BYTE.LDA FLAG
4.BEQ NUEBERL.POKE $D,8 ;STEUERCO
DES UEBERLESEN.:NUEBERL.MOVERAM R4,READP
AR,4.COP BLKPF,4.STA SPUR ;FOLGE
BLOCK FESTLEGEN.COP BLKPF+1,5.STA SEKTOR
.LOADW NEWGETBLK,$C1E5 ;NEUE ROUTINE.POK
E $C1E4,$4C ;FUER BLOCK EINLESEN.
JSR RSINIT.:READLOOP.MOVERAM READPAR,R4,
4 ;WERTE AUS.COP SPUR,4 ;ZWISC
HENSPEICHER.COP SEKTOR,5 ;ZURECK
HOLEN.READBYTE.PHA.TXA.PHA.COP 4,SPUR
;UND WIEDER REIN.COP 5,SEKTOR.MO
VERAM R4,READPAR,4.PLA.TAX.PLA.CPX #$B
;FILE ZUENDE ?.BNE NENDE.JMP RT6
112ENDE.:NENDE.TAY.ERROR OK5,RT6112ENDE.
:OK5.TYA.CMP #CR ;CR ?.BNE NCAR
ET.;.; ** CR BEHANDELN **.LDA CRUNTER.BE
Q NUNTERDR ;UNTERDRUECKEN ?.POKE TAST
CD,32.JSR TASTE ;LEERZEICHEN SENDE
N.JMP VERZOEG.;.:NUNTERDR.POKE TASTCD,CR
.JSR TASTE ;CR SENDEN.JMP VERZOEG.
;.:NCARET.CMP #32.BCC READLOOP.LDX FLAG4
.BNE NSEQ.LDX KONVERT.BEQ ZKLEINER.CMP #
65 ;BEI SEQ-FILE.BCC NSEQ
;KONVERTIEREN.CMP #91.BCS GROSS.EOR #$2
0 ;(65-91 ZU 97-122).JMP NSEQ.:GR
OSS.CMP #97.BCC NSEQ.CMP #122.BCS GROSS2
.EOR #$20 ;(97-122 ZU 65-91).JMP
NSEQ.:GROSS2.CMP #193.JMP ZGROESSER.JMP
READLOOP.:ZGROESSER.CMP #219.BCC ZKLEINE
R.JMP READLOOP.:ZKLEINER.AND #%01111111
;(193-219 ZU 65-91).:NSEQ.TAX.BPL NZUGR
OSS ;ZU GROSSER CODE.JMP READLOOP.:NZU
GROSS.STA TASTCD.JSR TASTE ;ZEICHEN
SENDEN.:VERZOEG.NEXTCHAR.TAX
;BEI TASTENDRUCK.BEQ NSTOP ;SCHLUS
S MACHEN.JMP RT6112ENDE.:NSTOP.JSR ROMEI
N ;AUF (RS232) EINGABEN PRUEFEN.JSR
GETIN.PHA ;ZEICHEN ZWISCHENSP
EICHERN.JSR ROMAUS.PLA ;ZURUEC
KHOLEN.TAX.BEQ KEINZEICH ;ZEICHEN ANGEKO
MMEN ?.JSR PRINT ;WENN JA,DANN AUSGE
BEN.:KEINZEICH.LDA SPEED.BNE NVERZ.SEI.L
OADW VERIRQ,ZUIRQ.POKE ZAEHLER,0.CLI.:NO
CHNICHT.LDA ZAEHLER ; 6.CMP #6
;.... SEK WARTEN.BCC NOCHNICHT ; 50.SEI.
LOADW 0,ZUIRQ.CLI.:NVERZ.JMP READLOOP.;.
; ** ENDE DER UEBERTRAGUNG **.:RT6112END
E.JSR IOINIT.MOVERAM VEKGETBLK,$C1E4,3.:
ALTEDISK.OPENDISK.LOADW DISKNAM,ZP1.LOAD
W DISKID,ZP2.CMPFSTR ZP1,ZP2,18 ;DISKIDS
VERGLEICHEN.BEQ GLEICH.DIALBOX URDISK.J
MP ALTEDISK.:GLEICH.JSR RSINIT.JSR ROMEI
N.LDA ZEICHEN.JSR BSOUT.JSR ROMAUS.MENU1
.;.; ** NEUE ROUTINE ZU GETBLOCK **.:NEW
GETBLK.COP 4,SPUR.COP 5,SEKTOR.MOVERAM R
4,READPAR,4.JSR IOINIT.MOVERAM READPAR,R
4,4.COP SPUR,4.COP SEKTOR,5.JSR VEKGETBL
K.MOVERAM R4,READPAR,4.TXA ;FE
HLERBYTE SICHERN.PHA.JSR RSINIT.MOVERAM
READPAR,R4,4.COP SPUR,4.COP SEKTOR,5.PLA
.TAX.RTS.;.; ** IRQ ZUM VERZOEGERN **.:V
ERIRQ.INC ZAEHLER.RTS.;.; *** 7.1.1. PUF
FER LOESCHEN+OEFFNEN ***.;.:RT711.LOADW
$6000,BOTTOM ;ZEIGER LOESCHEN.HLINE 0,
319,14,0 ;LINIE LOESCHEN.:OEFFNEN.LD
A PUFFER.BNE SCHONOFFEN.INVBOX 255,1,274
,13 ;ICON INVERTIEREN.POKE PUFFER,SET.:
SCHONOFFEN.MENU1.;.; *** 7.1.2. PUFFER O
EFFNEN ***.;.:RT712.JMP OEFFNEN.;.; ***
7.2. PUFFER SCHLIESSEN ***.;.:RT72.LDA P
UFFER.BEQ SCHONZU.INVBOX 255,1,274,13.PO
KE PUFFER,CLEAR.:SCHONZU.MENU1.;.; *** 7
.3. FREIEN PLATZ IM PUFFER ANZEIGEN ***.
;.:RT73.DIALBOX SHOWFREE.MENU1.;.; ** BY
TEZAHL ANZEIGEN **.:FREERECHN.TRANSW BOT
TOM,ZP1.LOADW GRENZE,ZP2.DSUB ZP1,ZP2,ZP
1 ;FREIER PLATZ NACH ZP1.LDA #BOLDON.P
UTCHAR.TRANSW ZP1,R0.PUTDEC 80,63.RTS.;.
; *** 7.4. PUFFER ANZEIGEN ***.;.:RT74.L
DA BOTTOM+1.CMP #$60 ;PUFFER
LEER ?.BNE NLEER.MENU1.:NLEER.RECVBOX 0
,16,319,199 ;MENUES LOESCHEN.LDA ECHO.PH
A.POKE ECHO,CLEAR ;ECHO SPERREN.LDA
PUFFER.PHA.POKE PUFFER,CLEAR ;PUFFER
SPERREN.LOADW $6000,ZP10.LDA #CR.JSR PRI
NT.:ANZLOOP.NEXTCHAR.TAX
;BEI TASTE ANHALTEN.BEQ KEINTAST.:STOP.T
RANSW TEXTX,R11.COP TEXTY,5.SETCR.NEXTCH
AR.TAX ;AUF NAECHSTE WART
EN.BEQ STOP.CMP #22 ;UND BEI
'STOP' ABBRUCH.BNE KEINTAST.JMP ALLES.:K
EINTAST.LDA ZP10+1.CMP BOTTOM+1.BNE NALL
ES ;ALLES ANGEZEIGT ?.LDA ZP10.C
MP BOTTOM.BEQ ALLES.:NALLES.DDEC ZP10.LD
Y #0.LDA (ZP10),Y.JSR PRINT.JMP ANZLOOP.
:ALLES.LDA #CR.JSR PRINT.TRANSW TEXTX,R1
1.COP TEXTY,5.SETCR.PLA.STA PUFFER
;FLAGS ZURUECKSETZEN.PLA.STA ECHO.MENU
1.;.; *** 7.5. PUFFER DRUCKEN ***.;.:RT7
5.POKE FLAG5,CLEAR.LDA BOTTOM+1.CMP #$60
;PUFFER LEER ?.BNE DRNLEER.MENU1.
:DRNLEER.JSR IOINIT ;I/O VORBEREITEN
.TURBOFF.INITIO.LDA #4.LDX GERAET ;F
ILE OEFFNEN.LDY SEKUNDAER.JSR SETLFSR.LD
A #1.LDX #<NAMDR.LDY #>NAMDR.JSR SETNAM.
JSR FOPENR.:DRSP.BCC KEINFEHLER.JMP DREN
DE ;BEI I/O-FEHLER ENDE.:KEINFEHLER.
CHKOUT 4.LOADW $6000,ZP10.:DRLOOP.LDA ZP
10+1 ;SCHON.CMP BOTTOM+1 ;ALLE.BNE
DRNALLES ;ZEICHEN ?.LDA ZP10.CMP BOTT
OM.BNE DRNALLES.JMP DRALLES.:DRNALLES.LD
A VERSION.BEQ N12.DONEIO.:N12.DDEC ZP10.
LDA VERSION.BEQ NOCHMN12.INITIO.:NOCHMN1
2.LDY #0.LDA (ZP10),Y.LDX FLAG5.BNE DRNC
R.CMP #13.BNE DRNCR ;EVTL. LF.LDA
DRUCKLF ;VOR CR.BEQ DRNLF ;DRU
CKEN.LDA #LF.JSR BSOUT.:DRNLF.LDA #CR.JS
R BSOUT.JMP DRLOOP.:DRNCR.PHA.LDA ASCII.
BNE NWANDL.PLA.JSR ZURWANDELN.PHA.:NWAND
L.PLA.JSR BSOUT.LDA FLAG5.BEQ NDISK.BCC
DRLOOP.JMP DRENDE.:NDISK.DONEIO.NEXTCHAR
.TAX.BEQ DRNTAST.INITIO.JMP DRALLES.:DRN
TAST.INITIO.JMP DRLOOP.;.:DRALLES.LDA FL
AG5.BNE DRENDE.LDA #13.JSR BSOUT.; * END
E DES "DRUCKS" *.:DRENDE.CLOSE 4.JSR CLR
CH.DONEIO.TURBON.LDA FLAG5.BEQ NALT.JMP
ALTEDISK.:NALT.JSR RSINIT.MENU1.;.; ***
7.6. PUFFER SPEICHERN ***.;.:RT76.POKE F
LAG5,SET.LDA BOTTOM+1.CMP #$60 ;PU
FFER LEER ?.BNE DKNLEER.MENU1.:DKNLEER.J
SR IOINIT.MOVERAM DISKID,DISKNAM,18 ;NA
ME DER.MOVERAM DISKNAM,URNAME,16 ;ALTEN
DISK.DIALBOX ZIELDISK.LDA R0.CMP #CANCE
L.BNE NZUR.JMP ALTEDISK.:NZUR.OPENDISK.E
RROR OK6,ALTEDISK.:OK6.LOADW $7F40,R5
;ABLAGE FUER FILENAM.POKE $7F40,0.DIALB
OX FILENAME.LDA R0.CMP #CANCEL.BNE NZUR2
.JMP ALTEDISK.:NZUR2.LDY #0.:STRKOPIE.LD
A $7F40,Y.BEQ STRFRT ;NAME VERSCHI
EBEN.JSR ZURWANDELN ;UND ZEICHENCODE W
ANDELN.STA $7F40,Y.INY.JMP STRKOPIE.:STR
FRT.TYA.PHA.DELETE $7F40.PLA.TAY.LDA #44
.STA $7F40,Y ;",S,W".STA $7F40+2,Y.LD
A #83.STA $7F40+1,Y.LDA #87.STA $7F40+3,
Y.TYA.CLC.ADC #4.STA NAMLAENG.POKE FLAG6
,SET ;FLAG FUER DIR-ERROR.TURBOPUR.INITI
O.FOPEN 15,8,15,1,INITSTR.CLOSE 15.SETLF
S 4,8,2 ;FILE AUF DISK OEFFNEN.LDA
NAMLAENG.LDX #<$7F40.LDY #>$7F40.JSR SET
NAM.JSR FOPENR.JMP DRSP.;.; *** 8. TELEF
ONNR. ***.;.:RT8.REDOMENU.
> CLICK IMAGE PREVIEW FOR FULL MODAL