DISK A
FILE INFORMATION
FILENAME(S): DISK A
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 18:13:02
APPEARS ON: 1 disk(s)
FILE HASH
fa70bdf80cb1b564f56cfe09dd9417c6e0bf05ecf816ab1589375f18eddfc0ee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WORKING DISK | DISK A | PRG | Sailor, Ganheden | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********|
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 4D 08 6E 00 8F 20 2A 2A |*******.M.n.. **|
00000030: 46 4F 58 20 56 41 4C 4C 45 59 20 27 36 34 27 20 |FOX VALLEY '64' |
00000040: 55 53 45 52 53 20 47 52 4F 55 50 2A 2A 00 73 08 |USERS GROUP**.s.|
00000050: 78 00 8F 20 2A 2A 2A 2A 2A 2A 20 44 49 53 4B 20 |x.. ****** DISK |
00000060: 4A 41 43 4B 45 54 20 4D 41 4B 45 52 20 2A 2A 2A |JACKET MAKER ***|
00000070: 2A 2A 2A 00 99 08 82 00 8F 20 2A 2A 2A 2A 2A 2A |***...... ******|
00000080: 20 42 59 20 44 41 56 45 20 57 4F 4F 54 45 4E 20 | BY DAVE WOOTEN |
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 08 8C 00 8F 20 |*********...... |
000000A0: 2A 2A 2A 2A 2A 2A 20 4A 55 4C 59 20 33 30 2C 20 |****** JULY 30, |
000000B0: 31 39 38 34 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |1984 **********.|
000000C0: E5 08 96 00 8F 20 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 30 09 A0 00 8F 3A 20 46 4F 52 |*****.0....: FOR|
000000F0: 20 4E 4F 4E 2D 45 50 53 4F 4E 20 54 48 52 45 45 | NON-EPSON THREE|
00000100: 20 43 4F 4C 55 4D 4E 20 20 20 20 20 20 20 20 20 | COLUMN |
00000110: 20 20 20 20 20 4A 41 43 4B 45 54 20 43 48 41 4E | JACKET CHAN|
00000120: 47 45 20 50 24 20 54 4F 20 43 4F 52 52 45 43 54 |GE P$ TO CORRECT|
00000130: 00 69 09 AA 00 8F 20 20 50 52 49 4E 54 45 52 20 |.i.... PRINTER |
00000140: 43 4F 4E 54 52 4F 4C 20 43 4F 44 45 20 49 4E 20 |CONTROL CODE IN |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 4C 49 4E 45 20 23 32 34 30 00 86 09 B4 00 8F 20 |LINE #240...... |
00000170: 2A 2A 20 50 52 24 20 20 2D 20 50 52 49 4E 54 45 |** PR$ - PRINTE|
00000180: 52 20 54 59 50 45 00 AE 09 BE 00 8F 20 2A 2A 20 |R TYPE...... ** |
00000190: 50 24 20 20 20 2D 20 50 52 49 4E 54 45 52 20 43 |P$ - PRINTER C|
000001A0: 4F 4E 54 52 4F 4C 20 43 4F 44 45 20 20 3A 00 CB |ONTROL CODE :..|
000001B0: 09 C8 00 86 41 24 28 32 30 30 29 2C 42 24 28 32 |....A$(200),B$(2|
000001C0: 30 30 29 2C 43 24 28 32 30 30 29 00 E1 09 D2 00 |00),C$(200).....|
000001D0: 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C |.53280,6:.53281,|
000001E0: 30 00 10 0A DC 00 99 22 05 93 11 11 1D 1D 1D 1D |0......"........|
000001F0: 1D 1D 1D 1D 1D 1D 12 20 44 49 53 4B 20 4A 41 43 |....... DISK JAC|
00000200: 4B 45 54 20 4D 41 4B 45 52 20 22 20 20 20 20 22 |KET MAKER " "|
00000210: 00 3B 0A E6 00 99 22 11 11 20 12 45 92 50 53 4F |.;....".. .E.PSO|
00000220: 4E 20 4F 52 20 12 43 92 4F 4D 4D 4F 44 4F 52 45 |N OR .C.OMMODORE|
00000230: 20 50 52 49 4E 54 45 52 3F 22 3B 00 50 0A F0 00 | PRINTER?";.P...|
00000240: A1 50 52 24 3A 8B 50 52 24 B2 22 22 A7 32 34 30 |.PR$:.PR$."".240|
00000250: 00 7C 0A FA 00 8B 50 52 24 B2 22 45 22 A7 99 22 |.|....PR$."E".."|
00000260: 20 12 20 20 20 45 50 53 4F 4E 20 20 20 22 3A 50 | . EPSON ":P|
00000270: 24 B2 C7 28 32 39 29 3A 89 32 38 30 00 9F 0A 04 |$..(29):.280....|
00000280: 01 8B 50 52 24 B2 22 43 22 A7 99 22 20 12 20 43 |..PR$."C".." . C|
00000290: 4F 4D 4D 4F 44 4F 52 45 20 22 3A 89 32 38 30 00 |OMMODORE ":.280.|
000002A0: A8 0A 0E 01 89 32 32 30 00 CE 0A 18 01 99 22 11 |.....220......".|
000002B0: 11 20 12 4F 92 4E 45 20 4F 52 20 12 54 92 57 4F |. .O.NE OR .T.WO|
000002C0: 20 44 49 53 4B 20 53 49 44 45 53 3F 22 3B 00 E3 | DISK SIDES?";..|
000002D0: 0A 22 01 A1 53 49 24 3A 8B 53 49 24 B2 22 22 A7 |."..SI$:.SI$."".|
000002E0: 32 39 30 00 0B 0B 2C 01 8B 53 49 24 B2 22 54 22 |290...,..SI$."T"|
000002F0: A7 99 22 20 20 20 20 20 20 12 20 54 57 4F 20 53 |.." . TWO S|
00000300: 49 44 45 53 20 22 3A 89 33 33 30 00 33 0B 36 01 |IDES ":.330.3.6.|
00000310: 8B 53 49 24 B2 22 4F 22 A7 99 22 20 20 20 20 20 |.SI$."O".." |
00000320: 20 12 20 4F 4E 45 20 53 49 44 45 20 20 22 3A 89 | . ONE SIDE ":.|
00000330: 33 33 30 00 3C 0B 40 01 89 32 32 30 00 66 0B 4A |330.<.@..220.f.J|
00000340: 01 99 A3 35 29 22 11 11 49 4E 53 45 52 54 20 44 |...5)"..INSERT D|
00000350: 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 52 45 |ISK AND PRESS RE|
00000360: 54 55 52 4E 22 3B 00 79 0B 54 01 A1 52 24 3A 8B |TURN";.y.T..R$:.|
00000370: 52 24 B2 22 22 A7 33 34 30 00 A4 0B 5E 01 99 22 |R$."".340...^.."|
00000380: 93 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
00000390: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 57 4F 52 4B 49 |.......... WORKI|
000003A0: 4E 47 20 22 00 CC 0B 68 01 99 22 11 11 11 20 20 |NG "...h.."... |
000003B0: 20 20 20 20 20 20 20 20 20 44 4F 20 4E 4F 54 20 | DO NOT |
000003C0: 54 4F 55 43 48 20 44 52 49 56 45 22 00 D5 0B 72 |TOUCH DRIVE"...r|
000003D0: 01 8D 35 30 30 00 00 0C 77 01 99 22 93 11 11 11 |..500...w.."....|
000003E0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000003F0: 1D 1D 1D 1D 12 20 50 52 49 4E 54 49 4E 47 20 22 |..... PRINTING "|
00000400: 00 29 0C 78 01 99 22 11 11 11 20 20 20 20 20 20 |.).x.."... |
00000410: 20 20 20 20 44 4F 20 4E 4F 54 20 54 4F 55 43 48 | DO NOT TOUCH|
00000420: 20 50 52 49 4E 54 45 52 22 00 40 0C 7C 01 8B 50 | PRINTER".@.|..P|
00000430: 52 24 B2 22 45 22 A7 8D 37 32 30 3A 89 34 30 30 |R$."E"..720:.400|
00000440: 00 49 0C 86 01 8D 39 33 30 00 67 0C 90 01 8B 53 |.I....930.g....S|
00000450: 49 24 B2 22 4F 22 A7 8D 31 34 35 30 3A 8D 31 35 |I$."O"..1450:.15|
00000460: 33 30 3A 89 34 35 30 00 96 0C 9A 01 99 22 11 11 |30:.450......"..|
00000470: 11 1D 1D 1D 1D 1D 1D 1D 54 55 52 4E 20 44 49 53 |........TURN DIS|
00000480: 4B 20 4F 56 45 52 20 2D 20 50 52 45 53 53 20 52 |K OVER - PRESS R|
00000490: 45 54 55 52 4E 22 00 A9 0C A4 01 A1 52 24 3A 8B |ETURN"......R$:.|
000004A0: 52 24 B2 22 22 A7 34 32 30 00 D4 0C AE 01 99 22 |R$."".420......"|
000004B0: 93 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
000004C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 57 4F 52 4B 49 |.......... WORKI|
000004D0: 4E 47 20 22 00 00 0D B8 01 99 22 11 11 11 1D 1D |NG "......".....|
000004E0: 1D 1D 1D 1D 1D 1D 1D 1D 44 4F 20 4E 4F 54 20 54 |........DO NOT T|
000004F0: 4F 55 43 48 20 44 52 49 56 45 22 3A 8D 35 30 30 |OUCH DRIVE":.500|
00000500: 00 2C 0D BA 01 99 22 93 11 11 11 11 11 11 11 11 |.,....".........|
00000510: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000520: 12 20 50 52 49 4E 54 49 4E 47 20 22 00 55 0D BC |. PRINTING ".U..|
00000530: 01 99 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000540: 44 4F 20 4E 4F 54 20 54 4F 55 43 48 20 50 52 49 |DO NOT TOUCH PRI|
00000550: 4E 54 45 52 22 00 65 0D BD 01 8D 31 31 34 30 3A |NTER".e....1140:|
00000560: 8D 31 35 33 30 00 8F 0D C2 01 99 22 11 11 11 20 |.1530......"... |
00000570: 20 20 20 20 20 20 20 20 20 4D 41 4B 45 20 41 4E | MAKE AN|
00000580: 4F 54 48 45 52 20 4A 41 43 4B 45 54 3F 22 3B 00 |OTHER JACKET?";.|
00000590: A2 0D CC 01 A1 52 24 3A 8B 52 24 B2 22 22 A7 34 |.....R$:.R$."".4|
000005A0: 36 30 00 B0 0D D6 01 8B 52 24 B2 22 59 22 A7 8A |60......R$."Y"..|
000005B0: 00 B6 0D E0 01 80 00 DD 0D EA 01 8F 20 20 2A 2A |............ **|
000005C0: 20 47 45 54 20 44 49 52 45 43 54 4F 52 59 20 45 | GET DIRECTORY E|
000005D0: 4E 54 52 49 45 53 20 2A 2A 20 20 20 3A 00 ED 0D |NTRIES ** :...|
000005E0: F4 01 9F 31 2C 38 2C 30 2C 22 24 30 22 00 FD 0D |...1,8,0,"$0"...|
000005F0: FE 01 49 B2 30 3A 4E 24 B2 C7 28 30 29 00 17 0E |..I.0:N$..(0)...|
00000600: 08 02 81 4E B2 31 A4 32 35 3A 53 50 24 B2 53 50 |...N.1.25:SP$.SP|
00000610: 24 AA 22 20 22 3A 82 00 25 0E 12 02 A1 23 31 2C |$." ":..%....#1,|
00000620: 44 24 2C 44 24 00 2B 0E 1C 02 3A 00 48 0E 26 02 |D$,D$.+...:.H.&.|
00000630: 8F 20 20 2A 2A 20 42 45 47 49 4E 20 4D 41 49 4E |. ** BEGIN MAIN|
00000640: 20 4C 4F 4F 50 20 2A 2A 00 52 0E 30 02 49 B2 49 | LOOP **.R.0.I.I|
00000650: AA 31 00 60 0E 3A 02 A1 23 31 2C 44 24 2C 44 24 |.1.`.:..#1,D$,D$|
00000660: 00 66 0E 44 02 3A 00 75 0E 4E 02 8B 44 24 B2 22 |.f.D.:.u.N..D$."|
00000670: 22 A7 37 30 30 00 7B 0E 58 02 3A 00 8F 0E 62 02 |".700.{.X.:...b.|
00000680: A1 23 31 2C 41 24 28 49 29 2C 42 24 28 49 29 00 |.#1,A$(I),B$(I).|
00000690: B8 0E 6C 02 43 24 28 49 29 B2 C4 28 C6 28 41 24 |..l.C$(I)..(.(A$|
000006A0: 28 49 29 AA 4E 24 29 AA C6 28 42 24 28 49 29 AA |(I).N$)..(B$(I).|
000006B0: 4E 24 29 AC 32 35 36 29 00 BE 0E 76 02 3A 00 C9 |N$).256)...v.:..|
000006C0: 0E 80 02 A1 23 31 2C 44 24 00 CF 0E 8A 02 3A 00 |....#1,D$.....:.|
000006D0: DE 0E 94 02 8B 44 24 B2 22 22 A7 35 36 30 00 E4 |.....D$."".560..|
000006E0: 0E 9E 02 3A 00 F7 0E A8 02 43 24 28 49 29 B2 43 |...:.....C$(I).C|
000006F0: 24 28 49 29 AA 44 24 00 12 0F B2 02 43 24 28 49 |$(I).D$.....C$(I|
00000700: 29 B2 C8 28 43 24 28 49 29 2C 32 35 29 3A 89 36 |)..(C$(I),25):.6|
00000710: 34 30 00 19 0F BC 02 A0 31 00 1F 0F C6 02 8E 00 |40......1.......|
00000720: 45 0F D0 02 8F 20 2A 2A 2A 20 45 50 53 4F 4E 20 |E.... *** EPSON |
00000730: 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 20 2A 2A |PRINT ROUTINE **|
00000740: 2A 20 20 20 3A 00 60 0F DA 02 81 4E B2 31 A4 31 |* :.`....N.1.1|
00000750: 31 38 3A 44 41 24 B2 44 41 24 AA 22 2D 22 3A 82 |18:DA$.DA$."-":.|
00000760: 00 7A 0F E4 02 81 4E B2 31 A4 37 39 3A 43 4E 24 |.z....N.1.79:CN$|
00000770: B2 43 4E 24 AA 22 20 22 3A 82 00 94 0F EE 02 81 |.CN$." ":.......|
00000780: 4E B2 31 A4 39 38 3A 42 4C 24 B2 42 4C 24 AA 22 |N.1.98:BL$.BL$."|
00000790: 2D 22 3A 82 00 CD 0F F8 02 4C 53 24 B2 22 21 20 |-":......LS$."! |
000007A0: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 | ! |
000007B0: 20 22 3A 52 53 24 B2 22 20 20 20 20 20 20 20 20 | ":RS$." |
000007C0: 20 21 20 20 20 20 20 20 20 20 20 21 22 00 D6 0F | ! !"...|
000007D0: 02 03 9F 34 2C 34 00 EC 0F 0C 03 98 34 2C 50 24 |...4,4......4,P$|
000007E0: 3B 44 41 24 3B 22 20 20 43 55 54 22 00 1B 10 16 |;DA$;" CUT"....|
000007F0: 03 98 34 2C 4C 53 24 3B 3A 98 34 2C C7 28 31 34 |..4,LS$;:.4,.(14|
00000800: 29 C9 28 43 24 28 31 29 2C C3 28 43 24 28 31 29 |).(C$(1),.(C$(1)|
00000810: 29 AB 32 29 3B C7 28 32 30 29 3B 00 38 10 20 03 |).2);.(20);.8. .|
00000820: 98 34 2C 50 24 3B 22 53 49 44 45 20 31 22 3B C9 |.4,P$;"SIDE 1";.|
00000830: 28 52 53 24 2C 31 38 29 00 4B 10 2A 03 98 34 2C |(RS$,18).K.*..4,|
00000840: 4C 53 24 3B 43 4E 24 3B 52 53 24 00 59 10 34 03 |LS$;CN$;RS$.Y.4.|
00000850: 81 4A B2 32 A4 49 20 A9 33 00 71 10 3E 03 8B 43 |.J.2.I .3.q.>..C|
00000860: 24 28 4A 29 B2 22 22 A7 43 24 28 4A 29 B2 53 50 |$(J)."".C$(J).SP|
00000870: 24 00 8D 10 48 03 8B 43 24 28 4A AA 31 29 B2 22 |$...H..C$(J.1)."|
00000880: 22 A7 43 24 28 4A AA 31 29 B2 53 50 24 00 A9 10 |".C$(J.1).SP$...|
00000890: 52 03 8B 43 24 28 4A AA 32 29 B2 22 22 A7 43 24 |R..C$(J.2)."".C$|
000008A0: 28 4A AA 32 29 B2 53 50 24 00 D8 10 5C 03 98 34 |(J.2).SP$...\..4|
000008B0: 2C 4C 53 24 3B 43 24 28 4A 29 3B 22 20 20 22 3B |,LS$;C$(J);" ";|
000008C0: 43 24 28 4A AA 31 29 3B 22 20 20 22 3B 43 24 28 |C$(J.1);" ";C$(|
000008D0: 4A AA 32 29 3B 52 53 24 00 E4 10 66 03 4C 43 B2 |J.2);RS$...f.LC.|
000008E0: 4C 43 AA 31 00 EA 10 70 03 82 00 0A 11 7A 03 81 |LC.1...p.....z..|
000008F0: 4C B2 31 A4 32 31 AB 4C 43 3A 98 34 2C 4C 53 24 |L.1.21.LC:.4,LS$|
00000900: 3B 43 4E 24 3B 52 53 24 3A 82 00 1F 11 84 03 98 |;CN$;RS$:.......|
00000910: 34 2C 44 41 24 3B 22 20 20 20 46 4F 4C 44 22 00 |4,DA$;" FOLD".|
00000920: 4E 11 8E 03 4C 53 24 B2 22 20 20 20 20 20 20 20 |N...LS$." |
00000930: 20 20 20 21 20 20 20 20 20 20 20 20 22 3A 52 53 | ! ":RS|
00000940: 24 B2 22 20 20 20 20 20 20 20 20 20 21 22 00 57 |$." !".W|
00000950: 11 98 03 A0 34 3A 8E 00 7D 11 A2 03 8F 20 2A 2A |....4:..}.... **|
00000960: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 50 52 49 4E |* COMMODORE PRIN|
00000970: 54 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 97 11 |T ROUTINE ***...|
00000980: AC 03 81 4E B2 31 A4 36 39 3A 44 41 24 B2 44 41 |...N.1.69:DA$.DA|
00000990: 24 AA 22 2D 22 3A 82 00 B1 11 B6 03 81 4E B2 31 |$."-":.......N.1|
000009A0: A4 35 32 3A 43 4E 24 B2 43 4E 24 AA 22 20 22 3A |.52:CN$.CN$." ":|
000009B0: 82 00 CB 11 C0 03 81 4E B2 31 A4 35 36 3A 42 4C |.......N.1.56:BL|
000009C0: 24 B2 42 4C 24 AA 22 2D 22 3A 82 00 D4 11 CA 03 |$.BL$."-":......|
000009D0: 9F 34 2C 34 00 EC 11 D4 03 8B 43 24 28 4A 29 B2 |.4,4......C$(J).|
000009E0: 22 22 A7 43 24 28 4A 29 B2 53 50 24 00 02 12 DE |"".C$(J).SP$....|
000009F0: 03 98 34 2C 50 24 3B 44 41 24 3B 22 20 20 43 55 |..4,P$;DA$;" CU|
00000A00: 54 22 00 25 12 E8 03 4C 53 24 B2 22 21 20 20 20 |T".%...LS$."! |
00000A10: 20 20 20 21 20 22 3A 52 53 24 B2 22 20 21 20 20 | ! ":RS$." ! |
00000A20: 20 20 20 21 22 00 4E 12 F2 03 98 34 2C 4C 53 24 | !".N....4,LS$|
00000A30: 3B 3A 98 34 2C C7 28 31 34 29 C9 28 43 24 28 31 |;:.4,.(14).(C$(1|
00000A40: 29 2C C3 28 43 24 28 31 29 29 AB 32 29 3B 00 6E |),.(C$(1)).2);.n|
00000A50: 12 FC 03 98 34 2C C7 28 31 35 29 C7 28 31 34 36 |....4,.(15).(146|
00000A60: 29 22 20 53 49 44 45 20 31 20 22 52 53 24 00 81 |)" SIDE 1 "RS$..|
00000A70: 12 06 04 98 34 2C 4C 53 24 3B 43 4E 24 3B 52 53 |....4,LS$;CN$;RS|
00000A80: 24 00 8F 12 10 04 81 4A B2 32 A4 49 20 A9 32 00 |$......J.2.I .2.|
00000A90: A7 12 1A 04 8B 43 24 28 4A 29 B2 22 22 A7 43 24 |.....C$(J)."".C$|
00000AA0: 28 4A 29 B2 53 50 24 00 C3 12 24 04 8B 43 24 28 |(J).SP$...$..C$(|
00000AB0: 4A AA 31 29 B2 22 22 A7 43 24 28 4A AA 31 29 B2 |J.1)."".C$(J.1).|
00000AC0: 53 50 24 00 E5 12 2E 04 98 34 2C 4C 53 24 3B 43 |SP$......4,LS$;C|
00000AD0: 24 28 4A 29 3B 22 20 20 22 3B 43 24 28 4A AA 31 |$(J);" ";C$(J.1|
00000AE0: 29 3B 52 53 24 00 F1 12 38 04 4C 43 B2 4C 43 AA |);RS$...8.LC.LC.|
00000AF0: 31 00 F7 12 42 04 82 00 17 13 4C 04 81 4C B2 31 |1...B.....L..L.1|
00000B00: A4 32 31 AB 4C 43 3A 98 34 2C 4C 53 24 3B 43 4E |.21.LC:.4,LS$;CN|
00000B10: 24 3B 52 53 24 3A 82 00 2C 13 56 04 98 34 2C 44 |$;RS$:..,.V..4,D|
00000B20: 41 24 3B 22 20 20 20 46 4F 4C 44 22 00 49 13 60 |A$;" FOLD".I.`|
00000B30: 04 4C 53 24 B2 22 20 20 20 20 20 20 20 21 22 3A |.LS$." !":|
00000B40: 52 53 24 B2 22 20 20 21 22 00 52 13 6A 04 A0 34 |RS$." !".R.j..4|
00000B50: 3A 8E 00 78 13 74 04 8F 20 2A 2A 2A 20 53 49 44 |:..x.t.. *** SID|
00000B60: 45 20 32 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |E 2 PRINT ROUTIN|
00000B70: 45 20 2A 2A 2A 20 20 3A 00 81 13 7E 04 4C 43 B2 |E *** :...~.LC.|
00000B80: 30 00 93 13 88 04 8B 50 52 24 B2 22 45 22 A7 31 |0......PR$."E".1|
00000B90: 32 39 30 00 AB 13 92 04 9F 34 2C 34 3A 98 34 2C |290......4,4:.4,|
00000BA0: 4C 53 24 3B 43 4E 24 3B 52 53 24 00 D4 13 9C 04 |LS$;CN$;RS$.....|
00000BB0: 98 34 2C 4C 53 24 3B 3A 98 34 2C C7 28 31 34 29 |.4,LS$;:.4,.(14)|
00000BC0: C9 28 43 24 28 31 29 2C C3 28 43 24 28 31 29 29 |.(C$(1),.(C$(1))|
00000BD0: AB 32 29 3B 00 F5 13 A6 04 98 34 2C C7 28 31 35 |.2);......4,.(15|
00000BE0: 29 3B C7 28 31 34 36 29 22 20 53 49 44 45 20 32 |);.(146)" SIDE 2|
00000BF0: 20 22 52 53 24 00 08 14 B0 04 98 34 2C 4C 53 24 | "RS$......4,LS$|
00000C00: 3B 43 4E 24 3B 52 53 24 00 16 14 BA 04 81 4A B2 |;CN$;RS$......J.|
00000C10: 32 A4 49 20 A9 32 00 32 14 C4 04 8B 43 24 28 4A |2.I .2.2....C$(J|
00000C20: AA 31 29 B2 22 22 A7 43 24 28 4A AA 31 29 B2 53 |.1)."".C$(J.1).S|
00000C30: 50 24 00 54 14 CE 04 98 34 2C 4C 53 24 3B 43 24 |P$.T....4,LS$;C$|
00000C40: 28 4A 29 3B 22 20 20 22 3B 43 24 28 4A AA 31 29 |(J);" ";C$(J.1)|
00000C50: 3B 52 53 24 00 60 14 D8 04 4C 43 B2 4C 43 AA 31 |;RS$.`...LC.LC.1|
00000C60: 00 66 14 E2 04 82 00 86 14 EC 04 81 4C B2 31 A4 |.f..........L.1.|
00000C70: 32 35 AB 4C 43 3A 98 34 2C 4C 53 24 3B 43 4E 24 |25.LC:.4,LS$;CN$|
00000C80: 3B 52 53 24 3A 82 00 A2 14 F6 04 98 34 2C A3 37 |;RS$:.......4,.7|
00000C90: 29 3B 3A 98 34 2C 42 4C 24 3B 22 20 20 20 43 55 |);:.4,BL$;" CU|
00000CA0: 54 22 00 B2 14 00 05 98 34 3A A0 34 3A 89 31 34 |T"......4:.4:.14|
00000CB0: 34 30 00 D8 14 0A 05 8F 20 20 2A 2A 2A 20 45 50 |40...... *** EP|
00000CC0: 53 4F 4E 20 53 49 44 45 20 32 20 2A 2A 2A 20 20 |SON SIDE 2 *** |
00000CD0: 20 20 20 20 20 20 20 3A 00 F0 14 14 05 9F 34 2C | :......4,|
00000CE0: 34 3A 98 34 2C 4C 53 24 3B 43 4E 24 3B 52 53 24 |4:.4,LS$;CN$;RS$|
00000CF0: 00 1F 15 1E 05 98 34 2C 4C 53 24 3B 3A 98 34 2C |......4,LS$;:.4,|
00000D00: C7 28 31 34 29 C9 28 43 24 28 31 29 2C C3 28 43 |.(14).(C$(1),.(C|
00000D10: 24 28 31 29 29 AB 32 29 3B C7 28 32 30 29 3B 00 |$(1)).2);.(20);.|
00000D20: 3C 15 28 05 98 34 2C 50 24 3B 22 53 49 44 45 20 |<.(..4,P$;"SIDE |
00000D30: 32 22 3B C9 28 52 53 24 2C 31 38 29 00 4F 15 32 |2";.(RS$,18).O.2|
00000D40: 05 98 34 2C 4C 53 24 3B 43 4E 24 3B 52 53 24 00 |..4,LS$;CN$;RS$.|
00000D50: 5D 15 3C 05 81 4A B2 32 A4 49 20 A9 33 00 75 15 |].<..J.2.I .3.u.|
00000D60: 46 05 8B 43 24 28 4A 29 B2 22 22 A7 43 24 28 4A |F..C$(J)."".C$(J|
00000D70: 29 B2 53 50 24 00 91 15 50 05 8B 43 24 28 4A AA |).SP$...P..C$(J.|
00000D80: 31 29 B2 22 22 A7 43 24 28 4A AA 31 29 B2 53 50 |1)."".C$(J.1).SP|
00000D90: 24 00 AD 15 5A 05 8B 43 24 28 4A AA 32 29 B2 22 |$...Z..C$(J.2)."|
00000DA0: 22 A7 43 24 28 4A AA 32 29 B2 53 50 24 00 DC 15 |".C$(J.2).SP$...|
00000DB0: 64 05 98 34 2C 4C 53 24 3B 43 24 28 4A 29 3B 22 |d..4,LS$;C$(J);"|
00000DC0: 20 20 22 3B 43 24 28 4A AA 31 29 3B 22 20 20 22 | ";C$(J.1);" "|
00000DD0: 3B 43 24 28 4A AA 32 29 3B 52 53 24 00 E8 15 6E |;C$(J.2);RS$...n|
00000DE0: 05 4C 43 B2 4C 43 AA 31 00 EE 15 78 05 82 00 0E |.LC.LC.1...x....|
00000DF0: 16 82 05 81 4C B2 31 A4 32 35 AB 4C 43 3A 98 34 |....L.1.25.LC:.4|
00000E00: 2C 4C 53 24 3B 43 4E 24 3B 52 53 24 3A 82 00 2B |,LS$;CN$;RS$:..+|
00000E10: 16 8C 05 98 34 2C A3 31 30 29 3B 3A 98 34 2C 42 |....4,.10);:.4,B|
00000E20: 4C 24 3B 22 20 20 20 43 55 54 22 00 35 16 96 05 |L$;" CUT".5...|
00000E30: 98 34 3A A0 34 00 3B 16 A0 05 8E 00 57 16 AA 05 |.4:.4.;.....W...|
00000E40: 8F 20 20 2A 2A 2A 20 42 4C 41 4E 4B 20 53 49 44 |. *** BLANK SID|
00000E50: 45 20 32 20 2A 2A 2A 00 60 16 B4 05 9F 34 2C 34 |E 2 ***.`....4,4|
00000E60: 00 7D 16 BE 05 81 43 B2 31 A4 32 37 3A 98 34 2C |.}....C.1.27:.4,|
00000E70: 4C 53 24 3B 43 4E 24 3B 52 53 24 3A 82 00 8F 16 |LS$;CN$;RS$:....|
00000E80: C8 05 8B 50 52 24 B2 22 45 22 A7 31 35 30 30 00 |...PR$."E".1500.|
00000E90: B2 16 D2 05 98 34 2C 22 20 20 20 20 20 20 20 22 |.....4," "|
00000EA0: 42 4C 24 3B 22 20 20 20 43 55 54 22 3A 89 31 35 |BL$;" CUT":.15|
00000EB0: 31 30 00 CF 16 DC 05 98 34 2C A3 31 30 29 3B 3A |10......4,.10);:|
00000EC0: 98 34 2C 42 4C 24 3B 22 20 20 20 43 55 54 22 00 |.4,BL$;" CUT".|
00000ED0: D9 16 E6 05 98 34 3A A0 34 00 DF 16 F0 05 8E 00 |.....4:.4.......|
00000EE0: 05 17 FA 05 8F 20 2A 2A 20 46 4F 52 4D 20 46 45 |..... ** FORM FE|
00000EF0: 45 44 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |ED ** |
00000F00: 20 20 20 20 3A 00 1A 17 04 06 9F 34 2C 34 3A 98 | :......4,4:.|
00000F10: 34 2C C7 28 31 32 29 3A A0 34 00 20 17 0E 06 8E |4,.(12):.4. ....|
00000F20: 00 26 17 00 00 00 00 00 00 00 00 00 00 00 00 00 |.&..............|
00000F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000F80: AC 03 81 4E B2 31 A4 36 39 3A 44 41 24 B2 44 41 |...N.1.69:DA$.DA|
00000F90: 24 AA 22 2D 22 3A 82 00 B1 11 B6 03 81 4E B2 31 |$."-":.......N.1|
00000FA0: A4 35 32 3A 43 4E 24 B2 43 4E 24 AA 22 20 22 3A |.52:CN$.CN$." ":|
00000FB0: 82 00 CB 11 C0 03 81 4E B2 31 A4 35 36 3A 42 4C |.......N.1.56:BL|
00000FC0: 24 B2 42 4C 24 AA 22 2D 22 3A 82 00 D4 11 CA 03 |$.BL$."-":......|
00000FD0: 9F 34 2C 34 00 EC 11 D4 03 8B 43 24 28 4A 29 B2 |.4,4......C$(J).|
00000FE0: 22 22 A7 43 24 28 4A 29 B2 53 50 24 00 02 12 DE |"".C$(J).SP$....|
00000FF0: 03 98 34 2C 50 24 3B 44 41 24 3B 22 20 20 43 55 |..4,P$;DA$;" CU|
..'.D.. *******************************.
M.N.. **FOX VALLEY '64' USERS GROUP**.S.
X.. ****** DISK JACKET MAKER ******.....
. ****** BY DAVE WOOTEN *********......
****** JULY 30, 1984 **********...... **
*****************************.0. ..: FOR
NON-EPSON THREE COLUMN JAC
KET CHANGE P$ TO CORRECT.I.... PRINTER
CONTROL CODE IN LINE #24
0...... ** PR$ - PRINTER TYPE...... **
P$ - PRINTER CONTROL CODE :.K.H..A$(2
00),B$(200),C$(200)...R..53280,6:.53281,
0......"............... DISK JACKET MAKE
R " ".;....".. .E.PSON OR .C.OMMODORE
PRINTER?";.P....PR$:.PR$."".240.|....PR
$."E".." . EPSON ":P$.G(29):.280....
..PR$."C".." . COMMODORE ":.280......220
.N....".. .O.NE OR .T.WO DISK SIDES?";..
."..SI$:.SI$."".290...,..SI$."T".."
. TWO SIDES ":.330.3.6..SI$."O".."
. ONE SIDE ":.330.<.@..220.F.J...5)"..
INSERT DISK AND PRESS RETURN";.Y.T..R$:.
R$."".340...^.."........................
.. WORKING ".L.H.."... DO NOT
TOUCH DRIVE".U.R..500...W.."............
............. PRINTING ".).X.."...
DO NOT TOUCH PRINTER".@.|..PR$."E"..
720:.400.I....930.G....SI$."O"..1450:.15
30:.450......"..........TURN DISK OVER -
PRESS RETURN"......R$:.R$."".420.T...."
.......................... WORKING "....
..".............DO NOT TOUCH DRIVE":.500
.,....".......................... PRINTI
NG ".U....".............DO NOT TOUCH PRI
NTER".E....1140:.1530...B.."...
MAKE ANOTHER JACKET?";...L..R$:.R$."".4
60...V..R$."Y".............. ** GET DIR
ECTORY ENTRIES ** :......1,8,0,"$0"...
..I.0:N$.G(0)......N.1.25:SP$.SP$." ":..
%....#1,D$,D$.+...:.H.&.. ** BEGIN MAIN
LOOP **.R.0.I.I.1.`.:..#1,D$,D$.F.D.:.U
.N..D$."".700.{.X.:...B..#1,A$(I),B$(I).
..L.C$(I).D(F(A$(I).N$).F(B$(I).N$).256)
...V.:.I....#1,D$.O...:......D$."".560..
...:.....C$(I).C$(I).D$.....C$(I).H(C$(I
),25):.640..... 1...F...E.P.. *** EPSON
PRINT ROUTINE *** :.`.Z..N.1.118:DA$.D
A$."-":..Z....N.1.79:CN$.CN$." ":.......
N.1.98:BL$.BL$."-":..M...LS$."!
! ":RS$." ! !".V.
...4,4......4,P$;DA$;" CUT"......4,LS$;
:.4,G(14)I(C$(1),C(C$(1)).2);G(20);.8. .
.4,P$;"SIDE 1";I(RS$,18).K.*..4,LS$;CN$;
RS$.Y.4..J.2.I .3.Q.>..C$(J)."".C$(J).SP
$...H..C$(J.1)."".C$(J.1).SP$...R..C$(J.
2)."".C$(J.2).SP$.X.\..4,LS$;C$(J);" ";
C$(J.1);" ";C$(J.2);RS$...F.LC.LC.1...P
.....Z..L.1.21.LC:.4,LS$;CN$;RS$:.......
4,DA$;" FOLD".N...LS$." !
":RS$." !".W... 4:..}.... **
* COMMODORE PRINT ROUTINE ***......N.1.6
9:DA$.DA$."-":.......N.1.52:CN$.CN$." ":
..K....N.1.56:BL$.BL$."-":..T.J..4,4...T
..C$(J)."".C$(J).SP$......4,P$;DA$;" CU
T".%...LS$."! ! ":RS$." ! !".N.
...4,LS$;:.4,G(14)I(C$(1),C(C$(1)).2);.N
....4,G(15)G(146)" SIDE 1 "RS$......4,LS
$;CN$;RS$......J.2.I .2......C$(J)."".C$
(J).SP$.C.$..C$(J.1)."".C$(J.1).SP$.....
.4,LS$;C$(J);" ";C$(J.1);RS$...8.LC.LC.
1...B.....L..L.1.21.LC:.4,LS$;CN$;RS$:..
,.V..4,DA$;" FOLD".I.`.LS$." !":
RS$." !".R.J. 4:..X.T.. *** SIDE 2 PRIN
T ROUTINE *** :...~.LC.0......PR$."E".1
290......4,4:.4,LS$;CN$;RS$.T....4,LS$;:
.4,G(14)I(C$(1),C(C$(1)).2);......4,G(15
);G(146)" SIDE 2 "RS$......4,LS$;CN$;RS$
......J.2.I .2.2.D..C$(J.1)."".C$(J.1).S
P$.T.N..4,LS$;C$(J);" ";C$(J.1);RS$.`.X
.LC.LC.1.F..........L.1.25.LC:.4,LS$;CN$
;RS$:.......4,.7);:.4,BL$;" CUT"......
4: 4:.1440.X.... *** EPSON SIDE 2 ***
:......4,4:.4,LS$;CN$;RS$......4,
LS$;:.4,G(14)I(C$(1),C(C$(1)).2);G(20);.
<.(..4,P$;"SIDE 2";I(RS$,18).O.2..4,LS$;
CN$;RS$.].<..J.2.I .3.U.F..C$(J)."".C$(J
).SP$...P..C$(J.1)."".C$(J.1).SP$...Z..C
$(J.2)."".C$(J.2).SP$...D..4,LS$;C$(J);"
";C$(J.1);" ";C$(J.2);RS$...N.LC.LC.1
...X........L.1.25.LC:.4,LS$;CN$;RS$:..+
....4,.10);:.4,BL$;" CUT".5....4: 4.;.
...W.... *** BLANK SIDE 2 ***.`....4,4
.}....C.1.27:.4,LS$;CN$;RS$:....H..PR$."
E".1500...R..4," "BL$;" CUT":.15
10.O....4,.10);:.4,BL$;" CUT".Y....4:
4............ ** FORM FEED **
:......4,4:.4,G(12): 4. .....&......
........................................
........................................
...........N.1.69:DA$.DA$."-":.......N.1
.52:CN$.CN$." ":..K....N.1.56:BL$.BL$."-
":..T.J..4,4...T..C$(J)."".C$(J).SP$....
..4,P$;DA$;" CU
> CLICK IMAGE PREVIEW FOR FULL MODAL