SPEEDPRINT.BAS

00000000: 01 08 49 08 0A 00 8F 20  43 4F 50 59 52 49 47 48  |..I.... COPYRIGH|
00000010: 54 20 31 39 38 38 20 43  4F 4D 50 55 54 45 21 20  |T 1988 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54  49 4F 4E 53 2C 20 49 4E  |PUBLICATIONS, IN|
00000030: 43 2E 20 2D 20 41 4C 4C  20 52 49 47 48 54 53 20  |C. - ALL RIGHTS |
00000040: 52 45 53 45 52 56 45 44  2E 00 57 08 14 00 8B 4C  |RESERVED..W....L|
00000050: 4C B2 31 A7 31 30 30 00  65 08 1E 00 8B 4C 4C B2  |L.1.100.e....LL.|
00000060: 32 A7 34 32 30 00 6E 08  28 00 8D 35 34 30 00 A7  |2.420.n.(..540..|
00000070: 08 32 00 53 53 24 B2 22  53 50 45 45 44 53 43 52  |.2.SS$."SPEEDSCR|
00000080: 49 50 54 20 33 2E 32 22  3A 8F 20 53 50 45 45 44  |IPT 3.2":. SPEED|
00000090: 53 43 52 49 50 54 20 46  49 4C 45 4E 41 4D 45 20  |SCRIPT FILENAME |
000000A0: 54 4F 20 42 4F 4F 54 00  C6 08 3C 00 46 43 24 B2  |TO BOOT...<.FC$.|
000000B0: 22 BB 22 3A 8F 20 46 4F  4E 54 2D 43 48 41 4E 47  |".":. FONT-CHANG|
000000C0: 45 20 43 4F 44 45 00 EF  08 46 00 54 50 24 B2 22  |E CODE...F.TP$."|
000000D0: A3 22 3A 8F 20 54 45 4D  50 4F 52 41 52 59 20 46  |.":. TEMPORARY F|
000000E0: 4F 4E 54 2D 43 48 41 4E  47 45 20 43 4F 44 45 00  |ONT-CHANGE CODE.|
000000F0: 0F 09 50 00 52 45 24 B2  22 B2 22 3A 8F 20 52 45  |..P.RE$.".":. RE|
00000100: 53 54 4F 52 45 2D 46 4F  4E 54 20 43 4F 44 45 00  |STORE-FONT CODE.|
00000110: 43 09 5A 00 99 22 93 05  0E D0 4C 45 41 53 45 20  |C.Z.."....LEASE |
00000120: 57 41 49 54 2E 2E 2E 2E  22 3A 4C 4C B2 31 3A 93  |WAIT....":LL.1:.|
00000130: 22 53 50 45 45 44 50 52  49 4E 54 2E 4D 4C 22 2C  |"SPEEDPRINT.ML",|
00000140: 38 2C 31 00 68 09 64 00  97 46 43 2C C6 28 46 43  |8,1.h.d..FC,.(FC|
00000150: 24 29 3A 97 54 50 2C C6  28 54 50 24 29 3A 97 52  |$):.TP,.(TP$):.R|
00000160: 45 2C C6 28 52 45 24 29  00 89 09 6E 00 8D 31 38  |E,.(RE$)...n..18|
00000170: 30 3A 8D 32 35 30 3A 8B  46 49 24 B3 B1 22 22 AF  |0:.250:.FI$.."".|
00000180: 4E 46 B3 31 31 A7 31 31  30 00 A6 09 78 00 99 22  |NF.11.110...x.."|
00000190: 93 05 11 11 C2 4F 4F 54  49 4E 47 20 22 53 53 24  |.....OOTING "SS$|
000001A0: 22 2E 2E 2E 2E 22 00 C2  09 82 00 99 22 90 11 11  |"...."......"...|
000001B0: 4C 4F 41 44 22 51 55 24  53 53 24 51 55 24 22 2C  |LOAD"QU$SS$QU$",|
000001C0: 38 22 00 D8 09 8C 00 99  22 11 11 11 11 11 11 53  |8"......"......S|
000001D0: 59 53 34 39 31 35 32 22  00 FD 09 96 00 99 22 11  |YS49152"......".|
000001E0: 11 50 4F 4B 45 32 34 37  33 2C 22 A5 48 28 4D 45  |.POKE2473,".H(ME|
000001F0: 4D 29 AA 31 3A 99 22 11  11 52 55 4E 22 00 2C 0A  |M).1:."..RUN".,.|
00000200: A0 00 81 49 B2 36 33 31  A4 36 33 36 3A 97 49 2C  |...I.631.636:.I,|
00000210: 31 33 3A 82 3A 97 31 39  38 2C 38 3A 97 36 33 37  |13:.:.198,8:.637|
00000220: 2C 31 34 37 3A 97 36 33  38 2C 38 39 00 39 0A AA  |,147:.638,89.9..|
00000230: 00 99 22 13 11 11 22 3A  80 00 5D 0A B4 00 99 22  |.."...":..]...."|
00000240: 93 11 11 0E 05 22 A3 31  30 29 22 D3 50 45 45 44  |.....".10)".PEED|
00000250: D0 52 49 4E 54 20 C2 4F  4F 54 45 52 22 00 8C 0A  |.RINT .OOTER"...|
00000260: BE 00 99 A3 32 29 22 11  98 C3 4F 50 59 52 49 47  |....2)"...OPYRIG|
00000270: 48 54 20 31 39 38 38 20  C3 CF CD D0 D5 D4 C5 21  |HT 1988 .......!|
00000280: 20 D0 55 42 4C 2E 20 C9  4E 43 2E 22 00 AA 0A C8  | .UBL. .NC."....|
00000290: 00 99 A3 39 29 22 C1 4C  4C 20 D2 49 47 48 54 53  |...9)".LL .IGHTS|
000002A0: 20 D2 45 53 45 52 56 45  44 22 00 E6 0A D2 00 99  | .ESERVED"......|
000002B0: 22 11 D4 48 45 53 45 20  46 4F 4E 54 20 54 59 50  |"..HESE FONT TYP|
000002C0: 45 53 20 48 41 56 45 20  41 4C 52 45 41 44 59 20  |ES HAVE ALREADY |
000002D0: 42 45 45 4E 22 3A 99 22  20 20 49 4E 53 54 41 4C  |BEEN":."  INSTAL|
000002E0: 4C 45 44 3A 11 22 00 0A  0B DC 00 99 22 43 4F 44  |LED:."......"COD|
000002F0: 45 20 20 20 4E 41 4D 45  22 3A 99 22 2D 2D 2D 2D  |E   NAME":."----|
00000300: 20 2D 2D 2D 2D 2D 2D 2D  2D 22 00 2E 0B E6 00 81  | --------"......|
00000310: 49 B2 31 A4 4E 46 3A 99  22 98 20 22 41 42 24 28  |I.1.NF:.". "AB$(|
00000320: 49 29 22 20 20 22 46 49  24 28 49 29 3A 82 00 34  |I)"  "FI$(I):..4|
00000330: 0B F0 00 8E 00 7B 0B FA  00 99 22 11 11 05 C5 4E  |.....{...."....N|
00000340: 54 45 52 20 4E 41 4D 45  20 4F 46 20 4E 45 58 54  |TER NAME OF NEXT|
00000350: 20 46 4F 4E 54 20 4F 52  20 3C D2 C5 D4 D5 D2 CE  | FONT OR <......|
00000360: 3E 22 3A 99 22 20 20 46  4F 52 20 4E 4F 20 4D 4F  |>":."  FOR NO MO|
00000370: 52 45 20 46 4F 4E 54 53  2E 98 22 00 8B 0B 04 01  |RE FONTS..".....|
00000380: 46 49 24 B2 22 22 3A 85  46 49 24 00 99 0B 0E 01  |FI$."":.FI$.....|
00000390: 8B 46 49 24 B2 22 22 A7  8E 00 C1 0B 18 01 8B C8  |.FI$."".........|
000003A0: 28 46 49 24 2C 34 29 B2  22 46 4F 4E 54 22 AF CA  |(FI$,4)."FONT"..|
000003B0: 28 46 49 24 2C 37 2C 31  29 B2 22 2F 22 A7 33 31  |(FI$,7,1)."/".31|
000003C0: 30 00 FA 0B 22 01 85 22  05 C5 4E 54 45 52 20 32  |0...".."..NTER 2|
000003D0: 2D 43 48 41 52 41 43 54  45 52 20 41 42 42 52 45  |-CHARACTER ABBRE|
000003E0: 56 49 41 54 49 4F 4E 98  22 3B 41 24 3A 8B C3 28  |VIATION.";A$:..(|
000003F0: 41 24 29 B3 B1 32 A7 32  39 30 00 14 0C 2C 01 46  |A$)..2.290...,.F|
00000400: 49 24 B2 22 46 4F 4E 54  22 AA 41 24 AA 22 2F 22  |I$."FONT".A$."/"|
00000410: AA 46 49 24 00 43 0C 36  01 41 42 24 B2 CA 28 46  |.FI$.C.6.AB$..(F|
00000420: 49 24 2C 35 2C 32 29 3A  81 49 B2 31 A4 4E 46 3A  |I$,5,2):.I.1.NF:|
00000430: 8B 41 42 24 B3 B1 41 42  24 28 49 29 A7 82 3A 89  |.AB$..AB$(I)..:.|
00000440: 33 33 30 00 7F 0C 40 01  99 22 11 11 05 C3 4F 44  |330...@.."....OD|
00000450: 45 20 27 22 41 42 24 22  27 20 41 4C 52 45 41 44  |E '"AB$"' ALREAD|
00000460: 59 20 55 53 45 44 2E 22  3A 85 22 D0 52 45 53 53  |Y USED.":.".RESS|
00000470: 20 3C D2 C5 D4 D5 D2 CE  3E 22 3B 41 24 3A 8E 00  | <......>";A$:..|
00000480: A6 0C 4A 01 99 22 11 11  05 CC 4F 41 44 20 C6 4F  |..J.."....OAD .O|
00000490: 4E 54 3A 20 22 51 55 24  46 49 24 51 55 24 22 98  |NT: "QU$FI$QU$".|
000004A0: 22 3B 3A 85 41 24 00 C6  0C 54 01 8B 41 24 B2 22  |";:.A$...T..A$."|
000004B0: 59 45 53 22 B0 41 24 B2  22 59 22 B0 41 24 B2 22  |YES".A$."Y".A$."|
000004C0: D9 22 A7 33 36 30 00 CC  0C 5E 01 8E 00 DE 0C 68  |.".360...^.....h|
000004D0: 01 4C 4C B2 32 3A 9F 31  35 2C 38 2C 31 35 00 FC  |.LL.2:.15,8,15..|
000004E0: 0C 72 01 97 41 41 2C 31  3A 97 58 58 2C 38 3A 97  |.r..AA,1:.XX,8:.|
000004F0: 59 59 2C 30 3A 9E 28 53  4C 46 53 29 00 25 0D 7C  |YY,0:.(SLFS).%.||
00000500: 01 81 49 B2 31 A4 C3 28  46 49 24 29 3A 97 35 32  |..I.1..(FI$):.52|
00000510: 39 39 31 AA 49 2C C6 28  CA 28 46 49 24 2C 49 2C  |991.I,.(.(FI$,I,|
00000520: 31 29 29 3A 82 00 58 0D  86 01 97 41 41 2C C3 28  |1)):..X....AA,.(|
00000530: 46 49 24 29 3A 97 58 58  2C A5 4C 28 35 32 39 39  |FI$):.XX,.L(5299|
00000540: 32 29 3A 97 59 59 2C A5  48 28 35 32 39 39 32 29  |2):.YY,.H(52992)|
00000550: 3A 9E 28 53 4E 41 4D 29  00 6D 0D 90 01 99 22 05  |:.(SNAM).m....".|
00000560: 11 CC 4F 41 44 49 4E 47  2E 2E 2E 2E 22 00 96 0D  |..OADING...."...|
00000570: 9A 01 97 41 41 2C 30 3A  97 58 58 2C A5 4C 28 4D  |...AA,0:.XX,.L(M|
00000580: 45 4D 29 3A 97 59 59 2C  A5 48 28 4D 45 4D 29 3A  |EM):.YY,.H(MEM):|
00000590: 9E 28 4C 4F 44 29 00 B8  0D A4 01 84 31 35 2C 41  |.(LOD)......15,A|
000005A0: 24 2C 42 24 2C 43 24 2C  44 24 3A 8B C5 28 41 24  |$,B$,C$,D$:..(A$|
000005B0: 29 B1 31 39 A7 35 30 30  00 DC 0D AE 01 41 42 24  |).19.500.....AB$|
000005C0: B2 CA 28 46 49 24 2C 35  2C 32 29 3A A0 31 35 3A  |..(FI$,5,2):.15:|
000005D0: 54 32 B2 53 45 54 53 AA  4E 46 AC 36 00 FD 0D B8  |T2.SETS.NF.6....|
000005E0: 01 97 54 32 2C C6 28 41  42 24 29 3A 97 54 32 AA  |..T2,.(AB$):.T2.|
000005F0: 31 2C C6 28 C9 28 41 42  24 2C 31 29 29 00 21 0E  |1,.(.(AB$,1)).!.|
00000600: C2 01 97 54 32 AA 32 2C  A5 4C 28 4D 45 4D AA 32  |...T2.2,.L(MEM.2|
00000610: 29 3A 97 54 32 AA 33 2C  A5 48 28 4D 45 4D AA 32  |):.T2.3,.H(MEM.2|
00000620: 29 00 59 0E CC 01 4D B2  4D 45 4D AA 32 AA C2 28  |).Y...M.MEM.2..(|
00000630: 4D 45 4D 29 AA C2 28 4D  45 4D AA 31 29 AC 32 35  |MEM)..(MEM.1).25|
00000640: 36 3A 97 54 32 AA 34 2C  A5 4C 28 4D 29 3A 97 54  |6:.T2.4,.L(M):.T|
00000650: 32 AA 35 2C A5 48 28 4D  29 00 6D 0E D6 01 97 54  |2.5,.H(M).m....T|
00000660: 32 AA 36 2C 30 3A 97 54  32 AA 37 2C 30 00 87 0E  |2.6,0:.T2.7,0...|
00000670: E0 01 4D 45 4D B2 C2 28  58 58 29 AA 32 35 36 AC  |..MEM..(XX).256.|
00000680: C2 28 59 59 29 AA 31 00  B2 0E EA 01 4E 46 B2 4E  |.(YY).1.....NF.N|
00000690: 46 AA 31 3A 46 49 24 28  4E 46 29 B2 CA 28 46 49  |F.1:FI$(NF)..(FI|
000006A0: 24 2C 38 29 3A 41 42 24  28 4E 46 29 B2 41 42 24  |$,8):AB$(NF).AB$|
000006B0: 3A 8E 00 DB 0E F4 01 99  22 11 11 05 C4 49 53 4B  |:......."....ISK|
000006C0: 20 C5 52 52 4F 52 3A 22  3A 99 41 24 22 20 22 42  | .RROR:":.A$" "B|
000006D0: 24 22 20 22 43 24 22 20  22 44 24 00 F5 0E FE 01  |$" "C$" "D$.....|
000006E0: 85 22 11 D0 52 45 53 53  20 3C D2 C5 D4 D5 D2 CE  |."..RESS <......|
000006F0: 3E 22 3B 41 24 00 FE 0E  08 02 A0 20 31 35 00 04  |>";A$...... 15..|
00000700: 0F 12 02 8E 00 15 0F 1C  02 8F 20 49 4E 49 54 49  |.......... INITI|
00000710: 41 4C 49 5A 45 00 38 0F  26 02 97 35 33 32 38 30  |ALIZE.8.&..53280|
00000720: 2C 36 3A 97 35 33 32 38  31 2C 30 3A 43 4F 24 B2  |,6:.53281,0:CO$.|
00000730: 22 9B 22 3A 99 43 4F 24  00 57 0F 30 02 86 46 49  |".":.CO$.W.0..FI|
00000740: 24 28 31 30 29 2C 41 42  24 28 31 30 29 3A 51 55  |$(10),AB$(10):QU|
00000750: 24 B2 C7 28 33 34 29 00  98 0F 3A 02 46 49 24 28  |$..(34)...:.FI$(|
00000760: 31 29 B2 22 42 41 53 49  43 22 3A 41 42 24 28 31  |1)."BASIC":AB$(1|
00000770: 29 B2 22 42 41 22 3A 46  49 24 28 32 29 B2 22 44  |)."BA":FI$(2)."D|
00000780: 45 46 41 55 4C 54 22 3A  41 42 24 28 32 29 B2 22  |EFAULT":AB$(2)."|
00000790: 44 46 22 3A 4E 46 B2 32  00 CC 0F 44 02 53 45 54  |DF":NF.2...D.SET|
000007A0: 53 B2 35 30 33 30 32 3A  46 43 43 48 41 52 B2 35  |S.50302:FCCHAR.5|
000007B0: 30 32 39 39 3A 54 50 43  48 41 52 B2 35 30 33 30  |0299:TPCHAR.5030|
000007C0: 30 3A 52 45 53 54 B2 35  30 33 30 31 00 DA 0F 4E  |0:REST.50301...N|
000007D0: 02 4D 45 4D B2 31 31 30  30 35 00 01 10 58 02 96  |.MEM.11005...X..|
000007E0: A5 48 28 58 29 B2 B5 28  58 AD 32 35 36 29 3A 96  |.H(X)..(X.256):.|
000007F0: A5 4C 28 58 29 B2 58 AB  32 35 36 AC A5 48 28 58  |.L(X).X.256..H(X|
00000800: 29 00 21 10 62 02 41 41  B2 37 38 30 3A 58 58 B2  |).!.b.AA.780:XX.|
00000810: 37 38 31 3A 59 59 B2 37  38 32 3A 53 53 B2 37 38  |781:YY.782:SS.78|
00000820: 33 00 45 10 6C 02 53 4C  46 53 B2 36 35 34 36 36  |3.E.l.SLFS.65466|
00000830: 3A 53 4E 41 4D B2 36 35  34 36 39 3A 4C 4F 44 B2  |:SNAM.65469:LOD.|
00000840: 36 35 34 39 33 00 4B 10  76 02 8E 00 00 00        |65493.K.v.....  |

..I.... COPYRIGHT 1988 COMPUTE! PUBLICAT
IONS, INC. - ALL RIGHTS RESERVED..W....L
L.1.100.E....LL.2.420.N.(..540...2.SS$."
SPEEDSCRIPT 3.2":. SPEEDSCRIPT FILENAME 
TO BOOT.F.<.FC$.".":. FONT-CHANGE CODE..
.F.TP$.".":. TEMPORARY FONT-CHANGE CODE.
..P.RE$.".":. RESTORE-FONT CODE.C.Z.."..
.PLEASE WAIT....":LL.1:."SPEEDPRINT.ML",
8,1.H.D..FC,F(FC$):.TP,F(TP$):.RE,F(RE$)
...N..180:.250:.FI$.."".NF.11.110...X.."
....BOOTING "SS$"....".B...."...LOAD"QU$
SS$QU$",8".X...."......SYS49152"......".
.POKE2473,".H(MEM).1:."..RUN".,. ..I.631
.636:.I,13:.:.198,8:.637,147:.638,89.9..
.."...":..]....".....".10)"SPEEDPRINT BO
OTER".......2)"..COPYRIGHT 1988 COMPUTE!
 PUBL. INC."...H...9)"ALL RIGHTS RESERVE
D"...R..".THESE FONT TYPES HAVE ALREADY 
BEEN":."  INSTALLED:."......"CODE   NAME
":."---- --------"......I.1.NF:.". "AB$(
I)"  "FI$(I):..4.....{...."...ENTER NAME
 OF NEXT FONT OR <RETURN>":."  FOR NO MO
RE FONTS..".....FI$."":.FI$......FI$."".
..A....H(FI$,4)."FONT".J(FI$,7,1)."/".31
0..."..".ENTER 2-CHARACTER ABBREVIATION.
";A$:.C(A$)..2.290...,.FI$."FONT".A$."/"
.FI$.C.6.AB$.J(FI$,5,2):.I.1.NF:.AB$..AB
$(I)..:.330..@.."...CODE '"AB$"' ALREAD
Y USED.":."PRESS <RETURN>";A$:....J.."..
.LOAD FONT: "QU$FI$QU$".";:.A$.F.T..A$."
YES".A$."Y".A$."Y".360.L.^.....H.LL.2:.1
5,8,15...R..AA,1:.XX,8:.YY,0:.(SLFS).%.|
..I.1.C(FI$):.52991.I,F(J(FI$,I,1)):..X.
...AA,C(FI$):.XX,.L(52992):.YY,.H(52992)
:.(SNAM).M...."..LOADING...."......AA,0:
.XX,.L(MEM):.YY,.H(MEM):.(LOD)......15,A
$,B$,C$,D$:.E(A$).19.500.....AB$.J(FI$,5
,2): 15:T2.SETS.NF.6......T2,F(AB$):.T2.
1,F(I(AB$,1)).!.B..T2.2,.L(MEM.2):.T2.3,
.H(MEM.2).Y.L.M.MEM.2.B(MEM).B(MEM.1).25
6:.T2.4,.L(M):.T2.5,.H(M).M.V..T2.6,0:.T
2.7,0.....MEM.B(XX).256.B(YY).1.....NF.N
F.1:FI$(NF).J(FI$,8):AB$(NF).AB$:.......
"...DISK ERROR:":.A$" "B$" "C$" "D$.....
.".PRESS <RETURN>";A$.....  15..........
.. INITIALIZE.8.&..53280,6:.53281,0:CO$.
".":.CO$.W.0..FI$(10),AB$(10):QU$.G(34).
..:.FI$(1)."BASIC":AB$(1)."BA":FI$(2)."D
EFAULT":AB$(2)."DF":NF.2.L.D.SETS.50302:
FCCHAR.50299:TPCHAR.50300:REST.50301.Z.N
.MEM.11005...X...H(X)..(X.256):..L(X).X.
256..H(X).!.B.AA.780:XX.781:YY.782:SS.78
3.E.L.SLFS.65466:SNAM.65469:LOD.65493.K.
V.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL