T.BASICS
FILE INFORMATION
FILENAME(S): T.BASICS
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 18:12:07
APPEARS ON: 1 disk(s)
FILE HASH
151425c2d1a7e5e96e248d18be1ef5647c13aaf5d08164b7453790069a2bf204
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 64 S 1 | T.BASICS | PRG | Sailor, Ganheden | 19 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 5A 45 52 4F 0D C4 C9 D3 D3 C5 C3 |..^U:ZERO.......| 00000010: D4 C9 CF CE 20 CF C6 20 C1 20 C2 C1 D3 C9 C3 20 |.... .. . ..... | 00000020: D0 D2 CF C7 D2 C1 CD 20 2D 20 D0 C1 D2 D4 20 32 |....... - .... 2| 00000030: 0D 0D 20 20 20 20 20 20 20 20 42 59 20 CA 45 46 |.. BY .EF| 00000040: 46 52 45 59 20 CC 2E 20 CA 4F 4E 45 53 0D 0D 20 |FREY .. .ONES.. | 00000050: 20 20 20 D4 48 49 53 20 49 53 20 54 48 45 20 53 | .HIS IS THE S| 00000060: 45 43 4F 4E 44 20 49 4E 53 54 41 4C 4C 4D 45 4E |ECOND INSTALLMEN| 00000070: 54 0D 49 4E 20 41 20 54 57 4F 2D 50 41 52 54 20 |T.IN A TWO-PART | 00000080: 53 45 52 49 45 53 20 57 48 45 52 45 20 C9 20 45 |SERIES WHERE . E| 00000090: 58 41 4D 49 4E 45 0D 41 20 52 45 41 4C 20 4C 49 |XAMINE.A REAL LI| 000000A0: 46 45 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D |FE ..... PROGRAM| 000000B0: 20 4F 4E 20 54 48 49 53 0D 44 49 53 4B 2E 20 20 | ON THIS.DISK. | 000000C0: D4 48 45 20 50 52 4F 47 52 41 4D 20 49 53 20 43 |.HE PROGRAM IS C| 000000D0: 41 4C 4C 45 44 20 C3 C8 C5 C1 D0 0D C3 C1 CC C3 |ALLED ..........| 000000E0: 2C 20 42 45 43 41 55 53 45 20 49 54 27 53 20 41 |, BECAUSE IT'S A| 000000F0: 20 50 4F 4F 52 20 4D 41 4E 27 53 0D 53 50 52 45 | POOR MAN'S.SPRE| 00000100: 41 44 53 48 45 45 54 2E 20 20 C6 4F 52 20 4E 45 |ADSHEET. .OR NE| 00000110: 57 43 4F 4D 45 52 53 2C E0 C9 27 4C 4C 20 47 4F |WCOMERS,..'LL GO| 00000120: 0D 4F 56 45 52 20 54 48 45 20 49 4E 53 54 52 55 |.OVER THE INSTRU| 00000130: 43 54 49 4F 4E 53 20 46 4F 52 20 C3 C8 C5 C1 D0 |CTIONS FOR .....| 00000140: 0D C3 C1 CC C3 27 53 20 55 53 FF FF FF D4 FF D2 |.....'S US......| 00000150: DD FF FF FF FF A2 AE A7 AF FF FF A6 AA FF FF FF |................| 00000160: D2 FF FF FA FF FF FF D0 FF FF FF D0 FF FF FF D1 |................| 00000170: FF FF FF FF DD FF FF D0 FF FF DA EE FF FF FF DA |................| 00000180: D0 FF FF FF FF D4 D0 FF FF FA FF FF FF FF FF FF |................| 00000190: D2 DD FF FF FF FF EE FF D4 FF ED FF FF FF FF FF |................| 000001A0: D2 FF FF FF FF DD FF FF FF FF FF FA FF FF FF D0 |................| 000001B0: D0 FF FF FF EE FF D4 FF ED FF D0 FF FF FF D0 EE |................| 000001C0: FF FF FF FF FF FF FF FF FF D7 FF FF FF B4 FF D2 |................| 000001D0: FF FF FA FF D0 ED FF FF FF FF FF FF FF FF FF FF |................| 000001E0: D2 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 000001F0: FF FF FF ED FF FA D2 ED FF FF FF FF 20 4C 4F 54 |............ LOT| 00000200: 20 42 45 54 54 45 52 20 54 48 41 4E 20 41 20 43 | BETTER THAN A C| 00000210: 41 4C 43 55 4C 41 54 4F 52 2E 0D 0D 0D 0D 20 20 |ALCULATOR..... | 00000220: 20 20 D9 4F 55 20 4A 55 53 54 20 4D 4F 56 45 20 | .OU JUST MOVE | 00000230: 54 48 45 20 43 55 52 53 4F 52 2C 20 55 53 49 4E |THE CURSOR, USIN| 00000240: 47 0D 54 48 45 20 C3 D2 D3 D2 20 4B 45 59 53 2C |G.THE .... KEYS,| 00000250: 20 54 4F 20 41 4E 59 20 4C 41 42 45 4C 20 4F 52 | TO ANY LABEL OR| 00000260: 0D 4E 55 4D 42 45 52 20 59 4F 55 20 4C 49 4B 45 |.NUMBER YOU LIKE| 00000270: 2E 20 20 D4 48 45 4E 20 50 52 45 53 53 20 D2 C5 |. .HEN PRESS ..| 00000280: D4 D5 D2 CE 0D 54 4F 20 53 45 4C 45 43 54 20 41 |.....TO SELECT A| 00000290: 4E 44 20 43 48 41 4E 47 45 21 20 20 C5 56 45 52 |ND CHANGE! .VER| 000002A0: 59 54 49 4D 45 20 59 4F 55 0D 45 4E 54 45 52 20 |YTIME YOU.ENTER | 000002B0: 41 20 4E 55 4D 42 45 52 2C 20 54 48 45 20 45 4E |A NUMBER, THE EN| 000002C0: 54 49 52 45 20 54 41 42 4C 45 20 49 53 0D 52 45 |TIRE TABLE IS.RE| 000002D0: 43 41 4C 43 55 4C 41 54 45 44 20 46 4F 52 20 59 |CALCULATED FOR Y| 000002E0: 4F 55 2E 0D 0D 20 20 20 20 D9 4F 55 20 43 41 4E |OU... .OU CAN| 000002F0: 20 45 58 49 54 20 54 4F 20 CC CF C1 C4 D3 D4 C1 | EXIT TO .......| 00000300: D2 20 42 59 0D 50 52 45 53 53 49 4E 47 20 C3 D4 |. BY.PRESSING ..| 00000310: D2 CC 2D D1 20 54 57 49 43 45 2E 20 20 D7 48 59 |..-. TWICE. .HY| 00000320: 20 54 57 49 43 45 3F 0D C6 4F 52 20 59 4F 55 52 | TWICE?..OR YOUR| 00000330: 20 50 52 4F 54 45 43 54 49 4F 4E 20 2D 2D 20 41 | PROTECTION -- A| 00000340: 53 20 57 45 4C 4C 20 41 53 20 54 4F 0D 45 58 41 |S WELL AS TO.EXA| 00000350: 4D 49 4E 45 20 54 48 45 20 4C 4F 47 49 43 20 42 |MINE THE LOGIC B| 00000360: 45 48 49 4E 44 20 54 48 45 20 45 58 49 54 0D 52 |EHIND THE EXIT.R| 00000370: 4F 55 54 49 4E 45 2E 0D 0D CE CF D4 C5 3A 20 20 |OUTINE.......: | 00000380: D9 4F 55 20 53 48 4F 55 4C 44 20 50 52 49 4E 54 |.OU SHOULD PRINT| 00000390: 20 4F 55 54 20 54 48 49 53 0D 41 52 54 49 43 4C | OUT THIS.ARTICL| 000003A0: 45 20 49 46 20 59 4F 55 27 52 45 20 47 4F 49 4E |E IF YOU'RE GOIN| 000003B0: 47 20 54 4F 20 44 49 53 53 45 43 54 0D C3 C8 C5 |G TO DISSECT....| 000003C0: C1 D0 20 C3 C1 CC C3 20 49 4E 20 4F 52 44 45 52 |.. .... IN ORDER| 000003D0: 20 54 4F 20 53 45 45 20 54 48 45 20 50 52 4F 47 | TO SEE THE PROG| 000003E0: 52 41 4D 0D 4C 49 4E 45 53 20 41 4E 44 20 54 48 |RAM.LINES AND TH| 000003F0: 45 20 54 45 58 54 20 41 54 20 54 48 45 20 53 41 |E TEXT AT THE SA| 00000400: 4D 45 20 54 49 4D 45 2E 0D 0D 20 20 20 20 D7 45 |ME TIME... .E| 00000410: 27 56 45 20 41 4C 52 45 41 44 59 20 53 54 55 44 |'VE ALREADY STUD| 00000420: 49 45 44 20 48 4F 57 20 54 48 45 0D 4D 45 4E 55 |IED HOW THE.MENU| 00000430: 20 57 41 53 20 50 52 49 4E 54 45 44 20 54 4F 20 | WAS PRINTED TO | 00000440: 54 48 45 20 53 43 52 45 45 4E 2E 20 20 CE 4F 57 |THE SCREEN. .OW| 00000450: 0D 43 4F 4D 45 53 20 54 48 45 20 50 52 4F 4D 50 |.COMES THE PROMP| 00000460: 54 20 54 48 41 54 20 41 53 4B 53 20 59 4F 55 20 |T THAT ASKS YOU | 00000470: 54 4F 0D 45 4E 54 45 52 20 57 41 47 45 53 2E 20 |TO.ENTER WAGES. | 00000480: 20 D4 48 49 53 20 49 53 20 54 52 49 43 4B 59 2E | .HIS IS TRICKY.| 00000490: 20 20 D9 4F 55 0D 53 48 4F 55 4C 44 20 4B 45 45 | .OU.SHOULD KEE| 000004A0: 50 20 49 4E 20 4D 49 4E 44 20 54 48 41 54 20 C9 |P IN MIND THAT .| 000004B0: 27 56 45 20 41 4C 52 45 41 44 59 0D D0 CF CB C5 |'VE ALREADY.....| 000004C0: 44 20 41 20 43 41 52 52 49 41 47 45 20 52 45 54 |D A CARRIAGE RET| 000004D0: 55 52 4E 20 49 4E 54 4F 20 54 48 45 0D 4B 45 59 |URN INTO THE.KEY| 000004E0: 42 4F 41 52 44 20 42 55 46 46 45 52 20 54 48 41 |BOARD BUFFER THA| 000004F0: 54 20 4D 41 4B 45 53 20 54 48 45 0D 43 4F 4D 50 |T MAKES THE.COMP| 00000500: 55 54 45 52 20 54 48 49 4E 4B 20 54 48 41 54 20 |UTER THINK THAT | 00000510: 54 48 45 20 55 53 45 52 20 48 41 53 0D 50 52 45 |THE USER HAS.PRE| 00000520: 53 53 45 44 20 54 48 45 20 D2 C5 D4 D5 D2 CE 20 |SSED THE ...... | 00000530: 4B 45 59 2E 20 20 D3 4F 20 57 48 45 4E 20 54 48 |KEY. .O WHEN TH| 00000540: 45 0D 43 4F 4D 50 55 54 45 52 20 43 4F 4D 45 53 |E.COMPUTER COMES| 00000550: 20 54 4F 20 4C 49 4E 45 20 33 34 30 2C 0D 0D 20 | TO LINE 340,.. | 00000560: 20 20 20 20 33 34 30 20 49 46 41 24 3D 43 48 52 | 340 IFA$=CHR| 00000570: 24 28 31 33 29 54 48 45 4E 35 36 30 0D 0D 59 4F |$(13)THEN560..YO| 00000580: 55 27 52 45 20 41 55 54 4F 4D 41 54 49 43 41 4C |U'RE AUTOMATICAL| 00000590: 4C 59 20 57 48 49 53 4B 45 44 20 54 4F 20 54 48 |LY WHISKED TO TH| 000005A0: 45 0D 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 2E |E.INPUT ROUTINE.| 000005B0: 0D 0D 20 20 20 20 C8 45 52 45 27 53 20 53 4F 4D |.. .ERE'S SOM| 000005C0: 45 54 48 49 4E 47 20 52 45 41 4C 4C 59 20 54 52 |ETHING REALLY TR| 000005D0: 49 43 4B 59 2E 0D C9 20 48 41 56 45 20 41 20 48 |ICKY... HAVE A H| 000005E0: 41 52 44 20 54 49 4D 45 20 46 4F 4C 4C 4F 57 49 |ARD TIME FOLLOWI| 000005F0: 4E 47 20 49 54 0D 4D 59 53 45 4C 46 2E 0D 0D CC |NG IT.MYSELF....| 00000600: 49 4E 45 35 36 30 0D 0D 50 4F 4B 45 32 31 31 2C |INE560..POKE211,| 00000610: 31 2D 28 4D 4F 3D 30 29 2A 32 37 3A 50 4F 4B 45 |1-(MO=0)*27:POKE| 00000620: 32 31 34 2C 32 2A 49 54 2B 31 3A 0D 53 59 53 35 |214,2*IT+1:.SYS5| 00000630: 38 37 33 32 0D 0D 20 20 20 20 D7 48 41 54 20 C9 |8732.. .HAT .| 00000640: D3 20 54 48 49 53 20 47 4F 42 42 4C 45 44 59 47 |. THIS GOBBLEDYG| 00000650: 4F 4F 4B 3F 20 20 C1 47 41 49 4E 0D C9 27 56 45 |OOK? .GAIN..'VE| 00000660: 20 55 53 45 44 20 41 20 46 4F 52 4D 55 4C 41 20 | USED A FORMULA | 00000670: 54 4F 20 53 4F 4C 56 45 20 54 57 4F 0D 50 52 4F |TO SOLVE TWO.PRO| 00000680: 42 4C 45 4D 53 3A 20 20 C9 20 57 41 4E 54 45 44 |BLEMS: . WANTED| 00000690: 20 54 4F 20 55 53 45 20 CF CE C5 0D 52 4F 55 54 | TO USE ....ROUT| 000006A0: 49 4E 45 20 54 4F 20 50 52 49 4E 54 20 41 20 50 |INE TO PRINT A P| 000006B0: 52 4F 4D 50 54 20 C1 CE D9 D7 C8 C5 D2 C5 20 4F |ROMPT ........ O| 000006C0: 4E 0D 54 48 45 20 53 43 52 45 45 4E 20 41 43 43 |N.THE SCREEN ACC| 000006D0: 4F 52 44 49 4E 47 20 54 4F 20 57 48 49 43 48 20 |ORDING TO WHICH | 000006E0: 49 54 45 4D 0D 57 41 53 20 42 45 49 4E 47 20 41 |ITEM.WAS BEING A| 000006F0: 44 44 52 45 53 53 45 44 2E 20 20 D4 48 49 53 20 |DDRESSED. .HIS | 00000700: 50 52 4F 47 52 41 4D 20 49 53 0D 4F 4E 4C 59 20 |PROGRAM IS.ONLY | 00000710: 54 45 4E 20 42 4C 4F 43 4B 53 20 4C 4F 4E 47 20 |TEN BLOCKS LONG | 00000720: 46 4F 52 20 41 20 52 45 41 53 4F 4E 21 20 20 C9 |FOR A REASON! .| 00000730: 46 0D CD CF 3D 30 20 54 48 45 4E 20 54 48 45 20 |F...=0 THEN THE | 00000740: 50 52 4F 4D 50 54 20 49 53 20 50 4C 41 43 45 44 |PROMPT IS PLACED| 00000750: 20 49 4E 0D 54 48 45 20 32 38 54 48 20 43 4F 4C | IN.THE 28TH COL| 00000760: 55 4D 4E 2E 20 20 C9 46 20 CD CF 3C 3E 30 20 54 |UMN. .F ..<>0 T| 00000770: 48 45 4E 20 54 48 45 0D 50 52 4F 4D 50 54 20 49 |HEN THE.PROMPT I| 00000780: 53 20 50 4C 41 43 45 44 20 49 4E 20 54 48 45 20 |S PLACED IN THE | 00000790: 31 53 54 20 43 4F 4C 55 4D 4E 2E 0D C9 20 55 53 |1ST COLUMN... US| 000007A0: 45 20 42 4F 4F 4C 45 41 4E 20 4D 41 54 48 20 54 |E BOOLEAN MATH T| 000007B0: 4F 20 41 43 43 4F 4D 50 4C 49 53 48 20 54 48 49 |O ACCOMPLISH THI| 000007C0: 53 2E 0D C5 58 50 45 52 49 4D 45 4E 54 20 49 4E |S...XPERIMENT IN| 000007D0: 20 54 48 45 20 44 49 52 45 43 54 20 4D 4F 44 45 | THE DIRECT MODE| 000007E0: 20 41 4E 44 0D 59 4F 55 27 4C 4C 20 53 45 45 20 | AND.YOU'LL SEE | 000007F0: 48 4F 57 20 48 41 4E 44 59 20 54 48 49 53 20 49 |HOW HANDY THIS I| 00000800: 53 2E 0D 0D 20 20 20 20 CE 4F 54 49 43 45 20 54 |S... .OTICE T| 00000810: 48 45 20 46 4C 41 53 48 49 4E 47 20 43 55 52 53 |HE FLASHING CURS| 00000820: 4F 52 3F 20 20 C9 0D 54 4F 47 47 4C 45 20 49 54 |OR? ..TOGGLE IT| 00000830: 20 49 4E 20 4C 49 4E 45 20 33 38 30 20 57 49 54 | IN LINE 380 WIT| 00000840: 48 20 54 48 45 20 CE CF D4 0D 43 4F 4D 4D 41 4E |H THE ....COMMAN| 00000850: 44 2E 20 20 CE CF D4 20 49 53 20 56 45 52 59 20 |D. ... IS VERY | 00000860: 47 4F 4F 44 20 46 4F 52 0D 54 4F 47 47 4C 49 4E |GOOD FOR.TOGGLIN| 00000870: 47 20 54 48 49 4E 47 53 2E 20 20 C9 20 55 53 45 |G THINGS. . USE| 00000880: 20 49 54 20 54 4F E0 50 52 49 4E 54 0D 54 48 49 | IT TO.PRINT.THI| 00000890: 4E 47 53 20 D2 C5 D6 C5 D2 D3 C5 C4 20 4F 52 20 |NGS ........ OR | 000008A0: CE CF D4 20 D2 C5 D6 C5 D2 D3 C5 C4 2E 20 20 D7 |... ......... .| 000008B0: 45 0D 41 4C 4C 20 4B 4E 4F 57 20 54 48 41 54 20 |E.ALL KNOW THAT | 000008C0: C3 D2 D4 CC 2D 39 20 4F 52 20 43 48 52 24 28 31 |....-9 OR CHR$(1| 000008D0: 38 29 20 57 49 4C 4C 0D 43 41 55 53 45 20 52 45 |8) WILL.CAUSE RE| 000008E0: 56 45 52 53 45 20 50 52 49 4E 54 49 4E 47 2E 20 |VERSE PRINTING. | 000008F0: 20 D4 48 41 54 27 53 20 4E 4F 54 0D 48 4F 57 20 | .HAT'S NOT.HOW | 00000900: C9 20 55 53 55 41 4C 4C 59 20 44 4F 20 49 54 2C |. USUALLY DO IT,| 00000910: 20 45 53 50 45 43 49 41 4C 4C 59 20 49 4E 0D 53 | ESPECIALLY IN.S| 00000920: 49 54 55 41 54 49 4F 4E 53 20 4C 49 4B 45 20 54 |ITUATIONS LIKE T| 00000930: 48 49 53 20 57 48 45 52 45 20 C9 20 57 41 4E 54 |HIS WHERE . WANT| 00000940: 20 54 4F 0D 54 4F 47 47 4C 45 2E 20 20 C3 D4 D2 | TO.TOGGLE. ...| 00000950: CC 2D 39 20 49 53 20 C3 D4 D2 CC 2D 39 20 50 45 |.-9 IS ....-9 PE| 00000960: 52 49 4F 44 2E 0D 0D 20 20 20 20 CC 4F 43 41 54 |RIOD... .OCAT| 00000970: 49 4F 4E 20 31 39 39 20 43 4F 4E 54 52 4F 4C 53 |ION 199 CONTROLS| 00000980: 20 52 45 56 45 52 53 45 0D 56 49 44 45 4F 2E 20 | REVERSE.VIDEO. | 00000990: 20 D0 CF CB C5 31 39 39 2C 31 20 54 4F 20 50 52 | ....199,1 TO PR| 000009A0: 49 4E 54 20 52 45 56 45 52 53 45 2E 0D D0 CF CB |INT REVERSE.....| 000009B0: C5 20 31 39 39 2C 30 20 46 4F 52 20 4E 4F 52 4D |. 199,0 FOR NORM| 000009C0: 41 4C 20 50 52 49 4E 54 2E 20 20 D4 48 45 20 57 |AL PRINT. .HE W| 000009D0: 41 59 0D C9 20 53 57 49 54 43 48 20 42 45 54 57 |AY.. SWITCH BETW| 000009E0: 45 45 4E 20 30 20 41 4E 44 20 31 20 46 4F 52 20 |EEN 0 AND 1 FOR | 000009F0: 54 4F 47 47 4C 49 4E 47 0D 52 45 56 45 52 53 45 |TOGGLING.REVERSE| 00000A00: 20 50 52 49 4E 54 20 49 53 20 44 4F 4E 45 20 4F | PRINT IS DONE O| 00000A10: 4E 20 CF CE C5 20 CC C9 CE C5 0D 57 49 54 48 20 |N ... .....WITH | 00000A20: 54 48 45 20 CE CF D4 20 43 4F 4D 4D 41 4E 44 2E |THE ... COMMAND.| 00000A30: 20 20 C9 54 20 57 4F 55 4C 44 20 54 41 4B 45 0D | .T WOULD TAKE.| 00000A40: 41 54 20 4C 45 41 53 54 20 33 20 57 49 54 48 20 |AT LEAST 3 WITH | 00000A50: C9 C6 20 D4 C8 C5 CE 20 53 54 41 54 45 4D 45 4E |.. .... STATEMEN| 00000A60: 54 53 2E 0D 0D 20 20 20 C9 20 55 53 45 20 54 48 |TS... . USE TH| 00000A70: 45 20 56 41 52 49 41 42 4C 45 20 D4 20 FF 4E 20 |E VARIABLE . .N | 00000A80: 4C 49 4E 45 20 33 38 30 0D 41 4E 44 20 54 4F 47 |LINE 380.AND TOG| 00000A90: 47 4C 45 20 49 54 20 57 49 54 48 20 CE CF D4 2E |GLE IT WITH ....| 00000AA0: 20 20 C9 46 20 54 3D 30 20 54 48 45 4E 0D CE CF | .F T=0 THEN...| 00000AB0: D4 20 54 20 3D 20 2D 31 2E 20 20 C3 4F 4E 56 45 |. T = -1. .ONVE| 00000AC0: 52 53 45 4C 59 20 49 46 20 54 20 3D 20 2D 31 0D |RSELY IF T = -1.| 00000AD0: 54 45 45 4E 20 CE CF D4 20 54 20 3D 20 30 2E 20 |TEEN ... T = 0. | 00000AE0: 20 D3 4F 20 41 4C 4C 20 C9 20 48 41 56 45 20 54 | .O ALL . HAVE T| 00000AF0: 4F 20 54 4F 0D 49 53 20 44 45 43 4C 41 52 45 0D |O TO.IS DECLARE.| 00000B00: 0D 20 20 20 20 20 20 20 20 20 20 20 54 20 3D 20 |. T = | 00000B10: 4E 4F 54 20 54 0D 0D 45 56 45 52 59 20 54 49 4D |NOT T..EVERY TIM| 00000B20: 45 20 C9 20 43 4F 4D 45 20 54 4F 20 54 48 49 53 |E . COME TO THIS| 00000B30: 20 4C 49 4E 45 2E 20 20 CE 4F 54 45 0D 54 48 41 | LINE. .OTE.THA| 00000B40: 54 20 4C 49 4E 45 20 33 37 30 20 41 4C 4C 4F 57 |T LINE 370 ALLOW| 00000B50: 53 20 41 43 43 45 53 53 20 54 4F 20 54 48 49 53 |S ACCESS TO THIS| 00000B60: 0D 4C 49 4E 45 20 CF CE CC D9 20 45 56 45 52 59 |.LINE .... EVERY| 00000B70: 20 31 35 20 4A 49 46 46 49 45 53 2E 20 20 C1 20 | 15 JIFFIES. . | 00000B80: 4A 49 46 46 59 0D 49 53 20 41 20 36 30 54 48 20 |JIFFY.IS A 60TH | 00000B90: 4F 46 20 41 20 53 45 43 4F 4E 44 2E 20 20 31 35 |OF A SECOND. 15| 00000BA0: 20 4A 49 46 46 49 45 53 20 49 53 0D 41 20 51 55 | JIFFIES IS.A QU| 00000BB0: 41 52 54 45 52 20 4F 46 20 41 20 53 45 43 4F 4E |ARTER OF A SECON| 00000BC0: 44 2E 20 20 D4 48 49 53 20 49 53 0D 41 42 4F 55 |D. .HIS IS.ABOU| 00000BD0: 54 20 48 4F 57 20 46 41 53 54 20 59 4F 55 52 20 |T HOW FAST YOUR | 00000BE0: 43 55 52 53 4F 52 20 4E 4F 52 4D 41 4C 4C 59 0D |CURSOR NORMALLY.| 00000BF0: 42 4C 49 4E 4B 53 2E 20 20 C8 4F 57 20 44 4F 20 |BLINKS. .OW DO | 00000C00: C9 20 4B 4E 4F 57 3F 20 20 D4 D2 C9 C1 CC 20 C1 |. KNOW? ..... .| 00000C10: CE C4 0D C5 D2 D3 DF D2 21 20 20 D5 FF 57 FF FF |........! ..W..| 00000C20: FF FF FF FF FF FF FF FF 07 98 FF FF 99 FF FF FF |................| 00000C30: FF 47 FF 97 97 FF FF 87 FF FF 07 18 FF FF FF 07 |.G..............| 00000C40: 17 FF FF 47 47 FF FF 19 FF FF FF FF FF FF FF FF |...GG...........| 00000C50: 77 17 17 FF FF 19 FF 4F 4F 49 FF FF FF FF FF 58 |w......OOI.....X| 00000C60: FF FF FF FF FF FF 99 FF F8 FF FF FF FF E9 88 F8 |................| 00000C70: F8 F8 F8 F8 F8 88 FF 97 FF FF 9F 47 FF FF FF FF |...........G....| 00000C80: 97 FF 97 FF FF 49 FF FF FF FF FF FF FF FF FF FF |.....I..........| 00000C90: FF FF FF FF FF FF FF 87 C9 FF FF 09 FF FF FF FF |................| 00000CA0: 09 FF 4F 49 FF FF FF FF FF 18 FF FF 07 77 98 FF |..OI.........w..| 00000CB0: FF FF FF 99 FF FF FF FF FF 97 FF FF FF F8 FF FF |................| 00000CC0: FF 07 79 17 FF FF 47 FF FF FF FF FF FF FF FF FF |..y...G.........| 00000CD0: 07 FF 57 87 FF FF FF B7 FF FF 78 FF 97 FF FF 47 |..W.......x....G| 00000CE0: FF FF 17 FF FF FF 53 48 4F 55 4C 44 0D 43 41 55 |......SHOULD.CAU| 00000CF0: 53 45 20 41 4E 20 49 4C 4C 45 47 41 4C 20 51 55 |SE AN ILLEGAL QU| 00000D00: 41 4E 54 49 54 59 20 45 52 52 4F 52 20 49 4E 0D |ANTITY ERROR IN.| 00000D10: 4C 49 4E 45 20 33 38 30 2E 0D 0D 20 20 20 20 20 |LINE 380... | 00000D20: 20 20 20 20 20 50 4F 4B 45 20 31 39 39 2C 2D 54 | POKE 199,-T| 00000D30: 0D 0D 20 20 20 20 C2 55 54 20 59 4F 55 20 43 41 |.. .UT YOU CA| 00000D40: 4E 20 4F 4E 4C 59 20 50 4F 4B 45 20 4E 55 4D 42 |N ONLY POKE NUMB| 00000D50: 45 52 53 20 49 4E 54 4F 0D 4D 45 4D 4F 52 59 20 |ERS INTO.MEMORY | 00000D60: 42 45 54 57 45 45 4E 20 30 20 41 4E 44 20 32 35 |BETWEEN 0 AND 25| 00000D70: 35 21 20 20 C1 20 4E 45 47 41 54 49 56 45 0D 4E |5! . NEGATIVE.N| 00000D80: 55 4D 42 45 52 20 57 49 4C 4C 20 43 41 55 53 45 |UMBER WILL CAUSE| 00000D90: 20 41 4E 20 49 4C 4C 45 47 41 4C 20 51 55 41 4E | AN ILLEGAL QUAN| 00000DA0: 54 49 54 59 0D 45 52 52 4F 52 20 49 4E 20 4C 49 |TITY.ERROR IN LI| 00000DB0: 4E 45 20 33 38 30 2E 20 20 D4 48 45 20 C1 C2 D3 |NE 380. .HE ...| 00000DC0: 20 46 55 4E 43 54 49 4F 4E 0D 57 4F 55 4C 44 20 | FUNCTION.WOULD | 00000DD0: 54 41 4B 45 20 43 41 52 45 20 4F 46 20 54 48 45 |TAKE CARE OF THE| 00000DE0: 20 50 52 4F 42 4C 45 4D 20 42 55 54 0D 49 54 27 | PROBLEM BUT.IT'| 00000DF0: 53 20 41 20 4C 49 54 54 4C 45 20 53 4C 4F 57 2C |S A LITTLE SLOW,| 00000E00: 20 53 4F 20 C9 20 44 4F 20 49 54 20 54 48 49 53 | SO . DO IT THIS| 00000E10: 0D 57 41 59 2E 0D 0D 20 20 20 20 D4 20 57 49 4C |.WAY... . WIL| 00000E20: 4C 20 4E 45 56 45 52 20 45 51 55 41 4C 20 41 4E |L NEVER EQUAL AN| 00000E30: 59 54 48 49 4E 47 20 42 55 54 20 30 0D 41 4E 44 |YTHING BUT 0.AND| 00000E40: 20 2D 31 20 49 4E 20 54 48 49 53 20 50 52 4F 47 | -1 IN THIS PROG| 00000E50: 52 41 4D 2E 20 20 D3 4F 20 49 54 27 53 0D 53 41 |RAM. .O IT'S.SA| 00000E60: 46 45 20 2D 2D 20 45 56 45 4E 20 CE C5 C3 C5 D3 |FE -- EVEN .....| 00000E70: D3 C1 D2 D9 20 54 4F 20 49 4E 43 4C 55 44 45 20 |.... TO INCLUDE | 00000E80: 54 48 45 0D 4E 45 47 41 54 49 56 45 20 53 49 47 |THE.NEGATIVE SIG| 00000E90: 4E 20 49 4E 20 54 48 49 53 20 43 4F 4D 4D 41 4E |N IN THIS COMMAN| 00000EA0: 44 21 0D D2 45 4D 45 4D 42 45 52 20 59 4F 55 52 |D!..EMEMBER YOUR| 00000EB0: 20 41 4C 47 45 42 52 41 20 4C 45 53 53 4F 4E 53 | ALGEBRA LESSONS| 00000EC0: 3F 0D CD 55 4C 54 49 50 4C 59 20 4F 52 20 44 49 |?..ULTIPLY OR DI| 00000ED0: 56 49 44 45 20 4E 45 47 41 54 49 56 45 20 4E 55 |VIDE NEGATIVE NU| 00000EE0: 4D 42 45 52 53 0D 42 59 20 41 4E 4F 54 48 45 52 |MBERS.BY ANOTHER| 00000EF0: 20 4E 45 47 41 54 49 56 45 20 4E 55 4D 42 45 52 | NEGATIVE NUMBER| 00000F00: 20 41 4E 44 20 59 4F 55 27 4C 4C 0D 47 45 54 20 | AND YOU'LL.GET | 00000F10: 41 20 D0 CF D3 C9 D4 C9 D6 C5 20 4E 55 4D 42 45 |A ........ NUMBE| 00000F20: 52 2E 0D 0D 57 48 45 4E 20 54 20 3D 20 2D 31 20 |R...WHEN T = -1 | 00000F30: 54 48 45 4E 20 2D 54 20 3D 20 31 0D 0D 20 20 20 |THEN -T = 1.. | 00000F40: 2D 54 20 3D 20 2D 31 2A 28 54 29 20 20 3D 20 20 |-T = -1*(T) = | 00000F50: 2D 31 2A 28 2D 31 29 20 20 3D 20 31 0D 0D 20 20 |-1*(-1) = 1.. | 00000F60: 20 20 D3 49 4E 43 45 20 5A 45 52 4F 20 48 41 53 | .INCE ZERO HAS| 00000F70: 20 4E 4F 20 56 41 4C 55 45 2C 20 49 54 20 43 41 | NO VALUE, IT CA| 00000F80: 4E 27 54 0D 42 45 20 50 4F 53 49 54 49 56 45 20 |N'T.BE POSITIVE | 00000F90: 4F 52 20 4E 45 47 41 54 49 56 45 2E 20 20 D4 48 |OR NEGATIVE. .H| 00000FA0: 45 0D 4E 45 47 41 54 49 56 45 20 53 49 47 4E 20 |E.NEGATIVE SIGN | 00000FB0: 48 41 53 20 4E 4F 20 45 46 46 45 43 54 20 57 48 |HAS NO EFFECT WH| 00000FC0: 45 4E 20 54 20 49 53 0D 5A 45 52 4F 2E 0D 0D 0D |EN T IS.ZERO....| 00000FD0: 20 20 20 20 C1 4C 52 49 47 48 54 2C 20 48 4F 57 | .LRIGHT, HOW| 00000FE0: 20 44 4F 20 C9 20 43 41 4C 43 55 4C 41 54 45 20 | DO . CALCULATE | 00000FF0: 54 48 45 0D 54 4F 54 41 4C 3F 20 20 D4 48 41 54 |THE.TOTAL? .HAT| 00001000: 27 53 20 41 4E 4F 54 48 45 52 20 54 48 49 4E 47 |'S ANOTHER THING| 00001010: 20 54 48 41 54 0D 4D 41 4B 45 53 20 41 52 52 41 | THAT.MAKES ARRA| 00001020: 59 53 20 4F 52 20 41 4E 59 20 54 41 42 4C 45 20 |YS OR ANY TABLE | 00001030: 47 52 45 41 54 2E 0D D4 41 4B 45 20 41 20 4C 4F |GREAT...AKE A LO| 00001040: 4F 4B 20 41 54 20 4C 49 4E 45 53 20 35 33 30 20 |OK AT LINES 530 | 00001050: 41 4E 44 20 35 34 30 2E 0D D7 48 41 54 3F 20 20 |AND 540...HAT? | 00001060: CF 4E 4C 59 20 54 57 4F 20 4C 49 4E 45 53 20 54 |.NLY TWO LINES T| 00001070: 4F 20 50 45 52 46 4F 52 4D 20 53 55 43 48 0D 41 |O PERFORM SUCH.A| 00001080: 20 46 45 41 54 3F 20 20 C1 43 54 55 41 4C 4C 59 | FEAT? .CTUALLY| 00001090: 20 49 54 27 53 20 44 4F 4E 45 20 49 4E 20 4F 4E | IT'S DONE IN ON| 000010A0: 45 0D C6 CF D2 20 CE C5 D8 D4 20 4C 4F 4F 50 20 |E.... .... LOOP | 000010B0: 49 4E 20 4C 49 4E 45 20 35 33 30 2E 0D 0D 20 20 |IN LINE 530... | 000010C0: 20 20 C9 4E 20 54 48 49 53 20 50 52 4F 47 52 41 | .N THIS PROGRA| 000010D0: 4D 20 54 54 24 20 43 4F 4E 54 41 49 4E 53 20 54 |M TT$ CONTAINS T| 000010E0: 48 45 0D 57 41 47 45 53 20 54 48 41 54 20 59 4F |HE.WAGES THAT YO| 000010F0: 55 20 45 4E 54 45 52 45 44 20 57 48 45 4E 20 54 |U ENTERED WHEN T| 00001100: 48 45 0D 50 52 4F 47 52 41 4D 20 57 41 53 20 46 |HE.PROGRAM WAS F| 00001110: 49 52 53 54 20 D2 D5 CE 2E 20 20 C9 20 53 45 54 |IRST .... . SET| 00001120: 20 54 54 20 54 4F 0D 54 48 45 20 D6 C1 CC 20 4F | TT TO.THE ... O| 00001130: 46 20 54 54 24 20 41 4E 44 20 54 48 45 4E 20 53 |F TT$ AND THEN S| 00001140: 55 42 54 52 41 43 54 0D 45 56 45 52 59 54 48 49 |UBTRACT.EVERYTHI| 00001150: 4E 47 20 49 4E 20 54 48 45 20 41 52 52 41 59 20 |NG IN THE ARRAY | 00001160: 46 52 4F 4D 20 54 48 41 54 2E 20 20 C9 0D 4E 45 |FROM THAT. ..NE| 00001170: 45 44 20 41 20 4C 4F 4F 50 20 46 4F 52 20 54 48 |ED A LOOP FOR TH| 00001180: 49 53 20 4A 4F 42 3A 20 20 D4 48 45 20 4C 4F 4F |IS JOB: .HE LOO| 00001190: 50 0D 4C 4F 4F 4B 53 20 4C 49 4B 45 20 54 48 49 |P.LOOKS LIKE THI| 000011A0: 53 3A 0D 0D 46 4F 52 49 3D 31 54 4F 31 30 3A 54 |S:..FORI=1TO10:T| 000011B0: 54 3D 54 54 2D 56 41 4C 28 41 4D 24 28 49 29 29 |T=TT-VAL(AM$(I))| 000011C0: 3A 4E 45 58 54 0D 0D C8 4F 57 27 53 20 54 48 41 |:NEXT...OW'S THA| 000011D0: 54 20 46 4F 52 20 53 49 4D 50 4C 45 3F 0D 0D 20 |T FOR SIMPLE?.. | 000011E0: 20 20 20 D9 4F 55 20 4D 41 59 20 48 41 56 45 20 | .OU MAY HAVE | 000011F0: 4E 4F 54 49 43 45 44 20 54 48 41 54 20 59 4F 55 |NOTICED THAT YOU| 00001200: 0D 50 52 45 53 53 20 C3 D4 D2 CC 2D D1 20 54 57 |.PRESS ....-. TW| 00001210: 49 43 45 20 54 4F 20 51 55 49 54 2E 20 20 D4 48 |ICE TO QUIT. .H| 00001220: 45 0D 4C 4F 47 49 43 20 54 48 41 54 20 48 41 4E |E.LOGIC THAT HAN| 00001230: 44 4C 45 53 20 54 48 49 53 20 4D 49 47 48 54 20 |DLES THIS MIGHT | 00001240: 53 45 45 4D 0D 53 49 4D 50 4C 45 20 41 54 20 46 |SEEM.SIMPLE AT F| 00001250: 49 52 53 54 20 42 55 54 20 54 48 45 52 45 27 53 |IRST BUT THERE'S| 00001260: 20 41 20 50 52 4F 42 4C 45 4D 0D 57 49 54 48 20 | A PROBLEM.WITH | 00001270: C3 D4 D2 CC 2D D1 2E 20 20 D0 52 45 53 53 49 4E |....-.. .RESSIN| 00001280: 47 20 C3 D2 D4 CC 2D D1 20 49 53 20 54 48 45 0D |G ....-. IS THE.| 00001290: 53 41 4D 45 20 41 53 20 50 52 45 53 53 49 4E 47 |SAME AS PRESSING| 000012A0: 20 43 55 52 53 4F 52 20 44 4F 57 4E 2E 20 20 D9 | CURSOR DOWN. .| 000012B0: 4F 55 0D 44 4F 4E 27 54 20 57 41 4E 54 20 54 48 |OU.DON'T WANT TH| 000012C0: 45 20 50 52 4F 47 52 41 4D 20 54 4F 20 45 4E 44 |E PROGRAM TO END| 000012D0: 20 45 56 45 52 59 0D 54 49 4D 45 20 53 4F 4D 45 | EVERY.TIME SOME| 000012E0: 4F 4E 45 20 50 52 45 53 53 45 53 20 43 55 52 53 |ONE PRESSES CURS| 000012F0: 4F 52 20 44 4F 57 4E 2C 20 44 4F 0D 59 4F 55 3F |OR DOWN, DO.YOU?| 00001300: 0D 0D 20 20 20 20 C8 4F 57 20 44 4F 20 C9 20 44 |.. .OW DO . D| 00001310: 49 53 54 49 4E 47 55 49 53 48 20 42 45 54 57 45 |ISTINGUISH BETWE| 00001320: 45 4E 0D 43 55 52 53 4F 52 20 44 4F 57 4E 20 41 |EN.CURSOR DOWN A| 00001330: 4E 44 20 C3 D4 D2 CC 2D D1 3F 20 20 D1 55 49 54 |ND ....-.? .UIT| 00001340: 45 0D 53 49 4D 50 4C 45 2E 20 20 CC 4F 43 41 54 |E.SIMPLE. .OCAT| 00001350: 49 4F 4E 20 36 35 33 20 52 45 50 4F 52 54 53 20 |ION 653 REPORTS | 00001360: 57 48 45 54 48 45 52 0D 4F 52 20 4E 4F 54 20 41 |WHETHER.OR NOT A| 00001370: 20 D3 C8 C9 C6 D4 2C 20 C3 D4 D2 CC 2C 20 C3 CF | ....., ...., ..| 00001380: CD CD CF C4 CF D2 C5 0D 4F 52 20 41 20 43 4F 4D |........OR A COM| 00001390: 42 49 4E 41 54 49 4F 4E 20 4F 46 20 54 48 45 53 |BINATION OF THES| 000013A0: 45 20 4B 45 59 53 20 49 53 0D 50 52 45 53 53 45 |E KEYS IS.PRESSE| 000013B0: 44 2E 0D 0D 0D 0D D0 C5 C5 CB 28 36 35 33 29 3D |D.........(653)=| 000013C0: 20 31 20 57 48 45 4E 20 D3 C8 C9 C6 D4 20 49 53 | 1 WHEN ..... IS| 000013D0: 20 50 52 45 53 53 45 44 0D D0 C5 C5 CB 28 36 35 | PRESSED.....(65| 000013E0: 33 29 3D 20 32 20 57 48 45 4E 20 C3 CF CD CD CF |3)= 2 WHEN .....| 000013F0: C4 CF D2 C5 20 49 53 20 50 52 45 53 53 45 44 0D |.... IS PRESSED.| 00001400: D0 C5 C5 CB 28 36 35 33 29 3D 20 34 20 57 48 45 |....(653)= 4 WHE| 00001410: 4E 20 C3 D4 D2 CC 20 49 53 20 50 52 45 53 53 45 |N .... IS PRESSE| 00001420: 44 0D 0D CA 55 53 54 20 41 44 44 20 54 48 45 53 |D...UST ADD THES| 00001430: 45 20 56 41 4C 55 45 53 20 54 4F 20 54 45 53 54 |E VALUES TO TEST| 00001440: 20 46 4F 52 20 41 0D 43 4F 4D 42 49 4E 41 54 49 | FOR A.COMBINATI| 00001450: 4F 4E 20 4F 46 20 4B 45 59 20 50 52 45 53 53 45 |ON OF KEY PRESSE| 00001460: 53 2E 0D 0D 20 20 20 20 D3 4F 20 49 46 20 54 48 |S... .O IF TH| 00001470: 45 20 43 4F 4D 50 55 54 45 52 20 52 45 43 45 49 |E COMPUTER RECEI| 00001480: 56 45 53 20 49 4E 50 55 54 0D 41 4E 44 20 54 48 |VES INPUT.AND TH| 00001490: 41 54 20 49 4E 50 55 54 20 49 53 20 43 55 52 53 |AT INPUT IS CURS| 000014A0: 4F 52 20 44 4F 57 4E 20 28 C3 D4 D2 CC 2D D1 29 |OR DOWN (....-.)| 000014B0: 0D 54 48 45 20 50 52 4F 47 52 41 4D 20 43 48 45 |.THE PROGRAM CHE| 000014C0: 43 4B 53 20 46 49 52 53 54 20 54 4F 20 53 45 45 |CKS FIRST TO SEE| 000014D0: 0D 57 48 45 54 48 45 52 20 4F 52 20 4E 4F 54 20 |.WHETHER OR NOT | 000014E0: 54 48 45 20 C3 D4 D2 CC 20 4B 45 59 20 49 53 20 |THE .... KEY IS | 000014F0: 44 4F 57 4E 2E 0D C3 48 45 43 4B 20 4F 55 54 20 |DOWN...HECK OUT | 00001500: 4C 49 4E 45 53 20 32 39 30 20 41 4E 44 20 33 30 |LINES 290 AND 30| 00001510: 30 2E 0D 0D 32 39 30 20 49 46 41 24 3D 22 5B 44 |0...290 IFA$="[D| 00001520: 4F 57 4E 5D 22 54 48 45 4E 49 46 50 45 45 4B 28 |OWN]"THENIFPEEK(| 00001530: 36 35 33 29 3D 34 54 48 45 4E 0D 20 20 20 20 47 |653)=4THEN. G| 00001540: 4F 53 55 42 37 30 30 0D 0D 0D 0D 0D CE 4F 54 45 |OSUB700......OTE| 00001550: 20 C9 20 48 41 56 45 20 4D 4F 52 45 20 54 48 41 | . HAVE MORE THA| 00001560: 4E 20 4F 4E 45 20 C9 C6 2E 2E 2E D4 C8 C5 CE 0D |N ONE ..........| 00001570: 53 54 41 54 45 4D 45 4E 54 20 49 4E 20 54 48 49 |STATEMENT IN THI| 00001580: 53 20 4C 49 4E 45 2E 20 20 D4 48 45 20 4C 49 4E |S LINE. .HE LIN| 00001590: 45 0D 43 4F 55 4C 44 20 4C 4F 4F 4B 20 4C 49 4B |E.COULD LOOK LIK| 000015A0: 45 20 54 48 49 53 20 41 4C 53 4F 3A 0D 0D 32 39 |E THIS ALSO:..29| 000015B0: 30 20 49 46 41 24 3D 22 5B 44 4F 57 4E 5D 22 41 |0 IFA$="[DOWN]"A| 000015C0: 4E 44 50 45 45 4B 28 36 35 33 29 3D 34 54 48 45 |NDPEEK(653)=4THE| 000015D0: 4E 0D 20 20 20 20 47 4F 53 55 42 37 30 30 0D 0D |N. GOSUB700..| 000015E0: 20 20 20 20 D4 48 49 53 20 49 53 20 59 4F 55 52 | .HIS IS YOUR| 000015F0: 20 50 52 45 52 4F 47 41 54 49 56 45 20 57 48 45 | PREROGATIVE WHE| 00001600: 4E 0D 59 4F 55 27 52 45 20 4F 4E 4C 59 20 54 45 |N.YOU'RE ONLY TE| 00001610: 53 54 49 4E 47 20 46 4F 52 20 54 57 4F 0D 43 4F |STING FOR TWO.CO| 00001620: 4E 44 49 54 49 4F 4E 53 2E 20 20 C9 46 20 59 4F |NDITIONS. .F YO| 00001630: 55 27 52 45 20 54 45 53 54 49 4E 47 20 46 4F 52 |U'RE TESTING FOR| 00001640: 0D 53 45 56 45 52 41 4C 20 43 4F 4E 44 49 54 49 |.SEVERAL CONDITI| 00001650: 4F 4E 53 20 54 48 45 4E 20 49 54 27 53 0D 53 4F |ONS THEN IT'S.SO| 00001660: 4D 45 54 49 4D 45 53 20 46 41 53 54 45 52 20 54 |METIMES FASTER T| 00001670: 4F 20 55 53 45 20 4D 4F 52 45 20 54 48 41 4E 20 |O USE MORE THAN | 00001680: 4F 4E 45 0D C9 C6 2E 2E 2E D4 C8 C5 CE 20 43 4F |ONE.......... CO| 00001690: 4D 4D 41 4E 44 20 4F 4E 20 41 20 4C 49 4E 45 2E |MMAND ON A LINE.| 000016A0: 20 20 D4 48 45 0D 46 4F 4C 4C 4F 57 49 4E 47 20 | .HE.FOLLOWING | 000016B0: 54 57 4F 20 4C 49 4E 45 53 20 41 52 45 4E 27 54 |TWO LINES AREN'T| 000016C0: 20 49 4E 20 54 48 45 0D 50 52 4F 47 52 41 4D 2E | IN THE.PROGRAM.| 000016D0: 0D 0D 0D 0D 0D 31 30 20 49 46 41 3D 32 41 4E 44 |.....10 IFA=2AND| 000016E0: 42 3D 34 41 4E 44 47 3D 36 37 41 4E 44 54 3D 37 |B=4ANDG=67ANDT=7| 000016F0: 41 4E 44 52 3D 33 54 48 45 4E 0D 20 20 20 47 4F |ANDR=3THEN. GO| 00001700: 53 55 42 37 30 30 0D 0D 32 30 20 49 46 41 3D 32 |SUB700..20 IFA=2| 00001710: 54 48 45 4E 49 46 42 3D 34 54 48 45 4E 49 46 47 |THENIFB=4THENIFG| 00001720: 3D 36 37 54 48 45 4E 49 46 54 3D 37 0D 20 20 20 |=67THENIFT=7. | 00001730: 54 48 45 4E 49 46 52 3D 33 54 48 45 4E 47 4F 53 |THENIFR=3THENGOS| 00001740: 55 42 37 30 30 0D 0D 20 20 20 20 C2 45 4C 49 45 |UB700.. .ELIE| 00001750: 56 45 20 49 54 20 4F 52 20 4E 4F 54 2C 20 49 4E |VE IT OR NOT, IN| 00001760: 20 4D 4F 53 54 20 43 41 53 45 53 0D 4C 49 4E 45 | MOST CASES.LINE| 00001770: 20 32 30 20 57 4F 55 4C 44 20 45 58 45 43 55 54 | 20 WOULD EXECUT| 00001780: 45 20 46 41 53 54 45 52 20 42 45 43 41 55 53 45 |E FASTER BECAUSE| 00001790: 0D 4F 46 20 54 48 45 20 53 54 45 50 20 42 59 20 |.OF THE STEP BY | 000017A0: 53 54 45 50 20 4C 4F 47 49 43 2E 20 20 CC 49 4E |STEP LOGIC. .IN| 000017B0: 45 20 31 30 0D 49 53 20 53 45 54 20 55 50 20 53 |E 10.IS SET UP S| 000017C0: 4F 20 54 48 41 54 20 49 54 20 C1 C2 D3 CF CC D5 |O THAT IT ......| 000017D0: D4 C5 CC D9 20 CD D5 D3 D4 0D 54 45 53 54 20 41 |.... .....TEST A| 000017E0: 4C 4C 20 54 48 45 20 56 41 4C 55 45 53 20 53 50 |LL THE VALUES SP| 000017F0: 45 43 49 46 49 45 44 2E 20 20 CC 49 4E 45 0D 32 |ECIFIED. .INE.2| 00001800: 30 20 57 49 4C 4C 20 53 4B 49 50 20 54 4F 20 54 |0 WILL SKIP TO T| 00001810: 48 45 20 4E 45 58 54 20 4C 49 4E 45 20 41 53 20 |HE NEXT LINE AS | 00001820: 53 4F 4F 4E 0D 41 53 20 49 54 20 53 54 55 4D 42 |SOON.AS IT STUMB| 00001830: 4C 45 53 20 41 43 52 4F 53 53 20 54 48 45 20 46 |LES ACROSS THE F| 00001840: 49 52 53 54 20 46 41 4C 53 45 0D 54 45 53 54 2E |IRST FALSE.TEST.| 00001850: 0D 0D 0D 0D 0D 0D 20 20 20 20 CE 4F 54 45 20 54 |...... .OTE T| 00001860: 48 41 54 20 4C 49 4E 45 20 37 30 30 20 48 41 53 |HAT LINE 700 HAS| 00001870: 20 41 20 53 45 4C 44 4F 4D 2D 0D 55 53 45 44 20 | A SELDOM-.USED | 00001880: 43 4F 4D 4D 41 4E 44 2C 20 D7 C1 C9 D4 2E 0D 0D |COMMAND, .......| 00001890: 37 30 30 20 50 4F 4B 45 31 39 38 2C 30 3A 50 4F |700 POKE198,0:PO| 000018A0: 4B 45 35 33 32 38 31 2C 31 3A 57 41 49 54 31 39 |KE53281,1:WAIT19| 000018B0: 38 2C 31 3A 0D 20 20 20 20 50 4F 4B 45 35 33 32 |8,1:. POKE532| 000018C0: 38 31 2C 31 35 0D 0D 20 20 20 20 D7 C1 C9 D4 20 |81,15.. .... | 000018D0: 57 49 4C 4C 20 57 41 49 54 20 46 4F 52 20 41 20 |WILL WAIT FOR A | 000018E0: 4C 4F 43 41 54 49 4F 4E 20 54 4F 0D 42 45 43 4F |LOCATION TO.BECO| 000018F0: 4D 45 20 41 20 43 45 52 54 41 49 4E 20 56 41 4C |ME A CERTAIN VAL| 00001900: 55 45 20 42 45 46 4F 52 45 0D 41 4C 4C 4F 57 49 |UE BEFORE.ALLOWI| 00001910: 4E 47 20 50 52 4F 47 52 41 4D 20 45 58 45 43 55 |NG PROGRAM EXECU| 00001920: 54 49 4F 4E 20 54 4F 0D 43 4F 4E 54 49 4E 55 45 |TION TO.CONTINUE| 00001930: 2E 20 20 C9 4E 20 54 48 49 53 20 43 41 53 45 20 |. .N THIS CASE | 00001940: 49 54 27 53 20 57 41 49 54 49 4E 47 0D 46 4F 52 |IT'S WAITING.FOR| 00001950: 20 31 39 38 20 54 4F 20 48 41 56 45 20 41 20 31 | 198 TO HAVE A 1| 00001960: 20 49 4E 20 49 54 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D | IN IT..........| 00001970: 20 20 20 20 C6 49 52 53 54 20 C9 20 53 45 54 20 | .IRST . SET | 00001980: 4C 4F 43 41 54 49 4F 4E 20 31 39 38 2C 20 54 48 |LOCATION 198, TH| 00001990: 45 0D 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 52 |E.NUMBER OF CHAR| 000019A0: 41 43 54 45 52 53 20 49 4E 20 54 48 45 20 4B 45 |ACTERS IN THE KE| 000019B0: 59 42 4F 41 52 44 0D 42 55 46 46 45 52 20 54 4F |YBOARD.BUFFER TO| 000019C0: 20 5A 45 52 4F 2E 20 20 D4 48 45 4E 20 C9 20 4D | ZERO. .HEN . M| 000019D0: 41 4B 45 20 54 48 45 0D 42 41 43 4B 47 52 4F 55 |AKE THE.BACKGROU| 000019E0: 4E 44 20 57 48 49 54 45 2E 20 20 CE 4F 57 20 57 |ND WHITE. .OW W| 000019F0: 49 54 48 20 54 48 45 20 D7 C1 C9 D4 0D 43 4F 4D |ITH THE .....COM| 00001A00: 4D 41 4E 44 2C 20 C9 27 4D 20 57 41 49 54 49 4E |MAND, .'M WAITIN| 00001A10: 47 20 46 4F 52 20 41 20 4B 45 59 50 52 45 53 53 |G FOR A KEYPRESS| 00001A20: 0D 54 4F 20 42 45 20 52 45 50 4F 52 54 45 44 20 |.TO BE REPORTED | 00001A30: 49 4E 20 54 48 45 20 42 55 46 46 45 52 2E 20 20 |IN THE BUFFER. | 00001A40: C1 53 0D 53 4F 4F 4E 20 41 53 20 41 4E 59 20 4B |.S.SOON AS ANY K| 00001A50: 45 59 20 49 53 20 50 52 45 53 53 45 44 2C 20 D7 |EY IS PRESSED, .| 00001A60: C1 C9 D4 0D 41 4C 4C 4F 57 53 20 54 48 45 20 50 |....ALLOWS THE P| 00001A70: 52 4F 47 52 41 4D 20 54 4F 20 43 4F 4E 54 49 4E |ROGRAM TO CONTIN| 00001A80: 55 45 20 41 4E 44 0D 52 45 53 54 4F 52 45 53 20 |UE AND.RESTORES | 00001A90: 54 48 45 20 47 52 45 59 20 53 43 52 45 45 4E 2E |THE GREY SCREEN.| 00001AA0: 20 20 C9 46 20 54 48 45 20 4B 45 59 0D 50 52 45 | .F THE KEY.PRE| 00001AB0: 53 53 45 44 20 57 41 53 20 C3 D4 D2 CC 2D D1 20 |SSED WAS ....-. | 00001AC0: 54 48 45 4E 20 54 48 45 20 50 52 4F 47 52 41 4D |THEN THE PROGRAM| 00001AD0: 0D 52 45 54 55 52 4E 53 20 54 4F 20 CC CF C1 C4 |.RETURNS TO ....| 00001AE0: D3 D4 C1 D2 2E 20 20 C9 46 20 4E 4F 54 2C 20 49 |..... .F NOT, I| 00001AF0: 54 0D D2 C5 D4 D5 D2 CE D3 20 54 4F 20 54 48 45 |T........ TO THE| 00001B00: 20 4D 41 49 4E 20 4C 4F 4F 50 20 4F 46 20 54 48 | MAIN LOOP OF TH| 00001B10: 45 0D 50 52 4F 47 52 41 4D 2E 0D 0D 0D 0D 0D 0D |E.PROGRAM.......| 00001B20: 0D 20 20 20 20 C4 4F 45 53 20 54 48 49 53 20 50 |. .OES THIS P| 00001B30: 52 4F 47 52 41 4D 20 53 45 45 4D 20 4D 4F 52 45 |ROGRAM SEEM MORE| 00001B40: 20 4C 49 4B 45 0D 41 20 43 4F 4C 4C 45 43 54 49 | LIKE.A COLLECTI| 00001B50: 4F 4E 20 4F 46 20 54 52 49 43 4B 53 20 54 48 41 |ON OF TRICKS THA| 00001B60: 4E 20 41 20 52 45 41 4C 0D 50 52 4F 47 52 41 4D |N A REAL.PROGRAM| 00001B70: 3F 20 20 C9 54 20 53 48 4F 55 4C 44 2E 20 20 D4 |? .T SHOULD. .| 00001B80: 48 41 54 27 53 20 57 48 41 54 0D 50 52 4F 47 52 |HAT'S WHAT.PROGR| 00001B90: 41 4D 4D 49 4E 47 20 49 53 20 41 4C 4C 20 41 42 |AMMING IS ALL AB| 00001BA0: 4F 55 54 20 2D 2D 20 44 49 50 50 49 4E 47 0D 49 |OUT -- DIPPING.I| 00001BB0: 4E 54 4F 20 59 4F 55 52 20 42 41 47 20 4F 46 20 |NTO YOUR BAG OF | 00001BC0: 54 52 49 43 4B 53 20 49 4E 53 54 45 41 44 20 4F |TRICKS INSTEAD O| 00001BD0: 46 0D 52 45 49 4E 56 45 4E 54 49 4E 47 20 54 48 |F.REINVENTING TH| 00001BE0: 45 20 53 50 41 43 45 20 53 48 55 54 54 4C 45 20 |E SPACE SHUTTLE | 00001BF0: 41 4C 4C 0D 4F 56 45 52 20 41 47 41 49 4E 2E 0D |ALL.OVER AGAIN..| 00001C00: 0D 20 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 |. **** .ND| 00001C10: 20 4F 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D | OF .EXT ****. |
..^U:ZERO.DISSECTION OF A BASIC PROGRAM
- PART 2.. BY JEFFREY L. JONES..
THIS IS THE SECOND INSTALLMENT.IN A T
WO-PART SERIES WHERE I EXAMINE.A REAL LI
FE BASIC PROGRAM ON THIS.DISK. THE PROG
RAM IS CALLED CHEAP.CALC, BECAUSE IT'S A
POOR MAN'S.SPREADSHEET. FOR NEWCOMERS,
.I'LL GO.OVER THE INSTRUCTIONS FOR CHEAP
.CALC'S US...T.R................R......P
...P...Q.......P..Z....ZP....TP.........
R.......T.......R..............PP.....T.
..P...P..........W.....R....P...........
R.....................R..... LOT BETTER
THAN A CALCULATOR..... YOU JUST MOVE
THE CURSOR, USING.THE CRSR KEYS, TO ANY
LABEL OR.NUMBER YOU LIKE. THEN PRESS RE
TURN.TO SELECT AND CHANGE! EVERYTIME YO
U.ENTER A NUMBER, THE ENTIRE TABLE IS.RE
CALCULATED FOR YOU... YOU CAN EXIT TO
LOADSTAR BY.PRESSING CTRL-Q TWICE. WHY
TWICE?.FOR YOUR PROTECTION -- AS WELL A
S TO.EXAMINE THE LOGIC BEHIND THE EXIT.R
OUTINE...NOTE: YOU SHOULD PRINT OUT THI
S.ARTICLE IF YOU'RE GOING TO DISSECT.CHE
AP CALC IN ORDER TO SEE THE PROGRAM.LINE
S AND THE TEXT AT THE SAME TIME... WE
'VE ALREADY STUDIED HOW THE.MENU WAS PRI
NTED TO THE SCREEN. NOW.COMES THE PROMP
T THAT ASKS YOU TO.ENTER WAGES. THIS IS
TRICKY. YOU.SHOULD KEEP IN MIND THAT I
'VE ALREADY.POKED A CARRIAGE RETURN INTO
THE.KEYBOARD BUFFER THAT MAKES THE.COMP
UTER THINK THAT THE USER HAS.PRESSED THE
RETURN KEY. SO WHEN THE.COMPUTER COMES
TO LINE 340,.. 340 IFA$=CHR$(13)THE
N560..YOU'RE AUTOMATICALLY WHISKED TO TH
E.INPUT ROUTINE... HERE'S SOMETHING R
EALLY TRICKY..I HAVE A HARD TIME FOLLOWI
NG IT.MYSELF...LINE560..POKE211,1-(MO=0)
*27:POKE214,2*IT+1:.SYS58732.. WHAT I
S THIS GOBBLEDYGOOK? AGAIN.I'VE USED A
FORMULA TO SOLVE TWO.PROBLEMS: I WANTED
TO USE ONE.ROUTINE TO PRINT A PROMPT AN
YWHERE ON.THE SCREEN ACCORDING TO WHICH
ITEM.WAS BEING ADDRESSED. THIS PROGRAM
IS.ONLY TEN BLOCKS LONG FOR A REASON! I
F.MO=0 THEN THE PROMPT IS PLACED IN.THE
28TH COLUMN. IF MO<>0 THEN THE.PROMPT I
S PLACED IN THE 1ST COLUMN..I USE BOOLEA
N MATH TO ACCOMPLISH THIS..EXPERIMENT IN
THE DIRECT MODE AND.YOU'LL SEE HOW HAND
Y THIS IS... NOTICE THE FLASHING CURS
OR? I.TOGGLE IT IN LINE 380 WITH THE NO
T.COMMAND. NOT IS VERY GOOD FOR.TOGGLIN
G THINGS. I USE IT TO.PRINT.THINGS REVE
RSED OR NOT REVERSED. WE.ALL KNOW THAT
CRTL-9 OR CHR$(18) WILL.CAUSE REVERSE PR
INTING. THAT'S NOT.HOW I USUALLY DO IT,
ESPECIALLY IN.SITUATIONS LIKE THIS WHER
E I WANT TO.TOGGLE. CTRL-9 IS CTRL-9 PE
RIOD... LOCATION 199 CONTROLS REVERSE
.VIDEO. POKE199,1 TO PRINT REVERSE..POK
E 199,0 FOR NORMAL PRINT. THE WAY.I SWI
TCH BETWEEN 0 AND 1 FOR TOGGLING.REVERSE
PRINT IS DONE ON ONE LINE.WITH THE NOT
COMMAND. IT WOULD TAKE.AT LEAST 3 WITH
IF THEN STATEMENTS... I USE THE VARIAB
LE T .N LINE 380.AND TOGGLE IT WITH NOT.
IF T=0 THEN.NOT T = -1. CONVERSELY IF
T = -1.TEEN NOT T = 0. SO ALL I HAVE T
O TO.IS DECLARE.. T = NOT T..E
VERY TIME I COME TO THIS LINE. NOTE.THA
T LINE 370 ALLOWS ACCESS TO THIS.LINE ON
LY EVERY 15 JIFFIES. A JIFFY.IS A 60TH
OF A SECOND. 15 JIFFIES IS.A QUARTER OF
A SECOND. THIS IS.ABOUT HOW FAST YOUR
CURSOR NORMALLY.BLINKS. HOW DO I KNOW?
TRIAL AND.ERS.R! U.W..................
.G.................GG...........W......O
OI.....X...........................G....
.....I..................I.........OI....
.....W....................Y...G.........
..W.......X....G......SHOULD.CAUSE AN IL
LEGAL QUANTITY ERROR IN.LINE 380...
POKE 199,-T.. BUT YOU CAN ONLY P
OKE NUMBERS INTO.MEMORY BETWEEN 0 AND 25
5! A NEGATIVE.NUMBER WILL CAUSE AN ILLE
GAL QUANTITY.ERROR IN LINE 380. THE ABS
FUNCTION.WOULD TAKE CARE OF THE PROBLEM
BUT.IT'S A LITTLE SLOW, SO I DO IT THIS
.WAY... T WILL NEVER EQUAL ANYTHING B
UT 0.AND -1 IN THIS PROGRAM. SO IT'S.SA
FE -- EVEN NECESSARY TO INCLUDE THE.NEGA
TIVE SIGN IN THIS COMMAND!.REMEMBER YOUR
ALGEBRA LESSONS?.MULTIPLY OR DIVIDE NEG
ATIVE NUMBERS.BY ANOTHER NEGATIVE NUMBER
AND YOU'LL.GET A POSITIVE NUMBER...WHEN
T = -1 THEN -T = 1.. -T = -1*(T) =
-1*(-1) = 1.. SINCE ZERO HAS NO VALU
E, IT CAN'T.BE POSITIVE OR NEGATIVE. TH
E.NEGATIVE SIGN HAS NO EFFECT WHEN T IS.
ZERO.... ALRIGHT, HOW DO I CALCULATE
THE.TOTAL? THAT'S ANOTHER THING THAT.MA
KES ARRAYS OR ANY TABLE GREAT..TAKE A LO
OK AT LINES 530 AND 540..WHAT? ONLY TWO
LINES TO PERFORM SUCH.A FEAT? ACTUALLY
IT'S DONE IN ONE.FOR NEXT LOOP IN LINE
530... IN THIS PROGRAM TT$ CONTAINS T
HE.WAGES THAT YOU ENTERED WHEN THE.PROGR
AM WAS FIRST RUN. I SET TT TO.THE VAL O
F TT$ AND THEN SUBTRACT.EVERYTHING IN TH
E ARRAY FROM THAT. I.NEED A LOOP FOR TH
IS JOB: THE LOOP.LOOKS LIKE THIS:..FORI
=1TO10:TT=TT-VAL(AM$(I)):NEXT..HOW'S THA
T FOR SIMPLE?.. YOU MAY HAVE NOTICED
THAT YOU.PRESS CTRL-Q TWICE TO QUIT. TH
E.LOGIC THAT HANDLES THIS MIGHT SEEM.SIM
PLE AT FIRST BUT THERE'S A PROBLEM.WITH
CTRL-Q. PRESSING CRTL-Q IS THE.SAME AS
PRESSING CURSOR DOWN. YOU.DON'T WANT TH
E PROGRAM TO END EVERY.TIME SOMEONE PRES
SES CURSOR DOWN, DO.YOU?.. HOW DO I D
ISTINGUISH BETWEEN.CURSOR DOWN AND CTRL-
Q? QUITE.SIMPLE. LOCATION 653 REPORTS
WHETHER.OR NOT A SHIFT, CTRL, COMMODORE.
OR A COMBINATION OF THESE KEYS IS.PRESSE
D.....PEEK(653)= 1 WHEN SHIFT IS PRESSED
.PEEK(653)= 2 WHEN COMMODORE IS PRESSED.
PEEK(653)= 4 WHEN CTRL IS PRESSED..JUST
ADD THESE VALUES TO TEST FOR A.COMBINATI
ON OF KEY PRESSES... SO IF THE COMPUT
ER RECEIVES INPUT.AND THAT INPUT IS CURS
OR DOWN (CTRL-Q).THE PROGRAM CHECKS FIRS
T TO SEE.WHETHER OR NOT THE CTRL KEY IS
DOWN..CHECK OUT LINES 290 AND 300...290
IFA$="[DOWN]"THENIFPEEK(653)=4THEN. G
OSUB700.....NOTE I HAVE MORE THAN ONE IF
...THEN.STATEMENT IN THIS LINE. THE LIN
E.COULD LOOK LIKE THIS ALSO:..290 IFA$="
[DOWN]"ANDPEEK(653)=4THEN. GOSUB700..
THIS IS YOUR PREROGATIVE WHEN.YOU'RE
ONLY TESTING FOR TWO.CONDITIONS. IF YO
U'RE TESTING FOR.SEVERAL CONDITIONS THEN
IT'S.SOMETIMES FASTER TO USE MORE THAN
ONE.IF...THEN COMMAND ON A LINE. THE.FO
LLOWING TWO LINES AREN'T IN THE.PROGRAM.
.....10 IFA=2ANDB=4ANDG=67ANDT=7ANDR=3TH
EN. GOSUB700..20 IFA=2THENIFB=4THENIFG
=67THENIFT=7. THENIFR=3THENGOSUB700..
BELIEVE IT OR NOT, IN MOST CASES.LINE
20 WOULD EXECUTE FASTER BECAUSE.OF THE
STEP BY STEP LOGIC. LINE 10.IS SET UP S
O THAT IT ABSOLUTELY MUST.TEST ALL THE V
ALUES SPECIFIED. LINE.20 WILL SKIP TO T
HE NEXT LINE AS SOON.AS IT STUMBLES ACRO
SS THE FIRST FALSE.TEST....... NOTE T
HAT LINE 700 HAS A SELDOM-.USED COMMAND,
WAIT...700 POKE198,0:POKE53281,1:WAIT19
8,1:. POKE53281,15.. WAIT WILL WAI
T FOR A LOCATION TO.BECOME A CERTAIN VAL
UE BEFORE.ALLOWING PROGRAM EXECUTION TO.
CONTINUE. IN THIS CASE IT'S WAITING.FOR
198 TO HAVE A 1 IN IT.......... FIRS
T I SET LOCATION 198, THE.NUMBER OF CHAR
ACTERS IN THE KEYBOARD.BUFFER TO ZERO.
THEN I MAKE THE.BACKGROUND WHITE. NOW W
ITH THE WAIT.COMMAND, I'M WAITING FOR A
KEYPRESS.TO BE REPORTED IN THE BUFFER.
AS.SOON AS ANY KEY IS PRESSED, WAIT.ALLO
WS THE PROGRAM TO CONTINUE AND.RESTORES
THE GREY SCREEN. IF THE KEY.PRESSED WAS
CTRL-Q THEN THE PROGRAM.RETURNS TO LOAD
STAR. IF NOT, IT.RETURNS TO THE MAIN LO
OP OF THE.PROGRAM........ DOES THIS P
ROGRAM SEEM MORE LIKE.A COLLECTION OF TR
ICKS THAN A REAL.PROGRAM? IT SHOULD. T
HAT'S WHAT.PROGRAMMING IS ALL ABOUT -- D
IPPING.INTO YOUR BAG OF TRICKS INSTEAD O
F.REINVENTING THE SPACE SHUTTLE ALL.OVER
AGAIN... **** END OF TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL