00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 |
00000020: 49 53 53 55 45 20 30 33 20 50 41 47 45 20 31 39 |ISSUE 03 PAGE 19|
00000030: 00 4C 04 0A 00 99 22 42 41 53 49 43 20 34 2E 30 |.L...."BASIC 4.0|
00000040: 20 44 49 53 4B 20 41 50 50 45 4E 44 00 78 04 14 | DISK APPEND.x..|
00000050: 00 99 20 22 54 48 49 53 20 52 4F 55 54 49 4E 45 |.. "THIS ROUTINE|
00000060: 20 57 49 4C 4C 20 41 4C 4C 4F 57 20 41 20 53 55 | WILL ALLOW A SU|
00000070: 42 52 4F 55 54 49 4E 45 00 A5 04 1E 00 99 20 22 |BROUTINE...... "|
00000080: 53 41 56 45 44 20 41 53 20 41 20 50 52 4F 47 52 |SAVED AS A PROGR|
00000090: 41 4D 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 20 |AM FILE ON DISK |
000000A0: 54 4F 20 42 45 00 D2 04 28 00 99 20 22 41 50 50 |TO BE...(.. "APP|
000000B0: 45 4E 44 45 44 20 54 4F 20 41 20 50 52 4F 47 52 |ENDED TO A PROGR|
000000C0: 41 4D 20 49 4E 20 4D 45 4D 4F 52 59 2E 22 20 3A |AM IN MEMORY." :|
000000D0: 20 99 00 FF 04 32 00 99 20 22 54 48 45 20 53 55 | ....2.. "THE SU|
000000E0: 42 52 4F 55 54 49 4E 45 20 4D 55 53 54 20 42 45 |BROUTINE MUST BE|
000000F0: 47 49 4E 20 57 49 54 48 20 41 20 4C 49 4E 45 00 |GIN WITH A LINE.|
00000100: 2B 05 3C 00 99 20 22 4E 55 4D 42 45 52 20 47 52 |+.<.. "NUMBER GR|
00000110: 45 41 54 45 52 20 54 48 41 4E 20 54 48 45 20 4C |EATER THAN THE L|
00000120: 41 53 54 20 4C 49 4E 45 20 4F 46 00 58 05 46 00 |AST LINE OF.X.F.|
00000130: 99 20 22 42 41 53 49 43 20 54 45 58 54 20 49 4E |. "BASIC TEXT IN|
00000140: 20 4D 45 4D 4F 52 59 20 20 20 20 20 20 20 20 20 | MEMORY |
00000150: 20 20 20 22 20 3A 20 99 00 72 05 50 00 99 20 22 | " : ..r.P.. "|
00000160: 41 43 54 49 56 41 54 45 20 57 49 54 48 20 3A 20 |ACTIVATE WITH : |
00000170: 22 3B 00 AB 05 5A 00 87 20 41 44 20 3A 20 8F 20 |";...Z.. AD : . |
00000180: 52 45 50 4C 41 43 45 20 57 49 54 48 20 41 44 3D |REPLACE WITH AD=|
00000190: 3F 3F 3F 20 46 4F 52 20 50 45 52 4D 41 4E 45 4E |??? FOR PERMANEN|
000001A0: 54 20 50 4C 41 43 45 4D 45 4E 54 00 D0 05 64 00 |T PLACEMENT...d.|
000001B0: 81 20 4A B2 30 20 A4 20 35 36 20 3A 20 87 20 58 |. J.0 . 56 : . X|
000001C0: 20 3A 20 97 20 41 44 AA 4A 2C 20 58 20 3A 20 82 | : . AD.J, X : .|
000001D0: 00 FD 05 6E 00 99 20 22 53 59 53 22 20 41 44 3B |...n.. "SYS" AD;|
000001E0: 20 C7 28 33 34 29 20 22 46 49 4C 45 20 4E 41 4D | .(34) "FILE NAM|
000001F0: 45 22 20 C7 28 33 34 29 20 22 2C 38 22 00 20 06 |E" .(34) ",8". .|
00000200: 78 00 8F 20 52 4F 55 54 49 4E 45 20 49 53 20 46 |x.. ROUTINE IS F|
00000210: 55 4C 4C 59 20 52 45 4C 4F 43 41 54 41 42 4C 45 |ULLY RELOCATABLE|
00000220: 00 4F 06 82 00 8F 20 46 49 52 53 54 20 44 41 54 |.O.... FIRST DAT|
00000230: 41 20 45 4C 45 4D 45 4E 54 20 49 53 20 53 54 41 |A ELEMENT IS STA|
00000240: 52 54 20 41 44 44 52 45 53 53 20 28 41 44 29 00 |RT ADDRESS (AD).|
00000250: 7D 06 8C 00 8F 20 52 45 4D 4F 56 45 20 31 30 30 |}.... REMOVE 100|
00000260: 30 20 49 46 20 41 44 20 49 53 20 53 45 54 20 57 |0 IF AD IS SET W|
00000270: 49 54 48 49 4E 20 50 52 4F 47 52 41 4D 00 87 06 |ITHIN PROGRAM...|
00000280: E8 03 83 20 36 33 34 00 B4 06 F2 03 83 20 31 36 |... 634...... 16|
00000290: 39 2C 20 20 20 30 2C 20 31 33 33 2C 20 31 35 37 |9, 0, 133, 157|
000002A0: 2C 20 20 33 32 2C 20 31 32 35 2C 20 32 34 34 2C |, 32, 125, 244,|
000002B0: 20 31 36 39 00 E1 06 FC 03 83 20 20 39 36 2C 20 | 169...... 96, |
000002C0: 31 33 33 2C 20 32 31 31 2C 20 31 36 34 2C 20 32 |133, 211, 164, 2|
000002D0: 30 39 2C 20 32 30 38 2C 20 20 20 33 2C 20 20 37 |09, 208, 3, 7|
000002E0: 36 00 0E 07 06 04 83 20 20 20 30 2C 20 31 39 31 |6...... 0, 191|
000002F0: 2C 20 20 33 32 2C 20 20 37 33 2C 20 32 34 34 2C |, 32, 73, 244,|
00000300: 20 20 33 32 2C 20 31 36 35 2C 20 32 34 34 00 3B | 32, 165, 244.;|
00000310: 07 10 04 83 20 20 33 32 2C 20 32 31 30 2C 20 32 |.... 32, 210, 2|
00000320: 34 30 2C 20 31 36 35 2C 20 32 31 31 2C 20 20 33 |40, 165, 211, 3|
00000330: 32 2C 20 20 36 37 2C 20 32 34 31 00 68 07 1A 04 |2, 67, 241.h...|
00000340: 83 20 20 33 32 2C 20 31 39 32 2C 20 32 34 31 2C |. 32, 192, 241,|
00000350: 20 20 33 32 2C 20 31 39 32 2C 20 32 34 31 2C 20 | 32, 192, 241, |
00000360: 20 35 36 2C 20 31 36 35 00 95 07 24 04 83 20 20 | 56, 165...$.. |
00000370: 34 32 2C 20 32 33 33 2C 20 20 20 32 2C 20 31 33 |42, 233, 2, 13|
00000380: 33 2C 20 32 35 31 2C 20 31 36 35 2C 20 20 34 33 |3, 251, 165, 43|
00000390: 2C 20 32 33 33 00 C2 07 2E 04 83 20 20 20 30 2C |, 233...... 0,|
000003A0: 20 31 33 33 2C 20 32 35 32 2C 20 20 33 32 2C 20 | 133, 252, 32, |
000003B0: 31 34 30 2C 20 32 34 33 2C 20 20 37 36 2C 20 20 |140, 243, 76, |
000003C0: 32 38 00 CD 07 38 04 83 20 20 32 34 34 00 00 00 |28...8.. 244...|
..0.... THE TRANSACTOR VOLUME 4 ISSUE 03
PAGE 19.L...."BASIC 4.0 DISK APPEND.X..
.. "THIS ROUTINE WILL ALLOW A SUBROUTINE
...... "SAVED AS A PROGRAM FILE ON DISK
TO BE.R.(.. "APPENDED TO A PROGRAM IN ME
MORY." : ....2.. "THE SUBROUTINE MUST BE
GIN WITH A LINE.+.<.. "NUMBER GREATER TH
AN THE LAST LINE OF.X.F.. "BASIC TEXT IN
MEMORY " : ..R.P.. "ACTIVATE
WITH : ";...Z.. AD : . REPLACE WITH AD=
??? FOR PERMANENT PLACEMENT.P.D.. J.0 .
56 : . X : . AD.J, X : ....N.. "SYS" AD;
G(34) "FILE NAME" G(34) ",8". .X.. ROUT
INE IS FULLY RELOCATABLE.O.... FIRST DAT
A ELEMENT IS START ADDRESS (AD).}.... RE
MOVE 1000 IF AD IS SET WITHIN PROGRAM...
... 634...... 169, 0, 133, 157, 32, 1
25, 244, 169...... 96, 133, 211, 164, 2
09, 208, 3, 76...... 0, 191, 32,
73, 244, 32, 165, 244.;.... 32, 210, 2
40, 165, 211, 32, 67, 241.H.... 32, 1
92, 241, 32, 192, 241, 56, 165...$..
42, 233, 2, 133, 251, 165, 43, 233.B.
... 0, 133, 252, 32, 140, 243, 76,
28.M.8.. 244...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL