MOVE.SEQ.TO.DISK
FILE INFORMATION
FILENAME(S): MOVE.SEQ.TO.DISK
FILE TYPE(S): DEL, PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 16:59:23
APPEARS ON: 3 disk(s)
FILE HASH
f0fdfa404e0419e88d82bcc4f13c03dc8331090538dabbef1c4741f66a963222
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SUBZERO | MOVE.SEQ.TO.DISK | DEL | High Voltage Complete C64 Collection | 19 | 0 | DOWNLOAD FILE |
| RECIPE | MOVE.SEQ.TO.DISK | PRG | High Voltage Complete C64 Collection | 19 | 0 | DOWNLOAD FILE |
| TALENTED RULERZ | MOVE.SEQ.TO.DISK | PRG | High Voltage Complete C64 Collection | 6 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 29 1C E8 03 8F 20 43 20 3D 20 43 55 52 52 |..).... C = CURR| 00000010: 45 4E 54 20 23 20 43 48 41 52 41 43 54 45 52 53 |ENT # CHARACTERS| 00000020: 20 49 4E 20 42 4C 4F 43 4B 00 4A 1C F2 03 8F 20 | IN BLOCK.J.... | 00000030: 4E 43 20 3D 20 23 43 48 41 52 41 43 54 45 52 53 |NC = #CHARACTERS| 00000040: 20 49 4E 20 52 45 43 49 50 45 00 6C 1C FC 03 8F | IN RECIPE.l....| 00000050: 20 4E 42 20 3D 20 54 4F 54 41 4C 20 23 20 42 4C | NB = TOTAL # BL| 00000060: 4F 43 4B 53 20 54 4F 20 44 41 54 45 00 8C 1C 06 |OCKS TO DATE....| 00000070: 04 8F 20 41 24 20 3D 20 43 55 52 52 45 4E 54 20 |.. A$ = CURRENT | 00000080: 49 4E 50 55 54 20 53 54 52 49 4E 47 00 A1 1C 10 |INPUT STRING....| 00000090: 04 8F 20 42 24 20 3D 20 53 55 4D 20 4F 46 20 41 |.. B$ = SUM OF A| 000000A0: 24 00 BC 1C 1A 04 8F 20 43 52 24 3D 20 43 41 52 |$...... CR$= CAR| 000000B0: 52 49 41 47 45 20 52 45 54 55 52 4E 00 DB 1C 24 |RIAGE RETURN...$| 000000C0: 04 8F 20 46 24 20 3D 20 41 4C 4C 20 42 24 27 53 |.. F$ = ALL B$'S| 000000D0: 20 49 4E 20 41 20 42 4C 4F 43 4B 00 F9 1C 2E 04 | IN A BLOCK.....| 000000E0: 8F 20 54 59 24 3D 20 54 59 50 45 20 4F 46 20 44 |. TY$= TYPE OF D| 000000F0: 49 53 4B 20 44 52 49 56 45 00 24 1D 38 04 8F 20 |ISK DRIVE.$.8.. | 00000100: 43 43 20 3D 20 50 4F 49 4E 54 45 52 20 4F 46 20 |CC = POINTER OF | 00000110: 42 24 20 53 54 52 49 4E 47 53 20 50 45 52 20 42 |B$ STRINGS PER B| 00000120: 4C 4F 43 4B 00 3E 1D 42 04 8F 20 4E 24 20 3D 20 |LOCK.>.B.. N$ = | 00000130: 4E 41 4D 45 20 4F 46 20 52 45 43 49 50 45 00 64 |NAME OF RECIPE.d| 00000140: 1D 4C 04 8F 20 4E 54 20 3D 20 23 20 42 4C 4F 43 |.L.. NT = # BLOC| 00000150: 4B 53 20 45 41 43 48 20 52 45 43 49 50 45 20 54 |KS EACH RECIPE T| 00000160: 41 4B 45 53 00 82 1D 56 04 8F 20 4E 53 20 3D 20 |AKES...V.. NS = | 00000170: 53 54 41 52 54 20 4E 42 20 4F 46 20 52 45 43 49 |START NB OF RECI| 00000180: 50 45 00 A3 1D 60 04 8F 20 54 54 20 3D 20 53 54 |PE...`.. TT = ST| 00000190: 41 52 54 20 54 52 41 43 4B 20 4F 46 20 52 45 43 |ART TRACK OF REC| 000001A0: 49 50 45 00 C5 1D 6A 04 8F 20 53 53 20 3D 20 53 |IPE...j.. SS = S| 000001B0: 54 41 52 54 20 53 45 43 54 4F 52 20 4F 46 20 52 |TART SECTOR OF R| 000001C0: 45 43 49 50 45 00 EA 1D 74 04 8F 20 44 49 20 3D |ECIPE...t.. DI =| 000001D0: 20 44 52 49 56 45 20 54 4F 20 48 41 56 45 20 52 | DRIVE TO HAVE R| 000001E0: 45 43 49 50 45 20 44 41 54 41 00 0C 1E 7E 04 8F |ECIPE DATA...~..| 000001F0: 20 44 4A 20 3D 20 44 52 49 56 45 20 57 2E 20 53 | DJ = DRIVE W. S| 00000200: 45 51 20 44 41 54 41 20 46 49 4C 45 00 2E 1E 88 |EQ DATA FILE....| 00000210: 04 8F 20 44 4A 20 20 20 41 4C 53 4F 20 48 41 53 |.. DJ ALSO HAS| 00000220: 20 52 41 57 20 44 41 54 41 20 46 49 4C 45 00 4B | RAW DATA FILE.K| 00000230: 1E 92 04 8F 20 44 4B 20 3D 20 44 49 53 4B 20 23 |.... DK = DISK #| 00000240: 20 46 4F 52 20 52 45 43 49 50 45 00 70 1E 9C 04 | FOR RECIPE.p...| 00000250: 8F 20 44 4C 20 3D 20 44 49 53 4B 23 20 46 4F 52 |. DL = DISK# FOR| 00000260: 20 4D 41 53 54 45 52 20 53 45 51 20 44 41 54 41 | MASTER SEQ DATA| 00000270: 00 87 1E A6 04 8F 20 46 49 4C 45 53 20 4C 4F 4F |...... FILES LOO| 00000280: 4B 20 4C 49 4B 45 3B 00 96 1E B0 04 8F 20 40 40 |K LIKE;...... @@| 00000290: 40 40 40 40 40 40 00 AA 1E BA 04 8F 20 52 45 43 |@@@@@@...... REC| 000002A0: 49 50 45 20 54 45 58 54 20 31 00 B9 1E C4 04 8F |IPE TEXT 1......| 000002B0: 20 40 40 40 40 40 40 40 40 00 CD 1E CE 04 8F 20 | @@@@@@@@...... | 000002C0: 52 45 43 49 50 45 20 54 45 58 54 20 32 00 DC 1E |RECIPE TEXT 2...| 000002D0: D8 04 8F 20 40 40 40 40 40 40 40 40 00 F6 1E E2 |... @@@@@@@@....| 000002E0: 04 8F 20 52 45 43 49 50 45 20 54 45 58 54 20 33 |.. RECIPE TEXT 3| 000002F0: 2C 20 45 54 43 2E 00 05 1F EC 04 8F 20 40 40 40 |, ETC....... @@@| 00000300: 40 40 40 40 40 00 2B 1F F6 04 99 20 C7 28 31 34 |@@@@@.+.... .(14| 00000310: 29 3A 99 22 C4 49 53 4B 20 44 52 49 56 45 20 23 |):.".ISK DRIVE #| 00000320: 20 54 48 41 54 20 D7 C9 CC CC 22 00 66 1F 00 05 | THAT ....".f...| 00000330: 85 22 48 41 56 45 20 52 45 43 49 50 45 53 20 44 |."HAVE RECIPES D| 00000340: 55 4D 50 45 44 20 54 4F 20 49 54 2E 22 3B 44 49 |UMPED TO IT.";DI| 00000350: 3A 8B 20 44 49 B3 38 20 B0 20 44 49 B1 33 30 20 |:. DI.8 . DI.30 | 00000360: A7 20 31 32 37 30 00 7F 1F 0A 05 86 20 54 5A 24 |. 1270...... TZ$| 00000370: 28 33 29 2C 4C 42 28 33 29 2C 48 42 28 33 29 00 |(3),LB(3),HB(3).| 00000380: A0 1F 14 05 81 49 B2 31 A4 33 3A 87 54 5A 24 28 |.....I.1.3:.TZ$(| 00000390: 49 29 2C 4C 42 28 49 29 2C 48 42 28 49 29 3A 82 |I),LB(I),HB(I):.| 000003A0: 00 B5 1F 1E 05 83 20 22 31 35 38 31 22 2C 32 33 |...... "1581",23| 000003B0: 33 2C 31 36 36 00 CA 1F 28 05 83 20 22 31 35 37 |3,166...(.. "157| 000003C0: 31 22 2C 31 39 38 2C 32 32 39 00 DF 1F 32 05 83 |1",198,229...2..| 000003D0: 20 22 31 35 34 31 22 2C 31 39 38 2C 32 32 39 00 | "1541",198,229.| 000003E0: F4 1F 3C 05 9F 31 35 2C 44 49 2C 31 35 3A 81 4A |..<..15,DI,15:.J| 000003F0: B2 31 A4 33 00 16 20 46 05 98 31 35 2C 22 4D 2D |.1.3.. F..15,"M-| 00000400: 52 22 C7 28 4C 42 28 4A 29 29 C7 28 48 42 28 4A |R".(LB(J)).(HB(J| 00000410: 29 29 C7 28 31 29 00 44 20 50 05 A1 23 31 35 2C |)).(1).D P..#15,| 00000420: 58 24 3A 8B 58 24 B2 CA 28 54 5A 24 28 4A 29 2C |X$:.X$..(TZ$(J),| 00000430: 33 2C 31 29 A7 54 59 24 B2 54 5A 24 28 4A 29 3A |3,1).TY$.TZ$(J):| 00000440: 99 54 59 24 00 50 20 5A 05 82 3A 99 3A A0 31 35 |.TY$.P Z..:.:.15| 00000450: 00 92 20 64 05 99 22 CE 41 4D 45 20 4F 46 20 4D |.. d..".AME OF M| 00000460: 41 53 54 45 52 20 53 45 51 55 45 4E 54 49 41 4C |ASTER SEQUENTIAL| 00000470: 20 44 41 54 41 20 46 49 4C 45 22 3A 99 22 54 4F | DATA FILE":."TO| 00000480: 20 42 45 20 43 52 45 41 54 45 44 22 3A 85 20 44 | BE CREATED":. D| 00000490: 41 24 00 CE 20 6E 05 99 22 C4 49 53 4B 20 44 52 |A$.. n..".ISK DR| 000004A0: 49 56 45 20 4E 4F 2E 20 46 4F 52 20 41 42 4F 56 |IVE NO. FOR ABOV| 000004B0: 45 22 3B 3A 85 20 44 4C 3A 8B 20 44 4C B3 38 20 |E";:. DL:. DL.8 | 000004C0: B0 20 44 4C B1 33 30 20 A7 20 31 33 39 30 00 0E |. DL.30 . 1390..| 000004D0: 21 78 05 99 22 C4 49 53 4B 20 44 52 49 56 45 20 |!x..".ISK DRIVE | 000004E0: 4E 4F 2E 20 54 48 41 54 20 48 41 53 20 44 41 54 |NO. THAT HAS DAT| 000004F0: 41 20 54 4F 22 3A 99 22 42 45 20 4D 4F 56 45 44 |A TO":."BE MOVED| 00000500: 20 54 4F 20 44 52 49 56 45 20 22 3B 44 49 00 2D | TO DRIVE ";DI.-| 00000510: 21 82 05 85 20 44 4A 3A 8B 20 44 4A B3 38 20 B0 |!... DJ:. DJ.8 .| 00000520: 20 44 4A B1 33 30 20 A7 20 31 34 30 30 00 6F 21 | DJ.30 . 1400.o!| 00000530: 8C 05 99 22 CE 41 4D 45 20 4F 46 20 53 45 51 55 |...".AME OF SEQU| 00000540: 45 4E 54 49 41 4C 20 46 49 4C 45 20 54 4F 20 42 |ENTIAL FILE TO B| 00000550: 45 20 4D 4F 56 45 44 22 3A 99 22 46 52 4F 4D 20 |E MOVED":."FROM | 00000560: 44 49 53 4B 20 22 3B 44 4A 3A 85 20 44 42 24 00 |DISK ";DJ:. DB$.| 00000570: 86 21 96 05 A0 32 3A 43 52 24 B2 C7 28 31 33 29 |.!...2:CR$..(13)| 00000580: 3A 99 22 93 22 3B 00 B2 21 A0 05 86 20 46 24 28 |:.".";..!... F$(| 00000590: 31 30 30 29 3A 4E 54 B2 30 3A 9F 32 2C 44 4A 2C |100):NT.0:.2,DJ,| 000005A0: 32 2C 22 40 30 3A 22 AA 44 42 24 AA 22 2C 53 2C |2,"@0:".DB$.",S,| 000005B0: 52 22 00 CF 21 AA 05 9F 37 2C 44 4C 2C 37 2C 22 |R"..!...7,DL,7,"| 000005C0: 40 30 3A 22 AA 44 41 24 AA 22 2C 53 2C 57 22 00 |@0:".DA$.",S,W".| 000005D0: EC 21 B4 05 44 4B B2 31 3A 85 22 C4 41 54 41 20 |.!..DK.1:.".ATA | 000005E0: 44 49 53 4B 20 4E 4F 2E 22 3B 44 4B 00 27 22 BE |DISK NO.";DK.'".| 000005F0: 05 4E 42 B2 31 3A 85 22 D3 54 41 52 54 49 4E 47 |.NB.1:.".TARTING| 00000600: 20 42 4C 4F 43 4B 20 23 20 28 45 4E 54 45 52 20 | BLOCK # (ENTER | 00000610: 31 20 49 46 20 55 4E 53 55 52 45 22 3B 4E 42 3A |1 IF UNSURE";NB:| 00000620: 4E 42 B2 4E 42 AB 31 00 42 22 C8 05 4E 54 B2 31 |NB.NB.1.B"..NT.1| 00000630: 3A 45 44 B2 30 3A 4E 43 B2 31 3A 4E 42 B2 4E 42 |:ED.0:NC.1:NB.NB| 00000640: AA 31 00 7C 22 D2 05 A1 23 32 2C 41 24 3A 8B 41 |.1.|"...#2,A$:.A| 00000650: 24 B2 22 40 22 20 A7 20 31 34 39 30 3A 8F 20 54 |$."@" . 1490:. T| 00000660: 45 52 4D 49 4E 41 54 45 53 20 4F 4E 20 43 41 52 |ERMINATES ON CAR| 00000670: 52 49 41 47 45 20 52 45 54 55 52 4E 00 A5 22 DC |RIAGE RETURN..".| 00000680: 05 8B 20 53 54 B3 B1 30 20 A7 20 99 22 53 54 4F |.. ST..0 . ."STO| 00000690: 50 20 41 54 20 42 4C 4F 43 4B 20 22 3B 4E 42 3A |P AT BLOCK ";NB:| 000006A0: 89 31 38 39 30 00 B8 22 E6 05 42 24 B2 22 22 3A |.1890.."..B$."":| 000006B0: 43 B2 31 3A 43 43 B2 31 00 D2 22 F0 05 84 32 2C |C.1:CC.1.."...2,| 000006C0: 41 24 3A 4E 24 B2 41 24 3A 43 B2 C3 28 41 24 29 |A$:N$.A$:C..(A$)| 000006D0: AA 31 00 DD 22 FA 05 8D 20 31 37 35 30 00 02 23 |.1.."... 1750..#| 000006E0: 04 06 54 54 B2 54 31 3A 53 53 B2 53 31 3A 4E 53 |..TT.T1:SS.S1:NS| 000006F0: B2 4E 42 3A 8F 20 53 54 41 52 54 20 4F 46 20 52 |.NB:. START OF R| 00000700: 45 43 00 29 23 0E 06 99 20 4E 24 3A 46 24 28 31 |EC.)#... N$:F$(1| 00000710: 29 B2 4E 24 3A 46 24 28 32 29 B2 43 52 24 3A 43 |).N$:F$(2).CR$:C| 00000720: B2 43 AA 31 3A 43 43 B2 33 00 47 23 18 06 A1 23 |.C.1:CC.3.G#...#| 00000730: 32 2C 41 24 3A 8B 41 24 B2 22 40 22 A7 45 44 B2 |2,A$:.A$."@".ED.| 00000740: 31 3A 89 31 36 31 30 00 70 23 22 06 8B 20 53 54 |1:.1610.p#".. ST| 00000750: B3 B1 30 20 A7 20 99 22 53 54 4F 50 20 41 54 20 |..0 . ."STOP AT | 00000760: 42 4C 4F 43 4B 20 22 3B 4E 42 3A 89 31 38 39 30 |BLOCK ";NB:.1890| 00000770: 00 9C 23 2C 06 43 B2 43 AA 31 3A 4E 43 B2 4E 43 |..#,.C.C.1:NC.NC| 00000780: AA 31 3A 42 24 B2 42 24 AA 41 24 3A 8B 20 43 20 |.1:B$.B$.A$:. C | 00000790: B1 20 32 35 34 20 A7 20 31 36 31 30 00 C4 23 36 |. 254 . 1610..#6| 000007A0: 06 8B 20 41 24 B2 C7 28 31 33 29 A7 20 46 24 28 |.. A$..(13). F$(| 000007B0: 43 43 29 B2 42 24 3A 43 43 B2 43 43 AA 31 3A 42 |CC).B$:CC.CC.1:B| 000007C0: 24 B2 22 22 00 CE 23 40 06 89 31 35 36 30 00 F0 |$.""..#@..1560..| 000007D0: 23 4A 06 46 24 28 43 43 29 B2 42 24 3A 81 58 B2 |#J.F$(CC).B$:.X.| 000007E0: 31 A4 43 43 3A 99 20 46 24 28 58 29 3B 3A 82 58 |1.CC:. F$(X);:.X| 000007F0: 00 02 24 54 06 8D 20 31 37 35 30 3A 8D 20 31 36 |..$T.. 1750:. 16| 00000800: 39 30 00 34 24 5E 06 8B 20 45 44 B2 30 20 A7 20 |90.4$^.. ED.0 . | 00000810: 4E 54 B2 4E 54 AA 31 3A 4E 42 B2 4E 42 AA 31 3A |NT.NT.1:NB.NB.1:| 00000820: 42 24 B2 22 22 3A 43 B2 31 3A 43 43 B2 31 3A 89 |B$."":C.1:CC.1:.| 00000830: 31 35 36 30 00 5A 24 68 06 99 3A 99 3A 99 22 4E |1560.Z$h..:.:."N| 00000840: 41 4D 45 2C 20 4C 45 4E 47 54 48 2C 20 54 52 41 |AME, LENGTH, TRA| 00000850: 43 4B 2C 53 45 43 54 4F 52 22 00 76 24 72 06 99 |CK,SECTOR".v$r..| 00000860: 20 4E 24 2C 4E 54 3B 4E 42 3B 54 54 3B 53 53 3B | N$,NT;NB;TT;SS;| 00000870: 44 4B 3A 99 3A 99 00 A3 24 7C 06 98 37 2C 4E 24 |DK:.:...$|..7,N$| 00000880: 3B 43 52 24 3B 4E 54 3B 43 52 24 3B 4E 53 3B 43 |;CR$;NT;CR$;NS;C| 00000890: 52 24 3B 54 54 3B 43 52 24 3B 53 53 3B 43 52 24 |R$;TT;CR$;SS;CR$| 000008A0: 3B 44 4B 00 AD 24 86 06 89 31 34 38 30 00 C2 24 |;DK..$...1480..$| 000008B0: 90 06 8F 20 57 52 49 54 45 20 42 4C 4F 43 4B 20 |... WRITE BLOCK | 000008C0: 4E 42 00 DC 24 9A 06 9F 31 35 2C 44 49 2C 31 35 |NB..$...15,DI,15| 000008D0: 3A 9F 35 2C 44 49 2C 35 2C 22 23 22 00 F4 24 A4 |:.5,DI,5,"#"..$.| 000008E0: 06 98 31 35 2C 22 42 2D 52 3A 22 35 3B 30 3B 54 |..15,"B-R:"5;0;T| 000008F0: 31 3B 53 31 00 13 25 AE 06 81 58 B2 31 A4 43 43 |1;S1..%...X.1.CC| 00000900: 3A 43 24 B2 46 24 28 58 29 3A 98 35 2C 43 24 3B |:C$.F$(X):.5,C$;| 00000910: 3A 82 58 00 2B 25 B8 06 98 31 35 2C 22 42 2D 57 |:.X.+%...15,"B-W| 00000920: 3A 22 35 3B 30 3B 54 31 3B 53 31 00 36 25 C2 06 |:"5;0;T1;S1.6%..| 00000930: A0 35 3A A0 31 35 00 3C 25 CC 06 8E 00 54 25 D6 |.5:.15.<%....T%.| 00000940: 06 8B 20 54 59 24 B2 22 31 35 34 31 22 20 A7 20 |.. TY$."1541" . | 00000950: 31 38 30 30 00 77 25 E0 06 8F 20 43 4F 4D 50 20 |1800.w%... COMP | 00000960: 54 2F 53 20 46 52 4F 4D 20 4E 42 2C 41 53 53 55 |T/S FROM NB,ASSU| 00000970: 4D 45 20 31 35 38 31 00 8C 25 EA 06 8B 20 4E 42 |ME 1581..%... NB| 00000980: B1 33 32 30 30 20 A7 20 31 38 36 30 00 BC 25 F4 |.3200 . 1860..%.| 00000990: 06 54 31 B2 B5 28 28 4E 42 AB 31 29 AD 34 30 29 |.T1..((NB.1).40)| 000009A0: 20 AA 20 31 3A 53 31 B2 20 4E 42 20 AB 20 28 54 | . 1:S1. NB . (T| 000009B0: 31 AB 31 29 AC 34 30 20 AB 31 3A 8E 00 DF 25 FE |1.1).40 .1:...%.| 000009C0: 06 8F 20 47 45 54 20 54 2C 53 20 46 52 4F 4D 20 |.. GET T,S FROM | 000009D0: 4E 42 2C 20 41 53 53 55 4D 45 20 31 35 34 31 00 |NB, ASSUME 1541.| 000009E0: F3 25 08 07 8B 20 4E 42 B1 33 35 37 20 A7 20 31 |.%... NB.357 . 1| 000009F0: 38 32 30 00 24 26 12 07 54 31 B2 B5 28 28 4E 42 |820.$&..T1..((NB| 00000A00: AB 31 29 AD 32 31 29 20 AA 20 31 3A 53 31 20 B2 |.1).21) . 1:S1 .| 00000A10: 20 4E 42 20 AB 20 28 54 31 AB 31 29 AC 32 31 20 | NB . (T1.1).21 | 00000A20: AB 31 3A 8E 00 38 26 1C 07 8B 20 4E 42 B1 34 39 |.1:..8&... NB.49| 00000A30: 30 20 A7 20 31 38 34 30 00 70 26 26 07 54 31 B2 |0 . 1840.p&&.T1.| 00000A40: B5 28 28 4E 42 AB 33 35 38 29 AD 31 39 29 20 AA |.((NB.358).19) .| 00000A50: 20 31 38 3A 53 31 20 B2 20 4E 42 20 AB 20 28 54 | 18:S1 . NB . (T| 00000A60: 31 AB 31 38 29 AC 31 39 20 AB 20 33 35 38 3A 8E |1.18).19 . 358:.| 00000A70: 00 84 26 30 07 8B 20 4E 42 B1 35 39 38 20 A7 20 |..&0.. NB.598 . | 00000A80: 31 38 36 30 00 BC 26 3A 07 54 31 B2 B5 28 28 4E |1860..&:.T1..((N| 00000A90: 42 AB 34 39 31 29 AD 31 38 29 20 AA 20 32 35 3A |B.491).18) . 25:| 00000AA0: 53 31 20 B2 20 4E 42 20 AB 20 28 54 31 AB 32 35 |S1 . NB . (T1.25| 00000AB0: 29 AC 31 38 20 AB 20 34 39 31 3A 8E 00 EE 26 44 |).18 . 491:...&D| 00000AC0: 07 8B 20 4E 42 B1 36 38 33 20 A7 20 99 22 D3 D4 |.. NB.683 . ."..| 00000AD0: CF D0 2E 20 20 C5 4E 44 20 4F 46 20 44 49 53 4B |... .ND OF DISK| 00000AE0: 20 40 20 22 3B 4E 42 3A 89 20 31 38 39 30 00 26 | @ ";NB:. 1890.&| 00000AF0: 27 4E 07 54 31 B2 B5 28 28 4E 42 AB 35 39 39 29 |'N.T1..((NB.599)| 00000B00: AD 31 37 29 20 AA 20 33 31 3A 53 31 20 B2 20 4E |.17) . 31:S1 . N| 00000B10: 42 20 AB 20 28 54 31 AB 33 31 29 AC 31 37 20 AB |B . (T1.31).17 .| 00000B20: 20 35 39 39 3A 8E 00 2C 27 58 07 8E 00 42 27 62 | 599:..,'X...B'b| 00000B30: 07 A0 32 3A A0 34 3A A0 35 3A A0 37 3A A0 31 35 |..2:.4:.5:.7:.15| 00000B40: 3A 90 00 00 00 |:.... |
..).... C = CURRENT # CHARACTERS IN BLOC K.J.... NC = #CHARACTERS IN RECIPE.L.... NB = TOTAL # BLOCKS TO DATE...... A$ = CURRENT INPUT STRING...... B$ = SUM OF A $...... CR$= CARRIAGE RETURN...$.. F$ = ALL B$'S IN A BLOCK...... TY$= TYPE OF D ISK DRIVE.$.8.. CC = POINTER OF B$ STRIN GS PER BLOCK.>.B.. N$ = NAME OF RECIPE.D .L.. NT = # BLOCKS EACH RECIPE TAKES...V .. NS = START NB OF RECIPE...`.. TT = ST ART TRACK OF RECIPE.E.J.. SS = START SEC TOR OF RECIPE...T.. DI = DRIVE TO HAVE R ECIPE DATA...~.. DJ = DRIVE W. SEQ DATA FILE...... DJ ALSO HAS RAW DATA FILE.K .... DK = DISK # FOR RECIPE.P.... DL = D ISK# FOR MASTER SEQ DATA...... FILES LOO K LIKE;...... @@@@@@@@...... RECIPE TEXT 1...D.. @@@@@@@@.M.N.. RECIPE TEXT 2... X.. @@@@@@@@...... RECIPE TEXT 3, ETC... .... @@@@@@@@.+.... G(14):."DISK DRIVE # THAT WILL".F...."HAVE RECIPES DUMPED TO IT.";DI:. DI.8 . DI.30 . 1270..... TZ$ (3),LB(3),HB(3). ....I.1.3:.TZ$(I),LB(I) ,HB(I):....... "1581",233,166.J.(.. "157 1",198,229...2.. "1541",198,229...<..15, DI,15:.J.1.3.. F..15,"M-R"G(LB(J))G(HB(J ))G(1).D P..#15,X$:.X$.J(TZ$(J),3,1).TY$ .TZ$(J):.TY$.P Z..:.: 15.. D.."NAME OF M ASTER SEQUENTIAL DATA FILE":."TO BE CREA TED":. DA$.N N.."DISK DRIVE NO. FOR ABOV E";:. DL:. DL.8 . DL.30 . 1390..!X.."DIS K DRIVE NO. THAT HAS DATA TO":."BE MOVED TO DRIVE ";DI.-!... DJ:. DJ.8 . DJ.30 . 1400.O!..."NAME OF SEQUENTIAL FILE TO B E MOVED":."FROM DISK ";DJ:. DB$..!.. 2:C R$.G(13):.".";..! .. F$(100):NT.0:.2,DJ, 2,"@0:".DB$.",S,R".O!...7,DL,7,"@0:".DA$ .",S,W"..!..DK.1:."DATA DISK NO.";DK.'". .NB.1:."STARTING BLOCK # (ENTER 1 IF UNS URE";NB:NB.NB.1.B"H.NT.1:ED.0:NC.1:NB.NB .1.|"R..#2,A$:.A$."@" . 1490:. TERMINATE S ON CARRIAGE RETURN.."... ST..0 . ."STO P AT BLOCK ";NB:.1890.."..B$."":C.1:CC.1 .R"...2,A$:N$.A$:C.C(A$).1.."... 1750..# ..TT.T1:SS.S1:NS.NB:. START OF REC.)#... N$:F$(1).N$:F$(2).CR$:C.C.1:CC.3.G#...# 2,A$:.A$."@".ED.1:.1610.P#".. ST..0 . ." STOP AT BLOCK ";NB:.1890..#,.C.C.1:NC.NC .1:B$.B$.A$:. C . 254 . 1610.D#6.. A$.G( 13). F$(CC).B$:CC.CC.1:B$."".N#@..1560.. #J.F$(CC).B$:.X.1.CC:. F$(X);:.X..$T.. 1 750:. 1690.4$^.. ED.0 . NT.NT.1:NB.NB.1: B$."":C.1:CC.1:.1560.Z$H..:.:."NAME, LEN GTH, TRACK,SECTOR".V$R.. N$,NT;NB;TT;SS; DK:.:...$|..7,N$;CR$;NT;CR$;NS;CR$;TT;CR $;SS;CR$;DK..$...1480.B$... WRITE BLOCK NB..$...15,DI,15:.5,DI,5,"#"..$...15,"B- R:"5;0;T1;S1..%...X.1.CC:C$.F$(X):.5,C$; :.X.+%...15,"B-W:"5;0;T1;S1.6%B. 5: 15.< %L...T%V.. TY$."1541" . 1800.W%... COMP T/S FROM NB,ASSUME 1581..%... NB.3200 . 1860..%..T1..((NB.1).40) . 1:S1. NB . (T 1.1).40 .1:...%... GET T,S FROM NB, ASSU ME 1541..%... NB.357 . 1820.$&..T1..((NB .1).21) . 1:S1 . NB . (T1.1).21 .1:..8&. .. NB.490 . 1840.P&&.T1..((NB.358).19) . 18:S1 . NB . (T1.18).19 . 358:...&0.. N B.598 . 1860..&:.T1..((NB.491).18) . 25: S1 . NB . (T1.25).18 . 491:...&D.. NB.68 3 . ."STOP. END OF DISK @ ";NB:. 1890.& 'N.T1..((NB.599).17) . 31:S1 . NB . (T1. 31).17 . 599:..,'X...B'B. 2: 4: 5: 7: 15 :....
> CLICK IMAGE PREVIEW FOR FULL MODAL