just an simple update, i included the FASTscreen trick and a litle extra nerve
Code: Select all
10 RUN 20: DEF FN p(p)=PEEK p+ 256*PEEK (p+1): DEF FN r()=FN p(23621)
20 RANDOMIZE : BORDER 1: CLEAR 49151: PRINT "Hallo"'"when READY Use 'o' & 'p'"''''"GOTO sets 'NEWPPC' sysvar": LET p=23672: POKE p,0: BEEP .003,PEEK p/3: POKE 23620,7+2*(PEEK p>70): CLS
30 LET ud=PEEK 23637+256*PEEK 23638-14: REM don't edit in 128k xxxxA$)xxxx
40 LET c$=CHR$ 12+" ": LET b$=CHR$ 22: LET z$=b$+CHR$ 3+c$+b$+CHR$ 4+c$+b$+CHR$ 5+c$+b$+CHR$ 6+c$+b$+CHR$ 7+c$+b$+CHR$ 8+c$
50 LET da=23563: LET s=23670: LET s0=16384: LET s1=49152: LET dl=6912: LET m=23388: LET r=32765: LET d=0: DIM k$(dl): DIM l$(dl): LET n$=CHR$ 22+CHR$ 21+CHR$ 21+"NEUROSES..."
60 PRINT n$
70 LET xb=120: PLOT xb,8: DRAW 0,104: LET yb=24: LET lx=32: LET ly=lx: GO SUB 170: LET lx=-lx: GO SUB 170
80 LET yb=64: LET lx=16: LET ly=lx: GO SUB 170: LET lx=-lx: GO SUB 170
90 POKE m,31: OUT r,31
100 LET sc=s0: GO SUB 180: LET d=1: GO SUB 210
110 LET sc=s1: GO SUB 180: GO SUB 210
120 POKE m,16: OUT r,16
130 BORDER 5: CLS : PRINT BRIGHT 1;n$
140 CIRCLE 119,127,23: FOR i=1 TO 10: CIRCLE INK RND*6;119,127,i*(1.7+RND): NEXT i
150 BORDER 7: GO TO 160: REM this GOTO sets NEWPPC
160 LET i$=INKEY$: POKE 23620,1+2*(I$="o" OR I$="p")+7*(CODE i$=13): PRINT OVER 1; PAPER RND*7; INK 8;z$: LET i=16+8*(i$="p"): POKE 23388,i: OUT 32765,i: POKE 23620,1: RUN
170 FOR i=PI/2 TO -PI/2 STEP -PI/8: PLOT INK 4; xb,yb: DRAW INK 4; lx,ly,i: NEXT i: RETURN
180 POKE UD,65: POKE UD+1,36: POKE UD+2,14: POKE UD+3,0: POKE ud+8,41
190 RANDOMIZE DL: POKE UD+6,PEEK S: POKE UD+7,PEEK (S+1)
200 RANDOMIZE SC: POKE UD+4,PEEK S: POKE UD+5,PEEK (S+1): RETURN
210 RANDOMIZE UD: POKE da,PEEK S: POKE da+1,PEEK (S+1): IF d THEN LET k$=a$
220 IF NOT d THEN LET a$=k$
230 LET d=0: POKE da,d: POKE da+1,d: RETURN
240 CLEAR : SAVE "neuRoses" LINE 10