commodore - 我如何将小写字符串更改为大写字符串以及首字母大写的 commodore 64？

Question

我在 commodore 64 模拟器上输入了“hello world”。我必须把它打印成 Hello World Hello World Hello World

我怎样才能只使用一个打印语句来做到这一点？

Answer 1

这是一个答案，下面有解释

10 a$="hello world" : rem your string goes here
20 c$=a$:gosub100:d$=a$:gosub200:printc$;" ";a$;" ";d$ : rem the one print
30 end
100 a0$=a$:a$="" :a2$=" ":rem in capital-case subroutine
110 for i=1tolen(a0$):a1$=mid$(a0$,i,1):ifa2$=" "thena1$=chr$(asc(a1$)or128)
120 a2$=a1$:a$=a$+a1$:next:return
200 a0$=a$:a$="": rem all in uppercase subroutine
210 for i=1tolen(a0$):a1$=mid$(a0$,i,1):a$=a$+chr$(asc(a1$)or128):next:return

它符合您只有一个打印语句的规则。它的工作原理是复制所有小写字符串，然后转换为首字母大写并复制它，最后将其余部分转换为大写，然后在单个打印中以正确的顺序使用副本声明。

在 PETSCII 中大写非常简单，因为您只需在每个字符上设置高位 (128) 即可。但是，由于 BASIC 2.0 还没有这方面的功能，因此需要对 a$ 进行操作的子例程。