From 73227b1c71e26d5fd4214c0106820d086cd29ade Mon Sep 17 00:00:00 2001 From: Tom Hicks Date: Sun, 26 Feb 2023 21:58:25 -0800 Subject: [PATCH] Removes test code. --- dos/sbf/sbf.bas | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/dos/sbf/sbf.bas b/dos/sbf/sbf.bas index f096dba..acfa448 100644 --- a/dos/sbf/sbf.bas +++ b/dos/sbf/sbf.bas @@ -1122,7 +1122,7 @@ Sub CharacterGenerator () Print "Primary: " + itos$(PrimaryAbility) + ", Secondary: " + itos$(SecondaryAbility) + ", Tertiary: " + itos$(TertiaryAbility) Print "Talents: " + itos$(TalentPoints) + ", Skills: " + itos$(SkillPoints) + ", Knowledges: " + itos$(KnowledgePoints) - Input a + Input A ' Spend talent points Do @@ -1381,16 +1381,4 @@ Sub FillAttributeAbbreviationsInGroup (group As Integer, abbreviations() As Stri End Sub Sub Test - Print "|" + MakeFitL$("a left aligned string", 50, " ") + "|" - Print "|" + MakeFitC$("a center aligned string", 50, " ") + "|" - Print "|" + MakeFitR$("a right aligned string", 50, " ") + "|" - Print "test" - Print "|" + MakeFitC$("This is a long string", 10, " ") + "|" - Print "|" + MakeFitC$("hello", 10, " ") + "|" - Print "|" + MakeFitC$("1234567890", 10, " ") + "|" - Print "|" + Mid$("1234567890", 1, 10) + "|" ' 123456789 - Print "|" + Mid$("12345678901", 1, 10) + "|" ' 123456789 - Print "|" + Mid$("A1234567890", 2, 10) + "|" ' A123456789 - Print "|" + Mid$("A1234567890Z", 2, 10) + "|" 'A123456789 - End Sub