10 RANDOMIZE : BORDER 1: CLEAR 49151: PRINT "Hallo"'"Use 7 & 0"''''"and RUN linenumber 10 !!!"'"to set 'NEWPPC' sysvar": LET p=23672: POKE p,0: BEEP .003,PEEK p/3: POKE 23620,7+2*(PEEK p>70): CLS
15 LET r=32765: LET m=23388
20 LET pa=INT (8*RND): FOR f=0 TO 23: LET c=2-(f>21): PRINT #c;AT f-22*(c<2),f; INK 9; PAPER pa;"HELLO": NEXT f
30 POKE m,16+8+7: OUT r,16+8+7
40 FOR f=23295 TO 16384 STEP -1: POKE f+32768,PEEK f: NEXT f
50 POKE m,16: OUT r,16
60 FOR f=0 TO 23: LET c=2-(f>21): PRINT #c;AT f-22*(c<2),f; INK 9; PAPER INT (f/3);"HELLO": NEXT f
65 BORDER 7: GO TO 300: REM this GOTO sets NEWPPC
300 LET i$=INKEY$: POKE 23620,1+2*(I$="o" OR I$="p")+6*(CODE i$=13): LET i=16+8*(i$="p"): POKE 23388,i: OUT 32765,i: POKE 23620,1: STOP
9000 CLEAR : SAVE "cage042" LINE 10: REM this LINE sets NEWPPC
1 RANDOMIZE : BORDER 1: CLEAR 49151: GO TO 10: REM this GOTO sets NEWPPC
5 FOR i=PI/2 TO -PI/2 STEP -PI/8: PLOT xb,yb: DRAW INK 4; lx,ly,i: NEXT i: RETURN
10 PRINT "Hallo"'"when READY Use 'o' & 'p'"''''"GOTO sets 'NEWPPC' sysvar": LET p=23672: POKE p,0: BEEP .003,PEEK p/3: POKE 23620,4+2*(PEEK p>70): CLS
20 LET r=32765: LET m=23388
21 PRINT AT 21,18;"NEUROOSJE..."
25 LET xb=120: PLOT xb,8: DRAW 0,104: LET yb=24: LET lx=32: LET ly=lx: GO SUB 5: LET lx=-lx: GO SUB 5
30 LET yb=64: LET lx=16: LET ly=lx: GO SUB 5: LET lx=-lx: GO SUB 5
40 POKE m,16+8+7: OUT r,16+8+7
50 FOR f=23295 TO 16384 STEP -1: POKE f+32768,PEEK f: NEXT f
60 POKE m,16: OUT r,16
65 CLS
70 CIRCLE 120,128,24: FOR i=1 TO 10: CIRCLE INK RND*6;120,128, i*2.4: NEXT i
80 GO TO 90: REM this GOTO sets NEWPPC
90 LET i$=INKEY$: POKE 23620,1+2*(I$="o" OR I$="p")+6*(CODE i$=13): LET i=16+8*(i$="p"): POKE 23388,i: OUT 32765,i: POKE 23620,1: STOP
100 CLEAR : SAVE "newroosje1" LINE 10: REM this LINE sets NEWPPC
1000 POKE @5,255: POKE @10,0: POKE @11,0: LPRINT : LPRINT : LLIST
finaly an excuse to use all those OUTLET bitimages !!!
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
