00000000: 01 40 50 40 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |.@P@... ********|
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 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 00 9F 40 14 00 8F 20 2A 20 20 55 4C 54 52 41 48 |..@... * ULTRAH|
00000060: 49 52 45 53 20 53 45 51 50 52 49 4E 54 20 2D 2D |IRES SEQPRINT --|
00000070: 20 52 55 4E 53 20 55 4E 44 45 52 20 57 41 4C 52 | RUNS UNDER WALR|
00000080: 55 53 27 20 55 4C 54 52 41 48 49 52 45 53 20 54 |US' ULTRAHIRES T|
00000090: 4F 20 50 52 49 4E 54 20 53 45 51 20 20 20 2A 00 |O PRINT SEQ *.|
000000A0: EE 40 1E 00 8F 20 2A 20 20 20 20 20 20 20 20 46 |.@... * F|
000000B0: 49 4C 45 53 20 55 53 49 4E 47 20 54 48 45 20 56 |ILES USING THE V|
000000C0: 41 52 49 4F 55 53 20 53 43 52 45 45 4E 20 46 4F |ARIOUS SCREEN FO|
000000D0: 4E 54 53 20 41 56 41 49 4C 41 42 4C 45 20 54 48 |NTS AVAILABLE TH|
000000E0: 45 52 45 2E 20 20 20 20 20 20 20 20 20 2A 00 3D |ERE. *.=|
000000F0: 41 28 00 8F 20 2A 20 20 54 45 53 54 45 44 20 57 |A(.. * TESTED W|
00000100: 49 54 48 20 54 48 45 20 4F 4C 49 56 45 54 54 49 |ITH THE OLIVETTI|
00000110: 20 50 52 32 33 30 30 20 50 52 49 4E 54 45 52 2C | PR2300 PRINTER,|
00000120: 20 4D 41 59 20 52 45 51 55 49 52 45 20 4D 49 4E | MAY REQUIRE MIN|
00000130: 4F 52 20 43 48 41 4E 47 45 53 20 20 2A 00 8C 41 |OR CHANGES *..A|
00000140: 32 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |2.. * |
00000150: 20 20 46 4F 52 20 4F 54 48 45 52 20 55 4C 54 52 | FOR OTHER ULTR|
00000160: 41 48 49 52 45 53 2D 43 4F 4D 50 41 54 49 42 4C |AHIRES-COMPATIBL|
00000170: 45 20 50 52 49 4E 54 45 52 53 2E 20 20 20 20 20 |E PRINTERS. |
00000180: 20 20 20 20 20 20 20 20 20 20 20 2A 00 DB 41 3C | *..A<|
00000190: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 43 |.. * C|
000001A0: 4F 50 59 52 49 47 48 54 20 28 43 29 20 41 55 47 |OPYRIGHT (C) AUG|
000001B0: 55 53 54 20 31 39 38 36 20 42 59 20 57 49 4C 4C |UST 1986 BY WILL|
000001C0: 49 41 4D 20 48 2E 20 4D 4F 4F 52 45 20 20 20 20 |IAM H. MOORE |
000001D0: 20 20 20 20 20 20 20 20 20 20 2A 00 2A 42 46 00 | *.*BF.|
000001E0: 8F 20 2A 20 20 20 41 4C 4C 20 43 4F 4D 4D 45 52 |. * ALL COMMER|
000001F0: 43 49 41 4C 20 52 49 47 48 54 53 20 52 45 53 45 |CIAL RIGHTS RESE|
00000200: 52 56 45 44 20 2E 2E 20 4D 41 59 20 42 45 20 46 |RVED .. MAY BE F|
00000210: 52 45 45 4C 59 20 44 49 53 54 52 49 42 55 54 45 |REELY DISTRIBUTE|
00000220: 44 20 49 4E 20 20 20 20 20 2A 00 79 42 50 00 8F |D IN *.yBP..|
00000230: 20 2A 20 20 20 55 4E 4D 4F 44 49 46 49 45 44 20 | * UNMODIFIED |
00000240: 46 4F 52 4D 20 49 46 20 4E 4F 20 43 48 41 52 47 |FORM IF NO CHARG|
00000250: 45 53 20 4F 54 48 45 52 20 54 48 41 4E 20 4D 45 |ES OTHER THAN ME|
00000260: 44 49 41 20 43 4F 53 54 53 20 41 52 45 20 4C 45 |DIA COSTS ARE LE|
00000270: 56 49 45 44 20 20 20 20 2A 00 C8 42 5A 00 8F 20 |VIED *..BZ.. |
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 D8 42 64 00 40 57 41 |********..Bd.@WA|
000002D0: 4C 52 55 53 3A FE 0B 32 00 EF 42 6E 00 FE 25 3A |LRUS:..2..Bn..%:|
000002E0: 97 34 37 2C 30 3A 97 34 38 2C 31 33 32 3A 9C 00 |.47,0:.48,132:..|
000002F0: 00 43 78 00 40 9C 2C 30 3A 40 DE 2C 31 35 2C 30 |.Cx.@.,0:@.,15,0|
00000300: 00 0A 43 82 00 D7 20 37 30 30 00 77 43 8C 00 40 |..C... 700.wC..@|
00000310: 54 45 58 54 3A 8D 36 35 30 3A 8D 36 39 30 3A 99 |TEXT:.650:.690:.|
00000320: 22 11 11 22 3A 85 22 46 49 52 53 54 20 46 4F 4E |"..":."FIRST FON|
00000330: 54 3A 22 3B 4E 31 24 3A FE 11 28 4E 31 24 AA 22 |T:";N1$:..(N1$."|
00000340: 2A 22 29 2C 42 30 2C 50 34 35 30 30 30 3A 85 22 |*"),B0,P45000:."|
00000350: 53 45 43 4F 4E 44 20 46 4F 4E 54 3A 22 3B 4E 32 |SECOND FONT:";N2|
00000360: 24 3A FE 11 28 4E 32 24 AA 22 2A 22 29 2C 42 30 |$:..(N2$."*"),B0|
00000370: 2C 50 34 30 30 30 30 00 CD 43 96 00 46 31 B2 34 |,P40000..C..F1.4|
00000380: 35 30 30 30 3A 46 32 B2 34 30 30 30 30 3A 46 55 |5000:F2.40000:FU|
00000390: B2 D1 28 22 44 30 30 30 22 29 3A 46 4C B2 D1 28 |..("D000"):FL..(|
000003A0: 22 44 38 30 30 22 29 3A 46 53 B2 37 31 36 38 3A |"D800"):FS.7168:|
000003B0: 45 58 B2 31 3A 45 59 B2 31 3A 46 4F B2 46 31 3A |EX.1:EY.1:FO.F1:|
000003C0: 45 53 B2 39 32 3A 4C 45 B2 37 39 2E 35 00 42 44 |ES.92:LE.79.5.BD|
000003D0: A0 00 45 58 24 28 30 29 B2 22 48 41 4C 46 2D 53 |..EX$(0)."HALF-S|
000003E0: 49 5A 45 2A 2A 54 49 4E 59 20 46 4F 4E 54 20 4F |IZE**TINY FONT O|
000003F0: 4E 4C 59 21 21 22 3A 45 58 24 28 31 29 B2 22 53 |NLY!!":EX$(1)."S|
00000400: 49 4E 47 4C 45 2D 48 45 49 47 48 54 20 26 20 53 |INGLE-HEIGHT & S|
00000410: 49 4E 47 4C 45 2D 57 49 44 54 48 22 3A 45 58 24 |INGLE-WIDTH":EX$|
00000420: 28 32 29 B2 22 44 4F 55 42 4C 45 2D 48 45 49 47 |(2)."DOUBLE-HEIG|
00000430: 48 54 20 26 20 44 4F 55 42 4C 45 2D 57 49 44 54 |HT & DOUBLE-WIDT|
00000440: 48 22 00 98 44 AA 00 96 20 A5 46 49 28 58 29 B2 |H"..D... .FI(X).|
00000450: AB 31 AC 28 58 B2 34 35 30 30 30 29 AB 32 AC 28 |.1.(X.45000).2.(|
00000460: 58 B2 34 30 30 30 30 29 AB 33 AC 28 58 B2 D1 28 |X.40000).3.(X..(|
00000470: 22 31 43 30 30 22 29 29 AB 34 AC 28 58 B2 D1 28 |"1C00")).4.(X..(|
00000480: 22 44 38 30 30 22 29 29 AB 35 AC 28 58 B2 D1 28 |"D800")).5.(X..(|
00000490: 22 44 30 30 30 22 29 29 00 D2 44 B4 00 96 A5 46 |"D000"))..D....F|
000004A0: 4F 28 58 29 B2 AB 46 31 AC 28 58 B2 31 29 AB 46 |O(X)..F1.(X.1).F|
000004B0: 32 AC 28 58 B2 32 29 AB 46 53 AC 28 58 B2 33 29 |2.(X.2).FS.(X.3)|
000004C0: AB 46 4C AC 28 58 B2 34 29 AB 46 55 AC 28 58 B2 |.FL.(X.4).FU.(X.|
000004D0: 35 29 00 51 45 BE 00 46 4F 24 28 31 29 B2 4E 31 |5).QE..FO$(1).N1|
000004E0: 24 3A 46 4F 24 28 32 29 B2 4E 32 24 3A 46 4F 24 |$:FO$(2).N2$:FO$|
000004F0: 28 33 29 B2 22 54 49 4E 59 22 3A 46 4F 24 28 34 |(3)."TINY":FO$(4|
00000500: 29 B2 22 43 4F 4D 4D 4F 44 4F 52 45 20 4C 2F 55 |)."COMMODORE L/U|
00000510: 22 3A 46 4F 24 28 35 29 B2 22 43 4F 4D 4D 4F 44 |":FO$(5)."COMMOD|
00000520: 4F 52 45 20 55 2F 47 22 3A 46 30 24 B2 22 2A 2A |ORE U/G":F0$."**|
00000530: 2A 20 4E 4F 20 46 49 4C 45 21 20 2A 2A 2A 22 3A |* NO FILE! ***":|
00000540: 46 53 24 B2 46 30 24 3A 51 55 24 B2 C7 28 33 34 |FS$.F0$:QU$..(34|
00000550: 29 00 8C 45 C8 00 8D 36 35 30 3A 99 22 11 20 44 |)..E...650:.". D|
00000560: 45 46 41 55 4C 54 53 3A 20 22 3B 45 58 24 28 45 |EFAULTS: ";EX$(E|
00000570: 58 29 3B 22 2C 20 20 46 4F 4E 54 20 3D 20 22 3B |X);", FONT = ";|
00000580: 46 4F 24 28 A5 46 49 28 46 4F 29 29 00 B1 45 D2 |FO$(.FI(FO))..E.|
00000590: 00 99 22 11 46 49 4C 45 20 49 4E 20 4D 45 4D 4F |..".FILE IN MEMO|
000005A0: 52 59 3A 20 22 3B 51 55 24 3B 46 53 24 3B 51 55 |RY: ";QU$;FS$;QU|
000005B0: 24 00 34 46 DC 00 99 3A 99 22 11 50 4C 45 41 53 |$.4F...:.".PLEAS|
000005C0: 45 20 43 48 4F 4F 53 45 3A 22 3A 99 22 20 31 2E |E CHOOSE:":." 1.|
000005D0: 20 20 20 54 4F 47 47 4C 45 20 44 45 46 41 55 4C | TOGGLE DEFAUL|
000005E0: 54 20 45 58 50 41 4E 53 49 4F 4E 22 3A 99 22 20 |T EXPANSION":." |
000005F0: 32 2E 20 20 20 43 48 41 4E 47 45 20 44 45 46 41 |2. CHANGE DEFA|
00000600: 55 4C 54 20 46 4F 4E 54 22 3A 99 22 20 33 2E 20 |ULT FONT":." 3. |
00000610: 20 20 45 4E 54 45 52 20 46 49 4C 45 4E 41 4D 45 | ENTER FILENAME|
00000620: 22 3A 99 22 20 34 2E 20 20 20 44 49 52 45 43 54 |":." 4. DIRECT|
00000630: 4F 52 59 22 00 BF 46 E6 00 99 22 20 35 2E 20 20 |ORY"..F..." 5. |
00000640: 20 50 52 49 4E 54 20 22 51 55 24 3B 46 53 24 3B | PRINT "QU$;FS$;|
00000650: 51 55 24 3B 22 20 54 4F 20 53 43 52 45 45 4E 22 |QU$;" TO SCREEN"|
00000660: 3A 99 22 20 36 2E 20 20 20 50 52 49 4E 54 20 22 |:." 6. PRINT "|
00000670: 51 55 24 46 53 24 51 55 24 22 20 54 4F 20 50 52 |QU$FS$QU$" TO PR|
00000680: 49 4E 54 45 52 20 26 20 53 43 52 45 45 4E 22 3A |INTER & SCREEN":|
00000690: 99 22 20 37 2E 20 20 20 52 45 53 54 41 52 54 20 |." 7. RESTART |
000006A0: 50 52 4F 47 52 41 4D 22 3A 99 22 20 38 2E 20 20 |PROGRAM":." 8. |
000006B0: 20 45 58 49 54 20 54 4F 20 42 41 53 49 43 22 00 | EXIT TO BASIC".|
000006C0: DF 46 F0 00 A1 F9 43 4F 24 3A 8B 43 4F 24 B2 22 |.F....CO$:.CO$."|
000006D0: 31 22 A7 45 58 B2 45 58 AA 31 3A 89 33 33 30 00 |1".EX.EX.1:.330.|
000006E0: F6 46 FA 00 8B 43 4F 24 B2 22 32 22 A7 8D 33 34 |.F...CO$."2"..34|
000006F0: 30 3A 89 32 30 30 00 25 47 04 01 8B 43 4F 24 B2 |0:.200.%G...CO$.|
00000700: 22 33 22 A7 99 3A 85 22 20 53 45 51 20 46 49 4C |"3"..:." SEQ FIL|
00000710: 45 20 54 4F 20 50 52 49 4E 54 3A 22 3B 46 53 24 |E TO PRINT:";FS$|
00000720: 3A 89 32 30 30 00 45 47 0E 01 8B 43 4F 24 B2 22 |:.200.EG...CO$."|
00000730: 34 22 A7 99 22 93 22 3B 3A EE 3A A1 F9 43 4F 24 |4"..".";:.:..CO$|
00000740: 3A 89 32 30 30 00 61 47 18 01 8B 43 4F 24 B2 22 |:.200.aG...CO$."|
00000750: 35 22 A7 50 46 B2 30 3A 8D 33 38 30 3A 89 32 30 |5".PF.0:.380:.20|
00000760: 30 00 7D 47 22 01 8B 43 4F 24 B2 22 36 22 A7 50 |0.}G"..CO$."6".P|
00000770: 46 B2 31 3A 8D 33 38 30 3A 89 32 30 30 00 8C 47 |F.1:.380:.200..G|
00000780: 2C 01 8B 43 4F 24 B2 22 37 22 A7 8A 00 9C 47 36 |,..CO$."7"....G6|
00000790: 01 8B 43 4F 24 B2 22 38 22 A7 FE 1E 00 A5 47 40 |..CO$."8".....G@|
000007A0: 01 89 32 34 30 00 CB 47 4A 01 45 59 B2 45 58 3A |..240..GJ.EY.EX:|
000007B0: 8B 45 58 B2 33 A7 45 58 B2 30 3A 45 59 B2 31 3A |.EX.3.EX.0:EY.1:|
000007C0: 89 32 30 30 3A D5 20 89 32 30 30 00 1C 48 54 01 |.200:. .200..HT.|
000007D0: 99 22 93 11 11 46 4F 4E 54 53 20 41 56 41 49 4C |."...FONTS AVAIL|
000007E0: 41 42 4C 45 3A 22 3A 99 3A 81 49 B2 31 A4 35 3A |ABLE:":.:.I.1.5:|
000007F0: 99 22 20 22 3B 49 3B 22 2E 20 20 20 22 3B 46 4F |." ";I;". ";FO|
00000800: 24 28 49 29 3A 82 3A 99 3A 99 22 20 20 50 4C 45 |$(I):.:.:." PLE|
00000810: 41 53 45 20 43 48 4F 4F 53 45 3A 22 00 26 48 5E |ASE CHOOSE:".&H^|
00000820: 01 A1 F9 43 4F 24 00 4D 48 68 01 8B 43 4F 24 B1 |...CO$.MHh..CO$.|
00000830: 22 30 22 A7 8B 43 4F 24 B3 22 36 22 A7 46 4F B2 |"0"..CO$."6".FO.|
00000840: A5 46 4F 28 C5 28 43 4F 24 29 29 3A 8E 00 56 48 |.FO(.(CO$)):..VH|
00000850: 72 01 89 33 35 30 00 8D 48 7C 01 99 22 50 52 49 |r..350..H|.."PRI|
00000860: 4E 54 49 4E 47 20 54 4F 20 53 43 52 45 45 4E 22 |NTING TO SCREEN"|
00000870: 3B 3A 8B 20 50 46 A7 99 22 20 41 4E 44 20 50 52 |;:. PF.." AND PR|
00000880: 49 4E 54 45 52 2E 22 3A D5 99 22 2E 22 00 CC 48 |INTER.":.."."..H|
00000890: 86 01 42 24 B2 22 22 3A 43 4E B2 30 3A 4C 4E B2 |..B$."":CN.0:LN.|
000008A0: 30 3A 50 58 B2 31 3A 9F 38 2C 38 2C 38 2C 46 53 |0:PX.1:.8,8,8,FS|
000008B0: 24 AA 22 2C 53 2C 52 22 3A 8B 44 53 A7 99 3A 99 |$.",S,R":.DS..:.|
000008C0: 44 53 24 3A FE 0F 3A FE 0B 33 3A 8E 00 E6 48 90 |DS$:..:..3:...H.|
000008D0: 01 40 9C 2C 30 3A 40 DE 2C 31 35 2C 30 3A 8B 50 |.@.,0:@.,15,0:.P|
000008E0: 46 A7 8D 36 34 30 00 12 49 9A 01 A1 23 38 2C 41 |F..640..I...#8,A|
000008F0: 24 3A 53 44 B2 53 54 3A 41 24 B2 41 24 AA C7 28 |$:SD.ST:A$.A$..(|
00000900: 30 29 3A 41 B2 C6 28 41 24 29 3A 8B 53 44 A7 34 |0):A..(A$):.SD.4|
00000910: 39 30 00 22 49 A4 01 8B 41 B2 45 53 A7 89 20 35 |90."I...A.ES.. 5|
00000920: 39 30 00 3A 49 AE 01 8B 41 B1 39 35 A7 8B 41 B3 |90.:I...A.95..A.|
00000930: 31 32 38 A7 41 B2 41 AA 39 36 00 49 49 B8 01 8B |128.A.A.96.II...|
00000940: 41 B3 33 32 A7 89 34 37 30 00 60 49 C2 01 8B 41 |A.32..470.`I...A|
00000950: B1 31 32 37 A7 8B 41 B3 31 36 30 A7 89 34 37 30 |.127..A.160..470|
00000960: 00 87 49 CC 01 42 24 B2 42 24 AA C7 28 41 29 3A |..I..B$.B$..(A):|
00000970: 43 4E B2 43 4E AA 45 58 3A 8B 45 58 B2 30 A7 43 |CN.CN.EX:.EX.0.C|
00000980: 4E B2 43 4E AA 2E 35 00 B8 49 D6 01 8B 43 4E B1 |N.CN..5..I...CN.|
00000990: 28 4C 45 AB 45 59 29 B0 41 B2 31 33 A7 40 E0 2C |(LE.EY).A.13.@.,|
000009A0: 46 4F 2C 30 2C 38 AC 4C 4E 2C 45 59 2C 45 58 2C |FO,0,8.LN,EY,EX,|
000009B0: 42 24 3A 89 20 35 32 30 00 C6 49 E0 01 8B 53 44 |B$:. 520..I...SD|
000009C0: B2 30 A7 34 31 30 00 E7 49 EA 01 8B 50 46 A7 40 |.0.410..I...PF.@|
000009D0: 48 F4 2C 32 2C 35 3A 40 9C 2C 30 3A D5 A1 F9 43 |H.,2,5:@.,0:...C|
000009E0: 4F 24 3A 40 9C 2C 30 00 0A 4A F4 01 40 54 45 58 |O$:@.,0..J..@TEX|
000009F0: 54 3A 8B 53 44 B2 36 34 A7 99 22 44 4F 4E 45 21 |T:.SD.64.."DONE!|
00000A00: 22 3A FE 0F 3A FE 0B 33 3A 8E 00 2D 4A FE 01 99 |":..:..3:..-J...|
00000A10: 53 44 2C 44 53 24 2C 22 44 49 53 4B 20 45 52 52 |SD,DS$,"DISK ERR|
00000A20: 4F 52 21 22 3A FE 0F 3A FE 0B 33 3A 8E 00 53 4A |OR!":..:..3:..SJ|
00000A30: 08 02 42 24 B2 22 22 3A 43 4E B2 30 3A 4C 4E B2 |..B$."":CN.0:LN.|
00000A40: 4C 4E AA 45 58 3A 8B 45 58 B2 30 A7 4C 4E B2 4C |LN.EX:.EX.0.LN.L|
00000A50: 4E AA 31 00 A7 4A 12 02 A1 23 38 2C 41 24 3A 53 |N.1..J...#8,A$:S|
00000A60: 44 B2 53 54 3A 41 24 B2 41 24 AA C7 28 30 29 3A |D.ST:A$.A$..(0):|
00000A70: 41 B2 C6 28 41 24 29 3A 8B 53 44 A7 34 39 30 3A |A..(A$):.SD.490:|
00000A80: D5 20 8B 41 B2 31 33 A7 A1 23 38 2C 41 24 3A 53 |. .A.13..#8,A$:S|
00000A90: 44 B2 53 54 3A 41 24 B2 41 24 AA C7 28 30 29 3A |D.ST:A$.A$..(0):|
00000AA0: 41 B2 C6 28 41 24 29 00 B9 4A 1C 02 8B 4C 4E B3 |A..(A$)..J...LN.|
00000AB0: 32 36 AB 45 59 A7 34 32 30 00 CE 4A 26 02 8B 50 |26.EY.420..J&..P|
00000AC0: 46 A7 40 48 F4 2C 32 2C 35 3A 40 9C 2C 30 00 00 |F.@H.,2,5:@.,0..|
00000AD0: 4B 30 02 4C 4E B2 30 3A 50 58 B2 50 58 AA 2E 35 |K0.LN.0:PX.PX..5|
00000AE0: 3A 8B 50 46 A7 8B 28 28 50 58 AB B5 28 50 58 29 |:.PF..((PX..(PX)|
00000AF0: 29 B3 2E 32 35 29 A7 8D 36 33 30 3A 8D 36 34 30 |)..25)..630:.640|
00000B00: 00 0D 4B 3A 02 8B 50 46 A7 89 34 32 30 00 21 4B |..K:..PF..420.!K|
00000B10: 44 02 A1 F9 43 4F 24 3A 40 9C 2C 30 3A 89 34 32 |D...CO$:@.,0:.42|
00000B20: 30 00 4D 4B 4E 02 A1 23 38 2C 41 24 3A 53 44 B2 |0.MKN..#8,A$:SD.|
00000B30: 53 54 3A 41 24 B2 41 24 AA C7 28 30 29 3A 8B 41 |ST:A$.A$..(0):.A|
00000B40: 24 B2 22 30 22 A7 41 24 B2 22 31 30 22 00 8C 4B |$."0".A$."10"..K|
00000B50: 58 02 41 B2 C5 28 41 24 29 3A 8B 41 B2 30 A7 41 |X.A..(A$):.A.0.A|
00000B60: B2 C6 28 41 24 29 3A 89 34 36 30 3A D5 20 45 58 |..(A$):.460:. EX|
00000B70: B2 31 3A 45 59 B2 31 3A 8B 41 B1 35 A7 41 B2 41 |.1:EY.1:.A.5.A.A|
00000B80: AB 35 3A 45 58 B2 32 3A 45 59 B2 32 00 B9 4B 62 |.5:EX.2:EY.2..Kb|
00000B90: 02 46 49 B2 41 3A 46 4F B2 A5 46 4F 28 41 29 3A |.FI.A:FO..FO(A):|
00000BA0: 46 4F 24 B2 46 4F 24 28 41 29 3A 8B 41 B2 33 A7 |FO$.FO$(A):.A.3.|
00000BB0: 45 58 B2 30 3A 45 59 B2 31 00 C2 4B 6C 02 89 34 |EX.0:EY.1..Kl..4|
00000BC0: 38 30 00 E6 4B 76 02 9F 34 2C 34 3A 81 49 B2 31 |80..Kv..4,4:.I.1|
00000BD0: A4 31 31 3A 98 34 3A 82 3A A0 34 3A 8E 3A 8F 20 |.11:.4:.:.4:.:. |
00000BE0: 46 4F 4F 54 45 52 00 0A 4C 80 02 9F 34 2C 34 3A |FOOTER..L...4,4:|
00000BF0: 81 49 B2 31 A4 31 30 3A 98 34 3A 82 3A A0 34 3A |.I.1.10:.4:.:.4:|
00000C00: 8E 3A 8F 20 48 45 41 44 45 52 00 2B 4C 8A 02 99 |.:. HEADER.+L...|
00000C10: 22 93 11 11 20 20 20 20 20 20 12 2A 2A 92 20 20 |"... .**. |
00000C20: 20 48 4F 54 20 54 49 47 45 52 22 00 48 4C 94 02 | HOT TIGER".HL..|
00000C30: 99 22 20 20 12 2F 2F 2F 2F 3C 3E 92 20 20 20 53 |." .////<>. S|
00000C40: 4F 46 54 57 41 52 45 22 00 6B 4C 9E 02 99 22 20 |OFTWARE".kL..." |
00000C50: 12 2F 92 20 12 2F 2F 2F 2F 92 20 20 20 20 50 52 |./. .////. PR|
00000C60: 45 53 45 4E 54 53 20 2E 2E 2E 22 00 97 4C A8 02 |ESENTS ..."..L..|
00000C70: 99 22 20 20 20 12 2F 92 20 20 12 2F 92 20 20 20 |." ./. ./. |
00000C80: 20 55 4C 54 52 41 48 49 52 45 53 20 53 45 51 50 | ULTRAHIRES SEQP|
00000C90: 52 49 4E 54 22 3A 8E 00 E2 4C B2 02 99 22 11 20 |RINT":...L...". |
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CB0: 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 20 | COPYRIGHT (C) |
00000CC0: 41 55 47 55 53 54 20 31 39 38 36 20 42 59 20 57 |AUGUST 1986 BY W|
00000CD0: 49 4C 4C 49 41 4D 20 48 2E 20 4D 4F 4F 52 45 22 |ILLIAM H. MOORE"|
00000CE0: 3A 8E 00 23 4D BC 02 40 54 45 58 54 3A FE 0F 3A |:..#M..@TEXT:..:|
00000CF0: 99 44 53 24 3A 99 22 45 52 52 4F 52 20 23 22 3B |.DS$:."ERROR #";|
00000D00: 45 52 2C 22 49 4E 20 4C 49 4E 45 22 3B 45 4C 2C |ER,"IN LINE";EL,|
00000D10: 22 4F 46 20 54 59 50 45 3A 20 22 3B D3 28 45 52 |"OF TYPE: ";.(ER|
00000D20: 29 3A 80 00 00 00 |):.... |
.@P@... ********************************
****************************************
..@... * ULTRAHIRES SEQPRINT -- RUNS UN
DER WALRUS' ULTRAHIRES TO PRINT SEQ *.
.@... * FILES USING THE VARIOUS S
CREEN FONTS AVAILABLE THERE. *.=
A(.. * TESTED WITH THE OLIVETTI PR2300
PRINTER, MAY REQUIRE MINOR CHANGES *..A
2.. * FOR OTHER ULTRAHIRES-C
OMPATIBLE PRINTERS. *..A<
.. * COPYRIGHT (C) AUGUST 1986
BY WILLIAM H. MOORE *.*BF.
. * ALL COMMERCIAL RIGHTS RESERVED ..
MAY BE FREELY DISTRIBUTED IN *.YBP..
* UNMODIFIED FORM IF NO CHARGES OTHER
THAN MEDIA COSTS ARE LEVIED *.HBZ..
****************************************
********************************.XBD.@WA
LRUS:..2..BN..%:.47,0:.48,132:...CX.@.,0
:@.,15,0..C..W 700.WC..@TEXT:.650:.690:.
"..":."FIRST FONT:";N1$:..(N1$."*"),B0,P
45000:."SECOND FONT:";N2$:..(N2$."*"),B0
,P40000.MC..F1.45000:F2.40000:FU.Q("D000
"):FL.Q("D800"):FS.7168:EX.1:EY.1:FO.F1:
ES.92:LE.79.5.BD .EX$(0)."HALF-SIZE**TIN
Y FONT ONLY!!":EX$(1)."SINGLE-HEIGHT & S
INGLE-WIDTH":EX$(2)."DOUBLE-HEIGHT & DOU
BLE-WIDTH"..D... .FI(X)..1.(X.45000).2.(
X.40000).3.(X.Q("1C00")).4.(X.Q("D800"))
.5.(X.Q("D000")).RD....FO(X)..F1.(X.1).F
2.(X.2).FS.(X.3).FL.(X.4).FU.(X.5).QE..F
O$(1).N1$:FO$(2).N2$:FO$(3)."TINY":FO$(4
)."COMMODORE L/U":FO$(5)."COMMODORE U/G"
:F0$."*** NO FILE! ***":FS$.F0$:QU$.G(34
)..EH..650:.". DEFAULTS: ";EX$(EX);", F
ONT = ";FO$(.FI(FO))..ER..".FILE IN MEMO
RY: ";QU$;FS$;QU$.4F...:.".PLEASE CHOOSE
:":." 1. TOGGLE DEFAULT EXPANSION":."
2. CHANGE DEFAULT FONT":." 3. ENTER
FILENAME":." 4. DIRECTORY"..F..." 5.
PRINT "QU$;FS$;QU$;" TO SCREEN":." 6.
PRINT "QU$FS$QU$" TO PRINTER & SCREEN":
." 7. RESTART PROGRAM":." 8. EXIT TO
BASIC"..F....CO$:.CO$."1".EX.EX.1:.330.
.F...CO$."2"..340:.200.%G...CO$."3"..:."
SEQ FILE TO PRINT:";FS$:.200.EG...CO$."
4"..".";:.:..CO$:.200.AG...CO$."5".PF.0:
.380:.200.}G"..CO$."6".PF.1:.380:.200..G
,..CO$."7"....G6..CO$."8".....G@..240.KG
J.EY.EX:.EX.3.EX.0:EY.1:.200:U .200..HT.
."...FONTS AVAILABLE:":.:.I.1.5:." ";I;"
. ";FO$(I):.:.:." PLEASE CHOOSE:".&H^
...CO$.MHH..CO$."0"..CO$."6".FO..FO(E(CO
$)):..VHR..350..H|.."PRINTING TO SCREEN"
;:. PF.." AND PRINTER.":U.".".LH..B$."":
CN.0:LN.0:PX.1:.8,8,8,FS$.",S,R":.DS..:.
DS$:..:..3:...H..@.,0:@.,15,0:.PF..640..
I...#8,A$:SD.ST:A$.A$.G(0):A.F(A$):.SD.4
90."I...A.ES.. 590.:I...A.95..A.128.A.A.
96.II...A.32..470.`IB..A.127..A.160..470
..IL.B$.B$.G(A):CN.CN.EX:.EX.0.CN.CN..5.
.IV..CN.(LE.EY).A.13.@.,FO,0,8.LN,EY,EX,
B$:. 520.FI...SD.0.410..I...PF.@H.,2,5:@
.,0:U..CO$:@.,0..J..@TEXT:.SD.64.."DONE!
":..:..3:..-J...SD,DS$,"DISK ERROR!":..:
..3:..SJ..B$."":CN.0:LN.LN.EX:.EX.0.LN.L
N.1..J...#8,A$:SD.ST:A$.A$.G(0):A.F(A$):
.SD.490:U .A.13..#8,A$:SD.ST:A$.A$.G(0):
A.F(A$)..J...LN.26.EY.420.NJ&..PF.@H.,2,
5:@.,0..K0.LN.0:PX.PX..5:.PF..((PX..(PX)
)..25)..630:.640..K:..PF..420.!KD...CO$:
@.,0:.420.MKN..#8,A$:SD.ST:A$.A$.G(0):.A
$."0".A$."10"..KX.A.E(A$):.A.0.A.F(A$):.
460:U EX.1:EY.1:.A.5.A.A.5:EX.2:EY.2..KB
.FI.A:FO..FO(A):FO$.FO$(A):.A.3.EX.0:EY.
1.BKL..480..KV..4,4:.I.1.11:.4:.: 4:.:.
FOOTER..L...4,4:.I.1.10:.4:.: 4:.:. HEAD
ER.+L..."... .**. HOT TIGER".HL..
." .////<>. SOFTWARE".KL..." ./. .///
/. PRESENTS ..."..L..." ./. ./.
ULTRAHIRES SEQPRINT":...L...".
COPYRIGHT (C) AUGUST 1986 BY W
ILLIAM H. MOORE":..#M..@TEXT:..:.DS$:."E
RROR #";ER,"IN LINE";EL,"OF TYPE: ";S(ER
):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL