TIPS
FILE INFORMATION
FILENAME(S): TIPS
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-10-19 22:49:26
APPEARS ON: 1 disk(s)
FILE HASH
46b3a50db84d4c05fb51ab50f087e745dc4887af0d20f987c05ad0fae8750353
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 3 | TIPS | PRG | Radd Maxx | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 0A 00 8F 20 28 43 29 20 47 4F 4C 44 |....... (C) GOLD|
00000010: 20 44 49 53 4B 00 38 08 14 00 97 20 35 33 32 38 | DISK.8.... 5328|
00000020: 31 2C 30 3A 20 97 20 35 33 32 38 30 2C 30 3A 20 |1,0: . 53280,0: |
00000030: 51 24 B2 C7 28 33 34 29 00 76 08 1E 00 99 20 C7 |Q$..(34).v.... .|
00000040: 28 31 34 29 3B C7 28 38 29 3B 22 93 05 12 20 D0 |(14);.(8);"... .|
00000050: 20 52 20 4F 20 47 20 52 20 41 20 4D 20 4D 20 45 | R O G R A M M E|
00000060: 20 52 20 27 20 53 20 20 20 C3 20 4F 20 52 20 4E | R ' S . O R N|
00000070: 20 45 20 52 20 22 00 A7 08 28 00 99 22 11 11 D4 | E R "...(.."...|
00000080: 48 45 20 48 41 4E 44 4C 49 4E 47 20 4F 46 20 54 |HE HANDLING OF T|
00000090: 48 45 20 4B 45 59 42 4F 41 52 44 20 49 53 20 44 |HE KEYBOARD IS D|
000000A0: 4F 4E 45 20 42 59 22 00 D7 08 32 00 99 22 54 48 |ONE BY"...2.."TH|
000000B0: 45 20 49 4E 54 45 52 52 55 50 54 20 41 4E 44 20 |E INTERRUPT AND |
000000C0: 4B 45 52 4E 41 4C 20 52 4F 55 54 49 4E 45 53 20 |KERNAL ROUTINES |
000000D0: 4F 4E 20 54 48 45 22 00 FF 08 3C 00 99 22 91 C3 |ON THE"...<.."..|
000000E0: 36 34 2E 20 20 D4 48 45 53 45 20 52 4F 55 54 49 |64. .HESE ROUTI|
000000F0: 4E 45 53 20 55 53 45 20 4D 45 4D 4F 52 59 22 00 |NES USE MEMORY".|
00000100: 2A 09 46 00 99 22 4C 4F 43 41 54 49 4F 4E 53 20 |*.F.."LOCATIONS |
00000110: 4F 55 53 49 44 45 20 4F 46 20 C2 C1 D3 C9 C3 20 |OUSIDE OF ..... |
00000120: 53 50 41 43 45 20 46 4F 52 22 00 5A 09 50 00 99 |SPACE FOR".Z.P..|
00000130: 22 56 41 52 49 41 42 4C 45 53 20 41 4E 44 20 50 |"VARIABLES AND P|
00000140: 41 52 41 4D 45 54 45 52 53 2E 20 20 CB 4E 4F 57 |ARAMETERS. .NOW|
00000150: 49 4E 47 20 54 48 49 53 2C 22 00 89 09 5A 00 99 |ING THIS,"...Z..|
00000160: 22 91 57 45 20 43 41 4E 20 53 45 54 20 54 48 45 |".WE CAN SET THE|
00000170: 53 45 20 50 41 52 41 4D 45 54 45 52 53 20 54 4F |SE PARAMETERS TO|
00000180: 20 50 52 4F 44 55 43 45 22 00 A1 09 64 00 99 22 | PRODUCE"...d.."|
00000190: 44 45 53 49 52 45 44 20 45 46 46 45 43 54 53 2E |DESIRED EFFECTS.|
000001A0: 22 00 BE 09 6E 00 99 22 11 CD 4F 52 45 20 49 4E |"...n.."..ORE IN|
000001B0: 46 4F 52 4D 41 54 49 4F 4E 20 4F 4E 3A 22 00 E0 |FORMATION ON:"..|
000001C0: 09 78 00 99 22 11 20 20 20 12 20 31 20 92 20 20 |.x..". . 1 . |
000001D0: CB 45 59 42 4F 41 52 44 20 C2 55 46 46 45 52 22 |.EYBOARD .UFFER"|
000001E0: 00 01 0A 82 00 99 22 11 20 20 20 12 20 32 20 92 |......". . 2 .|
000001F0: 20 20 D2 45 50 45 41 54 49 4E 47 20 CB 45 59 53 | .EPEATING .EYS|
00000200: 22 00 25 0A 8C 00 99 22 11 20 20 20 12 20 33 20 |".%....". . 3 |
00000210: 92 20 20 D3 45 4E 53 49 4E 47 20 CD 4F 44 49 46 |. .ENSING .ODIF|
00000220: 49 45 52 53 22 00 51 0A 96 00 99 22 11 20 20 20 |IERS".Q....". |
00000230: 12 20 34 20 92 20 20 C3 48 41 52 41 43 54 45 52 |. 4 . .HARACTER|
00000240: 20 53 45 54 20 53 57 49 54 43 48 20 46 4C 41 47 | SET SWITCH FLAG|
00000250: 22 00 7F 0A A0 00 99 22 11 11 D0 52 45 53 53 20 |"......"...RESS |
00000260: 31 2C 20 32 2C 20 33 2C 20 34 2C 20 4F 52 20 3C |1, 2, 3, 4, OR <|
00000270: 5F 3E 20 46 4F 52 20 C7 C4 20 CD 45 4E 55 22 00 |_> FOR .. .ENU".|
00000280: 9A 0A AA 00 A1 20 49 4E 24 3A 20 8B 20 49 4E 24 |..... IN$: . IN$|
00000290: B2 22 5F 22 A7 20 31 39 30 30 00 B8 0A B4 00 8B |."_". 1900......|
000002A0: 20 49 4E 24 B3 22 31 22 20 B0 20 49 4E 24 B1 22 | IN$."1" . IN$."|
000002B0: 34 22 20 A7 20 31 37 30 00 DA 0A BE 00 91 20 C5 |4" . 170...... .|
000002C0: 28 49 4E 24 29 20 89 20 32 30 30 2C 31 30 35 30 |(IN$) . 200,1050|
000002D0: 2C 31 34 35 30 2C 31 36 39 30 00 F8 0A C8 00 99 |,1450,1690......|
000002E0: 22 93 12 20 31 2E 20 CB 45 59 42 4F 41 52 44 20 |".. 1. .EYBOARD |
000002F0: C2 55 46 46 45 52 20 22 00 26 0B D2 00 99 22 11 |.UFFER ".&....".|
00000300: 11 D4 48 45 20 C3 36 34 20 43 4F 4E 54 49 4E 55 |..HE .64 CONTINU|
00000310: 41 4C 4C 59 20 4D 4F 4E 49 54 4F 52 53 20 54 48 |ALLY MONITORS TH|
00000320: 45 20 4B 45 59 22 00 50 0B DC 00 99 22 42 4F 41 |E KEY".P...."BOA|
00000330: 52 44 20 41 4E 44 20 43 52 45 41 54 45 53 20 41 |RD AND CREATES A|
00000340: 4E 20 42 55 46 46 45 52 20 4F 46 20 55 4E 2D 22 |N BUFFER OF UN-"|
00000350: 00 7B 0B E6 00 99 22 50 52 4F 43 45 53 53 45 44 |.{...."PROCESSED|
00000360: 20 49 4E 50 55 54 2E 20 20 D4 48 45 20 C7 C5 D4 | INPUT. .HE ...|
00000370: 20 41 4E 44 20 C9 CE D0 D5 D4 22 00 A8 0B F0 00 | AND .....".....|
00000380: 99 22 C2 C1 D3 C9 C3 20 53 54 41 54 45 4D 45 4E |."..... STATEMEN|
00000390: 54 53 20 47 45 54 20 54 48 45 49 52 20 49 4E 50 |TS GET THEIR INP|
000003A0: 55 54 20 46 52 4F 4D 22 00 BC 0B FA 00 99 22 54 |UT FROM"......"T|
000003B0: 48 49 53 20 42 55 46 46 45 52 2E 22 00 E8 0B 04 |HIS BUFFER."....|
000003C0: 01 99 22 11 D4 48 45 20 49 4D 50 4F 52 54 41 4E |.."..HE IMPORTAN|
000003D0: 54 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F |T MEMORY LOCATIO|
000003E0: 4E 53 20 41 52 45 3A 22 00 15 0C 0E 01 99 22 11 |NS ARE:"......".|
000003F0: 4C 4F 43 20 31 39 38 3A 20 20 43 4F 4E 54 41 49 |LOC 198: CONTAI|
00000400: 4E 53 20 54 48 45 20 43 55 52 52 45 4E 54 20 C3 |NS THE CURRENT .|
00000410: CF D5 CE D4 22 00 43 0C 18 01 99 22 20 20 20 20 |....".C...." |
00000420: 20 20 20 20 20 20 4F 46 20 55 4E 50 52 4F 43 45 | OF UNPROCE|
00000430: 53 53 45 44 20 43 48 41 52 41 43 54 45 52 53 20 |SSED CHARACTERS |
00000440: 49 4E 22 00 5F 0C 22 01 99 22 20 20 20 20 20 20 |IN"._.".." |
00000450: 20 20 20 20 54 48 45 20 42 55 46 46 45 52 22 00 | THE BUFFER".|
00000460: 8A 0C 2C 01 99 22 11 4C 4F 43 20 36 33 31 2D 36 |..,..".LOC 631-6|
00000470: 34 30 3A 20 20 49 53 20 54 48 45 20 41 43 54 55 |40: IS THE ACTU|
00000480: 41 4C 20 42 55 46 46 45 52 22 00 B7 0C 36 01 99 |AL BUFFER"...6..|
00000490: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F |" O|
000004A0: 46 20 C3 36 34 20 C1 D3 C3 C9 C9 20 43 48 41 52 |F .64 ..... CHAR|
000004B0: 41 43 54 45 52 53 22 00 DC 0C 40 01 99 22 20 20 |ACTERS"...@.." |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 54 4F 20 42 | TO B|
000004D0: 45 20 50 52 4F 43 45 53 53 45 44 22 00 0B 0D 4A |E PROCESSED"...J|
000004E0: 01 99 22 11 4C 4F 43 20 36 34 39 3A 20 20 C3 4F |..".LOC 649: .O|
000004F0: 4E 54 41 49 4E 53 20 54 48 45 20 CD 41 58 20 C2 |NTAINS THE .AX .|
00000500: 55 46 46 45 52 20 53 49 5A 45 22 00 16 0D 54 01 |UFFER SIZE"...T.|
00000510: 8D 20 31 38 35 30 00 28 0D 5E 01 8B 20 49 4E 24 |. 1850.(.^.. IN$|
00000520: B2 22 5E 22 A7 20 33 30 00 46 0D 68 01 99 22 93 |."^". 30.F.h..".|
00000530: 12 20 31 2E 20 CB 45 59 42 4F 41 52 44 20 C2 55 |. 1. .EYBOARD .U|
00000540: 46 46 45 52 20 22 00 6D 0D 72 01 99 22 11 11 C3 |FFER ".m.r.."...|
00000550: 4C 45 41 52 49 4E 47 20 54 48 45 20 CB 45 59 42 |LEARING THE .EYB|
00000560: 4F 41 52 44 20 C2 55 46 46 45 52 3A 22 00 9A 0D |OARD .UFFER:"...|
00000570: 7C 01 99 22 11 11 CF 4E 45 20 4F 46 20 54 48 45 ||.."...NE OF THE|
00000580: 20 43 4F 4D 4D 4F 4E 20 57 41 59 53 20 54 4F 20 | COMMON WAYS TO |
00000590: 43 4C 45 41 52 20 54 48 45 22 00 C0 0D 86 01 99 |CLEAR THE"......|
000005A0: 22 54 48 45 20 4B 45 59 42 4F 41 52 44 20 42 55 |"THE KEYBOARD BU|
000005B0: 46 46 45 52 20 49 53 20 54 4F 20 55 53 45 3A 22 |FFER IS TO USE:"|
000005C0: 00 EE 0D 90 01 99 22 11 20 20 31 30 20 C7 C5 D4 |......". 10 ...|
000005D0: 20 C1 24 3A 20 C9 C6 20 C1 24 3C 3E 22 3B 51 24 | .$: .. .$<>";Q$|
000005E0: 3B 51 24 3B 22 20 D4 C8 C5 CE 20 31 30 22 00 15 |;Q$;" .... 10"..|
000005F0: 0E 9A 01 99 22 11 11 C1 4E 20 45 41 53 49 45 52 |...."...N EASIER|
00000600: 20 41 4E 44 20 51 55 49 43 4B 45 52 20 57 41 59 | AND QUICKER WAY|
00000610: 20 49 53 3A 22 00 2D 0E A4 01 99 22 11 20 20 31 | IS:".-....". 1|
00000620: 30 20 D0 CF CB C5 20 31 39 38 2C 30 22 00 59 0E |0 .... 198,0".Y.|
00000630: AE 01 99 22 11 D9 4F 55 20 53 49 4D 50 4C 59 20 |..."..OU SIMPLY |
00000640: 43 48 41 4E 47 45 20 54 48 45 20 43 55 52 52 45 |CHANGE THE CURRE|
00000650: 4E 54 20 C3 CF D5 CE D4 22 00 7E 0E B8 01 99 22 |NT .....".~...."|
00000660: 4F 46 20 55 4E 50 52 4F 43 45 53 53 45 44 20 49 |OF UNPROCESSED I|
00000670: 4E 50 55 54 20 54 4F 20 5A 45 52 4F 2E 22 00 89 |NPUT TO ZERO."..|
00000680: 0E C2 01 8D 20 31 38 35 30 00 9C 0E CC 01 8B 20 |.... 1850...... |
00000690: 49 4E 24 B2 22 5E 22 A7 20 32 30 30 00 BB 0E D6 |IN$."^". 200....|
000006A0: 01 99 20 22 93 12 20 31 2E 20 CB 45 59 42 4F 41 |.. ".. 1. .EYBOA|
000006B0: 52 44 20 C2 55 46 46 45 52 20 22 00 E6 0E E0 01 |RD .UFFER ".....|
000006C0: 99 22 11 11 C1 4E 4F 54 48 45 52 20 54 48 49 4E |."...NOTHER THIN|
000006D0: 47 20 59 4F 55 20 43 41 4E 20 44 4F 20 57 49 54 |G YOU CAN DO WIT|
000006E0: 48 20 54 48 45 22 00 0F 0F EA 01 99 22 4B 45 59 |H THE"......"KEY|
000006F0: 42 4F 41 52 44 20 42 55 46 46 45 52 20 49 53 20 |BOARD BUFFER IS |
00000700: 54 4F 20 50 52 4F 47 52 41 4D 20 49 54 2E 22 00 |TO PROGRAM IT.".|
00000710: 3E 0F F4 01 99 22 C3 48 41 52 41 43 54 45 52 53 |>....".HARACTERS|
00000720: 20 43 41 4E 20 42 45 20 50 4F 4B 45 44 20 49 4E | CAN BE POKED IN|
00000730: 54 4F 20 54 48 45 20 42 55 46 46 45 52 22 00 6B |TO THE BUFFER".k|
00000740: 0F FE 01 99 22 42 45 20 55 53 45 44 20 42 59 20 |...."BE USED BY |
00000750: C2 C1 D3 C9 C3 27 53 20 C9 CE D0 D5 D4 2C 20 C7 |.....'S ....., .|
00000760: C5 D4 20 4F 52 20 45 56 45 4E 22 00 9A 0F 08 02 |.. OR EVEN".....|
00000770: 99 22 54 48 45 20 53 59 53 54 45 4D 20 49 54 53 |."THE SYSTEM ITS|
00000780: 45 4C 46 20 28 41 46 54 45 52 20 59 4F 55 20 47 |ELF (AFTER YOU G|
00000790: 45 54 20 4F 55 54 20 4F 46 22 00 A8 0F 12 02 99 |ET OUT OF"......|
000007A0: 22 C2 C1 D3 C9 C3 29 22 00 D0 0F 1C 02 99 22 11 |".....)"......".|
000007B0: C3 4F 4E 53 49 44 45 52 20 54 48 45 20 46 4F 4C |.ONSIDER THE FOL|
000007C0: 4C 4F 57 49 4E 47 20 45 58 41 4D 50 4C 45 3A 22 |LOWING EXAMPLE:"|
000007D0: 00 03 10 26 02 99 22 11 20 20 20 32 30 20 C9 CE |...&..". 20 ..|
000007E0: D0 D5 D4 22 3B 51 24 3B 22 45 4E 54 45 52 20 53 |...";Q$;"ENTER S|
000007F0: 4F 4D 45 54 48 49 4E 47 20 22 3B 51 24 3B 22 3B |OMETHING ";Q$;";|
00000800: C1 24 22 00 31 10 30 02 99 22 20 20 20 33 30 20 |.$".1.0.." 30 |
00000810: D0 D2 C9 CE D4 20 22 3B 51 24 3B 22 49 4E 50 55 |..... ";Q$;"INPU|
00000820: 54 20 57 41 53 3A 20 22 3B 51 24 3B 22 3B C1 24 |T WAS: ";Q$;";.$|
00000830: 22 00 54 10 3A 02 99 22 11 CC 45 54 20 52 55 4E |".T.:.."..ET RUN|
00000840: 20 54 48 45 20 41 42 4F 56 45 20 45 58 41 4D 50 | THE ABOVE EXAMP|
00000850: 4C 45 2E 22 00 83 10 44 02 99 22 11 D0 4C 45 41 |LE."...D.."..LEA|
00000860: 53 45 20 54 59 50 45 20 41 20 53 4F 4D 45 54 48 |SE TYPE A SOMETH|
00000870: 49 4E 47 20 57 49 54 48 20 C3 CF CD CD C1 D3 20 |ING WITH ...... |
00000880: 49 4E 22 00 AC 10 4E 02 99 22 49 54 20 46 4F 4C |IN"...N.."IT FOL|
00000890: 4C 4F 57 45 44 20 42 59 20 54 48 45 20 12 20 D2 |LOWED BY THE . .|
000008A0: 45 54 55 52 4E 20 92 20 4B 45 59 22 00 CE 10 58 |ETURN . KEY"...X|
000008B0: 02 41 24 B2 22 22 3A 85 22 11 45 4E 54 45 52 20 |.A$."":.".ENTER |
000008C0: 53 4F 4D 45 54 48 49 4E 47 20 22 3B 41 24 00 E8 |SOMETHING ";A$..|
000008D0: 10 62 02 99 22 49 4E 50 55 54 20 57 41 53 3A 20 |.b.."INPUT WAS: |
000008E0: 22 3B 41 24 3B 22 11 22 00 F3 10 6C 02 8D 20 31 |";A$;"."...l.. 1|
000008F0: 38 35 30 00 07 11 76 02 8B 20 49 4E 24 B2 22 5E |850...v.. IN$."^|
00000900: 22 20 A7 20 33 36 30 00 26 11 80 02 99 20 22 93 |" . 360.&.... ".|
00000910: 12 20 31 2E 20 CB 45 59 42 4F 41 52 44 20 C2 55 |. 1. .EYBOARD .U|
00000920: 46 46 45 52 20 22 00 52 11 8A 02 99 22 11 11 CE |FFER ".R...."...|
00000930: 4F 54 49 43 45 20 54 48 45 52 45 20 57 41 53 20 |OTICE THERE WAS |
00000940: 41 4E 20 45 52 52 4F 52 20 4D 45 53 53 41 47 45 |AN ERROR MESSAGE|
00000950: 3A 22 00 69 11 94 02 99 22 11 3F 45 58 54 52 41 |:".i....".?EXTRA|
00000960: 20 49 47 4E 4F 52 45 44 22 00 97 11 9E 02 99 22 | IGNORED"......"|
00000970: 11 41 4E 44 20 4F 4E 4C 59 20 54 48 45 20 49 4E |.AND ONLY THE IN|
00000980: 50 55 54 20 54 4F 20 54 48 45 20 46 49 52 53 54 |PUT TO THE FIRST|
00000990: 20 43 4F 4D 4D 41 22 00 B9 11 A8 02 99 22 57 41 | COMMA"......"WA|
000009A0: 53 20 50 41 53 53 45 44 20 54 4F 20 54 48 45 20 |S PASSED TO THE |
000009B0: 50 52 4F 47 52 41 4D 2E 22 00 E6 11 B2 02 99 22 |PROGRAM."......"|
000009C0: 11 D4 4F 20 41 56 4F 49 44 20 54 48 49 53 2C 20 |..O AVOID THIS, |
000009D0: 57 45 20 43 41 4E 20 49 4E 50 55 54 20 4F 55 52 |WE CAN INPUT OUR|
000009E0: 20 54 45 58 54 22 00 14 12 BC 02 99 22 41 4E 44 | TEXT"......"AND|
000009F0: 20 50 55 54 20 51 55 4F 54 45 53 20 28 22 3B 51 | PUT QUOTES (";Q|
00000A00: 24 3B 22 29 20 41 52 4F 55 4E 44 20 49 54 2C 20 |$;") AROUND IT, |
00000A10: 42 55 54 22 00 3A 12 C6 02 99 22 54 48 49 53 20 |BUT".:...."THIS |
00000A20: 44 4F 45 53 20 47 45 54 20 41 20 4C 49 54 54 4C |DOES GET A LITTL|
00000A30: 45 20 43 4C 55 4D 53 59 2E 22 00 5C 12 D0 02 99 |E CLUMSY.".\....|
00000A40: 22 11 D4 48 45 52 45 20 C9 D3 20 41 20 42 45 54 |"..HERE .. A BET|
00000A50: 54 45 52 20 57 41 59 2E 2E 2E 2E 22 00 89 12 DA |TER WAY...."....|
00000A60: 02 99 22 11 D7 45 20 43 41 4E 20 48 41 56 45 20 |.."..E CAN HAVE |
00000A70: 54 48 45 20 43 4F 4D 50 55 54 45 52 20 50 55 54 |THE COMPUTER PUT|
00000A80: 20 41 20 51 55 4F 54 45 22 00 A3 12 E4 02 99 22 | A QUOTE"......"|
00000A90: 42 45 46 4F 52 45 20 4F 55 52 20 49 4E 50 55 54 |BEFORE OUR INPUT|
00000AA0: 20 21 22 00 AE 12 EE 02 8D 20 31 38 35 30 00 C1 | !"...... 1850..|
00000AB0: 12 F8 02 8B 20 49 4E 24 B2 22 5E 22 A7 20 34 37 |.... IN$."^". 47|
00000AC0: 30 00 DF 12 02 03 99 22 93 12 20 31 2E 20 CB 45 |0......".. 1. .E|
00000AD0: 59 42 4F 41 52 44 20 C2 55 46 46 45 52 20 22 00 |YBOARD .UFFER ".|
00000AE0: 08 13 0C 03 99 22 11 11 C3 4F 4E 53 49 44 45 52 |....."...ONSIDER|
00000AF0: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 50 | THE FOLLOWING P|
00000B00: 52 4F 47 52 41 4D 3A 22 00 37 13 16 03 99 22 11 |ROGRAM:".7....".|
00000B10: 20 20 20 31 30 20 D0 CF CB C5 36 33 31 2C 33 34 | 10 ....631,34|
00000B20: 3A D0 CF CB C5 36 33 32 2C 33 34 3A D0 CF CB C5 |:....632,34:....|
00000B30: 36 33 33 2C 32 30 22 00 4F 13 20 03 99 22 20 20 |633,20".O. .." |
00000B40: 20 31 35 20 D0 CF CB C5 20 31 39 38 2C 33 22 00 | 15 .... 198,3".|
00000B50: 81 13 2A 03 99 22 20 20 20 32 30 20 C9 CE D0 D5 |..*.." 20 ....|
00000B60: D4 22 3B 51 24 3B 22 45 4E 54 45 52 20 53 4F 4D |.";Q$;"ENTER SOM|
00000B70: 45 54 48 49 4E 47 20 22 3B 51 24 3B 22 3B C1 24 |ETHING ";Q$;";.$|
00000B80: 22 00 AF 13 34 03 99 22 20 20 20 33 30 20 D0 D2 |"...4.." 30 ..|
00000B90: C9 CE D4 20 22 3B 51 24 3B 22 49 4E 50 55 54 20 |... ";Q$;"INPUT |
00000BA0: 57 41 53 3A 20 22 3B 51 24 3B 22 3B C1 24 22 00 |WAS: ";Q$;";.$".|
00000BB0: DE 13 3E 03 99 22 11 C9 54 53 20 54 48 45 20 53 |..>.."..TS THE S|
00000BC0: 41 4D 45 20 50 52 4F 47 52 41 4D 20 57 49 54 48 |AME PROGRAM WITH|
00000BD0: 20 32 20 51 55 4F 54 45 53 20 41 4E 44 22 00 08 | 2 QUOTES AND"..|
00000BE0: 14 48 03 99 22 41 20 44 45 4C 45 54 45 20 49 4E |.H.."A DELETE IN|
00000BF0: 53 45 52 54 45 44 20 49 4E 54 4F 20 54 48 45 20 |SERTED INTO THE |
00000C00: 42 55 46 46 45 52 2E 22 00 34 14 52 03 99 22 CE |BUFFER.".4.R..".|
00000C10: 4F 54 49 43 45 20 54 48 45 20 42 55 46 46 45 52 |OTICE THE BUFFER|
00000C20: 20 43 4F 55 4E 54 20 28 4C 4F 43 20 31 39 38 29 | COUNT (LOC 198)|
00000C30: 20 49 53 22 00 45 14 5C 03 99 22 53 45 54 20 54 | IS".E.\.."SET T|
00000C40: 4F 20 33 2E 22 00 71 14 66 03 99 22 11 D4 48 45 |O 3.".q.f.."..HE|
00000C50: 20 46 49 52 53 54 20 51 55 4F 54 45 20 49 53 20 | FIRST QUOTE IS |
00000C60: 49 4E 53 45 52 54 45 44 20 41 53 20 50 41 52 54 |INSERTED AS PART|
00000C70: 22 00 9C 14 70 03 99 22 4F 46 20 4F 55 52 20 49 |"...p.."OF OUR I|
00000C80: 4E 50 55 54 2E 20 20 D4 48 45 20 53 45 43 4F 4E |NPUT. .HE SECON|
00000C90: 44 20 51 55 4F 54 45 20 41 4E 44 22 00 CB 14 7A |D QUOTE AND"...z|
00000CA0: 03 99 22 44 45 4C 45 54 45 20 43 48 41 52 41 43 |.."DELETE CHARAC|
00000CB0: 54 45 52 20 54 41 4B 45 53 20 54 48 45 20 49 4E |TER TAKES THE IN|
00000CC0: 50 55 54 20 CF D5 D4 20 4F 46 22 00 DE 14 84 03 |PUT ... OF".....|
00000CD0: 99 22 51 55 4F 54 45 20 4D 4F 44 45 2E 22 00 0D |."QUOTE MODE."..|
00000CE0: 15 8E 03 99 20 22 11 D0 52 45 53 53 20 12 53 50 |.... "..RESS .SP|
00000CF0: 41 43 45 92 20 54 4F 20 45 58 45 43 55 54 45 20 |ACE. TO EXECUTE |
00000D00: 54 48 49 53 20 50 52 4F 47 52 41 4D 22 00 18 15 |THIS PROGRAM"...|
00000D10: 98 03 8D 20 31 38 35 30 00 2B 15 A2 03 8B 20 49 |... 1850.+.... I|
00000D20: 4E 24 B2 22 5E 22 A7 20 36 34 30 00 49 15 AC 03 |N$."^". 640.I...|
00000D30: 99 22 93 12 20 31 2E 20 CB 45 59 42 4F 41 52 44 |.".. 1. .EYBOARD|
00000D40: 20 C2 55 46 46 45 52 20 22 00 79 15 B6 03 99 22 | .UFFER ".y...."|
00000D50: 11 11 11 D0 4C 45 41 53 45 20 49 4E 50 55 54 20 |....LEASE INPUT |
00000D60: 53 4F 4D 45 54 48 49 4E 47 20 57 49 54 48 20 C3 |SOMETHING WITH .|
00000D70: CF CD CD C1 D3 20 49 4E 22 00 A6 15 C0 03 99 22 |..... IN"......"|
00000D80: 54 48 45 20 54 45 58 54 20 46 4F 4C 4C 4F 57 45 |THE TEXT FOLLOWE|
00000D90: 44 20 42 59 20 54 48 45 20 12 52 45 54 55 52 4E |D BY THE .RETURN|
00000DA0: 92 20 4B 45 59 22 00 C9 15 CA 03 97 36 33 31 2C |. KEY"......631,|
00000DB0: 33 34 3A 97 36 33 32 2C 33 34 3A 97 36 33 33 2C |34:.632,34:.633,|
00000DC0: 32 30 3A 97 31 39 38 2C 33 00 EB 15 D4 03 41 24 |20:.198,3.....A$|
00000DD0: B2 22 22 3A 85 22 11 45 4E 54 45 52 20 53 4F 4D |."":.".ENTER SOM|
00000DE0: 45 54 48 49 4E 47 20 22 3B 41 24 00 05 16 DE 03 |ETHING ";A$.....|
00000DF0: 99 22 49 4E 50 55 54 20 57 41 53 3A 20 22 3B 41 |."INPUT WAS: ";A|
00000E00: 24 3B 22 11 22 00 34 16 E8 03 99 22 11 41 4E 44 |$;".".4....".AND|
00000E10: 20 4E 4F 54 49 43 45 20 54 48 45 20 51 55 4F 54 | NOTICE THE QUOT|
00000E20: 45 20 57 41 53 20 41 55 54 4F 4D 41 54 49 43 41 |E WAS AUTOMATICA|
00000E30: 4C 4C 59 22 00 63 16 F2 03 99 22 49 4E 53 45 52 |LLY".c...."INSER|
00000E40: 54 45 44 20 41 4E 44 20 CE CF 20 45 52 52 4F 52 |TED AND .. ERROR|
00000E50: 20 4D 45 53 53 41 47 45 20 44 49 53 50 4C 41 59 | MESSAGE DISPLAY|
00000E60: 45 44 22 00 6E 16 FC 03 8D 20 31 38 35 30 00 81 |ED".n.... 1850..|
00000E70: 16 06 04 8B 20 49 4E 24 B2 22 5E 22 A7 20 37 37 |.... IN$."^". 77|
00000E80: 30 00 8A 16 10 04 89 20 33 30 00 A8 16 1A 04 99 |0...... 30......|
00000E90: 20 22 93 12 20 32 2E 20 D2 45 50 45 41 54 49 4E | ".. 2. .EPEATIN|
00000EA0: 47 20 CB 45 59 53 20 22 00 D7 16 24 04 99 22 11 |G .EYS "...$..".|
00000EB0: 11 D7 48 49 43 48 20 4F 46 20 41 4C 4C 20 54 48 |..HICH OF ALL TH|
00000EC0: 45 20 4B 45 59 53 20 4F 4E 20 54 48 45 20 4B 45 |E KEYS ON THE KE|
00000ED0: 59 42 4F 41 52 44 22 00 04 17 2E 04 99 22 49 53 |YBOARD"......"IS|
00000EE0: 20 41 4C 4C 4F 57 45 44 20 54 4F 20 52 45 50 45 | ALLOWED TO REPE|
00000EF0: 41 54 20 49 53 20 44 45 54 45 52 4D 49 4E 45 44 |AT IS DETERMINED|
00000F00: 20 42 59 22 00 20 17 38 04 99 22 4D 45 4D 4F 52 | BY". .8.."MEMOR|
00000F10: 59 20 4C 4F 43 41 54 49 4F 4E 20 36 35 30 2E 22 |Y LOCATION 650."|
00000F20: 00 50 17 42 04 99 22 11 D4 48 45 20 C4 C5 C6 C1 |.P.B.."..HE ....|
00000F30: D5 CC D4 20 56 41 4C 55 45 20 4F 46 20 4C 4F 43 |... VALUE OF LOC|
00000F40: 41 54 49 4F 4E 20 36 35 30 20 49 53 20 30 2E 22 |ATION 650 IS 0."|
00000F50: 00 7C 17 4C 04 99 22 11 D4 48 49 53 20 53 54 41 |.|.L.."..HIS STA|
00000F60: 54 45 53 20 54 48 41 54 20 4F 4E 4C 59 20 54 48 |TES THAT ONLY TH|
00000F70: 45 20 46 4F 4C 4C 4F 57 49 4E 47 22 00 A2 17 56 |E FOLLOWING"...V|
00000F80: 04 99 22 4B 45 59 53 20 57 49 4C 4C 20 52 45 50 |.."KEYS WILL REP|
00000F90: 45 41 54 20 49 46 20 48 45 4C 44 20 44 4F 57 4E |EAT IF HELD DOWN|
00000FA0: 3A 22 00 BB 17 60 04 99 22 11 20 20 20 20 20 C3 |:"...`..". .|
00000FB0: 55 52 53 4F 52 20 4B 45 59 53 22 00 D9 17 6A 04 |URSOR KEYS"...j.|
00000FC0: 99 22 20 20 20 20 20 C9 4E 53 45 52 54 2F C4 45 |." .NSERT/.E|
00000FD0: 4C 45 54 45 20 4B 45 59 22 00 EF 17 74 04 99 22 |LETE KEY"...t.."|
00000FE0: 20 20 20 20 20 D3 50 41 43 45 20 C2 41 52 22 00 | .PACE .AR".|
00000FF0: 1E 18 7E 04 99 22 11 D4 52 59 20 48 4F 4C 44 49 |..~.."..RY HOLDI|
00001000: 4E 47 20 54 48 45 53 45 20 4B 45 59 53 20 44 4F |NG THESE KEYS DO|
00001010: 57 4E 20 41 4E 44 20 4F 54 48 45 52 53 22 00 4D |WN AND OTHERS".M|
00001020: 18 88 04 99 22 41 53 20 57 45 4C 4C 2C 20 54 4F |...."AS WELL, TO|
00001030: 20 53 45 45 20 57 48 49 43 48 20 4B 45 59 53 20 | SEE WHICH KEYS |
00001040: 57 49 4C 4C 20 52 45 50 45 41 54 2E 22 00 7A 18 |WILL REPEAT.".z.|
00001050: 92 04 99 22 11 D4 45 52 4D 49 4E 41 54 45 20 54 |..."..ERMINATE T|
00001060: 48 49 53 20 45 58 45 52 43 49 53 45 20 42 59 20 |HIS EXERCISE BY |
00001070: 55 53 49 4E 47 20 54 48 45 22 00 8F 18 9C 04 99 |USING THE"......|
00001080: 22 12 52 45 54 55 52 4E 92 20 4B 45 59 2E 22 00 |".RETURN. KEY.".|
00001090: 9F 18 A6 04 85 20 22 11 3D 3E 20 22 3B 41 24 00 |..... ".=> ";A$.|
000010A0: AA 18 B0 04 8D 20 31 38 35 30 00 BC 18 BA 04 8B |..... 1850......|
000010B0: 20 49 4E 24 B2 22 5E 22 A7 20 33 30 00 D9 18 C4 | IN$."^". 30....|
000010C0: 04 99 22 93 12 20 32 2E 20 D2 45 50 45 41 54 49 |..".. 2. .EPEATI|
000010D0: 4E 47 20 CB 45 59 53 20 22 00 FB 18 CE 04 99 22 |NG .EYS "......"|
000010E0: 11 11 D4 4F 20 4D 41 4B 45 20 41 4C 4C 20 4B 45 |...O MAKE ALL KE|
000010F0: 59 53 20 52 45 50 45 41 54 3A 22 00 13 19 D8 04 |YS REPEAT:".....|
00001100: 99 22 11 20 20 20 D0 CF CB C5 20 36 35 30 2C 31 |.". .... 650,1|
00001110: 32 38 22 00 42 19 E2 04 99 22 11 11 CC 45 54 53 |28".B...."...ETS|
00001120: 20 54 52 59 20 4F 55 52 20 45 58 45 52 43 49 53 | TRY OUR EXERCIS|
00001130: 45 20 41 47 41 49 4E 2E 20 C1 4C 4C 20 4B 45 59 |E AGAIN. .LL KEY|
00001140: 53 22 00 6D 19 EC 04 99 22 53 48 4F 55 4C 44 20 |S".m...."SHOULD |
00001150: 4E 4F 57 20 52 45 50 45 41 54 2E 20 20 D4 45 52 |NOW REPEAT. .ER|
00001160: 4D 49 4E 41 54 45 20 49 4E 50 55 54 22 00 8B 19 |MINATE INPUT"...|
00001170: F6 04 99 22 57 49 54 48 20 54 48 45 20 12 52 45 |..."WITH THE .RE|
00001180: 54 55 52 4E 92 20 4B 45 59 2E 22 00 99 19 00 05 |TURN. KEY.".....|
00001190: 97 20 36 35 30 2C 31 32 38 00 A9 19 0A 05 85 20 |. 650,128...... |
000011A0: 22 11 3D 3E 20 22 3B 41 24 00 B5 19 14 05 97 20 |".=> ";A$...... |
000011B0: 36 35 30 2C 30 00 C0 19 1E 05 8D 20 31 38 35 30 |650,0...... 1850|
000011C0: 00 D4 19 28 05 8B 20 49 4E 24 B2 22 5E 22 A7 20 |...(.. IN$."^". |
000011D0: 31 30 35 30 00 F1 19 32 05 99 22 93 12 20 32 2E |1050...2..".. 2.|
000011E0: 20 D2 45 50 45 41 54 49 4E 47 20 CB 45 59 53 20 | .EPEATING .EYS |
000011F0: 22 00 1B 1A 3C 05 99 22 11 11 D4 4F 20 4D 41 4B |"...<.."...O MAK|
00001200: 45 20 4E 4F 4E 45 20 4F 46 20 54 48 45 20 4B 45 |E NONE OF THE KE|
00001210: 59 53 20 52 45 50 45 41 54 3A 22 00 32 1A 46 05 |YS REPEAT:".2.F.|
00001220: 99 22 11 20 20 20 D0 CF CB C5 20 36 35 30 2C 36 |.". .... 650,6|
00001230: 34 22 00 5F 1A 50 05 99 22 11 11 CC 45 54 53 20 |4"._.P.."...ETS |
00001240: 54 52 59 20 4F 55 52 20 45 58 45 52 43 49 53 45 |TRY OUR EXERCISE|
00001250: 20 41 47 41 49 4E 2E 20 CE 4F 20 4B 45 59 22 00 | AGAIN. .O KEY".|
00001260: 8D 1A 5A 05 99 22 57 49 4C 4C 20 52 45 50 45 41 |..Z.."WILL REPEA|
00001270: 54 2E 20 20 D4 45 52 4D 49 4E 41 54 45 20 49 4E |T. .ERMINATE IN|
00001280: 50 55 54 20 57 49 54 48 20 54 48 45 22 00 A2 1A |PUT WITH THE"...|
00001290: 64 05 99 22 12 52 45 54 55 52 4E 92 20 4B 45 59 |d..".RETURN. KEY|
000012A0: 2E 22 00 AF 1A 6E 05 97 20 36 35 30 2C 36 34 00 |."...n.. 650,64.|
000012B0: BF 1A 78 05 85 20 22 11 3D 3E 20 22 3B 41 24 00 |..x.. ".=> ";A$.|
000012C0: CB 1A 82 05 97 20 36 35 30 2C 30 00 D6 1A 8C 05 |..... 650,0.....|
000012D0: 8D 20 31 38 35 30 00 EA 1A 96 05 8B 20 49 4E 24 |. 1850...... IN$|
000012E0: B2 22 5E 22 A7 20 31 32 32 30 00 F3 1A A0 05 89 |."^". 1220......|
000012F0: 20 33 30 00 14 1B AA 05 99 20 22 93 12 20 33 2E | 30...... ".. 3.|
00001300: 20 D3 45 4E 53 49 4E 47 20 CD 4F 44 49 46 49 45 | .ENSING .ODIFIE|
00001310: 52 53 20 22 00 42 1B B4 05 99 22 11 11 D4 4F 20 |RS ".B...."...O |
00001320: 53 45 4E 53 45 20 49 46 20 41 4E 59 20 4F 46 20 |SENSE IF ANY OF |
00001330: 54 48 45 20 4D 4F 44 49 46 49 45 52 20 4B 45 59 |THE MODIFIER KEY|
00001340: 53 22 00 6E 1B BE 05 99 22 28 D3 48 49 46 54 2C |S".n...."(.HIFT,|
00001350: 20 C3 4F 4E 54 52 4F 4C 2C 20 C3 4F 4D 4D 4F 44 | .ONTROL, .OMMOD|
00001360: 4F 52 45 20 CC 4F 47 4F 29 20 48 41 53 22 00 7F |ORE .OGO) HAS"..|
00001370: 1B C8 05 99 22 42 45 45 4E 20 48 49 54 3A 22 00 |...."BEEN HIT:".|
00001380: 9E 1B D2 05 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00001390: 20 20 20 D0 C5 C5 CB 20 28 36 35 33 29 22 00 BA | .... (653)"..|
000013A0: 1B DC 05 99 22 11 D6 41 4C 55 45 20 CB 45 59 20 |...."..ALUE .EY |
000013B0: C4 45 50 52 45 53 53 45 44 22 00 D5 1B E6 05 99 |.EPRESSED"......|
000013C0: 22 C0 C0 C0 C0 C0 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"..... .........|
000013D0: C0 C0 C0 C0 22 00 ED 1B F0 05 99 22 20 20 31 20 |...."......" 1 |
000013E0: 20 20 20 D3 48 49 46 54 20 4B 45 59 22 00 0A 1C | .HIFT KEY"...|
000013F0: FA 05 99 22 20 20 32 20 20 20 20 C3 4F 4D 4D 4F |..." 2 .OMMO|
00001400: 44 4F 52 45 20 CC 4F 47 4F 22 00 24 1C 04 06 99 |DORE .OGO".$....|
00001410: 22 20 20 33 20 20 20 20 C3 4F 4E 54 52 4F 4C 20 |" 3 .ONTROL |
00001420: 4B 45 59 22 00 51 1C 0E 06 99 22 11 C9 46 20 4D |KEY".Q...."..F M|
00001430: 4F 52 45 20 54 48 41 4E 20 31 20 4B 45 59 20 49 |ORE THAN 1 KEY I|
00001440: 53 20 44 45 50 52 45 53 53 45 44 2C 20 54 48 45 |S DEPRESSED, THE|
00001450: 22 00 73 1C 18 06 99 22 56 41 4C 55 45 53 20 41 |".s...."VALUES A|
00001460: 52 45 20 41 44 44 45 44 20 54 4F 47 45 54 48 45 |RE ADDED TOGETHE|
00001470: 52 2E 22 00 9B 1C 22 06 99 22 11 12 D4 52 59 20 |R."...".."...RY |
00001480: 44 45 50 52 45 53 53 49 4E 47 20 41 20 4D 4F 44 |DEPRESSING A MOD|
00001490: 49 46 49 45 52 20 4B 45 59 92 22 00 BE 1C 2C 06 |IFIER KEY."...,.|
000014A0: 99 20 22 05 13 11 11 11 11 11 11 11 11 11 11 11 |. ".............|
000014B0: 11 11 11 11 11 11 11 11 11 11 11 11 22 3B 00 E3 |............";..|
000014C0: 1C 36 06 99 22 12 53 50 41 43 45 92 20 54 4F 20 |.6..".SPACE. TO |
000014D0: 54 45 52 4D 49 4E 41 54 45 20 45 58 45 52 43 49 |TERMINATE EXERCI|
000014E0: 53 45 22 00 FE 1C 40 06 99 22 13 11 11 11 11 11 |SE"...@.."......|
000014F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 38 |.............".8|
00001500: 1D 4A 06 8B 20 C2 28 36 35 33 29 AF 31 20 A7 20 |.J.. .(653).1 . |
00001510: 99 22 20 20 20 20 20 20 20 20 20 20 12 D3 48 49 |." ..HI|
00001520: 46 54 20 4B 45 59 20 44 45 50 52 45 53 53 45 44 |FT KEY DEPRESSED|
00001530: 22 3A 89 20 31 36 33 30 00 5E 1D 54 06 99 22 20 |":. 1630.^.T.." |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001550: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 9C | "..|
00001560: 1D 5E 06 8B 20 C2 28 36 35 33 29 AF 32 20 A7 20 |.^.. .(653).2 . |
00001570: 99 22 20 20 20 20 20 20 20 20 20 20 12 C3 4F 4D |." ..OM|
00001580: 4D 4F 44 4F 52 45 20 CC 4F 47 4F 20 44 45 50 52 |MODORE .OGO DEPR|
00001590: 45 53 53 45 44 22 3A 89 31 36 35 30 00 C7 1D 68 |ESSED":.1650...h|
000015A0: 06 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015C0: 20 20 20 20 20 20 22 00 02 1E 72 06 8B 20 C2 28 | "...r.. .(|
000015D0: 36 35 33 29 AF 34 20 A7 20 99 22 20 20 20 20 20 |653).4 . ." |
000015E0: 20 20 20 20 20 12 C3 4F 4E 54 52 4F 4C 20 4B 45 | ..ONTROL KE|
000015F0: 59 20 44 45 50 52 45 53 53 45 44 22 3A 89 31 36 |Y DEPRESSED":.16|
00001600: 36 30 00 2A 1E 7C 06 99 22 20 20 20 20 20 20 20 |60.*.|.." |
00001610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001620: 20 20 20 20 20 20 20 20 20 22 00 48 1E 86 06 A1 | ".H....|
00001630: 20 49 4E 24 3A 20 8B 20 49 4E 24 B3 B1 20 22 20 | IN$: . IN$.. " |
00001640: 22 20 A7 20 31 36 30 30 00 51 1E 90 06 89 20 33 |" . 1600.Q.... 3|
00001650: 30 00 7A 1E 9A 06 99 20 22 93 12 20 34 2E 20 C3 |0.z.... ".. 4. .|
00001660: 48 41 52 41 43 54 45 52 20 53 45 54 20 53 57 49 |HARACTER SET SWI|
00001670: 54 43 48 20 46 4C 41 47 20 22 00 A9 1E A4 06 99 |TCH FLAG "......|
00001680: 22 11 11 D4 4F 20 44 49 53 41 42 4C 45 20 54 48 |"...O DISABLE TH|
00001690: 45 20 4B 45 59 42 4F 41 52 44 20 46 52 4F 4D 20 |E KEYBOARD FROM |
000016A0: 43 48 41 4E 47 49 4E 47 22 00 D7 1E AE 06 99 22 |CHANGING"......"|
000016B0: 54 48 45 20 43 48 41 52 41 43 54 45 52 20 53 45 |THE CHARACTER SE|
000016C0: 54 20 28 55 53 49 4E 47 20 54 48 45 20 C3 4F 4D |T (USING THE .OM|
000016D0: 4D 4F 44 4F 52 45 22 00 03 1F B8 06 99 22 CC 4F |MODORE"......".O|
000016E0: 47 4F 20 4B 45 59 20 C1 CE C4 20 54 48 45 20 D3 |GO KEY ... THE .|
000016F0: 48 49 46 54 20 4B 45 59 29 2C 20 55 53 45 20 54 |HIFT KEY), USE T|
00001700: 48 45 22 00 15 1F C2 06 99 22 46 4F 4C 4C 4F 57 |HE"......"FOLLOW|
00001710: 49 4E 47 3A 22 00 2D 1F CC 06 99 22 11 20 20 20 |ING:".-....". |
00001720: D0 CF CB C5 A0 36 35 37 2C 31 32 38 22 00 48 1F |.....657,128".H.|
00001730: D6 06 99 22 11 D4 4F 20 45 4E 41 42 4C 45 20 49 |..."..O ENABLE I|
00001740: 54 2C 20 55 53 45 3A 22 00 5E 1F E0 06 99 22 11 |T, USE:".^....".|
00001750: 20 20 20 D0 CF CB C5 20 36 35 37 2C 30 22 00 8A | .... 657,0"..|
00001760: 1F EA 06 99 22 11 D9 4F 55 20 43 41 4E 20 41 4C |...."..OU CAN AL|
00001770: 53 4F 20 D0 C5 C5 CB 20 54 48 49 53 20 4C 4F 43 |SO .... THIS LOC|
00001780: 41 54 49 4F 4E 20 41 4E 44 22 00 B2 1F F4 06 99 |ATION AND"......|
00001790: 22 43 48 45 43 4B 20 46 4F 52 20 31 32 38 20 4F |"CHECK FOR 128 O|
000017A0: 52 20 30 20 54 4F 20 53 45 45 20 49 46 20 54 48 |R 0 TO SEE IF TH|
000017B0: 45 22 00 D3 1F FE 06 99 22 4D 4F 44 45 20 49 53 |E"......"MODE IS|
000017C0: 20 44 49 53 41 42 4C 45 44 2F 45 4E 41 42 4C 45 | DISABLED/ENABLE|
000017D0: 44 2E 22 00 FF 1F 08 07 99 22 11 CE 4F 54 45 3A |D."......"..OTE:|
000017E0: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 41 | THE FOLLOWING A|
000017F0: 52 45 20 45 51 55 49 56 41 4C 45 4E 54 3A 22 00 |RE EQUIVALENT:".|
00001800: 29 20 12 07 99 22 11 20 20 20 D0 D2 C9 CE D4 20 |) ...". ..... |
00001810: C3 C8 D2 24 28 38 29 20 41 4E 44 20 D0 CF CB C5 |...$(8) AND ....|
00001820: 20 36 35 37 2C 31 32 38 22 00 51 20 1C 07 99 22 | 657,128".Q ..."|
00001830: 11 20 20 20 D0 D2 C9 CE D4 20 C3 C8 D2 24 28 39 |. ..... ...$(9|
00001840: 29 20 41 4E 44 20 D0 CF CB C5 20 36 35 37 2C 30 |) AND .... 657,0|
00001850: 22 00 5C 20 26 07 8D 20 31 38 35 30 00 65 20 30 |".\ &.. 1850.e 0|
00001860: 07 89 20 33 30 00 89 20 3A 07 99 20 22 05 13 11 |.. 30.. :.. "...|
00001870: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001880: 11 11 11 11 11 11 11 22 3B 00 BF 20 44 07 99 22 |.......";.. D.."|
00001890: 12 5E 92 20 50 52 45 56 20 50 41 47 45 20 20 12 |.^. PREV PAGE .|
000018A0: 53 50 41 43 45 92 20 4E 45 58 54 20 50 41 47 45 |SPACE. NEXT PAGE|
000018B0: 20 20 12 5F 92 20 47 44 20 4D 45 4E 55 22 3B 00 | ._. GD MENU";.|
000018C0: F4 20 4E 07 A1 20 49 4E 24 3A 20 8B 20 49 4E 24 |. N.. IN$: . IN$|
000018D0: B3 B1 20 22 20 22 20 AF 20 49 4E 24 B3 B1 20 22 |.. " " . IN$.. "|
000018E0: 5E 22 20 AF 20 49 4E 24 B3 B1 22 5F 22 20 A7 20 |^" . IN$.."_" . |
000018F0: 31 38 37 30 00 09 21 58 07 8B 20 49 4E 24 B2 22 |1870..!X.. IN$."|
00001900: 5F 22 20 A7 20 31 39 30 30 00 0F 21 62 07 8E 00 |_" . 1900..!b...|
00001910: 2B 21 6C 07 97 20 36 35 30 2C 30 3A 20 99 20 22 |+!l.. 650,0: . "|
00001920: 93 22 3A 20 9E 20 34 39 31 35 32 00 00 00 |.": . 49152... |
....... (C) GOLD DISK.8.... 53281,0: . 5
3280,0: Q$.G(34).V.... G(14);G(8);"... P
R O G R A M M E R ' S C O R N E R "..
.(.."..THE HANDLING OF THE KEYBOARD IS D
ONE BY".W.2.."THE INTERRUPT AND KERNAL R
OUTINES ON THE"...<..".C64. THESE ROUTI
NES USE MEMORY".*.F.."LOCATIONS OUSIDE O
F BASIC SPACE FOR".Z.P.."VARIABLES AND P
ARAMETERS. KNOWING THIS,"...Z..".WE CAN
SET THESE PARAMETERS TO PRODUCE"...D.."
DESIRED EFFECTS."...N..".MORE INFORMATIO
N ON:"...X..". . 1 . KEYBOARD BUFFER"
......". . 2 . REPEATING KEYS".%...."
. . 3 . SENSING MODIFIERS".Q....".
. 4 . CHARACTER SET SWITCH FLAG".. .."
..PRESS 1, 2, 3, 4, OR <_> FOR GD MENU".
..... IN$: . IN$."_". 1900...... IN$."1"
. IN$."4" . 170.Z.... E(IN$) . 200,1050
,1450,1690...H..".. 1. KEYBOARD BUFFER "
.&.R.."..THE C64 CONTINUALLY MONITORS TH
E KEY".P...."BOARD AND CREATES AN BUFFER
OF UN-".{...."PROCESSED INPUT. THE GET
AND INPUT"......"BASIC STATEMENTS GET T
HEIR INPUT FROM"......"THIS BUFFER."....
..".THE IMPORTANT MEMORY LOCATIONS ARE:"
......".LOC 198: CONTAINS THE CURRENT C
OUNT".C...." OF UNPROCESSED CHA
RACTERS IN"._.".." THE BUFFER".
..,..".LOC 631-640: IS THE ACTUAL BUFFE
R"...6.." OF C64 ASCII CHAR
ACTERS"...@.." TO BE PROCES
SED"...J..".LOC 649: CONTAINS THE MAX B
UFFER SIZE"...T.. 1850.(.^.. IN$."^". 30
.F.H..".. 1. KEYBOARD BUFFER ".M.R.."..C
LEARING THE KEYBOARD BUFFER:"...|.."..ON
E OF THE COMMON WAYS TO CLEAR THE"......
"THE KEYBOARD BUFFER IS TO USE:"......".
10 GET A$: IF A$<>";Q$;Q$;" THEN 10"..
...."..AN EASIER AND QUICKER WAY IS:".-.
...". 10 POKE 198,0".Y....".YOU SIMPLY
CHANGE THE CURRENT COUNT".~...."OF UNPRO
CESSED INPUT TO ZERO."...B.. 1850...L..
IN$."^". 200...V.. ".. 1. KEYBOARD BUFFE
R "......"..ANOTHER THING YOU CAN DO WIT
H THE"......"KEYBOARD BUFFER IS TO PROGR
AM IT.".>...."CHARACTERS CAN BE POKED IN
TO THE BUFFER".K...."BE USED BY BASIC'S
INPUT, GET OR EVEN"......"THE SYSTEM ITS
ELF (AFTER YOU GET OUT OF"......"BASIC)"
.P....".CONSIDER THE FOLLOWING EXAMPLE:"
...&..". 20 INPUT";Q$;"ENTER SOMETHING
";Q$;";A$".1.0.." 30 PRINT ";Q$;"INPU
T WAS: ";Q$;";A$".T.:..".LET RUN THE ABO
VE EXAMPLE."...D..".PLEASE TYPE A SOMETH
ING WITH COMMAS IN"...N.."IT FOLLOWED BY
THE . RETURN . KEY".N.X.A$."":.".ENTER
SOMETHING ";A$...B.."INPUT WAS: ";A$;"."
...L.. 1850...V.. IN$."^" . 360.&.... ".
. 1. KEYBOARD BUFFER ".R...."..NOTICE TH
ERE WAS AN ERROR MESSAGE:".I....".?EXTRA
IGNORED"......".AND ONLY THE INPUT TO T
HE FIRST COMMA"......"WAS PASSED TO THE
PROGRAM."......".TO AVOID THIS, WE CAN I
NPUT OUR TEXT"......"AND PUT QUOTES (";Q
$;") AROUND IT, BUT".:.F.."THIS DOES GET
A LITTLE CLUMSY.".\.P..".THERE IS A BET
TER WAY...."...Z..".WE CAN HAVE THE COMP
UTER PUT A QUOTE"......"BEFORE OUR INPUT
!"...... 1850.A.... IN$."^". 470......"
.. 1. KEYBOARD BUFFER "......"..CONSIDER
THE FOLLOWING PROGRAM:".7....". 10 PO
KE631,34:POKE632,34:POKE633,20".O. .."
15 POKE 198,3"...*.." 20 INPUT";Q$;"E
NTER SOMETHING ";Q$;";A$"...4.." 30 PR
INT ";Q$;"INPUT WAS: ";Q$;";A$"...>..".I
TS THE SAME PROGRAM WITH 2 QUOTES AND"..
.H.."A DELETE INSERTED INTO THE BUFFER."
.4.R.."NOTICE THE BUFFER COUNT (LOC 198)
IS".E.\.."SET TO 3.".Q.F..".THE FIRST Q
UOTE IS INSERTED AS PART"...P.."OF OUR I
NPUT. THE SECOND QUOTE AND".K.Z.."DELET
E CHARACTER TAKES THE INPUT OUT OF".....
."QUOTE MODE."...... ".PRESS .SPACE. TO
EXECUTE THIS PROGRAM"...... 1850.+.... I
N$."^". 640.I....".. 1. KEYBOARD BUFFER
".Y...."...PLEASE INPUT SOMETHING WITH C
OMMAS IN"......"THE TEXT FOLLOWED BY THE
.RETURN. KEY".I.J..631,34:.632,34:.633,
20:.198,3...T.A$."":.".ENTER SOMETHING "
;A$......"INPUT WAS: ";A$;".".4....".AND
NOTICE THE QUOTE WAS AUTOMATICALLY".C..
.."INSERTED AND NO ERROR MESSAGE DISPLAY
ED".N.... 1850...... IN$."^". 770......
30...... ".. 2. REPEATING KEYS ".W.$..".
.WHICH OF ALL THE KEYS ON THE KEYBOARD".
....."IS ALLOWED TO REPEAT IS DETERMINED
BY". .8.."MEMORY LOCATION 650.".P.B..".
THE DEFAULT VALUE OF LOCATION 650 IS 0."
.|.L..".THIS STATES THAT ONLY THE FOLLOW
ING"...V.."KEYS WILL REPEAT IF HELD DOWN
:"...`..". CURSOR KEYS".Y.J.." I
NSERT/DELETE KEY"...T.." SPACE BAR".
..~..".TRY HOLDING THESE KEYS DOWN AND O
THERS".M...."AS WELL, TO SEE WHICH KEYS
WILL REPEAT.".Z....".TERMINATE THIS EXER
CISE BY USING THE"......".RETURN. KEY.".
..... ".=> ";A$...... 1850...... IN$."^"
. 30.Y.D..".. 2. REPEATING KEYS "...N.."
..TO MAKE ALL KEYS REPEAT:"...X..". PO
KE 650,128".B...."..LETS TRY OUR EXERCIS
E AGAIN. ALL KEYS".M...."SHOULD NOW REPE
AT. TERMINATE INPUT"......"WITH THE .RE
TURN. KEY."...... 650,128...... ".=> ";A
$...... 650,0...... 1850.T.(.. IN$."^".
1050...2..".. 2. REPEATING KEYS "...<.."
..TO MAKE NONE OF THE KEYS REPEAT:".2.F.
.". POKE 650,64"._.P.."..LETS TRY OUR
EXERCISE AGAIN. NO KEY"...Z.."WILL REPEA
T. TERMINATE INPUT WITH THE"...D..".RET
URN. KEY."...N.. 650,64...X.. ".=> ";A$.
K.... 650,0.V.... 1850...... IN$."^". 12
20... .. 30...... ".. 3. SENSING MODIFIE
RS ".B...."..TO SENSE IF ANY OF THE MODI
FIER KEYS".N...."(SHIFT, CONTROL, COMMOD
ORE LOGO) HAS"..H.."BEEN HIT:"...R.."
PEEK (653)"......".VALUE KEY
DEPRESSED".U...."..... ............."...
..." 1 SHIFT KEY"......" 2 COMMO
DORE LOGO".$...." 3 CONTROL KEY".Q..
..".IF MORE THAN 1 KEY IS DEPRESSED, THE
".S...."VALUES ARE ADDED TOGETHER."...".
."..TRY DEPRESSING A MODIFIER KEY."...,.
. ".........................";...6..".SP
ACE. TO TERMINATE EXERCISE"...@.."......
.............".8.J.. B(653).1 . ."
.SHIFT KEY DEPRESSED":. 1630.^.T.."
"...^.. B(6
53).2 . ." .COMMODORE LOGO DEPR
ESSED":.1650.G.H.."
"...R.. B(653).4 . ."
.CONTROL KEY DEPRESSED":.1660.*.|..
" ".H....
IN$: . IN$.. " " . 1600.Q.... 30.Z....
".. 4. CHARACTER SET SWITCH FLAG "......
"..TO DISABLE THE KEYBOARD FROM CHANGING
".W...."THE CHARACTER SET (USING THE COM
MODORE"......"LOGO KEY AND THE SHIFT KEY
), USE THE"...B.."FOLLOWING:".-.L..".
POKE 657,128".H.V..".TO ENABLE IT, USE:"
.^....". POKE 657,0"......".YOU CAN AL
SO PEEK THIS LOCATION AND"......"CHECK F
OR 128 OR 0 TO SEE IF THE".S...."MODE IS
DISABLED/ENABLED."......".NOTE: THE FOL
LOWING ARE EQUIVALENT:".) ...". PRINT
CHR$(8) AND POKE 657,128".Q ...". PRIN
T CHR$(9) AND POKE 657,0".\ &.. 1850.E 0
.. 30.. :.. ".........................."
;.. D..".^. PREV PAGE .SPACE. NEXT PAGE
._. GD MENU";.. N.. IN$: . IN$.. " " .
IN$.. "^" . IN$.."_" . 1870..!X.. IN$."
_" . 1900..!B...+!L.. 650,0: . ".": . 49
152...
> CLICK IMAGE PREVIEW FOR FULL MODAL