PGM STYLE/NOTES
FILE INFORMATION
FILENAME(S): PGM STYLE/NOTES
FILE TYPE(S): SEQ
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 18:12:25
APPEARS ON: 1 disk(s)
FILE HASH
1bed35f1072b9f5efc932629371e451658e2f34a5c626d6735479804831f61b3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DATARICH | PGM STYLE/NOTES | SEQ | Sailor, Ganheden | 22 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 22 20 20 20 20 20 20 20 20 20 D0 C7 CD 20 D3 D4 |" ... ..| 00000010: D9 CC C5 20 20 20 20 20 20 20 20 20 20 20 20 C2 |... .| 00000020: 59 3A 20 D2 4F 42 45 52 54 20 D7 2E 20 C2 41 4B |Y: .OBERT .. .AK| 00000030: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER | 00000040: 20 D0 41 47 45 20 31 0D 0D 0D 22 20 20 20 20 20 | .AGE 1..." | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 D0 D2 CF C7 D2 C1 | ......| 00000070: CD CD C9 CE C7 20 D3 D4 D9 CC C5 0D 0D 22 20 20 |..... ......." | 00000080: 20 20 20 20 20 20 20 CF 56 45 52 20 54 48 45 20 | .VER THE | 00000090: 50 41 53 54 20 59 45 41 52 53 20 20 C9 27 56 45 |PAST YEARS .'VE| 000000A0: 20 20 48 45 4C 50 45 44 20 20 57 49 54 48 20 20 | HELPED WITH | 000000B0: 52 45 56 49 45 57 53 20 20 4F 46 20 20 56 41 52 |REVIEWS OF VAR| 000000C0: 49 4F 55 53 0D 22 20 20 20 20 20 20 20 20 20 50 |IOUS." P| 000000D0: 52 4F 47 52 41 4D 53 20 57 52 49 54 54 45 4E 20 |ROGRAMS WRITTEN | 000000E0: 46 4F 52 20 54 48 45 20 44 49 46 46 45 52 45 4E |FOR THE DIFFEREN| 000000F0: 54 20 C3 4F 4D 4D 4F 44 4F 52 45 20 53 59 53 54 |T .OMMODORE SYST| 00000100: 45 4D 53 20 41 53 20 20 57 45 4C 4C 0D 22 20 20 |EMS AS WELL." | 00000110: 20 20 20 20 20 20 20 41 53 20 4F 54 48 45 52 20 | AS OTHER | 00000120: 53 59 53 54 45 4D 53 20 42 4F 54 48 20 53 4D 41 |SYSTEMS BOTH SMA| 00000130: 4C 4C 20 41 4E 44 20 4C 41 52 47 45 2E 20 20 CF |LL AND LARGE. .| 00000140: 4E 45 20 20 4F 46 20 20 54 48 45 20 20 42 49 47 |NE OF THE BIG| 00000150: 47 45 53 54 0D 22 20 20 20 20 20 20 20 20 20 50 |GEST." P| 00000160: 52 4F 42 4C 45 4D 53 20 C9 27 56 45 20 53 45 45 |ROBLEMS .'VE SEE| 00000170: 4E 20 57 49 54 48 20 54 48 45 20 53 4F 46 54 57 |N WITH THE SOFTW| 00000180: 41 52 45 20 53 55 42 4D 49 54 54 45 44 20 49 53 |ARE SUBMITTED IS| 00000190: 20 54 48 45 20 4C 41 43 4B 20 4F 46 0D 22 20 20 | THE LACK OF." | 000001A0: 20 20 20 20 20 20 20 43 48 45 43 4B 49 4E 47 20 | CHECKING | 000001B0: 46 4F 52 20 56 41 4C 49 44 20 52 45 53 50 4F 4E |FOR VALID RESPON| 000001C0: 53 45 53 20 54 4F 20 51 55 45 53 54 49 4F 4E 53 |SES TO QUESTIONS| 000001D0: 2E 0D 22 0D 22 20 20 20 20 20 20 20 20 20 C9 54 |.."." .T| 000001E0: 20 55 53 55 41 4C 4C 59 20 44 4F 45 53 4E 27 54 | USUALLY DOESN'T| 000001F0: 20 54 41 4B 45 20 4D 55 43 48 20 41 44 44 45 44 | TAKE MUCH ADDED| 00000200: 20 45 46 46 4F 52 54 20 54 4F 20 48 41 56 45 20 | EFFORT TO HAVE | 00000210: 54 48 45 20 50 52 4F 47 52 41 4D 0D 22 20 20 20 |THE PROGRAM." | 00000220: 20 20 20 20 20 20 43 48 45 43 4B 20 41 4C 4C 20 | CHECK ALL | 00000230: 55 53 45 52 20 49 4E 50 55 54 2E 20 C9 54 20 43 |USER INPUT. .T C| 00000240: 41 4E 20 42 45 20 56 45 52 59 20 46 52 55 53 54 |AN BE VERY FRUST| 00000250: 52 41 54 49 4E 47 20 54 4F 20 41 20 55 53 45 52 |RATING TO A USER| 00000260: 20 49 46 0D 22 20 20 20 20 20 20 20 20 20 54 48 | IF." TH| 00000270: 45 20 50 52 4F 47 52 41 4D 20 20 53 54 4F 50 53 |E PROGRAM STOPS| 00000280: 20 20 42 45 43 41 55 53 45 20 20 48 45 20 20 54 | BECAUSE HE T| 00000290: 59 50 45 44 20 20 49 4E 20 20 41 20 20 42 41 44 |YPED IN A BAD| 000002A0: 20 20 56 41 4C 55 45 20 20 4F 52 0D 22 20 20 20 | VALUE OR." | 000002B0: 20 20 20 20 20 20 41 43 43 49 44 45 4E 54 41 4C | ACCIDENTAL| 000002C0: 4C 59 20 48 49 54 20 54 48 45 20 57 52 4F 4E 47 |LY HIT THE WRONG| 000002D0: 20 4B 45 59 2E 0D 22 0D 22 20 20 20 20 20 20 20 | KEY.."." | 000002E0: 20 20 D9 4F 55 20 53 48 4F 55 4C 44 20 41 4C 57 | .OU SHOULD ALW| 000002F0: 41 59 53 20 55 53 45 20 41 20 53 54 52 49 4E 47 |AYS USE A STRING| 00000300: 20 56 41 52 49 41 42 4C 45 20 46 4F 52 20 55 53 | VARIABLE FOR US| 00000310: 45 52 20 52 45 53 50 4F 4E 53 45 20 41 4E 44 0D |ER RESPONSE AND.| 00000320: 22 20 20 20 20 20 20 20 20 20 43 4F 4E 56 45 52 |" CONVER| 00000330: 54 20 53 54 52 49 4E 47 53 20 54 4F 20 20 4E 55 |T STRINGS TO NU| 00000340: 4D 42 45 52 53 20 20 57 48 45 4E 20 20 52 45 51 |MBERS WHEN REQ| 00000350: 55 49 52 45 44 2C 20 20 55 53 49 4E 47 20 20 54 |UIRED, USING T| 00000360: 48 45 20 20 D6 C1 CC 0D 22 20 20 20 20 20 20 20 |HE ...." | 00000370: 20 20 46 55 4E 43 54 49 4F 4E 2E 20 D4 48 49 53 | FUNCTION. .HIS| 00000380: 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F 20 43 | ALLOWS YOU TO C| 00000390: 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 52 |HECK FOR VALID R| 000003A0: 45 53 50 4F 4E 53 45 53 20 49 4E 20 41 4C 4C 0D |ESPONSES IN ALL.| 000003B0: 22 20 20 20 20 20 20 20 20 20 43 41 53 45 53 20 |" CASES | 000003C0: 42 45 46 4F 52 45 20 54 52 59 49 4E 47 20 54 4F |BEFORE TRYING TO| 000003D0: 20 55 53 45 20 41 20 20 56 41 4C 55 45 2E 20 20 | USE A VALUE. | 000003E0: C9 54 20 20 41 4C 53 4F 20 20 50 52 45 56 45 4E |.T ALSO PREVEN| 000003F0: 54 53 20 20 54 48 45 0D 22 20 20 20 20 20 20 20 |TS THE." | 00000400: 20 20 43 4F 4E 46 55 53 49 4E 47 20 D2 C5 C4 CF | CONFUSING ....| 00000410: 20 C6 D2 CF CD 20 D3 D4 C1 D2 D4 20 45 52 52 4F | .... ..... ERRO| 00000420: 52 20 4D 45 53 53 41 47 45 20 49 46 20 59 4F 55 |R MESSAGE IF YOU| 00000430: 20 45 4E 54 45 52 20 41 20 4C 45 54 54 45 52 0D | ENTER A LETTER.| 00000440: 22 20 20 20 20 20 20 20 20 20 57 48 45 4E 20 54 |" WHEN T| 00000450: 48 45 20 50 52 4F 47 52 41 4D 20 45 58 50 45 43 |HE PROGRAM EXPEC| 00000460: 54 53 20 41 20 4E 55 4D 42 45 52 2E 0D 22 0D 22 |TS A NUMBER.."."| 00000470: 20 20 20 20 20 20 20 20 20 C9 46 20 4F 4E 4C 59 | .F ONLY| 00000480: 20 41 20 53 49 4E 47 4C 45 20 43 48 41 52 41 43 | A SINGLE CHARAC| 00000490: 54 45 52 20 52 45 53 50 4F 4E 53 45 20 49 53 20 |TER RESPONSE IS | 000004A0: 52 45 51 55 49 52 45 44 2C 20 55 53 45 20 54 48 |REQUIRED, USE TH| 000004B0: 45 20 20 C7 C5 D4 0D 22 20 20 20 20 20 20 20 20 |E ...." | 000004C0: 20 46 55 4E 43 54 49 4F 4E 20 54 4F 20 45 4C 49 | FUNCTION TO ELI| 000004D0: 4D 49 4E 41 54 45 20 54 48 45 20 52 45 54 55 52 |MINATE THE RETUR| 000004E0: 4E 20 52 45 51 55 49 52 45 44 20 42 59 20 41 4E |N REQUIRED BY AN| 000004F0: 20 49 4E 50 55 54 3A 0D 22 0D 22 20 20 20 20 20 | INPUT:."." | 00000500: 20 20 20 20 20 20 20 20 20 31 30 30 20 20 C7 C5 | 100 ..| 00000510: D4 20 D2 24 3A 20 C9 C6 20 D2 24 3D 27 27 20 D4 |. .$: .. .$='' .| 00000520: C8 C5 CE 20 31 30 30 0D 22 0D 22 20 20 20 20 20 |... 100."." | 00000530: 20 20 20 20 D4 48 49 53 20 41 4C 53 4F 20 45 4C | .HIS ALSO EL| 00000540: 49 4D 49 4E 41 54 45 53 20 54 48 45 20 50 52 4F |IMINATES THE PRO| 00000550: 42 4C 45 4D 53 20 57 48 45 4E 20 54 48 45 20 52 |BLEMS WHEN THE R| 00000560: 45 54 55 52 4E 20 4B 45 59 20 49 53 20 20 48 49 |ETURN KEY IS HI| 00000570: 54 0D 22 20 20 20 20 20 20 20 20 20 57 49 54 48 |T." WITH| 00000580: 4F 55 54 20 45 4E 54 45 52 49 4E 47 20 41 4E 59 |OUT ENTERING ANY| 00000590: 20 44 41 54 41 20 20 49 4E 20 20 52 45 53 50 4F | DATA IN RESPO| 000005A0: 4E 53 45 20 20 54 4F 20 20 41 4E 20 20 49 4E 50 |NSE TO AN INP| 000005B0: 55 54 2E 20 20 D4 48 49 53 0D 22 20 20 20 20 20 |UT. .HIS." | 000005C0: 20 20 20 20 4C 41 54 54 45 52 20 50 52 4F 42 4C | LATTER PROBL| 000005D0: 45 4D 20 43 41 4E 20 41 4C 53 4F 20 42 45 20 20 |EM CAN ALSO BE | 000005E0: 41 56 4F 49 44 45 44 20 20 42 59 20 20 50 52 49 |AVOIDED BY PRI| 000005F0: 4E 54 49 4E 47 20 20 41 20 20 44 45 46 41 55 4C |NTING A DEFAUL| 00000600: 54 0D 22 20 20 20 20 20 20 20 20 20 52 45 53 50 |T." RESP| 00000610: 4F 4E 53 45 20 42 45 46 4F 52 45 20 41 53 4B 49 |ONSE BEFORE ASKI| 00000620: 4E 47 20 46 4F 52 20 49 4E 50 55 54 2E 20 D4 48 |NG FOR INPUT. .H| 00000630: 45 20 42 45 53 54 20 4D 45 54 48 4F 44 20 20 C9 |E BEST METHOD .| 00000640: 27 56 45 20 20 53 45 45 4E 0D 22 20 20 20 20 20 |'VE SEEN." | 00000650: 20 20 20 20 49 4E 56 4F 4C 56 45 53 20 50 52 49 | INVOLVES PRI| 00000660: 4E 54 49 4E 47 20 54 48 45 20 4E 4F 52 4D 41 4C |NTING THE NORMAL| 00000670: 20 51 55 45 53 54 49 4F 4E 20 57 49 54 48 20 20 | QUESTION WITH | 00000680: 54 48 52 45 45 20 20 41 44 44 49 54 49 4F 4E 41 |THREE ADDITIONA| 00000690: 4C 0D 22 20 20 20 20 20 20 20 20 20 53 50 41 43 |L." SPAC| 000006A0: 45 53 20 41 4E 44 20 54 48 45 20 48 41 4C 46 2D |ES AND THE HALF-| 000006B0: 42 4F 58 20 47 52 41 50 48 49 43 53 20 43 48 41 |BOX GRAPHICS CHA| 000006C0: 52 41 43 54 45 52 20 20 46 4F 55 4E 44 20 20 4F |RACTER FOUND O| 000006D0: 4E 20 20 54 48 45 20 20 C9 0D 22 20 20 20 20 20 |N THE .." | 000006E0: 20 20 20 20 4B 45 59 2E 20 D4 48 45 4E 20 50 52 | KEY. .HEN PR| 000006F0: 49 4E 54 20 54 48 52 45 45 20 43 55 52 53 4F 52 |INT THREE CURSOR| 00000700: 20 4C 45 46 54 53 20 54 4F 20 52 45 50 4C 41 43 | LEFTS TO REPLAC| 00000710: 45 20 54 48 45 20 20 43 55 52 53 4F 52 20 20 54 |E THE CURSOR T| 00000720: 4F 0D 22 20 20 20 20 20 20 20 20 20 54 48 45 20 |O." THE | 00000730: 4E 4F 52 4D 41 4C 20 50 4F 53 49 54 49 4F 4E 20 |NORMAL POSITION | 00000740: 41 46 54 45 52 20 54 48 45 20 51 55 45 53 54 49 |AFTER THE QUESTI| 00000750: 4F 4E 20 41 4E 44 20 41 53 4B 20 46 4F 52 20 49 |ON AND ASK FOR I| 00000760: 4E 50 55 54 2E 20 D4 48 45 0D 22 20 20 20 20 20 |NPUT. .HE." | 00000770: 20 20 20 20 43 55 52 53 4F 52 20 57 49 4C 4C 20 | CURSOR WILL | 00000780: 41 50 50 45 41 52 20 41 53 20 41 20 48 41 4C 46 |APPEAR AS A HALF| 00000790: 20 20 42 4F 58 20 20 41 4C 54 45 52 4E 41 54 49 | BOX ALTERNATI| 000007A0: 4E 47 20 20 46 52 4F 4D 20 20 54 4F 50 20 20 54 |NG FROM TOP T| 000007B0: 4F 0D 22 20 20 20 20 20 20 20 20 20 42 4F 54 54 |O." BOTT| 000007C0: 4F 4D 20 41 4E 44 20 42 41 43 4B 2E 20 20 C9 46 |OM AND BACK. .F| 000007D0: 20 20 54 48 45 20 20 52 45 54 55 52 4E 20 20 4B | THE RETURN K| 000007E0: 45 59 20 20 49 53 20 20 4E 4F 54 20 20 48 49 54 |EY IS NOT HIT| 000007F0: 20 20 57 49 54 48 4F 55 54 0D 22 20 20 20 20 20 | WITHOUT." | 00000800: 20 20 20 20 45 4E 54 45 52 49 4E 47 20 20 41 4E | ENTERING AN| 00000810: 59 20 20 4F 54 48 45 52 20 20 44 41 54 41 2C 20 |Y OTHER DATA, | 00000820: 20 59 4F 55 27 4C 4C 20 20 52 45 43 45 49 56 45 | YOU'LL RECEIVE| 00000830: 20 20 20 54 48 45 20 20 20 48 41 4C 46 2D 42 4F | THE HALF-BO| 00000840: 58 0D 22 20 20 20 20 20 20 20 20 20 43 48 41 52 |X." CHAR| 00000850: 41 43 54 45 52 20 41 53 20 41 20 44 45 46 41 55 |ACTER AS A DEFAU| 00000860: 4C 54 20 49 4E 50 55 54 20 41 4E 44 20 43 41 4E |LT INPUT AND CAN| 00000870: 20 53 55 42 53 54 49 54 55 54 45 20 41 4E 4F 54 | SUBSTITUTE ANOT| 00000880: 48 45 52 20 56 41 4C 55 45 0D 22 20 20 20 20 20 |HER VALUE." | 00000890: 20 20 20 20 49 46 20 44 45 53 49 52 45 44 3A 0D | IF DESIRED:.| 000008A0: 22 0D 22 20 20 20 20 20 20 20 20 20 20 20 20 31 |"." 1| 000008B0: 30 30 20 20 D0 D2 C9 CE D4 27 C6 C9 CC C5 CE C1 |00 .....'......| 000008C0: CD C5 20 DB 33 2D 53 50 41 43 45 53 DD 20 A8 20 |.. .3-SPACES. . | 000008D0: DB 33 2D 43 55 52 53 4F 52 20 4C 45 46 54 DD 27 |.3-CURSOR LEFT.'| 000008E0: 3B 0D 22 20 20 20 20 20 20 20 20 20 20 20 20 31 |;." 1| 000008F0: 31 30 20 20 C9 CE D0 D5 D4 20 CE 24 0D 22 20 20 |10 ..... .$." | 00000900: 20 20 20 20 20 20 20 20 20 20 31 32 30 20 20 C9 | 120 .| 00000910: C6 20 CE 24 3D 27 A8 27 20 D4 C8 C5 CE 20 CE 24 |. .$='.' .... .$| 00000920: 3D 27 44 45 46 41 55 4C 54 27 0D 22 0D 22 20 20 |='DEFAULT'."." | 00000930: 20 20 20 20 20 20 20 D9 4F 55 20 43 4F 55 4C 44 | .OU COULD| 00000940: 20 41 4C 53 4F 20 55 53 45 20 54 48 49 53 20 4D | ALSO USE THIS M| 00000950: 45 54 48 4F 44 20 20 54 4F 20 20 53 45 54 20 20 |ETHOD TO SET | 00000960: 55 50 20 20 41 20 20 52 45 41 4C 20 20 44 45 46 |UP A REAL DEF| 00000970: 41 55 4C 54 0D 22 20 20 20 20 20 20 20 20 20 41 |AULT." A| 00000980: 4E 53 57 45 52 20 53 55 43 48 20 41 53 20 D9 20 |NSWER SUCH AS . | 00000990: 4F 52 20 CE 2C 20 54 48 45 4E 20 53 49 4D 50 4C |OR ., THEN SIMPL| 000009A0: 59 20 48 49 54 20 54 48 45 20 52 45 54 55 52 4E |Y HIT THE RETURN| 000009B0: 20 4B 45 59 20 54 4F 20 20 55 53 45 0D 22 20 20 | KEY TO USE." | 000009C0: 20 20 20 20 20 20 20 54 48 45 20 50 52 45 53 45 | THE PRESE| 000009D0: 54 20 44 45 46 41 55 4C 54 20 56 41 4C 55 45 3A |T DEFAULT VALUE:| 000009E0: 0D 22 0D 22 20 20 20 20 20 20 20 20 20 20 20 20 |."." | 000009F0: 31 30 30 20 20 C9 CE D0 D5 D4 27 D0 D2 C9 CE D4 |100 .....'.....| 00000A00: C5 C4 20 C3 CF D0 D9 20 DB 33 2D 53 50 41 43 45 |.. .... .3-SPACE| 00000A10: 53 DD 20 CE 20 DB 33 2D 43 55 52 53 4F 52 20 4C |S. . .3-CURSOR L| 00000A20: 45 46 54 DD 27 3B C1 24 0D 22 0D 22 20 20 20 20 |EFT.';.$."." | 00000A30: 20 20 20 20 20 D7 48 45 4E 20 55 53 49 4E 47 20 | .HEN USING | 00000A40: 54 48 45 20 C7 C5 D4 20 43 4F 4D 4D 41 4E 44 2C |THE ... COMMAND,| 00000A50: 20 41 20 53 49 4D 50 4C 45 20 53 55 42 52 4F 55 | A SIMPLE SUBROU| 00000A60: 54 49 4E 45 20 20 57 49 4C 4C 20 20 41 43 43 45 |TINE WILL ACCE| 00000A70: 50 54 0D 22 20 20 20 20 20 20 20 20 20 41 4E 59 |PT." ANY| 00000A80: 20 4F 4E 45 20 4F 46 20 41 20 50 52 45 44 45 54 | ONE OF A PREDET| 00000A90: 45 52 4D 49 4E 45 44 20 53 45 54 20 4F 46 20 56 |ERMINED SET OF V| 00000AA0: 41 4C 49 44 20 52 45 53 50 4F 4E 53 45 53 2E 20 |ALID RESPONSES. | 00000AB0: C2 59 20 53 45 54 54 49 4E 47 0D 22 20 20 20 20 |.Y SETTING." | 00000AC0: 20 20 20 20 20 41 20 56 41 52 49 41 42 4C 45 20 | A VARIABLE | 00000AD0: 54 4F 20 43 4F 4E 54 41 49 4E 20 41 20 53 54 52 |TO CONTAIN A STR| 00000AE0: 49 4E 47 20 20 4F 46 20 20 56 41 4C 49 44 20 20 |ING OF VALID | 00000AF0: 43 48 41 52 41 43 54 45 52 53 20 20 42 45 46 4F |CHARACTERS BEFO| 00000B00: 52 45 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 22 20 |RE............" | 00000B10: 20 20 20 20 20 20 20 20 D0 C7 CD 20 D3 D4 D9 CC | ... ....| 00000B20: C5 20 20 20 20 20 20 20 20 20 20 20 20 C2 59 3A |. .Y:| 00000B30: 20 D2 4F 42 45 52 54 20 D7 2E 20 C2 41 4B 45 52 | .OBERT .. .AKER| 00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D0 | .| 00000B50: 41 47 45 20 32 0D 0D 0D 22 20 20 20 20 20 20 20 |AGE 2..." | 00000B60: 20 20 43 41 4C 4C 49 4E 47 20 54 48 45 20 20 43 | CALLING THE C| 00000B70: 4F 4D 4D 4F 4E 20 20 53 55 42 52 4F 55 54 49 4E |OMMON SUBROUTIN| 00000B80: 45 2C 20 20 54 48 45 20 20 53 55 42 52 4F 55 54 |E, THE SUBROUT| 00000B90: 49 4E 45 20 20 57 49 4C 4C 20 20 54 48 45 4E 0D |INE WILL THEN.| 00000BA0: 22 20 20 20 20 20 20 20 20 20 41 43 43 45 50 54 |" ACCEPT| 00000BB0: 20 4F 4E 4C 59 20 56 41 4C 49 44 20 43 48 41 52 | ONLY VALID CHAR| 00000BC0: 41 43 54 45 52 53 20 42 45 46 4F 52 45 20 52 45 |ACTERS BEFORE RE| 00000BD0: 54 55 52 4E 49 4E 47 3A 0D 22 0D 22 20 20 20 20 |TURNING:."." | 00000BE0: 20 20 20 20 20 20 20 20 31 30 30 20 20 D2 24 3D | 100 .$=| 00000BF0: 27 CE D3 D7 C5 D5 C4 27 3A 20 C7 CF D3 D5 C2 20 |'......': ..... | 00000C00: 35 30 30 30 0D 22 20 20 20 20 20 20 20 20 20 20 |5000." | 00000C10: 20 20 20 2E 0D 22 20 20 20 20 20 20 20 20 20 20 | .." | 00000C20: 20 20 20 2E 0D 22 20 20 20 20 20 20 20 20 20 20 | .." | 00000C30: 20 20 20 2E 0D 22 20 20 20 20 20 20 20 20 20 20 | .." | 00000C40: 20 20 32 34 30 20 20 D2 24 3D 27 D9 CE 27 3A 20 | 240 .$='..': | 00000C50: C7 CF D3 D5 C2 20 35 30 30 30 0D 22 20 20 20 20 |..... 5000." | 00000C60: 20 20 20 20 20 20 20 20 20 2E 0D 22 20 20 20 20 | .." | 00000C70: 20 20 20 20 20 20 20 20 20 2E 0D 22 20 20 20 20 | .." | 00000C80: 20 20 20 20 20 20 20 20 20 2E 0D 22 20 20 20 20 | .." | 00000C90: 20 20 20 20 20 20 20 20 35 39 30 20 20 D2 24 3D | 590 .$=| 00000CA0: 27 31 32 33 34 35 27 3A 20 C7 CF D3 D5 C2 20 35 |'12345': ..... 5| 00000CB0: 30 30 30 0D 22 20 20 20 20 20 20 20 20 20 20 20 |000." | 00000CC0: 20 20 2E 0D 22 20 20 20 20 20 20 20 20 20 20 20 | .." | 00000CD0: 20 20 2E 0D 22 20 20 20 20 20 20 20 20 20 20 20 | .." | 00000CE0: 20 20 2E 0D 22 20 20 20 20 20 20 20 20 20 20 20 | .." | 00000CF0: 35 30 30 30 20 20 C7 C5 D4 20 C3 24 3A 20 C9 C6 |5000 ... .$: ..| 00000D00: 20 C3 24 3D 27 27 20 D4 C8 C5 CE 20 35 30 30 30 | .$='' .... 5000| 00000D10: 0D 22 20 20 20 20 20 20 20 20 20 20 20 35 30 31 |." 501| 00000D20: 30 20 20 C6 CF D2 20 D8 3D 31 20 D4 CF 20 CC C5 |0 ... .=1 .. ..| 00000D30: CE 28 D2 24 29 0D 22 20 20 20 20 20 20 20 20 20 |.(.$)." | 00000D40: 20 20 35 30 32 30 20 20 C9 C6 20 C3 24 3D CD C9 | 5020 .. .$=..| 00000D50: C4 24 28 D2 24 2C D8 2C 31 29 20 D4 C8 C5 CE 20 |.$(.$,.,1) .... | 00000D60: D2 C5 D4 D5 D2 CE 0D 22 20 20 20 20 20 20 20 20 |......." | 00000D70: 20 20 20 35 30 33 30 20 20 CE C5 D8 D4 3A 20 C7 | 5030 ....: .| 00000D80: CF D4 CF 20 35 30 30 30 0D 22 0D 22 20 20 20 20 |... 5000."." | 00000D90: 20 20 20 20 20 D4 48 49 53 20 53 55 42 52 4F 55 | .HIS SUBROU| 00000DA0: 54 49 4E 45 20 57 49 4C 4C 20 4F 4E 4C 59 20 41 |TINE WILL ONLY A| 00000DB0: 43 43 45 50 54 20 20 43 48 41 52 41 43 54 45 52 |CCEPT CHARACTER| 00000DC0: 53 20 20 44 45 46 49 4E 45 44 20 20 49 4E 20 20 |S DEFINED IN | 00000DD0: D2 24 0D 22 20 20 20 20 20 20 20 20 20 50 52 49 |.$." PRI| 00000DE0: 4F 52 20 54 4F 20 52 45 54 55 52 4E 49 4E 47 2E |OR TO RETURNING.| 00000DF0: 0D 22 0D 22 20 20 20 20 20 20 20 20 20 C1 4E 4F |."." .NO| 00000E00: 54 48 45 52 20 50 52 4F 42 4C 45 4D 20 46 4F 55 |THER PROBLEM FOU| 00000E10: 4E 44 20 49 4E 20 53 4F 4D 45 20 4D 45 4E 55 20 |ND IN SOME MENU | 00000E20: 44 52 49 56 45 4E 20 20 50 52 4F 47 52 41 4D 53 |DRIVEN PROGRAMS| 00000E30: 20 20 43 4F 4E 43 45 52 4E 53 0D 22 20 20 20 20 | CONCERNS." | 00000E40: 20 20 20 20 20 50 52 4F 4D 50 54 49 4E 47 20 46 | PROMPTING F| 00000E50: 4F 52 20 43 45 52 54 41 49 4E 20 4F 50 54 49 4F |OR CERTAIN OPTIO| 00000E60: 4E 53 20 4F 52 20 46 55 4E 43 54 49 4F 4E 53 20 |NS OR FUNCTIONS | 00000E70: 57 48 45 4E 20 54 48 45 59 20 4D 55 53 54 20 20 |WHEN THEY MUST | 00000E80: 42 45 0D 22 20 20 20 20 20 20 20 20 20 55 53 45 |BE." USE| 00000E90: 44 20 49 4E 20 41 20 53 50 45 43 49 46 49 43 20 |D IN A SPECIFIC | 00000EA0: 4F 52 44 45 52 2E 20 D4 59 50 49 43 41 4C 4C 59 |ORDER. .YPICALLY| 00000EB0: 20 41 20 50 52 4F 47 52 41 4D 20 44 49 53 50 4C | A PROGRAM DISPL| 00000EC0: 41 59 53 20 41 20 4C 49 53 54 0D 22 20 20 20 20 |AYS A LIST." | 00000ED0: 20 20 20 20 20 4F 46 20 4F 50 54 49 4F 4E 53 20 | OF OPTIONS | 00000EE0: 41 4E 44 20 41 53 4B 53 20 54 48 45 20 55 53 45 |AND ASKS THE USE| 00000EF0: 52 20 20 54 4F 20 20 45 4E 54 45 52 20 20 54 48 |R TO ENTER TH| 00000F00: 45 20 20 4E 55 4D 42 45 52 20 20 4F 46 20 20 54 |E NUMBER OF T| 00000F10: 48 45 0D 22 20 20 20 20 20 20 20 20 20 4F 50 54 |HE." OPT| 00000F20: 49 4F 4E 20 44 45 53 49 52 45 44 2E 20 C9 46 20 |ION DESIRED. .F | 00000F30: 20 54 48 45 52 45 20 20 41 52 45 20 20 4E 4F 20 | THERE ARE NO | 00000F40: 20 43 48 45 43 4B 53 20 20 54 48 41 54 20 20 54 | CHECKS THAT T| 00000F50: 48 45 20 20 50 52 4F 50 45 52 0D 22 20 20 20 20 |HE PROPER." | 00000F60: 20 20 20 20 20 53 45 51 55 45 4E 43 45 20 48 41 | SEQUENCE HA| 00000F70: 53 20 42 45 45 4E 20 46 4F 4C 4C 4F 57 45 44 2C |S BEEN FOLLOWED,| 00000F80: 20 54 48 45 4E 20 20 54 48 45 20 20 50 52 4F 47 | THEN THE PROG| 00000F90: 52 41 4D 20 20 4D 41 59 20 20 47 45 4E 45 52 41 |RAM MAY GENERA| 00000FA0: 54 45 0D 22 20 20 20 20 20 20 20 20 20 45 52 52 |TE." ERR| 00000FB0: 4F 4E 45 4F 55 53 20 52 45 53 55 4C 54 53 20 57 |ONEOUS RESULTS W| 00000FC0: 48 45 4E 20 54 48 45 20 49 4D 50 52 4F 50 45 52 |HEN THE IMPROPER| 00000FD0: 20 53 45 51 55 45 4E 43 45 20 49 53 20 55 53 45 | SEQUENCE IS USE| 00000FE0: 44 2E 0D 22 0D 22 20 20 20 20 20 20 20 20 20 C1 |D.."." .| 00000FF0: 20 53 49 4D 50 4C 45 20 53 4F 4C 55 54 49 4F 4E | SIMPLE SOLUTION| 00001000: 20 57 4F 55 4C 44 20 42 45 20 54 4F 20 41 44 44 | WOULD BE TO ADD| 00001010: 20 41 20 56 41 52 49 41 42 4C 45 20 41 53 20 41 | A VARIABLE AS A| 00001020: 20 20 46 4C 41 47 20 20 54 48 41 54 0D 22 20 20 | FLAG THAT." | 00001030: 20 20 20 20 20 20 20 49 53 20 53 45 54 20 54 4F | IS SET TO| 00001040: 20 41 20 4E 4F 4E 2D 5A 45 52 4F 20 56 41 4C 55 | A NON-ZERO VALU| 00001050: 45 20 20 57 48 45 4E 20 20 54 48 45 20 20 52 45 |E WHEN THE RE| 00001060: 51 55 49 52 45 44 20 20 53 45 51 55 45 4E 43 45 |QUIRED SEQUENCE| 00001070: 20 20 49 53 0D 22 20 20 20 20 20 20 20 20 20 45 | IS." E| 00001080: 58 45 43 55 54 45 44 2E 20 D4 48 45 20 46 4C 41 |XECUTED. .HE FLA| 00001090: 47 20 43 41 4E 20 54 48 45 4E 20 42 45 20 54 45 |G CAN THEN BE TE| 000010A0: 53 54 45 44 20 42 45 46 4F 52 45 20 54 52 59 49 |STED BEFORE TRYI| 000010B0: 4E 47 20 54 4F 20 20 44 4F 20 20 41 0D 22 20 20 |NG TO DO A." | 000010C0: 20 20 20 20 20 20 20 50 41 52 54 49 43 55 4C 41 | PARTICULA| 000010D0: 52 20 20 4F 50 45 52 41 54 49 4F 4E 20 20 54 48 |R OPERATION TH| 000010E0: 41 54 20 20 44 45 50 45 4E 44 53 20 20 4F 4E 20 |AT DEPENDS ON | 000010F0: 20 50 52 49 4F 52 20 20 44 41 54 41 20 20 20 42 | PRIOR DATA B| 00001100: 45 49 4E 47 0D 22 20 20 20 20 20 20 20 20 20 45 |EING." E| 00001110: 53 54 41 42 4C 49 53 48 45 44 2E 20 C1 4E 4F 54 |STABLISHED. .NOT| 00001120: 48 45 52 20 49 44 45 41 20 4D 49 47 48 54 20 42 |HER IDEA MIGHT B| 00001130: 45 20 54 4F 20 20 4F 4E 4C 59 20 20 50 52 4F 4D |E TO ONLY PROM| 00001140: 50 54 20 20 46 4F 52 20 20 54 48 45 0D 22 20 20 |PT FOR THE." | 00001150: 20 20 20 20 20 20 20 56 41 4C 49 44 20 4F 50 45 | VALID OPE| 00001160: 52 41 54 49 4F 4E 53 20 41 4E 44 20 4D 4F 44 49 |RATIONS AND MODI| 00001170: 46 59 20 54 48 45 20 4D 45 4E 55 20 44 49 53 50 |FY THE MENU DISP| 00001180: 4C 41 59 20 41 43 43 4F 52 44 49 4E 47 4C 59 2E |LAY ACCORDINGLY.| 00001190: 0D 22 0D 22 20 20 20 20 20 20 20 20 20 D7 48 45 |."." .HE| 000011A0: 4E 20 59 4F 55 20 57 52 49 54 45 20 41 20 50 52 |N YOU WRITE A PR| 000011B0: 4F 47 52 41 4D 20 46 4F 52 20 4F 54 48 45 52 53 |OGRAM FOR OTHERS| 000011C0: 20 54 4F 20 20 55 53 45 2C 20 20 59 4F 55 20 20 | TO USE, YOU | 000011D0: 53 48 4F 55 4C 44 20 20 42 45 0D 22 20 20 20 20 |SHOULD BE." | 000011E0: 20 20 20 20 20 45 58 54 52 45 4D 45 4C 59 20 43 | EXTREMELY C| 000011F0: 41 52 45 46 55 4C 20 57 49 54 48 20 20 54 48 45 |AREFUL WITH THE| 00001200: 20 20 55 53 45 52 20 20 49 4E 54 45 52 46 41 43 | USER INTERFAC| 00001210: 45 2C 20 20 D2 45 4D 45 4D 42 45 52 2C 20 20 59 |E, .EMEMBER, Y| 00001220: 4F 55 0D 22 20 20 20 20 20 20 20 20 20 57 52 4F |OU." WRO| 00001230: 54 45 20 54 48 45 20 50 52 4F 47 52 41 4D 20 41 |TE THE PROGRAM A| 00001240: 4E 44 20 53 48 4F 55 4C 44 20 4B 4E 4F 57 20 57 |ND SHOULD KNOW W| 00001250: 48 41 54 20 49 54 27 53 20 44 4F 49 4E 47 2E 20 |HAT IT'S DOING. | 00001260: 20 D4 48 45 20 20 55 53 45 52 0D 22 20 20 20 20 | .HE USER." | 00001270: 20 20 20 20 20 49 53 20 43 4F 4D 50 4C 45 54 45 | IS COMPLETE| 00001280: 4C 59 20 49 47 4E 4F 52 41 4E 54 20 41 53 20 54 |LY IGNORANT AS T| 00001290: 4F 20 57 48 41 54 20 49 53 20 42 45 49 4E 47 20 |O WHAT IS BEING | 000012A0: 20 44 4F 4E 45 20 20 49 4E 53 49 44 45 20 20 54 | DONE INSIDE T| 000012B0: 48 45 0D 22 20 20 20 20 20 20 20 20 20 50 52 4F |HE." PRO| 000012C0: 47 52 41 4D 20 41 4E 44 20 43 41 4E 4E 4F 54 20 |GRAM AND CANNOT | 000012D0: 42 45 20 45 58 50 45 43 54 45 44 20 54 4F 20 4B |BE EXPECTED TO K| 000012E0: 4E 4F 57 20 57 48 41 54 20 59 4F 55 20 41 52 45 |NOW WHAT YOU ARE| 000012F0: 20 45 58 50 45 43 54 49 4E 47 0D 22 20 20 20 20 | EXPECTING." | 00001300: 20 20 20 20 20 48 49 4D 20 54 4F 20 44 4F 2E 0D | HIM TO DO..| 00001310: 22 0D 22 20 20 20 20 20 20 20 20 20 D4 52 59 20 |"." .RY | 00001320: 54 4F 20 4D 41 4B 45 20 54 48 45 20 50 52 4F 47 |TO MAKE THE PROG| 00001330: 52 41 4D 20 41 53 20 49 44 49 4F 54 2D 50 52 4F |RAM AS IDIOT-PRO| 00001340: 4F 46 20 41 53 20 50 4F 53 53 49 42 4C 45 2C 20 |OF AS POSSIBLE, | 00001350: 20 45 56 45 4E 20 20 49 46 0D 22 20 20 20 20 20 | EVEN IF." | 00001360: 20 20 20 20 49 54 20 53 45 45 4D 53 20 53 49 4C | IT SEEMS SIL| 00001370: 4C 59 2E 20 C4 4F 4E 27 54 20 4C 45 54 20 54 48 |LY. .ON'T LET TH| 00001380: 45 20 55 53 45 52 20 44 4F 20 41 4E 59 54 48 49 |E USER DO ANYTHI| 00001390: 4E 47 20 59 4F 55 20 44 4F 4E 27 54 20 57 41 4E |NG YOU DON'T WAN| 000013A0: 54 0D 22 20 20 20 20 20 20 20 20 20 54 48 45 4D |T." THEM| 000013B0: 20 20 54 4F 20 20 44 4F 2E 20 20 D4 48 45 4E 2C | TO DO. .HEN,| 000013C0: 20 20 42 45 46 4F 52 45 20 20 53 55 42 4D 49 54 | BEFORE SUBMIT| 000013D0: 54 49 4E 47 20 20 41 20 20 50 52 4F 47 52 41 4D |TING A PROGRAM| 000013E0: 20 20 54 4F 20 20 41 4E 59 0D 22 20 20 20 20 20 | TO ANY." | 000013F0: 20 20 20 20 4F 52 47 41 4E 49 5A 41 54 49 4F 4E | ORGANIZATION| 00001400: 20 46 4F 52 20 52 45 56 49 45 57 2C 20 48 41 56 | FOR REVIEW, HAV| 00001410: 45 20 53 4F 4D 45 4F 4E 45 20 57 48 4F 20 4B 4E |E SOMEONE WHO KN| 00001420: 4F 57 53 20 4E 4F 54 48 49 4E 47 20 41 42 4F 55 |OWS NOTHING ABOU| 00001430: 54 0D 22 20 20 20 20 20 20 20 20 20 54 48 45 20 |T." THE | 00001440: 50 4F 47 52 41 4D 20 54 52 59 20 49 54 20 4F 55 |POGRAM TRY IT OU| 00001450: 54 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |T...............|
" PGM STYLE BY: ROBER
T W. BAKER PAGE 1..."
PROGRAMMING ST
YLE.." OVER THE PAST YEARS I'VE
HELPED WITH REVIEWS OF VARIOUS."
PROGRAMS WRITTEN FOR THE DIFFEREN
T COMMODORE SYSTEMS AS WELL." A
S OTHER SYSTEMS BOTH SMALL AND LARGE. O
NE OF THE BIGGEST." PROBLEMS
I'VE SEEN WITH THE SOFTWARE SUBMITTED IS
THE LACK OF." CHECKING FOR VALI
D RESPONSES TO QUESTIONS.."." IT
USUALLY DOESN'T TAKE MUCH ADDED EFFORT
TO HAVE THE PROGRAM." CHECK ALL
USER INPUT. IT CAN BE VERY FRUSTRATING T
O A USER IF." THE PROGRAM STOPS
BECAUSE HE TYPED IN A BAD VALUE
OR." ACCIDENTALLY HIT THE WRONG
KEY.."." YOU SHOULD ALWAYS USE
A STRING VARIABLE FOR USER RESPONSE AND.
" CONVERT STRINGS TO NUMBERS W
HEN REQUIRED, USING THE VAL."
FUNCTION. THIS ALLOWS YOU TO CHECK FOR
VALID RESPONSES IN ALL." CASES
BEFORE TRYING TO USE A VALUE. IT ALSO
PREVENTS THE." CONFUSING REDO
FROM START ERROR MESSAGE IF YOU ENTER A
LETTER." WHEN THE PROGRAM EXPEC
TS A NUMBER.."." IF ONLY A SINGL
E CHARACTER RESPONSE IS REQUIRED, USE TH
E GET." FUNCTION TO ELIMINATE T
HE RETURN REQUIRED BY AN INPUT:."."
100 GET R$: IF R$='' THEN 100.
"." THIS ALSO ELIMINATES THE PRO
BLEMS WHEN THE RETURN KEY IS HIT."
WITHOUT ENTERING ANY DATA IN RESPO
NSE TO AN INPUT. THIS." LATT
ER PROBLEM CAN ALSO BE AVOIDED BY PRI
NTING A DEFAULT." RESPONSE BEF
ORE ASKING FOR INPUT. THE BEST METHOD I
'VE SEEN." INVOLVES PRINTING TH
E NORMAL QUESTION WITH THREE ADDITIONA
L." SPACES AND THE HALF-BOX GRAP
HICS CHARACTER FOUND ON THE I."
KEY. THEN PRINT THREE CURSOR LEFTS T
O REPLACE THE CURSOR TO." THE
NORMAL POSITION AFTER THE QUESTION AND A
SK FOR INPUT. THE." CURSOR WILL
APPEAR AS A HALF BOX ALTERNATING FROM
TOP TO." BOTTOM AND BACK. IF
THE RETURN KEY IS NOT HIT WITHOU
T." ENTERING ANY OTHER DATA,
YOU'LL RECEIVE THE HALF-BOX."
CHARACTER AS A DEFAULT INPUT AND CAN
SUBSTITUTE ANOTHER VALUE." IF D
ESIRED:."." 100 PRINT'FILENA
ME .3-SPACES. . .3-CURSOR LEFT.';."
110 INPUT N$." 120 I
F N$='.' THEN N$='DEFAULT'."." Y
OU COULD ALSO USE THIS METHOD TO SET
UP A REAL DEFAULT." ANSWER SU
CH AS Y OR N, THEN SIMPLY HIT THE RETURN
KEY TO USE." THE PRESET DEFAUL
T VALUE:."." 100 INPUT'PRINT
ED COPY .3-SPACES. N .3-CURSOR LEFT.';A$
."." WHEN USING THE GET COMMAND,
A SIMPLE SUBROUTINE WILL ACCEPT."
ANY ONE OF A PREDETERMINED SET OF V
ALID RESPONSES. BY SETTING." A V
ARIABLE TO CONTAIN A STRING OF VALID
CHARACTERS BEFORE............"
PGM STYLE BY: ROBERT W. BAKER
PAGE 2..." CALLIN
G THE COMMON SUBROUTINE, THE SUBROUT
INE WILL THEN." ACCEPT ONLY VA
LID CHARACTERS BEFORE RETURNING:."."
100 R$='NSWEUD': GOSUB 5000."
.." .."
.." 240 R$='YN': GOSUB 50
00." .." .."
.." 590 R$='12345':
GOSUB 5000." .."
.." .." 5000 GE
T C$: IF C$='' THEN 5000." 501
0 FOR X=1 TO LEN(R$)." 5020
IF C$=MID$(R$,X,1) THEN RETURN."
5030 NEXT: GOTO 5000."." THI
S SUBROUTINE WILL ONLY ACCEPT CHARACTER
S DEFINED IN R$." PRIOR TO RE
TURNING.."." ANOTHER PROBLEM FOU
ND IN SOME MENU DRIVEN PROGRAMS CONCER
NS." PROMPTING FOR CERTAIN OPTIO
NS OR FUNCTIONS WHEN THEY MUST BE."
USED IN A SPECIFIC ORDER. TYPICALLY
A PROGRAM DISPLAYS A LIST." OF
OPTIONS AND ASKS THE USER TO ENTER TH
E NUMBER OF THE." OPTION DESI
RED. IF THERE ARE NO CHECKS THAT T
HE PROPER." SEQUENCE HAS BEEN F
OLLOWED, THEN THE PROGRAM MAY GENERA
TE." ERRONEOUS RESULTS WHEN THE
IMPROPER SEQUENCE IS USED.."." A
SIMPLE SOLUTION WOULD BE TO ADD A VARIA
BLE AS A FLAG THAT." IS SET TO
A NON-ZERO VALUE WHEN THE REQUIRED
SEQUENCE IS." EXECUTED. THE FLA
G CAN THEN BE TESTED BEFORE TRYING TO D
O A." PARTICULAR OPERATION TH
AT DEPENDS ON PRIOR DATA BEING."
ESTABLISHED. ANOTHER IDEA MIGHT B
E TO ONLY PROMPT FOR THE." V
ALID OPERATIONS AND MODIFY THE MENU DISP
LAY ACCORDINGLY.."." WHEN YOU WR
ITE A PROGRAM FOR OTHERS TO USE, YOU
SHOULD BE." EXTREMELY CAREFUL W
ITH THE USER INTERFACE, REMEMBER, Y
OU." WROTE THE PROGRAM AND SHOUL
D KNOW WHAT IT'S DOING. THE USER."
IS COMPLETELY IGNORANT AS TO WHAT I
S BEING DONE INSIDE THE." PRO
GRAM AND CANNOT BE EXPECTED TO KNOW WHAT
YOU ARE EXPECTING." HIM TO DO..
"." TRY TO MAKE THE PROGRAM AS I
DIOT-PROOF AS POSSIBLE, EVEN IF."
IT SEEMS SILLY. DON'T LET THE USER D
O ANYTHING YOU DON'T WANT." THEM
TO DO. THEN, BEFORE SUBMITTING A
PROGRAM TO ANY." ORGANIZATION
FOR REVIEW, HAVE SOMEONE WHO KNOWS NOTH
ING ABOUT." THE POGRAM TRY IT OU
T...............
> CLICK IMAGE PREVIEW FOR FULL MODAL