Sayfa 6

NEXT NEXT END PROC REM *kk SUBRPROC #6 PROC VIR REM *x*k 1 REPEATI DE-JI$ OR IF JsL THEN PROC END PROC REM **k SUBPROC #7 PROC CLEAR REM **k FOR Js1 TO Isi TO 1 TO T END PROC REM PROC MATADD REM PRINT AT(12,23)PSs

FOR Isi TO Rİ:FOR 3Jzi1i TO NEXT END PROC REM PROC SCREENSAVE REM INV 0,24,4â,1:PRINT AT(8,23)P5$"DOSY A ",18 PRINT AT(8,23)P5$4 SCRSV Li" INV 0,24,4,1:CALL EDIT REM PROC SCREENLORD REM INV AT(9,23)P5$”"DOSY A IF L$4*",.CIR" SCRLD INV EDIT