L & K

Source Code

   10 CLEAR 29952
   20 LET pp=29952
   30 PRINT "Instructions:"'"loadfile"'"loadscreen"'"display": BEEP .05,15: PAUSE 0
   40 CLS  : LET loadfile=90: LET loadscr=130: LET loadscreen=130
   50 LET display=220
   60 BEEP .1,15: PRINT AT 20,0;"L&K Ready."
   70 INPUT a
   80 GO TO a
   90 REM   loadfile 
  100 PRINT AT 21,0; BRIGHT 1;"Loading file."
  110 LOAD ""CODE 
  120 GO TO 40
  130 REM  loadscr   loadscreen 
  140 LET pp=pp+1024
  150 IF pp>63744 THEN GO TO 40
  160 LOAD ""SCREEN$ 
  170 POKE 65000,33: POKE 65003,17: POKE 65015,35
  180 POKE 65002,64: POKE 65001,0
  190 POKE 65005,pp/256: POKE 65004,0
  200 RANDOMIZE USR 65000
  210 GO TO 40
  220 REM  display 
  230 INPUT AT 21,0;"speed";sp
  240 POKE 65000,17: POKE 65003,33: POKE 65015,19
  250 POKE 65001,0: POKE 65002,64: POKE 65004,0
  260 CLS 
  270 FOR f=29952 TO 63744 STEP 1024
  280 PAUSE sp
  290 POKE 65005,f/256
  300 RANDOMIZE USR 65000
  310 NEXT f
  320 GO TO 40
  330 CLEAR 65000: LET a$="033000064017000121062032001032000237176006023035005194247253061200195240253": FOR f=65000 TO 65024: POKE f,VAL a$( TO PI): LET a$=a$(4 TO ): NEXT f: RUN 
  340 SAVE "L&K" LINE 330