64COL-P

Source Code

    5 REM 64COL-P                     Type in 64 columns             
   10 GO TO 40
   20 LET s=15616+8*(k-32)
   25 FOR d=df TO df+1792 STEP 256
   30 POKE d,ABS (i-PEEK s): LET s=s+1
   35 NEXT d: RETURN 
   40 IF PEEK 23746=128 THEN GO TO 100
   50 CLEAR 63205: LET u=63206
   55 DATA 10,11,12,13,14,15
   60 READ a,b,c,d,e,f
   65 LET u$="*2100603600237CFE7820F8C9F33E01D3F4DBFFCBFFD3FF3E80F5FBCD8E0EF3DBFFCBBFD3FFAFD3F4F1FE80200332C25CFBC9"
   70 FOR N=2 TO LEN U$-1 STEP 2
   75 POKE U,16*VAL U$(N)+VAL U$(N+1)
   80 LET U=U+1: NEXT N
   85 RANDOMIZE USR 63218
   90 FOR A=63256 TO 63263
   95 POKE A,248: POKE (A+8),255-PEEK (A+16): POKE (A+16),255: NEXT A
  100 ON ERR GO TO 9990
  105 OUT 255,62
  110 LET DF=16384: LET B=24: LET C=65: LET I=0
  120 LET S=63256+8*(PEEK 23658=8): GO SUB 25
  130 LET K=CODE INKEY$
  135 IF K=0 THEN GO TO 130
  145 IF K=6 THEN POKE 23658,8*(PEEK 23658=0)
  155 IF K=5 THEN LET I=255
  160 IF K=4 THEN LET I=0
  170 IF K=12 THEN GO TO 250
  180 IF K<32 OR K>122 THEN GO TO 115
  190 GO SUB 15: IF B=1 AND C=2 THEN GO TO 115
  200 LET DF=DF+8192*(DF<22528)-8191*(DF>24575)
  205 LET C=C-1
  210 IF C>1 THEN GO TO 115
  215 IF C=1 THEN GO TO 230
  220 LET B=B-1: LET C=64
  225 GO TO 115
  230 LET L=DF-256*INT (DF/256)
  235 IF L<>0 THEN GO TO 115
  240 LET DF=DF+1792
  245 GO TO 115
  255 LET S=15616*(I=0)+63272*(I=255)
  260 GO SUB 25
  270 IF B=24 AND C=65 THEN GO TO 115
  275 IF C<65 THEN GO TO 285
  280 LET C=1: LET B=B+1
  285 IF C>1 THEN GO TO 305
  290 LET L=DF-256*INT (DF/256)
  295 IF L<>0 THEN GO TO 305
  300 LET DF=DF-1792
  305 LET C=C+1
  310 LET DF=DF-8192*(DF>24575)+8191*(DF<22528)
  315 GO TO 115
 9989 STOP 
 9990 OUT 255,128
 9991 RANDOMIZE USR 63206
 9992 ON ERR RESET