GOTO X.SRC
FILE INFORMATION
FILENAME(S): GOTO X.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-02 16:54:23
APPEARS ON: 2 disk(s)
FILE HASH
4511ae54249faebfa3d3f11d224c146a177df8a57e80bcf59e0bba0f9b8ae58f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10111 SEITE A | GOTO X.SRC | PRG | Treasure Chest - Reamigation | 32 | 9 | DOWNLOAD FILE |
| 10111 SEITE A | GOTO X.SRC | PRG | C64er, Treasure Chest - ToGuMi | 32 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 0A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |......;*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 24 20 14 00 3B 2A 2A 2A |*******.$ ..;***| 00000030: 2A 2A 20 20 20 C7 20 20 CF 20 20 D4 20 20 CF 20 |** . . . . | 00000040: 20 20 20 20 D8 20 20 20 2A 2A 2A 2A 2A 00 4A 20 | . *****.J | 00000050: 1E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 00 70 20 28 00 3B 2A 2A 2A 2A 2A 20 57 |***.p (.;***** W| 00000080: 52 49 54 54 45 4E 20 4F 4E 20 32 38 2F 36 2F 31 |RITTEN ON 28/6/1| 00000090: 39 39 31 20 2A 2A 2A 2A 2A 00 96 20 32 00 3B 2A |991 *****.. 2.;*| 000000A0: 2A 2A 2A 2A 20 42 59 20 C2 45 52 4E 48 41 52 44 |**** BY .ERNHARD| 000000B0: 20 C7 4C 4F 4D 41 4E 4E 20 20 2A 2A 2A 2A 2A 00 | .LOMANN *****.| 000000C0: BC 20 3C 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. <.;***********| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 00 E2 20 3F 00 3B 2A 2A 2A 2A 2A |*****.. ?.;*****| 000000F0: 20 D3 20 D0 20 C5 20 C3 20 C9 20 C1 20 CC 2D D6 | . . . . . . .-.| 00000100: 45 52 53 49 4F 4E 2A 2A 2A 2A 2A 00 08 21 41 00 |ERSION*****..!A.| 00000110: 3B 2A 2A 2A 2A 2A 20 28 4E 55 52 20 33 34 20 C2 |;***** (NUR 34 .| 00000120: 59 54 45 53 29 20 20 20 20 20 20 20 2A 2A 2A 2A |YTES) ****| 00000130: 2A 00 2E 21 43 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..!C.;*********| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000150: 2A 2A 2A 2A 2A 2A 2A 00 34 21 46 00 3B 00 82 21 |*******.4!F.;..!| 00000160: 50 00 2E 42 41 20 24 43 46 34 46 20 20 20 20 20 |P..BA $CF4F | 00000170: 20 20 20 20 3B 49 53 54 20 53 4F 20 47 45 57 41 | ;IST SO GEWA| 00000180: 45 48 4C 54 2C 20 44 41 53 53 20 47 45 54 57 52 |EHLT, DASS GETWR| 00000190: 44 20 42 45 49 20 24 43 46 36 42 20 5A 55 20 4C |D BEI $CF6B ZU L| 000001A0: 49 45 47 45 4E 20 4B 4F 4D 4D 54 00 9A 21 5A 00 |IEGEN KOMMT..!Z.| 000001B0: 2E 4F 42 20 22 47 4F 54 4F 20 58 20 56 32 2C 50 |.OB "GOTO X V2,P| 000001C0: 2C 57 22 00 A0 21 E8 03 3B 00 B4 21 F2 03 3B 2A |,W"..!..;..!..;*| 000001D0: 2A 2A 20 CC 41 42 45 4C 53 20 2A 2A 2A 00 BA 21 |** .ABELS ***..!| 000001E0: FC 03 3B 00 CF 21 06 04 2E 47 4C 20 43 4F 50 59 |..;..!...GL COPY| 000001F0: 20 3D 20 24 41 33 45 38 00 E7 21 10 04 2E 47 4C | = $A3E8..!...GL| 00000200: 20 43 48 41 4E 47 45 31 20 3D 20 24 41 38 41 31 | CHANGE1 = $A8A1| 00000210: 00 FF 21 1A 04 2E 47 4C 20 43 48 41 4E 47 45 32 |..!...GL CHANGE2| 00000220: 20 3D 20 24 41 39 36 33 00 16 22 24 04 2E 47 4C | = $A963.."$..GL| 00000230: 20 46 52 4D 4E 55 4D 20 3D 20 24 41 44 38 41 00 | FRMNUM = $AD8A.| 00000240: 2D 22 2E 04 2E 47 4C 20 46 41 43 57 52 44 20 3D |-"...GL FACWRD =| 00000250: 20 24 42 37 46 37 00 33 22 10 27 3B 00 50 22 1A | $B7F7.3".';.P".| 00000260: 27 3B 2A 2A 2A 20 C9 4E 49 54 49 41 4C 49 53 49 |';*** .NITIALISI| 00000270: 45 52 55 4E 47 20 2A 2A 2A 00 56 22 24 27 3B 00 |ERUNG ***.V"$';.| 00000280: 92 22 2E 27 20 53 54 41 24 35 38 3B 49 4E 20 CC |.".' STA$58;IN .| 00000290: 4F 2D C2 59 54 45 53 20 44 45 52 20 DA 45 49 47 |O-.YTES DER .EIG| 000002A0: 45 52 20 44 45 4E 53 45 4C 42 45 4E 20 D7 45 52 |ER DENSELBEN .ER| 000002B0: 54 20 53 43 48 52 45 49 42 45 4E 00 CD 22 38 27 |T SCHREIBEN.."8'| 000002C0: 20 53 54 41 24 35 41 3B 57 45 4C 43 48 45 52 2C | STA$5A;WELCHER,| 000002D0: 20 49 53 54 20 45 47 41 4C 2C 20 44 41 20 47 52 | IST EGAL, DA GR| 000002E0: 4F 53 53 5A 55 45 47 49 47 20 4B 4F 50 49 45 52 |OSSZUEGIG KOPIER| 000002F0: 54 20 57 49 52 44 00 F6 22 42 27 20 4C 44 41 23 |T WIRD.."B' LDA#| 00000300: 3E 28 24 43 30 30 30 29 3B C8 49 2D C2 59 54 45 |>($C000);.I-.YTE| 00000310: 20 44 45 52 20 C5 4E 44 41 44 52 45 53 53 45 00 | DER .NDADRESSE.| 00000320: 1D 23 4C 27 20 53 54 41 24 35 39 3B 49 4E 20 DA |.#L' STA$59;IN .| 00000330: 45 49 47 45 52 20 46 55 45 52 20 DA 49 45 4C 42 |EIGER FUER .IELB| 00000340: 45 52 45 49 43 48 00 53 23 56 27 20 53 54 41 24 |EREICH.S#V' STA$| 00000350: 35 42 3B 55 4E 44 20 49 4E 20 DA 45 49 47 45 52 |5B;UND IN .EIGER| 00000360: 20 46 55 45 52 20 D1 55 45 4C 4C 42 45 52 45 49 | FUER .UELLBEREI| 00000370: 43 48 20 53 43 48 52 45 49 42 45 4E 00 87 23 60 |CH SCHREIBEN..#`| 00000380: 27 20 4C 44 58 23 33 34 3B C1 4E 5A 41 48 4C 20 |' LDX#34;.NZAHL | 00000390: 44 45 52 20 D0 41 47 45 53 20 28 47 52 4F 53 53 |DER .AGES (GROSS| 000003A0: 5A 55 45 47 49 47 20 47 45 57 41 45 48 4C 54 2C |ZUEGIG GEWAEHLT,| 000003B0: 00 BD 23 6A 27 3B 44 41 20 D9 2D D2 45 47 49 53 |..#j';DA .-.EGIS| 000003C0: 54 45 52 20 55 4E 44 20 CC 4F 2D C2 59 54 45 53 |TER UND .O-.YTES| 000003D0: 20 44 45 52 20 DA 45 49 47 45 52 20 55 4E 42 45 | DER .EIGER UNBE| 000003E0: 4B 41 4E 4E 54 29 00 E6 23 74 27 20 4A 53 52 43 |KANNT)..#t' JSRC| 000003F0: 4F 50 59 3B 49 4E 20 C2 CC D4 D5 C3 2D D2 4F 55 |OPY;IN .....-.OU| 00000400: 54 49 4E 45 20 45 49 4E 53 54 45 49 47 45 4E 00 |TINE EINSTEIGEN.| 00000410: 22 24 9C 27 20 4C 44 41 23 3E 28 47 45 54 57 52 |"$.' LDA#>(GETWR| 00000420: 44 29 3B C8 49 2D C2 59 54 45 20 44 45 52 20 4E |D);.I-.YTE DER N| 00000430: 45 55 45 4E 20 C7 CF D4 CF 2D D0 41 52 41 4D 45 |EUEN ....-.ARAME| 00000440: 54 45 52 2D D2 4F 55 54 49 4E 45 00 56 24 A6 27 |TER-.OUTINE.V$.'| 00000450: 20 53 54 41 43 48 41 4E 47 45 31 2B 31 3B 49 4E | STACHANGE1+1;IN| 00000460: 20 C7 CF D4 CF 2D 20 55 4E 44 20 CF CE 2D D2 4F | ....- UND ..-.O| 00000470: 55 54 49 4E 45 20 53 43 48 52 45 49 42 45 4E 00 |UTINE SCHREIBEN.| 00000480: 80 24 B0 27 20 53 54 41 43 48 41 4E 47 45 32 2B |.$.' STACHANGE2+| 00000490: 31 3B 28 CC 4F 2D C2 59 54 45 20 42 4C 45 49 42 |1;(.O-.YTE BLEIB| 000004A0: 54 20 47 4C 45 49 43 48 29 00 B7 24 BA 27 20 4C |T GLEICH)..$.' L| 000004B0: 44 41 23 24 33 36 3B 41 55 46 20 C2 C1 D3 C9 C3 |DA#$36;AUF .....| 000004C0: 2D D2 CF CD 20 41 55 53 2C 20 C9 2F CF 20 45 49 |-... AUS, ./. EI| 000004D0: 4E 20 55 4E 44 20 CB 45 52 4E 41 4C 20 45 49 4E |N UND .ERNAL EIN| 000004E0: 00 CE 24 C4 27 20 53 54 41 24 30 31 3B 55 4D 53 |..$.' STA$01;UMS| 000004F0: 43 48 41 4C 54 45 4E 00 E3 24 CE 27 20 52 54 53 |CHALTEN..$.' RTS| 00000500: 3B D2 55 45 43 4B 53 50 52 55 4E 47 00 E9 24 20 |;.UECKSPRUNG..$ | 00000510: 4E 3B 00 0F 25 2A 4E 3B 2A 2A 2A 20 CE 45 55 45 |N;..%*N;*** .EUE| 00000520: 20 C7 CF D4 CF 2D D0 41 52 41 4D 45 54 45 52 2D | ....-.ARAMETER-| 00000530: C1 55 53 2D 20 2A 2A 2A 00 35 25 34 4E 3B 2A 2A |.US- ***.5%4N;**| 00000540: 2A 20 57 45 52 54 55 4E 47 53 2D D2 4F 55 54 49 |* WERTUNGS-.OUTI| 00000550: 4E 45 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 3B |NE ***.;| 00000560: 25 3E 4E 3B 00 72 25 48 4E 47 45 54 57 52 44 20 |%>N;.r%HNGETWRD | 00000570: 4A 53 52 46 52 4D 4E 55 4D 3B 4E 55 4D 45 52 49 |JSRFRMNUM;NUMERI| 00000580: 53 43 48 45 4E 20 C1 55 53 44 52 55 43 4B 20 49 |SCHEN .USDRUCK I| 00000590: 4E 20 C6 C1 C3 20 48 4F 4C 45 4E 00 9E 25 52 4E |N ... HOLEN..%RN| 000005A0: 20 4A 4D 50 46 41 43 57 52 44 3B 55 4E 44 20 49 | JMPFACWRD;UND I| 000005B0: 4E 20 C9 4E 54 45 47 45 52 5A 41 48 4C 20 55 4D |N .NTEGERZAHL UM| 000005C0: 57 41 4E 44 45 4C 4E 00 A4 25 CE F9 3B 00 B6 25 |WANDELN..%..;..%| 000005D0: D8 F9 3B 2A 2A 2A 20 C5 4E 44 45 20 2A 2A 2A 00 |..;*** .NDE ***.| 000005E0: BC 25 E2 F9 3B 00 C4 25 EC F9 2E 45 4E 00 CA 25 |.%..;..%...EN..%| 000005F0: F6 F9 3B 00 00 00 |..;... |
X.....;********************************. $ ..;***** G O T O X *****.J ..;********************************.P (. ;***** WRITTEN ON 28/6/1991 *****.. 2.;* **** BY BERNHARD GLOMANN *****.. <.;*** *****************************.. ?.;***** S P E C I A L-VERSION*****..!A.;***** ( NUR 34 BYTES) *****..!C.;********* ***********************.4!F.;..!P..BA $C F4F ;IST SO GEWAEHLT, DASS GETWR D BEI $CF6B ZU LIEGEN KOMMT..!Z..OB "GOT O X V2,P,W". !..;..!..;*** LABELS ***..! ..;.O!...GL COPY = $A3E8..!...GL CHANGE1 = $A8A1..!...GL CHANGE2 = $A963.."$..GL FRMNUM = $AD8A.-"...GL FACWRD = $B7F7.3 ".';.P".';*** INITIALISIERUNG ***.V"$';. .".' STA$58;IN LO-BYTES DER ZEIGER DENSE LBEN WERT SCHREIBEN.M"8' STA$5A;WELCHER, IST EGAL, DA GROSSZUEGIG KOPIERT WIRD.. "B' LDA#>($C000);HI-BYTE DER ENDADRESSE. .#L' STA$59;IN ZEIGER FUER ZIELBEREICH.S #V' STA$5B;UND IN ZEIGER FUER QUELLBEREI CH SCHREIBEN..#`' LDX#34;ANZAHL DER PAGE S (GROSSZUEGIG GEWAEHLT,..#J';DA Y-REGIS TER UND LO-BYTES DER ZEIGER UNBEKANNT).. #T' JSRCOPY;IN BLTUC-ROUTINE EINSTEIGEN. "$.' LDA#>(GETWRD);HI-BYTE DER NEUEN GOT O-PARAMETER-ROUTINE.V$.' STACHANGE1+1;IN GOTO- UND ON-ROUTINE SCHREIBEN..$.' STA CHANGE2+1;(LO-BYTE BLEIBT GLEICH)..$.' L DA#$36;AUF BASIC-ROM AUS, I/O EIN UND KE RNAL EIN.N$D' STA$01;UMSCHALTEN..$N' RTS ;RUECKSPRUNG..$ N;..%*N;*** NEUE GOTO-PA RAMETER-AUS- ***.5%4N;*** WERTUNGS-ROUTI NE ***.;%>N;.R%HNGETWRD JSRFRMNU M;NUMERISCHEN AUSDRUCK IN FAC HOLEN..%RN JMPFACWRD;UND IN INTEGERZAHL UMWANDELN. .%N.;..%X.;*** ENDE ***..%..;.D%...EN.J% ..;...
> CLICK IMAGE PREVIEW FOR FULL MODAL