TOTAL CONTROL
FILE INFORMATION
FILENAME(S): TOTAL CONTROL
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 18:12:17
APPEARS ON: 1 disk(s)
FILE HASH
02666dd5e7f3c95e754134fb9ff4f29c029fb76116d1daa4f3a60dada02368c0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 37 S 3 | TOTAL CONTROL | PRG | Sailor, Ganheden | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 0A 00 8D 36 30 31 30 30 3A 9C 3A 89 |.......60100:.:.| 00000010: 31 30 30 00 19 08 13 00 3A 00 3A 08 14 00 3A 20 |100.....:.:...: | 00000020: 20 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ..............| 00000030: AC AC AC AC AC AC AC AC AC AC 00 5B 08 15 00 3A |...........[...:| 00000040: 20 20 20 AC 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00000050: 20 20 20 20 20 20 20 20 20 20 AC 00 78 08 16 00 | ..x...| 00000060: 3A 20 20 20 AC 20 85 20 53 55 42 52 4F 55 54 49 |: . . SUBROUTI| 00000070: 4E 45 20 49 53 20 20 AC 00 99 08 19 00 3A 20 20 |NE IS ......: | 00000080: 20 AC 20 20 20 20 20 4C 49 4E 45 53 20 34 30 AB | . LINES 40.| 00000090: 35 39 20 20 20 20 20 20 AC 00 BA 08 1A 00 3A 20 |59 ......: | 000000A0: 20 20 AC 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 000000B0: 20 20 20 20 20 20 20 20 20 AC 00 DB 08 1B 00 3A | ......:| 000000C0: 20 20 20 AC AC AC AC AC AC AC AC AC AC AC AC AC | .............| 000000D0: AC AC AC AC AC AC AC AC AC AC AC 00 E1 08 1D 00 |................| 000000E0: 3A 00 11 09 28 00 97 31 39 38 2C 30 3A 99 22 12 |:...(..198,0:.".| 000000F0: 5B A6 22 3B 3A 81 58 B2 31 A4 4C 45 3A 99 22 20 |[.";:.X.1.LE:." | 00000100: 22 3B 3A 82 3A 99 22 5D 22 3A 99 22 91 1D 1D 22 |";:.:."]":."..."| 00000110: 3B 00 25 09 29 00 43 24 B2 22 22 3A 81 41 B2 31 |;.%.).C$."":.A.1| 00000120: A4 4C 45 AA 31 00 37 09 2A 00 A1 41 24 3A 8B 41 |.LE.1.7.*..A$:.A| 00000130: 24 B2 22 22 A7 34 32 00 48 09 2C 00 8B 41 24 B2 |$."".42.H.,..A$.| 00000140: C7 28 31 33 29 A7 35 39 00 7E 09 2E 00 8B 41 24 |.(13).59.~....A$| 00000150: B2 C7 28 32 30 29 AF 41 B1 31 A7 99 22 12 9D 9D |..(20).A.1.."...| 00000160: 20 20 9D 9D A6 22 3B 3A 41 B2 41 AB 31 3A 43 24 | ...";:A.A.1:C$| 00000170: B2 C8 28 42 24 2C 41 AB 31 29 3A 89 34 32 00 8D |..(B$,A.1):.42..| 00000180: 09 30 00 8B 41 B2 4C 45 AA 31 A7 34 32 00 AB 09 |.0..A.LE.1.42...| 00000190: 32 00 8B 28 4E 55 29 A7 8B 41 24 B1 B2 22 30 22 |2..(NU)..A$.."0"| 000001A0: AF 41 24 B3 B2 22 39 22 A7 35 38 00 C7 09 33 00 |.A$.."9".58...3.| 000001B0: 8B 28 4E 55 29 A7 8B 41 24 B2 22 2E 22 B0 41 24 |.(NU)..A$.".".A$| 000001C0: B2 22 2D 22 A7 35 38 00 FA 09 34 00 8B 28 41 4C |."-".58...4..(AL| 000001D0: 29 AF 28 28 41 24 B1 B2 22 20 22 AF 41 24 B3 B2 |).((A$.." ".A$..| 000001E0: 22 2F 22 29 B0 28 41 24 B1 B2 22 3A 22 AF 41 24 |"/").(A$..":".A$| 000001F0: B3 B2 22 5A 22 29 29 A7 35 38 00 1A 0A 36 00 8B |.."Z")).58...6..| 00000200: 28 41 4C 29 A7 8B 28 41 24 B1 B2 22 C1 22 AF 41 |(AL)..(A$..".".A| 00000210: 24 B3 B2 22 DA 22 29 A7 35 38 00 22 0A 38 00 89 |$..".").58.".8..| 00000220: 34 32 00 47 0A 3A 00 99 22 12 9D 22 41 24 3B 3A |42.G.:..".."A$;:| 00000230: 97 32 31 32 2C 2E 3A 99 22 A6 22 3B 3A 43 24 B2 |.212,.:.".";:C$.| 00000240: 43 24 AA 41 24 3A 82 00 54 0A 3B 00 99 22 9D 12 |C$.A$:..T.;.."..| 00000250: 20 22 3A 8E 00 5A 0A 3E 00 3A 00 78 0A 3F 00 3A | ":..Z.>.:.x.?.:| 00000260: 20 20 20 AC 20 44 45 4D 4F 20 81 20 53 55 42 52 | . DEMO . SUBR| 00000270: 4F 55 54 49 4E 45 20 AC 00 7E 0A 40 00 3A 00 B4 |OUTINE ..~.@.:..| 00000280: 0A 64 00 97 35 33 32 38 30 2C 2E 3A 97 35 33 32 |.d..53280,.:.532| 00000290: 38 31 2C 2E 3A 99 22 93 20 20 20 20 20 20 20 20 |81,.:.". | 000002A0: 20 20 20 20 20 9E D4 4F 54 41 4C 20 C3 4F 4E 54 | ..OTAL .ONT| 000002B0: 52 4F 4C 22 00 D8 0A 6E 00 99 22 20 20 20 20 20 |ROL"...n.." | 000002C0: 20 20 20 20 20 20 C2 59 20 C7 41 52 59 20 D6 2E | .Y .ARY ..| 000002D0: 20 C6 49 45 4C 44 53 22 00 05 0B 78 00 99 22 11 | .IELDS"...x..".| 000002E0: 20 20 9A D4 4F 54 41 4C 20 C3 4F 4E 54 52 4F 4C | ..OTAL .ONTROL| 000002F0: 20 4C 45 54 53 20 59 4F 55 20 43 48 4F 4F 53 45 | LETS YOU CHOOSE| 00000300: 20 54 48 45 22 00 2F 0B 82 00 99 22 4D 41 58 49 | THE"./...."MAXI| 00000310: 4D 55 4D 20 4E 55 4D 42 45 52 20 4F 46 20 43 48 |MUM NUMBER OF CH| 00000320: 41 52 41 43 54 45 52 53 20 54 4F 20 42 45 22 00 |ARACTERS TO BE".| 00000330: 5E 0B 8C 00 99 22 45 4E 54 45 52 45 44 2C 20 41 |^...."ENTERED, A| 00000340: 4E 44 20 57 48 45 54 48 45 52 20 4F 52 20 4E 4F |ND WHETHER OR NO| 00000350: 54 20 59 4F 55 20 57 41 4E 54 20 54 4F 22 00 87 |T YOU WANT TO"..| 00000360: 0B 96 00 99 22 41 43 43 45 50 54 20 4E 55 4D 42 |...."ACCEPT NUMB| 00000370: 45 52 53 2C 20 4C 45 54 54 45 52 53 2C 20 4F 52 |ERS, LETTERS, OR| 00000380: 20 42 4F 54 48 2E 22 00 B4 0B A0 00 99 22 C6 49 | BOTH."......".I| 00000390: 52 53 54 2C 20 59 4F 55 20 4D 55 53 54 20 53 45 |RST, YOU MUST SE| 000003A0: 54 20 9E CC C5 20 9A 45 51 55 41 4C 20 54 4F 20 |T ... .EQUAL TO | 000003B0: 54 48 45 22 00 E1 0B AA 00 99 22 4D 41 58 49 4D |THE"......"MAXIM| 000003C0: 55 4D 20 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 |UM NUMBER OF CHA| 000003D0: 52 41 43 54 45 52 53 20 59 4F 55 20 57 41 4E 54 |RACTERS YOU WANT| 000003E0: 22 00 0C 0C B4 00 99 22 54 48 45 20 52 4F 55 54 |"......"THE ROUT| 000003F0: 49 4E 45 20 54 4F 20 41 43 43 45 50 54 2E 20 D4 |INE TO ACCEPT. .| 00000400: 48 45 4E 2C 20 49 46 20 59 4F 55 22 00 35 0C BE |HEN, IF YOU".5..| 00000410: 00 99 22 57 41 4E 54 20 54 48 45 20 55 53 45 52 |.."WANT THE USER| 00000420: 20 54 4F 20 42 45 20 41 42 4C 45 20 54 4F 20 45 | TO BE ABLE TO E| 00000430: 4E 54 45 52 22 00 66 0C C8 00 99 22 4E 55 4D 42 |NTER".f...."NUMB| 00000440: 45 52 53 2C 20 53 45 54 20 9E CE D5 20 9A 45 51 |ERS, SET ... .EQ| 00000450: 55 41 4C 20 54 4F 20 31 3B 20 41 4E 44 2C 20 49 |UAL TO 1; AND, I| 00000460: 46 20 59 4F 55 22 00 8F 0C D2 00 99 22 57 41 4E |F YOU"......"WAN| 00000470: 54 20 54 48 45 20 55 53 45 52 20 54 4F 20 42 45 |T THE USER TO BE| 00000480: 20 41 42 4C 45 20 54 4F 20 45 4E 54 45 52 22 00 | ABLE TO ENTER".| 00000490: BD 0C DC 00 99 22 4C 45 54 54 45 52 53 2C 20 53 |....."LETTERS, S| 000004A0: 45 54 20 9E C1 CC 20 9A 45 51 55 41 4C 20 54 4F |ET ... .EQUAL TO| 000004B0: 20 31 2E 20 D4 48 45 4E 20 41 4C 4C 22 00 E2 0C | 1. .HEN ALL"...| 000004C0: E6 00 99 22 59 4F 55 20 4E 45 45 44 20 54 4F 20 |..."YOU NEED TO | 000004D0: 44 4F 20 49 53 20 9E C7 CF D3 D5 C2 20 34 30 9A |DO IS ...... 40.| 000004E0: 2E 22 00 0E 0D FA 00 99 22 11 D4 48 45 20 46 4F |."......"..HE FO| 000004F0: 4C 4C 4F 57 49 4E 47 20 49 53 20 41 4E 20 45 58 |LLOWING IS AN EX| 00000500: 41 4D 50 4C 45 20 4F 46 20 57 48 41 54 22 00 39 |AMPLE OF WHAT".9| 00000510: 0D 04 01 99 22 54 48 45 20 C2 C1 D3 C9 C3 20 43 |...."THE ..... C| 00000520: 4F 44 45 20 41 4E 44 20 54 48 45 20 4F 55 54 50 |ODE AND THE OUTP| 00000530: 55 54 20 57 4F 55 4C 44 22 00 4B 0D 0E 01 99 22 |UT WOULD".K...."| 00000540: 4C 4F 4F 4B 20 4C 49 4B 45 3A 22 00 70 0D 18 01 |LOOK LIKE:".p...| 00000550: 99 22 11 20 20 05 CC C5 3D 32 30 3A CE D5 3D 30 |.". ...=20:..=0| 00000560: 3A C1 CC 3D 31 3A C7 CF D3 D5 C2 34 30 11 1E 22 |:..=1:.....40.."| 00000570: 00 94 0D 1D 01 99 22 9F D9 4F 55 20 43 41 4E 20 |......"..OU CAN | 00000580: 4F 4E 4C 59 20 45 4E 54 45 52 20 4C 45 54 54 45 |ONLY ENTER LETTE| 00000590: 52 53 2E 22 00 AC 0D 22 01 4C 45 B2 32 30 3A 4E |RS."...".LE.20:N| 000005A0: 55 B2 2E 3A 41 4C B2 31 3A 8D 34 30 00 ED 0D 2C |U..:AL.1:.40...,| 000005B0: 01 99 22 91 91 91 91 91 22 3B 3A 81 41 B2 31 A4 |..".....";:.A.1.| 000005C0: 35 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |5:." | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 FB 0D | ":....| 000005F0: 36 01 99 22 91 91 91 91 91 91 22 00 20 0E 40 01 |6.."......". .@.| 00000600: 99 22 11 20 20 05 CC C5 3D 31 33 3A CE D5 3D 31 |.". ...=13:..=1| 00000610: 3A C1 CC 3D 30 3A C7 CF D3 D5 C2 34 30 11 1E 22 |:..=0:.....40.."| 00000620: 00 44 0E 45 01 99 22 9F D9 4F 55 20 43 41 4E 20 |.D.E.."..OU CAN | 00000630: 4F 4E 4C 59 20 45 4E 54 45 52 20 4E 55 4D 42 45 |ONLY ENTER NUMBE| 00000640: 52 53 2E 22 00 5C 0E 4A 01 4C 45 B2 31 33 3A 4E |RS.".\.J.LE.13:N| 00000650: 55 B2 31 3A 41 4C B2 30 3A 8D 34 30 00 9D 0E 54 |U.1:AL.0:.40...T| 00000660: 01 99 22 91 91 91 91 91 22 3B 3A 81 41 B2 31 A4 |..".....";:.A.1.| 00000670: 35 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |5:." | 00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000690: 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 AB 0E | ":....| 000006A0: 5E 01 99 22 91 91 91 91 91 91 22 00 D0 0E 68 01 |^.."......"...h.| 000006B0: 99 22 11 20 20 05 CC C5 3D 33 34 3A CE D5 3D 31 |.". ...=34:..=1| 000006C0: 3A C1 CC 3D 31 3A C7 CF D3 D5 C2 34 30 11 1E 22 |:..=1:.....40.."| 000006D0: 00 F4 0E 72 01 99 22 9F D9 4F 55 20 43 41 4E 20 |...r.."..OU CAN | 000006E0: 4E 55 4D 42 45 52 53 20 4F 52 20 4C 45 54 54 45 |NUMBERS OR LETTE| 000006F0: 52 53 2E 22 00 0C 0F 7C 01 4C 45 B2 33 34 3A 4E |RS."...|.LE.34:N| 00000700: 55 B2 31 3A 41 4C B2 31 3A 8D 34 30 00 4D 0F 86 |U.1:AL.1:.40.M..| 00000710: 01 99 22 91 91 91 91 91 22 3B 3A 81 41 B2 31 A4 |..".....";:.A.1.| 00000720: 35 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |5:." | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740: 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 5B 0F | ":..[.| 00000750: 90 01 99 22 91 91 91 91 91 91 22 00 85 0F 9A 01 |..."......".....| 00000760: 99 22 11 20 20 D0 52 45 53 53 20 5B D3 D0 C1 C3 |.". .RESS [....| 00000770: C5 5D 20 54 4F 20 53 45 45 20 44 45 4D 4F 20 41 |.] TO SEE DEMO A| 00000780: 47 41 49 4E 22 00 B7 0F A4 01 99 22 20 20 4F 52 |GAIN"......" OR| 00000790: 20 5B D2 C5 D4 D5 D2 CE 5D 20 54 4F 20 52 45 54 | [......] TO RET| 000007A0: 55 52 4E 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 22 |URN TO ........"| 000007B0: 3A 97 31 39 38 2C 2E 00 D4 0F AE 01 41 B2 C2 28 |:.198,......A..(| 000007C0: 32 30 33 29 3A 8B 41 B3 B1 31 AF 41 B3 B1 36 30 |203):.A..1.A..60| 000007D0: A7 34 33 30 00 E2 0F B8 01 8B 41 B2 36 30 A7 31 |.430......A.60.1| 000007E0: 30 30 00 1B 10 C2 01 9F 31 35 2C 38 2C 31 35 2C |00......15,8,15,| 000007F0: 22 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 |"R0:HELLO CONNEC| 00000800: 54 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 |T=HELLO CONNECT"| 00000810: 3A 84 31 35 2C 45 52 3A A0 31 35 00 29 10 CC 01 |:.15,ER:.15.)...| 00000820: 8B 45 52 B3 B1 36 33 A7 80 00 40 10 D6 01 93 22 |.ER..63...@...."| 00000830: 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 |HELLO CONNECT",8| 00000840: 00 58 10 C4 EA 97 35 33 32 38 30 2C 31 30 3A 97 |.X....53280,10:.| 00000850: 35 33 32 38 31 2C 31 30 00 8D 10 CE EA 99 22 93 |53281,10......".| 00000860: 08 0E 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000870: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000880: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3B 00 A8 10 |...........";...| 00000890: D8 EA 81 41 B2 31 A4 32 33 3A 99 22 DD 22 A6 33 |...A.1.23:.".".3| 000008A0: 38 29 22 DD 22 3B 3A 82 00 DB 10 E2 EA 99 22 AD |8)".";:.......".| 000008B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000008C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000008D0: C0 C0 C0 C0 C0 BD 9D 94 C0 13 22 00 F8 10 E7 EA |..........".....| 000008E0: 81 41 B2 32 31 37 A4 32 34 32 3A 97 41 2C C2 28 |.A.217.242:.A,.(| 000008F0: 41 29 B0 31 32 38 3A 82 00 1F 11 EC EA 99 22 13 |A).128:.......".| 00000900: 11 1D 05 20 20 20 20 20 20 20 20 20 CC CF C1 C4 |... ....| 00000910: D3 D4 C1 D2 20 D0 52 45 53 45 4E 54 53 3A 22 00 |.... .RESENTS:".| 00000920: 4D 11 F6 EA 99 22 11 11 11 11 11 11 1D 20 20 20 |M...."....... | 00000930: 20 20 20 20 20 9E 12 20 20 20 20 20 20 20 20 20 | .. | 00000940: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 77 11 | ".w.| 00000950: 00 EB 99 22 1D 20 20 20 20 20 20 20 20 9E 12 20 |...". .. | 00000960: 20 20 20 D4 4F 54 41 4C 20 C3 4F 4E 54 52 4F 4C | .OTAL .ONTROL| 00000970: 20 20 20 20 1C 20 22 00 A1 11 0A EB 99 22 1D 20 | . "......". | 00000980: 20 20 20 20 20 20 20 9E 12 20 20 20 20 20 20 20 | .. | 00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1C 20 | . | 000009A0: 22 00 CB 11 14 EB 99 22 1D 20 20 20 20 20 20 20 |"......". | 000009B0: 20 9E 12 20 20 C2 59 20 C7 41 52 59 20 D6 2E 20 | .. .Y .ARY .. | 000009C0: C6 49 45 4C 44 53 20 20 1C 20 22 00 F5 11 1E EB |.IELDS . ".....| 000009D0: 99 22 1D 20 20 20 20 20 20 20 20 9E 12 20 20 20 |.". .. | 000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009F0: 20 20 1C 20 22 00 1F 12 28 EB 99 22 1D 20 20 20 | . "...(..". | 00000A00: 20 20 20 20 20 9E 12 20 20 28 C3 29 4F 50 59 52 | .. (.)OPYR| 00000A10: 49 47 48 54 20 20 31 39 38 37 20 20 1C 20 22 00 |IGHT 1987 . ".| 00000A20: 49 12 32 EB 99 22 1D 20 20 20 20 20 20 20 20 9E |I.2..". .| 00000A30: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000A40: 20 20 20 20 20 20 1C 20 22 00 71 12 3C EB 99 22 | . ".q.<.."| 00000A50: 1D 20 20 20 20 20 20 20 20 20 12 20 20 20 20 20 |. . | 00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A70: 22 00 A8 12 46 EB 99 22 11 11 11 11 11 11 1D 20 |"...F.."....... | 00000A80: 20 20 20 20 20 20 20 05 D0 52 45 53 53 20 D3 D0 | ..RESS ..| 00000A90: C1 C3 C5 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |... TO CONTINUE.| 00000AA0: 22 3A 97 31 39 38 2C 2E 00 BE 12 50 EB 8B C2 28 |":.198,....P...(| 00000AB0: 32 30 33 29 B3 B1 36 30 A7 36 30 32 34 30 00 C4 |203)..60.60240..| 00000AC0: 12 5A EB 8E 00 00 00 |.Z..... |
.......60100:.:.100.....:.:...: ......
...................[...: .
..X...: . . SUBROUTINE IS .
.....: . LINES 40.59 ......:
. ......: .....
........................:...(..198,0:.".
[.";:.X.1.LE:." ";:.:."]":."...";.%.).C$
."":.A.1.LE.1.7.*..A$:.A$."".42.H.,..A$.
G(13).59.~....A$.G(20).A.1.."... ...";:
A.A.1:C$.H(B$,A.1):.42...0..A.LE.1.42...
2..(NU)..A$.."0".A$.."9".58.G.3..(NU)..A
$.".".A$."-".58...4..(AL).((A$.." ".A$..
"/").(A$..":".A$.."Z")).58...6..(AL)..(A
$.."A".A$.."Z").58.".8..42.G.:..".."A$;:
.212,.:.".";:C$.C$.A$:..T.;..".. ":..Z.>
.:.X.?.: . DEMO . SUBROUTINE ..~.@.:..
.D..53280,.:.53281,.:.". .TO
TAL CONTROL".X.N.." BY GARY V.
FIELDS"...X..". .TOTAL CONTROL LETS YO
U CHOOSE THE"./...."MAXIMUM NUMBER OF CH
ARACTERS TO BE".^...."ENTERED, AND WHETH
ER OR NOT YOU WANT TO"......"ACCEPT NUMB
ERS, LETTERS, OR BOTH."... .."FIRST, YOU
MUST SET .LE .EQUAL TO THE"......"MAXIM
UM NUMBER OF CHARACTERS YOU WANT"......"
THE ROUTINE TO ACCEPT. THEN, IF YOU".5..
.."WANT THE USER TO BE ABLE TO ENTER".F.
H.."NUMBERS, SET .NU .EQUAL TO 1; AND, I
F YOU"...R.."WANT THE USER TO BE ABLE TO
ENTER"......"LETTERS, SET .AL .EQUAL TO
1. THEN ALL"......"YOU NEED TO DO IS .G
OSUB 40.."......".THE FOLLOWING IS AN EX
AMPLE OF WHAT".9...."THE BASIC CODE AND
THE OUTPUT WOULD".K...."LOOK LIKE:".P...
.". .LE=20:NU=0:AL=1:GOSUB40.."......".
YOU CAN ONLY ENTER LETTERS."...".LE.20:N
U..:AL.1:.40...,..".....";:.A.1.5:."
":....
6.."......". .@..". .LE=13:NU=1:AL=0:GO
SUB40..".D.E..".YOU CAN ONLY ENTER NUMBE
RS.".\.J.LE.13:NU.1:AL.0:.40...T..".....
";:.A.1.5:."
":....^.."......".P.H..". .LE
=34:NU=1:AL=1:GOSUB40.."...R..".YOU CAN
NUMBERS OR LETTERS."...|.LE.34:NU.1:AL.1
:.40.M....".....";:.A.1.5:."
":..[...."....
.."......". PRESS [SPACE] TO SEE DEMO A
GAIN"......" OR [RETURN] TO RETURN TO L
OADSTAR":.198,..T...A.B(203):.A..1.A..60
.430......A.60.100...B..15,8,15,"R0:HELL
O CONNECT=HELLO CONNECT":.15,ER: 15.).L.
.ER..63...@.V.."HELLO CONNECT",8.X.D..53
280,10:.53281,10...N..".................
...........................";...X..A.1.2
3:.".".38)".";:.......".................
.........................."......A.217.2
42:.A,B(A).128:.......".... LOAD
STAR PRESENTS:".M...."....... ..
".W....". ..
TOTAL CONTROL . "......". .
. . ".K....".
.. BY GARY V. FIELDS . "......".
.. . "...(..".
.. (C)OPYRIGHT 1987 . ".I.2..".
.. . ".Q.<.."
. . "...F.."
....... .PRESS SPACE TO CONTINUE.
":.198,....P..B(203)..60.60240.D.Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL