MID STRING DREAM

00000000: 01 04 30 04 00 00 8F 20  54 48 45 20 54 52 41 4E  |..0.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56  4F 4C 55 4D 45 20 34 20  |SACTOR VOLUME 4 |
00000020: 49 53 53 55 45 20 30 36  20 50 41 47 45 20 33 35  |ISSUE 06 PAGE 35|
00000030: 00 7B 04 01 00 8F 20 54  48 49 53 20 50 52 4F 47  |.{.... THIS PROG|
00000040: 52 41 4D 20 49 53 20 46  4F 52 20 44 45 4D 4F 4E  |RAM IS FOR DEMON|
00000050: 54 52 41 54 49 4E 47 20  54 45 43 48 4E 49 51 55  |TRATING TECHNIQU|
00000060: 45 53 20 55 53 49 4E 47  20 4D 49 44 24 20 2D 20  |ES USING MID$ - |
00000070: 53 45 45 20 41 52 54 49  43 4C 45 00 C2 04 0A 00  |SEE ARTICLE.....|
00000080: 8F 20 41 20 4D 49 44 20  53 54 52 49 4E 47 45 52  |. A MID STRINGER|
00000090: 53 20 4E 49 47 48 54 20  44 52 45 41 4D 20 2D 20  |S NIGHT DREAM - |
000000A0: 52 49 43 48 41 52 44 20  45 56 45 52 53 20 20 54  |RICHARD EVERS  T|
000000B0: 52 41 4E 53 41 43 54 4F  52 20 4D 41 47 41 5A 49  |RANSACTOR MAGAZI|
000000C0: 4E 45 00 11 05 14 00 8F  20 2A 20 54 48 45 20 50  |NE...... * THE P|
000000D0: 55 52 50 4F 53 45 20 4F  46 20 54 48 49 53 20 53  |URPOSE OF THIS S|
000000E0: 54 52 41 4E 47 45 20 50  52 4F 47 52 41 4D 20 49  |TRANGE PROGRAM I|
000000F0: 53 20 54 4F 20 53 48 4F  57 20 56 41 52 49 4F 55  |S TO SHOW VARIOU|
00000100: 53 20 55 53 45 53 20 46  4F 52 20 4D 49 44 24 20  |S USES FOR MID$ |
00000110: 2A 00 4C 05 1E 00 81 4C  4F 4F 50 B2 31 A4 35 3A  |*.L....LOOP.1.5:|
00000120: 91 4C 4F 4F 50 8D 35 30  2C 31 31 30 2C 31 38 30  |.LOOP.50,110,180|
00000130: 2C 32 34 30 2C 33 32 30  3A 81 44 45 4C 41 59 B2  |,240,320:.DELAY.|
00000140: 31 A4 31 37 35 30 3A 82  3A 82 3A 80 00 9A 05 28  |1.1750:.:.:....(|
00000150: 00 8F 20 2A 20 4D 49 44  24 20 55 53 45 44 20 54  |.. * MID$ USED T|
00000160: 4F 20 43 4F 4E 44 45 4E  53 45 20 54 48 45 20 44  |O CONDENSE THE D|
00000170: 41 59 20 47 49 56 45 4E  20 42 59 20 55 53 45 52  |AY GIVEN BY USER|
00000180: 20 54 4F 20 41 20 54 48  52 45 45 20 44 49 47 49  | TO A THREE DIGI|
00000190: 54 20 53 54 52 49 4E 47  20 2A 00 C2 05 32 00 41  |T STRING *...2.A|
000001A0: 44 24 B2 22 4D 4F 4E 54  55 45 57 45 44 54 48 55  |D$."MONTUEWEDTHU|
000001B0: 46 52 49 53 41 54 53 55  4E 22 3A 99 C7 28 31 34  |FRISATSUN":..(14|
000001C0: 37 29 00 E3 05 3C 00 85  22 50 4C 45 41 53 45 20  |7)...<.."PLEASE |
000001D0: 53 50 45 43 49 46 59 20  54 48 45 20 44 41 59 22  |SPECIFY THE DAY"|
000001E0: 3B 44 24 00 1F 06 46 00  81 41 B2 31 A4 C3 28 41  |;D$...F..A.1..(A|
000001F0: 44 24 29 A9 33 3A 54 44  24 B2 CA 28 41 44 24 2C  |D$).3:TD$..(AD$,|
00000200: 41 2C 33 29 3A 8B CA 28  44 24 2C 31 2C 33 29 B2  |A,3):..(D$,1,3).|
00000210: 54 44 24 A7 39 30 3A 8F  20 2A 20 4F 4B 20 2A 00  |TD$.90:. * OK *.|
00000220: 50 06 50 00 82 3A 99 C7  28 31 34 37 29 22 54 48  |P.P..:..(147)"TH|
00000230: 45 20 44 41 59 20 47 49  56 45 4E 20 49 53 20 4E  |E DAY GIVEN IS N|
00000240: 4F 54 20 41 43 43 55 52  41 54 45 22 3A 89 36 30  |OT ACCURATE":.60|
00000250: 00 7E 06 5A 00 99 22 54  48 45 20 44 41 59 20 43  |.~.Z.."THE DAY C|
00000260: 48 4F 53 45 4E 20 22 44  24 22 20 49 53 20 4C 49  |HOSEN "D$" IS LI|
00000270: 53 54 45 44 20 41 53 20  22 54 44 24 3A 8E 00 CC  |STED AS "TD$:...|
00000280: 06 64 00 8F 20 2A 20 4D  49 44 24 20 55 53 45 44  |.d.. * MID$ USED|
00000290: 20 54 4F 20 54 41 4B 45  20 4D 4F 4E 54 48 20 47  | TO TAKE MONTH G|
000002A0: 49 56 45 4E 20 49 4E 20  52 41 4E 47 45 20 31 2D  |IVEN IN RANGE 1-|
000002B0: 31 32 20 41 4E 44 20 4D  41 54 43 48 20 54 4F 20  |12 AND MATCH TO |
000002C0: 41 43 54 55 41 4C 20 4D  4F 4E 54 48 00 D8 06 6E  |ACTUAL MONTH...n|
000002D0: 00 99 C7 28 31 34 37 29  00 19 07 78 00 4D 54 24  |...(147)...x.MT$|
000002E0: B2 22 4A 41 4E 55 41 52  59 20 20 46 45 42 55 41  |."JANUARY  FEBUA|
000002F0: 52 59 20 20 4D 41 52 43  48 20 20 20 20 41 50 52  |RY  MARCH    APR|
00000300: 49 4C 20 20 20 20 4D 41  59 20 20 20 20 20 20 4A  |IL    MAY      J|
00000310: 55 4E 45 20 20 20 20 20  22 00 5E 07 82 00 4D 54  |UNE     ".^...MT|
00000320: 24 B2 4D 54 24 AA 22 4A  55 4C 59 20 20 20 20 20  |$.MT$."JULY     |
00000330: 41 55 47 55 53 54 20 20  20 53 45 50 54 45 4D 42  |AUGUST   SEPTEMB|
00000340: 45 52 4F 43 54 4F 42 45  52 20 20 4E 4F 56 45 4D  |EROCTOBER  NOVEM|
00000350: 42 45 52 20 44 45 43 45  4D 42 45 52 20 22 00 92  |BER DECEMBER "..|
00000360: 07 8C 00 85 22 50 4C 45  41 53 45 20 45 4E 54 45  |...."PLEASE ENTE|
00000370: 52 20 54 48 45 20 4D 4F  4E 54 48 20 49 4E 20 52  |R THE MONTH IN R|
00000380: 41 4E 47 45 20 31 2D 31  32 20 2F 20 4D 4D 22 3B  |ANGE 1-12 / MM";|
00000390: 4D 4D 00 C5 07 96 00 8B  4D 4D B1 31 32 A7 99 C7  |MM......MM.12...|
000003A0: 28 31 34 37 29 22 50 4C  45 41 53 45 20 45 4E 54  |(147)"PLEASE ENT|
000003B0: 45 52 20 57 49 54 48 49  4E 20 52 41 4E 47 45 22  |ER WITHIN RANGE"|
000003C0: 3A 89 31 34 30 00 E4 07  A0 00 41 4D 24 B2 CA 28  |:.140.....AM$..(|
000003D0: 4D 54 24 2C 39 AC 4D 4D  AB 38 2C 39 29 3A 99 41  |MT$,9.MM.8,9):.A|
000003E0: 4D 24 3A 8E 00 20 08 AA  00 8F 20 2A 20 41 4E 44  |M$:.. .... * AND|
000003F0: 20 57 48 41 54 20 49 53  20 41 20 54 4F 54 41 4C  | WHAT IS A TOTAL|
00000400: 4C 59 20 55 53 45 4C 45  53 53 20 42 55 54 20 49  |LY USELESS BUT I|
00000410: 4E 54 45 52 45 53 54 49  4E 47 20 55 53 45 20 2A  |NTERESTING USE *|
00000420: 00 46 08 B4 00 99 C7 28  31 34 37 29 3A 55 24 B2  |.F.....(147):U$.|
00000430: C7 28 31 34 35 29 3A 8F  20 2A 20 43 55 52 53 4F  |.(145):. * CURSO|
00000440: 52 20 55 50 20 2A 00 75  08 BE 00 99 22 45 4E 54  |R UP *.u...."ENT|
00000450: 45 52 20 41 4E 20 49 4E  54 45 52 45 53 54 49 4E  |ER AN INTERESTIN|
00000460: 47 20 53 54 52 49 4E 47  22 3A 85 53 24 3A 53 B2  |G STRING":.S$:S.|
00000470: C3 28 53 24 29 00 A5 08  C8 00 81 41 B2 31 A4 53  |.(S$)......A.1.S|
00000480: 3A 99 A3 41 29 CA 28 53  24 2C 31 2C 41 29 A3 53  |:..A).(S$,1,A).S|
00000490: AB 41 29 CA 28 53 24 2C  31 2C 53 AB 41 29 3A 99  |.A).(S$,1,S.A):.|
000004A0: 55 24 2C 3A 82 00 D8 08  D2 00 81 41 B2 53 A4 31  |U$,:.......A.S.1|
000004B0: A9 AB 31 3A 99 A3 41 29  CA 28 53 24 2C 31 2C 41  |..1:..A).(S$,1,A|
000004C0: 29 A3 53 AB 41 29 CA 28  53 24 2C 31 2C 53 AB 41  |).S.A).(S$,1,S.A|
000004D0: 29 3A 99 55 24 2C 3A 82  00 DE 08 DC 00 8E 00 22  |):.U$,:........"|
000004E0: 09 E6 00 8F 20 2A 20 41  20 4D 45 54 48 4F 44 20  |.... * A METHOD |
000004F0: 54 4F 20 47 45 54 20 52  49 44 20 4F 46 20 54 48  |TO GET RID OF TH|
00000500: 45 20 4C 45 41 44 49 4E  47 20 53 50 41 43 45 20  |E LEADING SPACE |
00000510: 53 55 50 50 4C 49 45 44  20 42 59 20 53 54 52 24  |SUPPLIED BY STR$|
00000520: 20 2A 00 50 09 F0 00 99  C7 28 31 34 37 29 22 50  | *.P.....(147)"P|
00000530: 4C 45 41 53 45 20 45 4E  54 45 52 20 41 20 4E 55  |LEASE ENTER A NU|
00000540: 4D 42 45 52 22 3A 85 4E  3A 4E 24 B2 C4 28 4E 29  |MBER":.N:N$..(N)|
00000550: 00 81 09 FA 00 99 22 54  48 45 20 53 54 52 49 4E  |......"THE STRIN|
00000560: 47 20 56 41 4C 55 45 20  49 53 20 42 45 53 54 20  |G VALUE IS BEST |
00000570: 53 48 4F 57 4E 20 49 4E  20 52 45 56 45 52 53 45  |SHOWN IN REVERSE|
00000580: 22 00 B1 09 04 01 99 22  54 48 41 54 20 56 41 4C  |"......"THAT VAL|
00000590: 55 45 20 49 53 20 22 C7  28 31 38 29 4E 24 3A 4E  |UE IS ".(18)N$:N|
000005A0: B2 C3 28 4E 24 29 3A 46  24 B2 CA 28 4E 24 2C 32  |..(N$):F$..(N$,2|
000005B0: 29 00 EE 09 0E 01 99 22  54 48 49 53 20 53 54 52  |)......"THIS STR|
000005C0: 49 4E 47 20 49 53 20 4E  4F 4E 2D 55 53 45 41 42  |ING IS NON-USEAB|
000005D0: 4C 45 20 46 4F 52 20 4D  4F 53 54 20 46 49 4C 45  |LE FOR MOST FILE|
000005E0: 20 41 50 50 4C 49 43 41  54 49 4F 4E 53 22 00 29  | APPLICATIONS".)|
000005F0: 0A 18 01 99 22 54 4F 20  47 45 54 20 52 49 44 20  |...."TO GET RID |
00000600: 4F 46 20 54 48 45 20 4C  45 41 44 49 4E 47 20 53  |OF THE LEADING S|
00000610: 50 41 43 45 2C 20 55 53  45 20 46 53 24 3D 4D 49  |PACE, USE FS$=MI|
00000620: 44 24 28 4E 24 2C 32 29  22 00 53 0A 22 01 99 22  |D$(N$,2)".S.".."|
00000630: 46 24 20 57 49 4C 4C 20  48 4F 4C 44 20 54 48 45  |F$ WILL HOLD THE|
00000640: 20 56 41 4C 55 45 20 4F  46 20 22 C7 28 31 38 29  | VALUE OF ".(18)|
00000650: 46 53 24 00 82 0A 2C 01  99 22 54 48 49 53 20 41  |FS$...,.."THIS A|
00000660: 4D 4F 55 4E 54 53 20 54  4F 20 41 20 55 53 41 42  |MOUNTS TO A USAB|
00000670: 4C 45 20 43 4F 4D 4D 4F  44 49 54 59 20 21 21 22  |LE COMMODITY !!"|
00000680: 3A 8E 00 B9 0A 36 01 8F  20 2A 20 41 4E 20 49 4E  |:....6.. * AN IN|
00000690: 54 45 52 45 53 54 49 4E  47 20 43 4F 4E 43 45 50  |TERESTING CONCEP|
000006A0: 54 20 46 4F 52 20 41 20  50 41 53 53 57 4F 52 44  |T FOR A PASSWORD|
000006B0: 20 53 59 53 54 45 4D 20  2A 00 F2 0A 40 01 99 C7  | SYSTEM *...@...|
000006C0: 28 31 34 37 29 3A 8D 33  38 30 3A 8F 20 2A 20 47  |(147):.380:. * G|
000006D0: 45 54 20 41 20 53 54 52  49 4E 47 20 4F 46 20 41  |ET A STRING OF A|
000006E0: 4C 4C 20 54 48 45 20 50  41 53 53 57 4F 52 44 53  |LL THE PASSWORDS|
000006F0: 20 2A 00 23 0B 4A 01 85  22 45 4E 54 45 52 20 50  | *.#.J.."ENTER P|
00000700: 41 53 53 57 4F 52 44 22  3B 50 57 24 3A 8B C3 28  |ASSWORD";PW$:..(|
00000710: 50 57 24 29 B1 34 A7 99  C7 28 31 34 37 29 3A 89  |PW$).4...(147):.|
00000720: 33 33 30 00 50 0B 54 01  81 41 B2 31 A4 C3 28 50  |330.P.T..A.1..(P|
00000730: 24 29 A9 34 3A 8B 50 57  24 B2 CA 28 50 24 2C 41  |$).4:.PW$..(P$,A|
00000740: 2C 34 29 A7 33 36 30 3A  8F 20 2A 20 4F 4B 20 2A  |,4).360:. * OK *|
00000750: 00 63 0B 5E 01 82 3A 99  C7 28 31 34 37 29 3A 89  |.c.^..:..(147):.|
00000760: 33 33 30 00 8A 0B 68 01  99 C7 28 31 34 37 29 22  |330...h...(147)"|
00000770: 59 4F 55 52 20 50 41 53  53 57 4F 52 44 20 49 53  |YOUR PASSWORD IS|
00000780: 20 4F 4B 20 22 50 57 24  3A 8E 00 C0 0B 72 01 8F  | OK "PW$:....r..|
00000790: 20 2A 20 53 45 54 20 55  50 20 54 48 45 20 50 41  | * SET UP THE PA|
000007A0: 53 53 57 4F 52 44 20 56  41 52 49 41 42 4C 45 20  |SSWORD VARIABLE |
000007B0: 50 24 20 53 55 42 2D 52  4F 55 54 49 4E 45 20 2A  |P$ SUB-ROUTINE *|
000007C0: 00 E8 0B 7C 01 50 24 B2  22 4A 4F 48 4E 4B 41 52  |...|.P$."JOHNKAR|
000007D0: 4C 52 49 43 48 42 49 4C  4C 42 41 52 42 4B 52 49  |LRICHBILLBARBKRI|
000007E0: 53 4B 45 4C 59 22 3A 8E  00 32 0C 86 01 8F 20 2A  |SKELY":..2.... *|
000007F0: 20 45 41 43 48 20 50 41  53 53 57 4F 52 44 20 49  | EACH PASSWORD I|
00000800: 53 20 34 20 49 4E 20 4C  45 4E 47 54 48 20 28 49  |S 4 IN LENGTH (I|
00000810: 45 2E 4A 4F 48 4E 20 4B  41 52 4C 20 52 49 43 48  |E.JOHN KARL RICH|
00000820: 20 42 49 4C 4C 20 42 41  52 42 20 45 54 43 2E 29  | BILL BARB ETC.)|
00000830: 20 2A 00 00 00                                    | *...           |

..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
 PAGE 35.{.... THIS PROGRAM IS FOR DEMON
TRATING TECHNIQUES USING MID$ - SEE ARTI
CLE.B.... A MID STRINGERS NIGHT DREAM - 
RICHARD EVERS  TRANSACTOR MAGAZINE......
 * THE PURPOSE OF THIS STRANGE PROGRAM I
S TO SHOW VARIOUS USES FOR MID$ *.L....L
OOP.1.5:.LOOP.50,110,180,240,320:.DELAY.
1.1750:.:.:....(.. * MID$ USED TO CONDEN
SE THE DAY GIVEN BY USER TO A THREE DIGI
T STRING *.B.2.AD$."MONTUEWEDTHUFRISATSU
N":.G(147)...<.."PLEASE SPECIFY THE DAY"
;D$...F..A.1.C(AD$).3:TD$.J(AD$,A,3):.J(
D$,1,3).TD$.90:. * OK *.P.P..:.G(147)"TH
E DAY GIVEN IS NOT ACCURATE":.60.~.Z.."T
HE DAY CHOSEN "D$" IS LISTED AS "TD$:..L
.D.. * MID$ USED TO TAKE MONTH GIVEN IN 
RANGE 1-12 AND MATCH TO ACTUAL MONTH.X.N
..G(147)...X.MT$."JANUARY  FEBUARY  MARC
H    APRIL    MAY      JUNE     ".^...MT
$.MT$."JULY     AUGUST   SEPTEMBEROCTOBE
R  NOVEMBER DECEMBER "......"PLEASE ENTE
R THE MONTH IN RANGE 1-12 / MM";MM.E....
MM.12..G(147)"PLEASE ENTER WITHIN RANGE"
:.140... .AM$.J(MT$,9.MM.8,9):.AM$:.. ..
.. * AND WHAT IS A TOTALLY USELESS BUT I
NTERESTING USE *.F....G(147):U$.G(145):.
 * CURSOR UP *.U...."ENTER AN INTERESTIN
G STRING":.S$:S.C(S$)...H..A.1.S:..A)J(S
$,1,A).S.A)J(S$,1,S.A):.U$,:..X.R..A.S.1
..1:..A)J(S$,1,A).S.A)J(S$,1,S.A):.U$,:.
.......".... * A METHOD TO GET RID OF TH
E LEADING SPACE SUPPLIED BY STR$ *.P....
G(147)"PLEASE ENTER A NUMBER":.N:N$.D(N)
......"THE STRING VALUE IS BEST SHOWN IN
 REVERSE"......"THAT VALUE IS "G(18)N$:N
.C(N$):F$.J(N$,2)......"THIS STRING IS N
ON-USEABLE FOR MOST FILE APPLICATIONS".)
...."TO GET RID OF THE LEADING SPACE, US
E FS$=MID$(N$,2)".S.".."F$ WILL HOLD THE
 VALUE OF "G(18)FS$...,.."THIS AMOUNTS T
O A USABLE COMMODITY !!":....6.. * AN IN
TERESTING CONCEPT FOR A PASSWORD SYSTEM 
*...@..G(147):.380:. * GET A STRING OF A
LL THE PASSWORDS *.#.J.."ENTER PASSWORD"
;PW$:.C(PW$).4..G(147):.330.P.T..A.1.C(P
$).4:.PW$.J(P$,A,4).360:. * OK *.C.^..:.
G(147):.330...H..G(147)"YOUR PASSWORD IS
 OK "PW$:....R.. * SET UP THE PASSWORD V
ARIABLE P$ SUB-ROUTINE *...|.P$."JOHNKAR
LRICHBILLBARBKRISKELY":..2.... * EACH PA
SSWORD IS 4 IN LENGTH (IE.JOHN KARL RICH
 BILL BARB ETC.) *...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL