403 Forbidden
No index.html file for this directory
thank goodness








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 10

or 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

mmphosis