Listing of file='LOGSHP.BAS;01' on disk='vmedia/demos-sector.ccvf'
1 REM LINE COPYER G.LARRI 3/81 2 POKE 33289,255 5 GOTO 500 10 AD= 28672 14 GOTO 16 15 GOSUB 200 16 PLOT 3,65,0:GOTO 50 20 A= PEEK (AD) 30 FOR I= 1TO 16 40 Z= AD+ I* 256:IF Z< 32767THEN POKE Z,A:NEXT 45 RETURN 50 GOSUB 20:AD= AD+ 128:GOSUB 20:AD= AD- 127 51 IF AD< 28672+ 128THEN 50 52 FOR I= 1TO 50:RUN 200 A1= AD+ 73:FOR Q= A1TO AD+ 128STEP 2:POKE Q,6:NEXT 205 A1= AD+ 73+ 128:FOR Q= A1TO AD+ 256STEP 2:POKE Q,6:NEXT 210 RETURN 500 PLOT 12:PRINT " THE LOGIC SHOP PRESENTS THE COMPUCOLOR II PHONE 699 4910 OR COME IN!" 510 GOTO 10