T.BITS 98
FILE INFORMATION
FILENAME(S): T.BITS 98
FILE TYPE(S): PRG
FILE SIZE: 12.1K
FIRST SEEN: 2025-12-01 19:06:20
APPEARS ON: 1 disk(s)
FILE HASH
42a02149524ae443c5bea35d2fe1421fdd955b7534896130bd8dffef9ec7a077
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 98 S 1 | T.BITS 98 | PRG | Icebreaker | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 0D 20 20 C2 C9 D4 D3 3A 20 C7 CF CF C4 C2 |... ....: .....| 00000010: D9 C5 20 D4 CF 20 CD C5 D2 C5 20 D3 D5 C2 D2 CF |.. .. .... .....| 00000020: D5 D4 C9 CE C5 D3 0D 0D 20 20 20 20 20 20 20 20 |........ | 00000030: 20 42 59 20 CA 45 46 46 52 45 59 20 CC 2E 20 CA | BY .EFFREY .. .| 00000040: 4F 4E 45 53 0D 0D 0D 20 20 20 20 D3 D0 C5 C5 C4 |ONES... .....| 00000050: D3 C3 D2 C9 D0 D4 20 41 4E 44 20 D4 C8 C5 20 D7 |...... AND ... .| 00000060: D2 C9 D4 C5 20 D3 D4 D5 C6 C6 0D 41 52 45 20 54 |.... ......ARE T| 00000070: 57 4F 20 47 52 45 41 54 20 57 4F 52 44 20 50 52 |WO GREAT WORD PR| 00000080: 4F 43 45 53 53 4F 52 53 2C 20 42 4F 54 48 0D 31 |OCESSORS, BOTH.1| 00000090: 30 30 25 20 CD CC 2E 20 20 D2 4F 4E 20 C8 41 43 |00% ... .ON .AC| 000000A0: 4B 4C 45 59 20 57 52 4F 54 45 20 C6 D5 CE 0D C7 |KLEY WROTE .....| 000000B0: D2 C1 D0 C8 C9 C3 D3 20 CD C1 C3 C8 C9 CE C5 20 |....... ....... | 000000C0: 41 4C 4D 4F 53 54 20 45 4E 54 49 52 45 4C 59 20 |ALMOST ENTIRELY | 000000D0: 49 4E 0D CD CC 2E 20 20 C9 20 57 52 4F 54 45 20 |IN.... . WROTE | 000000E0: CC C5 D4 D4 C5 D2 CD C5 C9 D3 D4 C5 D2 20 41 4E |............. AN| 000000F0: 44 0D CC CF C1 C4 D3 D4 C1 D2 20 C2 D2 C9 C5 C6 |D......... .....| 00000100: D3 20 45 4E 54 49 52 45 4C 59 20 49 4E 20 CD CC |. ENTIRELY IN ..| 00000110: 2E 20 C7 C5 CF D3 0D 41 50 50 4C 49 43 41 54 49 |. .....APPLICATI| 00000120: 4F 4E 53 20 41 52 45 20 57 52 49 54 54 45 4E 20 |ONS ARE WRITTEN | 00000130: 45 4E 54 49 52 45 4C 59 20 49 4E 0D CD CC 2E 20 |ENTIRELY IN.... | 00000140: 20 D2 49 43 4B 20 CE 41 53 48 20 57 52 4F 54 45 | .ICK .ASH WROTE| 00000150: 20 C3 CF CD D6 C9 C5 D7 2C 20 57 49 54 48 0D 41 | ......., WITH.A| 00000160: 4C 4C 20 49 54 53 20 4D 45 4E 55 53 20 41 4E 44 |LL ITS MENUS AND| 00000170: 20 53 55 42 4D 45 4E 55 53 2C 20 45 4E 54 49 52 | SUBMENUS, ENTIR| 00000180: 45 4C 59 0D 49 4E 20 CD CC 20 2D 2D 20 4F 4E 20 |ELY.IN .. -- ON | 00000190: 41 4E 20 C9 C2 CD 20 43 4F 4D 50 55 54 45 52 20 |AN ... COMPUTER | 000001A0: 57 49 54 48 20 41 0D 36 35 30 32 20 53 49 4D 55 |WITH A.6502 SIMU| 000001B0: 4C 41 54 4F 52 2E 0D 0D 20 20 20 20 CE 4F 54 20 |LATOR... .OT | 000001C0: 4C 4F 4E 47 20 41 47 4F 20 50 45 4F 50 4C 45 20 |LONG AGO PEOPLE | 000001D0: 48 41 44 20 54 4F 20 48 41 56 45 20 41 0D 53 50 |HAD TO HAVE A.SP| 000001E0: 45 43 49 41 4C 20 52 45 41 53 4F 4E 20 54 4F 20 |ECIAL REASON TO | 000001F0: 57 52 49 54 45 20 41 20 31 30 30 25 20 CD CC 0D |WRITE A 100% ...| 00000200: 50 52 4F 47 52 41 4D 2E 20 20 D7 45 4C 4C 2C 20 |PROGRAM. .ELL, | 00000210: CD CC 20 49 53 20 4E 4F 54 20 4A 55 53 54 20 46 |.. IS NOT JUST F| 00000220: 4F 52 0D 4C 49 54 54 4C 45 20 53 55 42 52 4F 55 |OR.LITTLE SUBROU| 00000230: 54 49 4E 45 53 20 54 48 41 54 20 53 55 50 50 4F |TINES THAT SUPPO| 00000240: 52 54 20 C2 C1 D3 C9 C3 0D 41 4E 59 4D 4F 52 45 |RT ......ANYMORE| 00000250: 2E 20 20 D0 45 4F 50 4C 45 20 41 52 45 20 57 52 |. .EOPLE ARE WR| 00000260: 49 54 49 4E 47 20 4D 41 4A 4F 52 0D 41 50 50 4C |ITING MAJOR.APPL| 00000270: 49 43 41 54 49 4F 4E 53 20 49 4E 20 CD CC 20 4E |ICATIONS IN .. N| 00000280: 4F 57 2E 20 20 C8 4F 57 20 44 4F 20 57 45 20 44 |OW. .OW DO WE D| 00000290: 4F 0D 49 54 3F 20 20 D3 49 4D 50 4C 45 3A 20 57 |O.IT? .IMPLE: W| 000002A0: 45 20 42 52 45 41 4B 20 44 4F 57 4E 20 4F 55 52 |E BREAK DOWN OUR| 000002B0: 20 4C 41 52 47 45 0D 54 41 53 4B 53 20 49 4E 54 | LARGE.TASKS INT| 000002C0: 4F 20 53 4D 41 4C 4C 45 52 20 54 41 53 4B 53 20 |O SMALLER TASKS | 000002D0: 54 48 41 54 20 57 45 20 54 41 4B 45 0D 43 41 52 |THAT WE TAKE.CAR| 000002E0: 45 20 4F 46 20 4F 4E 45 20 41 54 20 41 20 54 49 |E OF ONE AT A TI| 000002F0: 4D 45 2E 0D 0D 20 C1 D0 D0 D2 CF C1 C3 C8 C9 CE |ME... ..........| 00000300: C7 20 C1 20 CC C1 D2 C7 C5 20 CD CC 20 D4 C1 D3 |. . ..... .. ...| 00000310: CB 0D 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------| 00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |--------------..| 00000330: 20 20 20 20 D4 48 45 20 46 49 52 53 54 20 54 48 | .HE FIRST TH| 00000340: 49 4E 47 20 C9 20 44 4F 20 57 48 45 4E 20 C9 20 |ING . DO WHEN . | 00000350: 43 4F 44 45 0D 49 53 20 53 45 54 20 55 50 20 54 |CODE.IS SET UP T| 00000360: 48 45 20 53 43 52 45 45 4E 2C 20 54 48 45 20 4D |HE SCREEN, THE M| 00000370: 41 49 4E 20 4D 45 4E 55 2E 0D C9 20 4D 55 53 54 |AIN MENU... MUST| 00000380: 20 48 41 56 45 20 41 20 4C 41 55 4E 43 48 20 50 | HAVE A LAUNCH P| 00000390: 4F 49 4E 54 2E 20 20 D3 49 4E 43 45 0D 54 48 45 |OINT. .INCE.THE| 000003A0: 20 4D 41 49 4E 20 4D 45 4E 55 20 49 53 20 54 48 | MAIN MENU IS TH| 000003B0: 45 20 55 53 45 52 20 49 4E 54 45 52 46 41 43 45 |E USER INTERFACE| 000003C0: 2C 0D 54 48 45 52 45 27 53 20 4E 4F 20 42 45 54 |,.THERE'S NO BET| 000003D0: 54 45 52 20 50 4C 41 43 45 20 54 4F 20 53 54 41 |TER PLACE TO STA| 000003E0: 52 54 2E 0D C9 54 27 53 20 41 4C 53 4F 20 41 20 |RT...T'S ALSO A | 000003F0: 47 4F 4F 44 20 50 4C 41 43 45 20 54 4F 20 50 4C |GOOD PLACE TO PL| 00000400: 41 4E 20 59 4F 55 52 0D 50 52 4F 47 52 41 4D 2E |AN YOUR.PROGRAM.| 00000410: 20 20 C1 20 53 54 52 41 49 47 48 54 46 4F 52 57 | . STRAIGHTFORW| 00000420: 41 52 44 20 4D 41 49 4E 20 4D 45 4E 55 0D 54 48 |ARD MAIN MENU.TH| 00000430: 41 54 20 53 48 4F 57 53 20 54 48 45 20 4D 41 49 |AT SHOWS THE MAI| 00000440: 4E 20 46 45 41 54 55 52 45 53 20 4F 46 20 54 48 |N FEATURES OF TH| 00000450: 45 0D 50 52 4F 47 52 41 4D 20 41 4C 4D 4F 53 54 |E.PROGRAM ALMOST| 00000460: 20 45 4E 53 55 52 45 53 20 54 48 41 54 20 59 4F | ENSURES THAT YO| 00000470: 55 27 4C 4C 0D 47 45 54 20 54 4F 20 45 56 45 52 |U'LL.GET TO EVER| 00000480: 59 54 48 49 4E 47 2C 20 41 4E 44 20 57 48 45 4E |YTHING, AND WHEN| 00000490: 20 59 4F 55 27 52 45 0D 44 4F 4E 45 2C 20 59 4F | YOU'RE.DONE, YO| 000004A0: 55 52 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |UR PROGRAM WILL | 000004B0: 4C 41 43 4B 20 46 4F 52 0D 4E 4F 54 48 49 4E 47 |LACK FOR.NOTHING| 000004C0: 2E 0D 0D 20 20 20 20 D4 48 45 52 45 20 49 53 20 |... .HERE IS | 000004D0: 4E 4F 20 52 55 4C 45 20 46 4F 52 20 48 4F 57 20 |NO RULE FOR HOW | 000004E0: 59 4F 55 0D 43 52 45 41 54 45 20 59 4F 55 52 20 |YOU.CREATE YOUR | 000004F0: 4F 50 45 4E 49 4E 47 20 4D 45 4E 55 2E 20 20 CA |OPENING MENU. .| 00000500: 55 53 54 20 47 45 54 0D 49 54 20 54 48 45 52 45 |UST GET.IT THERE| 00000510: 2E 20 20 C9 20 47 45 4E 45 52 41 4C 4C 59 20 44 |. . GENERALLY D| 00000520: 4F 4E 27 54 20 57 4F 52 52 59 0D 41 42 4F 55 54 |ON'T WORRY.ABOUT| 00000530: 20 45 46 46 49 43 49 45 4E 43 59 20 4F 52 20 53 | EFFICIENCY OR S| 00000540: 4C 49 43 4B 4E 45 53 53 20 41 54 20 54 48 49 53 |LICKNESS AT THIS| 00000550: 0D 50 4F 49 4E 54 2E 20 20 D4 48 45 20 4F 50 45 |.POINT. .HE OPE| 00000560: 4E 49 4E 47 20 53 43 52 45 45 4E 20 49 53 20 4C |NING SCREEN IS L| 00000570: 49 4B 45 0D 41 52 54 57 4F 52 4B 2E 20 20 C1 54 |IKE.ARTWORK. .T| 00000580: 20 54 48 49 53 20 50 4F 49 4E 54 20 41 4C 4C 20 | THIS POINT ALL | 00000590: C9 27 4D 20 44 4F 49 4E 47 0D 49 53 20 50 4C 45 |.'M DOING.IS PLE| 000005A0: 41 53 49 4E 47 20 4D 59 20 45 59 45 2E 0D 0D 20 |ASING MY EYE... | 000005B0: 20 20 20 C1 46 54 45 52 20 44 45 53 49 47 4E 49 | .FTER DESIGNI| 000005C0: 4E 47 20 54 48 45 20 4D 41 49 4E 20 4D 45 4E 55 |NG THE MAIN MENU| 000005D0: 2C 0D 54 48 45 20 4E 45 58 54 20 53 54 45 50 20 |,.THE NEXT STEP | 000005E0: 49 53 20 46 49 4C 4C 49 4E 47 20 49 4E 20 54 48 |IS FILLING IN TH| 000005F0: 45 20 43 4F 44 45 0D 46 4F 52 20 41 4C 4C 20 54 |E CODE.FOR ALL T| 00000600: 48 45 20 49 54 45 4D 53 20 49 4E 20 54 48 45 20 |HE ITEMS IN THE | 00000610: 4D 45 4E 55 2E 20 20 C6 52 4F 4D 0D 54 48 45 20 |MENU. .ROM.THE | 00000620: D4 CF D0 20 49 54 45 4D 20 54 4F 20 54 48 45 20 |... ITEM TO THE | 00000630: C2 CF D4 D4 CF CD 20 49 54 45 4D 20 4F 4E 0D 54 |...... ITEM ON.T| 00000640: 48 45 20 4D 45 4E 55 2C 20 59 4F 55 20 4D 41 4B |HE MENU, YOU MAK| 00000650: 45 20 54 48 45 20 4D 45 4E 55 20 57 4F 52 4B 20 |E THE MENU WORK | 00000660: 42 59 0D 57 52 49 54 49 4E 47 20 54 48 45 20 43 |BY.WRITING THE C| 00000670: 4F 44 45 20 54 48 41 54 20 53 55 50 50 4F 52 54 |ODE THAT SUPPORT| 00000680: 53 20 54 48 45 0D 4D 45 4E 55 20 4C 41 42 45 4C |S THE.MENU LABEL| 00000690: 2C 20 54 48 45 4E 20 54 59 49 4E 47 20 54 48 41 |, THEN TYING THA| 000006A0: 54 20 43 4F 44 45 20 49 4E 54 4F 0D 54 48 45 20 |T CODE INTO.THE | 000006B0: 4D 45 4E 55 20 4B 45 59 42 4F 41 52 44 20 4C 4F |MENU KEYBOARD LO| 000006C0: 4F 50 2C 20 41 4C 53 4F 20 43 41 4C 4C 45 44 0D |OP, ALSO CALLED.| 000006D0: 54 48 45 20 CD C1 C9 CE 20 C7 C5 D4 20 CC CF CF |THE .... ... ...| 000006E0: D0 2E 20 20 D4 48 49 53 20 49 53 20 43 41 4C 4C |.. .HIS IS CALL| 000006F0: 45 44 0D D4 CF D0 20 C4 CF D7 CE 20 D0 D2 CF C7 |ED.... .... ....| 00000700: D2 C1 CD CD C9 CE C7 2E 0D 0D 20 20 20 20 D4 48 |.......... .H| 00000710: 45 20 CD C1 C9 CE 20 C7 C5 D4 20 CC CF CF D0 20 |E .... ... .... | 00000720: 49 53 20 57 48 45 52 45 20 59 4F 55 0D 57 41 49 |IS WHERE YOU.WAI| 00000730: 54 20 46 4F 52 20 41 20 4B 45 59 50 52 45 53 53 |T FOR A KEYPRESS| 00000740: 20 46 4F 52 20 49 54 45 4D 53 20 4F 4E 20 59 4F | FOR ITEMS ON YO| 00000750: 55 52 0D 4D 41 49 4E 20 4D 45 4E 55 2E 20 20 C1 |UR.MAIN MENU. .| 00000760: 4E 59 20 4F 54 48 45 52 20 47 45 54 20 4C 4F 4F |NY OTHER GET LOO| 00000770: 50 20 28 46 4F 52 0D 53 55 42 20 4D 45 4E 55 53 |P (FOR.SUB MENUS| 00000780: 2C 20 45 54 43 2E 29 20 49 53 20 41 20 4C 45 53 |, ETC.) IS A LES| 00000790: 53 45 52 20 47 45 54 20 4C 4F 4F 50 0D 53 49 4E |SER GET LOOP.SIN| 000007A0: 43 45 20 59 4F 55 20 43 41 4E 20 4F 4E 4C 59 20 |CE YOU CAN ONLY | 000007B0: 47 45 54 20 54 4F 20 49 54 20 41 46 54 45 52 0D |GET TO IT AFTER.| 000007C0: 4C 45 41 56 49 4E 47 20 54 48 45 20 CD C1 C9 CE |LEAVING THE ....| 000007D0: E0 C7 C5 D4 E0 CC CF CF D0 2E 0D 0D 20 20 20 20 |............ | 000007E0: D3 4F 4D 45 54 49 4D 45 53 20 59 4F 55 20 48 41 |.OMETIMES YOU HA| 000007F0: 56 45 20 54 4F 20 57 52 49 54 45 0D 55 4E 49 56 |VE TO WRITE.UNIV| 00000800: 45 52 53 41 4C 20 53 55 50 50 4F 52 54 20 52 4F |ERSAL SUPPORT RO| 00000810: 55 54 49 4E 45 53 20 46 49 52 53 54 2C 20 53 55 |UTINES FIRST, SU| 00000820: 43 48 0D 41 53 20 53 43 52 45 45 4E 20 53 54 41 |CH.AS SCREEN STA| 00000830: 53 48 20 41 4E 44 20 4D 45 53 53 41 47 45 20 50 |SH AND MESSAGE P| 00000840: 52 49 4E 54 45 52 53 2E 0D CC 45 54 27 53 20 54 |RINTERS...ET'S T| 00000850: 41 4B 45 20 41 20 4C 4F 4F 4B 20 41 54 20 41 20 |AKE A LOOK AT A | 00000860: 53 55 42 52 4F 55 54 49 4E 45 0D 54 48 41 54 20 |SUBROUTINE.THAT | 00000870: 43 4C 45 41 52 53 20 4C 49 4E 45 20 32 33 20 4F |CLEARS LINE 23 O| 00000880: 4E 20 54 48 45 20 53 43 52 45 45 4E 2C 0D 54 48 |N THE SCREEN,.TH| 00000890: 45 4E 20 50 52 49 4E 54 53 20 41 20 43 45 4E 54 |EN PRINTS A CENT| 000008A0: 45 52 45 44 20 4F 4E 45 2D 4C 49 4E 45 0D 4D 45 |ERED ONE-LINE.ME| 000008B0: 53 53 41 47 45 20 54 48 45 52 45 2E 20 20 D4 48 |SSAGE THERE. .H| 000008C0: 45 20 4F 4E 4C 59 20 54 48 49 4E 47 20 59 4F 55 |E ONLY THING YOU| 000008D0: 27 4C 4C 0D 48 41 56 45 20 54 4F 20 44 4F 20 49 |'LL.HAVE TO DO I| 000008E0: 53 20 54 45 4C 4C 20 54 48 45 20 52 4F 55 54 49 |S TELL THE ROUTI| 000008F0: 4E 45 20 D7 C8 C5 D2 C5 0D 54 48 45 20 53 54 52 |NE ......THE STR| 00000900: 49 4E 47 20 49 53 20 41 4E 44 20 48 4F 57 20 4D |ING IS AND HOW M| 00000910: 41 4E 59 20 43 48 41 52 41 43 54 45 52 53 0D 41 |ANY CHARACTERS.A| 00000920: 52 45 20 49 4E 20 49 54 2E 20 20 D9 4F 55 20 57 |RE IN IT. .OU W| 00000930: 4F 55 4C 44 20 43 41 4C 4C 20 54 48 45 0D 52 4F |OULD CALL THE.RO| 00000940: 55 54 49 4E 45 20 4C 49 4B 45 20 54 48 49 53 3A |UTINE LIKE THIS:| 00000950: 0D 0D 0D 20 20 20 20 4C 44 41 20 3C 4D 45 53 53 |... LDA <MESS| 00000960: 41 47 45 0D 20 20 20 20 4C 44 59 20 3E 4D 45 53 |AGE. LDY >MES| 00000970: 53 41 47 45 0D 20 20 20 20 4C 44 58 20 4D 45 53 |SAGE. LDX MES| 00000980: 53 41 47 45 27 4C 45 4E 47 54 48 0D 20 20 20 20 |SAGE'LENGTH. | 00000990: 4A 53 52 20 50 52 49 4E 54 27 4D 45 53 53 41 47 |JSR PRINT'MESSAG| 000009A0: 45 0D 0D 20 20 20 20 D4 48 45 20 53 54 52 49 4E |E.. .HE STRIN| 000009B0: 47 20 53 48 4F 55 4C 44 20 42 45 20 4C 4F 43 41 |G SHOULD BE LOCA| 000009C0: 54 45 44 20 49 4E 0D D2 C1 CD 2E 20 20 D7 49 54 |TED IN..... .IT| 000009D0: 48 20 41 20 53 59 4D 42 4F 4C 49 43 20 41 53 53 |H A SYMBOLIC ASS| 000009E0: 45 4D 42 4C 45 52 20 53 55 43 48 0D 41 53 20 D2 |EMBLER SUCH.AS .| 000009F0: CF C3 CB 27 D3 20 C1 D3 D3 C5 CD C2 CC C5 D2 2C |...'. .........,| 00000A00: 20 50 55 42 4C 49 53 48 45 44 20 4F 4E 0D CC CF | PUBLISHED ON...| 00000A10: C1 C4 D3 D4 C1 D2 20 23 38 37 2C 20 59 4F 55 27 |...... #87, YOU'| 00000A20: 4C 4C 20 48 41 56 45 20 4E 4F 20 54 52 4F 55 42 |LL HAVE NO TROUB| 00000A30: 4C 45 0D 49 4E 43 4C 55 44 49 4E 47 20 4D 45 53 |LE.INCLUDING MES| 00000A40: 53 41 47 45 53 20 46 4F 52 20 41 4C 4C 20 4F 43 |SAGES FOR ALL OC| 00000A50: 43 41 53 49 4F 4E 53 2E 0D D9 4F 55 27 4C 4C 20 |CASIONS...OU'LL | 00000A60: 42 45 20 41 42 4C 45 20 54 4F 20 43 41 4C 4C 20 |BE ABLE TO CALL | 00000A70: 54 48 45 20 4D 45 53 53 41 47 45 53 0D 42 59 20 |THE MESSAGES.BY | 00000A80: 4E 41 4D 45 2E 20 20 C9 46 20 54 48 41 54 27 53 |NAME. .F THAT'S| 00000A90: 20 41 4C 4C 20 59 4F 55 20 48 41 56 45 20 54 4F | ALL YOU HAVE TO| 00000AA0: 0D 44 4F 20 54 4F 20 50 52 49 4E 54 20 41 20 4D |.DO TO PRINT A M| 00000AB0: 45 53 53 41 47 45 20 49 4E 20 CD CC 2C 20 59 4F |ESSAGE IN .., YO| 00000AC0: 55 27 44 0D 46 49 4E 44 20 59 4F 55 52 53 45 4C |U'D.FIND YOURSEL| 00000AD0: 46 20 53 45 4E 44 49 4E 47 20 4D 4F 52 45 20 4D |F SENDING MORE M| 00000AE0: 45 53 53 41 47 45 53 2C 0D 4D 41 4B 49 4E 47 20 |ESSAGES,.MAKING | 00000AF0: 59 4F 55 52 20 50 52 4F 47 52 41 4D 53 20 4D 4F |YOUR PROGRAMS MO| 00000B00: 52 45 20 46 52 49 45 4E 44 4C 59 2E 0D CE 4F 57 |RE FRIENDLY...OW| 00000B10: 20 48 45 52 45 20 49 53 20 54 48 45 20 54 48 45 | HERE IS THE THE| 00000B20: 20 52 4F 55 54 49 4E 45 20 54 48 41 54 0D 50 52 | ROUTINE THAT.PR| 00000B30: 49 4E 54 53 20 47 45 4E 45 52 49 43 20 4D 45 53 |INTS GENERIC MES| 00000B40: 53 41 47 45 53 3A 0D 0D 0D 20 20 20 20 50 52 49 |SAGES:... PRI| 00000B50: 4E 54 27 4D 45 53 53 41 47 45 20 50 48 41 20 20 |NT'MESSAGE PHA | 00000B60: 3B 53 54 41 53 48 20 CC D3 C2 0D 20 20 20 20 54 |;STASH .... T| 00000B70: 59 41 0D 20 20 20 20 50 48 41 20 20 20 20 3B 53 |YA. PHA ;S| 00000B80: 54 41 53 48 20 CD D3 C2 0D 20 20 20 20 53 54 58 |TASH .... STX| 00000B90: 20 32 35 31 0D 0D 20 20 20 20 4C 44 41 20 23 32 | 251.. LDA #2| 00000BA0: 30 38 0D 20 20 20 20 4A 53 52 20 53 43 52 45 45 |08. JSR SCREE| 00000BB0: 4E 27 53 54 41 53 48 3B 20 53 54 4F 52 45 20 53 |N'STASH; STORE S| 00000BC0: 43 52 4E 20 40 32 30 38 0D 0D 20 20 20 20 4A 53 |CRN @208.. JS| 00000BD0: 52 20 4C 49 4E 58 20 3B 43 4C 45 41 52 20 4C 49 |R LINX ;CLEAR LI| 00000BE0: 4E 45 20 4C 49 4E 4B 53 0D 20 20 20 20 4C 44 58 |NE LINKS. LDX| 00000BF0: 20 23 32 33 0D 20 20 20 20 4A 53 52 20 35 39 39 | #23. JSR 599| 00000C00: 30 33 3B 43 4C 45 41 52 20 4C 49 4E 45 20 23 32 |03;CLEAR LINE #2| 00000C10: 33 0D 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 |3. LDA #1. | 00000C20: 20 53 54 41 20 36 34 36 3B 20 43 48 41 4E 47 45 | STA 646; CHANGE| 00000C30: 20 43 52 53 52 20 54 4F 20 57 48 49 54 45 0D 0D | CRSR TO WHITE..| 00000C40: 20 20 20 20 4C 53 52 20 32 35 31 20 20 3B 44 49 | LSR 251 ;DI| 00000C50: 56 49 44 45 20 4C 45 4E 47 54 48 20 42 59 20 32 |VIDE LENGTH BY 2| 00000C60: 0D 20 20 20 20 4C 44 41 20 23 32 30 20 20 3B 43 |. LDA #20 ;C| 00000C70: 45 4E 54 45 52 20 4F 46 20 53 43 52 45 45 4E 0D |ENTER OF SCREEN.| 00000C80: 20 20 20 20 53 45 43 0D 20 20 20 20 53 42 43 20 | SEC. SBC | 00000C90: 32 35 31 0D 20 20 20 20 54 41 59 0D 20 20 20 20 |251. TAY. | 00000CA0: 4C 44 58 20 23 32 33 0D 20 20 20 20 43 4C 43 0D |LDX #23. CLC.| 00000CB0: 20 20 20 20 4A 53 52 20 50 4C 4F 54 20 3B 50 4F | JSR PLOT ;PO| 00000CC0: 53 49 54 49 4F 4E 20 43 55 52 53 4F 52 0D 0D 20 |SITION CURSOR.. | 00000CD0: 20 20 20 50 4C 41 0D 20 20 20 20 54 41 59 0D 20 | PLA. TAY. | 00000CE0: 20 20 20 50 4C 41 0D 20 20 20 20 4A 53 52 20 53 | PLA. JSR S| 00000CF0: 54 52 4F 55 54 3B 20 24 41 42 31 45 20 50 52 49 |TROUT; $AB1E PRI| 00000D00: 4E 54 53 20 53 54 52 49 4E 47 0D 20 20 20 20 52 |NTS STRING. R| 00000D10: 54 53 0D 0D 0D 20 20 20 20 CE 4F 54 45 20 54 48 |TS... .OTE TH| 00000D20: 41 54 20 54 48 49 53 20 53 55 50 50 4F 52 54 20 |AT THIS SUPPORT | 00000D30: 52 4F 55 54 49 4E 45 0D 55 53 45 53 20 4F 54 48 |ROUTINE.USES OTH| 00000D40: 45 52 20 53 55 50 50 4F 52 54 20 52 4F 55 54 49 |ER SUPPORT ROUTI| 00000D50: 4E 45 53 2C 0D D3 C3 D2 C5 C5 CE 27 D3 D4 C1 D3 |NES,.......'....| 00000D60: C8 20 41 4E 44 20 CC C9 CE D8 2E 20 20 C2 4F 54 |. AND ..... .OT| 00000D70: 48 20 41 52 45 0D 45 58 50 4C 41 49 4E 45 44 20 |H ARE.EXPLAINED | 00000D80: 41 4E 44 20 4C 49 53 54 45 44 20 42 45 4C 4F 57 |AND LISTED BELOW| 00000D90: 2E 0D 0D 20 20 20 20 CC C9 CE D8 20 49 53 20 41 |... .... IS A| 00000DA0: 20 52 4F 55 54 49 4E 45 20 54 48 41 54 20 43 4C | ROUTINE THAT CL| 00000DB0: 45 41 52 53 0D 4C 49 4E 45 20 4C 49 4E 4B 53 2E |EARS.LINE LINKS.| 00000DC0: 20 20 C1 CE D9 D4 C9 CD C5 20 D9 CF D5 20 D7 C1 | ....... ... ..| 00000DD0: CE D4 20 D4 CF 20 D0 CC CF D4 0D D4 CF 20 C1 20 |.. .. ....... . | 00000DE0: D3 D0 C5 C3 C9 C6 C9 C3 20 CC C9 CE C5 20 CF CE |........ .... ..| 00000DF0: 20 C1 20 C3 2D 36 34 2C 20 D9 CF D5 0D D3 C8 CF | . .-64, .......| 00000E00: D5 CC C4 20 C3 CC C5 C1 D2 20 D4 C8 C5 20 CC C9 |... ..... ... ..| 00000E10: CE C5 20 CC C9 CE CB D3 20 C6 C9 D2 D3 D4 2E 0D |.. ..... .......| 00000E20: D7 48 45 4E 20 59 4F 55 20 50 52 49 4E 54 20 54 |.HEN YOU PRINT T| 00000E30: 4F 20 54 48 45 20 52 49 47 48 54 20 45 44 47 45 |O THE RIGHT EDGE| 00000E40: 20 4F 46 0D 54 48 45 20 34 30 2D 43 4F 4C 55 4D | OF.THE 40-COLUM| 00000E50: 4E 20 53 43 52 45 45 4E 2C 20 54 48 45 20 4C 49 |N SCREEN, THE LI| 00000E60: 4E 45 20 59 4F 55 0D 57 45 52 45 20 4F 4E 20 4D |NE YOU.WERE ON M| 00000E70: 41 59 20 42 45 43 4F 4D 45 20 22 4C 49 4E 4B 45 |AY BECOME "LINKE| 00000E80: 44 22 20 54 4F 20 54 48 45 0D 4C 49 4E 45 20 42 |D" TO THE.LINE B| 00000E90: 45 4E 45 41 54 48 20 49 54 2E 20 20 D4 48 49 53 |ENEATH IT. .HIS| 00000EA0: 20 4D 45 41 4E 53 20 54 48 41 54 0D 54 48 45 52 | MEANS THAT.THER| 00000EB0: 45 20 49 53 20 4F 4E 45 20 4C 45 53 53 20 22 4C |E IS ONE LESS "L| 00000EC0: 4F 47 49 43 41 4C 20 4C 49 4E 45 22 20 4F 4E 0D |OGICAL LINE" ON.| 00000ED0: 54 48 45 20 53 43 52 45 45 4E 20 54 48 41 4E 20 |THE SCREEN THAN | 00000EE0: 42 45 46 4F 52 45 2E 20 20 CC 49 4E 4B 45 44 20 |BEFORE. .INKED | 00000EF0: 4C 49 4E 45 53 0D 4F 46 54 45 4E 20 43 41 55 53 |LINES.OFTEN CAUS| 00000F00: 45 20 D0 CC CF D4 54 49 4E 47 20 50 52 4F 42 4C |E ....TING PROBL| 00000F10: 45 4D 53 2E 20 20 D9 4F 55 0D 41 49 4D 20 46 4F |EMS. .OU.AIM FO| 00000F20: 52 20 4C 49 4E 45 20 31 30 2C 20 42 55 54 20 54 |R LINE 10, BUT T| 00000F30: 48 45 20 43 55 52 53 4F 52 0D 41 50 50 45 41 52 |HE CURSOR.APPEAR| 00000F40: 53 20 54 4F 20 4C 41 4E 44 20 4F 4E 20 4C 49 4E |S TO LAND ON LIN| 00000F50: 45 20 31 32 2E 20 20 D4 48 49 53 20 49 53 0D 42 |E 12. .HIS IS.B| 00000F60: 45 43 41 55 53 45 20 54 57 4F 20 4C 49 4E 45 53 |ECAUSE TWO LINES| 00000F70: 20 41 42 4F 56 45 20 4C 49 4E 45 20 31 30 20 48 | ABOVE LINE 10 H| 00000F80: 41 56 45 0D 42 45 45 4E 20 4C 49 4E 4B 45 44 20 |AVE.BEEN LINKED | 00000F90: 42 45 43 41 55 53 45 20 4F 46 20 34 30 54 48 20 |BECAUSE OF 40TH | 00000FA0: 43 4F 4C 55 4D 4E 0D 50 52 49 4E 54 49 4E 47 2E |COLUMN.PRINTING.| 00000FB0: 0D 0D 20 20 20 20 C9 46 20 4F 4E 45 20 4C 49 4E |.. .F ONE LIN| 00000FC0: 45 20 49 53 20 4C 49 4E 4B 45 44 2C 20 59 4F 55 |E IS LINKED, YOU| 00000FD0: 20 48 41 56 45 0D 4C 45 53 53 20 54 48 41 4E 20 | HAVE.LESS THAN | 00000FE0: 32 35 20 4C 4F 47 49 43 41 4C 20 4C 49 4E 45 53 |25 LOGICAL LINES| 00000FF0: 20 4F 4E 20 54 48 45 0D 53 43 52 45 45 4E 2E 20 | ON THE.SCREEN. | 00001000: 20 C9 46 20 4D 41 4E 59 20 4C 49 4E 45 53 20 41 | .F MANY LINES A| 00001010: 52 45 20 4C 49 4E 4B 45 44 2C 0D 59 4F 55 20 4D |RE LINKED,.YOU M| 00001020: 41 59 20 48 41 56 45 20 41 53 20 46 45 57 20 41 |AY HAVE AS FEW A| 00001030: 53 20 31 33 20 4C 4F 47 49 43 41 4C 0D 4C 49 4E |S 13 LOGICAL.LIN| 00001040: 45 53 2E 20 20 D4 48 49 53 20 43 41 4E 20 4D 41 |ES. .HIS CAN MA| 00001050: 4B 45 20 54 48 45 20 D0 CC CF D4 0D 52 4F 55 54 |KE THE .....ROUT| 00001060: 49 4E 45 20 49 4E 54 4F 20 41 20 44 41 4E 47 45 |INE INTO A DANGE| 00001070: 52 4F 55 53 20 54 4F 4F 4C 2E 20 20 C9 46 0D 59 |ROUS TOOL. .F.Y| 00001080: 4F 55 52 20 53 43 52 45 45 4E 20 49 53 20 41 54 |OUR SCREEN IS AT| 00001090: 20 24 34 30 30 2C 20 49 54 20 45 4E 44 53 20 4A | $400, IT ENDS J| 000010A0: 55 53 54 0D 42 45 46 4F 52 45 20 24 38 30 30 2E |UST.BEFORE $800.| 000010B0: 20 20 C9 46 20 59 4F 55 52 20 4C 49 4E 45 53 20 | .F YOUR LINES | 000010C0: 41 52 45 0D 48 45 41 56 49 4C 59 20 4C 49 4E 4B |ARE.HEAVILY LINK| 000010D0: 45 44 20 41 4E 44 20 59 4F 55 20 54 52 59 20 54 |ED AND YOU TRY T| 000010E0: 4F 20 D0 CC CF D4 20 54 4F 0D 4C 49 4E 45 20 32 |O .... TO.LINE 2| 000010F0: 34 2C 20 59 4F 55 27 4C 4C 20 42 45 20 50 4C 4F |4, YOU'LL BE PLO| 00001100: 54 54 49 4E 47 20 53 54 52 41 49 47 48 54 0D 54 |TTING STRAIGHT.T| 00001110: 4F 20 54 48 45 20 53 54 41 52 54 20 4F 46 20 59 |O THE START OF Y| 00001120: 4F 55 52 20 50 52 4F 47 52 41 4D 20 4F 52 0D 57 |OUR PROGRAM OR.W| 00001130: 48 41 54 45 56 45 52 20 59 4F 55 20 48 41 56 45 |HATEVER YOU HAVE| 00001140: 20 53 54 4F 52 45 44 20 41 54 20 24 38 30 31 2E | STORED AT $801.| 00001150: 0D C3 C8 D2 CF D5 D4 20 57 49 4C 4C 20 42 45 20 |....... WILL BE | 00001160: 50 52 49 4E 54 49 4E 47 20 4C 49 54 45 52 41 4C |PRINTING LITERAL| 00001170: 4C 59 20 4F 46 46 0D 54 48 45 20 53 43 52 45 45 |LY OFF.THE SCREE| 00001180: 4E 20 41 4E 44 20 49 4E 54 4F 20 59 4F 55 52 20 |N AND INTO YOUR | 00001190: 50 52 4F 47 52 41 4D 2C 0D 41 4C 54 45 52 49 4E |PROGRAM,.ALTERIN| 000011A0: 47 20 49 54 2E 20 20 CC 49 4B 45 57 49 53 45 20 |G IT. .IKEWISE | 000011B0: 59 4F 55 52 20 43 4F 4C 4F 52 0D 4D 45 4D 4F 52 |YOUR COLOR.MEMOR| 000011C0: 59 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 |Y WILL BE WRITTE| 000011D0: 4E 20 42 45 59 4F 4E 44 20 52 45 41 4C 0D 43 4F |N BEYOND REAL.CO| 000011E0: 4C 4F 52 20 4D 45 4D 4F 52 59 20 54 4F 20 54 48 |LOR MEMORY TO TH| 000011F0: 45 20 CB C5 D2 CE C1 CC 20 41 52 45 41 2E 0D D4 |E ...... AREA...| 00001200: 48 49 53 20 43 41 4E 20 42 45 20 44 45 53 54 52 |HIS CAN BE DESTR| 00001210: 55 43 54 49 56 45 20 49 46 20 59 4F 55 20 48 41 |UCTIVE IF YOU HA| 00001220: 56 45 0D 44 41 54 41 20 53 54 4F 52 45 44 20 54 |VE.DATA STORED T| 00001230: 48 45 52 45 2E 0D 0D 20 20 20 20 C9 46 20 59 4F |HERE... .F YO| 00001240: 55 20 4E 45 56 45 52 20 50 52 49 4E 54 20 54 4F |U NEVER PRINT TO| 00001250: 20 54 48 45 20 34 30 54 48 0D 43 4F 4C 55 4D 4E | THE 40TH.COLUMN| 00001260: 2C 20 59 4F 55 20 48 41 56 45 20 4E 4F 54 48 49 |, YOU HAVE NOTHI| 00001270: 4E 47 20 54 4F 20 57 4F 52 52 59 0D 41 42 4F 55 |NG TO WORRY.ABOU| 00001280: 54 2E 20 20 D9 4F 55 20 43 41 4E 20 43 4C 45 41 |T. .OU CAN CLEA| 00001290: 52 20 54 48 45 20 4C 49 4E 45 20 4C 49 4E 4B 53 |R THE LINE LINKS| 000012A0: 0D 42 59 20 43 4C 45 41 52 49 4E 47 20 54 48 45 |.BY CLEARING THE| 000012B0: 20 53 43 52 45 45 4E 2E 20 20 C9 46 20 59 4F 55 | SCREEN. .F YOU| 000012C0: 20 43 41 4E 27 54 0D 43 4C 45 41 52 20 54 48 45 | CAN'T.CLEAR THE| 000012D0: 20 53 43 52 45 45 4E 2C 20 48 45 52 45 20 49 53 | SCREEN, HERE IS| 000012E0: 20 54 48 45 20 53 49 4D 50 4C 45 0D 43 4F 44 45 | THE SIMPLE.CODE| 000012F0: 20 54 48 41 54 20 43 4C 45 41 52 53 20 54 48 45 | THAT CLEARS THE| 00001300: 20 4C 49 4E 45 20 4C 49 4E 4B 53 3A 0D 0D 20 20 | LINE LINKS:.. | 00001310: 20 20 4C 49 4E 58 20 4C 44 59 20 23 32 34 0D 20 | LINX LDY #24. | 00001320: 20 20 20 4C 49 4E 58 27 4C 4F 4F 50 20 4C 44 41 | LINX'LOOP LDA| 00001330: 20 32 31 37 2C 59 0D 20 20 20 20 4F 52 41 20 23 | 217,Y. ORA #| 00001340: 31 32 38 0D 20 20 20 20 53 54 41 20 32 31 37 2C |128. STA 217,| 00001350: 59 0D 20 20 20 20 44 45 59 0D 20 20 20 20 42 50 |Y. DEY. BP| 00001360: 4C 20 4C 49 4E 58 27 4C 4F 4F 50 0D 20 20 20 20 |L LINX'LOOP. | 00001370: 52 54 53 0D 0D 0D 20 D3 C3 D2 C5 C5 CE E0 D3 D4 |RTS... .........| 00001380: C1 D3 C8 C9 CE C7 0D 20 2D 2D 2D 2D 2D 2D 2D 2D |....... --------| 00001390: 2D 2D 2D 2D 2D 2D 2D 0D 0D 20 20 20 20 CF 4E 43 |-------.. .NC| 000013A0: 45 20 54 48 45 20 4D 41 49 4E 20 53 43 52 45 45 |E THE MAIN SCREE| 000013B0: 4E 20 49 53 20 55 50 20 4F 4E 20 54 48 45 0D 53 |N IS UP ON THE.S| 000013C0: 43 52 45 45 4E 2C 20 54 48 45 20 46 49 52 53 54 |CREEN, THE FIRST| 000013D0: 20 54 48 49 4E 47 20 C9 20 44 4F 20 49 53 20 53 | THING . DO IS S| 000013E0: 54 41 53 48 0D 54 48 45 20 53 43 52 45 45 4E 20 |TASH.THE SCREEN | 000013F0: 53 4F 20 54 48 41 54 20 50 52 49 4E 54 49 4E 47 |SO THAT PRINTING| 00001400: 20 49 54 20 41 47 41 49 4E 0D 49 53 20 51 55 49 | IT AGAIN.IS QUI| 00001410: 43 4B 20 41 4E 44 20 45 41 53 59 2E 20 20 D3 54 |CK AND EASY. .T| 00001420: 41 53 48 49 4E 47 20 53 43 52 45 45 4E 53 3F 0D |ASHING SCREENS?.| 00001430: C1 57 2C 20 49 54 27 53 20 45 41 53 59 21 20 20 |.W, IT'S EASY! | 00001440: D3 54 41 53 48 49 4E 47 20 41 4E 44 20 52 45 53 |.TASHING AND RES| 00001450: 54 4F 52 49 4E 47 0D 53 43 52 45 45 4E 53 20 49 |TORING.SCREENS I| 00001460: 53 20 41 20 56 45 52 59 20 49 4D 50 4F 52 54 41 |S A VERY IMPORTA| 00001470: 4E 54 20 50 41 52 54 20 4F 46 0D 43 4F 44 49 4E |NT PART OF.CODIN| 00001480: 47 2E 20 20 D3 4F 4D 45 54 49 4D 45 53 20 59 4F |G. .OMETIMES YO| 00001490: 55 20 43 41 4E 27 54 20 53 50 41 52 45 0D 54 48 |U CAN'T SPARE.TH| 000014A0: 45 20 52 4F 4F 4D 20 46 4F 52 20 41 20 53 4E 41 |E ROOM FOR A SNA| 000014B0: 50 53 48 4F 54 20 4F 46 20 41 20 50 52 49 53 54 |PSHOT OF A PRIST| 000014C0: 49 4E 45 0D 4D 41 49 4E 20 4D 45 4E 55 20 41 4E |INE.MAIN MENU AN| 000014D0: 44 20 53 55 42 53 45 51 55 45 4E 54 20 54 45 4D |D SUBSEQUENT TEM| 000014E0: 50 4F 52 41 52 59 0D 53 43 52 45 45 4E 53 2E 20 |PORARY.SCREENS. | 000014F0: 20 D5 53 55 41 4C 4C 59 20 54 48 45 52 45 27 53 | .SUALLY THERE'S| 00001500: 20 50 4C 45 4E 54 59 20 4F 46 0D 46 52 45 45 20 | PLENTY OF.FREE | 00001510: 4D 45 4D 4F 52 59 20 46 4F 52 20 55 53 45 20 42 |MEMORY FOR USE B| 00001520: 45 4E 45 41 54 48 20 54 48 45 20 D2 CF CD 53 0D |ENEATH THE ...S.| 00001530: 41 4E 44 20 C9 2F CF 2C 20 45 53 50 45 43 49 41 |AND ./., ESPECIA| 00001540: 4C 4C 59 20 C9 2F CF 20 28 24 C4 30 30 30 2D 24 |LLY ./. ($.000-$| 00001550: C4 C6 C6 C6 29 2E 0D C7 45 4E 45 52 41 4C 4C 59 |....)...ENERALLY| 00001560: 20 C9 20 57 4F 52 4B 20 57 49 54 48 20 54 57 4F | . WORK WITH TWO| 00001570: 20 4F 52 20 54 48 52 45 45 0D 53 43 52 45 45 4E | OR THREE.SCREEN| 00001580: 20 41 52 45 41 53 2E 0D 0D 20 20 20 20 C9 20 53 | AREAS... . S| 00001590: 54 41 53 48 20 4D 59 20 4D 41 49 4E 20 4D 45 4E |TASH MY MAIN MEN| 000015A0: 55 2C 20 55 53 55 41 4C 4C 59 0D 53 4F 4D 45 50 |U, USUALLY.SOMEP| 000015B0: 4C 41 43 45 20 4C 49 4B 45 20 24 C4 30 30 30 20 |LACE LIKE $.000 | 000015C0: 4F 52 20 24 C1 30 30 30 2C 20 41 4E 44 20 C9 0D |OR $.000, AND ..| 000015D0: 53 54 4F 52 45 20 4D 4F 53 54 20 4F 54 48 45 52 |STORE MOST OTHER| 000015E0: 20 53 43 52 45 45 4E 53 20 41 54 20 24 C4 34 30 | SCREENS AT $.40| 000015F0: 30 20 4F 52 0D 24 C2 34 30 30 2E 20 20 D7 48 45 |0 OR.$.400. .HE| 00001600: 4E 45 56 45 52 20 C9 20 50 52 49 4E 54 20 41 20 |NEVER . PRINT A | 00001610: 4D 45 53 53 41 47 45 2C 20 C9 0D 53 54 4F 52 45 |MESSAGE, ..STORE| 00001620: 20 54 48 45 20 43 55 52 52 45 4E 54 20 53 43 52 | THE CURRENT SCR| 00001630: 45 45 4E 2C 20 45 56 45 4E 20 49 46 0D 49 54 27 |EEN, EVEN IF.IT'| 00001640: 53 20 54 48 45 20 4D 41 49 4E 20 53 43 52 45 45 |S THE MAIN SCREE| 00001650: 4E 20 41 54 20 54 48 45 20 53 43 52 45 45 4E 20 |N AT THE SCREEN | 00001660: 32 0D 4C 4F 43 41 54 49 4F 4E 2C 20 54 48 45 4E |2.LOCATION, THEN| 00001670: 20 C9 20 50 52 49 4E 54 20 54 48 45 20 4D 45 53 | . PRINT THE MES| 00001680: 53 41 47 45 2C 0D 48 41 4E 44 4C 45 20 49 4E 50 |SAGE,.HANDLE INP| 00001690: 55 54 20 46 52 4F 4D 20 54 48 45 20 55 53 45 52 |UT FROM THE USER| 000016A0: 2C 20 54 48 45 4E 0D 52 45 53 54 4F 52 45 20 54 |, THEN.RESTORE T| 000016B0: 48 45 20 53 43 52 45 45 4E 20 54 48 41 54 20 57 |HE SCREEN THAT W| 000016C0: 41 53 20 53 54 4F 52 45 44 20 41 54 0D 53 43 52 |AS STORED AT.SCR| 000016D0: 45 45 4E 20 32 20 28 24 C4 34 30 30 20 4F 52 20 |EEN 2 ($.400 OR | 000016E0: 24 C2 34 30 30 29 2E 0D 0D 20 20 20 20 20 D4 48 |$.400)... .H| 000016F0: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 43 4F 44 45 |E FOLLOWING CODE| 00001700: 20 57 49 4C 4C 20 53 54 4F 52 45 0D 41 4E 44 20 | WILL STORE.AND | 00001710: 52 45 53 54 4F 52 45 20 54 48 45 20 43 55 52 52 |RESTORE THE CURR| 00001720: 45 4E 54 20 53 43 52 45 45 4E 20 4F 4E 20 41 4E |ENT SCREEN ON AN| 00001730: 59 0D 50 41 47 45 20 49 4E 20 54 48 45 20 C3 2D |Y.PAGE IN THE .-| 00001740: 36 34 53 20 4D 45 4D 4F 52 59 2E 20 20 D4 48 49 |64S MEMORY. .HI| 00001750: 53 20 49 53 0D 52 41 54 48 45 52 20 46 41 4E 43 |S IS.RATHER FANC| 00001760: 59 20 43 4F 44 45 20 42 45 43 41 55 53 45 20 49 |Y CODE BECAUSE I| 00001770: 54 20 57 49 4C 4C 0D 53 54 4F 52 45 20 53 43 52 |T WILL.STORE SCR| 00001780: 45 45 4E 53 20 C1 CE D9 D7 C8 C5 D2 C5 2C 20 45 |EENS ........, E| 00001790: 56 45 4E 20 49 4E 20 54 48 45 0D 24 C4 30 30 30 |VEN IN THE.$.000| 000017A0: 2D 24 C4 C6 C6 C6 20 41 52 45 41 2E 20 20 CD 4F |-$.... AREA. .O| 000017B0: 53 54 20 4F 54 48 45 52 20 53 43 52 45 45 4E 0D |ST OTHER SCREEN.| 000017C0: 53 54 41 53 48 45 52 53 20 44 4F 4E 27 54 20 46 |STASHERS DON'T F| 000017D0: 4F 4F 4C 20 57 49 54 48 20 54 48 49 53 20 41 52 |OOL WITH THIS AR| 000017E0: 45 41 2E 0D C9 46 20 54 48 45 20 43 4F 44 45 20 |EA...F THE CODE | 000017F0: 53 45 45 4D 53 20 4D 4F 52 45 20 43 4F 4D 50 4C |SEEMS MORE COMPL| 00001800: 49 43 41 54 45 44 0D 54 48 41 4E 20 49 54 20 48 |ICATED.THAN IT H| 00001810: 41 53 20 54 4F 20 42 45 2C 20 49 54 27 53 20 54 |AS TO BE, IT'S T| 00001820: 4F 0D 41 43 43 4F 4D 4D 4F 44 41 54 45 20 53 54 |O.ACCOMMODATE ST| 00001830: 4F 52 41 47 45 20 41 4E 44 20 52 45 54 52 49 45 |ORAGE AND RETRIE| 00001840: 56 41 4C 20 49 4E 0D 54 48 49 53 20 41 52 45 41 |VAL IN.THIS AREA| 00001850: 2E 0D 0D 20 20 20 20 D9 4F 55 20 4D 49 47 48 54 |... .OU MIGHT| 00001860: 20 4E 4F 54 49 43 45 20 54 48 41 54 20 C9 20 53 | NOTICE THAT . S| 00001870: 54 4F 52 45 20 41 20 30 0D 41 54 20 4C 4F 43 41 |TORE A 0.AT LOCA| 00001880: 54 49 4F 4E 20 31 2E 20 20 D4 48 49 53 20 49 53 |TION 1. .HIS IS| 00001890: 4E 27 54 20 53 54 41 4E 44 41 52 44 0D 50 52 4F |N'T STANDARD.PRO| 000018A0: 43 45 44 55 52 45 2E 20 20 C9 20 43 4F 55 4C 44 |CEDURE. . COULD| 000018B0: 20 48 41 56 45 20 53 54 4F 52 45 44 20 41 20 24 | HAVE STORED A $| 000018C0: 37 34 0D 54 4F 20 54 55 52 4E 20 4F 46 46 20 41 |74.TO TURN OFF A| 000018D0: 4C 4C 20 D2 CF CD 2C 20 D6 C9 C3 20 41 4E 44 20 |LL ..., ... AND | 000018E0: D3 C9 C4 0D 49 4D 41 47 45 53 2C 20 42 55 54 20 |....IMAGES, BUT | 000018F0: 53 54 4F 52 49 4E 47 20 41 20 5A 45 52 4F 20 4D |STORING A ZERO M| 00001900: 41 4B 45 53 20 49 54 0D 45 41 53 49 45 52 20 54 |AKES IT.EASIER T| 00001910: 4F 20 46 4C 49 50 20 41 4C 4C 20 D2 CF CD 20 4F |O FLIP ALL ... O| 00001920: 4E 20 41 4E 44 20 4F 46 46 0D 57 49 54 48 20 41 |N AND OFF.WITH A| 00001930: 20 53 49 4D 50 4C 45 20 C4 C5 C3 20 31 20 41 4E | SIMPLE ... 1 AN| 00001940: 44 20 C9 CE C3 20 31 2E 20 20 C4 C5 C3 20 31 0D |D ... 1. ... 1.| 00001950: 46 52 4F 4D 20 41 20 56 41 4C 55 45 20 4F 46 20 |FROM A VALUE OF | 00001960: 30 20 41 4E 44 20 59 4F 55 20 48 41 56 45 20 32 |0 AND YOU HAVE 2| 00001970: 35 35 2C 0D 57 48 49 43 48 20 54 55 52 4E 53 20 |55,.WHICH TURNS | 00001980: 45 56 45 52 59 54 48 49 4E 47 20 42 41 43 4B 20 |EVERYTHING BACK | 00001990: 4F 4E 2E 20 20 CE 4F 54 45 0D 54 48 45 20 D6 C9 |ON. .OTE.THE ..| 000019A0: C3 20 41 4E 44 20 D3 C9 C4 20 43 48 49 50 20 41 |. AND ... CHIP A| 000019B0: 52 45 20 4F 46 54 45 4E 0D 52 45 46 45 52 52 45 |RE OFTEN.REFERRE| 000019C0: 44 20 54 4F 20 41 53 20 54 48 45 20 22 C9 2F CF |D TO AS THE "./.| 000019D0: 20 41 52 45 41 22 20 53 49 4E 43 45 0D 54 48 45 | AREA" SINCE.THE| 000019E0: 59 20 48 41 56 45 20 54 4F 20 42 45 20 53 57 49 |Y HAVE TO BE SWI| 000019F0: 54 43 48 45 44 20 49 4E 20 44 55 52 49 4E 47 0D |TCHED IN DURING.| 00001A00: 41 4C 4C 20 C9 4E 50 55 54 2F CF 55 54 50 55 54 |ALL .NPUT/.UTPUT| 00001A10: 2C 20 49 4E 43 4C 55 44 49 4E 47 20 4B 45 59 42 |, INCLUDING KEYB| 00001A20: 4F 41 52 44 2C 0D 44 52 49 56 45 53 20 41 4E 44 |OARD,.DRIVES AND| 00001A30: 20 4A 4F 59 53 54 49 43 4B 2E 0D 0D 20 20 20 20 | JOYSTICK... | 00001A40: D4 48 45 20 52 45 41 53 4F 4E 20 C9 27 4D 20 49 |.HE REASON .'M I| 00001A50: 4E 54 45 52 45 53 54 45 44 20 49 4E 0D 54 4F 47 |NTERESTED IN.TOG| 00001A60: 47 4C 49 4E 47 20 54 48 45 20 D2 CF CD 20 49 4D |GLING THE ... IM| 00001A70: 41 47 45 20 49 53 20 42 45 43 41 55 53 45 20 C9 |AGE IS BECAUSE .| 00001A80: 0D 57 41 4E 54 20 54 4F 20 42 45 20 41 42 4C 45 |.WANT TO BE ABLE| 00001A90: 20 54 4F 20 47 45 54 20 43 4F 4C 4F 52 20 4D 45 | TO GET COLOR ME| 00001AA0: 4D 4F 52 59 0D 44 41 54 41 20 46 52 4F 4D 20 43 |MORY.DATA FROM C| 00001AB0: 4F 4C 4F 52 20 4D 45 4D 4F 52 59 2C 20 54 48 45 |OLOR MEMORY, THE| 00001AC0: 4E 20 53 54 4F 52 45 20 49 54 0D 41 4E 59 57 48 |N STORE IT.ANYWH| 00001AD0: 45 52 45 2C 20 57 48 49 43 48 20 4D 49 47 48 54 |ERE, WHICH MIGHT| 00001AE0: 20 42 45 20 52 49 47 48 54 0D 42 45 4E 45 41 54 | BE RIGHT.BENEAT| 00001AF0: 48 20 43 4F 4C 4F 52 20 4D 45 4D 4F 52 59 2E 20 |H COLOR MEMORY. | 00001B00: 20 C9 46 20 C9 2F CF 20 49 53 0D 53 57 49 54 43 | .F ./. IS.SWITC| 00001B10: 48 45 44 20 4F 55 54 2C 20 C9 20 43 41 4E 27 54 |HED OUT, . CAN'T| 00001B20: 20 D0 C5 C5 CB 20 43 4F 4C 4F 52 0D 4D 45 4D 4F | .... COLOR.MEMO| 00001B30: 52 59 2E 20 20 D2 CF CD 20 48 41 53 20 54 4F 20 |RY. ... HAS TO | 00001B40: 42 45 20 CF CE 20 57 48 45 4E 20 C9 20 52 45 41 |BE .. WHEN . REA| 00001B50: 44 0D 43 4F 4C 4F 52 20 4D 45 4D 4F 52 59 20 41 |D.COLOR MEMORY A| 00001B60: 4E 44 20 CF C6 C6 20 57 48 45 4E 20 C9 20 57 52 |ND ... WHEN . WR| 00001B70: 49 54 45 20 49 54 0D 2D 2D 20 49 46 20 C9 27 4D |ITE IT.-- IF .'M| 00001B80: 20 53 54 4F 52 49 4E 47 20 49 54 20 49 4E 20 54 | STORING IT IN T| 00001B90: 48 45 0D 24 C4 30 30 30 2D 24 C4 C6 C6 C6 20 41 |HE.$.000-$.... A| 00001BA0: 52 45 41 2E 20 20 D7 48 49 4C 45 20 54 48 49 53 |REA. .HILE THIS| 00001BB0: 20 4D 45 54 48 4F 44 0D 41 4C 4C 4F 57 53 20 59 | METHOD.ALLOWS Y| 00001BC0: 4F 55 20 54 4F 20 53 54 4F 52 45 20 41 20 53 43 |OU TO STORE A SC| 00001BD0: 52 45 45 4E 0D 41 4E 59 57 48 45 52 45 2C 20 49 |REEN.ANYWHERE, I| 00001BE0: 54 20 57 4F 4E 27 54 20 41 4C 4C 4F 57 20 59 4F |T WON'T ALLOW YO| 00001BF0: 55 20 54 4F 20 52 45 41 44 0D 41 20 53 43 52 45 |U TO READ.A SCRE| 00001C00: 45 4E 20 54 48 41 54 27 53 20 4C 4F 43 41 54 45 |EN THAT'S LOCATE| 00001C10: 44 20 42 45 54 57 45 45 4E 0D 24 C1 30 30 30 2D |D BETWEEN.$.000-| 00001C20: 24 C2 C6 C6 C6 20 41 4E 44 20 24 C4 30 30 30 2D |$.... AND $.000-| 00001C30: 24 C6 C6 C6 C6 2E 20 20 C2 55 54 0D 4D 4F 53 54 |$..... .UT.MOST| 00001C40: 20 50 52 4F 47 52 41 4D 4D 45 52 53 20 44 4F 4E | PROGRAMMERS DON| 00001C50: 27 54 20 4C 4F 43 41 54 45 20 53 43 52 45 45 4E |'T LOCATE SCREEN| 00001C60: 0D 4D 45 4D 4F 52 59 20 48 45 52 45 20 42 45 43 |.MEMORY HERE BEC| 00001C70: 41 55 53 45 20 53 4F 4D 45 20 CB C5 D2 CE C1 CC |AUSE SOME ......| 00001C80: 0D 52 4F 55 54 49 4E 45 53 20 44 4F 4E 27 54 20 |.ROUTINES DON'T | 00001C90: 53 55 50 50 4F 52 54 20 54 48 45 4D 20 49 4E 20 |SUPPORT THEM IN | 00001CA0: 54 48 4F 53 45 0D 4C 4F 43 41 54 49 4F 4E 53 2C |THOSE.LOCATIONS,| 00001CB0: 20 53 4F 20 57 45 20 57 4F 4E 27 54 20 57 4F 52 | SO WE WON'T WOR| 00001CC0: 52 59 20 41 42 4F 55 54 0D 49 54 2E 0D 0D 0D 20 |RY ABOUT.IT.... | 00001CD0: 20 3B 54 48 49 53 20 52 4F 55 54 49 4E 45 20 53 | ;THIS ROUTINE S| 00001CE0: 54 4F 52 45 53 20 54 48 45 20 43 55 52 52 45 4E |TORES THE CURREN| 00001CF0: 54 0D 20 20 3B 53 43 52 45 45 4E 20 4F 4E 20 54 |T. ;SCREEN ON T| 00001D00: 48 45 20 50 41 47 45 20 52 45 46 45 52 45 4E 43 |HE PAGE REFERENC| 00001D10: 45 44 20 42 59 0D 20 20 3B 54 48 45 20 41 43 43 |ED BY. ;THE ACC| 00001D20: 55 4D 55 4C 41 54 4F 52 2E 0D 0D 20 20 53 43 52 |UMULATOR... SCR| 00001D30: 45 45 4E 27 53 54 41 53 48 20 53 54 41 20 32 35 |EEN'STASH STA 25| 00001D40: 32 0D 20 20 43 4D 50 20 3E 31 30 32 34 3B 20 20 |2. CMP >1024; | 00001D50: 44 4F 4E 27 54 20 53 54 4F 52 45 20 42 45 4C 4F |DON'T STORE BELO| 00001D60: 57 20 24 34 30 30 0D 20 20 42 43 53 20 2B 0D 20 |W $400. BCS +. | 00001D70: 20 52 54 53 0D 0D 20 20 2B 20 43 4C 43 0D 20 20 | RTS.. + CLC. | 00001D80: 41 44 43 20 23 34 20 20 3B 53 45 54 20 55 50 20 |ADC #4 ;SET UP | 00001D90: 53 54 4F 52 41 47 45 20 46 4F 52 20 43 4F 4C 4F |STORAGE FOR COLO| 00001DA0: 52 0D 20 20 53 54 41 20 32 35 34 20 3B 57 48 49 |R. STA 254 ;WHI| 00001DB0: 43 48 20 49 53 20 53 54 4F 52 45 44 0D 20 20 4C |CH IS STORED. L| 00001DC0: 44 41 20 23 30 20 20 3B 4A 55 53 54 20 41 46 54 |DA #0 ;JUST AFT| 00001DD0: 45 52 20 54 48 45 20 45 4E 44 20 4F 46 0D 20 20 |ER THE END OF. | 00001DE0: 53 54 41 20 32 35 33 20 3B 53 43 52 45 45 4E 20 |STA 253 ;SCREEN | 00001DF0: 44 41 54 41 2C 20 57 48 49 43 48 20 54 41 4B 45 |DATA, WHICH TAKE| 00001E00: 53 20 34 0D 20 20 53 54 41 20 32 35 31 20 3B 50 |S 4. STA 251 ;P| 00001E10: 41 47 45 53 0D 0D 20 20 4C 44 41 20 23 48 4F 4D |AGES.. LDA #HOM| 00001E20: 45 0D 20 20 4A 53 52 20 43 48 52 4F 55 54 3B 20 |E. JSR CHROUT; | 00001E30: 50 52 49 4E 54 20 48 4F 4D 45 2C 20 57 48 49 43 |PRINT HOME, WHIC| 00001E40: 48 20 53 45 54 53 0D 20 20 20 20 20 20 20 20 20 |H SETS. | 00001E50: 20 20 20 3B 20 55 50 20 53 43 52 45 45 4E 20 50 | ; UP SCREEN P| 00001E60: 4F 49 4E 54 45 52 53 20 41 54 0D 20 20 20 20 20 |OINTERS AT. | 00001E70: 20 20 20 20 20 20 20 3B 20 32 30 39 20 41 4E 44 | ; 209 AND| 00001E80: 20 32 34 33 0D 0D 20 20 4A 53 52 20 4F 4C 44 27 | 243.. JSR OLD'| 00001E90: 52 4F 4D 27 50 41 54 43 48 3B 20 57 45 4C 4C 2C |ROM'PATCH; WELL,| 00001EA0: 20 4D 41 59 42 45 20 4E 4F 54 0D 20 20 20 20 20 | MAYBE NOT. | 00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 | ; | 00001EC0: 4F 4E 20 41 4C 4C 20 C3 2D 36 34 27 53 0D 0D 20 |ON ALL .-64'S.. | 00001ED0: 20 53 45 49 20 20 20 20 20 3B 54 55 52 4E 20 4F | SEI ;TURN O| 00001EE0: 46 46 20 49 4E 54 45 52 52 55 50 54 53 0D 20 20 |FF INTERRUPTS. | 00001EF0: 4C 44 41 20 23 30 0D 20 20 53 54 41 20 31 20 20 |LDA #0. STA 1 | 00001F00: 20 3B 54 55 52 4E 20 4F 46 46 20 41 4C 4C 20 52 | ;TURN OFF ALL R| 00001F10: 4F 4D 20 49 4D 41 47 45 53 0D 0D 20 20 4C 44 58 |OM IMAGES.. LDX| 00001F20: 20 23 33 20 20 3B 53 45 54 20 43 4F 55 4E 54 45 | #3 ;SET COUNTE| 00001F30: 52 20 46 4F 52 20 46 4F 55 52 20 50 41 47 45 53 |R FOR FOUR PAGES| 00001F40: 0D 20 20 4C 44 59 20 23 30 0D 20 20 2D 20 4C 44 |. LDY #0. - LD| 00001F50: 41 20 28 32 30 39 29 2C 59 20 3B 47 45 54 20 53 |A (209),Y ;GET S| 00001F60: 43 52 45 45 4E 20 44 41 54 41 0D 20 20 53 54 41 |CREEN DATA. STA| 00001F70: 20 28 32 35 31 29 2C 59 20 20 20 3B 53 54 4F 52 | (251),Y ;STOR| 00001F80: 45 20 53 43 52 45 45 4E 20 44 41 54 41 0D 20 20 |E SCREEN DATA. | 00001F90: 44 45 43 20 31 20 20 20 20 20 20 20 20 20 3B 54 |DEC 1 ;T| 00001FA0: 55 52 4E 20 4F 4E 20 43 4F 4C 4F 52 20 4D 45 4D |URN ON COLOR MEM| 00001FB0: 4F 52 59 0D 20 20 4C 44 41 20 28 32 34 33 29 2C |ORY. LDA (243),| 00001FC0: 59 20 20 20 3B 47 45 54 20 43 4F 4C 4F 52 20 44 |Y ;GET COLOR D| 00001FD0: 41 54 41 0D 20 20 49 4E 43 20 31 20 20 20 20 20 |ATA. INC 1 | 00001FE0: 20 20 20 20 3B 41 4C 4C 20 52 4F 4D 20 4F 46 46 | ;ALL ROM OFF| 00001FF0: 20 41 47 41 49 4E 0D 20 20 53 54 41 20 28 32 35 | AGAIN. STA (25| 00002000: 33 29 2C 59 20 20 20 3B 53 54 4F 52 45 20 43 4F |3),Y ;STORE CO| 00002010: 4C 4F 52 20 44 41 54 41 0D 20 20 49 4E 59 20 20 |LOR DATA. INY | 00002020: 20 20 20 20 20 20 20 20 20 3B 49 4E 43 52 45 4D | ;INCREM| 00002030: 45 4E 54 20 46 4F 52 20 31 20 50 41 47 45 0D 20 |ENT FOR 1 PAGE. | 00002040: 20 42 4E 45 20 2D 0D 20 20 49 4E 43 20 32 31 30 | BNE -. INC 210| 00002050: 20 20 20 20 3B 49 4E 43 52 45 4D 45 4E 54 0D 20 | ;INCREMENT. | 00002060: 20 49 4E 43 20 32 35 32 20 20 20 20 3B 48 49 47 | INC 252 ;HIG| 00002070: 48 20 42 59 54 45 0D 20 20 49 4E 43 20 32 34 34 |H BYTE. INC 244| 00002080: 20 20 20 20 3B 4F 46 20 41 4C 4C 0D 20 20 49 4E | ;OF ALL. IN| 00002090: 43 20 32 35 34 20 20 20 20 3B 50 4F 49 4E 54 45 |C 254 ;POINTE| 000020A0: 52 53 0D 20 20 44 45 58 20 20 20 20 20 20 20 20 |RS. DEX | 000020B0: 3B 44 45 43 52 45 4D 45 4E 54 20 50 41 47 45 20 |;DECREMENT PAGE | 000020C0: 43 4F 55 4E 54 45 52 0D 20 20 42 50 4C 20 2D 20 |COUNTER. BPL - | 000020D0: 20 20 20 20 20 3B 49 46 20 4C 45 53 53 20 54 48 | ;IF LESS TH| 000020E0: 41 4E 20 5A 45 52 4F 2C 20 43 4F 4E 54 0D 20 20 |AN ZERO, CONT. | 000020F0: 44 45 43 20 32 35 34 20 20 20 20 3B 42 41 43 4B |DEC 254 ;BACK| 00002100: 20 55 50 0D 20 20 4C 44 59 20 23 32 33 33 20 20 | UP. LDY #233 | 00002110: 20 3B 50 4F 53 49 54 49 4F 4E 20 4A 55 53 54 20 | ;POSITION JUST | 00002120: 42 45 59 4F 4E 44 0D 20 20 20 20 20 20 20 20 20 |BEYOND. | 00002130: 20 20 20 20 3B 4C 41 53 54 20 43 4F 4C 4F 52 0D | ;LAST COLOR.| 00002140: 20 20 44 45 43 20 31 20 20 20 20 20 20 3B 4F 4E | DEC 1 ;ON| 00002150: 20 57 49 54 48 20 54 48 45 20 56 49 43 20 43 48 | WITH THE VIC CH| 00002160: 49 50 0D 20 20 4C 44 41 20 35 33 32 38 30 20 20 |IP. LDA 53280 | 00002170: 3B 47 45 54 20 42 4F 52 44 45 52 20 43 4F 4C 4F |;GET BORDER COLO| 00002180: 52 0D 20 20 49 4E 43 20 31 20 20 20 20 20 20 3B |R. INC 1 ;| 00002190: 4F 46 46 20 57 49 54 48 20 56 49 43 20 43 48 49 |OFF WITH VIC CHI| 000021A0: 50 0D 20 20 53 54 41 20 28 32 35 33 29 2C 59 3B |P. STA (253),Y;| 000021B0: 53 54 4F 52 45 20 42 4F 52 44 45 52 0D 20 20 49 |STORE BORDER. I| 000021C0: 4E 59 0D 20 20 44 45 43 20 31 20 20 20 20 20 20 |NY. DEC 1 | 000021D0: 3B 4F 4E 20 57 49 54 48 20 56 49 43 20 43 48 49 |;ON WITH VIC CHI| 000021E0: 50 0D 20 20 4C 44 41 20 35 33 32 38 31 20 20 3B |P. LDA 53281 ;| 000021F0: 47 45 54 20 42 41 43 4B 47 52 4F 55 4E 44 20 43 |GET BACKGROUND C| 00002200: 4F 4C 4F 52 0D 20 20 49 4E 43 20 31 20 20 20 20 |OLOR. INC 1 | 00002210: 20 20 3B 4F 46 46 20 57 49 54 48 20 56 49 43 20 | ;OFF WITH VIC | 00002220: 43 48 49 50 0D 20 20 53 54 41 20 28 32 35 33 29 |CHIP. STA (253)| 00002230: 2C 59 3B 53 54 4F 52 45 20 42 41 43 4B 47 52 4F |,Y;STORE BACKGRO| 00002240: 55 4E 44 0D 20 20 4C 44 41 20 23 24 37 37 0D 20 |UND. LDA #$77. | 00002250: 20 53 54 41 20 31 3B 20 20 20 20 20 3B 52 4F 4D | STA 1; ;ROM| 00002260: 53 20 42 41 43 4B 20 54 4F 20 4E 4F 52 4D 41 4C |S BACK TO NORMAL| 00002270: 0D 20 20 43 4C 49 20 20 20 20 20 20 20 20 3B 49 |. CLI ;I| 00002280: 4E 54 45 52 52 55 50 54 53 20 42 41 43 4B 20 4F |NTERRUPTS BACK O| 00002290: 4E 0D 20 20 4C 44 41 20 23 48 4F 4D 45 0D 20 20 |N. LDA #HOME. | 000022A0: 4A 53 52 20 43 48 52 4F 55 54 0D 20 20 52 54 53 |JSR CHROUT. RTS| 000022B0: 0D 0D 20 20 20 20 20 20 20 20 20 2A 20 2A 20 2A |.. * * *| 000022C0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 0D 0D | * * * * * * *..| 000022D0: 20 20 3B 41 43 43 55 4D 55 4C 41 54 4F 52 20 50 | ;ACCUMULATOR P| 000022E0: 4F 49 4E 54 53 20 54 4F 20 50 41 47 45 20 54 4F |OINTS TO PAGE TO| 000022F0: 0D 20 20 3B 52 45 53 54 4F 52 45 20 46 52 4F 4D |. ;RESTORE FROM| 00002300: 0D 0D 20 20 53 43 52 45 45 4E 27 52 45 53 54 4F |.. SCREEN'RESTO| 00002310: 52 45 20 4C 44 41 20 53 54 41 20 32 35 32 0D 20 |RE LDA STA 252. | 00002320: 20 43 4C 43 0D 20 20 41 44 43 20 23 34 20 20 20 | CLC. ADC #4 | 00002330: 3B 53 45 54 20 43 4F 4C 4F 52 20 50 4F 49 4E 54 |;SET COLOR POINT| 00002340: 45 52 0D 20 20 53 54 41 20 32 35 34 0D 20 20 4C |ER. STA 254. L| 00002350: 44 41 20 23 30 0D 20 20 53 54 41 20 32 35 33 0D |DA #0. STA 253.| 00002360: 20 20 53 54 41 20 32 35 31 0D 0D 20 20 4C 44 41 | STA 251.. LDA| 00002370: 20 23 48 4F 4D 45 0D 20 20 4A 53 52 20 43 48 52 | #HOME. JSR CHR| 00002380: 4F 55 54 20 3B 53 45 54 55 50 20 53 43 52 45 45 |OUT ;SETUP SCREE| 00002390: 4E 2F 43 4F 4C 4F 52 0D 20 20 4A 53 52 20 4F 4C |N/COLOR. JSR OL| 000023A0: 44 27 52 4F 4D 27 50 41 54 43 48 0D 20 20 53 45 |D'ROM'PATCH. SE| 000023B0: 49 0D 20 20 4C 44 41 20 23 30 20 20 3B 4F 46 46 |I. LDA #0 ;OFF| 000023C0: 20 57 49 54 48 20 D2 CF CD 53 0D 20 20 53 54 41 | WITH ...S. STA| 000023D0: 20 31 0D 0D 20 20 4C 44 58 20 23 33 0D 20 20 4C | 1.. LDX #3. L| 000023E0: 44 59 20 23 30 0D 0D 20 20 2D 20 4C 44 41 20 28 |DY #0.. - LDA (| 000023F0: 32 35 31 29 2C 59 20 20 20 3B 47 45 54 20 53 43 |251),Y ;GET SC| 00002400: 52 45 45 4E 20 44 41 54 41 0D 20 20 53 54 41 20 |REEN DATA. STA | 00002410: 28 32 30 39 29 2C 59 20 20 20 20 20 3B 52 45 53 |(209),Y ;RES| 00002420: 54 4F 52 45 20 53 43 52 45 45 4E 0D 20 20 4C 44 |TORE SCREEN. LD| 00002430: 41 20 28 32 35 33 29 2C 59 20 20 20 20 20 3B 47 |A (253),Y ;G| 00002440: 45 54 20 43 4F 4C 4F 52 20 44 41 54 41 0D 20 20 |ET COLOR DATA. | 00002450: 44 45 43 20 31 20 20 20 20 20 20 20 20 20 20 20 |DEC 1 | 00002460: 3B 4F 4E 20 57 49 54 48 20 43 4F 4C 4F 52 20 4D |;ON WITH COLOR M| 00002470: 45 4D 0D 20 20 53 54 41 20 28 32 34 33 29 2C 59 |EM. STA (243),Y| 00002480: 20 20 20 20 20 3B 53 54 4F 52 45 20 49 4E 20 43 | ;STORE IN C| 00002490: 4F 4C 4F 52 20 4D 45 4D 0D 20 20 49 4E 43 20 31 |OLOR MEM. INC 1| 000024A0: 20 20 20 20 20 20 20 20 20 20 20 3B 4F 46 46 20 | ;OFF | 000024B0: 57 49 54 48 20 D2 CF CD 0D 20 20 49 4E 59 0D 20 |WITH .... INY. | 000024C0: 20 42 4E 45 20 2D 0D 20 20 49 4E 43 20 32 31 30 | BNE -. INC 210| 000024D0: 0D 20 20 49 4E 43 20 32 35 32 0D 20 20 49 4E 43 |. INC 252. INC| 000024E0: 20 32 34 34 0D 20 20 49 4E 43 20 32 35 34 0D 20 | 244. INC 254. | 000024F0: 20 44 45 58 0D 20 20 42 50 4C 20 2D 0D 20 20 44 | DEX. BPL -. D| 00002500: 45 43 20 32 35 34 0D 20 20 4C 44 59 20 23 32 33 |EC 254. LDY #23| 00002510: 33 0D 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 |3. LDA (253),Y | 00002520: 20 20 20 3B 47 45 54 20 42 4F 52 44 45 52 0D 20 | ;GET BORDER. | 00002530: 20 44 45 43 20 31 0D 20 20 53 54 41 20 35 33 32 | DEC 1. STA 532| 00002540: 38 30 0D 20 20 49 4E 59 0D 20 20 49 4E 43 20 31 |80. INY. INC 1| 00002550: 0D 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 |. LDA (253),Y | 00002560: 20 20 3B 47 45 54 20 42 41 43 4B 47 52 4F 55 4E | ;GET BACKGROUN| 00002570: 44 0D 20 20 44 45 43 20 31 0D 20 20 53 54 41 20 |D. DEC 1. STA | 00002580: 35 33 32 38 31 0D 0D 20 20 4C 44 41 20 23 24 37 |53281.. LDA #$7| 00002590: 37 0D 20 20 53 54 41 20 31 0D 20 20 43 4C 49 0D |7. STA 1. CLI.| 000025A0: 20 20 4A 4D 50 20 35 38 37 33 32 0D 0D 0D 20 20 | JMP 58732... | 000025B0: 20 20 CE 4F 52 4D 41 4C 4C 59 20 4C 4F 43 41 54 | .ORMALLY LOCAT| 000025C0: 49 4F 4E 53 20 32 34 33 2D 32 34 34 20 50 4F 49 |IONS 243-244 POI| 000025D0: 4E 54 0D 54 4F 20 54 48 45 20 43 4F 4C 4F 52 20 |NT.TO THE COLOR | 000025E0: 4D 45 4D 4F 52 59 20 4F 46 20 54 48 45 20 4C 49 |MEMORY OF THE LI| 000025F0: 4E 45 20 57 48 45 52 45 0D 54 48 45 20 43 55 52 |NE WHERE.THE CUR| 00002600: 53 4F 52 20 49 53 2E 20 20 D4 48 45 20 57 41 59 |SOR IS. .HE WAY| 00002610: 20 54 48 49 53 20 57 4F 52 4B 53 0D 4F 55 54 20 | THIS WORKS.OUT | 00002620: 49 53 20 54 48 41 54 20 4C 4F 43 41 54 49 4F 4E |IS THAT LOCATION| 00002630: 20 32 30 39 20 41 4E 44 20 32 31 30 0D 41 4C 57 | 209 AND 210.ALW| 00002640: 41 59 53 20 50 4F 49 4E 54 20 54 4F 20 54 48 45 |AYS POINT TO THE| 00002650: 20 46 49 52 53 54 20 42 59 54 45 20 4F 46 20 54 | FIRST BYTE OF T| 00002660: 48 45 0D 52 4F 57 20 54 48 41 54 20 54 48 45 20 |HE.ROW THAT THE | 00002670: 43 55 52 53 4F 52 20 49 53 20 4F 4E 2E 20 20 D3 |CURSOR IS ON. .| 00002680: 4F 20 49 46 20 54 48 45 0D 43 55 52 53 4F 52 20 |O IF THE.CURSOR | 00002690: 49 53 20 4F 4E 20 52 4F 57 20 31 20 4F 46 20 41 |IS ON ROW 1 OF A| 000026A0: 20 4E 4F 52 4D 41 4C 20 53 43 52 45 45 4E 0D 28 | NORMAL SCREEN.(| 000026B0: 54 48 45 20 53 45 43 4F 4E 44 20 4C 49 4E 45 29 |THE SECOND LINE)| 000026C0: 2C 20 4C 4F 43 41 54 49 4F 4E 20 32 30 39 20 57 |, LOCATION 209 W| 000026D0: 4F 55 4C 44 0D 43 4F 4E 54 41 49 4E 20 54 48 45 |OULD.CONTAIN THE| 000026E0: 20 CC D3 C2 20 4F 46 20 28 31 30 32 34 2B 34 30 | ... OF (1024+40| 000026F0: 29 2E 0D CC 4F 43 41 54 49 4F 4E 20 32 31 30 20 |)...OCATION 210 | 00002700: 57 49 4C 4C 20 43 4F 4E 54 41 49 4E 20 54 48 45 |WILL CONTAIN THE| 00002710: 20 CD D3 C2 20 4F 46 0D 28 31 30 32 34 2B 34 30 | ... OF.(1024+40| 00002720: 29 2E 20 20 CE 4F 20 4D 41 54 54 45 52 20 57 48 |). .O MATTER WH| 00002730: 45 52 45 20 54 48 45 0D 43 55 52 53 4F 52 20 49 |ERE THE.CURSOR I| 00002740: 53 20 4F 4E 20 54 48 45 20 4C 49 4E 45 2C 20 54 |S ON THE LINE, T| 00002750: 48 49 53 20 50 4F 49 4E 54 45 52 0D 53 54 41 59 |HIS POINTER.STAY| 00002760: 53 20 54 48 45 20 53 41 4D 45 2E 20 20 C9 54 20 |S THE SAME. .T | 00002770: 44 4F 45 53 4E 27 54 20 43 48 41 4E 47 45 0D 55 |DOESN'T CHANGE.U| 00002780: 4E 54 49 4C 20 54 48 45 20 43 55 52 53 4F 52 20 |NTIL THE CURSOR | 00002790: 4D 4F 56 45 53 20 54 4F 20 54 48 45 20 4E 45 58 |MOVES TO THE NEX| 000027A0: 54 0D 4C 4F 47 49 43 41 4C 20 52 4F 57 2E 0D 0D |T.LOGICAL ROW...| 000027B0: 20 20 20 20 CF 4E 20 4D 4F 53 54 20 22 4E 4F 52 | .N MOST "NOR| 000027C0: 4D 41 4C 22 20 C3 2D 36 34 53 20 54 48 49 53 20 |MAL" .-64S THIS | 000027D0: 49 53 0D 54 52 55 45 20 46 4F 52 20 54 48 45 20 |IS.TRUE FOR THE | 000027E0: 43 4F 4C 4F 52 20 4D 45 4D 4F 52 59 20 50 4F 49 |COLOR MEMORY POI| 000027F0: 4E 54 45 52 53 2C 0D 32 34 33 2D 32 34 34 2C 20 |NTERS,.243-244, | 00002800: 41 53 20 57 45 4C 4C 2E 20 20 D3 4F 20 49 46 20 |AS WELL. .O IF | 00002810: 54 48 45 20 43 55 52 53 4F 52 0D 49 53 20 4F 4E |THE CURSOR.IS ON| 00002820: 20 52 4F 57 20 31 20 4F 46 20 41 4E 59 20 53 43 | ROW 1 OF ANY SC| 00002830: 52 45 45 4E 20 28 54 48 45 20 53 45 43 4F 4E 44 |REEN (THE SECOND| 00002840: 0D 4C 49 4E 45 29 2C 20 4C 4F 43 41 54 49 4F 4E |.LINE), LOCATION| 00002850: 20 32 34 33 20 57 4F 55 4C 44 20 43 4F 4E 54 41 | 243 WOULD CONTA| 00002860: 49 4E 20 54 48 45 0D CC D3 C2 20 4F 46 20 28 35 |IN THE.... OF (5| 00002870: 35 32 39 36 2B 34 30 29 2E 20 20 CC 4F 43 41 54 |5296+40). .OCAT| 00002880: 49 4F 4E 20 32 34 34 20 57 49 4C 4C 0D 43 4F 4E |ION 244 WILL.CON| 00002890: 54 41 49 4E 20 54 48 45 20 CD D3 C2 20 4F 46 20 |TAIN THE ... OF | 000028A0: 28 35 35 32 39 36 2B 34 30 29 2E 20 20 CE 4F 0D |(55296+40). .O.| 000028B0: 4D 41 54 54 45 52 20 57 48 45 52 45 20 54 48 45 |MATTER WHERE THE| 000028C0: 20 43 55 52 53 4F 52 20 49 53 20 4F 4E 20 54 48 | CURSOR IS ON TH| 000028D0: 45 0D 4C 49 4E 45 2C 20 54 48 49 53 20 50 4F 49 |E.LINE, THIS POI| 000028E0: 4E 54 45 52 20 53 54 41 59 53 20 54 48 45 20 53 |NTER STAYS THE S| 000028F0: 41 4D 45 2E 0D C9 54 20 44 4F 45 53 4E 27 54 20 |AME...T DOESN'T | 00002900: 43 48 41 4E 47 45 20 55 4E 54 49 4C 20 54 48 45 |CHANGE UNTIL THE| 00002910: 20 43 55 52 53 4F 52 0D 4D 4F 56 45 53 20 54 4F | CURSOR.MOVES TO| 00002920: 20 54 48 45 20 4E 45 58 54 20 4C 4F 47 49 43 41 | THE NEXT LOGICA| 00002930: 4C 20 52 4F 57 2E 0D 0D 20 20 20 20 C2 55 54 20 |L ROW... .UT | 00002940: 41 4C 4C 20 C3 2D 36 34 53 20 41 52 45 20 4E 4F |ALL .-64S ARE NO| 00002950: 54 20 43 52 45 41 54 45 44 0D 45 51 55 41 4C 2E |T CREATED.EQUAL.| 00002960: 20 20 D4 48 45 20 43 4F 4C 4F 52 20 4D 45 4D 4F | .HE COLOR MEMO| 00002970: 52 59 20 50 4F 49 4E 54 45 52 53 20 49 4E 0D 54 |RY POINTERS IN.T| 00002980: 48 45 20 4F 4C 44 45 52 20 C3 2D 36 34 53 20 44 |HE OLDER .-64S D| 00002990: 4F 4E 27 54 20 55 50 44 41 54 45 20 54 48 45 20 |ON'T UPDATE THE | 000029A0: 54 48 45 0D 43 4F 4C 4F 52 20 4D 45 4D 4F 52 59 |THE.COLOR MEMORY| 000029B0: 20 50 4F 49 4E 54 45 52 53 20 55 4E 54 49 4C 20 | POINTERS UNTIL | 000029C0: 41 0D 43 48 41 52 41 43 54 45 52 20 49 53 20 41 |A.CHARACTER IS A| 000029D0: 43 54 55 41 4C 4C 59 20 50 52 49 4E 54 45 44 20 |CTUALLY PRINTED | 000029E0: 4F 4E 20 54 48 45 0D 53 43 52 45 45 4E 2E 20 20 |ON THE.SCREEN. | 000029F0: D3 4F 20 59 4F 55 20 43 41 4E 20 50 4C 4F 54 20 |.O YOU CAN PLOT | 00002A00: 54 48 45 20 43 55 52 53 4F 52 0D 41 4E 59 57 48 |THE CURSOR.ANYWH| 00002A10: 45 52 45 20 4F 4E 20 54 48 45 20 53 43 52 45 45 |ERE ON THE SCREE| 00002A20: 4E 20 41 4E 44 20 54 48 45 20 43 4F 4C 4F 52 0D |N AND THE COLOR.| 00002A30: 50 4F 49 4E 54 45 52 53 20 53 54 41 59 20 54 48 |POINTERS STAY TH| 00002A40: 45 20 57 41 59 20 54 48 45 59 20 57 45 52 45 0D |E WAY THEY WERE.| 00002A50: 42 45 46 4F 52 45 20 55 4E 54 49 4C 20 59 4F 55 |BEFORE UNTIL YOU| 00002A60: 20 41 43 54 55 41 4C 4C 59 20 41 4C 54 45 52 20 | ACTUALLY ALTER | 00002A70: 54 48 45 0D 53 43 52 45 45 4E 20 57 49 54 48 20 |THE.SCREEN WITH | 00002A80: D0 D2 C9 CE D4 20 4F 52 20 C3 C8 D2 CF D5 D4 2E |..... OR .......| 00002A90: 20 20 D0 CF CB C5 49 4E 47 0D 54 48 45 20 53 43 | ....ING.THE SC| 00002AA0: 52 45 45 4E 20 44 4F 45 53 4E 27 54 20 43 4F 55 |REEN DOESN'T COU| 00002AB0: 4E 54 2E 20 20 D3 4F 4D 45 54 49 4D 45 53 0D 59 |NT. .OMETIMES.Y| 00002AC0: 4F 55 20 43 41 4E 27 54 20 44 4F 20 54 48 49 53 |OU CAN'T DO THIS| 00002AD0: 2E 20 20 CE 4F 54 20 45 56 45 4E 20 41 20 D3 D0 |. .OT EVEN A ..| 00002AE0: C1 C3 C5 2E 0D C9 4E 20 4F 55 52 20 D3 C3 D2 C5 |......N OUR ....| 00002AF0: C5 CE 20 D3 D4 C1 D3 C8 20 52 4F 55 54 49 4E 45 |.. ..... ROUTINE| 00002B00: 2C 20 57 45 0D 44 4F 4E 27 54 20 57 41 4E 54 20 |, WE.DON'T WANT | 00002B10: 54 4F 20 41 4C 54 45 52 20 54 48 45 20 53 43 52 |TO ALTER THE SCR| 00002B20: 45 45 4E 2E 20 20 D7 45 0D 4A 55 53 54 20 57 41 |EEN. .E.JUST WA| 00002B30: 4E 54 20 54 4F 20 53 54 4F 52 45 20 49 54 2E 0D |NT TO STORE IT..| 00002B40: 0D 20 20 20 20 D5 53 49 4E 47 20 43 4F 4C 4F 52 |. .SING COLOR| 00002B50: 20 50 4F 49 4E 54 45 52 53 20 49 53 20 56 45 52 | POINTERS IS VER| 00002B60: 59 0D 48 45 4C 50 46 55 4C 20 46 4F 52 20 50 52 |Y.HELPFUL FOR PR| 00002B70: 49 4E 54 49 4E 47 20 48 49 47 48 4C 49 47 48 54 |INTING HIGHLIGHT| 00002B80: 20 42 41 52 53 0D 41 4E 44 20 43 4F 4C 4F 52 49 | BARS.AND COLORI| 00002B90: 4E 47 20 53 45 43 54 49 4F 4E 53 20 4F 46 20 54 |NG SECTIONS OF T| 00002BA0: 48 45 20 53 43 52 45 45 4E 0D 57 49 54 48 4F 55 |HE SCREEN.WITHOU| 00002BB0: 54 20 41 4C 4C 20 54 48 45 20 4D 41 54 48 20 41 |T ALL THE MATH A| 00002BC0: 4E 44 20 53 54 52 49 4E 47 53 20 54 48 41 54 0D |ND STRINGS THAT.| 00002BD0: 4D 49 47 48 54 20 4F 54 48 45 52 57 49 53 45 20 |MIGHT OTHERWISE | 00002BE0: 42 45 20 41 20 50 41 52 54 20 4F 46 20 54 48 45 |BE A PART OF THE| 00002BF0: 0D 50 52 4F 43 45 53 53 2E 20 20 D3 4F 20 57 48 |.PROCESS. .O WH| 00002C00: 45 4E 45 56 45 52 20 C9 20 44 45 50 45 4E 44 20 |ENEVER . DEPEND | 00002C10: 4F 4E 0D 4C 4F 43 41 54 49 4F 4E 53 20 32 34 33 |ON.LOCATIONS 243| 00002C20: 20 41 4E 44 20 32 34 34 20 54 4F 20 42 45 20 41 | AND 244 TO BE A| 00002C30: 43 43 55 52 41 54 45 2C 0D C9 20 CA D3 D2 20 54 |CCURATE,.. ... T| 00002C40: 4F 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |O THE FOLLOWING | 00002C50: 52 4F 55 54 49 4E 45 3A 0D 0D 0D 20 20 4F 4C 44 |ROUTINE:... OLD| 00002C60: 27 52 4F 4D 27 50 41 54 43 48 20 4C 44 41 20 32 |'ROM'PATCH LDA 2| 00002C70: 31 30 0D 20 20 53 45 43 0D 20 20 53 42 43 20 36 |10. SEC. SBC 6| 00002C80: 34 38 0D 20 20 43 4C 43 0D 20 20 41 44 43 20 23 |48. CLC. ADC #| 00002C90: 24 44 38 0D 20 20 53 54 41 20 32 34 34 0D 20 20 |$D8. STA 244. | 00002CA0: 4C 44 41 20 32 30 39 0D 20 20 53 54 41 20 32 34 |LDA 209. STA 24| 00002CB0: 33 0D 20 20 52 54 53 0D 0D 20 20 20 20 D4 48 49 |3. RTS.. .HI| 00002CC0: 53 20 50 41 54 43 48 20 4D 41 4B 45 53 20 41 4C |S PATCH MAKES AL| 00002CD0: 4C 20 C3 2D 36 34 53 20 45 51 55 41 4C 2C 0D 43 |L .-64S EQUAL,.C| 00002CE0: 4F 4C 4F 52 57 49 53 45 2E 20 20 D9 4F 55 27 44 |OLORWISE. .OU'D| 00002CF0: 20 54 48 49 4E 4B 20 54 48 41 54 20 4D 4F 53 54 | THINK THAT MOST| 00002D00: 0D 43 4F 4D 50 55 54 45 52 53 20 57 49 54 48 20 |.COMPUTERS WITH | 00002D10: 4F 4C 44 20 D2 CF CD 53 20 57 4F 55 4C 44 20 42 |OLD ...S WOULD B| 00002D20: 45 20 4F 4E 0D 54 48 45 20 53 43 52 41 50 20 48 |E ON.THE SCRAP H| 00002D30: 45 41 50 20 42 59 20 4E 4F 57 2E 20 20 D7 45 4C |EAP BY NOW. .EL| 00002D40: 4C 2C 20 57 45 20 48 41 56 45 0D 41 54 20 4C 45 |L, WE HAVE.AT LE| 00002D50: 41 53 54 20 46 49 56 45 20 53 55 42 53 43 52 49 |AST FIVE SUBSCRI| 00002D60: 42 45 52 53 20 57 48 4F 27 56 45 20 48 41 44 0D |BERS WHO'VE HAD.| 00002D70: 52 45 41 4C 20 50 52 4F 42 4C 45 4D 53 20 57 49 |REAL PROBLEMS WI| 00002D80: 54 48 20 4F 55 52 20 43 4F 50 49 45 52 2C 0D CC |TH OUR COPIER,..| 00002D90: C5 D4 D4 C5 D2 CD C5 C9 D3 D4 C5 D2 2C 20 C9 CE |............, ..| 00002DA0: D3 D4 C1 CE D4 20 CD C5 CE D5 2C 20 C9 CE D3 D4 |..... ...., ....| 00002DB0: C1 CE D4 0D D0 D2 CF C7 D2 C1 CD 2C 20 D3 C3 D2 |..........., ...| 00002DC0: CF CC CC 2E CF 2C 20 D0 D2 C9 CE D4 20 C2 C9 C7 |....., ..... ...| 00002DD0: 2C 20 41 4E 44 0D 53 4F 4D 45 20 4F 54 48 45 52 |, AND.SOME OTHER| 00002DE0: 20 50 52 4F 47 52 41 4D 53 20 42 45 43 41 55 53 | PROGRAMS BECAUS| 00002DF0: 45 20 54 48 45 49 52 0D D0 52 45 43 41 4D 42 52 |E THEIR..RECAMBR| 00002E00: 49 41 4E 20 C3 2D 36 34 53 20 41 52 45 20 53 54 |IAN .-64S ARE ST| 00002E10: 49 4C 4C 20 4B 49 43 4B 49 4E 47 2E 0D D4 48 45 |ILL KICKING...HE| 00002E20: 20 41 44 44 49 54 49 4F 4E 20 4F 46 20 41 20 CA | ADDITION OF A .| 00002E30: D3 D2 20 54 4F 20 54 48 49 53 20 53 49 4D 50 4C |.. TO THIS SIMPL| 00002E40: 45 0D CF CC C4 20 D2 CF CD 20 D0 C1 D4 C3 C8 20 |E.... ... ..... | 00002E50: 45 56 45 52 59 20 54 49 4D 45 20 54 48 45 20 43 |EVERY TIME THE C| 00002E60: 55 52 53 4F 52 0D 43 48 41 4E 47 45 53 20 41 20 |URSOR.CHANGES A | 00002E70: 4C 49 4E 45 20 4F 52 20 41 46 54 45 52 20 41 20 |LINE OR AFTER A | 00002E80: D0 CC CF D4 20 4F 52 0D 41 46 54 45 52 20 41 20 |.... OR.AFTER A | 00002E90: C8 CF CD C5 2F C3 CC D2 20 57 49 4C 4C 20 4B 45 |..../... WILL KE| 00002EA0: 45 50 20 4C 4F 43 41 54 49 4F 4E 53 0D 32 34 33 |EP LOCATIONS.243| 00002EB0: 2D 32 34 34 20 43 55 52 52 45 4E 54 20 2D 2D 20 |-244 CURRENT -- | 00002EC0: 49 46 20 59 4F 55 20 4E 45 45 44 20 54 48 45 4D |IF YOU NEED THEM| 00002ED0: 0D 54 4F 20 42 45 2E 0D 0D 20 20 20 20 20 20 20 |.TO BE... | 00002EE0: 20 20 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * *| 00002EF0: 20 2A 20 2A 0D 0D 20 20 20 20 CE 4F 57 20 59 4F | * *.. .OW YO| 00002F00: 55 20 48 41 56 45 20 54 48 45 20 42 55 49 4C 44 |U HAVE THE BUILD| 00002F10: 49 4E 47 20 42 4C 4F 43 4B 53 0D 46 4F 52 20 41 |ING BLOCKS.FOR A| 00002F20: 20 4C 41 52 47 45 20 CD CC 20 50 52 4F 47 52 41 | LARGE .. PROGRA| 00002F30: 4D 2E 20 20 D9 4F 55 20 48 41 56 45 0D 4D 55 4C |M. .OU HAVE.MUL| 00002F40: 54 49 50 4C 45 20 53 43 52 45 45 4E 20 53 54 4F |TIPLE SCREEN STO| 00002F50: 52 41 47 45 20 28 54 48 45 20 49 4C 4C 55 53 49 |RAGE (THE ILLUSI| 00002F60: 4F 4E 0D 4F 46 20 57 49 4E 44 4F 57 49 4E 47 29 |ON.OF WINDOWING)| 00002F70: 2C 20 41 20 4D 45 53 53 41 47 45 20 52 4F 55 54 |, A MESSAGE ROUT| 00002F80: 49 4E 45 20 54 48 41 54 0D 43 45 4E 54 45 52 53 |INE THAT.CENTERS| 00002F90: 20 41 4C 4C 20 4D 45 53 53 41 47 45 53 20 41 54 | ALL MESSAGES AT| 00002FA0: 20 54 48 45 20 42 4F 54 54 4F 4D 20 4F 46 0D 54 | THE BOTTOM OF.T| 00002FB0: 48 45 20 53 43 52 45 45 4E 2C 20 41 4E 44 20 43 |HE SCREEN, AND C| 00002FC0: 4F 4D 50 41 54 49 42 49 4C 49 54 59 20 57 49 54 |OMPATIBILITY WIT| 00002FD0: 48 0D 4F 4C 44 45 52 20 36 34 53 2E 20 20 CA 4F |H.OLDER 64S. .O| 00002FE0: 49 4E 20 4D 45 20 4E 45 58 54 20 4D 4F 4E 54 48 |IN ME NEXT MONTH| 00002FF0: 20 57 48 45 4E 0D C9 20 41 44 44 20 CD CC 20 C3 | WHEN.. ADD .. .| 00003000: D2 D3 D2 2F D2 C5 D4 D5 D2 CE 20 4D 45 4E 55 49 |.../...... MENUI| 00003010: 4E 47 20 54 4F 20 54 48 45 0D 50 4F 54 2E 20 20 |NG TO THE.POT. | 00003020: C9 54 27 53 20 4E 4F 54 20 41 53 20 48 41 52 44 |.T'S NOT AS HARD| 00003030: 20 41 53 20 59 4F 55 20 54 48 49 4E 4B 2E 0D 0D | AS YOU THINK...| 00003040: CA CC CA 0D 20 20 20 20 20 20 20 20 20 2A 2A 2A |.... ***| 00003050: 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A 2A |* .ND .F .EXT **| 00003060: 2A 0D |*. |
... BITS: GOODBYE TO MERE SUBROUTINES..
BY JEFFREY L. JONES... SPEED
SCRIPT AND THE WRITE STUFF.ARE TWO GREAT
WORD PROCESSORS, BOTH.100% ML. RON HAC
KLEY WROTE FUN.GRAPHICS MACHINE ALMOST E
NTIRELY IN.ML. I WROTE LETTERMEISTER AN
D.LOADSTAR BRIEFS ENTIRELY IN ML. GEOS.A
PPLICATIONS ARE WRITTEN ENTIRELY IN.ML.
RICK NASH WROTE COMVIEW, WITH.ALL ITS M
ENUS AND SUBMENUS, ENTIRELY.IN ML -- ON
AN IBM COMPUTER WITH A.6502 SIMULATOR...
NOT LONG AGO PEOPLE HAD TO HAVE A.SP
ECIAL REASON TO WRITE A 100% ML.PROGRAM.
WELL, ML IS NOT JUST FOR.LITTLE SUBROU
TINES THAT SUPPORT BASIC.ANYMORE. PEOPL
E ARE WRITING MAJOR.APPLICATIONS IN ML N
OW. HOW DO WE DO.IT? SIMPLE: WE BREAK
DOWN OUR LARGE.TASKS INTO SMALLER TASKS
THAT WE TAKE.CARE OF ONE AT A TIME... AP
PROACHING A LARGE ML TASK. -------------
--------------.. THE FIRST THING I DO
WHEN I CODE.IS SET UP THE SCREEN, THE M
AIN MENU..I MUST HAVE A LAUNCH POINT. S
INCE.THE MAIN MENU IS THE USER INTERFACE
,.THERE'S NO BETTER PLACE TO START..IT'S
ALSO A GOOD PLACE TO PLAN YOUR.PROGRAM.
A STRAIGHTFORWARD MAIN MENU.THAT SHOWS
THE MAIN FEATURES OF THE.PROGRAM ALMOST
ENSURES THAT YOU'LL.GET TO EVERYTHING,
AND WHEN YOU'RE.DONE, YOUR PROGRAM WILL
LACK FOR.NOTHING... THERE IS NO RULE
FOR HOW YOU.CREATE YOUR OPENING MENU. J
UST GET.IT THERE. I GENERALLY DON'T WOR
RY.ABOUT EFFICIENCY OR SLICKNESS AT THIS
.POINT. THE OPENING SCREEN IS LIKE.ARTW
ORK. AT THIS POINT ALL I'M DOING.IS PLE
ASING MY EYE... AFTER DESIGNING THE M
AIN MENU,.THE NEXT STEP IS FILLING IN TH
E CODE.FOR ALL THE ITEMS IN THE MENU. F
ROM.THE TOP ITEM TO THE BOTTOM ITEM ON.T
HE MENU, YOU MAKE THE MENU WORK BY.WRITI
NG THE CODE THAT SUPPORTS THE.MENU LABEL
, THEN TYING THAT CODE INTO.THE MENU KEY
BOARD LOOP, ALSO CALLED.THE MAIN GET LOO
P. THIS IS CALLED.TOP DOWN PROGRAMMING.
.. THE MAIN GET LOOP IS WHERE YOU.WAI
T FOR A KEYPRESS FOR ITEMS ON YOUR.MAIN
MENU. ANY OTHER GET LOOP (FOR.SUB MENUS
, ETC.) IS A LESSER GET LOOP.SINCE YOU C
AN ONLY GET TO IT AFTER.LEAVING THE MAIN
.GET.LOOP... SOMETIMES YOU HAVE TO WR
ITE.UNIVERSAL SUPPORT ROUTINES FIRST, SU
CH.AS SCREEN STASH AND MESSAGE PRINTERS.
.LET'S TAKE A LOOK AT A SUBROUTINE.THAT
CLEARS LINE 23 ON THE SCREEN,.THEN PRINT
S A CENTERED ONE-LINE.MESSAGE THERE. TH
E ONLY THING YOU'LL.HAVE TO DO IS TELL T
HE ROUTINE WHERE.THE STRING IS AND HOW M
ANY CHARACTERS.ARE IN IT. YOU WOULD CAL
L THE.ROUTINE LIKE THIS:... LDA <MESS
AGE. LDY >MESSAGE. LDX MESSAGE'LEN
GTH. JSR PRINT'MESSAGE.. THE STRIN
G SHOULD BE LOCATED IN.RAM. WITH A SYMB
OLIC ASSEMBLER SUCH.AS ROCK'S ASSEMBLER,
PUBLISHED ON.LOADSTAR #87, YOU'LL HAVE
NO TROUBLE.INCLUDING MESSAGES FOR ALL OC
CASIONS..YOU'LL BE ABLE TO CALL THE MESS
AGES.BY NAME. IF THAT'S ALL YOU HAVE TO
.DO TO PRINT A MESSAGE IN ML, YOU'D.FIND
YOURSELF SENDING MORE MESSAGES,.MAKING
YOUR PROGRAMS MORE FRIENDLY..NOW HERE IS
THE THE ROUTINE THAT.PRINTS GENERIC MES
SAGES:... PRINT'MESSAGE PHA ;STASH L
SB. TYA. PHA ;STASH MSB. STX
251.. LDA #208. JSR SCREEN'STASH;
STORE SCRN @208.. JSR LINX ;CLEAR LI
NE LINKS. LDX #23. JSR 59903;CLEAR
LINE #23. LDA #1. STA 646; CHANGE
CRSR TO WHITE.. LSR 251 ;DIVIDE LEN
GTH BY 2. LDA #20 ;CENTER OF SCREEN.
SEC. SBC 251. TAY. LDX #23.
CLC. JSR PLOT ;POSITION CURSOR..
PLA. TAY. PLA. JSR STROUT; $
AB1E PRINTS STRING. RTS... NOTE TH
AT THIS SUPPORT ROUTINE.USES OTHER SUPPO
RT ROUTINES,.SCREEN'STASH AND LINX. BOT
H ARE.EXPLAINED AND LISTED BELOW... L
INX IS A ROUTINE THAT CLEARS.LINE LINKS.
ANYTIME YOU WANT TO PLOT.TO A SPECIFIC
LINE ON A C-64, YOU.SHOULD CLEAR THE LI
NE LINKS FIRST..WHEN YOU PRINT TO THE RI
GHT EDGE OF.THE 40-COLUMN SCREEN, THE LI
NE YOU.WERE ON MAY BECOME "LINKED" TO TH
E.LINE BENEATH IT. THIS MEANS THAT.THER
E IS ONE LESS "LOGICAL LINE" ON.THE SCRE
EN THAN BEFORE. LINKED LINES.OFTEN CAUS
E PLOTTING PROBLEMS. YOU.AIM FOR LINE 1
0, BUT THE CURSOR.APPEARS TO LAND ON LIN
E 12. THIS IS.BECAUSE TWO LINES ABOVE L
INE 10 HAVE.BEEN LINKED BECAUSE OF 40TH
COLUMN.PRINTING... IF ONE LINE IS LIN
KED, YOU HAVE.LESS THAN 25 LOGICAL LINES
ON THE.SCREEN. IF MANY LINES ARE LINKE
D,.YOU MAY HAVE AS FEW AS 13 LOGICAL.LIN
ES. THIS CAN MAKE THE PLOT.ROUTINE INTO
A DANGEROUS TOOL. IF.YOUR SCREEN IS AT
$400, IT ENDS JUST.BEFORE $800. IF YOU
R LINES ARE.HEAVILY LINKED AND YOU TRY T
O PLOT TO.LINE 24, YOU'LL BE PLOTTING ST
RAIGHT.TO THE START OF YOUR PROGRAM OR.W
HATEVER YOU HAVE STORED AT $801..CHROUT
WILL BE PRINTING LITERALLY OFF.THE SCREE
N AND INTO YOUR PROGRAM,.ALTERING IT. L
IKEWISE YOUR COLOR.MEMORY WILL BE WRITTE
N BEYOND REAL.COLOR MEMORY TO THE KERNAL
AREA..THIS CAN BE DESTRUCTIVE IF YOU HA
VE.DATA STORED THERE... IF YOU NEVER
PRINT TO THE 40TH.COLUMN, YOU HAVE NOTHI
NG TO WORRY.ABOUT. YOU CAN CLEAR THE LI
NE LINKS.BY CLEARING THE SCREEN. IF YOU
CAN'T.CLEAR THE SCREEN, HERE IS THE SIM
PLE.CODE THAT CLEARS THE LINE LINKS:..
LINX LDY #24. LINX'LOOP LDA 217,Y.
ORA #128. STA 217,Y. DEY. BP
L LINX'LOOP. RTS... SCREEN.STASHING.
---------------.. ONCE THE MAIN SCREE
N IS UP ON THE.SCREEN, THE FIRST THING I
DO IS STASH.THE SCREEN SO THAT PRINTING
IT AGAIN.IS QUICK AND EASY. STASHING S
CREENS?.AW, IT'S EASY! STASHING AND RES
TORING.SCREENS IS A VERY IMPORTANT PART
OF.CODING. SOMETIMES YOU CAN'T SPARE.TH
E ROOM FOR A SNAPSHOT OF A PRISTINE.MAIN
MENU AND SUBSEQUENT TEMPORARY.SCREENS.
USUALLY THERE'S PLENTY OF.FREE MEMORY F
OR USE BENEATH THE ROMS.AND I/O, ESPECIA
LLY I/O ($D000-$DFFF)..GENERALLY I WORK
WITH TWO OR THREE.SCREEN AREAS... I S
TASH MY MAIN MENU, USUALLY.SOMEPLACE LIK
E $D000 OR $A000, AND I.STORE MOST OTHER
SCREENS AT $D400 OR.$B400. WHENEVER I
PRINT A MESSAGE, I.STORE THE CURRENT SCR
EEN, EVEN IF.IT'S THE MAIN SCREEN AT THE
SCREEN 2.LOCATION, THEN I PRINT THE MES
SAGE,.HANDLE INPUT FROM THE USER, THEN.R
ESTORE THE SCREEN THAT WAS STORED AT.SCR
EEN 2 ($D400 OR $B400)... THE FOLLOW
ING CODE WILL STORE.AND RESTORE THE CURR
ENT SCREEN ON ANY.PAGE IN THE C-64S MEMO
RY. THIS IS.RATHER FANCY CODE BECAUSE I
T WILL.STORE SCREENS ANYWHERE, EVEN IN T
HE.$D000-$DFFF AREA. MOST OTHER SCREEN.
STASHERS DON'T FOOL WITH THIS AREA..IF T
HE CODE SEEMS MORE COMPLICATED.THAN IT H
AS TO BE, IT'S TO.ACCOMMODATE STORAGE AN
D RETRIEVAL IN.THIS AREA... YOU MIGHT
NOTICE THAT I STORE A 0.AT LOCATION 1.
THIS ISN'T STANDARD.PROCEDURE. I COULD
HAVE STORED A $74.TO TURN OFF ALL ROM,
VIC AND SID.IMAGES, BUT STORING A ZERO M
AKES IT.EASIER TO FLIP ALL ROM ON AND OF
F.WITH A SIMPLE DEC 1 AND INC 1. DEC 1.
FROM A VALUE OF 0 AND YOU HAVE 255,.WHIC
H TURNS EVERYTHING BACK ON. NOTE.THE VI
C AND SID CHIP ARE OFTEN.REFERRED TO AS
THE "I/O AREA" SINCE.THEY HAVE TO BE SWI
TCHED IN DURING.ALL INPUT/OUTPUT, INCLUD
ING KEYBOARD,.DRIVES AND JOYSTICK...
THE REASON I'M INTERESTED IN.TOGGLING TH
E ROM IMAGE IS BECAUSE I.WANT TO BE ABLE
TO GET COLOR MEMORY.DATA FROM COLOR MEM
ORY, THEN STORE IT.ANYWHERE, WHICH MIGHT
BE RIGHT.BENEATH COLOR MEMORY. IF I/O
IS.SWITCHED OUT, I CAN'T PEEK COLOR.MEMO
RY. ROM HAS TO BE ON WHEN I READ.COLOR
MEMORY AND OFF WHEN I WRITE IT.-- IF I'M
STORING IT IN THE.$D000-$DFFF AREA. WH
ILE THIS METHOD.ALLOWS YOU TO STORE A SC
REEN.ANYWHERE, IT WON'T ALLOW YOU TO REA
D.A SCREEN THAT'S LOCATED BETWEEN.$A000-
$BFFF AND $D000-$FFFF. BUT.MOST PROGRAM
MERS DON'T LOCATE SCREEN.MEMORY HERE BEC
AUSE SOME KERNAL.ROUTINES DON'T SUPPORT
THEM IN THOSE.LOCATIONS, SO WE WON'T WOR
RY ABOUT.IT.... ;THIS ROUTINE STORES TH
E CURRENT. ;SCREEN ON THE PAGE REFERENC
ED BY. ;THE ACCUMULATOR... SCREEN'STAS
H STA 252. CMP >1024; DON'T STORE BELO
W $400. BCS +. RTS.. + CLC. ADC #4
;SET UP STORAGE FOR COLOR. STA 254 ;WHI
CH IS STORED. LDA #0 ;JUST AFTER THE E
ND OF. STA 253 ;SCREEN DATA, WHICH TAKE
S 4. STA 251 ;PAGES.. LDA #HOME. JSR
CHROUT; PRINT HOME, WHICH SETS.
; UP SCREEN POINTERS AT. ;
209 AND 243.. JSR OLD'ROM'PATCH; WELL,
MAYBE NOT. ; ON ALL C
-64'S.. SEI ;TURN OFF INTERRUPTS.
LDA #0. STA 1 ;TURN OFF ALL ROM IMAGE
S.. LDX #3 ;SET COUNTER FOR FOUR PAGES
. LDY #0. - LDA (209),Y ;GET SCREEN DA
TA. STA (251),Y ;STORE SCREEN DATA.
DEC 1 ;TURN ON COLOR MEMORY. LD
A (243),Y ;GET COLOR DATA. INC 1
;ALL ROM OFF AGAIN. STA (253),Y ;
STORE COLOR DATA. INY ;INCREM
ENT FOR 1 PAGE. BNE -. INC 210 ;INC
REMENT. INC 252 ;HIGH BYTE. INC 244
;OF ALL. INC 254 ;POINTERS. DEX
;DECREMENT PAGE COUNTER. BPL -
;IF LESS THAN ZERO, CONT. DEC 254
;BACK UP. LDY #233 ;POSITION JUST
BEYOND. ;LAST COLOR. DEC 1
;ON WITH THE VIC CHIP. LDA 53280
;GET BORDER COLOR. INC 1 ;OFF WITH
VIC CHIP. STA (253),Y;STORE BORDER. I
NY. DEC 1 ;ON WITH VIC CHIP. LDA
53281 ;GET BACKGROUND COLOR. INC 1
;OFF WITH VIC CHIP. STA (253),Y;STORE
BACKGROUND. LDA #$77. STA 1; ;ROM
S BACK TO NORMAL. CLI ;INTERRUPT
S BACK ON. LDA #HOME. JSR CHROUT. RTS
.. * * * * * * * * * *.. ;ACCUM
ULATOR POINTS TO PAGE TO. ;RESTORE FROM
.. SCREEN'RESTORE LDA STA 252. CLC. A
DC #4 ;SET COLOR POINTER. STA 254. L
DA #0. STA 253. STA 251.. LDA #HOME.
JSR CHROUT ;SETUP SCREEN/COLOR. JSR OL
D'ROM'PATCH. SEI. LDA #0 ;OFF WITH RO
MS. STA 1.. LDX #3. LDY #0.. - LDA (
251),Y ;GET SCREEN DATA. STA (209),Y
;RESTORE SCREEN. LDA (253),Y ;G
ET COLOR DATA. DEC 1 ;ON WITH
COLOR MEM. STA (243),Y ;STORE IN C
OLOR MEM. INC 1 ;OFF WITH ROM
. INY. BNE -. INC 210. INC 252. INC
244. INC 254. DEX. BPL -. DEC 254.
LDY #233. LDA (253),Y ;GET BORDER.
DEC 1. STA 53280. INY. INC 1. LDA (
253),Y ;GET BACKGROUND. DEC 1. STA
53281.. LDA #$77. STA 1. CLI. JMP 58
732... NORMALLY LOCATIONS 243-244 POI
NT.TO THE COLOR MEMORY OF THE LINE WHERE
.THE CURSOR IS. THE WAY THIS WORKS.OUT
IS THAT LOCATION 209 AND 210.ALWAYS POIN
T TO THE FIRST BYTE OF THE.ROW THAT THE
CURSOR IS ON. SO IF THE.CURSOR IS ON RO
W 1 OF A NORMAL SCREEN.(THE SECOND LINE)
, LOCATION 209 WOULD.CONTAIN THE LSB OF
(1024+40)..LOCATION 210 WILL CONTAIN THE
MSB OF.(1024+40). NO MATTER WHERE THE.
CURSOR IS ON THE LINE, THIS POINTER.STAY
S THE SAME. IT DOESN'T CHANGE.UNTIL THE
CURSOR MOVES TO THE NEXT.LOGICAL ROW...
ON MOST "NORMAL" C-64S THIS IS.TRUE
FOR THE COLOR MEMORY POINTERS,.243-244,
AS WELL. SO IF THE CURSOR.IS ON ROW 1 O
F ANY SCREEN (THE SECOND.LINE), LOCATION
243 WOULD CONTAIN THE.LSB OF (55296+40)
. LOCATION 244 WILL.CONTAIN THE MSB OF
(55296+40). NO.MATTER WHERE THE CURSOR
IS ON THE.LINE, THIS POINTER STAYS THE S
AME..IT DOESN'T CHANGE UNTIL THE CURSOR.
MOVES TO THE NEXT LOGICAL ROW... BUT
ALL C-64S ARE NOT CREATED.EQUAL. THE CO
LOR MEMORY POINTERS IN.THE OLDER C-64S D
ON'T UPDATE THE THE.COLOR MEMORY POINTER
S UNTIL A.CHARACTER IS ACTUALLY PRINTED
ON THE.SCREEN. SO YOU CAN PLOT THE CURS
OR.ANYWHERE ON THE SCREEN AND THE COLOR.
POINTERS STAY THE WAY THEY WERE.BEFORE U
NTIL YOU ACTUALLY ALTER THE.SCREEN WITH
PRINT OR CHROUT. POKEING.THE SCREEN DOE
SN'T COUNT. SOMETIMES.YOU CAN'T DO THIS
. NOT EVEN A SPACE..IN OUR SCREEN STASH
ROUTINE, WE.DON'T WANT TO ALTER THE SCR
EEN. WE.JUST WANT TO STORE IT... USI
NG COLOR POINTERS IS VERY.HELPFUL FOR PR
INTING HIGHLIGHT BARS.AND COLORING SECTI
ONS OF THE SCREEN.WITHOUT ALL THE MATH A
ND STRINGS THAT.MIGHT OTHERWISE BE A PAR
T OF THE.PROCESS. SO WHENEVER I DEPEND
ON.LOCATIONS 243 AND 244 TO BE ACCURATE,
.I JSR TO THE FOLLOWING ROUTINE:... OLD
'ROM'PATCH LDA 210. SEC. SBC 648. CLC
. ADC #$D8. STA 244. LDA 209. STA 24
3. RTS.. THIS PATCH MAKES ALL C-64S
EQUAL,.COLORWISE. YOU'D THINK THAT MOST
.COMPUTERS WITH OLD ROMS WOULD BE ON.THE
SCRAP HEAP BY NOW. WELL, WE HAVE.AT LE
AST FIVE SUBSCRIBERS WHO'VE HAD.REAL PRO
BLEMS WITH OUR COPIER,.LETTERMEISTER, IN
STANT MENU, INSTANT.PROGRAM, SCROLL.O, P
RINT BIG, AND.SOME OTHER PROGRAMS BECAUS
E THEIR.PRECAMBRIAN C-64S ARE STILL KICK
ING..THE ADDITION OF A JSR TO THIS SIMPL
E.OLD ROM PATCH EVERY TIME THE CURSOR.CH
ANGES A LINE OR AFTER A PLOT OR.AFTER A
HOME/CLR WILL KEEP LOCATIONS.243-244 CUR
RENT -- IF YOU NEED THEM.TO BE...
* * * * * * * * *.. NOW YOU HAVE T
HE BUILDING BLOCKS.FOR A LARGE ML PROGRA
M. YOU HAVE.MULTIPLE SCREEN STORAGE (TH
E ILLUSION.OF WINDOWING), A MESSAGE ROUT
INE THAT.CENTERS ALL MESSAGES AT THE BOT
TOM OF.THE SCREEN, AND COMPATIBILITY WIT
H.OLDER 64S. JOIN ME NEXT MONTH WHEN.I
ADD ML CRSR/RETURN MENUING TO THE.POT.
IT'S NOT AS HARD AS YOU THINK...JLJ.
**** END OF TEXT ***.
> CLICK IMAGE PREVIEW FOR FULL MODAL