DELUXE DEMO

00000000: 01 08 48 08 0A 00 8F 20  43 4F 50 59 52 49 47 48  |..H.... COPYRIGH|
00000010: 54 20 31 39 38 39 20 43  4F 4D 50 55 54 45 21 20  |T 1989 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54  49 4F 4E 53 2C 20 49 4E  |PUBLICATIONS, IN|
00000030: 43 2E 20 2D 20 41 4C 4C  20 52 49 47 48 54 53 20  |C. - ALL RIGHTS |
00000040: 52 45 53 45 52 56 45 44  00 70 08 14 00 8B C2 28  |RESERVED.p.....(|
00000050: 34 39 31 35 32 29 B3 B1  33 32 AF 41 B2 30 A7 41  |49152)..32.A.0.A|
00000060: B2 31 3A 93 22 44 49 4E  50 55 54 22 2C 38 2C 31  |.1:."DINPUT",8,1|
00000070: 00 A3 08 1E 00 8F 20 50  55 54 20 4C 49 4E 45 20  |...... PUT LINE |
00000080: 32 30 20 41 54 20 54 48  45 20 42 45 47 49 4E 4E  |20 AT THE BEGINN|
00000090: 49 4E 47 20 4F 46 20 59  4F 55 52 20 50 52 4F 47  |ING OF YOUR PROG|
000000A0: 52 41 4D 00 CE 08 28 00  97 35 33 32 38 30 2C 31  |RAM...(..53280,1|
000000B0: 31 3A 97 35 33 32 38 31  2C 30 3A 42 24 B2 C7 28  |1:.53281,0:B$..(|
000000C0: 31 33 29 3A 8D 20 35 33  30 3A 99 22 93 9F 00 E8  |13):. 530:."....|
000000D0: 08 32 00 99 A3 31 32 29  22 C3 4F 50 59 52 49 47  |.2...12)".OPYRIG|
000000E0: 48 54 20 31 39 38 39 22  00 0E 09 3C 00 99 A3 37  |HT 1989"...<...7|
000000F0: 29 22 C3 CF CD D0 D5 D4  C5 21 20 D0 55 42 4C 49  |)".......! .UBLI|
00000100: 43 41 54 49 4F 4E 53 2C  20 C9 4E 43 2E 22 00 2E  |CATIONS, .NC."..|
00000110: 09 46 00 99 A3 31 30 29  22 C1 4C 4C 20 D2 49 47  |.F...10)".LL .IG|
00000120: 48 54 53 20 D2 45 53 45  52 56 45 44 11 22 00 52  |HTS .ESERVED.".R|
00000130: 09 50 00 4C B2 32 30 3A  52 B2 30 3A 46 4C B2 32  |.P.L.20:R.0:FL.2|
00000140: 30 3A 42 4C B2 30 3A 42  58 B2 32 35 35 3A 43 53  |0:BL.0:BX.255:CS|
00000150: B2 30 00 80 09 5A 00 99  22 0E 05 C4 C5 CC D5 D8  |.0...Z..".......|
00000160: C5 20 C9 CE D0 D5 D4 20  1E 43 41 4E 20 41 44 44  |. ..... .CAN ADD|
00000170: 20 51 55 49 54 45 20 41  20 42 49 54 20 4F 46 22  | QUITE A BIT OF"|
00000180: 00 AF 09 64 00 99 22 53  50 49 43 45 20 54 4F 20  |...d.."SPICE TO |
00000190: 59 4F 55 52 20 50 52 4F  47 52 41 4D 53 2E 20 20  |YOUR PROGRAMS.  |
000001A0: C9 54 20 41 4C 53 4F 20  41 4C 4C 4F 57 53 22 00  |.T ALSO ALLOWS".|
000001B0: DC 09 6E 00 99 22 41 20  4D 55 43 48 20 42 45 54  |..n.."A MUCH BET|
000001C0: 54 45 52 20 57 41 59 20  54 4F 20 49 4E 50 55 54  |TER WAY TO INPUT|
000001D0: 20 44 41 54 41 20 46 52  4F 4D 20 22 00 0A 0A 78  | DATA FROM "...x|
000001E0: 00 99 22 54 48 45 20 4B  45 59 42 4F 41 52 44 2E  |.."THE KEYBOARD.|
000001F0: 20 20 C9 54 53 20 46 55  4E 43 54 49 4F 4E 53 20  |  .TS FUNCTIONS |
00000200: 49 4E 43 4C 55 44 45 3A  9F 22 00 39 0A 82 00 99  |INCLUDE:.".9....|
00000210: 3A 99 22 C9 2E 20 C4 45  46 49 4E 49 4E 47 20 54  |:.".. .EFINING T|
00000220: 48 45 20 4D 41 58 49 4D  55 4D 20 4C 45 4E 47 54  |HE MAXIMUM LENGT|
00000230: 48 20 4F 46 20 54 48 45  22 00 6D 0A 8C 00 99 22  |H OF THE".m...."|
00000240: 20 20 20 20 49 4E 50 55  54 20 46 49 45 4C 44 20  |    INPUT FIELD |
00000250: 28 45 58 2E 20 35 20 43  48 41 52 53 2E 29 20 20  |(EX. 5 CHARS.)  |
00000260: 20 3A 22 3B 3A 4C B2 35  3A 8D 35 31 30 00 A3 0A  | :";:L.5:.510...|
00000270: 96 00 99 3A 99 22 C9 C9  2E 20 D2 45 56 45 52 53  |...:."... .EVERS|
00000280: 49 4E 47 20 54 48 45 20  49 4E 50 55 54 20 46 49  |ING THE INPUT FI|
00000290: 45 4C 44 20 20 20 20 3A  22 3B 3A 52 B2 31 3A 8D  |ELD    :";:R.1:.|
000002A0: 35 31 30 00 DB 0A A0 00  99 3A 99 22 C9 C9 C9 2E  |510......:."....|
000002B0: 20 C6 4C 41 53 48 49 4E  47 20 54 48 45 20 43 55  | .LASHING THE CU|
000002C0: 52 53 4F 52 20 46 41 53  54 45 52 20 20 3A 22 3B  |RSOR FASTER  :";|
000002D0: 3A 46 4C B2 31 30 3A 8D  35 31 30 00 12 0B AA 00  |:FL.10:.510.....|
000002E0: 99 3A 99 22 C9 D6 2E 20  C1 20 42 45 4C 4C 20 41  |.:."... . BELL A|
000002F0: 54 20 54 48 45 20 45 4E  44 20 4F 46 20 49 4E 50  |T THE END OF INP|
00000300: 55 54 20 20 20 3A 22 3B  3A 42 4C B2 31 3A 8D 35  |UT   :";:BL.1:.5|
00000310: 31 30 00 48 0B B4 00 99  3A 99 22 D6 2E 20 D0 55  |10.H....:.".. .U|
00000320: 54 54 49 4E 47 20 41 20  C2 CF D2 C4 C5 D2 20 41  |TTING A ...... A|
00000330: 52 4F 55 4E 44 20 49 4E  50 55 54 3A 22 3B 3A 42  |ROUND INPUT:";:B|
00000340: 58 B2 31 3A 8D 35 31 30  00 79 0B BE 00 99 22 91  |X.1:.510.y....".|
00000350: 91 20 20 20 20 20 20 1C  28 4E 4F 54 49 43 45 20  |.      .(NOTICE |
00000360: 54 48 45 20 42 4F 52 44  45 52 20 44 49 53 41 50  |THE BORDER DISAP|
00000370: 50 45 41 52 53 21 29 9F  22 00 90 0B C8 00 99 3A  |PEARS!)."......:|
00000380: 99 22 D6 C9 2E 20 C1 4C  4C 4F 57 49 4E 47 2D 22  |."... .LLOWING-"|
00000390: 00 C2 0B D2 00 99 22 C1  4C 4C 20 C3 48 41 52 41  |......".LL .HARA|
000003A0: 43 54 45 52 53 20 20 20  20 20 20 22 3B 3A 43 53  |CTERS      ";:CS|
000003B0: B2 30 3A 42 58 B2 32 35  35 3A 4C B2 39 3A 8D 35  |.0:BX.255:L.9:.5|
000003C0: 31 30 00 E9 0B DC 00 99  22 CE 55 4D 42 45 52 53  |10......".UMBERS|
000003D0: 20 CF 4E 4C 59 20 20 20  20 20 20 20 20 22 3B 3A  | .NLY        ";:|
000003E0: 43 53 B2 31 3A 8D 35 31  30 00 10 0C E6 00 99 22  |CS.1:.510......"|
000003F0: CC 45 54 54 45 52 53 20  CF 4E 4C 59 20 20 20 20  |.ETTERS .NLY    |
00000400: 20 20 20 20 22 3B 3A 43  53 B2 32 3A 8D 35 31 30  |    ";:CS.2:.510|
00000410: 00 37 0C EC 00 99 22 CC  45 54 54 45 52 53 20 26  |.7....".ETTERS &|
00000420: 20 CE 55 4D 42 45 52 53  20 20 20 22 3B 3A 43 53  | .UMBERS   ";:CS|
00000430: B2 33 3A 8D 35 31 30 00  5E 0C EE 00 99 22 D3 48  |.3:.510.^....".H|
00000440: 49 46 54 53 20 54 4F 20  D5 50 50 45 52 43 41 53  |IFTS TO .PPERCAS|
00000450: 45 20 22 3B 3A 43 53 B2  34 3A 8D 35 31 30 00 7B  |E ";:CS.4:.510.{|
00000460: 0C F0 00 43 53 B2 30 3A  4C B2 33 3A 42 58 B2 34  |...CS.0:L.3:BX.4|
00000470: 3A 52 B2 30 3A 46 4C B2  32 35 35 00 A9 0C FA 00  |:R.0:FL.255.....|
00000480: 99 3A 99 22 C9 54 20 41  4C 53 4F 20 41 4C 4C 4F  |.:.".T ALSO ALLO|
00000490: 57 53 20 41 20 50 52 4F  4D 50 54 20 54 4F 20 42  |WS A PROMPT TO B|
000004A0: 45 20 50 55 54 20 49 4E  22 00 D4 0C 04 01 99 22  |E PUT IN"......"|
000004B0: 54 48 45 20 46 49 45 4C  44 20 28 41 4E 44 20 54  |THE FIELD (AND T|
000004C0: 48 45 20 43 55 52 53 4F  52 20 43 41 4E 20 42 45  |HE CURSOR CAN BE|
000004D0: 20 41 20 22 00 E8 0C 0E  01 99 22 42 4C 4F 43 4B  | A "......"BLOCK|
000004E0: 2C 20 54 4F 4F 21 29 22  00 18 0D 18 01 99 22 C4  |, TOO!)"......".|
000004F0: 4F 20 59 4F 55 20 57 49  53 48 20 54 4F 20 43 4F  |O YOU WISH TO CO|
00000500: 4E 54 49 4E 55 45 3F 20  22 3B 3A 41 24 B2 22 D9  |NTINUE? ";:A$.".|
00000510: 45 53 22 3A 8D 35 32 30  00 43 0D 22 01 8B 41 24  |ES":.520.C."..A$|
00000520: B2 22 4E 22 B0 41 24 B2  22 CE 4F 22 A7 99 22 05  |."N".A$.".O"..".|
00000530: CF 46 20 43 4F 55 52 53  45 20 59 4F 55 20 44 4F  |.F COURSE YOU DO|
00000540: 21 9F 22 00 6E 0D 2C 01  99 3A 99 22 C9 46 20 54  |!.".n.,..:.".F T|
00000550: 48 45 20 4C 45 4E 47 54  48 20 3D 20 30 2C 20 41  |HE LENGTH = 0, A|
00000560: 20 46 41 4E 43 59 20 27  C7 C5 D4 27 20 22 00 8C  | FANCY '...' "..|
00000570: 0D 36 01 99 22 53 54 41  54 45 4D 45 4E 54 20 52  |.6.."STATEMENT R|
00000580: 45 53 55 4C 54 53 2E 2E  2E 2E 2E 22 00 C7 0D 40  |ESULTS....."...@|
00000590: 01 99 3A 99 22 05 D0 52  45 53 53 20 D2 45 54 55  |..:."..RESS .ETU|
000005A0: 52 4E 2E 2E 2E 9F 22 3B  3A 42 4C B2 30 3A 42 58  |RN....";:BL.0:BX|
000005B0: B2 32 35 35 3A 4C B2 30  3A 52 B2 30 3A 46 4C B2  |.255:L.0:R.0:FL.|
000005C0: 31 30 3A 8D 35 31 30 00  EF 0D 4A 01 99 3A 99 22  |10:.510...J..:."|
000005D0: 05 C4 C5 CC D5 D8 C5 20  C9 CE D0 D5 D4 9F 20 57  |....... ...... W|
000005E0: 49 4C 4C 20 41 4C 53 4F  20 41 4C 4C 4F 57 22 00  |ILL ALSO ALLOW".|
000005F0: 1B 0E 54 01 99 22 27 49  4C 4C 45 47 41 4C 27 20  |..T.."'ILLEGAL' |
00000600: 43 48 41 52 41 43 54 45  52 53 20 53 55 43 48 20  |CHARACTERS SUCH |
00000610: 41 53 20 51 55 4F 54 45  53 2C 22 00 37 0E 5E 01  |AS QUOTES,".7.^.|
00000620: 99 22 43 4F 4D 4D 41 53  2C 20 41 4E 44 20 43 4F  |."COMMAS, AND CO|
00000630: 4C 4F 4E 53 3A 22 3B 00  6B 0E 68 01 4C B2 31 30  |LONS:";.k.h.L.10|
00000640: 3A 42 4C B2 31 3A 46 4C  B2 35 3A 52 B2 31 3A 41  |:BL.1:FL.5:R.1:A|
00000650: 24 B2 C7 28 33 34 29 AA  C7 28 33 34 29 AA 22 2C  |$..(34)..(34).",|
00000660: 2C 2C 3A 3A 3A 22 3A 8D  35 32 30 00 99 0E 72 01  |,,:::":.520...r.|
00000670: 99 3A 99 22 D9 4F 55 20  43 41 4E 20 41 4C 53 4F  |.:.".OU CAN ALSO|
00000680: 20 43 48 41 4E 47 45 20  57 48 49 43 48 20 43 48  | CHANGE WHICH CH|
00000690: 41 52 41 43 54 45 52 53  22 00 C7 0E 7C 01 99 22  |ARACTERS"...|.."|
000006A0: 45 58 49 54 20 49 4E 50  55 54 2E 2E C1 4C 4C 20  |EXIT INPUT...LL |
000006B0: 54 48 45 20 C6 55 4E 43  54 49 4F 4E 20 CB 45 59  |THE .UNCTION .EY|
000006C0: 53 20 57 49 4C 4C 22 00  EB 0E 86 01 99 22 45 58  |S WILL"......"EX|
000006D0: 49 54 2C 20 42 55 54 20  D2 C5 D4 D5 D2 CE 20 57  |IT, BUT ...... W|
000006E0: 49 4C 4C 20 4E 4F 54 2E  29 11 22 00 02 0F 90 01  |ILL NOT.).".....|
000006F0: 42 24 B2 22 85 89 86 8A  87 8B 88 8C 22 3A 8D 35  |B$."........":.5|
00000700: 33 30 00 16 0F 9A 01 46  4C B2 32 30 3A 42 58 B2  |30.....FL.20:BX.|
00000710: 33 3A 8D 35 31 30 00 41  0F A4 01 99 22 11 05 C4  |3:.510.A...."...|
00000720: C5 CC D5 D8 C5 20 C9 CE  D0 D5 D4 20 9F 43 41 4E  |..... ..... .CAN|
00000730: 20 45 56 45 4E 20 54 45  4C 4C 20 57 48 49 43 48  | EVEN TELL WHICH|
00000740: 22 00 66 0F AE 01 99 22  43 48 41 52 41 43 54 45  |".f...."CHARACTE|
00000750: 52 20 57 41 53 20 55 53  45 44 20 54 4F 20 45 58  |R WAS USED TO EX|
00000760: 49 54 2E 2E 2E 22 00 8E  0F B8 01 99 22 11 D9 4F  |IT..."......"..O|
00000770: 55 20 55 53 45 44 20 C3  C8 D2 24 28 22 C6 28 42  |U USED ...$(".(B|
00000780: 24 29 22 29 20 54 4F 20  45 58 49 54 2E 22 00 A0  |$)") TO EXIT."..|
00000790: 0F C2 01 42 24 B2 C7 28  31 33 29 3A 8D 35 33 30  |...B$..(13):.530|
000007A0: 00 D2 0F CC 01 99 3A 99  22 1E D6 49 52 54 55 41  |......:."..IRTUA|
000007B0: 4C 4C 59 20 41 4C 4C 20  4F 46 20 54 48 45 53 45  |LLY ALL OF THESE|
000007C0: 20 55 53 45 46 55 4C 20  46 55 4E 43 54 49 4F 4E  | USEFUL FUNCTION|
000007D0: 53 22 00 FF 0F D6 01 99  22 41 52 45 20 41 56 41  |S"......"ARE AVA|
000007E0: 49 4C 41 42 4C 45 20 57  49 54 48 4F 55 54 20 D0  |ILABLE WITHOUT .|
000007F0: CF CB C5 53 2E 20 D9 4F  55 20 4A 55 53 54 22 00  |...S. .OU JUST".|
00000800: 23 10 E0 01 99 22 55 53  45 20 54 48 45 20 53 49  |#...."USE THE SI|
00000810: 4D 50 4C 45 20 43 4F 4D  4D 41 4E 44 20 46 4F 52  |MPLE COMMAND FOR|
00000820: 4D 3A 22 00 5E 10 EA 01  99 3A 99 22 05 D3 D9 D3  |M:".^....:."....|
00000830: 34 39 31 35 32 2C C1 24  2C C2 24 2C CC 49 4D 49  |49152,.$,.$,.IMI|
00000840: 54 2C D2 D6 D3 2C C3 55  52 D3 50 45 45 44 2C C2  |T,...,.UR.PEED,.|
00000850: 45 4C 4C 2C 20 C2 4F 58  2C C3 41 53 45 22 00 69  |ELL, .OX,.ASE".i|
00000860: 10 F4 01 99 22 9F 22 3A  80 00 73 10 FE 01 41 24  |....".":..s...A$|
00000870: B2 22 22 00 A2 10 08 02  99 22 9E 22 3B 3A 9E 34  |.""......".";:.4|
00000880: 39 31 35 32 2C 41 24 2C  42 24 2C 4C 2C 52 2C 46  |9152,A$,B$,L,R,F|
00000890: 4C 2C 42 4C 2C 42 58 2C  43 53 3A 99 22 9F 22 3B  |L,BL,BX,CS:.".";|
000008A0: 3A 8E 00 D4 10 12 02 97  34 39 39 31 39 2C C3 28  |:.......49919,.(|
000008B0: 42 24 29 3A 81 58 B2 31  A4 C3 28 42 24 29 3A 97  |B$):.X.1..(B$):.|
000008C0: 34 39 39 31 39 AA 58 2C  C6 28 CA 28 42 24 2C 58  |49919.X,.(.(B$,X|
000008D0: 2C 31 29 29 00 DC 10 1C  02 82 3A 8E 00 F7 10 26  |,1))......:....&|
000008E0: 02 97 37 38 32 2C 58 3A  97 37 38 31 2C 59 3A 9E  |..782,X:.781,Y:.|
000008F0: 36 35 35 32 30 3A 8E 00  00 00                    |65520:....      |

..H.... COPYRIGHT 1989 COMPUTE! PUBLICAT
IONS, INC. - ALL RIGHTS RESERVED.P....B(
49152)..32.A.0.A.1:."DINPUT",8,1...... P
UT LINE 20 AT THE BEGINNING OF YOUR PROG
RAM.N.(..53280,11:.53281,0:B$.G(13):. 53
0:.".....2...12)"COPYRIGHT 1989"...<...7
)"COMPUTE! PUBLICATIONS, INC."...F...10)
"ALL RIGHTS RESERVED.".R.P.L.20:R.0:FL.2
0:BL.0:BX.255:CS.0...Z.."..DELUXE INPUT 
.CAN ADD QUITE A BIT OF"...D.."SPICE TO 
YOUR PROGRAMS.  IT ALSO ALLOWS"...N.."A 
MUCH BETTER WAY TO INPUT DATA FROM "...X
.."THE KEYBOARD.  ITS FUNCTIONS INCLUDE:
.".9....:."I. DEFINING THE MAXIMUM LENGT
H OF THE".M...."    INPUT FIELD (EX. 5 C
HARS.)   :";:L.5:.510......:."II. REVERS
ING THE INPUT FIELD    :";:R.1:.510... .
.:."III. FLASHING THE CURSOR FASTER  :";
:FL.10:.510......:."IV. A BELL AT THE EN
D OF INPUT   :";:BL.1:.510.H....:."V. PU
TTING A BORDER AROUND INPUT:";:BX.1:.510
.Y...."..      .(NOTICE THE BORDER DISAP
PEARS!)."...H..:."VI. ALLOWING-".B.R.."A
LL CHARACTERS      ";:CS.0:BX.255:L.9:.5
10......"NUMBERS ONLY        ";:CS.1:.51
0......"LETTERS ONLY        ";:CS.2:.510
.7...."LETTERS & NUMBERS   ";:CS.3:.510.
^...."SHIFTS TO UPPERCASE ";:CS.4:.510.{
...CS.0:L.3:BX.4:R.0:FL.255......:."IT A
LSO ALLOWS A PROMPT TO BE PUT IN".T...."
THE FIELD (AND THE CURSOR CAN BE A "....
.."BLOCK, TOO!)"......"DO YOU WISH TO CO
NTINUE? ";:A$."YES":.520.C."..A$."N".A$.
"NO"..".OF COURSE YOU DO!.".N.,..:."IF T
HE LENGTH = 0, A FANCY 'GET' "...6.."STA
TEMENT RESULTS.....".G.@..:.".PRESS RETU
RN....";:BL.0:BX.255:L.0:R.0:FL.10:.510.
..J..:.".DELUXE INPUT. WILL ALSO ALLOW".
..T.."'ILLEGAL' CHARACTERS SUCH AS QUOTE
S,".7.^.."COMMAS, AND COLONS:";.K.H.L.10
:BL.1:FL.5:R.1:A$.G(34).G(34).",,,:::":.
520...R..:."YOU CAN ALSO CHANGE WHICH CH
ARACTERS".G.|.."EXIT INPUT..ALL THE FUNC
TION KEYS WILL"......"EXIT, BUT RETURN W
ILL NOT.).".....B$."........":.530.....F
L.20:BX.3:.510.A...."..DELUXE INPUT .CAN
 EVEN TELL WHICH".F...."CHARACTER WAS US
ED TO EXIT..."......".YOU USED CHR$("F(B
$)") TO EXIT.". .B.B$.G(13):.530.R.L..:.
".VIRTUALLY ALL OF THESE USEFUL FUNCTION
S"...V.."ARE AVAILABLE WITHOUT POKES. YO
U JUST".#...."USE THE SIMPLE COMMAND FOR
M:".^....:.".SYS49152,A$,B$,LIMIT,RVS,CU
RSPEED,BELL, BOX,CASE".I....".":..S...A$
.""......".";:.49152,A$,B$,L,R,FL,BL,BX,
CS:.".";:..T....49919,C(B$):.X.1.C(B$):.
49919.X,F(J(B$,X,1))......:....&..782,X:
.781,Y:.65520:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL