CaChars Code

6 MN=4
7 DIM MN$(MN)
10 VA=USR8(0)
12 POKE VA+5,255:COLOR 0
15 IF PEEK(VA+7) THEN CW=4 ELSE CW=5
20 MN$(0)="Small Circle"
30 MN$(1)="Big Circle"
40 MN$(2)="Text in a Box"
45 MN$(3)="Clean Slate"
50 MN$(4)="Arrêter, S'il Vous Plaît"
100 CLS
105 POKE VA,1:POKE VA+1,22:PRINT "Corações Psicodélicos Nélida Piñón, Órgãos de 1ª";
110 FOR I=0 TO MN
120 POKE VA,1:POKE VA+1,2+2*I
130 IF I=MO THEN POKE VA+5,0 ELSE POKE VA+5,255
140 PRINT MN$(I);:
150 NEXT
160 POKE VA+5,255
200 GOSUB 1000
205 POKE VA,1:POKE VA+1,2+2*MO:PRINT MN$(MO);
210 IF K$=CHR$(10) THEN MO=MO+1:IF MO>MN THEN MO=0
220 IF K$="^" THEN MO=MO-1:IF MO<0 THEN MO=MN
230 IF K$=CHR$(13) THEN 240
235 POKE VA+5,0
236 POKE VA,1:POKE VA+1,2+2*MO:PRINT MN$(MO);
237 POKE VA+5,255
238 GOTO 200
240 ONMO+1GOTO 300,400,500,600,700
300 CIRCLE(12+RND(242),12+RND(178)),10:GOTO 110
400 CIRCLE(52+RND(150),52+RND(80)),50:GOTO 110
500 YE=INT((YE+1)*1.5):F$="Oh yeah"+STR$(YE)
510 X=5+RND(25):Y=1+RND(21):GOSUB 2000:GOTO 110
600 GOTO 100
700 CLS:PRINT"AU REVOIR":END
999 END
1000 K$=INKEY$:IF K$="" THEN 1000
1010 RETURN
2000 X$=STR$(X*CW-2)
2010 Y$=STR$(Y*8-2)
2020 R$=STR$(LEN(F$)*CW+CW-1)
2025 X$=MID$(X$,2):Y$=MID$(Y$,2):R$=MID$(R$,2)
2030 D$="BM"+X$+","+Y$+";R"+R$+";D11;L"+R$+";U11"
2040 DRAW D$:POKE VA,X:POKE VA+1,Y:PRINT F$;
2050 RETURN