Laurie

Source Code

   10 CLEAR 125*256: REM 32000
   20 REM 32000 TO 34048=oldfram
   30 REM 65000=prog
   40 CLS : PRINT "This is Laurie"''"Laurie is used to facilitate theanimation process."'"You simply move the cursor with the stick and draw."''"To save a frame, press the BREAK key."
   50 BEEP .01,15: PAUSE 0
   60 PRINT '"To erase, press '0'"'"To continue drawing, press '9'"''"To increase/decrease block size,press '+' or '-'."
   70 PRINT "Once a frame is completed, and anew one is begun, the previous  frame will appear."'"You are left to erase this."
   80 BEEP .05,15: PAUSE 0
   90 CLS : REM draw
  100 PLOT 0,175-64: DRAW 255,0: LET x=125: LET y=165
  110 LET a=1
  120 LET b=0
  130 POKE 65002,125: POKE 65005,64
  140 RANDOMIZE USR 65000
  150 PLOT OVER 1,x,y: PLOT OVER 1,x,y
  160 IF INKEY$=" " THEN GO TO 340
  170 IF INKEY$="0" THEN LET a=0
  180 IF INKEY$="9" THEN LET a=1
  190 IF INKEY$="k" THEN LET b=b+1
  200 IF INKEY$="j" THEN LET b=b-1: IF b<0 THEN LET b=0
  210 IF |(1,1)=0 THEN GO TO 150
  220 IF |(2,1)=1 THEN LET a=-a
  230 LET x=x+(|(1,1)=8)-(|(1,1)=4)
  240 LET y=y+(|(1,1)=1)-(|(1,1)=2)
  250 IF |(1,1)=9 THEN LET x=x+1: LET y=y+1
  260 IF |(1,1)=10 THEN LET x=x+1: LET y=y-1
  270 IF |(1,1)=5 THEN LET x=x-1: LET y=y+1
  280 IF |(1,1)=6 THEN LET x=x-1: LET y=y-1
  290 IF a<>1 THEN PLOT INVERSE 1,x,y: GO TO 320
  300 PLOT x,y
  310 IF a=1 THEN DRAW 0,b: DRAW b,0: DRAW 0,-b: DRAW -b,0
  320 IF a<>1 THEN INVERSE 1: DRAW 0,b: DRAW b,0: DRAW 0,-b: DRAW -b,0: INVERSE 0
  330 GO TO 150
  340 PRINT AT 10,0; FLASH 1; BRIGHT 1;" "
  350 POKE 65002,64: POKE 65005,125
  360 RANDOMIZE USR 65000
  370 PRINT AT 10,1;"The drawing is copied."'"Now it will be saved under ""p""."
  380 SAVE "p"CODE 16384,2048
  390 PRINT AT 20,0;"Remember CODE not SCREEN$ "
  400 BEEP .05,15: PAUSE 0: GO TO 90
  410 CLEAR 65000: LET a$="033000125017000064001000008237176201": FOR f=65000 TO 65011: POKE f,VAL a$( TO PI): LET a$=a$(4 TO ): NEXT f: RUN 
  420 SAVE "Laurie" LINE 410