June 2018 Update

This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions

View file

@ -0,0 +1,4 @@
10 REM THE ZX81 USES ITS OWN NON-ASCII CHARACTER SET
20 REM WHICH DOES NOT INCLUDE LOWER-CASE LETTERS
30 PRINT CODE "A"
40 PRINT CHR$ 38

View file

@ -0,0 +1,4 @@
10 CH = 65: REM IN PETSCII CODE FOR 'A' IS 65
20 D$ = "B": REM D$ HOLDS THE CHARACTER 'B'
30 PRINT CHR$(CH): REM THIS PRINTS 'A'
40 PRINT ASC(D$): REM THIS PRINTS 66

View file

@ -1,6 +1,6 @@
import extensions.
program =
public program =
[
var ch := $97.

View file

@ -0,0 +1,2 @@
Print("%d\n", 'a'); /* prints "97" */
Print("%c\n", 97); /* prints "a" */

View file

@ -1,2 +1,2 @@
println(int('a'))
println(char(97))
println(Int('a'))
println(Char(97))

View file

@ -0,0 +1,5 @@
Red []
print to-integer first "a" ;; -> 97
print to-integer #"a" ;; -> 97
print to-binary "a" ;; -> #{61}
print to-char 97 ;; -> a

View file

@ -0,0 +1,5 @@
: ascii("α")
1 2
+-------------+
1 | 206 177 |
+-------------+

View file

@ -0,0 +1,5 @@
: ascii("We the People")
1 2 3 4 5 6 7 8 9 10 11 12 13
+-------------------------------------------------------------------------------+
1 | 87 101 32 116 104 101 32 80 101 111 112 108 101 |
+-------------------------------------------------------------------------------+

View file

@ -0,0 +1,2 @@
: char((73,32,115,116,97,110,100,32,104,101,114,101))
I stand here