00000000: 01 10 29 10 00 00 8F 20 2A 2A 20 43 4F 50 59 45 |..).... ** COPYE|
00000010: 44 20 49 4E 20 49 54 41 4C 59 20 46 52 4F 4D 20 |D IN ITALY FROM |
00000020: 56 52 4E 20 42 4F 20 2A 2A 00 4A 10 01 00 8F 20 |VRN BO **.J.... |
00000030: 50 4C 55 53 2F 34 20 43 31 36 20 41 55 54 4F 52 |PLUS/4 C16 AUTOR|
00000040: 55 4E 20 55 54 49 4C 49 54 59 00 63 10 02 00 8F |UN UTILITY.c....|
00000050: 20 42 59 3A 20 4D 49 4B 45 20 4B 41 53 5A 55 42 | BY: MIKE KASZUB|
00000060: 53 4B 49 00 78 10 03 00 8F 20 54 45 44 20 55 53 |SKI.x.... TED US|
00000070: 45 52 20 47 52 4F 55 50 00 7E 10 04 00 8F 00 9D |ER GROUP.~......|
00000080: 10 05 00 8F 20 43 52 45 41 54 45 53 20 41 20 46 |.... CREATES A F|
00000090: 49 4C 45 20 54 48 41 54 20 57 49 4C 4C 00 BD 10 |ILE THAT WILL...|
000000A0: 06 00 8F 20 41 55 54 4F 52 55 4E 20 41 20 50 52 |... AUTORUN A PR|
000000B0: 4F 47 52 41 4D 20 4F 4E 20 44 49 53 4B 00 C3 10 |OGRAM ON DISK...|
000000C0: 07 00 8F 00 E9 10 08 00 8F 20 54 48 45 20 41 55 |......... THE AU|
000000D0: 54 4F 52 55 4E 20 46 49 4C 45 20 4D 55 53 54 20 |TORUN FILE MUST |
000000E0: 42 45 20 4C 4F 41 44 45 44 00 09 11 09 00 8F 20 |BE LOADED...... |
000000F0: 57 49 54 48 3A 20 4C 4F 41 44 20 22 46 49 4C 45 |WITH: LOAD "FILE|
00000100: 4E 41 4D 45 22 2C 38 2C 31 00 0F 11 0A 00 8F 00 |NAME",8,1.......|
00000110: 30 11 0B 00 8F 20 41 55 54 4F 52 55 4E 20 46 49 |0.... AUTORUN FI|
00000120: 4C 45 53 20 57 49 4C 4C 20 48 41 56 45 20 41 4E |LES WILL HAVE AN|
00000130: 00 50 11 0C 00 8F 20 2E 41 20 53 55 46 46 49 58 |.P.... .A SUFFIX|
00000140: 20 41 50 50 45 4E 44 45 44 20 54 4F 20 54 48 45 | APPENDED TO THE|
00000150: 00 5F 11 0D 00 8F 20 46 49 4C 45 4E 41 4D 45 00 |._.... FILENAME.|
00000160: 30 12 0E 00 99 22 93 20 50 4C 55 53 2F 34 20 43 |0....". PLUS/4 C|
00000170: 31 36 20 44 49 53 4B 20 41 55 54 4F 52 55 4E 20 |16 DISK AUTORUN |
00000180: 55 54 49 4C 49 54 59 22 3A 99 22 11 46 49 4C 45 |UTILITY":.".FILE|
00000190: 4E 41 4D 45 20 4F 46 20 50 52 4F 47 52 41 4D 20 |NAME OF PROGRAM |
000001A0: 54 4F 20 41 55 54 4F 52 55 4E 22 3A 85 46 24 3A |TO AUTORUN":.F$:|
000001B0: 99 22 11 42 41 53 49 43 20 4F 52 20 4D 4C 20 20 |.".BASIC OR ML |
000001C0: 82 A4 84 9D 22 3B 3A A1 F9 4B 24 3A 81 4C B2 31 |....";:..K$:.L.1|
000001D0: A4 35 3A 52 54 24 B2 52 54 24 AA C7 28 31 33 29 |.5:RT$.RT$..(13)|
000001E0: 3A 82 3A 99 4B 24 3A 53 24 B2 22 2C 38 22 AA 52 |:.:.K$:S$.",8".R|
000001F0: 54 24 AA 22 52 55 4E 22 AA C7 28 31 33 29 3A 8B |T$."RUN"..(13):.|
00000200: 4B 24 B2 22 4D 22 A7 85 22 11 53 59 53 20 41 44 |K$."M"..".SYS AD|
00000210: 44 52 45 53 53 22 3B 53 24 3A 53 24 B2 22 2C 38 |DRESS";S$:S$.",8|
00000220: 2C 31 22 AA 52 54 24 AA 22 53 59 53 22 AA 53 24 |,1".RT$."SYS".S$|
00000230: 00 B4 12 0F 00 81 57 45 B2 30 A4 32 39 3A 87 57 |......WE.0.29:.W|
00000240: 49 3A 44 46 24 B2 44 46 24 AA C7 28 57 49 29 3A |I:DF$.DF$..(WI):|
00000250: 82 3A 42 24 B2 22 93 05 4C CF 22 AA C7 28 33 34 |.:B$."..L."..(34|
00000260: 29 AA 46 24 AA C7 28 33 34 29 AA 53 24 AA C7 28 |).F$..(34).S$..(|
00000270: 31 33 29 AA 44 46 24 AA C7 28 31 33 29 AA C7 28 |13).DF$..(13)..(|
00000280: 30 29 3A 85 22 11 41 55 54 4F 52 55 4E 20 46 49 |0):.".AUTORUN FI|
00000290: 4C 45 4E 41 4D 45 22 3B 41 46 24 3A 8B C3 28 41 |LENAME";AF$:..(A|
000002A0: 46 24 29 B1 31 34 A7 41 46 24 B2 C8 28 41 46 24 |F$).14.AF$..(AF$|
000002B0: 2C 31 34 29 00 65 13 10 00 99 22 11 50 52 45 53 |,14).e....".PRES|
000002C0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 57 52 49 |S ANY KEY TO WRI|
000002D0: 54 45 20 41 55 54 4F 52 55 4E 20 46 49 4C 45 22 |TE AUTORUN FILE"|
000002E0: 3A A1 F9 4B 24 3A 9F 32 2C 38 2C 32 2C 22 40 30 |:..K$:.2,8,2,"@0|
000002F0: 3A 22 AA 41 46 24 AA 22 2C 50 2C 57 22 3A 98 32 |:".AF$.",P,W":.2|
00000300: 2C C7 28 32 29 3B C7 28 33 29 3B C7 28 35 32 29 |,.(2);.(3);.(52)|
00000310: 3B C7 28 33 29 3B 3A 81 41 B2 37 37 32 A4 38 31 |;.(3);:.A.772.81|
00000320: 39 3A 98 32 2C C7 28 C2 28 41 29 29 3B 3A 82 41 |9:.2,.(.(A));:.A|
00000330: 3A 81 41 B2 31 A4 32 34 3A 87 42 3A 98 32 2C C7 |:.A.1.24:.B:.2,.|
00000340: 28 42 29 3B 3A 82 3A 98 32 2C C7 28 33 29 3B 3A |(B);:.:.2,.(3);:|
00000350: 81 41 B2 31 A4 32 30 3A 87 42 3A 98 32 2C C7 28 |.A.1.20:.B:.2,.(|
00000360: 42 29 3B 3A 82 00 8E 13 11 00 81 41 B2 31 A4 C3 |B);:.......A.1..|
00000370: 28 42 24 29 3A 98 32 2C CA 28 42 24 2C 41 2C 31 |(B$):.2,.(B$,A,1|
00000380: 29 3B 3A 82 3A A0 32 3A 8B 44 53 A7 31 39 00 C5 |);:.:.2:.DS.19..|
00000390: 13 12 00 99 22 11 54 4F 20 41 55 54 4F 52 55 4E |....".TO AUTORUN|
000003A0: 3A 20 22 3B 46 24 3A 99 22 11 4C 4F 41 44 20 22 |: ";F$:.".LOAD "|
000003B0: C7 28 33 34 29 41 46 24 C7 28 33 34 29 22 2C 38 |.(34)AF$.(34)",8|
000003C0: 2C 31 22 3A 80 00 81 14 13 00 99 3A 99 44 53 24 |,1":.......:.DS$|
000003D0: 3A 80 3A 83 31 34 34 2C 33 32 2C 33 32 2C 33 32 |:.:.144,32,32,32|
000003E0: 2C 33 32 2C 33 32 2C 33 32 2C 31 38 2C 36 35 2C |,32,32,32,18,65,|
000003F0: 38 35 2C 38 34 2C 37 39 2C 38 32 2C 38 35 2C 37 |85,84,79,82,85,7|
00000400: 38 2C 32 39 2C 36 31 2C 36 32 3A 83 32 39 2C 38 |8,29,61,62:.29,8|
00000410: 36 2C 38 32 2C 37 38 2C 32 39 2C 38 33 2C 37 39 |6,82,78,29,83,79|
00000420: 2C 37 30 2C 38 34 2C 32 39 2C 35 36 2C 35 37 3A |,70,84,29,56,57:|
00000430: 83 31 36 39 2C 31 38 2C 31 34 31 2C 32 2C 33 2C |.169,18,141,2,3,|
00000440: 31 36 39 2C 31 33 35 2C 31 34 31 3A 83 33 2C 33 |169,135,141:.3,3|
00000450: 2C 31 36 30 2C 30 2C 31 38 35 2C 39 37 2C 33 2C |,160,0,185,97,3,|
00000460: 32 34 30 3A 83 36 2C 33 32 2C 32 31 30 2C 32 35 |240:.6,32,210,25|
00000470: 35 2C 32 30 30 2C 32 30 38 2C 32 34 35 2C 31 36 |5,200,208,245,16|
00000480: 30 00 CC 14 14 00 83 31 33 32 2C 32 33 39 2C 31 |0......132,239,1|
00000490: 36 39 2C 31 33 2C 31 35 33 2C 33 39 2C 35 2C 31 |69,13,153,39,5,1|
000004A0: 33 36 3A 83 32 30 38 2C 32 35 30 2C 31 36 39 2C |36:.208,250,169,|
000004B0: 31 39 2C 31 34 31 2C 33 39 2C 35 2C 31 36 32 3A |19,141,39,5,162:|
000004C0: 83 31 32 38 2C 31 30 38 2C 30 2C 33 00 00 00 |.128,108,0,3... |
..).... ** COPYED IN ITALY FROM VRN BO *
*.J.... PLUS/4 C16 AUTORUN UTILITY.C....
BY: MIKE KASZUBSKI.X.... TED USER GROUP
.~.......... CREATES A FILE THAT WILL...
... AUTORUN A PROGRAM ON DISK.C.........
. THE AUTORUN FILE MUST BE LOADED......
WITH: LOAD "FILENAME",8,1.......0.... AU
TORUN FILES WILL HAVE AN.P.... .A SUFFIX
APPENDED TO THE._.... FILENAME.0....".
PLUS/4 C16 DISK AUTORUN UTILITY":.".FILE
NAME OF PROGRAM TO AUTORUN":.F$:.".BASIC
OR ML ....";:..K$:.L.1.5:RT$.RT$.G(13)
:.:.K$:S$.",8".RT$."RUN".G(13):.K$."M"..
".SYS ADDRESS";S$:S$.",8,1".RT$."SYS".S$
......WE.0.29:.WI:DF$.DF$.G(WI):.:B$."..
LO".G(34).F$.G(34).S$.G(13).DF$.G(13).G(
0):.".AUTORUN FILENAME";AF$:.C(AF$).14.A
F$.H(AF$,14).E....".PRESS ANY KEY TO WRI
TE AUTORUN FILE":..K$:.2,8,2,"@0:".AF$."
,P,W":.2,G(2);G(3);G(52);G(3);:.A.772.81
9:.2,G(B(A));:.A:.A.1.24:.B:.2,G(B);:.:.
2,G(3);:.A.1.20:.B:.2,G(B);:.......A.1.C
(B$):.2,J(B$,A,1);:.: 2:.DS.19.E....".TO
AUTORUN: ";F$:.".LOAD "G(34)AF$G(34)",8
,1":.......:.DS$:.:.144,32,32,32,32,32,3
2,18,65,85,84,79,82,85,78,29,61,62:.29,8
6,82,78,29,83,79,70,84,29,56,57:.169,18,
141,2,3,169,135,141:.3,3,160,0,185,97,3,
240:.6,32,210,255,200,208,245,160.L....1
32,239,169,13,153,39,5,136:.208,250,169,
19,141,39,5,162:.128,108,0,3...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL