10print
10 HGR : POKE - 16302,0: HCOLOR= 6: HPLOT 0,0
20 CALL 62454: HCOLOR= 7:S = 7
30 FOR Y = 1 TO 189 STEP S
40 J = Y + S:K = Y
50 FOR X = 2 TO 274 STEP S
60 I = X + S:C = RND (1) < .5
70 IF C THEN H = K:K = J:J = H
80 HPLOT X,J TO I,K: NEXT X,Y
10print.org
A single line of code sends readers into a labyrinth.
10 PRINT CHR$ (205.5 + RND (1)); : GOTO 10
"Run it on another old-school computer, like an Apple II, and you won’t get the same transfixing result, for details that have to do with the Commodore 64’s character set, called PETSCII."
or, you could simply run this...
10 PRINT MID$("/\", 1.5+RND(1), 1);: GOTO 10or this one-liner from BLuRry...
10 PRINT CHR$(47 + (INT(RND(1)+.5)*45));: GOTO 10 which works on the Apple II as well.
or, here's an Apple II graphics version that makes the corners connect like PETSCII...
0 HIMEM: 8192
1 GOSUB 5
2 FOR X = 0 TO 279 STEP 7
3 DRAW RND (1) + 1.5 AT X,184
4 NEXT : CALL 24576: GOTO 2
5 HGR : POKE 49234,0: READ L$
6 READ H$:B = 24350:A = B
7 FOR I = 1 TO LEN (L$)
8 H = ASC ( MID$ (H$,I,1))
9 L = VAL ( MID$ (L$,I,1))
10 POKE A,(H - 65) * 10 + L
11 A = B + I: NEXT :H = 233
12 POKE H,B / 256:L = 232
13 POKE L,B - PEEK (H) * 256
14 CALL 24411: SCALE= 1
15 HCOLOR= 0: CALL 24384
16 HCOLOR= 3: ROT= 0: RETURN
77DATA206090666666888887068644444033333058170170237085837190658190696339232360027294599225563597225062418320355285295587244591225079222507571086903724185966852852655041728551520820365520011503144442413513141442573000503062836269320029
88DATAAAAABAEEEEEEWCCCCAAOBEEEEEEGCCCCCAQWOHKEMYBHMYAQWHMOHKJQWOHKJQJNZQANZNXQANXQANXQSDSJQXNXQPDSJXXXWTUXQARYJDTJXSYJUYQSNXQODSJXXQODSJXXQXUEUXQANXXWTUWQJHTJDTJDUJQZCKXDTJQZOZUUAXZJQXHBBEDAXNZKHHHHHEAAZNZKECOAKMNZBBAZNZJUEAHAJQVQRAQD
#appleii #10print |
 |