c64-codeart
C64 CodeArt
by Daniele Olmisani
Please, see LICENSE file.
Hello World!
PRINT "HELLOWORLD!"
Generate random patterns with Commodore 64.
100 REM CODE-ART
110 REM DANIELE.OLMISANI@GMAIL.COM
120 PRINT "{CLEAR}"
130 REM PUT CHAR MAP AT 12288
140 POKE 53272, (PEEK(53272) AND 240)+12
150 REM DEFINE NEW CHARS
160 FOR K=0 TO 15
170 : READ A
180 : POKE 12288+K, A
190 NEXT K
200 REM DRAW RAND PATTERNS
210 PRINT CHR$(64.5+RND(1));
220 GOTO 210
230 REM CHARACTER DATA
240 DATA 016,016,032,192,003,004,008,008
250 DATA 008,008,004,003,192,032,016,016
Obviously inspired from the famous 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
Sierpinsky Pattern
100 REM SIERPINSKY PATTERN
110 REM DANIELE.OLMISANI@GMAIL.COM
200 PRINT"{CLEAR}"
210 FOR R=1 TO 25
220 : FOR C=1 TO 40
230 : : V = R AND C
240 : : IF V=0 THEN POKE 983+40*R+C,160
250 : NEXT
260 NEXT
900 GET A$: IF A$="" THEN 900
999 END
Random music
10 POKE 54272+RND(1)*25,RND(1)*256 : GOTO 10
Is this a correct statement?
This is a correct statement but it returns the same message as jfglajda. So it is a correct statement or not?
Trivial version
PRINT "{DOWN}?SYNTAX ERROR";
The {DOWN} character is obtained by pressing the down cursor key
Expert version
POKE781,11:SYS58251
Set the register X with value 11, then call the error routine (X=11 handles Syntax Error). Thanks to palordrolap.
Make a click sound
POKE 54296,15:POKE 54296,0
Quines
A quine is a non-empty computer program which takes no input and produces a copy of its own source code as its only output. Wikipedia
Cheating quine
10 LIST
Actual quine
1 A$="1 A$=:PRINT LEFT$(A$,5)CHR$(34)A$CHR$(34)RIGHT$(A$,49)":PRINT LEFT$(A$,5)CHR$(34)A$CHR$(34)RIGHT$(A$,49)
A shorter version of 108 chars should be retrieved by removing wihite spaces after PRINT statements and, of course, replacing value 49 with 48 in RIGHT$ statemets. Due the two line limitation of C64 editor it shall be compiled or edited with CBM Studio.
The following one may be edited directly in a real C64.
Computing PI
10 REM COMPUTING PI (NILAKANTHA SERIES)
20 PRINT "{CLEAR}"
30 K=2: P=3: S=4
40 P=P+S/(K*(K+1)*(K+2))
50 PRINT "{HOME}";P
60 K=K+2: S=-S
70 GOTO 40
Otherwise, by cheating
PRINT {PI}
Ohterwise, a good approximation
PRINT 355/113
Hofstadter Q sequence
100 REM HOFSTADTER Q NUMBERS
110 DIM Q(1000)
120 Q(1)=1 : Q(2)=1
130 FOR N=3 TO 1000
140 : Q(N) = Q(N-Q(N-1)) + Q(N-Q(N-2))
150 NEXT N
160 PRINT "FIRST NUMBERS: ";
170 FOR I=1 TO 10
180 : PRINT Q(I);
190 NEXT I
200 PRINT
210 PRINT "1000th NUMBER: "; Q(1000)
Fibonacci Numbers
10 REM FIBONACCI NUMNBERS
20 A=1: B=1
30 PRINT A; B;
40 FOR I=3 TO 15
50 T=A+B: A=B: B=T
60 PRINT T;
70 NEXT
Memory Worm
10 POKE RND(1)*65536, RND(1)*256 : GOTO 10
Random stuff
10 P=RND(1)*1000 : POKE 1024+P, RND(1)*128 : POKE 55296+P, RND(1)*16 : GOTO 10
Timing stuff
Prints timer ticks since Power-On (1 Tick = 1/60 Second)
PRINT TIME
Prints timer since Power-On in Hour/Minute/Second Format
PRINT TIME$
The accuracy of the timer is very poor (>1% drift)
Soft reset
SYS 64738
Screen Earthquake
10 POKE 53270,200+RND(1)*8 : GOTO 10
Little Magic
10 X=RND(-42): FOR I=1 TO 5: PRINT CHR$(RND(1)*26+65);: NEXT
output: DECKS