start tok64 d64-PWKbZK 0 REM"{delete*6}sys pd 1991 1 REM"{delete*6}save"rutn[t",8{141*4}1 rem graphic package m/c routines 2 in=51200:of=in+3:gc=of+3:sc=gc+3:pc=sc+3:pl=pc+3:up=pl+3:sl=up+3:cl=sl+3 3 gl=cl+3:gs=gl+3:hc=gs+3 4 REM -*--*--*--*--*--*--*--*--*--*--*- 10 REM enkla bilder. rutn[t. 20 REM ur "b[ttre basic" s.27 30 REM 40 REM c64verision (c) 1991 mr.p. 50 REM of softwolves and sys pd. 60 REM 70 IFPEEK(828)=PEEK(829)ANDPEEK(829)=PEEK(830)THEN100 80 POKE828,99:POKE829,99:POKE830,99:PRINT"{white}{clear}avsluta med -{9*3} linjer. 81 PRINT"-1 ger slumpm[ssiga data 90 POKE198,.:WAIT198,1 100 POKE53280,.:POKE53281,.:POKE198,.:INPUT"{clear}{gray}hur m]nga linjer vill du ha";n 101 IFn=-999THENPOKE53280,14:POKE53281,6:PRINT"{light blue}{clear}{142}";:POKE828,98:END 102 IFn<.THENn=INT(RND(.)*10)+1 110 n=n+1:DIMlx(4,n),ly(4,n) 120 REM rita rutn[tets sidor 122 PRINT"{down}0<=x<320 0<=y<200 130 FORi=1TO4:INPUT"h{pound}rnkoordinat (x,y)";cx(i),cy(i):IFcx(i)<.THENGOTO168 140 NEXT:GOTO169 168 FORi=1TO4:cx(i)=INT(RND(.)*320):cy(i)=INT(RND(.)*200):NEXT 169 SYSin:SYSgc:SYSsc,INT(RND(.)*15+1)*16 170 cx(.)=cx(4):cy(.)=cy(4) 180 FORi=1TO4:SYSsl,cx(i-1),cy(i-1),cx(i),cy(i):NEXT 200 REM ber[kna rutn[tslinjernas koord. 210 FORi=1TOn:lx(1,i)=cx(1)+(cx(2)-cx(1))*i/n:ly(1,i)=cy(1)+(cy(2)-cy(1))*i/n 260 lx(3,i)=cx(4)+(cx(3)-cx(4))*i/n:ly(3,i)=cy(4)+(cy(3)-cy(4))*i/n 300 lx(2,i)=cx(2)+(cx(3)-cx(2))*i/n:ly(2,i)=cy(2)+(cy(3)-cy(2))*i/n 340 lx(4,i)=cx(1)+(cx(4)-cx(1))*i/n:ly(4,i)=cy(1)+(cy(4)-cy(1))*i/n:NEXT 400 REM rita rutn[tslinjerna 410 FORr=1TO2:GOSUB500:NEXT 430 POKE198,.:GOSUB600:WAIT198,1:SYSof:RUN 500 REM subrutiner 510 FORi=1TOn-1:SYSsl,lx(r,i),ly(r,i),lx(r+2,i),ly(r+2,i):NEXT:RETURN 600 FORy=4TO13:SYScl,4,y,21,y:NEXT 610 SYSsl,5,6,5,8:SYSsl,6,5,6,9:SYSsl,7,8,7,12:SYSsl,8,9,8,11 611 SYSsl,7,5,8,5:SYSsl,7,6,8,6:SYSsl,5,11,6,11:SYSsl,5,12,6,12 620 SYSsl,10,5,10,8:SYSsl,11,5,11,9:SYSsl,12,8,12,12:SYSsl,13,8,13,12 621 SYSsl,14,5,14,9:SYSsl,15,5,15,8 630 SYSsl,17,6,17,8:SYSsl,18,5,18,9:SYSsl,19,8,19,12:SYSsl,20,9,20,11 631 SYSsl,19,5,20,5:SYSsl,19,6,20,6:SYSsl,17,11,18,11:SYSsl,17,12,18,12 640 RETURN stop tok64 (bastext 1.0)