1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-10-31 10:14:09 +00:00
C02/vic20/strings.c02

159 lines
4.8 KiB
Plaintext
Raw Normal View History

2018-01-28 18:57:49 +00:00
/**********************************************
* STRINGS - Demonstrate string.h02 functions *
**********************************************
load "strings.prg",8
*/
#include <vic20.h02>
#include <stdio.h02>
#include <stdlib.h02>
#include <string.h02>
#include <stringx.h02>
#pragma ascii invert //Inver case for PETSCII
char slen, scmp, spos;
char s1 = "First string.";
char s2 = "Second string.";
char stest = "12345678901234567890";
char stemp[32];
char sless = "This string is less.";
char smore = "This string is more.";
char sprt[4];
char pass = "Pass";
char fail = "Fail";
main:
putchr(14); //Switch to Lower Case
newlin();
//Demo strapd()
putstr("Appending to string:");
s1 = 0; //Set string to empty
for (spos='0'; spos<='9'; spos++) {
strapd(spos, &s1);
putstr(&s1);
}
anykey();
//Demo strchr(), strrch()
putstr(&s1); //Print s1 to screen
outstr("Position of first 's' is: ");
spos = strchr('s', &s1); //Get position of 's'
ctoa(spos, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
outstr("Position of first 'x' is: ");
spos = strchr('x', &s1); //Get position of 's'
ctoa(spos, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
outstr("Position of last 's' is: ");
spos = strrch('s', &s1); //Get position of 's'
ctoa(spos, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
outstr("Position of last 'x' is: ");
spos = strrch('x', &s1); //Get position of 's'
ctoa(spos, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
newlin();
//Demo strlen();
putstr(&stest); //Print stest to screen
slen = strlen(&stest); //Get string length
ctoa(slen, &sprt); //Convert to string
outstr("String length is ");
putstr(&sprt); //Print length to screen
newlin();
//Demo setstr();
strdst(&stemp); //Set stemp as destination street
outstr("Address of stemp is $");
prbyte(dsthi); //Print stored address to string
prbyte(dstlo);
newlin();
anykey();
//Demo strcpy()
putstr("Copying s1 to stemp");
strdst(&stemp); //Set Destination String
slen = strcpy(&s1); //Copy s1 into Destination String
outstr("String stemp contains ");
putstr(&stemp); //Print stest to screen
ctoa(slen, &sprt); //Convert to string
outstr("Characters copied ");
putstr(&sprt); //Print length to screen
newlin();
//Demo strcat()
putstr("Concatenating s2 to stemp: ");
strdst(&stemp); //Set Destination String
slen = strcat(&s2); //Copy s1 into Destination String
outstr("String stemp contains ");
putstr(&stemp); //Print stest to screen
ctoa(slen, &sprt); //Convert to string
outstr("Concatenated string length is ");
putstr(&sprt); //Print length to screen
newlin();
anykey();
//Demo strcut()
putstr("Cutting s2 at position 7 to stemp: ");
strdst(&stemp); //Set Destination String
slen = strcut(7, &s2); //Copy s1 into Destination String
outstr("String stemp contains ");
putstr(&stemp); //Print stest to screen
ctoa(slen, &sprt); //Convert to string
outstr("Cut string length is ");
putstr(&sprt); //Print length to screen
newlin();
//Demo strcmp();
outstr("Comparing sless to smore: ");
strdst(&sless);
scmp = strcmp(&smore);
prbyte(scmp); newlin();
outstr("Comparing sless to sless: ");
strdst(&sless);
scmp = strcmp(&sless);
prbyte(scmp); newlin();
outstr("Comparing smore to sless: ");
strdst(&smore);
scmp = strcmp(&sless);
prbyte(scmp); newlin();
anykey();
//Demo strspn();
putstr(&stest); //Print test to screen
putstr("Span matching");
outstr(" 0123 is ");
strdst(&stest); //Set string to search
slen = strspn("0123"); //Get position of "123"
ctoa(slen, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
outstr(" 0123456789 is ");
strdst(&stest); //Set string to search
slen = strspn("0123456789"); //Get position of "123"
ctoa(slen, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
outstr(" 789 is ");
strdst(&stest); //Set string to search
slen = strspn("789"); //Get position of "123"
ctoa(slen, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
//Demo strstr();
outstr("Position of 234 is: ");
strdst(&stest); //Set string to search
spos = strstr("234"); //Get position of "123"
ctoa(spos, &sprt); //Convert to string
putstr(&sprt); //Print position to screen
newlin();
goto exit;
void anykey() {
newlin();
putstr("Press any key...");
getkey();
newlin();
}