T.BASICS
FILE INFORMATION
FILENAME(S): T.BASICS
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 18:12:16
APPEARS ON: 1 disk(s)
FILE HASH
2d5d885b25042fcadf3acd9ebc09aba72d98d2773aabd35476facdaf7db2809f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 60 S 1 | T.BASICS | PRG | Sailor, Ganheden | 7 | 1 | 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 C4 20 D2 20 C1 20 D7 20 C9 20 CE 20 C7 20 20 | . . . . . . . | 00000020: 20 C2 20 CF 20 D8 20 C5 20 D3 0D 0D 20 20 20 20 | . . . . ... | 00000030: 20 20 20 20 20 20 42 59 20 CA 45 46 46 52 45 59 | BY .EFFREY| 00000040: 20 CC 2E 20 CA 4F 4E 45 53 0D 0D 20 20 20 20 C6 | .. .ONES.. .| 00000050: 41 53 54 20 52 4F 55 54 49 4E 45 53 20 41 52 45 |AST ROUTINES ARE| 00000060: 4E 27 54 20 45 58 43 4C 55 53 49 56 45 4C 59 0D |N'T EXCLUSIVELY.| 00000070: CD CC 2E 20 20 D4 48 45 20 42 4F 58 20 44 45 4D |... .HE BOX DEM| 00000080: 4F 20 54 48 41 54 20 43 4F 4D 45 53 20 57 49 54 |O THAT COMES WIT| 00000090: 48 0D 54 48 49 53 20 41 52 54 49 43 4C 45 20 53 |H.THIS ARTICLE S| 000000A0: 48 4F 57 53 20 48 4F 57 20 59 4F 55 20 43 41 4E |HOWS HOW YOU CAN| 000000B0: 20 55 53 45 0D C2 C1 D3 C9 C3 20 54 4F 20 44 52 | USE...... TO DR| 000000C0: 41 57 20 42 4F 58 45 53 20 4F 46 20 41 4E 59 20 |AW BOXES OF ANY | 000000D0: 43 4F 4C 4F 52 20 4F 52 0D 53 49 5A 45 2C 20 41 |COLOR OR.SIZE, A| 000000E0: 54 20 41 4E 59 20 4C 4F 43 41 54 49 4F 4E 20 4F |T ANY LOCATION O| 000000F0: 4E 20 54 48 45 20 53 43 52 45 45 4E 2E 0D 0D 20 |N THE SCREEN... | 00000100: 20 20 20 C2 55 54 20 44 52 41 57 49 4E 47 20 42 | .UT DRAWING B| 00000110: 4F 58 45 53 20 49 4E 20 C2 C1 D3 C9 C3 20 49 53 |OXES IN ..... IS| 00000120: 0D 53 4C 4F 57 2C 20 52 49 47 48 54 3F 20 20 CE |.SLOW, RIGHT? .| 00000130: 4F 54 20 49 46 20 59 4F 55 20 44 4F 20 49 54 20 |OT IF YOU DO IT | 00000140: 49 4E 20 41 0D 46 41 53 54 20 57 41 59 21 20 20 |IN A.FAST WAY! | 00000150: C8 4F 57 20 44 4F 45 53 20 54 57 4F 20 54 45 4E |.OW DOES TWO TEN| 00000160: 54 48 53 20 4F 46 20 41 0D 53 45 43 4F 4E 44 20 |THS OF A.SECOND | 00000170: 47 52 41 42 20 59 4F 55 3F 20 20 D0 52 49 4E 54 |GRAB YOU? .RINT| 00000180: 49 4E 47 20 53 54 52 49 4E 47 53 20 49 4E 0D C2 |ING STRINGS IN..| 00000190: C1 D3 C9 C3 20 49 53 20 46 41 53 54 20 2D 2D 20 |.... IS FAST -- | 000001A0: C9 20 4D 45 41 4E 20 C6 C1 D3 D4 20 4F 4E 20 41 |. MEAN .... ON A| 000001B0: 0D C3 2D 36 34 2E 20 20 D4 48 45 20 54 45 58 54 |..-64. .HE TEXT| 000001C0: 20 53 43 52 45 45 4E 20 49 53 20 55 50 44 41 54 | SCREEN IS UPDAT| 000001D0: 45 44 20 53 4F 0D 46 41 53 54 20 54 48 41 54 20 |ED SO.FAST THAT | 000001E0: 4D 4F 53 54 20 54 45 58 54 20 53 45 45 4D 53 20 |MOST TEXT SEEMS | 000001F0: 54 4F 20 22 41 50 50 45 41 52 22 0D 42 45 46 4F |TO "APPEAR".BEFO| 00000200: 52 45 20 59 4F 55 52 20 45 59 45 53 2E 20 20 D0 |RE YOUR EYES. .| 00000210: CF CF C6 21 0D 0D 0D 20 20 20 20 CD 59 20 42 4F |...!... .Y BO| 00000220: 58 20 52 4F 55 54 49 4E 45 20 55 53 45 53 20 54 |X ROUTINE USES T| 00000230: 57 4F 20 53 54 52 49 4E 47 0D 56 41 52 49 41 42 |WO STRING.VARIAB| 00000240: 4C 45 53 20 54 4F 20 4D 41 4B 45 20 41 20 42 4F |LES TO MAKE A BO| 00000250: 58 2E 20 20 D7 48 45 4E 20 54 48 45 0D 52 4F 55 |X. .HEN THE.ROU| 00000260: 54 49 4E 45 20 49 53 20 49 4E 49 54 49 41 4C 49 |TINE IS INITIALI| 00000270: 5A 45 44 2C 20 C2 C1 24 20 42 45 43 4F 4D 45 53 |ZED, ..$ BECOMES| 00000280: 20 41 0D 42 41 52 20 33 38 20 43 4F 4C 55 4D 4E | A.BAR 38 COLUMN| 00000290: 53 20 41 43 52 4F 53 53 2E 20 20 C2 C4 24 20 49 |S ACROSS. ..$ I| 000002A0: 53 20 41 0D 4C 49 54 54 4C 45 20 4D 4F 52 45 20 |S A.LITTLE MORE | 000002B0: 43 4F 4D 50 4C 49 43 41 54 45 44 2E 20 20 C9 54 |COMPLICATED. .T| 000002C0: 20 43 4F 4E 54 41 49 4E 53 0D 54 48 45 20 56 45 | CONTAINS.THE VE| 000002D0: 52 54 49 43 41 4C 20 42 41 52 20 46 4F 52 20 54 |RTICAL BAR FOR T| 000002E0: 48 45 20 42 4F 58 2E 20 20 D3 49 4E 43 45 0D 54 |HE BOX. .INCE.T| 000002F0: 48 45 20 43 55 52 53 4F 52 20 57 49 4C 4C 20 41 |HE CURSOR WILL A| 00000300: 44 56 41 4E 43 45 20 52 49 47 48 54 20 41 46 54 |DVANCE RIGHT AFT| 00000310: 45 52 0D 41 4E 59 20 43 48 41 52 41 43 54 45 52 |ER.ANY CHARACTER| 00000320: 20 49 53 20 50 52 49 4E 54 45 44 2C 20 54 48 45 | IS PRINTED, THE| 00000330: 0D 56 41 52 49 41 42 4C 45 20 49 4E 43 4C 55 44 |.VARIABLE INCLUD| 00000340: 45 53 20 41 20 43 55 52 53 4F 52 20 4C 45 46 54 |ES A CURSOR LEFT| 00000350: 20 41 4E 44 20 41 0D 43 55 52 53 4F 52 20 44 4F | AND A.CURSOR DO| 00000360: 57 4E 20 41 46 54 45 52 20 45 41 43 48 20 42 41 |WN AFTER EACH BA| 00000370: 52 20 50 52 49 4E 54 45 44 2E 0D 0D 20 20 20 20 |R PRINTED... | 00000380: D3 4F 20 48 4F 57 20 44 4F 20 C9 20 4D 41 4B 45 |.O HOW DO . MAKE| 00000390: 20 42 4F 58 45 53 20 4F 46 20 41 4E 59 20 41 4E | BOXES OF ANY AN| 000003A0: 44 0D 41 4C 4C 20 53 49 5A 45 53 20 55 53 49 4E |D.ALL SIZES USIN| 000003B0: 47 20 4F 4E 4C 59 20 54 57 4F 20 53 54 52 49 4E |G ONLY TWO STRIN| 000003C0: 47 53 3F 0D D5 53 49 4E 47 20 54 48 45 20 CC C5 |GS?..SING THE ..| 000003D0: C6 D4 24 20 46 55 4E 43 54 49 4F 4E 21 20 20 C9 |..$ FUNCTION! .| 000003E0: 20 4F 4E 4C 59 0D 50 52 49 4E 54 20 54 48 45 20 | ONLY.PRINT THE | 000003F0: 50 4F 52 54 49 4F 4E 20 4F 46 20 54 48 45 20 42 |PORTION OF THE B| 00000400: 4F 58 20 53 54 52 49 4E 47 53 0D 54 48 41 54 20 |OX STRINGS.THAT | 00000410: C9 20 4E 45 45 44 2E 0D 0D 20 20 20 20 20 20 20 |. NEED... | 00000420: CC C5 C6 D4 24 28 53 54 52 49 4E 47 24 2C 49 4E |....$(STRING$,IN| 00000430: 54 45 47 45 52 29 0D 0D CC C5 C6 D4 24 20 57 49 |TEGER)......$ WI| 00000440: 4C 4C 20 50 52 49 4E 54 20 4F 4E 4C 59 20 54 48 |LL PRINT ONLY TH| 00000450: 45 20 4C 45 46 54 4D 4F 53 54 0D 50 41 52 54 20 |E LEFTMOST.PART | 00000460: 4F 46 20 41 20 53 54 52 49 4E 47 20 54 48 41 54 |OF A STRING THAT| 00000470: 20 59 4F 55 20 53 50 45 43 49 46 59 2E 0D C6 4F | YOU SPECIFY...O| 00000480: 52 20 49 4E 53 54 41 4E 43 45 2C 20 49 46 20 C1 |R INSTANCE, IF .| 00000490: 24 3D 22 CC CF C1 C4 D3 D4 C1 D2 22 20 41 4E 44 |$="........" AND| 000004A0: 0D 59 4F 55 20 55 53 45 20 54 48 45 20 43 4F 4D |.YOU USE THE COM| 000004B0: 4D 41 4E 44 3A 0D 0D 20 20 20 20 20 20 20 D0 D2 |MAND:.. ..| 000004C0: C9 CE D4 20 CC C5 C6 D4 24 28 C1 24 2C 34 29 0D |... ....$(.$,4).| 000004D0: 0D 59 4F 55 20 57 49 4C 4C 20 53 45 45 0D 0D 20 |.YOU WILL SEE.. | 000004E0: 20 20 20 20 20 20 CC CF C1 C4 0D 0D CF 4E 4C 59 | .......NLY| 000004F0: 20 22 CC CF C1 C4 22 20 57 49 4C 4C 20 42 45 20 | "...." WILL BE | 00000500: 50 52 49 4E 54 45 44 20 42 45 43 41 55 53 45 0D |PRINTED BECAUSE.| 00000510: 54 48 45 20 CC C5 C6 D4 24 20 46 55 4E 43 54 49 |THE ....$ FUNCTI| 00000520: 4F 4E 20 48 41 53 20 42 45 45 4E 20 54 4F 4C 44 |ON HAS BEEN TOLD| 00000530: 20 54 4F 0D 50 41 53 53 20 4F 4E 4C 59 20 54 48 | TO.PASS ONLY TH| 00000540: 45 20 46 49 52 53 54 20 46 4F 55 52 20 43 48 41 |E FIRST FOUR CHA| 00000550: 52 41 43 54 45 52 53 0D 49 4E 20 54 48 45 20 53 |RACTERS.IN THE S| 00000560: 54 52 49 4E 47 2E 0D 0D 0D 0D 0D 20 20 20 20 C9 |TRING...... .| 00000570: 46 20 54 48 45 20 49 4E 54 45 47 45 52 20 53 50 |F THE INTEGER SP| 00000580: 45 43 49 46 49 45 44 20 49 53 20 4F 46 0D 47 52 |ECIFIED IS OF.GR| 00000590: 45 41 54 45 52 20 4C 45 4E 47 54 48 20 54 48 41 |EATER LENGTH THA| 000005A0: 4E 20 54 48 45 20 53 54 52 49 4E 47 0D 49 54 53 |N THE STRING.ITS| 000005B0: 45 4C 46 2C 20 54 48 45 20 45 4E 54 49 52 45 20 |ELF, THE ENTIRE | 000005C0: 53 54 52 49 4E 47 20 57 49 4C 4C 20 42 45 0D 50 |STRING WILL BE.P| 000005D0: 52 49 4E 54 45 44 2E 20 20 C9 46 20 54 48 45 20 |RINTED. .F THE | 000005E0: 49 4E 54 45 47 45 52 20 49 53 20 5A 45 52 4F 20 |INTEGER IS ZERO | 000005F0: 54 48 45 4E 0D 41 20 4E 55 4C 4C 20 53 54 52 49 |THEN.A NULL STRI| 00000600: 4E 47 20 57 49 4C 4C 20 42 45 20 52 45 54 55 52 |NG WILL BE RETUR| 00000610: 4E 45 44 2E 0D 0D 20 20 20 20 20 D3 4F 4D 45 54 |NED... .OMET| 00000620: 48 49 4E 47 20 45 4C 53 45 20 53 48 4F 55 4C 44 |HING ELSE SHOULD| 00000630: 20 42 45 0D 45 58 50 4C 41 49 4E 45 44 3A 0D 0D | BE.EXPLAINED:..| 00000640: 20 20 20 D0 CF CB C5 32 31 31 2C 42 58 3A D0 CF | ....211,BX:..| 00000650: CB C5 32 31 34 2C 42 59 3A D3 D9 D3 35 38 37 33 |..214,BY:...5873| 00000660: 32 0D 0D 49 53 20 41 20 52 4F 55 54 49 4E 45 20 |2..IS A ROUTINE | 00000670: C9 20 55 53 45 20 54 4F 20 4D 4F 56 45 20 54 48 |. USE TO MOVE TH| 00000680: 45 20 43 55 52 53 4F 52 0D 54 4F 20 54 48 45 20 |E CURSOR.TO THE | 00000690: 45 58 41 43 54 20 4C 4F 43 41 54 49 4F 4E 20 C9 |EXACT LOCATION .| 000006A0: 20 4E 45 45 44 20 42 45 46 4F 52 45 0D 50 52 49 | NEED BEFORE.PRI| 000006B0: 4E 54 49 4E 47 2E 0D 0D 0D 0D 0D 20 20 20 20 20 |NTING...... | 000006C0: 20 20 20 20 20 20 20 D0 CF CB C5 20 36 34 36 2C | .... 646,| 000006D0: 42 43 0D 0D CC 4F 43 41 54 49 4F 4E 20 36 34 36 |BC...OCATION 646| 000006E0: 20 49 53 20 55 53 45 44 20 54 4F 20 45 49 54 48 | IS USED TO EITH| 000006F0: 45 52 20 43 48 45 43 4B 0D 4F 52 20 43 48 41 4E |ER CHECK.OR CHAN| 00000700: 47 45 20 43 55 52 53 4F 52 20 43 4F 4C 4F 52 2E |GE CURSOR COLOR.| 00000710: 0D 0D 20 20 20 20 C8 45 52 45 27 53 20 48 4F 57 |.. .ERE'S HOW| 00000720: 20 54 4F 20 55 53 45 20 54 48 45 20 52 4F 55 54 | TO USE THE ROUT| 00000730: 49 4E 45 3A 0D 0D C7 CF D3 D5 C2 20 34 30 30 30 |INE:....... 4000| 00000740: 30 20 54 4F 20 49 4E 49 54 49 41 4C 49 5A 45 20 |0 TO INITIALIZE | 00000750: 54 48 45 0D 52 4F 55 54 49 4E 45 2E 20 20 D4 48 |THE.ROUTINE. .H| 00000760: 49 53 20 4E 45 45 44 53 20 54 4F 20 42 45 20 44 |IS NEEDS TO BE D| 00000770: 4F 4E 45 20 4F 4E 4C 59 0D CF CE C3 C5 20 54 4F |ONE ONLY..... TO| 00000780: 20 44 45 46 49 4E 45 20 54 48 45 20 56 41 52 49 | DEFINE THE VARI| 00000790: 41 42 4C 45 53 2E 20 20 C4 4F 0D 54 48 49 53 20 |ABLES. .O.THIS | 000007A0: 45 41 52 4C 59 20 49 4E 20 59 4F 55 52 20 50 52 |EARLY IN YOUR PR| 000007B0: 4F 47 52 41 4D 20 57 48 49 4C 45 0D 59 4F 55 27 |OGRAM WHILE.YOU'| 000007C0: 52 45 20 44 45 43 4C 41 52 49 4E 47 20 4F 54 48 |RE DECLARING OTH| 000007D0: 45 52 20 56 41 52 49 41 42 4C 45 53 2E 0D 0D 20 |ER VARIABLES... | 000007E0: 20 20 20 D4 4F 20 50 52 49 4E 54 20 41 20 42 4F | .O PRINT A BO| 000007F0: 58 2C 20 C7 CF D3 D5 C2 20 34 30 30 34 30 2E 0D |X, ..... 40040..| 00000800: 0D 0D 0D 0D 0D 20 20 20 20 C2 55 54 20 46 49 52 |..... .UT FIR| 00000810: 53 54 20 59 4F 55 20 4D 55 53 54 20 44 45 43 4C |ST YOU MUST DECL| 00000820: 41 52 45 20 54 48 45 0D 44 49 4D 45 4E 53 49 4F |ARE THE.DIMENSIO| 00000830: 4E 53 20 41 4E 44 20 4C 4F 43 41 54 49 4F 4E 53 |NS AND LOCATIONS| 00000840: 20 4F 46 20 54 48 45 20 42 4F 58 2E 0D C8 45 52 | OF THE BOX...ER| 00000850: 45 20 41 52 45 20 54 48 45 20 56 41 52 49 41 42 |E ARE THE VARIAB| 00000860: 4C 45 53 20 59 4F 55 20 57 49 4C 4C 20 42 45 0D |LES YOU WILL BE.| 00000870: 55 53 49 4E 47 3A 0D 0D C2 D8 20 2D 20 4C 45 46 |USING:.... - LEF| 00000880: 54 4D 4F 53 54 20 D8 20 43 4F 4F 52 44 49 4E 41 |TMOST . COORDINA| 00000890: 54 45 0D C2 D9 20 2D 20 55 50 50 45 52 4D 4F 53 |TE... - UPPERMOS| 000008A0: 54 20 D9 20 43 4F 4F 52 44 49 4E 41 54 45 0D C5 |T . COORDINATE..| 000008B0: D8 20 2D 20 52 49 47 48 54 4D 4F 53 54 20 D8 20 |. - RIGHTMOST . | 000008C0: 43 4F 4F 52 44 49 4E 41 54 45 0D C2 C4 20 2D 20 |COORDINATE... - | 000008D0: 48 4F 57 20 4D 41 4E 59 20 52 4F 57 53 20 54 4F |HOW MANY ROWS TO| 000008E0: 20 45 4E 43 4C 4F 53 45 20 49 4E 20 42 4F 58 0D | ENCLOSE IN BOX.| 000008F0: 20 20 20 20 20 28 4E 55 4D 42 45 52 20 4F 46 20 | (NUMBER OF | 00000900: 52 4F 57 53 20 44 45 45 50 29 0D D2 D6 20 2D 20 |ROWS DEEP)... - | 00000910: 49 46 20 4E 4F 4E 2D 5A 45 52 4F 20 54 48 45 20 |IF NON-ZERO THE | 00000920: 42 4F 58 20 49 53 20 52 45 56 45 52 53 45 44 0D |BOX IS REVERSED.| 00000930: C2 C3 20 2D 20 43 4F 4C 4F 52 20 4F 46 20 54 48 |.. - COLOR OF TH| 00000940: 45 20 42 4F 58 0D 0D CE 41 54 55 52 41 4C 4C 59 |E BOX...ATURALLY| 00000950: 20 4E 4F 20 58 20 43 4F 4F 52 44 49 4E 41 54 45 | NO X COORDINATE| 00000960: 20 43 41 4E 20 42 45 0D 57 49 44 45 52 20 54 48 | CAN BE.WIDER TH| 00000970: 41 4E 20 54 48 45 20 53 43 52 45 45 4E 2E 20 20 |AN THE SCREEN. | 00000980: D6 45 52 59 20 4C 41 52 47 45 0D 42 4F 58 45 53 |.ERY LARGE.BOXES| 00000990: 20 4D 41 59 20 43 41 55 53 45 20 53 43 52 4F 4C | MAY CAUSE SCROL| 000009A0: 4C 49 4E 47 2E 0D 0D 0D 0D 0D 20 20 20 20 C9 46 |LING...... .F| 000009B0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 52 49 | YOU WANT TO PRI| 000009C0: 4E 54 20 41 20 42 4F 58 20 49 4E 53 49 44 45 0D |NT A BOX INSIDE.| 000009D0: 41 20 42 4F 58 2C 20 54 48 45 52 45 27 53 20 4E |A BOX, THERE'S N| 000009E0: 4F 20 4E 45 45 44 20 54 4F 20 52 45 44 45 46 49 |O NEED TO REDEFI| 000009F0: 4E 45 0D 54 48 45 20 56 41 52 49 41 42 4C 45 53 |NE.THE VARIABLES| 00000A00: 2E 20 20 CA 55 53 54 20 C7 CF D3 D5 C2 20 34 30 |. .UST ..... 40| 00000A10: 31 32 30 20 54 4F 0D 4D 41 4B 45 20 54 48 45 20 |120 TO.MAKE THE | 00000A20: 42 4F 58 20 53 48 52 49 4E 4B 2E 20 20 D4 4F 20 |BOX SHRINK. .O | 00000A30: 4D 41 4B 45 20 49 54 20 47 52 4F 57 0D 4F 55 54 |MAKE IT GROW.OUT| 00000A40: 2C 20 C7 CF D3 D5 C2 20 34 30 31 30 30 2E 20 20 |, ..... 40100. | 00000A50: D3 49 4E 43 45 20 D2 D6 20 49 53 0D 43 4C 45 41 |.INCE .. IS.CLEA| 00000A60: 52 45 44 20 45 56 45 52 59 20 54 49 4D 45 20 41 |RED EVERY TIME A| 00000A70: 20 42 4F 58 20 49 53 20 50 52 49 4E 54 45 44 2C | BOX IS PRINTED,| 00000A80: 0D D2 D6 20 4D 55 53 54 20 42 45 20 55 50 44 41 |... MUST BE UPDA| 00000A90: 54 45 44 20 49 46 20 42 45 49 4E 47 20 55 53 45 |TED IF BEING USE| 00000AA0: 44 2E 0D 0D 20 20 20 20 C2 59 20 50 52 49 4E 54 |D... .Y PRINT| 00000AB0: 49 4E 47 20 41 20 42 4F 58 20 49 4E 20 44 49 46 |ING A BOX IN DIF| 00000AC0: 46 45 52 45 4E 54 0D 43 4F 4C 4F 52 53 2C 20 59 |FERENT.COLORS, Y| 00000AD0: 4F 55 20 43 41 4E 20 4D 41 4B 45 20 49 54 20 41 |OU CAN MAKE IT A| 00000AE0: 50 50 45 41 52 20 54 4F 0D 47 4C 4F 57 20 4F 52 |PPEAR TO.GLOW OR| 00000AF0: 20 46 4C 41 53 48 20 4F 4E 20 41 4E 44 20 4F 46 | FLASH ON AND OF| 00000B00: 46 2E 20 20 D2 55 4E 20 54 48 49 53 0D 50 52 4F |F. .UN THIS.PRO| 00000B10: 47 52 41 4D 20 54 4F 20 53 45 45 20 41 20 44 45 |GRAM TO SEE A DE| 00000B20: 4D 4F 20 4F 46 20 4D 59 0D 42 4F 58 2D 4D 41 4B |MO OF MY.BOX-MAK| 00000B30: 49 4E 47 20 54 45 43 48 4E 49 51 55 45 2E 0D 0D |ING TECHNIQUE...| 00000B40: 20 20 20 20 C9 20 4D 49 47 48 54 20 4D 45 4E 54 | . MIGHT MENT| 00000B50: 49 4F 4E 20 54 48 41 54 20 54 48 45 20 42 4F 58 |ION THAT THE BOX| 00000B60: 0D 52 4F 55 54 49 4E 45 20 49 53 20 53 49 47 4E |.ROUTINE IS SIGN| 00000B70: 49 46 49 43 41 4E 54 4C 59 20 53 50 45 44 20 55 |IFICANTLY SPED U| 00000B80: 50 20 49 46 0D 43 4F 4D 50 49 4C 45 44 2E 0D 0D |P IF.COMPILED...| 00000B90: 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 |..... ..... ....| 00000BA0: 20 C1 D2 D4 C9 C3 CC C5 20 D5 D3 C5 D3 0D 0D C2 | ....... .......| 00000BB0: C1 D3 C9 C3 D3 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000BC0: 20 20 C2 CF D8 20 D2 CF D5 D4 C9 CE C5 0D D4 2E | ... ..........| 00000BD0: C2 C1 D3 C9 C3 D3 0D 0D 20 20 20 20 20 20 20 20 |........ | 00000BE0: 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 |**** .ND .F .EXT| 00000BF0: 20 2A 2A 2A 2A 0D | ****. |
..^U:ZERO. D R A W I N G B O X E
S.. BY JEFFREY L. JONES.. F
AST ROUTINES AREN'T EXCLUSIVELY.ML. THE
BOX DEMO THAT COMES WITH.THIS ARTICLE S
HOWS HOW YOU CAN USE.BASIC TO DRAW BOXES
OF ANY COLOR OR.SIZE, AT ANY LOCATION O
N THE SCREEN... BUT DRAWING BOXES IN
BASIC IS.SLOW, RIGHT? NOT IF YOU DO IT
IN A.FAST WAY! HOW DOES TWO TENTHS OF A
.SECOND GRAB YOU? PRINTING STRINGS IN.B
ASIC IS FAST -- I MEAN FAST ON A.C-64.
THE TEXT SCREEN IS UPDATED SO.FAST THAT
MOST TEXT SEEMS TO "APPEAR".BEFORE YOUR
EYES. POOF!... MY BOX ROUTINE USES T
WO STRING.VARIABLES TO MAKE A BOX. WHEN
THE.ROUTINE IS INITIALIZED, BA$ BECOMES
A.BAR 38 COLUMNS ACROSS. BD$ IS A.LITT
LE MORE COMPLICATED. IT CONTAINS.THE VE
RTICAL BAR FOR THE BOX. SINCE.THE CURSO
R WILL ADVANCE RIGHT AFTER.ANY CHARACTER
IS PRINTED, THE.VARIABLE INCLUDES A CUR
SOR LEFT AND A.CURSOR DOWN AFTER EACH BA
R PRINTED... SO HOW DO I MAKE BOXES O
F ANY AND.ALL SIZES USING ONLY TWO STRIN
GS?.USING THE LEFT$ FUNCTION! I ONLY.PR
INT THE PORTION OF THE BOX STRINGS.THAT
I NEED... LEFT$(STRING$,INTEGER)..
LEFT$ WILL PRINT ONLY THE LEFTMOST.PART
OF A STRING THAT YOU SPECIFY..FOR INSTAN
CE, IF A$="LOADSTAR" AND.YOU USE THE COM
MAND:.. PRINT LEFT$(A$,4)..YOU WIL
L SEE.. LOAD..ONLY "LOAD" WILL BE
PRINTED BECAUSE.THE LEFT$ FUNCTION HAS B
EEN TOLD TO.PASS ONLY THE FIRST FOUR CHA
RACTERS.IN THE STRING...... IF THE IN
TEGER SPECIFIED IS OF.GREATER LENGTH THA
N THE STRING.ITSELF, THE ENTIRE STRING W
ILL BE.PRINTED. IF THE INTEGER IS ZERO
THEN.A NULL STRING WILL BE RETURNED...
SOMETHING ELSE SHOULD BE.EXPLAINED:..
POKE211,BX:POKE214,BY:SYS58732..IS A
ROUTINE I USE TO MOVE THE CURSOR.TO THE
EXACT LOCATION I NEED BEFORE.PRINTING...
... POKE 646,BC..LOCATION 646
IS USED TO EITHER CHECK.OR CHANGE CURSO
R COLOR... HERE'S HOW TO USE THE ROUT
INE:..GOSUB 40000 TO INITIALIZE THE.ROUT
INE. THIS NEEDS TO BE DONE ONLY.ONCE TO
DEFINE THE VARIABLES. DO.THIS EARLY IN
YOUR PROGRAM WHILE.YOU'RE DECLARING OTH
ER VARIABLES... TO PRINT A BOX, GOSUB
40040....... BUT FIRST YOU MUST DECL
ARE THE.DIMENSIONS AND LOCATIONS OF THE
BOX..HERE ARE THE VARIABLES YOU WILL BE.
USING:..BX - LEFTMOST X COORDINATE.BY -
UPPERMOST Y COORDINATE.EX - RIGHTMOST X
COORDINATE.BD - HOW MANY ROWS TO ENCLOSE
IN BOX. (NUMBER OF ROWS DEEP).RV -
IF NON-ZERO THE BOX IS REVERSED.BC - COL
OR OF THE BOX..NATURALLY NO X COORDINATE
CAN BE.WIDER THAN THE SCREEN. VERY LAR
GE.BOXES MAY CAUSE SCROLLING...... IF
YOU WANT TO PRINT A BOX INSIDE.A BOX, T
HERE'S NO NEED TO REDEFINE.THE VARIABLES
. JUST GOSUB 40120 TO.MAKE THE BOX SHRI
NK. TO MAKE IT GROW.OUT, GOSUB 40100.
SINCE RV IS.CLEARED EVERY TIME A BOX IS
PRINTED,.RV MUST BE UPDATED IF BEING USE
D... BY PRINTING A BOX IN DIFFERENT.C
OLORS, YOU CAN MAKE IT APPEAR TO.GLOW OR
FLASH ON AND OFF. RUN THIS.PROGRAM TO
SEE A DEMO OF MY.BOX-MAKING TECHNIQUE...
I MIGHT MENTION THAT THE BOX.ROUTINE
IS SIGNIFICANTLY SPED UP IF.COMPILED...
.DISK FILES THIS ARTICLE USES..BASICS
BOX ROUTINE.T.BASICS..
**** END OF TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL