DEMO
FILE INFORMATION
FILENAME(S): DEMO
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:05:48
APPEARS ON: 1 disk(s)
FILE HASH
df65f69c88b4248bae8d45a833e36d61d39826a5352ae271136e0ae58b0bfa9d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VAN DOUWEN | DEMO | PRG | DuncanTwain | 2 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1C 04 64 00 8F 20 2A 2A 20 20 55 54 49 4C |....d.. ** UTIL| 00000010: 49 54 59 20 44 45 4D 4F 20 20 2A 2A 00 22 04 68 |ITY DEMO **.".h| 00000020: 00 20 00 28 04 6C 00 20 00 48 04 70 00 49 4E B2 |. .(.l. .H.p.IN.| 00000030: 33 31 32 33 32 3A 20 44 4C B2 49 4E AA 33 20 3A |31232: DL.IN.3 :| 00000040: 20 42 47 B2 49 4E AA 36 00 69 04 74 00 44 49 B2 | BG.IN.6.i.t.DI.| 00000050: 49 4E AA 39 20 3A 20 45 4E B2 49 4E AA 31 32 3A |IN.9 : EN.IN.12:| 00000060: 20 45 4C B2 49 4E AA 31 35 00 76 04 78 00 53 4D | EL.IN.15.v.x.SM| 00000070: B2 49 4E AA 31 38 00 7C 04 7C 00 20 00 96 04 80 |.IN.18.|.|. ....| 00000080: 00 8F 20 20 49 4E 20 2D 20 49 4E 50 55 54 20 52 |.. IN - INPUT R| 00000090: 4F 55 54 49 4E 45 00 BA 04 84 00 8F 20 20 44 4C |OUTINE...... DL| 000000A0: 20 2D 20 49 4E 53 45 52 54 2F 44 45 4C 45 54 45 | - INSERT/DELETE| 000000B0: 20 49 4E 20 41 52 52 41 59 53 00 DF 04 88 00 8F | IN ARRAYS......| 000000C0: 20 20 42 47 20 2D 20 42 4C 4F 43 4B 20 47 45 54 | BG - BLOCK GET| 000000D0: 20 28 42 49 4C 4C 20 4D 41 43 4C 45 41 4E 29 00 | (BILL MACLEAN).| 000000E0: 02 05 8C 00 8F 20 20 20 20 20 20 20 28 54 52 41 |..... (TRA| 000000F0: 4E 53 41 43 54 4F 52 20 56 4F 4C 20 32 2C 20 23 |NSACTOR VOL 2, #| 00000100: 37 29 00 1F 05 90 00 8F 20 20 44 49 20 2D 20 44 |7)...... DI - D| 00000110: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.| 00000120: 3B 05 94 00 8F 20 20 45 4E 20 2D 20 45 4E 41 42 |;.... EN - ENAB| 00000130: 4C 45 20 53 54 4F 50 20 4B 45 59 00 53 05 96 00 |LE STOP KEY.S...| 00000140: 8F 20 20 45 4C 20 2D 20 45 4E 41 42 4C 45 20 4C |. EL - ENABLE L| 00000150: 4F 41 44 00 6D 05 98 00 8F 20 20 53 4D 20 2D 20 |OAD.m.... SM - | 00000160: 53 54 52 49 4E 47 20 4D 4F 44 49 46 59 00 73 05 |STRING MODIFY.s.| 00000170: C8 00 20 00 88 05 CC 00 8F 20 49 4E 50 55 54 20 |.. ...... INPUT | 00000180: 52 4F 55 54 49 4E 45 2E 00 9D 05 D0 00 8F 20 2D |ROUTINE....... -| 00000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A3 05 |-------------...| 000001A0: D4 00 8F 00 B9 05 D8 00 8F 20 53 59 53 20 49 4E |......... SYS IN| 000001B0: 2C 45 44 2C 4D 58 2C 4C 24 00 BF 05 DC 00 8F 00 |,ED,MX,L$.......| 000001C0: E0 05 E0 00 8F 20 20 45 44 20 2D 20 45 44 49 54 |..... ED - EDIT| 000001D0: 20 43 48 41 52 41 43 54 45 52 49 53 54 49 43 53 | CHARACTERISTICS| 000001E0: 00 05 06 E4 00 8F 20 20 4D 58 20 2D 20 53 54 52 |...... MX - STR| 000001F0: 49 4E 47 20 4C 45 4E 47 54 48 20 28 31 20 54 4F |ING LENGTH (1 TO| 00000200: 20 32 35 35 29 00 25 06 E8 00 8F 20 20 4C 24 20 | 255).%.... L$ | 00000210: 2D 20 41 4E 59 20 53 54 52 49 4E 47 20 56 41 52 |- ANY STRING VAR| 00000220: 09 06 42 4C 45 00 2B 06 EC 00 8F 00 41 06 F0 00 |..BLE.+.....A...| 00000230: 8F 20 20 20 20 45 44 20 2D 20 52 45 53 55 4C 54 |. ED - RESULT| 00000240: 53 00 66 06 F8 00 8F 20 20 20 20 20 30 20 2D 20 |S.f.... 0 - | 00000250: 41 4C 4C 20 43 48 41 52 41 43 54 45 52 53 20 41 |ALL CHARACTERS A| 00000260: 4C 4C 4F 57 45 44 00 81 06 FC 00 8F 20 20 20 20 |LLOWED...... | 00000270: 20 31 20 2D 20 4E 55 4D 45 52 49 43 20 4F 4E 4C | 1 - NUMERIC ONL| 00000280: 59 00 95 06 00 01 8F 20 20 20 20 20 32 20 2D 20 |Y...... 2 - | 00000290: 2E 20 2B 20 2D 00 B8 06 04 01 8F 20 20 20 20 20 |. + -...... | 000002A0: 34 20 2D 20 41 20 54 4F 20 5A 20 28 55 50 50 45 |4 - A TO Z (UPPE| 000002B0: 52 2F 4C 4F 57 45 52 29 00 DB 06 08 01 8F 20 20 |R/LOWER)...... | 000002C0: 20 20 20 38 20 2D 20 41 20 54 4F 20 5A 20 28 46 | 8 - A TO Z (F| 000002D0: 4F 52 43 45 20 55 50 50 45 52 29 00 F7 06 0C 01 |ORCE UPPER).....| 000002E0: 8F 20 20 20 20 31 36 20 2D 20 42 4C 41 4E 4B 20 |. 16 - BLANK | 000002F0: 41 4C 4C 4F 57 45 44 00 1A 07 10 01 8F 20 20 20 |ALLOWED...... | 00000300: 20 33 32 20 2D 20 59 2C 4E 20 20 20 20 28 46 4F | 32 - Y,N (FO| 00000310: 52 43 45 20 55 50 50 45 52 29 00 3F 07 14 01 8F |RCE UPPER).?....| 00000320: 20 20 20 20 36 34 20 2D 20 4E 55 4C 4C 20 46 49 | 64 - NULL FI| 00000330: 45 4C 44 20 4E 4F 54 20 41 4C 4C 4F 57 45 44 00 |ELD NOT ALLOWED.| 00000340: 5F 07 18 01 8F 20 20 20 32 35 36 20 2D 20 27 30 |_.... 256 - '0| 00000350: 27 20 4F 4E 20 4E 55 4C 4C 20 49 4E 50 55 54 00 |' ON NULL INPUT.| 00000360: 7F 07 1C 01 8F 20 20 20 35 31 32 20 2D 20 27 59 |..... 512 - 'Y| 00000370: 27 20 4F 4E 20 4E 55 4C 4C 20 49 4E 50 55 54 00 |' ON NULL INPUT.| 00000380: 9F 07 20 01 8F 20 20 31 30 32 34 20 2D 20 27 4E |.. .. 1024 - 'N| 00000390: 27 20 4F 4E 20 4E 55 4C 4C 20 49 4E 50 55 54 00 |' ON NULL INPUT.| 000003A0: BF 07 24 01 8F 20 20 32 30 34 38 20 2D 20 27 20 |..$.. 2048 - ' | 000003B0: 27 20 4F 4E 20 4E 55 4C 4C 20 49 4E 50 55 54 00 |' ON NULL INPUT.| 000003C0: C5 07 2C 01 20 00 DA 07 30 01 8F 20 49 4E 50 55 |..,. ...0.. INPU| 000003D0: 54 20 52 4F 55 54 49 4E 45 2E 00 EF 07 34 01 8F |T ROUTINE....4..| 000003E0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 | --------------.| 000003F0: F5 07 38 01 8F 00 19 08 3C 01 8F 20 54 48 45 20 |..8.....<.. THE | 00000400: 53 54 52 49 4E 47 20 56 41 52 49 41 42 4C 45 20 |STRING VARIABLE | 00000410: 4D 55 53 54 20 48 41 56 45 00 3C 08 40 01 8F 20 |MUST HAVE.<.@.. | 00000420: 42 45 45 4E 20 44 45 46 49 4E 45 44 20 42 45 46 |BEEN DEFINED BEF| 00000430: 4F 52 45 20 54 48 45 20 53 59 53 2E 00 42 08 44 |ORE THE SYS..B.D| 00000440: 01 8F 00 62 08 48 01 8F 20 54 48 45 20 45 44 20 |...b.H.. THE ED | 00000450: 56 41 4C 55 45 53 20 43 41 4E 20 42 45 20 4F 52 |VALUES CAN BE OR| 00000460: 27 44 00 72 08 4C 01 8F 20 54 4F 47 45 54 48 45 |'D.r.L.. TOGETHE| 00000470: 52 2E 00 90 08 50 01 8F 20 49 45 2E 20 45 44 3D |R....P.. IE. ED=| 00000480: 33 20 49 53 20 54 48 45 20 53 41 4D 45 20 41 53 |3 IS THE SAME AS| 00000490: 00 B3 08 54 01 8F 20 20 20 20 20 45 44 3D 31 2B |...T.. ED=1+| 000004A0: 32 20 28 4E 55 4D 45 52 49 43 20 41 4E 44 20 2B |2 (NUMERIC AND +| 000004B0: 2E 2D 29 00 B9 08 58 01 8F 00 CF 08 5C 01 8F 20 |.-)...X.....\.. | 000004C0: 43 2E 52 2E 20 45 4E 44 53 20 49 4E 50 55 54 00 |C.R. ENDS INPUT.| 000004D0: E9 08 60 01 8F 20 44 45 4C 45 54 45 20 4B 45 59 |..`.. DELETE KEY| 000004E0: 20 41 53 20 55 53 55 41 4C 00 09 09 64 01 8F 20 | AS USUAL...d.. | 000004F0: 53 48 49 46 54 2D 43 2E 52 2E 20 44 45 4C 45 54 |SHIFT-C.R. DELET| 00000500: 45 53 20 45 4E 54 49 52 45 00 28 09 68 01 8F 20 |ES ENTIRE.(.h.. | 00000510: 20 20 20 20 20 20 20 20 20 20 20 4C 49 4E 45 20 | LINE | 00000520: 4F 46 20 49 4E 50 55 54 00 40 09 6C 01 8F 20 22 |OF INPUT.@.l.. "| 00000530: 20 43 41 4E 4E 4F 54 20 42 45 20 49 4E 50 55 54 | CANNOT BE INPUT| 00000540: 00 46 09 70 01 8F 00 68 09 74 01 8F 20 49 54 20 |.F.p...h.t.. IT | 00000550: 49 53 20 42 45 53 54 20 54 4F 20 52 45 2D 41 53 |IS BEST TO RE-AS| 00000560: 53 49 47 4E 20 54 48 45 00 88 09 78 01 8F 20 53 |SIGN THE...x.. S| 00000570: 54 52 49 4E 47 20 54 4F 20 55 50 50 45 52 20 4D |TRING TO UPPER M| 00000580: 45 4D 4F 52 59 20 42 59 00 9C 09 7C 01 8F 20 20 |EMORY BY...|.. | 00000590: 20 20 20 20 4C 24 3D 4C 24 2B 22 22 00 B5 09 84 | L$=L$+""....| 000005A0: 01 8F 20 53 59 53 20 49 4E 2C 30 2C 32 35 2C 44 |.. SYS IN,0,25,D| 000005B0: 31 24 28 32 29 00 CB 09 88 01 8F 20 53 59 53 20 |1$(2)...... SYS | 000005C0: 49 4E 2C 45 44 2C 32 2C 4B 59 24 00 D1 09 90 01 |IN,ED,2,KY$.....| 000005D0: 20 00 EE 09 94 01 8F 20 49 4E 53 45 52 54 2F 44 | ...... INSERT/D| 000005E0: 45 4C 45 54 45 20 52 4F 55 54 49 4E 45 2E 00 0B |ELETE ROUTINE...| 000005F0: 0A 98 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.... -----------| 00000600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 11 0A 9C 01 |-----------.....| 00000610: 8F 00 34 0A A0 01 8F 20 55 53 45 44 20 54 4F 20 |..4.... USED TO | 00000620: 49 4E 53 45 52 54 20 41 4E 20 45 4C 45 4D 45 4E |INSERT AN ELEMEN| 00000630: 54 20 4F 52 00 55 0A A4 01 8F 20 44 45 4C 45 54 |T OR.U.... DELET| 00000640: 45 20 41 4E 20 45 4C 45 4D 45 4E 54 20 46 52 4F |E AN ELEMENT FRO| 00000650: 4D 20 4F 4E 45 00 6B 0A A8 01 8F 20 4F 52 20 4D |M ONE.k.... OR M| 00000660: 4F 52 45 20 41 52 52 41 59 53 2E 00 71 0A AC 01 |ORE ARRAYS..q...| 00000670: 8F 00 95 0A B0 01 8F 20 53 59 53 20 44 4C 2C 53 |....... SYS DL,S| 00000680: 57 2C 50 4F 2C 45 4E 2C 41 28 30 29 2C 42 24 28 |W,PO,EN,A(0),B$(| 00000690: 30 29 2C 5A 5A 00 9B 0A B4 01 8F 00 BE 0A B8 01 |0),ZZ...........| 000006A0: 8F 20 20 53 57 20 2D 20 30 3D 4F 50 45 4E 20 55 |. SW - 0=OPEN U| 000006B0: 50 20 52 4F 4F 4D 20 46 4F 52 20 4F 4E 45 00 D5 |P ROOM FOR ONE..| 000006C0: 0A BC 01 8F 20 20 20 20 20 20 20 20 20 45 4C 45 |.... ELE| 000006D0: 4D 45 4E 54 2E 00 F6 0A C0 01 8F 20 20 20 20 20 |MENT....... | 000006E0: 20 20 31 3D 44 45 4C 45 54 45 20 41 4E 20 45 4C | 1=DELETE AN EL| 000006F0: 45 4D 45 4E 54 2E 00 17 0B C4 01 8F 20 20 50 4F |EMENT....... PO| 00000700: 20 2D 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 45 | - POSITION OF E| 00000710: 4C 45 4D 45 4E 54 2E 00 3A 0B C8 01 8F 20 20 45 |LEMENT..:.... E| 00000720: 4E 20 2D 20 23 20 4F 46 20 45 4C 45 4D 45 4E 54 |N - # OF ELEMENT| 00000730: 53 20 28 44 45 4C 45 54 45 29 00 5B 0B CC 01 8F |S (DELETE).[....| 00000740: 20 20 20 20 20 20 20 23 20 4F 46 20 45 4C 45 4D | # OF ELEM| 00000750: 45 4E 54 53 20 50 4C 55 53 20 31 00 7E 0B D0 01 |ENTS PLUS 1.~...| 00000760: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000770: 20 20 20 20 20 20 28 49 4E 53 45 52 54 29 00 A2 | (INSERT)..| 00000780: 0B D4 01 8F 20 20 41 28 30 29 2C 42 24 28 30 29 |.... A(0),B$(0)| 00000790: 2C 43 25 28 30 29 2C 2E 2E 2E 2E 2E 2E 2E 2E 2E |,C%(0),.........| 000007A0: 2E 2E 00 C4 0B D8 01 8F 20 20 20 20 20 20 20 4C |........ L| 000007B0: 49 53 54 20 4F 46 20 53 49 4E 47 4C 45 20 44 49 |IST OF SINGLE DI| 000007C0: 4D 45 4E 2E 00 E6 0B DC 01 8F 20 20 20 20 20 20 |MEN....... | 000007D0: 20 41 52 52 41 59 53 20 28 5A 45 52 4F 20 45 4C | ARRAYS (ZERO EL| 000007E0: 45 4D 45 4E 54 29 00 07 0C E0 01 8F 20 20 5A 5A |EMENT)...... ZZ| 000007F0: 20 2D 20 54 45 52 4D 49 4E 41 54 4F 52 2E 20 28 | - TERMINATOR. (| 00000800: 4D 55 53 54 20 42 45 00 29 0C E4 01 8F 20 20 20 |MUST BE.).... | 00000810: 20 20 20 20 4C 41 53 54 20 56 41 52 49 41 42 4C | LAST VARIABL| 00000820: 45 20 4F 46 20 53 59 53 29 00 2F 0C F4 01 20 00 |E OF SYS)./... .| 00000830: 40 0C F8 01 8F 20 42 4C 4F 43 4B 20 47 45 54 2E |@.... BLOCK GET.| 00000840: 00 51 0C FC 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.Q.... ---------| 00000850: 2D 00 57 0C 00 02 8F 00 6A 0C 04 02 8F 20 53 59 |-.W.....j.... SY| 00000860: 53 20 42 47 2C 46 4E 2C 4C 24 00 70 0C 08 02 8F |S BG,FN,L$.p....| 00000870: 00 95 0C 0C 02 8F 20 54 41 4B 45 53 20 54 48 45 |...... TAKES THE| 00000880: 20 50 4C 41 43 45 20 4F 46 20 41 4E 20 49 4E 50 | PLACE OF AN INP| 00000890: 55 54 23 46 4E 00 A6 0C 10 02 8F 20 53 54 41 54 |UT#FN...... STAT| 000008A0: 45 4D 45 4E 54 2E 00 BE 0C 14 02 8F 20 20 46 4E |EMENT....... FN| 000008B0: 20 2D 20 46 49 4C 45 20 4E 55 4D 42 45 52 00 DB | - FILE NUMBER..| 000008C0: 0C 18 02 8F 20 20 4C 24 20 2D 20 53 54 52 49 4E |.... L$ - STRIN| 000008D0: 47 20 52 45 41 44 20 49 4E 54 4F 00 E1 0C 1C 02 |G READ INTO.....| 000008E0: 8F 00 FF 0C 20 02 8F 20 4F 50 45 4E 20 31 2C 38 |.... .. OPEN 1,8| 000008F0: 2C 33 2C 22 30 3A 54 45 53 54 2C 53 2C 52 22 00 |,3,"0:TEST,S,R".| 00000900: 13 0D 24 02 8F 20 46 4F 52 20 49 3D 31 20 54 4F |..$.. FOR I=1 TO| 00000910: 20 31 30 00 27 0D 28 02 8F 20 20 20 53 59 53 20 | 10.'.(.. SYS | 00000920: 42 47 2C 31 2C 4C 24 00 3C 0D 2C 02 8F 20 20 20 |BG,1,L$.<.,.. | 00000930: 44 31 24 28 49 29 3D 4C 24 2B 22 22 00 49 0D 30 |D1$(I)=L$+"".I.0| 00000940: 02 8F 20 4E 45 58 54 20 49 00 4F 0D 34 02 8F 00 |.. NEXT I.O.4...| 00000950: 71 0D 38 02 8F 20 54 48 49 53 20 57 49 4C 4C 20 |q.8.. THIS WILL | 00000960: 52 45 41 44 20 46 52 4F 4D 20 5A 45 52 4F 20 54 |READ FROM ZERO T| 00000970: 4F 00 93 0D 3C 02 8F 20 32 35 35 20 42 59 54 45 |O...<.. 255 BYTE| 00000980: 53 20 46 52 4F 4D 20 41 20 46 49 4C 45 2E 20 43 |S FROM A FILE. C| 00000990: 2E 52 2E 00 B6 0D 40 02 8F 20 54 45 52 4D 49 4E |.R....@.. TERMIN| 000009A0: 41 54 45 53 20 49 4E 50 55 54 2E 20 43 4F 4D 4D |ATES INPUT. COMM| 000009B0: 41 20 44 4F 45 53 00 D6 0D 44 02 8F 20 4E 4F 54 |A DOES...D.. NOT| 000009C0: 20 41 46 46 45 43 54 20 49 4E 50 55 54 20 4F 46 | AFFECT INPUT OF| 000009D0: 20 44 41 54 41 2E 00 DC 0D 58 02 20 00 F4 0D 5C | DATA....X. ...\| 000009E0: 02 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |.. DISABLE STOP | 000009F0: 4B 45 59 2E 00 0C 0E 60 02 8F 20 2D 2D 2D 2D 2D |KEY....`.. -----| 00000A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 12 0E 64 |------------...d| 00000A10: 02 8F 00 1F 0E 68 02 8F 20 53 59 53 20 44 49 00 |.....h.. SYS DI.| 00000A20: 25 0E 6C 02 8F 00 45 0E 70 02 8F 20 44 49 53 41 |%.l...E.p.. DISA| 00000A30: 42 4C 45 53 20 54 48 45 20 53 54 4F 50 20 4B 45 |BLES THE STOP KE| 00000A40: 59 20 42 55 54 00 64 0E 74 02 8F 20 41 4C 4C 4F |Y BUT.d.t.. ALLO| 00000A50: 57 53 20 54 48 45 20 43 4C 4F 43 4B 20 54 4F 20 |WS THE CLOCK TO | 00000A60: 52 55 4E 2E 00 6A 0E 78 02 8F 00 7D 0E 7C 02 8F |RUN..j.x...}.|..| 00000A70: 20 45 4E 41 42 4C 45 20 4C 4F 41 44 2E 00 90 0E | ENABLE LOAD....| 00000A80: 80 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------| 00000A90: 00 96 0E 84 02 8F 00 A3 0E 88 02 8F 20 53 59 53 |............ SYS| 00000AA0: 20 45 4C 00 A9 0E 8C 02 8F 00 C8 0E 90 02 8F 20 | EL............ | 00000AB0: 53 54 4F 50 20 4B 45 59 20 49 53 20 44 49 53 41 |STOP KEY IS DISA| 00000AC0: 42 4C 45 44 20 42 55 54 00 E2 0E 94 02 8F 20 50 |BLED BUT...... P| 00000AD0: 52 4F 47 52 41 4D 53 20 57 49 4C 4C 20 4C 4F 41 |ROGRAMS WILL LOA| 00000AE0: 44 2E 00 E8 0E 98 02 8F 00 FF 0E 9C 02 8F 20 45 |D............. E| 00000AF0: 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 2E 00 |NABLE STOP KEY..| 00000B00: 16 0F A0 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..... ----------| 00000B10: 2D 2D 2D 2D 2D 2D 00 1C 0F A4 02 8F 00 29 0F A8 |------.......)..| 00000B20: 02 8F 20 53 59 53 20 45 4E 00 2F 0F AC 02 8F 00 |.. SYS EN./.....| 00000B30: 4D 0F B0 02 8F 20 53 54 4F 50 20 4B 45 59 20 57 |M.... STOP KEY W| 00000B40: 49 4C 4C 20 4E 4F 57 20 57 4F 52 4B 2E 00 53 0F |ILL NOW WORK..S.| 00000B50: BC 02 20 00 68 0F C0 02 8F 20 53 54 52 49 4E 47 |.. .h.... STRING| 00000B60: 20 4D 4F 44 49 46 59 2E 00 7D 0F C4 02 8F 20 2D | MODIFY..}.... -| 00000B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 83 0F |-------------...| 00000B80: C8 02 8F 00 95 0F CC 02 8F 20 53 59 53 20 53 4D |......... SYS SM| 00000B90: 2C 50 2C 4C 24 00 9B 0F D0 02 8F 00 B8 0F D4 02 |,P,L$...........| 00000BA0: 8F 20 20 20 50 3D 31 20 43 4F 4E 56 45 52 54 20 |. P=1 CONVERT | 00000BB0: 54 4F 20 41 53 43 49 49 00 D5 0F D8 02 8F 20 20 |TO ASCII...... | 00000BC0: 20 50 3D 32 20 46 4F 52 43 45 20 55 50 50 45 52 | P=2 FORCE UPPER| 00000BD0: 20 43 41 53 45 00 DB 0F DC 02 8F 00 FF 0F E0 02 | CASE...........| 00000BE0: 8F 20 53 59 53 20 53 4D 2C 31 2C 44 31 24 28 31 |. SYS SM,1,D1$(1| 00000BF0: 35 29 20 57 49 4C 4C 20 43 4F 4E 56 45 52 54 00 |5) WILL CONVERT.| 00000C00: 1F 10 E4 02 8F 20 20 20 54 48 45 20 41 4C 50 48 |..... THE ALPH| 00000C10: 41 20 49 4E 20 54 48 45 20 53 54 52 49 4E 47 00 |A IN THE STRING.| 00000C20: 36 10 E8 02 8F 20 20 20 54 4F 20 55 50 50 45 52 |6.... TO UPPER| 00000C30: 20 43 41 53 45 2E 00 3C 10 EC 02 8F 00 5F 10 F0 | CASE..<....._..| 00000C40: 02 8F 20 53 59 53 20 53 4D 2C 32 2C 4B 24 20 57 |.. SYS SM,2,K$ W| 00000C50: 49 4C 4C 20 43 4F 4E 56 45 52 54 20 54 48 45 00 |ILL CONVERT THE.| 00000C60: 81 10 F4 02 8F 20 20 20 43 48 41 52 41 43 54 45 |..... CHARACTE| 00000C70: 52 53 20 49 4E 20 4B 24 20 54 4F 20 41 53 43 49 |RS IN K$ TO ASCI| 00000C80: 49 00 A5 10 F8 02 8F 20 20 20 43 48 41 52 41 43 |I...... CHARAC| 00000C90: 54 45 52 53 2E 20 54 48 49 53 20 57 49 4C 4C 20 |TERS. THIS WILL | 00000CA0: 41 4C 4C 4F 57 00 C4 10 FC 02 8F 20 20 20 50 52 |ALLOW...... PR| 00000CB0: 49 4E 54 49 4E 47 20 54 4F 20 43 45 4E 54 52 4F |INTING TO CENTRO| 00000CC0: 4E 49 43 53 00 E4 10 00 03 8F 20 20 20 50 52 49 |NICS...... PRI| 00000CD0: 4E 54 45 52 53 2C 20 54 4F 20 54 48 45 20 4E 2E |NTERS, TO THE N.| 00000CE0: 45 2E 43 2E 00 FC 10 04 03 8F 20 20 20 53 50 49 |E.C....... SPI| 00000CF0: 4E 57 52 49 54 45 52 20 45 54 43 2E 00 02 11 08 |NWRITER ETC.....| 00000D00: 03 8F 00 23 11 0E 03 8F 20 20 20 2A 2A 2A 2A 2A |...#.... *****| 00000D10: 2A 20 45 4E 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |* END **********| 00000D20: 2A 2A 2A 00 29 11 E8 03 20 00 4C 11 F2 03 50 4F |***.)... .L...PO| 00000D30: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00000D40: 11 11 11 11 11 11 11 11 11 11 11 22 00 5B 11 F7 |...........".[..| 00000D50: 03 97 20 35 39 35 30 30 2C 31 34 00 7A 11 FC 03 |.. 59500,14.z...| 00000D60: 99 22 93 20 20 20 C9 CE D0 D5 D4 20 C4 C5 CD CF |.". ..... ....| 00000D70: 20 31 22 3A 20 4C 24 B2 22 22 00 92 11 06 04 99 | 1": L$.""......| 00000D80: 20 C8 28 50 4F 24 2C 31 32 29 3B 22 C5 C4 3A 20 | .(PO$,12);"..: | 00000D90: 22 3B 00 A3 11 10 04 9E 20 49 4E 2C 36 35 2C 34 |";...... IN,65,4| 00000DA0: 2C 4C 24 00 B0 11 1A 04 45 44 B2 C5 28 4C 24 29 |,L$.....ED..(L$)| 00000DB0: 00 C5 11 24 04 8B 20 45 44 B2 39 39 39 39 20 A7 |...$.. ED.9999 .| 00000DC0: 20 32 30 30 30 00 DD 11 2E 04 99 20 C8 28 50 4F | 2000...... .(PO| 00000DD0: 24 2C 31 34 29 3B 22 CD D8 3A 20 22 3B 00 EE 11 |$,14);"..: ";...| 00000DE0: 38 04 9E 20 49 4E 2C 36 35 2C 33 2C 4C 24 00 FB |8.. IN,65,3,L$..| 00000DF0: 11 42 04 4D 58 B2 C5 28 4C 24 29 00 16 12 47 04 |.B.MX..(L$)...G.| 00000E00: 8B 20 4D 58 B2 30 20 B0 20 4D 58 B1 32 30 30 20 |. MX.0 . MX.200 | 00000E10: A7 20 31 30 37 30 00 31 12 4C 04 99 20 C8 28 50 |. 1070.1.L.. .(P| 00000E20: 4F 24 2C 31 38 29 3B 22 C9 4E 50 55 54 3A 20 22 |O$,18);".NPUT: "| 00000E30: 3B 00 46 12 56 04 9E 20 49 4E 2C 45 44 2C 4D 58 |;.F.V.. IN,ED,MX| 00000E40: 2C 4C 24 3A 20 99 00 54 12 60 04 99 20 50 4F 24 |,L$: ..T.`.. PO$| 00000E50: 3B 4C 24 3B 00 6C 12 6A 04 A1 20 41 24 3A 8B 20 |;L$;.l.j.. A$:. | 00000E60: 41 24 B2 22 22 20 A7 20 31 31 33 30 00 8D 12 74 |A$."" . 1130...t| 00000E70: 04 99 20 50 4F 24 3B 22 20 20 20 20 20 20 20 20 |.. PO$;" | 00000E80: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 98 12 | ";...| 00000E90: 7E 04 89 20 31 30 31 30 00 9E 12 D0 07 20 00 C0 |~.. 1010..... ..| 00000EA0: 12 E4 07 48 31 24 28 31 29 B2 C8 28 50 4F 24 2C |...H1$(1)..(PO$,| 00000EB0: 31 30 29 AA 22 12 31 92 20 CE 41 4D 45 3A 20 22 |10).".1. .AME: "| 00000EC0: 00 E2 12 EE 07 48 31 24 28 32 29 B2 C8 28 50 4F |.....H1$(2)..(PO| 00000ED0: 24 2C 31 31 29 AA 22 12 32 92 20 C1 44 52 31 3A |$,11).".2. .DR1:| 00000EE0: 20 22 00 04 13 F8 07 48 31 24 28 33 29 B2 C8 28 | ".....H1$(3)..(| 00000EF0: 50 4F 24 2C 31 32 29 AA 22 12 33 92 20 C1 44 52 |PO$,12).".3. .DR| 00000F00: 32 3A 20 22 00 26 13 02 08 48 31 24 28 34 29 B2 |2: ".&...H1$(4).| 00000F10: C8 28 50 4F 24 2C 31 33 29 AA 22 12 34 92 20 C1 |.(PO$,13).".4. .| 00000F20: 44 52 33 3A 20 22 00 48 13 0C 08 48 31 24 28 35 |DR3: ".H...H1$(5| 00000F30: 29 B2 C8 28 50 4F 24 2C 31 34 29 AA 22 12 35 92 |)..(PO$,14).".5.| 00000F40: 20 D0 43 4F 44 3A 20 22 00 6A 13 16 08 48 31 24 | .COD: ".j...H1$| 00000F50: 28 36 29 B2 C8 28 50 4F 24 2C 31 35 29 AA 22 12 |(6)..(PO$,15).".| 00000F60: 36 92 20 C8 4F 4D 45 3A 20 22 00 8C 13 20 08 48 |6. .OME: "... .H| 00000F70: 31 24 28 37 29 B2 C8 28 50 4F 24 2C 31 36 29 AA |1$(7)..(PO$,16).| 00000F80: 22 12 37 92 20 C2 55 53 53 3A 20 22 00 AE 13 2A |".7. .USS: "...*| 00000F90: 08 48 31 24 28 38 29 B2 C8 28 50 4F 24 2C 31 37 |.H1$(8)..(PO$,17| 00000FA0: 29 AA 22 12 38 92 20 C3 4F 44 45 3A 20 22 00 C6 |).".8. .ODE: "..| 00000FB0: 13 34 08 4C 45 25 28 31 29 B2 33 32 3A 20 45 44 |.4.LE%(1).32: ED| 00000FC0: 25 28 31 29 B2 30 00 DE 13 3E 08 4C 45 25 28 32 |%(1).0...>.LE%(2| 00000FD0: 29 B2 33 32 3A 20 45 44 25 28 32 29 B2 30 00 F6 |).32: ED%(2).0..| 00000FE0: 13 48 08 4C 45 25 28 33 29 B2 33 32 3A 20 45 44 |.H.LE%(3).32: ED| 00000FF0: 25 28 33 29 B2 30 00 0E 14 52 08 4C 45 25 28 34 |%(3).0...R.LE%(4| 00001000: 29 B2 33 32 3A 20 45 44 25 28 34 29 B2 30 00 26 |).32: ED%(4).0.&| 00001010: 14 5C 08 4C 45 25 28 35 29 B2 36 20 3A 20 45 44 |.\.LE%(5).6 : ED| 00001020: 25 28 35 29 B2 39 00 3E 14 66 08 4C 45 25 28 36 |%(5).9.>.f.LE%(6| 00001030: 29 B2 31 39 3A 20 45 44 25 28 36 29 B2 30 00 56 |).19: ED%(6).0.V| 00001040: 14 70 08 4C 45 25 28 37 29 B2 31 39 3A 20 45 44 |.p.LE%(7).19: ED| 00001050: 25 28 37 29 B2 30 00 6F 14 7A 08 4C 45 25 28 38 |%(7).0.o.z.LE%(8| 00001060: 29 B2 32 30 3A 20 45 44 25 28 38 29 B2 32 37 00 |).20: ED%(8).27.| 00001070: 75 14 B8 0B 20 00 94 14 BD 0B 99 22 93 20 20 20 |u... ......". | 00001080: C9 CE D0 D5 D4 20 C4 C5 CD CF 20 32 22 3A 20 4C |..... .... 2": L| 00001090: 24 B2 22 22 00 A2 14 C2 0B 81 20 49 B2 31 20 A4 |$.""...... I.1 .| 000010A0: 20 38 00 B2 14 CC 0B 20 20 99 20 48 31 24 28 49 | 8..... . H1$(I| 000010B0: 29 3B 00 CD 14 D6 0B 20 20 45 44 B2 45 44 25 28 |);..... ED.ED%(| 000010C0: 49 29 3A 20 4D 58 B2 4C 45 25 28 49 29 00 E1 14 |I): MX.LE%(I)...| 000010D0: E0 0B 20 20 9E 20 49 4E 2C 45 44 2C 4D 58 2C 4C |.. . IN,ED,MX,L| 000010E0: 24 00 F4 14 EA 0B 20 20 44 31 24 28 49 29 B2 4C |$..... D1$(I).L| 000010F0: 24 AA 22 22 00 FC 14 F4 0B 82 20 49 00 15 15 FE |$.""...... I....| 00001100: 0B A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 A7 |.. A$: . A$."" .| 00001110: 20 33 30 37 30 00 1B 15 A0 0F 20 00 3A 15 AA 0F | 3070..... .:...| 00001120: 99 22 93 20 20 20 C9 CE D0 D5 D4 20 C4 C5 CD CF |.". ..... ....| 00001130: 20 33 22 3A 20 4C 24 B2 22 22 00 48 15 B4 0F 81 | 3": L$."".H....| 00001140: 20 49 B2 31 20 A4 20 38 00 5D 15 BE 0F 99 20 48 | I.1 . 8.].... H| 00001150: 31 24 28 49 29 3B 44 31 24 28 49 29 3B 00 65 15 |1$(I);D1$(I);.e.| 00001160: C8 0F 82 20 49 00 7E 15 D2 0F 99 20 50 4F 24 3B |... I.~.... PO$;| 00001170: 22 12 C6 49 45 4C 44 20 23 3A 92 20 22 3B 00 97 |"..IELD #:. ";..| 00001180: 15 DC 0F 9E 20 49 4E 2C 31 2C 31 2C 4C 24 3A 20 |.... IN,1,1,L$: | 00001190: 4C B2 C5 28 4C 24 29 00 A8 15 E6 0F 8B 20 4C B2 |L..(L$)...... L.| 000011A0: 30 20 A7 20 35 30 30 30 00 B9 15 F0 0F 8B 20 4C |0 . 5000...... L| 000011B0: B1 38 20 A7 20 34 30 31 30 00 D7 15 FA 0F 99 20 |.8 . 4010...... | 000011C0: 50 4F 24 3B 22 20 20 20 20 20 20 20 20 20 20 20 |PO$;" | 000011D0: 20 20 20 20 20 22 3B 00 E5 15 04 10 99 20 48 31 | ";...... H1| 000011E0: 24 28 4C 29 3B 00 FE 15 09 10 45 44 B2 45 44 25 |$(L);.....ED.ED%| 000011F0: 28 4C 29 3A 20 4D 58 B2 4C 45 25 28 4C 29 00 10 |(L): MX.LE%(L)..| 00001200: 16 0E 10 9E 20 49 4E 2C 45 44 2C 4D 58 2C 4C 24 |.... IN,ED,MX,L$| 00001210: 00 21 16 18 10 44 31 24 28 4C 29 B2 4C 24 AA 22 |.!...D1$(L).L$."| 00001220: 22 00 2C 16 22 10 89 20 34 30 31 30 00 32 16 88 |".,.".. 4010.2..| 00001230: 13 20 00 4B 16 92 13 99 22 93 20 20 20 D3 D4 D2 |. .K....". ...| 00001240: C9 CE C7 20 CD CF C4 C9 C6 D9 22 00 68 16 9C 13 |... ......".h...| 00001250: 99 20 C8 28 50 4F 24 2C 38 29 3B 22 D5 D0 D0 C5 |. .(PO$,8);"....| 00001260: D2 A0 43 41 53 45 22 3B 00 84 16 A6 13 99 20 C8 |..CASE";...... .| 00001270: 28 50 4F 24 2C 31 30 29 3B 22 D3 54 52 49 4E 47 |(PO$,10);".TRING| 00001280: 3A 20 22 3B 00 95 16 B0 13 9E 20 49 4E 2C 30 2C |: ";...... IN,0,| 00001290: 31 30 2C 4C 24 00 A3 16 BA 13 9E 20 53 4D 2C 32 |10,L$...... SM,2| 000012A0: 2C 4C 24 00 C1 16 C4 13 99 20 C8 28 50 4F 24 2C |,L$...... .(PO$,| 000012B0: 31 32 29 3B 22 20 20 20 20 20 20 20 20 22 3B 4C |12);" ";L| 000012C0: 24 00 DA 16 CE 13 99 20 C8 28 50 4F 24 2C 31 36 |$...... .(PO$,16| 000012D0: 29 3B 22 C1 D3 C3 C9 C9 22 3B 00 F6 16 D8 13 99 |);".....";......| 000012E0: 20 C8 28 50 4F 24 2C 31 38 29 3B 22 D3 54 52 49 | .(PO$,18);".TRI| 000012F0: 4E 47 3A 20 22 3B 00 07 17 E2 13 9E 20 49 4E 2C |NG: ";...... IN,| 00001300: 30 2C 31 30 2C 4C 24 00 15 17 EC 13 9E 20 53 4D |0,10,L$...... SM| 00001310: 2C 31 2C 4C 24 00 33 17 F6 13 99 20 C8 28 50 4F |,1,L$.3.... .(PO| 00001320: 24 2C 32 30 29 3B 22 20 20 20 20 20 20 20 20 22 |$,20);" "| 00001330: 3B 4C 24 00 00 00 |;L$... |
....D.. ** UTILITY DEMO **.".H. .(.L.
.H.P.IN.31232: DL.IN.3 : BG.IN.6.I.T.DI.
IN.9 : EN.IN.12: EL.IN.15.V.X.SM.IN.18.|
.|. ...... IN - INPUT ROUTINE...... DL
- INSERT/DELETE IN ARRAYS...... BG - B
LOCK GET (BILL MACLEAN)...... (TRA
NSACTOR VOL 2, #7)...... DI - DISABLE S
TOP KEY.;.... EN - ENABLE STOP KEY.S...
. EL - ENABLE LOAD.M.... SM - STRING M
ODIFY.S.H. ...L.. INPUT ROUTINE....P.. -
-------------...T.....X.. SYS IN,ED,MX,L
$............ ED - EDIT CHARACTERISTICS
...... MX - STRING LENGTH (1 TO 255).%.
... L$ - ANY STRING VAR..BLE.+.....A...
. ED - RESULTS.F.... 0 - ALL CHAR
ACTERS ALLOWED...... 1 - NUMERIC ONL
Y...... 2 - . + -...... 4 - A TO
Z (UPPER/LOWER)...... 8 - A TO Z (F
ORCE UPPER)...... 16 - BLANK ALLOWED.
..... 32 - Y,N (FORCE UPPER).?....
64 - NULL FIELD NOT ALLOWED._....
256 - '0' ON NULL INPUT..... 512 - 'Y
' ON NULL INPUT... .. 1024 - 'N' ON NUL
L INPUT...$.. 2048 - ' ' ON NULL INPUT.
E.,. .Z.0.. INPUT ROUTINE....4.. -------
-------...8.....<.. THE STRING VARIABLE
MUST HAVE.<.@.. BEEN DEFINED BEFORE THE
SYS..B.D...B.H.. THE ED VALUES CAN BE OR
'D.R.L.. TOGETHER....P.. IE. ED=3 IS THE
SAME AS...T.. ED=1+2 (NUMERIC AND +
.-)...X...O.\.. C.R. ENDS INPUT...`.. DE
LETE KEY AS USUAL...D.. SHIFT-C.R. DELET
ES ENTIRE.(.H.. LINE OF INPUT
.@.L.. " CANNOT BE INPUT.F.P...H.T.. IT
IS BEST TO RE-ASSIGN THE...X.. STRING TO
UPPER MEMORY BY...|.. L$=L$+""....
.. SYS IN,0,25,D1$(2).K.... SYS IN,ED,2,
KY$.Q... ...... INSERT/DELETE ROUTINE...
.... ----------------------.......4. ..
USED TO INSERT AN ELEMENT OR.U.... DELET
E AN ELEMENT FROM ONE.K.... OR MORE ARRA
YS..Q.......... SYS DL,SW,PO,EN,A(0),B$(
0),ZZ............ SW - 0=OPEN UP ROOM F
OR ONE.U.... ELEMENT.......
1=DELETE AN ELEMENT....D.. PO - POSIT
ION OF ELEMENT..:.H.. EN - # OF ELEMENT
S (DELETE).[.L.. # OF ELEMENTS PLU
S 1.~.P.. (INSERT)..
.T.. A(0),B$(0),C%(0),............D.X..
LIST OF SINGLE DIMEN.......
ARRAYS (ZERO ELEMENT)...... ZZ - TERMI
NATOR. (MUST BE.).... LAST VARIABL
E OF SYS)./... .@.... BLOCK GET..Q.... -
---------.W.....J.... SYS BG,FN,L$.P....
...... TAKES THE PLACE OF AN INPUT#FN...
... STATEMENT....... FN - FILE NUMBER..
.... L$ - STRING READ INTO......... ..
OPEN 1,8,3,"0:TEST,S,R"...$.. FOR I=1 TO
10.'.(.. SYS BG,1,L$.<.,.. D1$(I)=L
$+"".I.0.. NEXT I.O.4...Q.8.. THIS WILL
READ FROM ZERO TO...<.. 255 BYTES FROM A
FILE. C.R....@.. TERMINATES INPUT. COMM
A DOES.V.D.. NOT AFFECT INPUT OF DATA...
.X. ...\.. DISABLE STOP KEY....`.. -----
------------...D.....H.. SYS DI.%.L...E.
P.. DISABLES THE STOP KEY BUT.D.T.. ALLO
WS THE CLOCK TO RUN..J.X...}.|.. ENABLE
LOAD....... ------------............ SYS
EL.......H.... STOP KEY IS DISABLED BUT
...... PROGRAMS WILL LOAD............. E
NABLE STOP KEY.... .. ----------------..
.....).... SYS EN./.....M.... STOP KEY W
ILL NOW WORK..S... .H.... STRING MODIFY.
.}.D.. --------------...H.....L.. SYS SM
,P,L$...P.....T.. P=1 CONVERT TO ASCII
.U.X.. P=2 FORCE UPPER CASE...........
. SYS SM,1,D1$(15) WILL CONVERT......
THE ALPHA IN THE STRING.6.... TO UPPER
CASE..<....._.... SYS SM,2,K$ WILL CONV
ERT THE...... CHARACTERS IN K$ TO ASCI
I...... CHARACTERS. THIS WILL ALLOW.D.
... PRINTING TO CENTRONICS...... PRI
NTERS, TO THE N.E.C....... SPINWRITER
ETC........#.... ****** END **********
***.)... .L...PO$.".....................
...".[.... 59500,14.Z....". INPUT DEMO
1": L$.""...... H(PO$,12);"ED: ";......
IN,65,4,L$.....ED.E(L$).E.$.. ED.9999 .
2000...... H(PO$,14);"MX: ";...8.. IN,6
5,3,L$...B.MX.E(L$)...G.. MX.0 . MX.200
. 1070.1.L.. H(PO$,18);"INPUT: ";.F.V..
IN,ED,MX,L$: ..T.`.. PO$;L$;.L.J.. A$:.
A$."" . 1130...T.. PO$;"
";...~.. 1010...P. .....H1$(1).H(PO$,
10).".1. NAME: ".....H1$(2).H(PO$,11).".
2. ADR1: ".....H1$(3).H(PO$,12).".3. ADR
2: ".&...H1$(4).H(PO$,13).".4. ADR3: ".H
...H1$(5).H(PO$,14).".5. PCOD: ".J...H1$
(6).H(PO$,15).".6. HOME: "... .H1$(7).H(
PO$,16).".7. BUSS: "...*.H1$(8).H(PO$,17
).".8. CODE: ".F.4.LE%(1).32: ED%(1).0..
.>.LE%(2).32: ED%(2).0...H.LE%(3).32: ED
%(3).0...R.LE%(4).32: ED%(4).0.&.\.LE%(5
).6 : ED%(5).9.>.F.LE%(6).19: ED%(6).0.V
.P.LE%(7).19: ED%(7).0.O.Z.LE%(8).20: ED
%(8).27.U... ......". INPUT DEMO 2": L
$.""...B.. I.1 . 8...L. . H1$(I);.M.V.
ED.ED%(I): MX.LE%(I)..... . IN,ED,MX,L
$..... D1$(I).L$.""...... I...... A$: .
A$."" . 3070... . .:....". INPUT DEMO
3": L$."".H.... I.1 . 8.].... H1$(I);D1
$(I);.E.H.. I.~.R.. PO$;".FIELD #:. ";..
.... IN,1,1,L$: L.E(L$)...... L.0 . 5000
...... L.8 . 4010.W.... PO$;"
";...... H1$(L);.....ED.ED%(L): MX.
LE%(L)...... IN,ED,MX,L$.!...D1$(L).L$."
".,.".. 4010.2... .K....". STRING MODI
FY".H.... H(PO$,8);"UPPER CASE";...... H
(PO$,10);"STRING: ";...... IN,0,10,L$...
... SM,2,L$.A.D.. H(PO$,12);" ";L
$.Z.N.. H(PO$,16);"ASCII";...X.. H(PO$,1
8);"STRING: ";...... IN,0,10,L$...... SM
,1,L$.3.... H(PO$,20);" ";L$...
> CLICK IMAGE PREVIEW FOR FULL MODAL