00000000: 01 08 1A 08 01 00 8F 20 52 55 4E 20 41 55 47 20 |....... RUN AUG |
00000010: 38 34 20 50 41 47 45 20 37 39 00 39 08 02 00 8F |84 PAGE 79.9....|
00000020: 20 46 4F 52 20 53 41 4C 45 20 53 49 47 4E 20 33 | FOR SALE SIGN 3|
00000030: 20 58 20 35 20 49 4E 43 48 00 3F 08 03 00 8F 00 | X 5 INCH.?.....|
00000040: 5D 08 04 00 8F 20 41 24 3D 53 54 52 49 4E 47 20 |].... A$=STRING |
00000050: 54 4F 20 42 45 20 50 52 49 4E 54 45 44 00 77 08 |TO BE PRINTED.w.|
00000060: 05 00 8F 20 42 24 3D 42 4F 52 44 45 52 20 43 48 |... B$=BORDER CH|
00000070: 41 52 41 43 54 45 52 00 95 08 06 00 8F 20 43 24 |ARACTER...... C$|
00000080: 3D 43 45 4E 54 45 52 45 44 20 54 45 58 54 20 53 |=CENTERED TEXT S|
00000090: 54 52 49 4E 47 00 AF 08 07 00 8F 20 47 24 3D 47 |TRING...... G$=G|
000000A0: 52 41 48 50 49 43 53 20 43 4F 4D 4D 41 4E 44 00 |RAHPICS COMMAND.|
000000B0: CD 08 08 00 8F 20 4E 24 3D 4E 4F 52 4D 41 4C 20 |..... N$=NORMAL |
000000C0: 50 52 49 4E 54 20 43 4F 4D 4D 41 4E 44 00 EE 08 |PRINT COMMAND...|
000000D0: 09 00 8F 20 58 24 3D 45 58 50 41 4E 44 45 44 20 |... X$=EXPANDED |
000000E0: 20 50 52 49 4E 54 20 43 4F 4D 4D 41 4E 44 00 06 | PRINT COMMAND..|
000000F0: 09 0A 00 8F 20 4C 49 3D 43 55 52 52 45 4E 54 20 |.... LI=CURRENT |
00000100: 4C 49 4E 45 20 23 00 1F 09 0B 00 8F 20 4C 4C 3D |LINE #...... LL=|
00000110: 4D 41 58 20 4C 49 4E 45 20 4C 45 4E 47 54 48 00 |MAX LINE LENGTH.|
00000120: 33 09 0C 00 8F 20 4E 4C 20 23 20 4F 46 20 4C 49 |3.... NL # OF LI|
00000130: 4E 45 53 00 4A 09 0D 00 8F 20 53 4C 20 53 54 52 |NES.J.... SL STR|
00000140: 49 4E 47 20 4C 45 4E 47 54 48 00 50 09 0E 00 8F |ING LENGTH.P....|
00000150: 00 56 09 0F 00 8F 00 7A 09 10 00 8F 20 20 2A 2A |.V.....z.... **|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 80 09 11 00 8F |**********......|
00000180: 00 9E 09 50 00 58 24 B2 C7 28 31 34 29 3A 47 24 |...P.X$..(14):G$|
00000190: B2 C7 28 38 29 3A 4E 24 B2 C7 28 31 35 29 00 B7 |..(8):N$..(15)..|
000001A0: 09 5A 00 42 24 B2 C7 28 31 39 31 29 3A 4E 4C B2 |.Z.B$..(191):NL.|
000001B0: 37 3A 4C 4C B2 32 35 00 D0 09 64 00 99 22 93 20 |7:LL.25...d..". |
000001C0: 20 20 20 20 2D 46 4F 52 20 53 41 4C 45 2D 11 22 | -FOR SALE-."|
000001D0: 00 EE 09 6E 00 99 22 20 59 4F 55 20 48 41 56 45 |...n.." YOU HAVE|
000001E0: 20 22 3B 4E 4C 3B 22 20 4C 49 4E 45 53 22 00 0F | ";NL;" LINES"..|
000001F0: 0A 78 00 99 22 20 4F 46 20 22 3B 4C 4C AB 32 3B |.x.." OF ";LL.2;|
00000200: 22 20 43 48 41 52 41 43 54 45 52 53 2E 11 22 00 |" CHARACTERS..".|
00000210: 1F 0A 82 00 81 20 4C 49 B2 31 20 A4 20 4E 4C 00 |..... LI.1 . NL.|
00000220: 2D 0A 8C 00 85 20 41 44 24 28 4C 49 29 00 49 0A |-.... AD$(LI).I.|
00000230: 96 00 8B 20 C3 28 41 44 24 28 4C 49 29 29 B3 B2 |... .(AD$(LI))..|
00000240: 4C 4C AB 32 20 89 31 39 30 00 62 0A A0 00 97 33 |LL.2 .190.b....3|
00000250: 36 38 37 38 2C 31 35 3A 97 33 36 38 37 36 2C 32 |6878,15:.36876,2|
00000260: 30 30 00 7F 0A AA 00 99 22 20 4C 49 4E 45 20 54 |00......" LINE T|
00000270: 4F 4F 20 4C 4F 4E 47 20 3A 20 52 45 44 4F 22 00 |OO LONG : REDO".|
00000280: 91 0A B4 00 97 33 36 38 37 38 2C 30 3A 89 31 34 |.....36878,0:.14|
00000290: 30 00 9A 0A BE 00 82 20 4C 49 00 B4 0A C8 00 8F |0...... LI......|
000002A0: 20 2A 2A 2A 44 4F 20 54 48 45 20 4F 55 54 50 55 | ***DO THE OUTPU|
000002B0: 54 2A 2A 2A 00 BD 0A D2 00 9F 31 2C 34 00 DA 0A |T***......1,4...|
000002C0: DC 00 52 24 B2 42 24 3A 8D 32 31 30 30 3A 52 24 |..R$.B$:.2100:R$|
000002D0: B2 22 20 22 3A 8D 32 31 30 30 00 EF 0A E6 00 8D |." ":.2100......|
000002E0: 31 30 30 30 3A 81 4C 49 B2 31 20 A4 20 4E 4C 00 |1000:.LI.1 . NL.|
000002F0: 05 0B F0 00 8D 32 31 30 30 3A 8D 31 34 30 30 3A |.....2100:.1400:|
00000300: 8D 32 31 30 30 00 0E 0B FA 00 82 20 4C 49 00 2A |.2100...... LI.*|
00000310: 0B 04 01 8D 31 30 30 30 3A 8D 32 31 30 30 3A 52 |....1000:.2100:R|
00000320: 24 B2 42 24 3A 8D 32 31 30 30 00 34 0B 22 01 A0 |$.B$:.2100.4."..|
00000330: 31 20 3A 80 00 53 0B E8 03 8F 20 2A 2A 2A 44 52 |1 :..S.... ***DR|
00000340: 41 57 20 33 20 42 4C 41 4E 4B 20 4C 49 4E 45 53 |AW 3 BLANK LINES|
00000350: 2A 2A 2A 00 74 0B F2 03 52 24 B2 22 20 22 3A 81 |***.t...R$." ":.|
00000360: 20 51 B2 31 20 A4 20 33 3A 8D 32 31 30 30 3A 82 | Q.1 . 3:.2100:.|
00000370: 20 51 3A 8E 00 92 0B 78 05 8F 20 41 53 53 45 4D | Q:....x.. ASSEM|
00000380: 42 4C 45 20 41 4E 20 4F 55 54 50 55 54 20 4C 49 |BLE AN OUTPUT LI|
00000390: 4E 45 00 A6 0B 82 05 53 4C B2 C3 28 41 44 24 28 |NE.....SL..(AD$(|
000003A0: 4C 49 29 29 AD 32 00 C9 0B 8C 05 43 24 B2 22 22 |LI)).2.....C$.""|
000003B0: 3A 81 20 4E B2 31 20 A4 20 B5 28 28 28 4C 4C AB |:. N.1 . .(((LL.|
000003C0: 31 29 AD 32 29 AB 53 4C 29 00 E8 0B 96 05 43 24 |1).2).SL).....C$|
000003D0: B2 43 24 AA 22 20 22 3A 82 4E 3A 43 24 B2 43 24 |.C$." ":.N:C$.C$|
000003E0: AA 41 44 24 28 4C 49 29 00 0A 0C A0 05 81 4E B2 |.AD$(LI)......N.|
000003F0: 30 20 A4 28 4C 4C AB 53 4C 29 AD 32 3A 43 24 B2 |0 .(LL.SL).2:C$.|
00000400: 43 24 AA 22 20 22 3A 82 20 4E 00 1C 0C AA 05 43 |C$." ":. N.....C|
00000410: 24 B2 C8 28 43 24 2C 4C 4C AB 31 29 00 3E 0C B4 |$..(C$,LL.1).>..|
00000420: 05 41 24 B2 4E 24 AA 42 24 AA 58 24 AA 43 24 AA |.A$.N$.B$.X$.C$.|
00000430: 4E 24 AA 42 24 AA 47 24 3A 98 31 2C 41 24 00 44 |N$.B$.G$:.1,A$.D|
00000440: 0C BE 05 8E 00 51 0C 34 08 41 24 B2 4E 24 AA 42 |.....Q.4.A$.N$.B|
00000450: 24 00 70 0C 3E 08 81 51 B2 31 A4 28 32 AC 4C 4C |$.p.>..Q.1.(2.LL|
00000460: 29 AB 32 3A 41 24 B2 41 24 AA 52 24 3A 82 20 51 |).2:A$.A$.R$:. Q|
00000470: 00 86 0C 48 08 41 24 B2 41 24 AA 42 24 AA 47 24 |...H.A$.A$.B$.G$|
00000480: 3A 98 31 2C 41 24 00 8C 0C 52 08 8E 00 00 00 |:.1,A$...R..... |
....... RUN AUG 84 PAGE 79.9.... FOR SAL
E SIGN 3 X 5 INCH.?.....].... A$=STRING
TO BE PRINTED.W.... B$=BORDER CHARACTER.
..... C$=CENTERED TEXT STRING...... G$=G
RAHPICS COMMAND.M.... N$=NORMAL PRINT CO
MMAND...... X$=EXPANDED PRINT COMMAND..
.... LI=CURRENT LINE #...... LL=MAX LINE
LENGTH.3.... NL # OF LINES.J.... SL STR
ING LENGTH.P.....V.....Z.... **********
******************.........P.X$.G(14):G$
.G(8):N$.G(15)...Z.B$.G(191):NL.7:LL.25.
P.D..". -FOR SALE-."...N.." YOU HAVE
";NL;" LINES"...X.." OF ";LL.2;" CHARAC
TERS.."...... LI.1 . NL.-.... AD$(LI).I.
... C(AD$(LI))..LL.2 .190.B. ..36878,15:
.36876,200....." LINE TOO LONG : REDO".
.....36878,0:.140...... LI...H.. ***DO T
HE OUTPUT***...R..1,4.Z...R$.B$:.2100:R$
." ":.2100......1000:.LI.1 . NL......210
0:.1400:.2100...... LI.*....1000:.2100:R
$.B$:.2100.4.". 1 :..S.... ***DRAW 3 BLA
NK LINES***.T...R$." ":. Q.1 . 3:.2100:.
Q:....X.. ASSEMBLE AN OUTPUT LINE.....S
L.C(AD$(LI)).2.I...C$."":. N.1 . .(((LL.
1).2).SL).....C$.C$." ":.N:C$.C$.AD$(LI)
... ..N.0 .(LL.SL).2:C$.C$." ":. N.....C
$.H(C$,LL.1).>...A$.N$.B$.X$.C$.N$.B$.G$
:.1,A$.D.....Q.4.A$.N$.B$.P.>..Q.1.(2.LL
).2:A$.A$.R$:. Q...H.A$.A$.B$.G$:.1,A$..
.R.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL