home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
txt
/
alpha.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
65 lines
0 'ALPHA.BA - BY LARRY GENSCH
1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
10 REM Alpha.100 by larry gensch, ESQ
20 REM Copyright (c) 1984
30 REM All rights reserved
40 REM --------------------------------
50 REM Alpha.100 creates a 36-byte .CO
60 REM file in RAM on the Model 100.
70 REM This routine will capitalize a
80 REM BASIC string. It will work on
90 REM any string and only affect lower
100 REM case letters and not affect
110 REM punctuation, control characters
120 REM or graphics characters.
130 REM -------------------------------
140 REM The routine resides at decimal
150 REM 62862 to 62892 and will not
160 REM conflict with SUBLIB.CO.
170 REM HIMEM will have to be set at
180 REM 62861 or lower. This can be
190 REM done by the statement:
200 REM CLEAR256,62861
210 REM
220 REM Once the routine is loaded into
230 REM protected memory, it can be
240 REM called as follows:
250 REM CALL 62862, 0, VARPTR(A$)
260 REM Where A$ is the variable to be
270 REM capitalized.
280 REM
290 REM WARNING:
300 REM Make sure that the variable
310 REM to be converted exists in
320 REM string memory (as opposed to
330 REM program memory). For instance,
340 REM when the BASIC statement:
350 REM A$="Text"
360 REM the variable will point to the
370 REM "Text" in the program line.
380 REM Performing any operation on
390 REM such a string:
400 REM A$=A$+""
410 REM will copy it into string memory.
420 REM if the string is pointing into
430 REM program memory, the actual
440 REM program statement will be
450 REM modified.
460 REM
470 REM Permission is granted for any
480 REM use of this routine.
490 REM
500 REM This routine is REQUIRED by
510 REM Diary.300 (version 3.0)
1000 IF HIMEM>62861 THEN CLEAR 0,62861
1010 FOR AD=62862 TO 62892
1020 READ VL
1030 POKE AD,VL
1040 NEXT AD
1050 SAVEM "ALPHA",62862,62892,0
1060 MENU
1070 DATA 70,35,94,35,86,235,43,62,223
1080 DATA 79,35,120,183,200,5,126,254
1090 DATA 97,218,152,245,254,122,210
1100 DATA 152,245,161,119,195,152,245