T.BYTES
FILE INFORMATION
FILENAME(S): T.BYTES
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 18:12:22
APPEARS ON: 1 disk(s)
FILE HASH
7b32ecffcd5f008c93b4fabae490dd79b30fb3fd89e487c1c179b49521de2c37
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 56 S 1 | T.BYTES | PRG | Sailor, Ganheden | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 20 20 20 20 20 20 |..^U:ZERO. | 00000010: 20 20 C2 D9 D4 C5 D3 3A 20 C3 4F 4D 50 55 54 45 | .....: .OMPUTE| 00000020: 52 20 CD 4F 44 45 4C 49 4E 47 0D 0D 20 20 20 20 |R .ODELING.. | 00000030: 20 20 20 20 20 20 20 42 59 20 CD 41 55 52 49 43 | BY .AURIC| 00000040: 45 20 CA 4F 4E 45 53 0D 0D 20 20 20 20 CA 55 53 |E .ONES.. .US| 00000050: 54 20 49 4E 20 43 41 53 45 20 59 4F 55 27 52 45 |T IN CASE YOU'RE| 00000060: 20 41 53 4B 49 4E 47 20 57 48 4F 20 49 53 0D 54 | ASKING WHO IS.T| 00000070: 48 49 53 20 47 55 59 20 41 4E 44 20 57 48 59 20 |HIS GUY AND WHY | 00000080: 49 53 20 48 45 20 57 52 49 54 49 4E 47 20 54 48 |IS HE WRITING TH| 00000090: 49 53 2C 0D 4C 45 54 20 4D 45 20 45 58 50 4C 41 |IS,.LET ME EXPLA| 000000A0: 49 4E 2E 20 20 D7 48 4F 20 C9 20 41 4D 20 49 53 |IN. .HO . AM IS| 000000B0: 20 C6 45 4E 44 45 52 0D D4 55 43 4B 45 52 27 53 | .ENDER..UCKER'S| 000000C0: 20 4D 4F 53 54 20 4F 55 54 53 50 4F 4B 45 4E 20 | MOST OUTSPOKEN | 000000D0: 43 52 49 54 49 43 20 41 4E 44 20 54 48 45 0D 44 |CRITIC AND THE.D| 000000E0: 49 53 43 4F 56 45 52 45 52 20 4F 46 20 54 48 45 |ISCOVERER OF THE| 000000F0: 20 CC CF C1 C4 D3 D4 C1 D2 20 56 49 52 55 53 2E | ........ VIRUS.| 00000100: 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A 20 C5 C4 C9 D4 CF |********.* .....| 00000130: D2 27 D3 20 CE CF D4 C5 3A 20 20 CD 41 55 52 49 |.'. ....: .AURI| 00000140: 43 45 20 48 41 53 20 46 4F 55 4E 44 20 20 2A 0D |CE HAS FOUND *.| 00000150: 2A 20 20 41 4E 44 20 44 45 46 49 4E 45 44 20 54 |* AND DEFINED T| 00000160: 48 45 20 22 CC CF C1 C4 D3 D4 C1 D2 20 56 49 52 |HE "........ VIR| 00000170: 55 53 22 20 20 2A 0D 2A 20 41 53 20 41 20 52 4F |US" *.* AS A RO| 00000180: 55 54 49 4E 45 20 54 48 41 54 20 41 50 50 45 41 |UTINE THAT APPEA| 00000190: 52 53 20 49 4E 20 4D 4F 53 54 20 20 2A 0D 2A 20 |RS IN MOST *.* | 000001A0: CC CF C1 C4 D3 D4 C1 D2 20 50 52 4F 47 52 41 4D |........ PROGRAM| 000001B0: 53 2C 20 45 53 50 45 43 49 41 4C 4C 59 20 4F 4E |S, ESPECIALLY ON| 000001C0: 45 53 20 2A 0D 2A 20 20 57 49 54 48 20 43 55 53 |ES *.* WITH CUS| 000001D0: 54 4F 4D 20 43 48 41 52 41 43 54 45 52 53 2E 20 |TOM CHARACTERS. | 000001E0: 20 D9 4F 55 20 43 41 4E 20 20 2A 0D 2A 20 20 54 | .OU CAN *.* T| 000001F0: 45 4C 4C 20 41 20 50 52 4F 47 52 41 4D 20 49 53 |ELL A PROGRAM IS| 00000200: 20 49 4E 46 45 43 54 45 44 20 42 59 20 41 20 20 | INFECTED BY A | 00000210: 20 2A 0D 2A 20 22 50 4C 45 41 53 45 20 57 41 49 | *.* "PLEASE WAI| 00000220: 54 2C 20 4C 4F 41 44 49 4E 47 2E 2E 2E 22 20 4D |T, LOADING..." M| 00000230: 45 53 53 41 47 45 2E 20 2A 0D 2A 2A 2A 2A 2A 2A |ESSAGE. *.******| 00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000260: 0D 0D 20 20 20 20 D7 48 59 20 C9 20 41 4D 20 57 |.. .HY . AM W| 00000270: 52 49 54 49 4E 47 20 54 48 49 53 20 49 53 20 41 |RITING THIS IS A| 00000280: 20 4C 49 54 54 4C 45 0D 4D 4F 52 45 20 43 4F 4D | LITTLE.MORE COM| 00000290: 50 4C 49 43 41 54 45 44 2E 20 20 D4 57 4F 20 4F |PLICATED. .WO O| 000002A0: 46 20 54 48 45 20 4D 4F 52 45 0D 4F 42 56 49 4F |F THE MORE.OBVIO| 000002B0: 55 53 20 52 45 41 53 4F 4E 53 20 41 52 45 20 54 |US REASONS ARE T| 000002C0: 48 41 54 20 C9 20 43 41 4E 20 55 53 45 0D 54 48 |HAT . CAN USE.TH| 000002D0: 45 20 50 49 54 54 41 4E 43 45 20 54 48 41 54 20 |E PITTANCE THAT | 000002E0: D3 43 52 4F 4F 47 45 20 D4 55 43 4B 45 52 20 50 |.CROOGE .UCKER P| 000002F0: 41 59 53 0D 46 4F 52 20 53 55 43 48 20 54 48 49 |AYS.FOR SUCH THI| 00000300: 4E 47 53 20 41 4E 44 20 54 48 41 54 20 C9 20 4C |NGS AND THAT . L| 00000310: 49 4B 45 20 54 4F 0D 53 45 45 20 4D 59 20 4E 41 |IKE TO.SEE MY NA| 00000320: 4D 45 20 4F 4E 20 59 4F 55 52 20 53 43 52 45 45 |ME ON YOUR SCREE| 00000330: 4E 2E 20 20 D0 4C 45 41 53 45 0D 44 4F 4E 27 54 |N. .LEASE.DON'T| 00000340: 20 54 45 4C 4C 20 54 48 45 20 45 44 49 54 4F 52 | TELL THE EDITOR| 00000350: 2C 20 42 55 54 20 C9 20 48 4F 50 45 20 54 4F 0D |, BUT . HOPE TO.| 00000360: 53 4C 49 50 20 49 4E 20 41 20 4C 49 54 54 4C 45 |SLIP IN A LITTLE| 00000370: 20 56 49 52 55 53 20 50 4F 49 53 4F 4E 20 57 48 | VIRUS POISON WH| 00000380: 45 4E 20 48 45 0D 49 53 20 4E 4F 54 20 4C 4F 4F |EN HE.IS NOT LOO| 00000390: 4B 49 4E 47 2E 20 20 D4 48 45 20 48 4F 4F 4B 20 |KING. .HE HOOK | 000003A0: C9 20 41 4D 20 55 53 49 4E 47 0D 54 4F 20 54 52 |. AM USING.TO TR| 000003B0: 59 20 54 4F 20 47 45 54 20 48 49 4D 20 54 4F 20 |Y TO GET HIM TO | 000003C0: 50 55 42 4C 49 53 48 20 49 54 20 49 53 0D 54 48 |PUBLISH IT IS.TH| 000003D0: 41 54 20 49 46 20 48 49 53 20 43 4F 4E 54 52 49 |AT IF HIS CONTRI| 000003E0: 42 55 54 49 4E 47 20 50 52 4F 47 52 41 4D 4D 45 |BUTING PROGRAMME| 000003F0: 52 53 0D 57 4F 55 4C 44 20 55 53 45 20 42 45 54 |RS.WOULD USE BET| 00000400: 54 45 52 20 4D 4F 44 45 4C 49 4E 47 2C 20 54 48 |TER MODELING, TH| 00000410: 45 49 52 0D 50 52 4F 47 52 41 4D 53 20 57 4F 55 |EIR.PROGRAMS WOU| 00000420: 4C 44 20 52 55 4E 20 46 41 53 54 45 52 20 41 4E |LD RUN FASTER AN| 00000430: 44 20 52 45 51 55 49 52 45 0D 4C 45 53 53 20 44 |D REQUIRE.LESS D| 00000440: 49 53 4B 20 53 50 41 43 45 2C 20 57 48 49 43 48 |ISK SPACE, WHICH| 00000450: 20 49 4E 20 54 55 52 4E 20 4D 45 41 4E 53 0D 46 | IN TURN MEANS.F| 00000460: 41 53 54 45 52 20 4C 4F 41 44 49 4E 47 2E 20 20 |ASTER LOADING. | 00000470: C6 41 53 54 45 52 20 4C 4F 41 44 49 4E 47 20 48 |.ASTER LOADING H| 00000480: 45 4C 50 53 0D 43 4F 4D 42 41 54 20 54 48 45 20 |ELPS.COMBAT THE | 00000490: CC D3 20 56 49 52 55 53 2C 20 42 55 54 20 54 48 |.. VIRUS, BUT TH| 000004A0: 49 53 20 49 53 20 4E 4F 54 0D 54 48 45 20 4F 4E |IS IS NOT.THE ON| 000004B0: 4C 59 20 56 49 52 55 53 20 50 4F 49 53 4F 4E 20 |LY VIRUS POISON | 000004C0: C9 20 41 4D 20 47 4F 49 4E 47 20 54 4F 0D 47 49 |. AM GOING TO.GI| 000004D0: 56 45 20 59 4F 55 2E 20 20 C8 41 4E 47 20 4F 4E |VE YOU. .ANG ON| 000004E0: 2E 0D 0D 20 20 20 20 CE 4F 57 20 C9 20 4B 4E 4F |... .OW . KNO| 000004F0: 57 20 41 4C 4C 20 4F 46 20 54 48 4F 53 45 20 55 |W ALL OF THOSE U| 00000500: 47 4C 59 0D 54 48 49 4E 47 53 20 54 48 41 54 20 |GLY.THINGS THAT | 00000510: 59 4F 55 20 48 41 56 45 20 48 45 41 52 44 20 41 |YOU HAVE HEARD A| 00000520: 42 4F 55 54 0D 43 52 49 54 49 43 53 2C 20 4F 4E |BOUT.CRITICS, ON| 00000530: 45 20 4F 46 20 54 48 45 20 4E 49 43 45 52 20 4F |E OF THE NICER O| 00000540: 46 20 57 48 49 43 48 20 49 53 0D C3 48 41 4E 4E |F WHICH IS..HANN| 00000550: 49 4E 47 20 D0 4F 4C 4C 4F 43 4B 27 53 20 22 41 |ING .OLLOCK'S "A| 00000560: 20 43 52 49 54 49 43 20 49 53 20 41 0D 4C 45 47 | CRITIC IS A.LEG| 00000570: 4C 45 53 53 20 4D 41 4E 20 57 48 4F 20 54 45 41 |LESS MAN WHO TEA| 00000580: 43 48 45 53 20 52 55 4E 4E 49 4E 47 2E 22 20 20 |CHES RUNNING." | 00000590: C9 4E 0D 4D 59 20 4F 57 4E 20 44 45 46 45 4E 53 |.N.MY OWN DEFENS| 000005A0: 45 2C 20 C9 20 4F 4E 43 45 20 53 55 42 4D 49 54 |E, . ONCE SUBMIT| 000005B0: 54 45 44 20 41 0D 46 49 4E 45 20 50 52 4F 47 52 |TED A.FINE PROGR| 000005C0: 41 4D 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 20 41 |AM TO ........ A| 000005D0: 4E 44 20 54 48 45 0D 45 44 49 54 4F 52 20 52 45 |ND THE.EDITOR RE| 000005E0: 4A 45 43 54 45 44 20 49 54 20 4A 55 53 54 20 42 |JECTED IT JUST B| 000005F0: 45 43 41 55 53 45 20 54 48 45 52 45 0D 57 45 52 |ECAUSE THERE.WER| 00000600: 45 20 4F 4E 4C 59 20 54 57 4F 20 50 45 4F 50 4C |E ONLY TWO PEOPL| 00000610: 45 20 49 4E 20 54 48 45 20 57 4F 52 4C 44 20 57 |E IN THE WORLD W| 00000620: 48 4F 0D 4D 49 47 48 54 20 48 41 56 45 20 55 53 |HO.MIGHT HAVE US| 00000630: 45 44 20 49 54 2E 20 20 C8 45 20 43 4F 55 4C 44 |ED IT. .E COULD| 00000640: 20 48 41 56 45 0D 50 55 42 4C 49 53 48 45 44 20 | HAVE.PUBLISHED | 00000650: 49 54 20 46 4F 52 20 49 54 53 20 45 53 4F 54 45 |IT FOR ITS ESOTE| 00000660: 52 49 43 20 56 41 4C 55 45 2E 0D 0D 2A 2A 2A 2A |RIC VALUE...****| 00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000690: 2A 2A 0D 2A 20 C5 C4 C9 D4 CF D2 20 C1 C7 C1 C9 |**.* ...... ....| 000006A0: CE 3A 20 C9 54 20 57 41 53 20 41 20 50 52 4F 47 |.: .T WAS A PROG| 000006B0: 52 41 4D 20 54 48 41 54 2A 0D 2A 20 20 48 45 4C |RAM THAT*.* HEL| 000006C0: 50 45 44 20 59 4F 55 20 44 45 54 45 52 4D 49 4E |PED YOU DETERMIN| 000006D0: 45 20 57 48 45 54 48 45 52 20 59 4F 55 52 20 2A |E WHETHER YOUR *| 000006E0: 0D 2A 20 20 20 54 49 45 53 20 4D 41 54 43 48 20 |.* TIES MATCH | 000006F0: 59 4F 55 52 20 55 4E 44 45 52 57 45 41 52 2E 20 |YOUR UNDERWEAR. | 00000700: 20 D7 45 20 20 20 2A 0D 2A 20 20 44 4F 4E 27 54 | .E *.* DON'T| 00000710: 20 57 45 41 52 20 55 4E 44 45 52 57 45 41 52 20 | WEAR UNDERWEAR | 00000720: 41 54 20 CC CF C1 C4 D3 D4 C1 D2 2E 20 2A 0D 2A |AT ......... *.*| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000750: 2A 2A 2A 2A 2A 0D 0D 20 20 20 20 CE 4F 57 20 54 |*****.. .OW T| 00000760: 48 41 54 20 57 45 20 41 52 45 20 46 49 4E 49 53 |HAT WE ARE FINIS| 00000770: 48 45 44 20 57 49 54 48 0D 4F 52 49 45 4E 54 41 |HED WITH.ORIENTA| 00000780: 54 49 4F 4E 2C 20 49 54 27 53 20 54 49 4D 45 20 |TION, IT'S TIME | 00000790: 54 4F 20 47 45 54 20 54 4F 0D 42 55 53 49 4E 45 |TO GET TO.BUSINE| 000007A0: 53 53 2E 20 20 D7 48 45 4E 20 C9 20 53 50 45 41 |SS. .HEN . SPEA| 000007B0: 4B 20 4F 46 20 43 4F 4D 50 55 54 45 52 0D 4D 4F |K OF COMPUTER.MO| 000007C0: 44 45 4C 53 2C 20 C9 20 4D 45 41 4E 20 54 48 45 |DELS, . MEAN THE| 000007D0: 20 4E 55 4D 42 45 52 53 2C 20 53 54 52 49 4E 47 | NUMBERS, STRING| 000007E0: 53 2C 0D 41 52 52 41 59 53 20 41 4E 44 20 53 55 |S,.ARRAYS AND SU| 000007F0: 43 48 20 57 48 49 43 48 20 41 52 45 20 55 53 45 |CH WHICH ARE USE| 00000800: 44 20 49 4E 0D 53 49 4D 55 4C 41 54 49 4E 47 20 |D IN.SIMULATING | 00000810: 52 45 41 4C 20 57 4F 52 4C 44 20 45 56 45 4E 54 |REAL WORLD EVENT| 00000820: 53 2C 20 53 55 43 48 20 41 53 0D 43 41 52 44 20 |S, SUCH AS.CARD | 00000830: 47 41 4D 45 53 2C 20 43 48 45 43 4B 20 42 4F 4F |GAMES, CHECK BOO| 00000840: 4B 53 2C 20 42 41 53 45 42 41 4C 4C 0D 47 41 4D |KS, BASEBALL.GAM| 00000850: 45 53 20 41 4E 44 20 41 4C 4C 20 54 48 45 20 4F |ES AND ALL THE O| 00000860: 54 48 45 52 20 54 48 49 4E 47 53 20 57 45 20 4C |THER THINGS WE L| 00000870: 49 4B 45 0D 54 4F 20 44 4F 20 57 49 54 48 20 4F |IKE.TO DO WITH O| 00000880: 55 52 20 42 45 4C 4F 56 45 44 20 36 34 2E 20 20 |UR BELOVED 64. | 00000890: D7 48 45 4E 20 59 4F 55 0D 42 45 47 49 4E 20 41 |.HEN YOU.BEGIN A| 000008A0: 20 50 52 4F 47 52 41 4D 2C 20 59 4F 55 20 53 48 | PROGRAM, YOU SH| 000008B0: 4F 55 4C 44 20 53 50 45 4E 44 20 53 4F 4D 45 0D |OULD SPEND SOME.| 000008C0: 54 49 4D 45 20 54 52 59 49 4E 47 20 54 4F 20 44 |TIME TRYING TO D| 000008D0: 45 53 49 47 4E 20 41 4E 20 45 46 46 49 43 49 45 |ESIGN AN EFFICIE| 000008E0: 4E 54 0D 4D 4F 44 45 4C 2E 20 20 C9 46 20 59 4F |NT.MODEL. .F YO| 000008F0: 55 20 57 4F 52 4B 20 41 54 20 49 54 20 46 4F 52 |U WORK AT IT FOR| 00000900: 20 41 20 57 48 49 4C 45 0D 59 4F 55 20 57 49 4C | A WHILE.YOU WIL| 00000910: 4C 20 46 49 4E 44 20 54 48 41 54 20 59 4F 55 20 |L FIND THAT YOU | 00000920: 43 41 4E 20 47 45 54 20 42 59 0D 57 49 54 48 20 |CAN GET BY.WITH | 00000930: 4C 45 53 53 20 43 4F 44 45 20 54 48 41 4E 20 59 |LESS CODE THAN Y| 00000940: 4F 55 20 4D 41 59 20 48 41 56 45 0D 54 48 4F 55 |OU MAY HAVE.THOU| 00000950: 47 48 54 20 41 54 20 46 49 52 53 54 20 47 4C 41 |GHT AT FIRST GLA| 00000960: 4E 43 45 2E 20 20 CC 45 53 53 20 43 4F 44 45 0D |NCE. .ESS CODE.| 00000970: 49 53 20 51 55 49 43 4B 45 52 20 54 4F 20 57 52 |IS QUICKER TO WR| 00000980: 49 54 45 2C 20 45 41 53 49 45 52 20 54 4F 20 44 |ITE, EASIER TO D| 00000990: 45 42 55 47 2C 0D 51 55 49 43 4B 45 52 20 54 4F |EBUG,.QUICKER TO| 000009A0: 20 4C 4F 41 44 20 41 4E 44 20 47 45 4E 45 52 41 | LOAD AND GENERA| 000009B0: 4C 4C 59 20 46 41 53 54 45 52 0D 54 4F 20 52 55 |LLY FASTER.TO RU| 000009C0: 4E 2E 0D 20 20 20 20 C9 4E 53 54 45 41 44 20 4F |N.. .NSTEAD O| 000009D0: 46 20 57 52 49 54 49 4E 47 20 4C 4F 4E 47 0D 49 |F WRITING LONG.I| 000009E0: 4E 45 46 46 49 43 49 45 4E 54 20 43 4F 44 45 20 |NEFFICIENT CODE | 000009F0: 41 4E 44 20 43 4F 56 45 52 49 4E 47 20 59 4F 55 |AND COVERING YOU| 00000A00: 52 0D 54 52 41 43 4B 53 20 42 59 20 43 4F 4D 50 |R.TRACKS BY COMP| 00000A10: 49 4C 49 4E 47 2C 20 4A 55 53 54 20 44 4F 20 49 |ILING, JUST DO I| 00000A20: 54 20 52 49 47 48 54 0D 54 4F 20 53 54 41 52 54 |T RIGHT.TO START| 00000A30: 20 57 49 54 48 2E 0D 0D 20 20 20 20 20 D4 48 45 | WITH... .HE| 00000A40: 52 45 20 49 53 20 4E 4F 20 50 41 49 4E 4C 45 53 |RE IS NO PAINLES| 00000A50: 53 20 57 41 59 20 54 4F 20 4C 45 41 52 4E 0D 42 |S WAY TO LEARN.B| 00000A60: 45 54 54 45 52 20 4D 4F 44 45 4C 49 4E 47 2C 20 |ETTER MODELING, | 00000A70: 4E 4F 52 20 43 41 4E 20 C9 20 54 45 4C 4C 20 59 |NOR CAN . TELL Y| 00000A80: 4F 55 0D 41 4C 4C 20 59 4F 55 20 45 56 45 52 20 |OU.ALL YOU EVER | 00000A90: 57 41 4E 54 45 44 20 54 4F 20 4B 4E 4F 57 2E 20 |WANTED TO KNOW. | 00000AA0: 20 D4 48 45 52 45 20 49 53 0D 41 20 44 45 4D 4F | .HERE IS.A DEMO| 00000AB0: 20 43 41 4C 4C 45 44 20 22 C3 C1 D2 C4 D3 22 20 | CALLED "....." | 00000AC0: 4F 4E 20 54 48 49 53 20 44 49 53 4B 0D 57 48 49 |ON THIS DISK.WHI| 00000AD0: 43 48 20 57 45 20 57 49 4C 4C 20 55 53 45 20 54 |CH WE WILL USE T| 00000AE0: 4F 20 44 45 4D 4F 4E 53 54 52 41 54 45 20 53 4F |O DEMONSTRATE SO| 00000AF0: 4D 45 0D 50 4F 49 4E 54 53 2E 20 20 C2 55 54 20 |ME.POINTS. .UT | 00000B00: 46 49 52 53 54 2C 20 41 20 46 45 57 20 47 45 4E |FIRST, A FEW GEN| 00000B10: 45 52 41 4C 0D 53 54 41 54 45 4D 45 4E 54 53 2E |ERAL.STATEMENTS.| 00000B20: 20 20 C9 4E 20 C2 C1 D3 C9 C3 2C 20 41 52 52 41 | .N ....., ARRA| 00000B30: 59 53 2C 20 41 4C 53 4F 0D 43 41 4C 4C 45 44 20 |YS, ALSO.CALLED | 00000B40: 53 55 42 53 43 52 49 50 54 45 44 20 56 41 52 49 |SUBSCRIPTED VARI| 00000B50: 41 42 4C 45 53 2C 20 41 52 45 0D 50 4F 57 45 52 |ABLES, ARE.POWER| 00000B60: 46 55 4C 20 54 4F 4F 4C 53 2E 20 20 D4 48 45 20 |FUL TOOLS. .HE | 00000B70: 4D 41 58 49 4D 55 4D 0D 53 55 42 53 43 52 49 50 |MAXIMUM.SUBSCRIP| 00000B80: 54 20 41 4E 44 2F 4F 52 20 4E 55 4D 42 45 52 20 |T AND/OR NUMBER | 00000B90: 4F 46 20 44 49 4D 45 4E 53 49 4F 4E 53 0D 50 4F |OF DIMENSIONS.PO| 00000BA0: 53 53 49 42 4C 45 20 49 4E 20 41 4E 20 41 52 52 |SSIBLE IN AN ARR| 00000BB0: 41 59 20 41 52 45 20 4C 49 4D 49 54 45 44 20 4F |AY ARE LIMITED O| 00000BC0: 4E 4C 59 0D 42 59 20 41 56 41 49 4C 41 42 4C 45 |NLY.BY AVAILABLE| 00000BD0: 20 4D 45 4D 4F 52 59 2E 0D 0D 0D 20 20 20 20 D7 | MEMORY.... .| 00000BE0: 48 45 4E 20 59 4F 55 20 46 49 4E 44 20 59 4F 55 |HEN YOU FIND YOU| 00000BF0: 52 53 45 4C 46 20 41 42 4F 55 54 20 54 4F 0D 57 |RSELF ABOUT TO.W| 00000C00: 52 49 54 45 20 41 20 4C 4F 4E 47 20 53 45 52 49 |RITE A LONG SERI| 00000C10: 45 53 20 4F 46 20 C9 C6 2D D4 C8 C5 CE 0D 53 54 |ES OF ..-.....ST| 00000C20: 41 54 45 4D 45 4E 54 53 20 28 53 41 59 20 4D 4F |ATEMENTS (SAY MO| 00000C30: 52 45 20 54 48 41 4E 20 46 4F 55 52 29 20 54 52 |RE THAN FOUR) TR| 00000C40: 59 0D 54 4F 20 53 45 45 20 49 46 20 59 4F 55 20 |Y.TO SEE IF YOU | 00000C50: 43 41 4E 27 54 20 55 53 45 20 CF CE 2D C7 CF D4 |CAN'T USE ..-...| 00000C60: CF 2C 0D 50 4F 53 53 49 42 4C 59 20 49 4E 20 43 |.,.POSSIBLY IN C| 00000C70: 4F 4E 4A 55 4E 43 54 49 4F 4E 20 57 49 54 48 20 |ONJUNCTION WITH | 00000C80: 41 4E 0D 41 52 52 41 59 2E 20 20 D7 48 45 4E 20 |AN.ARRAY. .HEN | 00000C90: 59 4F 55 20 4E 45 45 44 20 4D 41 4E 59 20 CC C5 |YOU NEED MANY ..| 00000CA0: D4 0D 53 54 41 54 45 4D 45 4E 54 53 2C 20 54 48 |..STATEMENTS, TH| 00000CB0: 49 4E 4B 20 49 4E 20 54 45 52 4D 53 20 4F 46 20 |INK IN TERMS OF | 00000CC0: 52 45 41 44 49 4E 47 0D 44 41 54 41 20 49 4E 54 |READING.DATA INT| 00000CD0: 4F 20 41 4E 20 41 52 52 41 59 2E 20 20 C9 20 53 |O AN ARRAY. . S| 00000CE0: 55 53 50 45 43 54 20 54 48 41 54 0D 4D 41 4E 59 |USPECT THAT.MANY| 00000CF0: 20 50 52 4F 47 52 41 4D 4D 45 52 53 20 41 52 45 | PROGRAMMERS ARE| 00000D00: 20 55 4E 43 4F 4D 46 4F 52 54 41 42 4C 45 0D 57 | UNCOMFORTABLE.W| 00000D10: 49 54 48 20 41 52 52 41 59 53 2C 20 42 55 54 20 |ITH ARRAYS, BUT | 00000D20: 41 20 4C 49 54 54 4C 45 20 50 52 41 43 54 49 43 |A LITTLE PRACTIC| 00000D30: 45 0D 57 49 4C 4C 20 4D 41 4B 45 20 54 48 45 4D |E.WILL MAKE THEM| 00000D40: 20 53 49 4D 50 4C 45 2E 20 20 D4 48 45 20 55 53 | SIMPLE. .HE US| 00000D50: 45 20 4F 46 0D 53 55 42 52 4F 55 54 49 4E 45 53 |E OF.SUBROUTINES| 00000D60: 20 57 49 4C 4C 20 43 41 55 53 45 20 59 4F 55 52 | WILL CAUSE YOUR| 00000D70: 20 43 4F 44 45 20 54 4F 0D 42 45 20 45 41 53 49 | CODE TO.BE EASI| 00000D80: 45 52 20 54 4F 20 54 45 53 54 20 41 4E 44 20 44 |ER TO TEST AND D| 00000D90: 45 42 55 47 2E 0D C3 45 52 54 41 49 4E 4C 59 20 |EBUG...ERTAINLY | 00000DA0: 59 4F 55 20 53 48 4F 55 4C 44 20 55 53 45 20 53 |YOU SHOULD USE S| 00000DB0: 55 42 52 4F 55 54 49 4E 45 53 0D 46 4F 52 20 52 |UBROUTINES.FOR R| 00000DC0: 45 50 45 54 49 54 49 56 45 20 50 52 4F 43 45 44 |EPETITIVE PROCED| 00000DD0: 55 52 45 53 2C 20 42 55 54 20 59 4F 55 0D 43 41 |URES, BUT YOU.CA| 00000DE0: 4E 20 41 4C 53 4F 20 55 53 45 20 54 48 45 4D 20 |N ALSO USE THEM | 00000DF0: 46 4F 52 20 43 4F 4E 56 45 4E 49 45 4E 43 45 20 |FOR CONVENIENCE | 00000E00: 49 4E 0D 57 52 49 54 49 4E 47 20 43 4F 44 45 2E |IN.WRITING CODE.| 00000E10: 20 20 C9 4E 20 54 48 45 20 44 45 4D 4F 2C 20 57 | .N THE DEMO, W| 00000E20: 45 20 57 49 4C 4C 0D 53 45 45 20 48 4F 57 20 53 |E WILL.SEE HOW S| 00000E30: 55 42 52 4F 55 54 49 4E 45 53 20 43 41 4E 20 42 |UBROUTINES CAN B| 00000E40: 45 20 55 53 45 44 20 41 53 0D 56 49 52 55 53 20 |E USED AS.VIRUS | 00000E50: 50 4F 49 53 4F 4E 2E 0D 0D 20 20 20 20 D4 48 45 |POISON... .HE| 00000E60: 20 43 4F 44 45 20 4F 46 20 C3 C1 D2 C4 D3 20 49 | CODE OF ..... I| 00000E70: 53 20 4C 4F 4E 47 45 52 20 54 48 41 4E 0D 4F 4E |S LONGER THAN.ON| 00000E80: 45 20 53 43 52 45 45 4E 20 53 4F 20 C9 20 57 49 |E SCREEN SO . WI| 00000E90: 4C 4C 20 4C 45 41 56 45 20 49 54 20 54 4F 20 59 |LL LEAVE IT TO Y| 00000EA0: 4F 55 0D 54 4F 20 4C 4F 4F 4B 20 41 54 20 54 48 |OU.TO LOOK AT TH| 00000EB0: 45 20 4C 49 53 54 49 4E 47 2E 20 20 D3 49 4E 43 |E LISTING. .INC| 00000EC0: 45 20 C9 20 55 53 45 0D 53 4F 4D 45 20 53 54 41 |E . USE.SOME STA| 00000ED0: 4E 44 41 52 44 20 53 55 42 52 4F 55 54 49 4E 45 |NDARD SUBROUTINE| 00000EE0: 53 2C 20 41 4E 44 20 53 49 4E 43 45 0D C9 20 55 |S, AND SINCE.. U| 00000EF0: 53 45 20 53 55 42 52 4F 55 54 49 4E 45 53 20 46 |SE SUBROUTINES F| 00000F00: 4F 52 20 53 45 56 45 52 41 4C 0D 52 45 41 53 4F |OR SEVERAL.REASO| 00000F10: 4E 53 2C 20 C9 20 4C 49 4B 45 20 54 4F 20 50 55 |NS, . LIKE TO PU| 00000F20: 54 20 54 48 45 4D 20 46 49 52 53 54 2E 0D CC 49 |T THEM FIRST...I| 00000F30: 4E 45 20 32 20 53 45 4E 44 53 20 55 53 20 54 4F |NE 2 SENDS US TO| 00000F40: 20 4C 49 4E 45 20 34 30 30 20 46 4F 52 20 54 48 | LINE 400 FOR TH| 00000F50: 45 0D 54 49 54 4C 45 20 53 43 52 45 45 4E 2C 20 |E.TITLE SCREEN, | 00000F60: 43 4F 4D 50 4C 45 54 45 44 20 49 4E 20 4C 49 4E |COMPLETED IN LIN| 00000F70: 45 20 34 30 37 2E 0D CC 49 4E 45 20 34 31 31 20 |E 407...INE 411 | 00000F80: 53 45 4E 44 53 20 55 53 20 54 4F 20 41 20 53 55 |SENDS US TO A SU| 00000F90: 42 52 4F 55 54 49 4E 45 20 41 54 0D 31 31 31 20 |BROUTINE AT.111 | 00000FA0: 57 48 49 43 48 20 41 53 53 49 47 4E 53 20 53 4F |WHICH ASSIGNS SO| 00000FB0: 4D 45 20 56 41 52 49 41 42 4C 45 53 2C 0D 43 52 |ME VARIABLES,.CR| 00000FC0: 45 41 54 45 53 20 41 52 52 41 59 53 20 43 4F 4E |EATES ARRAYS CON| 00000FD0: 54 41 49 4E 49 4E 47 20 54 48 45 20 53 59 4D 42 |TAINING THE SYMB| 00000FE0: 4F 4C 53 0D 4F 46 20 54 48 45 20 46 4F 55 52 20 |OLS.OF THE FOUR | 00000FF0: 53 55 49 54 53 2C 20 54 48 45 20 43 4F 4C 4F 52 |SUITS, THE COLOR| 00001000: 53 20 4F 46 20 54 48 45 0D 53 55 49 54 53 2C 20 |S OF THE.SUITS, | 00001010: 41 4E 44 20 54 48 45 20 53 59 4D 42 4F 4C 53 20 |AND THE SYMBOLS | 00001020: 28 C1 2C 32 2C 33 2C 2E 2E 2E D1 2C CB 29 0D 46 |(.,2,3,....,.).F| 00001030: 4F 52 20 54 48 45 20 56 41 4C 55 45 53 2E 20 20 |OR THE VALUES. | 00001040: CE 45 58 54 2C 20 49 4E 20 4C 49 4E 45 53 0D 31 |.EXT, IN LINES.1| 00001050: 31 39 2D 31 32 33 20 41 20 52 45 44 20 52 45 43 |19-123 A RED REC| 00001060: 54 41 4E 47 4C 45 20 57 48 49 43 48 20 57 49 4C |TANGLE WHICH WIL| 00001070: 4C 20 42 45 0D 55 53 45 44 20 41 53 20 54 48 45 |L BE.USED AS THE| 00001080: 20 43 41 52 44 20 4F 55 54 4C 49 4E 45 20 49 53 | CARD OUTLINE IS| 00001090: 20 44 45 46 49 4E 45 44 0D 41 53 20 41 20 53 49 | DEFINED.AS A SI| 000010A0: 4E 47 4C 45 20 53 54 52 49 4E 47 2C 20 C3 24 2E |NGLE STRING, .$.| 000010B0: 0D 0D 20 20 20 20 CC 49 4E 45 53 20 31 32 37 20 |.. .INES 127 | 000010C0: 41 4E 44 20 31 32 38 20 43 4F 4E 54 41 49 4E 20 |AND 128 CONTAIN | 000010D0: 41 0D 53 48 55 46 46 4C 49 4E 47 20 52 4F 55 54 |A.SHUFFLING ROUT| 000010E0: 49 4E 45 20 42 41 53 45 44 20 4F 4E 20 4F 4E 45 |INE BASED ON ONE| 000010F0: 20 46 52 4F 4D 0D 22 D0 D2 CF C7 D2 C1 CD CD C9 | FROM.".........| 00001100: CE C7 20 D4 C8 C5 20 C3 CF CD CD CF C4 CF D2 C5 |.. ... .........| 00001110: 20 36 34 22 20 42 59 0D D7 45 53 54 2E 20 20 CE | 64" BY..EST. .| 00001120: 4F 54 20 4F 4E 4C 59 20 49 53 20 49 54 20 54 48 |OT ONLY IS IT TH| 00001130: 45 20 46 41 53 54 45 53 54 20 C9 0D 4B 4E 4F 57 |E FASTEST ..KNOW| 00001140: 20 4F 46 2C 20 49 54 20 41 4C 53 4F 20 54 41 4B | OF, IT ALSO TAK| 00001150: 45 53 20 54 48 45 20 53 41 4D 45 20 54 49 4D 45 |ES THE SAME TIME| 00001160: 0D 45 41 43 48 20 54 49 4D 45 20 49 54 20 49 53 |.EACH TIME IT IS| 00001170: 20 55 53 45 44 2C 20 41 42 4F 55 54 20 4F 4E 45 | USED, ABOUT ONE| 00001180: 20 41 4E 44 20 41 0D 48 41 4C 46 20 53 45 43 4F | AND A.HALF SECO| 00001190: 4E 44 53 2E 20 20 C1 54 20 54 48 49 53 20 50 4F |NDS. .T THIS PO| 000011A0: 49 4E 54 2C 20 57 45 0D 52 45 54 55 52 4E 20 54 |INT, WE.RETURN T| 000011B0: 4F 20 4C 49 4E 45 20 34 31 32 2E 20 20 CE 4F 54 |O LINE 412. .OT| 000011C0: 49 43 45 20 54 48 41 54 20 54 48 45 0D 22 C4 C5 |ICE THAT THE."..| 000011D0: C1 CC 22 20 53 43 52 45 45 4E 20 48 41 53 20 42 |.." SCREEN HAS B| 000011E0: 45 45 4E 20 44 49 53 50 4C 41 59 45 44 20 46 4F |EEN DISPLAYED FO| 000011F0: 52 0D 4F 4E 4C 59 20 54 48 52 45 45 20 53 45 43 |R.ONLY THREE SEC| 00001200: 4F 4E 44 53 20 41 4E 44 20 54 48 45 20 44 52 45 |ONDS AND THE DRE| 00001210: 41 44 45 44 0D CC CF C1 C4 D3 D4 C1 D2 20 56 49 |ADED......... VI| 00001220: 52 55 53 20 48 41 53 20 42 45 45 4E 20 41 56 4F |RUS HAS BEEN AVO| 00001230: 49 44 45 44 2E 20 20 C1 53 0D 59 4F 55 20 4B 4E |IDED. .S.YOU KN| 00001240: 4F 57 2C 20 54 48 45 20 55 53 55 41 4C 20 43 41 |OW, THE USUAL CA| 00001250: 52 44 20 53 49 4D 55 4C 41 54 49 4F 4E 0D 50 52 |RD SIMULATION.PR| 00001260: 49 4E 54 53 20 22 D0 4C 45 41 53 45 20 57 41 49 |INTS ".LEASE WAI| 00001270: 54 2C 20 44 45 41 4C 49 4E 47 2E 2E 2E 2E 22 20 |T, DEALING...." | 00001280: 41 54 0D 54 48 49 53 20 50 4F 49 4E 54 2E 0D 0D |AT.THIS POINT...| 00001290: 0D 0D 0D 0D 20 20 20 20 CC 49 4E 45 53 20 34 31 |.... .INES 41| 000012A0: 32 2D 34 31 37 20 50 52 49 4E 54 20 41 20 4E 45 |2-417 PRINT A NE| 000012B0: 57 20 53 43 52 45 45 4E 0D 41 4E 44 20 4C 49 4E |W SCREEN.AND LIN| 000012C0: 45 20 34 31 38 20 53 45 4E 44 53 20 55 53 20 54 |E 418 SENDS US T| 000012D0: 4F 20 54 48 45 0D 53 55 42 52 4F 55 54 49 4E 45 |O THE.SUBROUTINE| 000012E0: 20 41 54 20 31 32 37 2C 20 54 48 45 20 45 4E 54 | AT 127, THE ENT| 000012F0: 52 59 20 50 4F 49 4E 54 0D 46 4F 52 20 54 48 45 |RY POINT.FOR THE| 00001300: 20 53 48 55 46 46 4C 49 4E 47 20 52 4F 55 54 49 | SHUFFLING ROUTI| 00001310: 4E 45 2E 20 20 C9 20 55 53 45 44 20 49 54 0D 48 |NE. . USED IT.H| 00001320: 45 52 45 20 4F 4E 4C 59 20 42 45 43 41 55 53 45 |ERE ONLY BECAUSE| 00001330: 20 C9 20 4E 45 45 44 45 44 20 41 20 44 45 4C 41 | . NEEDED A DELA| 00001340: 59 0D 4C 4F 4F 50 2E 20 20 CE 4F 54 49 43 45 20 |Y.LOOP. .OTICE | 00001350: 54 48 41 54 20 57 45 20 43 4F 55 4C 44 20 D0 CF |THAT WE COULD ..| 00001360: CB C5 20 49 4E 20 41 0D 53 43 52 45 45 4E 20 53 |.. IN A.SCREEN S| 00001370: 57 49 54 43 48 49 4E 47 20 52 4F 55 54 49 4E 45 |WITCHING ROUTINE| 00001380: 20 4F 52 20 44 4F 20 53 4F 4D 45 0D 4D 4F 52 45 | OR DO SOME.MORE| 00001390: 20 53 54 55 46 46 20 49 46 20 57 45 20 4E 45 45 | STUFF IF WE NEE| 000013A0: 44 45 44 20 49 54 2E 20 20 CC 49 4E 45 53 0D 34 |DED IT. .INES.4| 000013B0: 32 30 2D 34 33 30 20 50 52 49 4E 54 20 54 48 45 |20-430 PRINT THE| 000013C0: 20 4E 45 58 54 20 53 43 52 45 45 4E 20 57 49 54 | NEXT SCREEN WIT| 000013D0: 48 0D 54 48 45 20 53 55 42 52 4F 55 54 49 4E 45 |H.THE SUBROUTINE| 000013E0: 20 41 54 20 31 33 33 20 55 53 45 44 20 41 53 20 | AT 133 USED AS | 000013F0: 41 20 44 45 4C 41 59 0D 4C 4F 4F 50 2E 0D 0D 20 |A DELAY.LOOP... | 00001400: 20 20 20 20 D4 48 49 53 20 54 57 4F 2D 4C 49 4E | .HIS TWO-LIN| 00001410: 45 20 53 55 42 52 4F 55 54 49 4E 45 20 49 53 20 |E SUBROUTINE IS | 00001420: 54 48 45 0D 42 49 47 20 49 44 45 41 20 49 4E 20 |THE.BIG IDEA IN | 00001430: 54 48 49 53 20 57 48 4F 4C 45 20 44 45 4D 4F 2E |THIS WHOLE DEMO.| 00001440: 20 20 C5 41 43 48 0D 4E 55 4D 42 45 52 20 46 52 | .ACH.NUMBER FR| 00001450: 4F 4D 20 54 48 45 20 41 52 52 41 59 20 D3 28 C9 |OM THE ARRAY .(.| 00001460: 29 2C 20 43 52 45 41 54 45 44 20 42 59 0D 54 48 |), CREATED BY.TH| 00001470: 45 20 53 48 55 46 46 4C 45 2C 20 49 53 20 41 53 |E SHUFFLE, IS AS| 00001480: 53 4F 43 49 41 54 45 44 20 57 49 54 48 20 54 57 |SOCIATED WITH TW| 00001490: 4F 0D 4E 55 4D 42 45 52 53 2C 20 C9 CE D4 28 D3 |O.NUMBERS, ...(.| 000014A0: 28 C9 29 2F 31 33 29 20 41 4E 44 0D D3 28 C9 29 |(.)/13) AND..(.)| 000014B0: 2D 31 33 2A 28 C9 CE D4 28 D3 28 C9 29 2F 31 33 |-13*(...(.(.)/13| 000014C0: 29 29 2E 0D 0D 20 20 20 20 D4 48 45 20 46 49 52 |))... .HE FIR| 000014D0: 53 54 20 45 58 50 52 45 53 53 49 4F 4E 20 59 49 |ST EXPRESSION YI| 000014E0: 45 4C 44 53 20 30 2C 31 2C 32 0D 4F 52 20 33 20 |ELDS 0,1,2.OR 3 | 000014F0: 41 4E 44 20 54 48 45 53 45 20 57 49 4C 4C 20 42 |AND THESE WILL B| 00001500: 45 20 55 53 45 44 20 54 4F 0D 53 59 4D 42 4F 4C |E USED TO.SYMBOL| 00001510: 49 5A 45 20 54 48 45 20 46 4F 55 52 20 53 55 49 |IZE THE FOUR SUI| 00001520: 54 53 2E 20 20 D4 48 45 20 4F 54 48 45 52 0D 45 |TS. .HE OTHER.E| 00001530: 58 52 45 53 53 49 4F 4E 20 59 49 45 4C 44 53 20 |XRESSION YIELDS | 00001540: 54 48 45 20 57 48 4F 4C 45 20 4E 55 4D 42 45 52 |THE WHOLE NUMBER| 00001550: 53 2C 20 30 0D 54 48 52 4F 55 47 48 20 31 32 20 |S, 0.THROUGH 12 | 00001560: 54 4F 20 53 59 4D 42 4F 4C 49 5A 45 20 54 48 45 |TO SYMBOLIZE THE| 00001570: 20 46 41 43 45 0D 56 41 4C 55 45 53 2E 20 20 C9 | FACE.VALUES. .| 00001580: 46 20 54 48 49 53 20 57 45 52 45 20 41 20 47 41 |F THIS WERE A GA| 00001590: 4D 45 0D 53 49 4D 55 4C 41 54 49 4F 4E 2C 20 57 |ME.SIMULATION, W| 000015A0: 45 20 50 52 4F 42 41 42 4C 59 20 57 4F 55 4C 44 |E PROBABLY WOULD| 000015B0: 20 48 41 56 45 0D 53 54 4F 52 45 44 20 54 48 45 | HAVE.STORED THE| 000015C0: 53 45 20 50 41 49 52 53 20 49 4E 20 41 4E 20 41 |SE PAIRS IN AN A| 000015D0: 52 52 41 59 20 57 49 54 48 0D 44 49 4D 45 4E 53 |RRAY WITH.DIMENS| 000015E0: 49 4F 4E 53 20 35 31 20 42 59 20 32 20 28 C4 C9 |IONS 51 BY 2 (..| 000015F0: CD D8 28 35 31 2C 32 29 2C 0D 49 4E 53 54 45 41 |..(51,2),.INSTEA| 00001600: 44 20 4F 46 20 53 54 4F 52 49 4E 47 20 54 48 45 |D OF STORING THE| 00001610: 4D 20 41 53 20 47 52 41 50 48 49 43 53 2E 0D C9 |M AS GRAPHICS...| 00001620: 20 43 4F 55 4C 44 20 57 52 49 54 45 20 41 20 48 | COULD WRITE A H| 00001630: 49 47 48 2D 46 41 4C 55 54 49 4E 27 0D 44 49 53 |IGH-FALUTIN'.DIS| 00001640: 43 55 53 53 49 4F 4E 20 4F 46 20 54 48 45 20 4D |CUSSION OF THE M| 00001650: 41 54 48 45 4D 41 54 49 43 53 0D 49 4E 56 4F 4C |ATHEMATICS.INVOL| 00001660: 56 45 44 2C 20 42 55 54 20 49 46 20 59 4F 55 20 |VED, BUT IF YOU | 00001670: 41 52 45 20 47 4F 49 4E 47 20 54 4F 0D 55 4E 44 |ARE GOING TO.UND| 00001680: 45 52 53 54 41 4E 44 20 57 45 4C 4C 20 45 4E 4F |ERSTAND WELL ENO| 00001690: 55 47 48 20 54 4F 20 55 53 45 20 54 48 45 0D 49 |UGH TO USE THE.I| 000016A0: 44 45 41 2C 20 54 41 4B 45 20 41 20 50 45 4E 43 |DEA, TAKE A PENC| 000016B0: 49 4C 20 41 4E 44 20 4D 41 4B 45 20 41 20 46 45 |IL AND MAKE A FE| 000016C0: 57 0D 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 55 |W.CALCULATIONS U| 000016D0: 53 49 4E 47 20 54 48 45 20 45 58 50 45 53 53 49 |SING THE EXPESSI| 000016E0: 4F 4E 53 20 41 4E 44 0D 59 4F 55 20 57 49 4C 4C |ONS AND.YOU WILL| 000016F0: 20 53 45 45 20 48 4F 57 20 52 45 41 4C 4C 59 20 | SEE HOW REALLY | 00001700: 53 49 4D 50 4C 45 20 54 48 45 0D 49 44 45 41 53 |SIMPLE THE.IDEAS| 00001710: 20 41 52 45 2E 0D 0D 20 20 20 20 20 C9 27 4C 4C | ARE... .'LL| 00001720: 20 57 52 41 50 20 54 48 49 53 20 55 50 20 42 59 | WRAP THIS UP BY| 00001730: 20 50 4F 49 4E 54 49 4E 47 20 4F 55 54 0D 54 48 | POINTING OUT.TH| 00001740: 41 54 20 54 48 45 20 53 45 56 45 4E 20 4C 49 4E |AT THE SEVEN LIN| 00001750: 45 53 20 31 31 31 2C 20 31 31 33 2C 20 31 31 35 |ES 111, 113, 115| 00001760: 2C 0D 31 32 37 2C 20 31 32 38 2C 20 31 33 33 20 |,.127, 128, 133 | 00001770: 41 4E 44 20 31 33 35 20 57 49 54 48 20 54 48 45 |AND 135 WITH THE| 00001780: 20 4C 41 53 54 0D 54 57 4F 20 54 41 49 4C 4F 52 | LAST.TWO TAILOR| 00001790: 45 44 20 54 4F 20 54 48 45 20 50 41 52 54 49 43 |ED TO THE PARTIC| 000017A0: 55 4C 41 52 0D 53 49 54 55 41 54 49 4F 4E 20 41 |ULAR.SITUATION A| 000017B0: 52 45 20 41 4C 4C 20 54 48 41 54 20 41 52 45 20 |RE ALL THAT ARE | 000017C0: 4E 45 45 44 45 44 20 54 4F 0D 53 49 4D 55 4C 41 |NEEDED TO.SIMULA| 000017D0: 54 45 20 41 20 44 45 43 4B 20 4F 46 20 43 41 52 |TE A DECK OF CAR| 000017E0: 44 53 2E 0D 0D 20 20 20 20 20 D4 48 45 52 45 20 |DS... .HERE | 000017F0: 41 52 45 20 41 4C 4C 20 53 4F 52 54 53 20 4F 46 |ARE ALL SORTS OF| 00001800: 20 45 56 45 52 59 44 41 59 0D 41 43 54 49 4F 4E | EVERYDAY.ACTION| 00001810: 53 20 54 48 41 54 20 43 4F 4D 50 55 54 45 52 53 |S THAT COMPUTERS| 00001820: 20 53 49 4D 55 4C 41 54 45 2C 20 53 55 43 48 0D | SIMULATE, SUCH.| 00001830: 41 53 20 54 52 41 4A 45 43 54 4F 52 49 45 53 20 |AS TRAJECTORIES | 00001840: 4F 46 20 4F 42 4A 45 43 54 53 20 44 55 45 20 54 |OF OBJECTS DUE T| 00001850: 4F 0D 47 52 41 56 49 54 59 20 41 4E 44 20 54 48 |O.GRAVITY AND TH| 00001860: 45 20 52 41 4E 44 4F 4D 4E 45 53 53 20 4F 46 20 |E RANDOMNESS OF | 00001870: 41 0D 52 4F 55 4C 45 54 54 45 20 42 41 4C 4C 2E |A.ROULETTE BALL.| 00001880: 20 20 C1 4C 47 4F 52 49 54 48 4D 53 20 46 4F 52 | .LGORITHMS FOR| 00001890: 20 4A 55 53 54 0D 41 42 4F 55 54 20 41 4C 4C 20 | JUST.ABOUT ALL | 000018A0: 4F 46 20 54 48 45 4D 20 48 41 56 45 20 42 45 45 |OF THEM HAVE BEE| 000018B0: 4E 20 46 49 47 55 52 45 44 0D 4F 55 54 20 42 59 |N FIGURED.OUT BY| 000018C0: 20 43 55 52 49 4F 55 53 20 41 4C 47 4F 2D 42 55 | CURIOUS ALGO-BU| 000018D0: 46 46 53 20 54 48 52 4F 55 47 48 4F 55 54 0D 54 |FFS THROUGHOUT.T| 000018E0: 48 45 20 41 47 45 53 2E 20 20 D9 4F 55 20 43 41 |HE AGES. .OU CA| 000018F0: 4E 20 53 41 56 45 20 59 4F 55 52 53 45 4C 46 20 |N SAVE YOURSELF | 00001900: 28 41 4E 44 0D 54 48 45 20 55 53 45 52 53 20 4F |(AND.THE USERS O| 00001910: 46 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 53 29 |F YOUR PROGRAMS)| 00001920: 20 41 20 4C 4F 54 20 4F 46 0D 47 52 49 45 46 20 | A LOT OF.GRIEF | 00001930: 41 4E 44 20 57 41 49 54 49 4E 47 20 42 59 20 55 |AND WAITING BY U| 00001940: 53 49 4E 47 20 41 4E 0D 45 46 46 49 43 49 45 4E |SING AN.EFFICIEN| 00001950: 54 20 41 4C 47 4F 52 49 54 48 4D 2E 0D 0D 0D 20 |T ALGORITHM.... | 00001960: 20 20 20 CE 41 54 55 52 45 20 50 4C 41 59 53 20 | .ATURE PLAYS | 00001970: 42 59 20 54 48 45 20 52 55 4C 45 53 3B 0D 53 48 |BY THE RULES;.SH| 00001980: 4F 55 4C 44 4E 27 54 20 59 4F 55 3F 0D 0D 20 20 |OULDN'T YOU?.. | 00001990: 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 4F | **** .ND O| 000019A0: 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D |F .EXT ****. |
..^U:ZERO. BYTES: COMPUTER MODELI
NG.. BY MAURICE JONES.. JUS
T IN CASE YOU'RE ASKING WHO IS.THIS GUY
AND WHY IS HE WRITING THIS,.LET ME EXPLA
IN. WHO I AM IS FENDER.TUCKER'S MOST OU
TSPOKEN CRITIC AND THE.DISCOVERER OF THE
LOADSTAR VIRUS...**********************
****************.* EDITOR'S NOTE: MAURI
CE HAS FOUND *.* AND DEFINED THE "LOAD
STAR VIRUS" *.* AS A ROUTINE THAT APPEA
RS IN MOST *.* LOADSTAR PROGRAMS, ESPEC
IALLY ONES *.* WITH CUSTOM CHARACTERS.
YOU CAN *.* TELL A PROGRAM IS INFECTE
D BY A *.* "PLEASE WAIT, LOADING..." M
ESSAGE. *.******************************
********.. WHY I AM WRITING THIS IS A
LITTLE.MORE COMPLICATED. TWO OF THE MO
RE.OBVIOUS REASONS ARE THAT I CAN USE.TH
E PITTANCE THAT SCROOGE TUCKER PAYS.FOR
SUCH THINGS AND THAT I LIKE TO.SEE MY NA
ME ON YOUR SCREEN. PLEASE.DON'T TELL TH
E EDITOR, BUT I HOPE TO.SLIP IN A LITTLE
VIRUS POISON WHEN HE.IS NOT LOOKING. T
HE HOOK I AM USING.TO TRY TO GET HIM TO
PUBLISH IT IS.THAT IF HIS CONTRIBUTING P
ROGRAMMERS.WOULD USE BETTER MODELING, TH
EIR.PROGRAMS WOULD RUN FASTER AND REQUIR
E.LESS DISK SPACE, WHICH IN TURN MEANS.F
ASTER LOADING. FASTER LOADING HELPS.COM
BAT THE LS VIRUS, BUT THIS IS NOT.THE ON
LY VIRUS POISON I AM GOING TO.GIVE YOU.
HANG ON... NOW I KNOW ALL OF THOSE U
GLY.THINGS THAT YOU HAVE HEARD ABOUT.CRI
TICS, ONE OF THE NICER OF WHICH IS.CHANN
ING POLLOCK'S "A CRITIC IS A.LEGLESS MAN
WHO TEACHES RUNNING." IN.MY OWN DEFENS
E, I ONCE SUBMITTED A.FINE PROGRAM TO LO
ADSTAR AND THE.EDITOR REJECTED IT JUST B
ECAUSE THERE.WERE ONLY TWO PEOPLE IN THE
WORLD WHO.MIGHT HAVE USED IT. HE COULD
HAVE.PUBLISHED IT FOR ITS ESOTERIC VALU
E...************************************
**.* EDITOR AGAIN: IT WAS A PROGRAM THAT
*.* HELPED YOU DETERMINE WHETHER YOUR *
.* TIES MATCH YOUR UNDERWEAR. WE *.
* DON'T WEAR UNDERWEAR AT LOADSTAR. *.*
*************************************..
NOW THAT WE ARE FINISHED WITH.ORIENTA
TION, IT'S TIME TO GET TO.BUSINESS. WHE
N I SPEAK OF COMPUTER.MODELS, I MEAN THE
NUMBERS, STRINGS,.ARRAYS AND SUCH WHICH
ARE USED IN.SIMULATING REAL WORLD EVENT
S, SUCH AS.CARD GAMES, CHECK BOOKS, BASE
BALL.GAMES AND ALL THE OTHER THINGS WE L
IKE.TO DO WITH OUR BELOVED 64. WHEN YOU
.BEGIN A PROGRAM, YOU SHOULD SPEND SOME.
TIME TRYING TO DESIGN AN EFFICIENT.MODEL
. IF YOU WORK AT IT FOR A WHILE.YOU WIL
L FIND THAT YOU CAN GET BY.WITH LESS COD
E THAN YOU MAY HAVE.THOUGHT AT FIRST GLA
NCE. LESS CODE.IS QUICKER TO WRITE, EAS
IER TO DEBUG,.QUICKER TO LOAD AND GENERA
LLY FASTER.TO RUN.. INSTEAD OF WRITIN
G LONG.INEFFICIENT CODE AND COVERING YOU
R.TRACKS BY COMPILING, JUST DO IT RIGHT.
TO START WITH... THERE IS NO PAINLES
S WAY TO LEARN.BETTER MODELING, NOR CAN
I TELL YOU.ALL YOU EVER WANTED TO KNOW.
THERE IS.A DEMO CALLED "CARDS" ON THIS
DISK.WHICH WE WILL USE TO DEMONSTRATE SO
ME.POINTS. BUT FIRST, A FEW GENERAL.STA
TEMENTS. IN BASIC, ARRAYS, ALSO.CALLED
SUBSCRIPTED VARIABLES, ARE.POWERFUL TOOL
S. THE MAXIMUM.SUBSCRIPT AND/OR NUMBER
OF DIMENSIONS.POSSIBLE IN AN ARRAY ARE L
IMITED ONLY.BY AVAILABLE MEMORY.... W
HEN YOU FIND YOURSELF ABOUT TO.WRITE A L
ONG SERIES OF IF-THEN.STATEMENTS (SAY MO
RE THAN FOUR) TRY.TO SEE IF YOU CAN'T US
E ON-GOTO,.POSSIBLY IN CONJUNCTION WITH
AN.ARRAY. WHEN YOU NEED MANY LET.STATEM
ENTS, THINK IN TERMS OF READING.DATA INT
O AN ARRAY. I SUSPECT THAT.MANY PROGRAM
MERS ARE UNCOMFORTABLE.WITH ARRAYS, BUT
A LITTLE PRACTICE.WILL MAKE THEM SIMPLE.
THE USE OF.SUBROUTINES WILL CAUSE YOUR
CODE TO.BE EASIER TO TEST AND DEBUG..CE
RTAINLY YOU SHOULD USE SUBROUTINES.FOR R
EPETITIVE PROCEDURES, BUT YOU.CAN ALSO U
SE THEM FOR CONVENIENCE IN.WRITING CODE.
IN THE DEMO, WE WILL.SEE HOW SUBROUTIN
ES CAN BE USED AS.VIRUS POISON... THE
CODE OF CARDS IS LONGER THAN.ONE SCREEN
SO I WILL LEAVE IT TO YOU.TO LOOK AT TH
E LISTING. SINCE I USE.SOME STANDARD SU
BROUTINES, AND SINCE.I USE SUBROUTINES F
OR SEVERAL.REASONS, I LIKE TO PUT THEM F
IRST..LINE 2 SENDS US TO LINE 400 FOR TH
E.TITLE SCREEN, COMPLETED IN LINE 407..L
INE 411 SENDS US TO A SUBROUTINE AT.111
WHICH ASSIGNS SOME VARIABLES,.CREATES AR
RAYS CONTAINING THE SYMBOLS.OF THE FOUR
SUITS, THE COLORS OF THE.SUITS, AND THE
SYMBOLS (A,2,3,...Q,K).FOR THE VALUES.
NEXT, IN LINES.119-123 A RED RECTANGLE W
HICH WILL BE.USED AS THE CARD OUTLINE IS
DEFINED.AS A SINGLE STRING, C$... LI
NES 127 AND 128 CONTAIN A.SHUFFLING ROUT
INE BASED ON ONE FROM."PROGRAMMING THE C
OMMODORE 64" BY.WEST. NOT ONLY IS IT TH
E FASTEST I.KNOW OF, IT ALSO TAKES THE S
AME TIME.EACH TIME IT IS USED, ABOUT ONE
AND A.HALF SECONDS. AT THIS POINT, WE.
RETURN TO LINE 412. NOTICE THAT THE."DE
AL" SCREEN HAS BEEN DISPLAYED FOR.ONLY T
HREE SECONDS AND THE DREADED.LOADSTAR VI
RUS HAS BEEN AVOIDED. AS.YOU KNOW, THE
USUAL CARD SIMULATION.PRINTS "PLEASE WAI
T, DEALING...." AT.THIS POINT.......
LINES 412-417 PRINT A NEW SCREEN.AND LIN
E 418 SENDS US TO THE.SUBROUTINE AT 127,
THE ENTRY POINT.FOR THE SHUFFLING ROUTI
NE. I USED IT.HERE ONLY BECAUSE I NEEDE
D A DELAY.LOOP. NOTICE THAT WE COULD PO
KE IN A.SCREEN SWITCHING ROUTINE OR DO S
OME.MORE STUFF IF WE NEEDED IT. LINES.4
20-430 PRINT THE NEXT SCREEN WITH.THE SU
BROUTINE AT 133 USED AS A DELAY.LOOP...
THIS TWO-LINE SUBROUTINE IS THE.BIG
IDEA IN THIS WHOLE DEMO. EACH.NUMBER FR
OM THE ARRAY S(I), CREATED BY.THE SHUFFL
E, IS ASSOCIATED WITH TWO.NUMBERS, INT(S
(I)/13) AND.S(I)-13*(INT(S(I)/13))...
THE FIRST EXPRESSION YIELDS 0,1,2.OR 3
AND THESE WILL BE USED TO.SYMBOLIZE THE
FOUR SUITS. THE OTHER.EXRESSION YIELDS
THE WHOLE NUMBERS, 0.THROUGH 12 TO SYMBO
LIZE THE FACE.VALUES. IF THIS WERE A GA
ME.SIMULATION, WE PROBABLY WOULD HAVE.ST
ORED THESE PAIRS IN AN ARRAY WITH.DIMENS
IONS 51 BY 2 (DIMX(51,2),.INSTEAD OF STO
RING THEM AS GRAPHICS..I COULD WRITE A H
IGH-FALUTIN'.DISCUSSION OF THE MATHEMATI
CS.INVOLVED, BUT IF YOU ARE GOING TO.UND
ERSTAND WELL ENOUGH TO USE THE.IDEA, TAK
E A PENCIL AND MAKE A FEW.CALCULATIONS U
SING THE EXPESSIONS AND.YOU WILL SEE HOW
REALLY SIMPLE THE.IDEAS ARE... I'LL
WRAP THIS UP BY POINTING OUT.THAT THE S
EVEN LINES 111, 113, 115,.127, 128, 133
AND 135 WITH THE LAST.TWO TAILORED TO TH
E PARTICULAR.SITUATION ARE ALL THAT ARE
NEEDED TO.SIMULATE A DECK OF CARDS...
THERE ARE ALL SORTS OF EVERYDAY.ACTION
S THAT COMPUTERS SIMULATE, SUCH.AS TRAJE
CTORIES OF OBJECTS DUE TO.GRAVITY AND TH
E RANDOMNESS OF A.ROULETTE BALL. ALGORI
THMS FOR JUST.ABOUT ALL OF THEM HAVE BEE
N FIGURED.OUT BY CURIOUS ALGO-BUFFS THRO
UGHOUT.THE AGES. YOU CAN SAVE YOURSELF
(AND.THE USERS OF YOUR PROGRAMS) A LOT O
F.GRIEF AND WAITING BY USING AN.EFFICIEN
T ALGORITHM.... NATURE PLAYS BY THE R
ULES;.SHOULDN'T YOU?.. **** END O
F TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL